Section store.
Variables (jm: juicy_mem) (m': mem)
(ch: memory_chunk) (b: block) (ofs: Z) (v: val)
(STORE: store ch (m_dry jm) b ofs v = Some m').

Lemma store_phi_elsewhere_eq: forall rsh sh mv loc',
~ adr_range (b, ofs) (size_chunk ch) loc'
-> (m_phi jm) @ loc' = YES rsh sh (VAL mv) NoneP -> contents_at m' loc' = mv.