merged

--- a/src/HOL/Tools/Function/function.ML	Wed Jan 20 14:05:17 2010 +0100
+++ b/src/HOL/Tools/Function/function.ML	Wed Jan 20 14:09:46 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