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

Lemma freelist_freelist_inject: forall m1 m1' j m2 e
(FL1: Mem.free_list m1 (Clight.blocks_of_env e) = Some m1')
(INJ : Mem.inject j m1 m2)
te (MENV : match_env j e te)
m2'
(FL2 : Mem.free_list m2 (blocks_of_env te) = Some m2'),
Mem.inject j m1' m2'.