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.
proper restore_naming after global qed, which is important to make Name_Space.transform_naming work properly, e.g. for "private typedef";
authorwenzelm
Thu, 03 Sep 2015 19:27:45 +0200
changeset 61109 1c98bfc5d743
parent 61103 8ed21464e260
child 61110 6b7c2ecc6aea
proper restore_naming after global qed, which is important to make Name_Space.transform_naming work properly, e.g. for "private typedef";
src/Pure/Isar/proof.ML file | annotate | diff | comparison | revisions 
--- a/src/Pure/Isar/proof.ML	Thu Sep 03 17:32:18 2015 +0200
+++ b/src/Pure/Isar/proof.ML	Thu Sep 03 19:27:45 2015 +0200
@@ -1083,8 +1083,9 @@
     val goal_ctxt = ctxt
       |> (fold o fold) Variable.auto_fixes propss
       |> fold Variable.bind_term binds;
-    fun after_qed' (result_ctxt, results) ctxt' =
-      after_qed (burrow (Proof_Context.export result_ctxt ctxt') results) ctxt';
+    fun after_qed' (result_ctxt, results) ctxt' = ctxt'
+      |> Proof_Context.restore_naming ctxt
+      |> after_qed (burrow (Proof_Context.export result_ctxt ctxt') results);
   in
     ctxt
     |> init
isabelle