fact: Fixpoint for_all (f:key->elt->bool) s := match s with | Leaf => true | Node _ l x e r => f x e &&& for_all f l &&& for_all f r end.
imports: Coq(Bool Arith BinInt FunInd) Coq(Orders OrdersFacts OrdersLists) MMaps(Comparisons Interface OrdList)