changeset 4153 | e534c4c32d54 |
parent 4104 | 84433b1ab826 |
child 4356 | 0dfd34f0d33d |
--- a/src/HOL/NatDef.ML Wed Nov 05 13:14:15 1997 +0100 +++ b/src/HOL/NatDef.ML Wed Nov 05 13:23:46 1997 +0100 @@ -628,11 +628,11 @@ hyp_subst_tac 1, rewtac Least_nat_def, rtac (select_equality RS arg_cong RS sym) 1, - safe_tac (claset()), + Safe_tac, dtac Suc_mono 1, Blast_tac 1, cut_facts_tac [less_linear] 1, - safe_tac (claset()), + Safe_tac, atac 2, Blast_tac 2, dtac Suc_mono 1,