Mercurial Mercurial > repos > isabelle / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | gz | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
use RecdefPackage.tcs_of;
authorwenzelm
Thu, 19 Oct 2000 01:48:26 +0200
changeset 10269 cc20c9d7e682
parent 10268 ca52783f9801
child 10270 6086be03a80b
use RecdefPackage.tcs_of;
src/HOL/Library/While_Combinator.thy file | annotate | diff | comparison | revisions 
--- 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) =
isabelle