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: key) (v: A) (rho: env _ _), (exists sh, env_get rho id = Some (sh,v)) = (exp (fun sh => _env_mapsto id sh v) * TT)%pred rho.