Functor Typename.Make4

module Make4: 
functor (X : Named_intf.S4) -> S4 with type ('a, 'b, 'c, 'd) t := ('a, 'b, 'c, 'd) X.t
Parameters:
X : Named_intf.S4

type ('a, 'b, 'c, 'd) t 
val typename_of_t : 'a Typename.typename ->
'b Typename.typename ->
'c Typename.typename ->
'd Typename.typename -> ('a, 'b, 'c, 'd) t Typename.typename