# HG changeset patch
# User paulson
# Date 860582068 -7200
# Node ID f675fb52727ba22e95ab52ef572fb2bcf6952ad2
# Parent  580647a879cf1c92c422be7649f5758f029c33a2
Explicit depth bounds seem necessary

diff -r 580647a879cf -r f675fb52727b src/FOL/ex/cla.ML
--- a/src/FOL/ex/cla.ML	Wed Apr 09 12:32:04 1997 +0200
+++ b/src/FOL/ex/cla.ML	Wed Apr 09 12:34:28 1997 +0200
@@ -512,7 +512,7 @@
 \                 ((C(y) & Q(w,y,y)) & OO(w,b) --> P(v,y) & OO(v,b))))) \
 \  -->                  \
 \  ~ (EX x. A(x) & (ALL y. C(y) --> (ALL z. D(x,y,z))))";
-by (Blast_tac 1);
+by (Blast.depth_tac (!claset) 12 1);
 result();
 
 
@@ -539,7 +539,7 @@
 \                        (C(y) & ~P(y,y) --> P(u,y) & OO(u,b))))) \
 \  -->                                                            \
 \  ~ (EX x. A(x) & (ALL y. C(y) --> (ALL z. D(x,y,z))))";
-by (Blast_tac 1);
+by (Blast.depth_tac(!claset) 7 1);
 result();
 
 (* Challenge found on info-hol *)
@@ -559,4 +559,5 @@
 (*Tue Mar  4 1997: loaded in 89s (on pochard) *)
 (*Thu Apr  3 1997: loaded in 44s (on pochard)--using mostly Blast_tac*)
 (*Thu Apr  3 1997: loaded in 96s (on pochard)--addition of two Halting Probs*)
+(*Thu Apr  3 1997: loaded in 98s (on pochard)--using lim-1 for all haz rules*)