src/Pure/subgoal.ML
changeset 20301 66b2a1f16bbb
parent 20231 dcdd565a7fbe
child 20579 4dc799edef89
     1.1 --- a/src/Pure/subgoal.ML	Wed Aug 02 22:26:54 2006 +0200
     1.2 +++ b/src/Pure/subgoal.ML	Wed Aug 02 22:26:55 2006 +0200
     1.3 @@ -30,7 +30,7 @@
     1.4  fun focus ctxt i st =
     1.5    let
     1.6      val ((schematics, [st']), ctxt') = Variable.import true [norm_hhf st] ctxt;
     1.7 -    val ((params, goal), ctxt'') = Variable.focus (Thm.cprem_of st' i) ctxt';
     1.8 +    val ((params, goal), ctxt'') = Variable.focus_subgoal i st' ctxt';
     1.9      val asms = Drule.strip_imp_prems goal;
    1.10      val concl = Drule.strip_imp_concl goal;
    1.11      val (prems, context) = Assumption.add_assumes asms ctxt'';