src/Pure/Isar/proof.ML
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, []);