Commit 2050c2e1 authored by Zhen Zhang's avatar Zhen Zhang

Move f_spec back to peritem

parent 3fd612a9
Pipeline #3485 passed with stage
in 2 minutes and 44 seconds
......@@ -130,13 +130,8 @@ Section proof.
iFrame. iFrame "#".
Qed.
Definition f_spec (R: iProp Σ) (f: val) (Rf: iProp Σ) x :=
{{{ inv N R Rf }}}
f x
{{{ RET #(); Rf }}}.
Lemma doOp_f_spec R γm γr (p: loc) ts:
f_spec (p_inv R γm γr ts p) doOp (own γr (Excl ()) R)%I #p.
f_spec N (p_inv R γm γr ts p) doOp (own γr (Excl ()) R)%I #p.
Proof.
iIntros (Φ) "(#H1 & Hor & HR) HΦ".
wp_rec. wp_bind (! _)%E.
......
......@@ -30,6 +30,12 @@ Section defs.
iDestruct (IHxs' with "[Hs']") as ">[Hs1 Hs2]"; first by iFrame.
iModIntro. iSplitL "Hhd Hs1"; iExists hd', (q / 2)%Qp; by iFrame.
Qed.
Definition f_spec (R: iProp Σ) (f: val) (Rf: iProp Σ) x :=
{{{ inv N R Rf }}}
f x
{{{ RET #(); Rf }}}.
End defs.
Section proofs.
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment