proposition: Lemma singleton_o1 x e : find x (singleton x e) = Some e.
proof: Proof. now rewrite find_spec, singleton_mapsto_iff. Qed.
imports: Coq(Bool Equalities Orders OrdersFacts OrdersLists) Coq(Morphisms Permutation SetoidPermutation) MMaps(Utils Comparisons Interface)