Module type Comparator.S1

type 'a t
type comparator_witness
val comparator : ('a tcomparator_witness) comparator