changeset 12760 | 2356740225ce |
parent 12714 | 61af28328417 |
child 12808 | a529b4b91888 |
--- a/src/Pure/Isar/proof.ML Tue Jan 15 00:11:52 2002 +0100 +++ b/src/Pure/Isar/proof.ML Tue Jan 15 00:12:21 2002 +0100 @@ -643,7 +643,7 @@ |> map_context_result (fn ctxt => prepp (ctxt, raw_propp)); val props = flat propss; - val cprop = Thm.cterm_of (sign_of state') (foldr1 Logic.mk_conjunction props); + val cprop = Thm.cterm_of (sign_of state') (Logic.mk_conjunction_list props); val goal = Drule.mk_triv_goal cprop; val tvars = foldr Term.add_term_tvars (props, []);