Definition store_byte_list m b ofs lv :=
Mem.storebytes m b ofs (concat (map (encode_val Mint8unsigned) lv)).
Definition mem_equiv_jm jm m (Heq : mem_equiv (m_dry jm) m) :
{jm' | level jm' = level jm /\ m_dry jm' = m /\ m_phi jm' = m_phi jm}.

Lemma rebuild_store : forall jm0 phi m m' b o lv phi0 phi1 loc
(Hlevel : (level phi <= level (m_phi jm0))%nat)
(Hrebuild : compcert_rmaps.R.resource_at phi =
compcert_rmaps.R.resource_fmap (compcert_rmaps.R.approx (level phi))
(compcert_rmaps.R.approx (level phi))
oo juicy_mem_lemmas.rebuild_juicy_mem_fmap jm0 m)
(Hstore : Mem.storebytes (m_dry jm0) b o lv = Some m') (Heq : mem_equiv m m')
(J : join phi0 phi1 (m_phi jm0))
(Hout1 : forall l sh rsh k p, phi1 @ l = YES sh rsh k p -> ~ adr_range (b, o) (Zlength lv) l),
join (age_to.age_to (level phi) (inflate_store m' phi0) @ loc)
(age_to.age_to (level phi) phi1 @ loc) (phi @ loc).