Definition max_access_at m loc := access_at m loc Max.Inductive juicy_mem: Type :=
  mkJuicyMem: forall (m: mem) (phi: rmap)
    (JMcontents: contents_cohere m phi)
    (JMaccess: access_cohere m phi)
    (JMmax_access: max_access_cohere m phi)
    (JMalloc: alloc_cohere m phi),
       juicy_mem.Inductive juicy_mem: Type :=
  mkJuicyMem: forall (m: mem) (phi: rmap)
    (JMcontents: contents_cohere m phi)
    (JMaccess: access_cohere m phi)
    (JMmax_access: max_access_cohere m phi)
    (JMalloc: alloc_cohere m phi),
       juicy_mem.Definition m_dry := match j with mkJuicyMem m _ _ _ _ _ => m end.Definition m_phi := match j with mkJuicyMem _ phi _ _ _ _ => phi end.

Lemma juicy_mem_alloc_cohere: alloc_cohere m_dry m_phi.