Functor Typename.Make1

module Make1: 
functor (X : Named_intf.S1) -> S1 with type 'a t := 'a X.t
Parameters:
X : Named_intf.S1

type 'a t 
val typename_of_t : 'a Typename.typename -> 'a t Typename.typename