# HG changeset patch
# User paulson
# Date 854727430 -3600
# Node ID 3a832a3c6376daa785f596c3d1fa02e22813dd2d
# Parent  f3e04805895a4387a1a20c4f7a575c6c26a670be
Correction to Problem 24

diff -r f3e04805895a -r 3a832a3c6376 src/FOL/ex/cla.ML
--- a/src/FOL/ex/cla.ML	Fri Jan 31 17:15:55 1997 +0100
+++ b/src/FOL/ex/cla.ML	Fri Jan 31 17:17:10 1997 +0100
@@ -207,7 +207,7 @@
 
 writeln"Problem 24";
 goal FOL.thy "~(EX x. S(x)&Q(x)) & (ALL x. P(x) --> Q(x)|R(x)) &  \
-\    ~(EX x.P(x)) --> (EX x.Q(x)) & (ALL x. Q(x)|R(x) --> S(x))  \
+\    (~(EX x.P(x)) --> (EX x.Q(x))) & (ALL x. Q(x)|R(x) --> S(x))  \
 \   --> (EX x. P(x)&R(x))";
 by (Fast_tac 1); 
 result();
diff -r f3e04805895a -r 3a832a3c6376 src/FOLP/ex/cla.ML
--- a/src/FOLP/ex/cla.ML	Fri Jan 31 17:15:55 1997 +0100
+++ b/src/FOLP/ex/cla.ML	Fri Jan 31 17:17:10 1997 +0100
@@ -192,7 +192,7 @@
 
 writeln"Problem 24";
 goal FOLP.thy "?p : ~(EX x. S(x)&Q(x)) & (ALL x. P(x) --> Q(x)|R(x)) &  \
-\    ~(EX x.P(x)) --> (EX x.Q(x)) & (ALL x. Q(x)|R(x) --> S(x))  \
+\    (~(EX x.P(x)) --> (EX x.Q(x))) & (ALL x. Q(x)|R(x) --> S(x))  \
 \   --> (EX x. P(x)&R(x))";
 by (fast_tac FOLP_cs 1); 
 result();