author | wenzelm |
Fri, 11 Dec 2009 20:43:41 +0100 | |
changeset 34075 | 451b0c8a15cf |
parent 34070 | fb0a6419869f |
child 34076 | e3daf3c07381 |
--- 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 *)