Definition same_except_cur (m m' : Mem.mem) :=
Mem.mem_contents m = Mem.mem_contents m' /\
max_access_at m = max_access_at m' /\
Mem.nextblock m = Mem.nextblock m'.

Lemma juicyRestrictCur_ext m phi phi'
(coh : access_cohere' m phi)
(coh' : access_cohere' m phi')
(same : forall loc, perm_of_res (phi @ loc) = perm_of_res (phi' @ loc)) :
Mem.mem_access (juicyRestrict coh) =
Mem.mem_access (juicyRestrict coh').