fact: Fixpoint xbindings (m : t A) (i : positive) (a: list (key*A)) := match m with | Leaf => a | Node l None r => xbindings l i~0 (xbindings r i~1 a) | Node l (Some e) r => xbindings l i~0 ((rev i,e) :: xbindings r i~1 a) end.
imports: Coq(Bool PeanoNat BinPos Orders OrdersEx OrdersLists) MMaps(Utils Comparisons Interface)