Parameter S_to_S1.S

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