module type Comparable =sig
..end
type
t
val compare : t -> t -> int
compare a b
is zero if a
equals b
and
is strictly negative (resp. positive) if a
is smaller (resp. greater)
than b
. In most cases, Pervasives.compare will do.val avg : t -> t -> t
This is used to split the tree between two values. The only important thing
is that, if a < b
, a <= avg a b < b
.