Introduction of stepping fancy updates.

dba0b479 · Robbert Krebbers · ae88b35e · dba0b479
Commit dba0b479 authored Dec 02, 2016 by Robbert Krebbers
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 0 deletions

base_logic/lib/fancy_updates.v base_logic/lib/fancy_updates.v +3 -0

No files found.
--- a/base_logic/lib/fancy_updates.v
+++ b/base_logic/lib/fancy_updates.v
@@ -224,4 +224,7 @@ Proof.
  iMod (fupd_intro_mask') as "HM2"; first done. iModIntro.
  iNext. iMod "HM2". iMod "HP". iMod "HM1". done.
 Qed.
+
+Lemma step_fupd_intro E1 E2 P : E2 ⊆ E1 → ▷ P -∗ |={E1,E2}▷=> P.
+Proof. iIntros (?) "HP". iApply (step_fupd_mask_mono E2 _ _ E2); auto. Qed.
 End step_fupd.