src/HOL/Tools/Function/function.ML
changeset 34950 1f5e55eb821c
parent 34232 36a2a3029fd3
child 35324 c9f428269b38
--- 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