Module EnvSL.
Definition env_mapsto: forall {key A}{KE: EqDec key} (id: key) (sh: Share.t) (v: A) , pred (env key A) := @_env_mapsto.
Arguments env_mapsto [key] [A] [KE] _ _ _ _.
Hint Resolve @emp_empty_env' : core.

Lemma env_mapsto_cohere{key: Type}{A: Type}{KE: EqDec key}: forall id sh1 (v1: A) sh2 v2,
(env_mapsto id sh1 v1 * TT) && (env_mapsto id sh2 v2 * TT)
|-- !!(v1=v2).