Restored a proof of Pelletier #38 -- mysteriously deleted

--- a/src/HOL/ex/cla.ML	Thu May 02 10:20:15 1996 +0200
+++ b/src/HOL/ex/cla.ML	Thu May 02 12:00:37 1996 +0200
@@ -314,8 +314,10 @@
     "(! x. p(a) & (p(x) --> (? y. p(y) & r x y)) -->            \
 \          (? z. ? w. p(z) & r x w & r w z))  =                 \
 \    (! x. (~p(a) | p(x) | (? z. ? w. p(z) & r x w & r w z)) &  \
-\          (~p(a) | ~(? y. p(y) & r x y) |                              \
+\          (~p(a) | ~(? y. p(y) & r x y) |                      \
 \           (? z. ? w. p(z) & r x w & r w z)))";
+by (deepen_tac HOL_cs 0 1);  (*beats fast_tac!*)
+result();
 
 writeln"Problem 39";
 goal HOL.thy "~ (? x. ! y. F y x = (~ F y y))";