Comparator.Derived
module M : sig ... end
type !'cmp comparator_witness
val comparator : ('a, 'cmp) comparator -> ('a M.t, 'cmp comparator_witness) comparator