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
ffb0a675
Commit
ffb0a675
authored
Feb 17, 2016
by
Ralf Jung
Browse files
prove recv_strengthen
parent
d822ba8a
Changes
1
Hide whitespace changes
Inline
Side-by-side
barrier/barrier.v
View file @
ffb0a675
...
...
@@ -220,6 +220,12 @@ Section proof.
Lemma
recv_strengthen
l
P1
P2
:
(
P1
-
★
P2
)
⊑
(
recv
l
P1
-
★
recv
l
P2
).
Proof
.
Abort
.
apply
wand_intro_l
.
rewrite
/
recv
.
rewrite
sep_exist_r
.
apply
exist_mono
=>
γ
.
rewrite
sep_exist_r
.
apply
exist_mono
=>
P
.
rewrite
sep_exist_r
.
apply
exist_mono
=>
Q
.
rewrite
sep_exist_r
.
apply
exist_mono
=>
i
.
rewrite
-!
assoc
.
apply
sep_mono_r
,
sep_mono_r
,
sep_mono_r
,
sep_mono_r
.
rewrite
(
later_intro
(
P1
-
★
_
)%
I
)
-
later_sep
.
apply
later_mono
.
apply
wand_intro_l
.
rewrite
!
assoc
wand_elim_r
wand_elim_r
.
done
.
Qed
.
End
proof
.
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