Commit 0b7821f1 authored by Ralf Jung's avatar Ralf Jung

we also need to go below mkSet for \notin

parent 39654079
...@@ -20,6 +20,8 @@ Proof. by split; [split | |]; repeat intro. Qed. ...@@ -20,6 +20,8 @@ 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 : f x x mkSet f.
Proof. done. Qed. Proof. done. Qed.
Lemma mkSet_not_elem_of {A} (f : A Prop) x : ~f x x mkSet f.
Proof. done. Qed.
Instance set_ret : MRet set := λ A (x : A), {[ x ]}. Instance set_ret : MRet set := λ A (x : A), {[ x ]}.
Instance set_bind : MBind set := λ A B (f : A set B) (X : set A), Instance set_bind : MBind set := λ A B (f : A set B) (X : set A),
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment