(*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 make_boolean_inject: forall a v ty b, Clight.eval_expr ge e le m a v -> bool_val v ty = Some b -> forall ta, transl_expr a = OK ta -> exists tv, Csharpminor.eval_expr tge te tle tm (make_boolean ta ty) tv /\ Val.bool_of_val tv b.