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