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_alloc : forall jm0 phi m len 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)
(Hno : forall ofs : Z,
phi0 @ (Mem.nextblock (m_dry jm0), ofs) = NO Share.bot bot_unreadable)
(Heq : mem_equiv m (fst (Mem.alloc (m_dry jm0) 0 len)))
(J : join phi0 phi1 (m_phi jm0)),
join (age_to.age_to (level phi) (after_alloc 0 len (Mem.nextblock (m_dry jm0)) phi0 Hno) @ loc)
(age_to.age_to (level phi) phi1 @ loc) (phi @ loc).