Section CMCONSTR.
Variable sp: val.
Variable e: env.
Variable m: mem.

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'.