fact: Fixpoint map {elt elt'}(f : elt -> elt')(m : t elt) : t elt' := match m with | Leaf _ => Leaf _ | Node h l x d r => Node h (map f l) x (f d) (map f r) end.
imports: Coq(Bool Arith BinInt FunInd) Coq(Orders OrdersFacts OrdersLists) MMaps(Comparisons Interface OrdList)