Mercurial Mercurial > repos > isabelle / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | gz | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
simps with mandatory name prefix
authorhaftmann
Sat, 30 May 2009 08:17:05 +0200
changeset 31296 ba296a58d813
parent 31295 956592c2c701
child 31297 a176e4dfb388
simps with mandatory name prefix
src/HOL/Tools/primrec_package.ML file | annotate | diff | comparison | revisions 
--- a/src/HOL/Tools/primrec_package.ML	Sat May 30 08:16:44 2009 +0200
+++ b/src/HOL/Tools/primrec_package.ML	Sat May 30 08:17:05 2009 +0200
@@ -268,7 +268,7 @@
     val (fixes, spec) = fst (prep_spec raw_fixes raw_spec lthy);
     fun attr_bindings prefix = map (fn ((b, attrs), _) =>
       (Binding.qualify false prefix b, Code.add_default_eqn_attrib :: attrs)) spec;
-    fun simp_attr_binding prefix = (Binding.qualify false prefix (Binding.name "simps"),
+    fun simp_attr_binding prefix = (Binding.qualify true prefix (Binding.name "simps"),
       map (Attrib.internal o K)
         [Simplifier.simp_add, Nitpick_Const_Simp_Thms.add, Quickcheck_RecFun_Simp_Thms.add]);
   in
isabelle