(*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 functions_translated: forall (v v': val) (f: Cminor.fundef) j, Genv.find_funct ge v = Some f -> val_inject j v v' -> globalfunction_ptr_inject j -> Genv.find_funct tge v' = Some (sel_fundef hf ge f).