(** Freeing of local variables *)

Lemma free_blocks_of_env_perm_1:
forall ce m e m' id b ty ofs k p,
Mem.free_list m (blocks_of_env ce e) = Some m' ->
e!id = Some(b, ty) ->
Mem.perm m' b ofs k p ->
0 <= ofs < sizeof ce ty ->
False.