type t
= Left_boundary.t
type comparator_witness
val comparator : (t, comparator_witness) Core_kernel.Comparator.comparator