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