# HG changeset patch
# User wenzelm
# Date 971912906 -7200
# Node ID cc20c9d7e682219bf18a596a4712e6f309d7782d
# Parent  ca52783f9801dadda05c40c60d46a8ee972e4fbb
use RecdefPackage.tcs_of;

diff -r ca52783f9801 -r cc20c9d7e682 src/HOL/Library/While_Combinator.thy
--- a/src/HOL/Library/While_Combinator.thy	Thu Oct 19 01:47:50 2000 +0200
+++ b/src/HOL/Library/While_Combinator.thy	Thu Oct 19 01:48:26 2000 +0200
@@ -35,13 +35,13 @@
 
 ML_setup {*
   goalw_cterm [] (cterm_of (sign_of (the_context ()))
-    (HOLogic.mk_Trueprop (hd while_aux.tcs)));
+    (HOLogic.mk_Trueprop (hd (RecdefPackage.tcs_of (the_context ()) "while_aux"))));
   br wf_same_fstI 1;
   br wf_same_fstI 1;
   by (asm_full_simp_tac (simpset() addsimps [wf_iff_no_infinite_down_chain]) 1);
   by (Blast_tac 1);
   qed "while_aux_tc";
-*} (* FIXME cannot prove recdef tcs in Isar yet! *)
+*} (* FIXME cannot access recdef tcs in Isar yet! *)
 
 lemma while_aux_unfold:
   "while_aux (b, c, s) =