# HG changeset patch
# User wenzelm
# Date 1011049941 -3600
# Node ID 2356740225ce4061b28d4e17c0a54fa067c848b1
# Parent  5f4fb54bfaf954a44fec6dfcc14ae8a6feebb94c
allow zero goals;

diff -r 5f4fb54bfaf9 -r 2356740225ce src/Pure/Isar/proof.ML
--- 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, []);