fact: Fixpoint equal_cont m1 (cont:enumeration->bool) e2 := match m1 with | Leaf => cont e2 | Node _ l1 x1 v1 r1 => equal_cont l1 (equal_more x1 v1 (equal_cont r1 cont)) e2 end.
imports: Coq(Bool Arith BinInt FunInd) Coq(Orders OrdersFacts OrdersLists) MMaps(Comparisons Interface OrdList)