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

also avoid '!#'

parent 07ff13e0
No related branches found
No related tags found
No related merge requests found
......@@ -137,7 +137,7 @@ Section inv.
N1 N2 ⊆@{coPset} N
inv N1 P -∗ inv N2 Q -∗ inv N (P Q).
Proof.
rewrite inv_eq. iIntros (??) "#HinvP #HinvQ !#"; iIntros (E ?).
rewrite inv_eq. iIntros (??) "#HinvP #HinvQ !>"; iIntros (E ?).
iMod ("HinvP" with "[%]") as "[$ HcloseP]"; first set_solver.
iMod ("HinvQ" with "[%]") as "[$ HcloseQ]"; first set_solver.
iMod (fupd_intro_mask' _ (E N)) as "Hclose"; first set_solver.
......@@ -149,7 +149,7 @@ Section inv.
(P -∗ P P) -∗
inv N P -∗ inv N Q -∗ inv N (P Q).
Proof.
rewrite inv_eq. iIntros "#HPdup #HinvP #HinvQ !#" (E ?).
rewrite inv_eq. iIntros "#HPdup #HinvP #HinvQ !>" (E ?).
iMod ("HinvP" with "[//]") as "[HP HcloseP]".
iDestruct ("HPdup" with "HP") as "[$ HP]".
iMod ("HcloseP" with "HP") as %_.
......
......@@ -82,10 +82,10 @@ Lemma vs_inv_acc N E P :
inv N P ={E,E∖↑N}=> P R, R (R P ={E∖↑N,E}=> True).
Proof.
(* FIXME: scope printing is weird, there are [%stdpp]. *)
iIntros (?) "!# #Hinv".
iIntros (?) "!> #Hinv".
iMod (inv_acc with "Hinv") as "[$ Hclose]"; first done.
iModIntro. iExists ( P ={E N,E}=∗ True)%I. iFrame.
iIntros "!# [Hclose HP]". iMod ("Hclose" with "HP"). done.
iIntros "!> [Hclose HP]". iMod ("Hclose" with "HP"). done.
Qed.
Lemma vs_alloc N P : P ={N}=> inv N P.
......
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