src/Pure/Isar/named_target.ML
changeset 45375 7fe19930dfc9
parent 45353 68f3e073ee21
child 45390 e29521ef9059
--- a/src/Pure/Isar/named_target.ML	Sun Nov 06 21:17:45 2011 +0100
+++ b/src/Pure/Isar/named_target.ML	Sun Nov 06 21:51:46 2011 +0100
@@ -117,7 +117,7 @@
 
 fun locale_notes locale kind global_facts local_facts lthy =
   let
-    val global_facts' = Attrib.map_facts (K I) global_facts;
+    val global_facts' = Attrib.map_facts (K (Thm.mixed_attribute I)) global_facts;
     val local_facts' = Element.facts_map
       (Element.transform_ctxt (Local_Theory.target_morphism lthy)) local_facts;
   in