Module type Typename.S4

module type S4 = sig .. end

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