do not check vacous bindings, which routinely occur in locale expressions and long theorem statements etc.;
authorwenzelm
Fri, 15 Jul 2011 00:03:47 +0200
changeset 43837 1183951365de
parent 43836 136ac1de4cbc
child 43838 1c18d52204be
do not check vacous bindings, which routinely occur in locale expressions and long theorem statements etc.;
src/Pure/Isar/element.ML
--- a/src/Pure/Isar/element.ML	Thu Jul 14 23:05:25 2011 +0200
+++ b/src/Pure/Isar/element.ML	Fri Jul 15 00:03:47 2011 +0200
@@ -526,7 +526,7 @@
 
 fun activate raw_elem ctxt =
   let val elem = raw_elem |> map_ctxt
-   {binding = tap Variable.check_name,
+   {binding = tap (fn b => if Binding.is_empty b then "" else Variable.check_name b),
     typ = I,
     term = I,
     pattern = I,