Module type Comparator.S_fc

type comparable_t
include S with type t := comparable_t
type t
type comparator_witness
val comparator : (t, comparator_witness) comparator