Definition juicyRestrict {phi:rmap}{m:Mem.mem}(coh:access_cohere' m phi): Mem.mem:=
restrPermMap (juice2Perm_cohere coh).
Definition juicyRestrict_locks {phi:rmap}{m:Mem.mem}(coh:max_access_cohere m phi): Mem.mem:=
restrPermMap (juice2Perm_locks_cohere coh).

Lemma juicyRestrictCurEq:
forall (phi : rmap) (m : mem) (coh : access_cohere' m phi)
(loc : Address.address),
(access_at (juicyRestrict coh) loc) Cur = (perm_of_res (phi @ loc)).