Definition storebytes_juicy_mem: juicy_mem.
refine (mkJuicyMem m' (inflate_store m' (m_phi jm)) _ _ _ _).
(* contents_cohere *)
intros rsh sh' v' loc' pp H2.
unfold inflate_store in H2; rewrite resource_at_make_rmap in H2.
destruct (m_phi jm @ loc'); try destruct k; try solve [inversion H2].
inversion H2; auto.
(* access_cohere *)
intro loc; generalize (juicy_mem_access jm loc); intro H0.
unfold inflate_store; rewrite resource_at_make_rmap.
rewrite <- (Memory.storebytes_access _ _ _ _ _ STOREBYTES).
destruct (m_phi jm @ loc); try destruct k; auto.
(* max_access_cohere *)
intro loc; generalize (juicy_mem_max_access jm loc); intro H1.
unfold inflate_store; rewrite resource_at_make_rmap.
unfold max_access_at in *.
rewrite <- (Memory.storebytes_access _ _ _ _ _ STOREBYTES).
assert (H88:=nextblock_storebytes _ _ _ _ _ STOREBYTES).
destruct (m_phi jm @ loc); try rewrite H88; auto.
destruct k; simpl; try rewrite H88; auto.
(* alloc_cohere *)
hnf; intros.
unfold inflate_store. rewrite resource_at_make_rmap.
generalize (juicy_mem_alloc_cohere jm loc); intro.
rewrite (nextblock_storebytes _ _ _ _ _ STOREBYTES) in H.
rewrite (H0 H).
auto.
Defined.
End storebytes.

(* Specifications: *)
Lemma free_smaller_None : forall m b b' ofs lo hi m',
access_at m (b, ofs) Cur = None
-> free m b' lo hi = Some m'
-> access_at m' (b, ofs) Cur = None.
Lemma free_nadr_range_eq : forall m b b' ofs' lo hi m',
~ adr_range (b, lo) (hi - lo) (b', ofs')
-> free m b lo hi = Some m'
-> access_at m (b', ofs') = access_at m' (b', ofs')
/\  contents_at m (b', ofs') = contents_at m' (b', ofs').