Definition mem_rmap_cohere m phi :=
  contents_cohere m phi /\
  access_cohere m phi /\
  max_access_cohere m phi /\ alloc_cohere m phi.

Lemma mem_evolve_cohere: forall jm m' phi', mem_evolve (m_dry jm) m' -> compcert_rmaps.RML.R.resource_at phi' = juicy_mem_lemmas.rebuild_juicy_mem_fmap jm m' -> mem_rmap_cohere m' phi'.