Definition env_mapsto: forall {key A}{KE: EqDec key} (id: key) (sh: Share.t) (v: A) , pred (env key A) := @_env_mapsto.

Lemma env_mapsto_get{key A}{KE: EqDec key}: forall id sh (v:A) rho, env_mapsto id sh v rho -> exists Pf: nonunit sh, env_get rho id = Some (exist nonunit sh Pf, v).