Section storebytes.
Variables (jm: juicy_mem) (m': mem) (b: block) (ofs: Z) (bytes: list memval)
(STOREBYTES: storebytes (m_dry jm) b ofs bytes = Some m').

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