Admitted.

Lemma semax_store: forall x y p v v0 sh sh',
semax (^stk env_mapsto x sh p * ^stk (env_mapsto y sh' v) *
^hp env_mapsto p Share.top v0)
(Store x y)
(^stk env_mapsto x sh p * ^stk (env_mapsto y sh' v) *
^hp env_mapsto p Share.top v).