Location_span.Comparator
type comparator_witness
val comparator : (t, comparator_witness) Core__Comparator.comparator