diff --git a/iris/bi/lib/atomic.v b/iris/bi/lib/atomic.v index 9c360274fb488b818b520ff6f79a2d5b72aa761c..a7272ddc27a7dbda26ab4100260c57476cd2e966 100644 --- a/iris/bi/lib/atomic.v +++ b/iris/bi/lib/atomic.v @@ -328,7 +328,7 @@ Section lemmas. (* FIXME: Is there any way to prevent maybe_wand from unfolding? It gets unfolded by env_cbv in the proofmode, ideally we'd like that to happen only if one argument is a constructor. *) - iIntros (?) "Hinner >Hacc". iDestruct "Hacc" as (x') "[Hα' Hclose]". + iIntros (_) "Hinner >Hacc". iDestruct "Hacc" as (x') "[Hα' Hclose]". iMod ("Hinner" with "Hα'") as (x) "[Hα Hclose']". iMod (fupd_intro_mask') as "Hclose''"; last iModIntro; first done. iExists x. iFrame. iSplitWith "Hclose'". diff --git a/iris/program_logic/weakestpre.v b/iris/program_logic/weakestpre.v index a030d348e373cb6176226a7dfef6e6098d0c57b7..1123c57fa5c5b1ddfe3414434b62083a25712e0c 100644 --- a/iris/program_logic/weakestpre.v +++ b/iris/program_logic/weakestpre.v @@ -316,7 +316,7 @@ Section proofmode_classes. α β γ (WP e @ s; E {{ Φ }}) (λ x, WP e @ s; E {{ v, |={E}=> β x ∗ (γ x -∗? Φ v) }})%I. Proof. - iIntros (?) "Hinner >Hacc". iDestruct "Hacc" as (x) "[Hα Hclose]". + iIntros (_) "Hinner >Hacc". iDestruct "Hacc" as (x) "[Hα Hclose]". iApply wp_fupd. iApply (wp_wand with "(Hinner Hα)"). iIntros (v) ">[Hβ HΦ]". iApply "HΦ". by iApply "Hclose". diff --git a/iris/proofmode/class_instances_updates.v b/iris/proofmode/class_instances_updates.v index 63b0566a3daede80d5d6f29067a113ddfcdc5179..5fd7fea8bda20e776893c76b74852bc4a532b877 100644 --- a/iris/proofmode/class_instances_updates.v +++ b/iris/proofmode/class_instances_updates.v @@ -174,7 +174,7 @@ Global Instance elim_acc_fupd `{!BiFUpd PROP} {X} E1 E2 E α β mγ Q : (|={E1,E}=> Q) (λ x, |={E2}=> β x ∗ (mγ x -∗? |={E1,E}=> Q))%I. Proof. - iIntros (?) "Hinner >Hacc". iDestruct "Hacc" as (x) "[Hα Hclose]". + iIntros (_) "Hinner >Hacc". iDestruct "Hacc" as (x) "[Hα Hclose]". iMod ("Hinner" with "Hα") as "[Hβ Hfin]". iMod ("Hclose" with "Hβ") as "Hγ". by iApply "Hfin". Qed.