(* Lemma match_env_same_blocks: forall j e te, match_env j e te -> blocks_of_env te = Clight.blocks_of_env e. *)

Lemma match_env_free_blocks_parallel_inject:
forall e te m m' j tm
(ENV: match_env j e te)
(INJ: Mem.inject j m tm)
(FL: Mem.free_list m (Clight.blocks_of_env e) = Some m'),
exists tm', Mem.free_list tm (blocks_of_env te) = Some tm' /\
Mem.inject j m' tm'.