(*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_same_blocks: forall j e te (ENV: match_env j e te), list_forall2 (fun (i_x : positive * (block * type)) (i_y : positive * (block * Z)) => fst i_x = fst i_y /\ j (fst (snd i_x)) = Some (fst (snd i_y), 0) /\ snd (snd i_y) = sizeof (snd (snd i_x))) (PTree.elements e) (PTree.elements te).