Mercurial Mercurial > repos > isabelle / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | gz | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
allow zero goals;
authorwenzelm
Tue, 15 Jan 2002 00:12:21 +0100
changeset 12760 2356740225ce
parent 12759 5f4fb54bfaf9
child 12761 b0c39f9837af
allow zero goals;
src/Pure/Isar/proof.ML file | annotate | diff | comparison | revisions 
--- 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, []);
isabelle