sig
  type 'a t
  val typerep_of_t : 'Std_internal.Typerep.t -> 'a t Std_internal.Typerep.t
  val typename_of_t : 'Typename.t -> 'a t Typename.t
  val compute : 'X.t -> 'Type_generic_intf.M.S1.t X.t
end