proposition: Lemma cardinal_spec m : cardinal m = length (bindings m).
proof: Proof. exact (bindings_aux_cardinal m nil). Qed.
imports: Coq(Bool Arith BinInt FunInd) Coq(Orders OrdersFacts OrdersLists) MMaps(Comparisons Interface OrdList)