From c7995ce712dfc3c79f96f8c9cc16147b40ca1733 Mon Sep 17 00:00:00 2001
From: Ralf Jung <jung@mpi-sws.org>
Date: Tue, 16 Feb 2016 11:27:27 +0100
Subject: [PATCH] we also need to go below mkSet for \notin

---
 prelude/sets.v | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/prelude/sets.v b/prelude/sets.v
index 758915bcd..ddd3a3cb2 100644
--- a/prelude/sets.v
+++ b/prelude/sets.v
@@ -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.
 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_bind : MBind set := λ A B (f : A → set B) (X : set A),
-- 
GitLab