Typename.Make4
module X : Named_intf.S4
val typename_of_t : 'a typename -> 'b typename -> 'c typename -> 'd typename -> ('a, 'b, 'c, 'd) X.t typename