Commit 962637df authored by Ralf Jung's avatar Ralf Jung

avoid deprecated !#

parent 226ad3bc
......@@ -29,7 +29,7 @@ Section basic_tests.
Proof. iIntros (H) "!%". done. Qed.
Lemma test_pure_tforall_persistent {TT : tele} (Φ : TT PROP) :
(.. x, <pers> (Φ x)) - <pers> .. x, Φ x.
Proof. iIntros "#H !#" (x). done. Qed.
Proof. iIntros "#H !>" (x). done. Qed.
Lemma test_pure_texists_intuitionistic {TT : tele} (Φ : TT PROP) :
(.. x, (Φ x)) - .. x, Φ x.
Proof. iDestruct 1 as (x) "#H". iExists (x). done. Qed.
......
......@@ -60,7 +60,7 @@ Section instances.
Proof.
rewrite /Laterable. iIntros (LΦ). iDestruct 1 as (x) "H".
iDestruct (LΦ with "H") as (Q) "[HQ #HΦ]".
iExists Q. iIntros "{$HQ} !# HQ". iExists x. by iApply "HΦ".
iExists Q. iIntros "{$HQ} !> HQ". iExists x. by iApply "HΦ".
Qed.
Global Instance big_sepL_laterable Ps :
......
......@@ -51,7 +51,7 @@ Section proof.
Proof.
iDestruct 1 as (l ->) "#Hinv"; iIntros "#HR".
iExists l; iSplit; [done|]. iApply (inv_iff with "Hinv").
iIntros "!> !#"; iSplit; iDestruct 1 as (b) "[Hl H]";
iIntros "!> !>"; iSplit; iDestruct 1 as (b) "[Hl H]";
iExists b; iFrame "Hl"; destruct b;
first [done|iDestruct "H" as "[$ ?]"; by iApply "HR"].
Qed.
......
......@@ -75,7 +75,7 @@ Section proof.
Proof.
iDestruct 1 as (lo ln ->) "#Hinv"; iIntros "#HR".
iExists lo, ln; iSplit; [done|]. iApply (inv_iff with "Hinv").
iIntros "!> !#"; iSplit; iDestruct 1 as (o n) "(Ho & Hn & H● & H)";
iIntros "!> !>"; iSplit; iDestruct 1 as (o n) "(Ho & Hn & H● & H)";
iExists o, n; iFrame "Ho Hn H●";
(iDestruct "H" as "[[H◯ H]|H◯]"; [iLeft; iFrame "H◯"; by iApply "HR"|by iRight]).
Qed.
......
......@@ -229,7 +229,7 @@ Lemma wp_rec_löb s E f x e Φ Ψ :
Proof.
iIntros "#Hrec". iLöb as "IH". iIntros (v) "HΨ".
iApply lifting.wp_pure_step_later; first done.
iNext. iApply ("Hrec" with "[] HΨ"). iIntros "!#" (w) "HΨ".
iNext. iApply ("Hrec" with "[] HΨ"). iIntros "!>" (w) "HΨ".
iApply ("IH" with "HΨ").
Qed.
......
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