# HG changeset patch
# User wenzelm
# Date 1224189876 -7200
# Node ID 63663cfa297c941641a5b0bb8b21dfeac4c8f44c
# Parent  f65736dfc40d59eb464b3682caddbde8e9c16dcb
conclude_goal: precise goal context, include all sorts from context into statement,  check shyps of result;

diff -r f65736dfc40d -r 63663cfa297c src/Pure/Isar/proof.ML
--- a/src/Pure/Isar/proof.ML	Thu Oct 16 22:44:35 2008 +0200
+++ b/src/Pure/Isar/proof.ML	Thu Oct 16 22:44:36 2008 +0200
@@ -467,10 +467,9 @@
 
 (* conclude_goal *)
 
-fun conclude_goal state goal propss =
+fun conclude_goal ctxt goal propss =
   let
-    val thy = theory_of state;
-    val ctxt = context_of state;
+    val thy = ProofContext.theory_of ctxt;
     val string_of_term = Syntax.string_of_term ctxt;
     val string_of_thm = ProofContext.string_of_thm ctxt;
 
@@ -495,6 +494,7 @@
       handle THM _ => lost_structure ();
     val _ = Unify.matches_list thy (flat goal_propss) (map Thm.prop_of (flat results)) orelse
       error ("Proved a different theorem:\n" ^ string_of_thm th);
+    val _ = Thm.check_shyps (Variable.sorts_of ctxt) th;
 
     fun recover_result ([] :: pss) thss = [] :: recover_result pss thss
       | recover_result (_ :: pss) (ths :: thss) = ths :: recover_result pss thss
@@ -807,7 +807,8 @@
 
     val propss' = map (Logic.mk_term o Var) vars :: propss;
     val goal_propss = filter_out null propss';
-    val goal = cert (Logic.mk_conjunction_balanced (map Logic.mk_conjunction_balanced goal_propss));
+    val goal = cert (Logic.mk_conjunction_balanced (map Logic.mk_conjunction_balanced goal_propss))
+      |> Thm.weaken_sorts (Variable.sorts_of (context_of goal_state));
     val statement = ((kind, pos), propss', goal);
     val after_qed' = after_qed |>> (fn after_local =>
       fn results => map_context after_ctxt #> after_local results);
@@ -836,7 +837,7 @@
       flat (tl stmt)
       |> Variable.exportT_terms goal_ctxt outer_ctxt;
     val results =
-      tl (conclude_goal state goal stmt)
+      tl (conclude_goal goal_ctxt goal stmt)
       |> burrow (ProofContext.export goal_ctxt outer_ctxt);
 
     val (after_local, after_global) = after_qed;