S (base.Base.Comparator.S_to

type t

type comparator_witness

val comparator : ( t, comparator_witness ) comparator