Skip to content
Snippets Groups Projects
Commit f7c4ea23 authored by Ralf Jung's avatar Ralf Jung
Browse files

boxes: even fewer underscores

parent de234db0
No related branches found
No related tags found
No related merge requests found
...@@ -161,7 +161,7 @@ Proof. ...@@ -161,7 +161,7 @@ Proof.
iDestruct (box_own_auth_agree γ b true with "[#]") iDestruct (box_own_auth_agree γ b true with "[#]")
as "%"; subst; first by iFrame "Hγ". as "%"; subst; first by iFrame "Hγ".
iFrame "HQ". iFrame "HQ".
iPvs (box_own_auth_update _ γ true true false with "[Hγ Hγ']") iPvs (box_own_auth_update _ γ with "[Hγ Hγ']")
as "[Hγ Hγ']"; first by iFrame "Hγ". as "[Hγ Hγ']"; first by iFrame "Hγ".
iPvsIntro; iNext; iSplitL "Hγ"; first (iExists false; by repeat iSplit). iPvsIntro; iNext; iSplitL "Hγ"; first (iExists false; by repeat iSplit).
iExists Φ; iSplit. iExists Φ; iSplit.
...@@ -181,7 +181,7 @@ Proof. ...@@ -181,7 +181,7 @@ Proof.
iApply (big_sepM_impl _ _ f); iFrame "Hf". iApply (big_sepM_impl _ _ f); iFrame "Hf".
iAlways; iIntros {γ b' ?} "[(Hγ' & #$ & #$) HΦ]". iAlways; iIntros {γ b' ?} "[(Hγ' & #$ & #$) HΦ]".
iInv N as {b} "[Hγ _]"; iTimeless "Hγ". iInv N as {b} "[Hγ _]"; iTimeless "Hγ".
iPvs (box_own_auth_update _ γ b b' true with "[Hγ Hγ']") iPvs (box_own_auth_update _ γ with "[Hγ Hγ']")
as "[Hγ $]"; first by iFrame "Hγ". as "[Hγ $]"; first by iFrame "Hγ".
iPvsIntro; iNext; iExists true. by iFrame "HΦ Hγ". iPvsIntro; iNext; iExists true. by iFrame "HΦ Hγ".
Qed. Qed.
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment