fact: Fixpoint bindings_aux acc s := match s with | Leaf => acc | Node _ l x e r => bindings_aux ((x,e) :: bindings_aux acc r) l end.
imports: Coq(Bool Arith BinInt FunInd) Coq(Orders OrdersFacts OrdersLists) MMaps(Comparisons Interface OrdList)