sig
  type ('a, 'b, 'c, 'd) t
  val typerep_of_t :
    'Std_internal.Typerep.t ->
    'Std_internal.Typerep.t ->
    'Std_internal.Typerep.t ->
    'Std_internal.Typerep.t -> ('a, 'b, 'c, 'd) t Std_internal.Typerep.t
  val typename_of_t :
    'Typename.t ->
    'Typename.t ->
    'Typename.t -> 'Typename.t -> ('a, 'b, 'c, 'd) t Typename.t
  val compute :
    'X.t ->
    'X.t ->
    'X.t -> 'X.t -> ('a, 'b, 'c, 'd) Type_generic_intf.M.S4.t X.t
end