fact: Fixpoint find x m : option elt := match m with | Leaf => None | Node _ l y v r => match K.compare x y with | Eq => Some v | Lt => find x l | Gt => find x r end end.
imports: Coq(Bool Arith BinInt FunInd) Coq(Orders OrdersFacts OrdersLists) MMaps(Comparisons Interface OrdList)