equal
deleted
inserted
replaced
3379 proof - |
3379 proof - |
3380 have "nrm C1 \<subseteq> dom (locals (snd s3))" |
3380 have "nrm C1 \<subseteq> dom (locals (snd s3))" |
3381 proof - |
3381 proof - |
3382 from normal_s3 s3 |
3382 from normal_s3 s3 |
3383 have "normal (x1,s1)" |
3383 have "normal (x1,s1)" |
3384 by (cases s2) (simp add: abrupt_if_def) |
3384 by (cases s2) (simp add: abrupt_if_def not_Some_eq) |
3385 with normal_s3 nrmAss_C1 s3 s1_s2 |
3385 with normal_s3 nrmAss_C1 s3 s1_s2 |
3386 show ?thesis |
3386 show ?thesis |
3387 by fastsimp |
3387 by fastsimp |
3388 qed |
3388 qed |
3389 moreover |
3389 moreover |