1.1 --- a/src/HOL/Tools/primrec_package.ML	Sat May 30 08:16:44 2009 +0200
     1.2 +++ b/src/HOL/Tools/primrec_package.ML	Sat May 30 08:17:05 2009 +0200
     1.3 @@ -268,7 +268,7 @@
     1.4      val (fixes, spec) = fst (prep_spec raw_fixes raw_spec lthy);
     1.5      fun attr_bindings prefix = map (fn ((b, attrs), _) =>
     1.6        (Binding.qualify false prefix b, Code.add_default_eqn_attrib :: attrs)) spec;
     1.7 -    fun simp_attr_binding prefix = (Binding.qualify false prefix (Binding.name "simps"),
     1.8 +    fun simp_attr_binding prefix = (Binding.qualify true prefix (Binding.name "simps"),
     1.9        map (Attrib.internal o K)
    1.10          [Simplifier.simp_add, Nitpick_Const_Simp_Thms.add, Quickcheck_RecFun_Simp_Thms.add]);
    1.11    in