# HG changeset patch
# User bulwahn
# Date 1263992986 -3600
# Node ID 1dfb1df1d9d0ea768e492293dc297e5e178f315c
# Parent  883b337a31588812715747a9b103ac02188057d3# Parent  1f5e55eb821c8f628071bf41792f4ceb92c26769
merged

diff -r 883b337a3158 -r 1dfb1df1d9d0 src/HOL/Tools/Function/function.ML
--- 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