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 inflate_store_join : forall phi1 phi2 phi3 m (J : join phi1 phi2 phi3),
join (inflate_store m phi1) (inflate_store m phi2) (inflate_store m phi3).