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;