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