# HG changeset patch
# User wenzelm
# Date 1662370601 -7200
# Node ID 7cf72240cdd476c98c96dead4725a2c703a9dccf
# Parent  d45a45eb1aee781cce306f72f285dabcafbac11c
tuned;

diff -r d45a45eb1aee -r 7cf72240cdd4 src/Pure/Isar/proof.ML
--- a/src/Pure/Isar/proof.ML	Mon Sep 05 11:09:35 2022 +0200
+++ b/src/Pure/Isar/proof.ML	Mon Sep 05 11:36:41 2022 +0200
@@ -1008,12 +1008,12 @@
     val pos = Position.thread_data ();
 
     val goal_props = flat goal_propss;
-    val vars = implicit_vars goal_props;
-    val propss' = vars :: goal_propss;
-    val goal_propss = filter_out null propss';
+    val goal_vars = implicit_vars goal_props;
+    val propss' = goal_vars :: goal_propss;
+    val goal_propss' = filter_out null propss';
 
     val goal =
-      Logic.mk_conjunction_balanced (map Logic.mk_conjunction_balanced goal_propss)
+      Logic.mk_conjunction_balanced (map Logic.mk_conjunction_balanced goal_propss')
       |> Thm.cterm_of goal_ctxt
       |> Thm.weaken_sorts' goal_ctxt;
     val statement = ((kind, pos), propss', Thm.term_of goal);
@@ -1034,8 +1034,8 @@
     |> set_goal (make_goal (statement, [], Goal.init goal, before_qed, after_qed'))
     |> chaining ? (`the_facts #-> using_facts)
     |> reset_facts
-    |> not (null vars) ? refine_terms (length goal_propss)
-    |> null goal_props ? refine_singleton (Method.Basic Method.assumption)
+    |> not (null goal_vars) ? refine_terms (length goal_propss')
+    |> forall null goal_propss' ? refine_singleton (Method.Basic Method.assumption)
   end;
 
 fun generic_qed state =