proposition: Lemma remove_fold_1: mem x s=true -> eqA (f x (fold f (remove x s) i)) (fold f s i).
proof: Proof. intros; apply remove_fold_1 with (eqA:=eqA); auto with set. Qed.
imports: MSetProperties Zerob Sumbool Lia DecidableTypeEx