1.1 --- a/src/Pure/subgoal.ML Tue Apr 03 19:24:11 2007 +0200
1.2 +++ b/src/Pure/subgoal.ML Tue Apr 03 19:24:13 2007 +0200
1.3 @@ -30,7 +30,7 @@
1.4 fun focus ctxt i st =
1.5 let
1.6 val ((schematics, [st']), ctxt') =
1.7 - Variable.import true [MetaSimplifier.norm_hhf_protect st] ctxt;
1.8 + Variable.import_thms true [MetaSimplifier.norm_hhf_protect st] ctxt;
1.9 val ((params, goal), ctxt'') = Variable.focus_subgoal i st' ctxt';
1.10 val asms = Drule.strip_imp_prems goal;
1.11 val concl = Drule.strip_imp_concl goal;