Commit 3c2ea188 authored by Ralf Jung's avatar Ralf Jung

Merge branch 'robbert/exist_laterable' into 'master'

Prove `Laterable (∃ x, Φ x)`.

See merge request iris/iris!401
parents 3a0d7152 d3a4d722
...@@ -55,6 +55,14 @@ Section instances. ...@@ -55,6 +55,14 @@ Section instances.
- iApply "HQ". done. - iApply "HQ". done.
Qed. Qed.
Global Instance exist_laterable {A} (Φ : A PROP) :
( x, Laterable (Φ x)) Laterable ( x, Φ x).
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Φ".
Qed.
Global Instance big_sepL_laterable Ps : Global Instance big_sepL_laterable Ps :
Timeless (PROP:=PROP) emp Timeless (PROP:=PROP) emp
TCForall Laterable Ps TCForall Laterable Ps
......
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