diff --git a/theories/bi/lib/counterexamples.v b/theories/bi/lib/counterexamples.v index 14f007b4e8b05f7ab7418d802d327a4a1ec2b8e1..dd61261c9da12792b12257eaad9b85edcc9fc598 100644 --- a/theories/bi/lib/counterexamples.v +++ b/theories/bi/lib/counterexamples.v @@ -325,12 +325,8 @@ Module linear2. Section linear2. Proof. iIntros "HP". iMod cinv_alloc as (γ) "Hmkinv". - set (INV := (P ∨ cinv_own γ ∗ P)%I). - iMod ("Hmkinv" $! INV with "[HP]") as "(Hinv & Htok)". - { iLeft. done. } - iMod (cinv_access with "Hinv Htok") as "([HP|Hinv] & Htok & Hclose)"; last first. - { iDestruct "Hinv" as "(Htok' & ?)". - iMod (cinv_own_excl with "Htok Htok'") as "[]". } - iApply "Hclose". iNext. iRight. iFrame. + iMod ("Hmkinv" $! True%I with "[//]") as "[Hinv Htok]". + iMod (cinv_access with "Hinv Htok") as "(Htrue & Htok & Hclose)". + iApply "Hclose". done. Qed. End linear2. End linear2.