src/HOLCF/IMP/Denotational.ML
changeset 3457 a8ab7c64817c
parent 3325 4e4ee8a101be
child 4098 71e05eb27fb6
--- a/src/HOLCF/IMP/Denotational.ML	Mon Jun 23 10:35:49 1997 +0200
+++ b/src/HOLCF/IMP/Denotational.ML	Mon Jun 23 10:42:03 1997 +0200
@@ -7,25 +7,25 @@
 *)
 
 goalw thy [dlift_def] "dlift f`(Def x) = f`(Discr x)";
-by(Simp_tac 1);
+by (Simp_tac 1);
 qed "dlift_Def";
 Addsimps [dlift_Def];
 
 goalw thy [dlift_def] "cont(%f. dlift f)";
-by(Simp_tac 1);
+by (Simp_tac 1);
 qed "cont_dlift";
 AddIffs [cont_dlift];
 
 goalw thy [dlift_def]
  "(dlift f`l = Def y) = (? x. l = Def x & f`(Discr x) = Def y)";
-by(simp_tac (!simpset setloop (split_tac[expand_lift_case])) 1);
+by (simp_tac (!simpset setloop (split_tac[expand_lift_case])) 1);
 qed "dlift_is_Def";
 Addsimps [dlift_is_Def];
 
 goal thy "!!c. <c,s> -c-> t ==> D c`(Discr s) = (Def t)";
-be evalc.induct 1;
+by (etac evalc.induct 1);
       by (ALLGOALS Asm_simp_tac);
- by (ALLGOALS (rtac (fix_eq RS ssubst) THEN' Asm_full_simp_tac));
+ by (ALLGOALS (stac fix_eq THEN' Asm_full_simp_tac));
 qed_spec_mp "eval_implies_D";
 
 goal thy "!s t. D c`(Discr s) = (Def t) --> <c,s> -c-> t";
@@ -36,8 +36,8 @@
  by (simp_tac (!simpset setloop (split_tac[expand_if])) 1);
  by (fast_tac ((HOL_cs addIs evalc.intrs) addss !simpset) 1);
 by (Simp_tac 1);
-br fix_ind 1;
-  by(fast_tac (HOL_cs addSIs (adm_lemmas@[adm_chfindom,ax_flat_lift])) 1);
+by (rtac fix_ind 1);
+  by (fast_tac (HOL_cs addSIs (adm_lemmas@[adm_chfindom,ax_flat_lift])) 1);
  by (Simp_tac 1);
 by (simp_tac (!simpset setloop (split_tac[expand_if])) 1);
 by (safe_tac HOL_cs);