changeset 35624 | c4e29a0bb8c1 |
parent 32978 | a473ba9a221d |
child 36692 | 54b64d4ad524 |
--- a/src/HOL/Library/reflection.ML Sat Mar 06 19:17:59 2010 +0000 +++ b/src/HOL/Library/reflection.ML Sun Mar 07 11:57:16 2010 +0100 @@ -62,7 +62,7 @@ fun tryext x = (x RS ext2 handle THM _ => x) val cong = (Goal.prove ctxt'' [] (map mk_def env) (HOLogic.mk_Trueprop (HOLogic.mk_eq (lhs, replace_fterms rhs))) - (fn x => LocalDefs.unfold_tac (#context x) (map tryext (#prems x)) + (fn x => Local_Defs.unfold_tac (#context x) (map tryext (#prems x)) THEN rtac th' 1)) RS sym val (cong' :: vars') =