Require Export Maps.
Definition assign_loc_Effect (ty:type) (b: block) (ofs: int) v : (block -> Z -> bool)  :=
match access_mode ty with
By_value chunk => fun b' z' => eq_block b b'
&& zle (Int.unsigned ofs) z'
&& zlt z' ((Int.unsigned ofs) + Z.of_nat (length (encode_val chunk v)))
| By_copy => fun b' z' => eq_block b' b
&& zle (Int.unsigned ofs) z'
&& zlt z' ((Int.unsigned ofs) + (sizeof ty))
| _ => fun b' z' => false
end.

Lemma alloc_variables_freshblocks: forall vars E m e m1
(AL: alloc_variables E m vars e m1)
id b t (Hid: e!id = Some (b,t)),
E!id = Some (b,t) \/ ~Mem.valid_block m b.