val named : 'a Std_internal.Typerep.t ‑> 'b Std_internal.Typerep.t ‑> 'c Std_internal.Typerep.t ‑> 'd Std_internal.Typerep.t ‑> ('a, 'b, 'c, 'd) X.t Std_internal.Typerep.Named.t
val typename_of_t : 'a Typename.t ‑> 'b Typename.t ‑> 'c Typename.t ‑> 'd Typename.t ‑> ('a, 'b, 'c, 'd) X.t Typename.t