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

(*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).