runtime representation of the name of type 'a.
Useful for representing types with a nominal notion of equality
val create : ?name:string ‑> unit ‑> 'a tval static : unit tval same_witness : 'a t ‑> 'b t ‑> ('a, 'b) Type_equal.t optionval same_witness_exn : 'a t ‑> 'b t ‑> ('a, 'b) Type_equal.tval name : 'a t ‑> stringmodule type S0 : sig ... endmodule type S1 : sig ... endmodule type S2 : sig ... endmodule type S3 : sig ... endmodule type S4 : sig ... endmodule type S5 : sig ... endmodule Same_witness_exn_1 : functor (A : S1) -> functor (B : S1) -> sig ... endmodule Same_witness_exn_2 : functor (A : S2) -> functor (B : S2) -> sig ... endmodule Same_witness_exn_3 : functor (A : S3) -> functor (B : S3) -> sig ... endmodule Same_witness_exn_4 : functor (A : S4) -> functor (B : S4) -> sig ... endmodule Same_witness_exn_5 : functor (A : S5) -> functor (B : S5) -> sig ... end