diff -r e280491f36b8 -r 862ae16a799d src/HOL/Tools/Function/size.ML
--- a/src/HOL/Tools/Function/size.ML	Thu Jul 02 17:33:36 2009 +0200
+++ b/src/HOL/Tools/Function/size.ML	Thu Jul 02 17:34:14 2009 +0200
@@ -209,7 +209,7 @@
 
     val ([size_thms], thy'') =  PureThy.add_thmss
       [((Binding.name "size", size_eqns),
-        [Simplifier.simp_add, Nitpick_Const_Simp_Thms.add,
+        [Simplifier.simp_add, Nitpick_Const_Simps.add,
          Thm.declaration_attribute
              (fn thm => Context.mapping (Code.add_default_eqn thm) I)])] thy'