Module type Named.T4
val typename_of_named : 'a Typerep_lib.Typename.t -> 'b Typerep_lib.Typename.t -> 'c Typerep_lib.Typename.t -> 'd Typerep_lib.Typename.t -> ('a, 'b, 'c, 'd) named Typerep_lib.Typename.t
val typename_of_t : t Typerep_lib.Typename.t
val witness : (t, (a, b, c, d) named) Typerep_lib.Type_equal.t