Skip to content
Snippets Groups Projects
Commit eb200cc0 authored by Robbert Krebbers's avatar Robbert Krebbers
Browse files

Add lemma `fupd_plain_laterN`.

parent ea869f3b
No related branches found
No related tags found
No related merge requests found
......@@ -430,6 +430,12 @@ Section fupd_derived.
Lemma fupd_plain_later E P `{!Plain P} : ( |={E}=> P) |={E}=> P.
Proof. by rewrite {1}(plain P) fupd_plainly_later. Qed.
Lemma fupd_plain_laterN E n P `{!Plain P} : (▷^n |={E}=> P) |={E}=> ▷^n P.
Proof.
induction n as [|n IH]; simpl; [by rewrite -except_0_intro|].
by rewrite IH fupd_plain_later except_0_laterN except_0_idemp.
Qed.
Lemma fupd_plain_forall_2 E {A} (Φ : A PROP) `{!∀ x, Plain (Φ x)} :
( x, |={E}=> Φ x) |={E}=> x, Φ x.
Proof.
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment