diff --git a/theories/sets.v b/theories/sets.v index b967531b8c5084c1b4cfa7e8c84f94b79fab6d6a..bb9c9ddd102c9267d4e632927f6a1bf63eb0aa69 100644 --- a/theories/sets.v +++ b/theories/sets.v @@ -18,9 +18,9 @@ Instance set_difference {A} : Difference (set A) := λ X1 X2, Instance set_collection : Collection A (set A). Proof. by split; [split | |]; repeat intro. Qed. -Lemma mkSet_elem_of {A} (f : A → Prop) x : f x → x ∈ mkSet f. +Lemma mkSet_elem_of {A} (f : A → Prop) x : (x ∈ mkSet f) = f x. Proof. done. Qed. -Lemma mkSet_not_elem_of {A} (f : A → Prop) x : ¬f x → x ∉ mkSet f. +Lemma mkSet_not_elem_of {A} (f : A → Prop) x : (x ∉ mkSet f) = (¬f x). Proof. done. Qed. Instance set_ret : MRet set := λ A (x : A), {[ x ]}.