# HG changeset patch
# User wenzelm
# Date 1320010518 -3600
# Node ID ca9e66c523a25b1b0e24552f7e4e10a22cffdcdc
# Parent  adaf2184b79d989dc168f81e46af138b04d4c519
even more uniform Local_Theory.declaration for locales (cf. 57def0b39696, aa35859c8741);

diff -r adaf2184b79d -r ca9e66c523a2 src/Pure/Isar/named_target.ML
--- a/src/Pure/Isar/named_target.ML	Sun Oct 30 22:20:45 2011 +0100
+++ b/src/Pure/Isar/named_target.ML	Sun Oct 30 22:35:18 2011 +0100
@@ -46,19 +46,21 @@
 
 (* generic declarations *)
 
-fun locale_declaration locale {syntax, pervasive} decl lthy =
+fun locale_declaration locale syntax decl lthy =
   let
     val add = if syntax then Locale.add_syntax_declaration else Locale.add_declaration;
     val locale_decl = Morphism.transform (Local_Theory.target_morphism lthy) decl;
   in
     lthy
-    |> pervasive ? Generic_Target.theory_declaration decl
     |> Local_Theory.target (add locale locale_decl)
   end;
 
-fun target_declaration (Target {target, ...}) params =
-  if target = "" then Generic_Target.theory_declaration
-  else locale_declaration target params;
+fun target_declaration (Target {target, ...}) {syntax, pervasive} decl =
+  if target = "" then Generic_Target.theory_declaration decl
+  else
+    locale_declaration target syntax decl
+    #> pervasive ? Generic_Target.theory_declaration decl
+    #> not pervasive ? Context.proof_map (Morphism.form decl);
 
 
 (* consts in locales *)
@@ -89,7 +91,7 @@
   end;
 
 fun locale_const_declaration (ta as Target {target, ...}) prmode arg =
-  locale_declaration target {syntax = true, pervasive = false} (locale_const ta prmode arg);
+  locale_declaration target true (locale_const ta prmode arg);
 
 
 (* define *)