clarified vacuous binding;
authorwenzelm
Wed, 02 Sep 2015 15:49:12 +0200
changeset 61081 56ce4474edbc
parent 61080 3bccde9cbb9d
child 61082 42c2698d2273
clarified vacuous binding;
src/Pure/Isar/locale.ML
--- a/src/Pure/Isar/locale.ML	Wed Sep 02 13:26:29 2015 +0200
+++ b/src/Pure/Isar/locale.ML	Wed Sep 02 15:49:12 2015 +0200
@@ -608,8 +608,7 @@
 
 fun add_decl loc decl =
   add_thmss loc ""
-    [((Binding.concealed Binding.empty,
-        [Attrib.internal (fn phi => Thm.declaration_attribute (K (decl phi)))]),
+    [((Binding.empty, [Attrib.internal (fn phi => Thm.declaration_attribute (K (decl phi)))]),
       [([Drule.dummy_thm], [])])];
 
 in