equal
deleted
inserted
replaced
27 |
27 |
28 goal Denotation.thy "!!c s t. <c,s> -c-> t ==> (s,t) : C(c)"; |
28 goal Denotation.thy "!!c s t. <c,s> -c-> t ==> (s,t) : C(c)"; |
29 |
29 |
30 (* start with rule induction *) |
30 (* start with rule induction *) |
31 by (etac evalc.induct 1); |
31 by (etac evalc.induct 1); |
32 by (Auto_tac()); |
32 by Auto_tac; |
33 (* while *) |
33 (* while *) |
34 by (rewtac Gamma_def); |
34 by (rewtac Gamma_def); |
35 by (stac (rewrite_rule [Gamma_def] (Gamma_mono RS lfp_Tarski)) 1); |
35 by (stac (rewrite_rule [Gamma_def] (Gamma_mono RS lfp_Tarski)) 1); |
36 by (Fast_tac 1); |
36 by (Fast_tac 1); |
37 by (stac (rewrite_rule [Gamma_def] (Gamma_mono RS lfp_Tarski)) 1); |
37 by (stac (rewrite_rule [Gamma_def] (Gamma_mono RS lfp_Tarski)) 1); |