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