--- a/src/HOL/Tools/primrec.ML Tue Nov 10 15:32:43 2009 +0100
+++ b/src/HOL/Tools/primrec.ML Tue Nov 10 15:33:35 2009 +0100
@@ -270,9 +270,9 @@
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 true prefix (Binding.name "simps"),
- map (Attrib.internal o K)
- [Simplifier.simp_add, Nitpick_Simps.add, Quickcheck_RecFun_Simps.add]);
+ fun simp_attr_binding prefix =
+ (Binding.qualify true prefix (Binding.name "simps"),
+ map (Attrib.internal o K) [Simplifier.simp_add, Nitpick_Simps.add]);
in
lthy
|> set_group ? LocalTheory.set_group (serial ())