function package: declare Spec_Rules for simps from total functions, but not psimps or tail-rec equations

--- a/src/HOL/Tools/Function/function.ML	Sat Jan 16 21:14:15 2010 +0100
+++ b/src/HOL/Tools/Function/function.ML	Mon Jan 18 10:34:27 2010 +0100
@@ -164,6 +164,7 @@
               simps=SOME simps, inducts=SOME inducts, termination=termination }
             in
               Local_Theory.declaration false (add_function_data o morph_function_data info')
+              #> Spec_Rules.add Spec_Rules.Equational (fs, simps)
             end)
         end
   in