Removal of (EX x. P) <-> P and (ALL x. P) <-> P
authorpaulson
Mon, 09 Sep 1996 10:59:32 +0200
changeset 1961 d33a5d59a29a
parent 1960 ae390b599213
child 1962 e60a230da179
Removal of (EX x. P) <-> P and (ALL x. P) <-> P from ex_simps and all_simps. as they are already in quant_simps.
src/FOL/simpdata.ML
--- a/src/FOL/simpdata.ML	Fri Sep 06 11:56:12 1996 +0200
+++ b/src/FOL/simpdata.ML	Mon Sep 09 10:59:32 1996 +0200
@@ -138,8 +138,7 @@
 
 (*Miniscoping: pushing in existential quantifiers*)
 val ex_simps = map prove_fun 
-                ["(EX x. P) <-> P",
-                 "(EX x. P(x) & Q) <-> (EX x.P(x)) & Q",
+                ["(EX x. P(x) & Q) <-> (EX x.P(x)) & Q",
                  "(EX x. P & Q(x)) <-> P & (EX x.Q(x))",
                  "(EX x. P(x) | Q) <-> (EX x.P(x)) | Q",
                  "(EX x. P | Q(x)) <-> P | (EX x.Q(x))",
@@ -148,8 +147,7 @@
 
 (*Miniscoping: pushing in universal quantifiers*)
 val all_simps = map prove_fun
-                ["(ALL x. P) <-> P",
-                 "(ALL x. P(x) & Q) <-> (ALL x.P(x)) & Q",
+                ["(ALL x. P(x) & Q) <-> (ALL x.P(x)) & Q",
                  "(ALL x. P & Q(x)) <-> P & (ALL x.Q(x))",
                  "(ALL x. P(x) | Q) <-> (ALL x.P(x)) | Q",
                  "(ALL x. P | Q(x)) <-> P | (ALL x.Q(x))",