src/Pure/subgoal.ML
changeset 21605 4e7307e229b3
parent 20579 4dc799edef89
child 22568 ed7aa5a350ef
     1.1 --- a/src/Pure/subgoal.ML	Thu Nov 30 14:17:29 2006 +0100
     1.2 +++ b/src/Pure/subgoal.ML	Thu Nov 30 14:17:29 2006 +0100
     1.3 @@ -29,7 +29,8 @@
     1.4  
     1.5  fun focus ctxt i st =
     1.6    let
     1.7 -    val ((schematics, [st']), ctxt') = Variable.import true [norm_hhf st] ctxt;
     1.8 +    val ((schematics, [st']), ctxt') =
     1.9 +      Variable.import true [MetaSimplifier.norm_hhf_protect st] ctxt;
    1.10      val ((params, goal), ctxt'') = Variable.focus_subgoal i st' ctxt';
    1.11      val asms = Drule.strip_imp_prems goal;
    1.12      val concl = Drule.strip_imp_concl goal;