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'.