1.1 --- a/src/HOL/Trancl.ML	Wed Nov 05 13:14:15 1997 +0100
     1.2 +++ b/src/HOL/Trancl.ML	Wed Nov 05 13:23:46 1997 +0100
     1.3 @@ -78,7 +78,7 @@
     1.4  
     1.5  (*transitivity of transitive closure!! -- by induction.*)
     1.6  goalw Trancl.thy [trans_def] "trans(r^*)";
     1.7 -by (safe_tac (claset()));
     1.8 +by Safe_tac;
     1.9  by (eres_inst_tac [("b","z")] rtrancl_induct 1);
    1.10  by (ALLGOALS(blast_tac (claset() addIs [rtrancl_into_rtrancl])));
    1.11  qed "trans_rtrancl";