Subgoal.FOCUS etc.: resulting goal state is normalized as usual for resolution;
authorwenzelm
Fri, 11 Dec 2009 20:43:41 +0100
changeset 34075 451b0c8a15cf
parent 34070 fb0a6419869f
child 34076 e3daf3c07381
Subgoal.FOCUS etc.: resulting goal state is normalized as usual for resolution;
src/Pure/subgoal.ML
--- a/src/Pure/subgoal.ML	Fri Dec 11 15:36:24 2009 +0100
+++ b/src/Pure/subgoal.ML	Fri Dec 11 20:43:41 2009 +0100
@@ -125,7 +125,7 @@
       |> fold (Thm.forall_elim o #2) subgoal_inst
       |> Thm.adjust_maxidx_thm idx
       |> singleton (Variable.export ctxt2 ctxt0);
-  in Thm.compose_no_flatten false (result, Thm.nprems_of st1) i st0 end;
+  in Thm.bicompose false (false, result, Thm.nprems_of st1) i st0 end;
 
 
 (* tacticals *)