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