Module type Comparator.S

module type S = sig .. end

type t 
type comparator_witness 
val comparator : (t, comparator_witness) Comparator.comparator