src/HOL/ex/Primrec.ML
changeset 4153 e534c4c32d54
parent 4089 96fba19bcbe2
child 5069 3ea049f7979d
     1.1 --- a/src/HOL/ex/Primrec.ML	Wed Nov 05 13:14:15 1997 +0100
     1.2 +++ b/src/HOL/ex/Primrec.ML	Wed Nov 05 13:23:46 1997 +0100
     1.3 @@ -200,7 +200,7 @@
     1.4  \      ==> EX k. ALL l. list_add (map(%f. f l) fs) < ack(k, list_add l)";
     1.5  by (etac lists.induct 1);
     1.6  by (res_inst_tac [("x","0")] exI 1 THEN Asm_simp_tac 1);
     1.7 -by (safe_tac (claset()));
     1.8 +by Safe_tac;
     1.9  by (Asm_simp_tac 1);
    1.10  by (blast_tac (claset() addIs [add_less_mono, ack_add_bound, less_trans]) 1);
    1.11  qed "COMP_map_lemma";