# HG changeset patch
# User wenzelm
# Date 1441301265 -7200
# Node ID 1c98bfc5d7438fe9b5ca8e16fa38ed2357d88c0a
# Parent  8ed21464e260b4ca128e3e35a7a419d3a3031cc8
proper restore_naming after global qed, which is important to make Name_Space.transform_naming work properly, e.g. for "private typedef";

diff -r 8ed21464e260 -r 1c98bfc5d743 src/Pure/Isar/proof.ML
--- 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