fact: Fixpoint remove_min l x d r : t*(key*elt) := match l with | Leaf _ => (r,(x,d)) | Node lh ll lx ld lr => let (l',m) := remove_min ll lx ld lr in (bal l' x d r, m) end.
imports: Coq(Bool PeanoNat BinInt FunInd Int) Coq(Orders OrdersFacts OrdersLists) MMaps(Utils Interface OrdList GenTree)