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