(*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 unary_op_inject': forall op v ty u (SUO:sem_unary_operation op v ty = Some u) j tv (V: val_inject j v tv), exists tu, val_inject j u tu /\ sem_unary_operation op tv ty = Some tu.