fact: Fixpoint below {elt} x (m : t elt) := match m with | Leaf _ => true | Node _ l y _ r => match K.compare x y with | Lt => below x l && below x r | _ => false end end.
imports: Coq(Bool Arith BinInt FunInd) Coq(Orders OrdersFacts OrdersLists) MMaps(Comparisons Interface OrdList)