Comparator.Make
module M : sig ... end
type comparator_witness
val comparator : (M.t, comparator_witness) comparator