Parameters
Signature
Sourcetype ('a, 'b) t = private | Leaf| Node of ('a, 'b) t * 'a T.t * 'b * ('a, 'b) t * int
Sourceval merge : ('a, 'b) t -> ('a, 'b) t -> ('a, 'b) t Sourceval insert : 'a T.t -> 'b -> ('a, 'b) t -> ('a, 'b) t Sourceval pop : ('a, 'b) t -> ('a T.t * 'b * ('a, 'b) t) option Sourcetype ('a, 'b) pop2 = | Head of 'a T.t * 'b * 'a T.t * 'b * ('a, 'b) t| Tail of 'a T.t * 'b| Done