(*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 deref_loc_inject: forall ty b ofs v (D:deref_loc ty m b ofs v) tb delta (J: j b = Some(tb,delta)), exists tv, val_inject j v tv /\ deref_loc ty tm tb (Int.add ofs (Int.repr delta)) tv.