package grenier

  1. Overview
  2. Docs
module type OrderedType = Map.OrderedType
module type S = Map.S
type (+'a, +'b) balmap = private ('a, 'b) Bt2.t =
  1. | Leaf
  2. | Node of int * ('a, 'b) balmap * 'a * 'b * ('a, 'b) balmap
module Make (O : OrderedType) : S with type key = O.t and type 'a t = (O.t, 'a) balmap