src/HOL/Bali/DefiniteAssignmentCorrect.thy
changeset 18447 da548623916a
parent 18249 4398f0f12579
child 18459 2b102759160d
equal deleted inserted replaced
18446:6c558efcc754 18447:da548623916a
  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