fact: Fixpoint add x d m := match m with | Leaf _ => Node 1 (Leaf _) x d (Leaf _) | Node h l y d' r => match K.compare x y with | Eq => Node h l y d r | Lt => bal (add x d l) y d' r | Gt => bal l y d' (add x d r) end end.
imports: Coq(Bool PeanoNat BinInt FunInd Int) Coq(Orders OrdersFacts OrdersLists) MMaps(Utils Interface OrdList GenTree)