module type S = sig .. end
sig
end
SetWithNearest.Make
include Datatype.Set
val nearest_elt_le : elt -> t -> elt
elt -> t -> elt
val nearest_elt_ge : elt -> t -> elt