Definition juicyRestrict':=
fun phi m macoh => @juicyRestrict phi m (max_acc_coh_acc_coh macoh).

(* Specifications: *)
Lemma juicyRestrictAccCoh': forall phi m (coh:max_access_cohere m phi),
access_cohere (juicyRestrict' coh) phi.
(*Move this to veric.juicy_mem_lemmas.v *)
Lemma po_join_sub': forall r1 r2 : resource,
join_sub r2 r1 ->
Mem.perm_order'' (perm_of_res' r1) (perm_of_res' r2).
Lemma juicyRestrictAccCoh': forall phi m (coh:max_access_cohere m phi),
access_cohere (juicyRestrict' coh) phi.
(*Move this to veric.juicy_mem_lemmas.v *)
Lemma po_join_sub': forall r1 r2 : resource,
join_sub r2 r1 ->
Mem.perm_order'' (perm_of_res' r1) (perm_of_res' r2).