Module Comparator.Derived_phantom
Derived_phantom creates a comparator function that constructs a comparator for the type ('a, 'b) t given a comparator for the type 'a.
Parameters
M : sig ... end
Signature
val comparator : ('a, 'cmp) comparator -> (('a, _) t, 'cmp comparator_witness) comparator