Comparator.DerivedDerived creates a comparator function that constructs a comparator for the type 'a t given a comparator for the type 'a.
module M : sig ... endval comparator : ('a, 'cmp) comparator -> ('a M.t, 'cmp comparator_witness) comparator