Module Balmap.Set

module type OrderedType = Set.OrderedType
module type S = Set.S
type +'a balset = private 'a Bt1.t =
  1. | Leaf
  2. | Node of int * 'a balset * 'a * 'a balset
module Make (O : OrderedType) : S with type elt = O.t and type t = O.t balset