changeset 30234 | 7dd251bce291 |
parent 30216 | 0300b7420b07 |
child 30318 | 3d03190d2864 |
--- a/src/Pure/Tools/find_theorems.ML Tue Mar 03 21:53:52 2009 +0100 +++ b/src/Pure/Tools/find_theorems.ML Wed Mar 04 00:05:20 2009 +0100 @@ -169,8 +169,7 @@ fun try_thm thm = if Thm.no_prems thm then rtac thm 1 goal else (etacn thm THEN_ALL_NEW - (Goal.norm_hhf_tac THEN' - Method.assumption_tac ctxt)) 1 goal; + (Goal.norm_hhf_tac THEN' Method.assm_tac ctxt)) 1 goal; in fn (_, thm) => if (is_some o Seq.pull o try_thm) thm