Skip to content
Snippets Groups Projects
Commit b0d9c1a2 authored by Ralf Jung's avatar Ralf Jung
Browse files

simplify proof of step_fupd_mask_mono

parent 65c53d1d
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
base_logic/lib/fancy_updates.v
+ 3
− 5
View file @ b0d9c1a2
...@@ -217,11 +217,9 @@ Lemma step_fupd_mask_mono E1 E2 F1 F2 P : ...@@ -217,11 +217,9 @@ Lemma step_fupd_mask_mono E1 E2 F1 F2 P :
F1 ⊆ F2 → E1 ⊆ E2 → (|={E1,F2}▷=> P) ⊢ |={E2,F1}▷=> P. F1 ⊆ F2 → E1 ⊆ E2 → (|={E1,F2}▷=> P) ⊢ |={E2,F1}▷=> P.
Proof. Proof.
iIntros (??) "HP". iIntros (??) "HP".
iAssert (|={E2,E1}▷=> True)%I as "HE". iMod (fupd_intro_mask') as "HM1"; first fast_done. iMod "HP".
{ iApply fupd_mono. apply later_intro. by iApply fupd_intro_mask. } iMod (fupd_intro_mask') as "HM2"; first fast_done. iModIntro.
iAssert (|={F2,F1}▷=> True)%I as "HF". iNext. iMod "HM2". iMod "HP". iMod "HM1". done.
{ iApply fupd_mono. apply later_intro. by iApply fupd_intro_mask. }
iMod "HE". iMod "HP". iMod "HF". iModIntro. iNext. iMod "HF". iMod "HP". by iMod "HE".
Qed. Qed.
End step_fupd. End step_fupd.
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