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