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

Lemma env_get_mapsto' {key A}{KE: EqDec key}: forall id (sh: pshare) (v: A) rho, env_get rho id = Some(pfullshare,v) -> (_env_mapsto id (pshare_sh sh) v * TT)%pred rho.