changeset 22360 | 26ead7ed4f4b |
parent 22101 | 6d13239d5f52 |
child 22846 | fb79144af9a3 |
--- a/src/HOL/Tools/recdef_package.ML Mon Feb 26 21:34:16 2007 +0100 +++ b/src/HOL/Tools/recdef_package.ML Mon Feb 26 23:18:24 2007 +0100 @@ -109,7 +109,7 @@ (tab2, {simps = simps2, congs = congs2, wfs = wfs2})) : T = (Symtab.merge (K true) (tab1, tab2), mk_hints (Drule.merge_rules (simps1, simps2), - AList.merge (op =) eq_thm (congs1, congs2), + AList.merge (op =) Thm.eq_thm (congs1, congs2), Drule.merge_rules (wfs1, wfs2))); fun print thy (tab, hints) =