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