(*From Cminorgenproof*)
Remark val_inject_function_pointer:
  forall v fd j tv,
  Genv.find_funct ge v = Some fd ->
  globalfunction_ptr_inject j ->
  val_inject j v tv ->
  tv = v.

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'.