Instance JA: Join A := Join_equiv A.Definition env := fpm key (pshare * A).Definition env_get (rho: env) (id: key) : option (pshare * A) := lookup_fpm rho id.Definition env_set_sh {KE: EqDec key} (id: key) (v: option (pshare * A)) (rho: env) : env :=
  insert'_fpm _ id v rho.Definition env_set {KE: EqDec key} (id: key) (v: A) (rho: env) : env :=
  insert_fpm _ id (pfullshare,v) rho.

Lemma env_gss_sh {KE: EqDec key}: forall i v rho, env_get (env_set_sh i v rho) i = v.