Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Iris
Iris
Commits
b0d9c1a2
Commit
b0d9c1a2
authored
Nov 21, 2016
by
Ralf Jung
Browse files
simplify proof of step_fupd_mask_mono
parent
65c53d1d
Pipeline
#3026
passed with stage
in 10 minutes and 3 seconds
Changes
1
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
base_logic/lib/fancy_updates.v
View file @
b0d9c1a2
...
...
@@ -217,11 +217,9 @@ Lemma step_fupd_mask_mono E1 E2 F1 F2 P :
F1
⊆
F2
→
E1
⊆
E2
→
(|={
E1
,
F2
}
▷
=>
P
)
⊢
|={
E2
,
F1
}
▷
=>
P
.
Proof
.
iIntros
(??)
"HP"
.
iAssert
(|={
E2
,
E1
}
▷
=>
True
)%
I
as
"HE"
.
{
iApply
fupd_mono
.
apply
later_intro
.
by
iApply
fupd_intro_mask
.
}
iAssert
(|={
F2
,
F1
}
▷
=>
True
)%
I
as
"HF"
.
{
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"
.
iMod
(
fupd_intro_mask'
)
as
"HM1"
;
first
fast_done
.
iMod
"HP"
.
iMod
(
fupd_intro_mask'
)
as
"HM2"
;
first
fast_done
.
iModIntro
.
iNext
.
iMod
"HM2"
.
iMod
"HP"
.
iMod
"HM1"
.
done
.
Qed
.
End
step_fupd
.
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment