# HG changeset patch
# User nipkow
# Date 866190913 -7200
# Node ID d68dbb8f22d3f53b8120bbdca1f7624009ae22bb
# Parent  ef4fe2a77e0151c788255ca9111f6e1ae662aa6a
Tuned wf_iff_no_infinite_down_chain proof, based on Konrads ideas.
Added selectI2EX.

diff -r ef4fe2a77e01 -r d68dbb8f22d3 src/HOL/HOL.ML
--- a/src/HOL/HOL.ML	Fri Jun 13 10:04:37 1997 +0200
+++ b/src/HOL/HOL.ML	Fri Jun 13 10:35:13 1997 +0200
@@ -262,6 +262,11 @@
  (fn prems => [ rtac selectI2 1, 
                 REPEAT (ares_tac prems 1) ]);
 
+(*Easier to apply than selectI2 if witness ?a comes from an EX-formula*)
+qed_goal "selectI2EX" HOL.thy
+  "[| ? a.P a; !!x. P x ==> Q x |] ==> Q(Eps P)"
+(fn [major,minor] => [rtac (major RS exE) 1, etac selectI2 1, etac minor 1]);
+
 qed_goal "select_eq_Ex" HOL.thy "P (@ x. P x) =  (? x. P x)" (fn prems => [
         rtac iffI 1,
         etac exI 1,
diff -r ef4fe2a77e01 -r d68dbb8f22d3 src/HOL/WF_Rel.ML
--- a/src/HOL/WF_Rel.ML	Fri Jun 13 10:04:37 1997 +0200
+++ b/src/HOL/WF_Rel.ML	Fri Jun 13 10:35:13 1997 +0200
@@ -136,22 +136,18 @@
 be swap 1;
 be exE 1;
 by(rename_tac "x" 1);
-by(subgoal_tac
- "!i. nat_rec x (%i y. @z. z:Q & (z,y):r) (Suc i) : Q & \
-\     (nat_rec x (%i y. @z. z:Q & (z,y):r) (Suc i),\
-\      nat_rec x (%i y. @z. z:Q & (z,y):r) i): r" 1);
+by(subgoal_tac "!n. nat_rec x (%i y. @z. z:Q & (z,y):r) n : Q" 1);
+ by (res_inst_tac[("x","nat_rec x (%i y. @z. z:Q & (z,y):r)")]exI 1);
+ br allI 1;
+ by(Simp_tac 1);
+ br selectI2EX 1;
+  by(Blast_tac 1);
  by(Blast_tac 1);
 br allI 1;
-by(induct_tac "i" 1);
+by(induct_tac "n" 1);
  by(Asm_simp_tac 1);
- by(subgoal_tac "? y. y : Q & (y,x):r" 1);
-  by(Blast_tac 2);
- be exE 1;
- be selectI 1;
-by(subgoal_tac "? y.y:Q & (y,nat_rec x (%i y. @z. z:Q & (z,y):r)(Suc i)):r" 1);
- by(Blast_tac 2);
-by(Asm_full_simp_tac 1);
-be exE 1;
-(* `be selectI 1' takes a long time; hence the instantiation: *)
-by (eres_inst_tac[("P","%u.u:Q & (u,?v):r")]selectI 1);
+by(Simp_tac 1);
+br selectI2EX 1;
+ by(Blast_tac 1);
+by(Blast_tac 1);
 qed "wf_iff_no_infinite_down_chain";