Functor Typename.Make2

module Make2: 
functor (X : Named_intf.S2) -> S2 with type ('a, 'b) t := ('a, 'b) X.t
Parameters:
X : Named_intf.S2

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