From 7e0bf4c5459c6d91b11b2de6260f1c0a18c4817f Mon Sep 17 00:00:00 2001
From: Reynald Affeldt <reynald.affeldt@aist.go.jp>
Date: Thu, 20 Jan 2022 12:27:54 +0900
Subject: [PATCH] fixes #515

---
 theories/boolp.v | 79 ------------------------------------------------
 1 file changed, 79 deletions(-)

diff --git a/theories/boolp.v b/theories/boolp.v
index b63f6eec4..f23369d93 100644
--- a/theories/boolp.v
+++ b/theories/boolp.v
@@ -536,7 +536,6 @@ Definition ex_in C B x y :=  let: F^* := B in (C && F)^*.
 
 End Definitions.
 
-
 Notation "`[ x | B ]" := (quant0p (fun x => B x)) (at level 0, x ident).
 Notation "`[ x : T | B ]" := (quant0p (fun x : T => B x)) (at level 0, x ident).
 
@@ -790,84 +789,6 @@ Lemma xchoosebP {T : choiceType} (P : pred T) (h : `[exists x, P x]) :
   P (xchooseb h).
 Proof. exact/xchooseP. Qed.
 
-(* -------------------------------------------------------------------- *)
-
-(* Notation "'exists_ view" := (existsPP (fun _ => view))
-  (at level 4, right associativity, format "''exists_' view").
-Notation "'forall_ view" := (forallPP (fun _ => view))
-  (at level 4, right associativity, format "''forall_' view").
-
-
-Section Quantifiers.
-
-Variables (T : Type) (rT : T -> eqType).
-Implicit Type (D P : rset T) (f : forall x, rT x).
-
-Lemma forallP P : reflect (forall x, P x) [forall x, P x].
-Proof.
-About forallPP.
-have:= (forallPP (fun x => (asboolP (P x)))).
-exact: 'forall_asboolP. Qed.
-
-Lemma eqfunP f1 f2 : reflect (forall x, f1 x = f2 x) [forall x, f1 x == f2 x].
-Proof. exact: 'forall_eqP. Qed.
-
-Lemma forall_inP D P : reflect (forall x, D x -> P x) [forall (x | D x), P x].
-Proof. exact: 'forall_implyP. Qed.
-
-Lemma eqfun_inP D f1 f2 :
-  reflect {in D, forall x, f1 x = f2 x} [forall (x | x \in D), f1 x == f2 x].
-Proof. by apply: (iffP 'forall_implyP) => eq_f12 x Dx; apply/eqP/eq_f12. Qed.
-
-Lemma existsP P : reflect (exists x, P x) [exists x, P x].
-Proof. exact: 'exists_idP. Qed.
-
-Lemma exists_eqP f1 f2 :
-  reflect (exists x, f1 x = f2 x) [exists x, f1 x == f2 x].
-
-Proof. exact: 'exists_eqP. Qed.
-
-Lemma exists_inP D P : reflect (exists2 x, D x & P x) [exists (x | D x), P x].
-Proof. by apply: (iffP 'exists_andP) => [[x []] | [x]]; exists x. Qed.
-
-Lemma exists_eq_inP D f1 f2 :
-  reflect (exists2 x, D x & f1 x = f2 x) [exists (x | D x), f1 x == f2 x].
-Proof. by apply: (iffP (exists_inP _ _)) => [] [x Dx /eqP]; exists x. Qed.
-
-Lemma eq_existsb P1 P2 : P1 =1 P2 -> [exists x, P1 x] = [exists x, P2 x].
-Proof. by move=> eqP12; congr (_ != 0); apply: eq_card. Qed.
-
-Lemma eq_existsb_in D P1 P2 :
-    (forall x, D x -> P1 x = P2 x) ->
-  [exists (x | D x), P1 x] = [exists (x | D x), P2 x].
-Proof. by move=> eqP12; apply: eq_existsb => x; apply: andb_id2l => /eqP12. Qed.
-
-Lemma eq_forallb P1 P2 : P1 =1 P2 -> [forall x, P1 x] = [forall x, P2 x].
-Proof. by move=> eqP12; apply/negb_inj/eq_existsb=> /= x; rewrite eqP12. Qed.
-
-Lemma eq_forallb_in D P1 P2 :
-    (forall x, D x -> P1 x = P2 x) ->
-  [forall (x | D x), P1 x] = [forall (x | D x), P2 x].
-Proof.
-by move=> eqP12; apply: eq_forallb => i; case Di: (D i); rewrite // eqP12.
-Qed.
-
-Lemma negb_forall P : ~~ [forall x, P x] = [exists x, ~~ P x].
-Proof. by []. Qed.
-
-Lemma negb_forall_in D P :
-  ~~ [forall (x | D x), P x] = [exists (x | D x), ~~ P x].
-Proof. by apply: eq_existsb => x; rewrite negb_imply. Qed.
-
-Lemma negb_exists P : ~~ [exists x, P x] = [forall x, ~~ P x].
-Proof. by apply/negbLR/esym/eq_existsb=> x; apply: negbK. Qed.
-
-Lemma negb_exists_in D P :
-  ~~ [exists (x | D x), P x] = [forall (x | D x), ~~ P x].
-Proof. by rewrite negb_exists; apply/eq_forallb => x; rewrite [~~ _]fun_if. Qed.
-
-End Quantifiers. *)
-
 (* -------------------------------------------------------------------- *)
 (* FIXME: to be moved                                                   *)
 Lemma imsetbP (T : Type) (U : eqType) (f : T -> U) v :