# HG changeset patch
# User wenzelm
# Date 1662491180 -7200
# Node ID 2456721602b2a916610d3f33c211beeb7acdd29c
# Parent  951abf9db8578c50d474e71403b96837138d2366
clarified goal structure with proper instantiation of main goal, to support "show_goal_inst";

diff -r 951abf9db857 -r 2456721602b2 src/Pure/ex/Guess.thy
--- a/src/Pure/ex/Guess.thy	Tue Sep 06 12:44:02 2022 +0200
+++ b/src/Pure/ex/Guess.thy	Tue Sep 06 21:06:20 2022 +0200
@@ -145,7 +145,8 @@
         |> Proof.map_context (fold Variable.unbind_term Auto_Bind.no_facts)
       end;
 
-    val goal = Var (("guess", 0), propT);
+    val guess = (("guess", 0), propT);
+    val goal = Var guess;
     val pos = Position.thread_data ();
     fun print_result ctxt' (k, [(s, [_, th])]) =
       Proof_Display.print_results int pos ctxt' (k, [(s, [th])]);
@@ -154,11 +155,13 @@
         Goal.conclude #> Raw_Simplifier.norm_hhf ctxt #>
           (fn th => Goal.protect 0 (Conjunction.intr (Drule.mk_term (Thm.cprop_of th)) th)));
     fun after_qed (result_ctxt, results) state' =
-      let val [_, res] = Proof_Context.export result_ctxt (Proof.context_of state') (flat results)
+      let
+        val [_, res] = Proof_Context.export result_ctxt (Proof.context_of state') (flat results);
+        val res' = res RS Conjunction.conjunctionD2;
       in
         state'
         |> Proof.end_block
-        |> guess_context (Obtain.check_result ctxt thesis res)
+        |> guess_context (Obtain.check_result ctxt thesis res')
       end;
   in
     state
@@ -170,8 +173,10 @@
       (SOME before_qed) after_qed
       [] [] [(Binding.empty_atts, [(Logic.mk_term goal, []), (goal, [])])]
     |> snd
-    |> Proof.refine_singleton
-        (Method.primitive_text (fn _ => fn _ => Goal.init (Thm.cterm_of ctxt thesis)))
+    |> Proof.refine_singleton (Method.Basic (fn _ => fn _ => CONTEXT_TACTIC
+        (PRIMITIVE (Thm.instantiate (TVars.empty, Vars.make [(guess, Thm.cterm_of ctxt thesis)]))
+          THEN Goal.conjunction_tac 1
+          THEN resolve_tac ctxt [Drule.termI] 1)))
   end;
 
 in