src/CCL/Wfd.thy
changeset 26391 6e8aa5a4eb82
parent 24825 c4f13ab78f9d
child 27146 443c19953137
--- a/src/CCL/Wfd.thy	Tue Mar 25 12:14:17 2008 +0100
+++ b/src/CCL/Wfd.thy	Tue Mar 25 19:39:57 2008 +0100
@@ -539,8 +539,8 @@
   apply (unfold let_def)
   apply (rule 1 [THEN canonical])
   apply (tactic {*
-    REPEAT (DEPTH_SOLVE_1 (resolve_tac (thms "prems" @ thms "eval_rls") 1 ORELSE
-                           etac (thm "substitute") 1)) *})
+    REPEAT (DEPTH_SOLVE_1 (resolve_tac (@{thms assms} @ @{thms eval_rls}) 1 ORELSE
+      etac @{thm substitute} 1)) *})
   done
 
 lemma fixV: "f(fix(f)) ---> c ==> fix(f) ---> c"