changeset 1867 | 37615e73f2d8 |
parent 1861 | 505b104f675a |
child 1985 | 84cf16192e03 |
--- a/src/HOL/indrule.ML Tue Jul 16 15:47:07 1996 +0200 +++ b/src/HOL/indrule.ML Tue Jul 16 15:48:27 1996 +0200 @@ -185,7 +185,7 @@ rewrite_goals_tac all_defs THEN simp_tac (mut_ss addsimps [Part_def]) 1 THEN IF_UNSOLVED (*simp_tac may have finished it off!*) - ((*simplify assumptions, but don't accept new rewrite rules!*) + ((*simplify assumptions*) full_simp_tac mut_ss 1 THEN (*unpackage and use "prem" in the corresponding place*) REPEAT (rtac impI 1) THEN