(*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 eval_coopstore: forall chunk a1 a2 v1 v2 f k m', eval_expr tge sp e m nil a1 v1 -> eval_expr tge sp e m nil a2 v2 -> Mem.storev chunk m v1 v2 = Some m' -> CMinSel_corestep tge (CMinSel_State f (store chunk a1 a2) k sp e) m (CMinSel_State f Sskip k sp e) m'.