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