# HG changeset patch
# User wenzelm
# Date 1562242847 -7200
# Node ID 421727c19b23cf650622899522fda594a895bf8b
# Parent  34b271c4f400e07606ca3a6bad5178f55642686b
proper theory naming after join (reset due to merge_data);

diff -r 34b271c4f400 -r 421727c19b23 src/Pure/theory.ML
--- a/src/Pure/theory.ML	Thu Jul 04 12:31:24 2019 +0200
+++ b/src/Pure/theory.ML	Thu Jul 04 14:20:47 2019 +0200
@@ -171,7 +171,9 @@
 
 (* join theory *)
 
-val join_theory = foldl1 Context.join_thys;
+fun join_theory [] = raise List.Empty
+  | join_theory [thy] = thy
+  | join_theory thys = foldl1 Context.join_thys thys |> Sign.restore_naming (hd thys);
 
 
 (* begin/end theory *)