| 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