src/Pure/subgoal.ML
changeset 22568 ed7aa5a350ef
parent 21605 4e7307e229b3
child 29606 fedb8be05f24
--- a/src/Pure/subgoal.ML	Tue Apr 03 19:24:11 2007 +0200
+++ b/src/Pure/subgoal.ML	Tue Apr 03 19:24:13 2007 +0200
@@ -30,7 +30,7 @@
 fun focus ctxt i st =
   let
     val ((schematics, [st']), ctxt') =
-      Variable.import true [MetaSimplifier.norm_hhf_protect st] ctxt;
+      Variable.import_thms true [MetaSimplifier.norm_hhf_protect st] ctxt;
     val ((params, goal), ctxt'') = Variable.focus_subgoal i st' ctxt';
     val asms = Drule.strip_imp_prems goal;
     val concl = Drule.strip_imp_concl goal;