src/Pure/Isar/locale.ML

--- a/src/Pure/Isar/locale.ML	Mon Mar 30 22:34:59 2015 +0200
+++ b/src/Pure/Isar/locale.ML	Tue Mar 31 00:11:54 2015 +0200
@@ -592,7 +592,7 @@
 
 fun add_decl loc decl =
   add_thmss loc ""
-    [((Binding.conceal Binding.empty,
+    [((Binding.concealed Binding.empty,
         [Attrib.internal (fn phi => Thm.declaration_attribute (K (decl phi)))]),
       [([Drule.dummy_thm], [])])];