diff --git a/theories/tests/proofmode.v b/theories/tests/proofmode.v index d4584baaed8edc215745e84c1d37b5489d0e3179..c162461d7f4e53a2d4f1ebff0dee3ed3a2d44a3d 100644 --- a/theories/tests/proofmode.v +++ b/theories/tests/proofmode.v @@ -162,6 +162,12 @@ Proof. iIntros "#?". by iSplit. Qed. Lemma test_iSpecialize_persistent P Q : □ P -∗ (□ P -∗ Q) -∗ Q. Proof. iIntros "#HP HPQ". by iSpecialize ("HPQ" with "HP"). Qed. + +Lemma test_iLöb P : (∃ n, ▷^n P)%I. +Proof. + iLöb as "IH". iDestruct "IH" as (n) "IH". + by iExists (S n). +Qed. End tests. Section more_tests.