Admitted.

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