Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
Iris
Actris
Commits
e21a5733
Commit
e21a5733
authored
Apr 01, 2020
by
Robbert Krebbers
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Add rule `iProto_le_branch`.
parent
f6726918
Changes
1
Show whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
15 additions
and
0 deletions
+15
-0
theories/channel/channel.v
theories/channel/channel.v
+15
-0
No files found.
theories/channel/channel.v
View file @
e21a5733
...
...
@@ -174,6 +174,21 @@ Section channel.
by
apply
iProto_message_proper
=>
/=
-[].
Qed
.
Lemma
iProto_le_branch
a
P1
P2
p1
p2
p1'
p2'
:
▷
(
P1
-
∗
P1
∗
iProto_le
p1
p1'
)
∧
▷
(
P2
-
∗
P2
∗
iProto_le
p2
p2'
)
-
∗
iProto_le
(
iProto_branch
a
P1
P2
p1
p2
)
(
iProto_branch
a
P1
P2
p1'
p2'
).
Proof
.
iIntros
"H"
.
rewrite
/
iProto_branch
.
destruct
a
.
-
iApply
iProto_le_send'
;
iIntros
"!>"
(
b
)
"HP /="
.
iExists
b
;
iSplit
;
[
done
|].
destruct
b
.
+
iDestruct
"H"
as
"[H _]"
.
by
iApply
"H"
.
+
iDestruct
"H"
as
"[_ H]"
.
by
iApply
"H"
.
-
iApply
iProto_le_recv'
;
iIntros
"!>"
(
b
)
"HP /="
.
iExists
b
;
iSplit
;
[
done
|].
destruct
b
.
+
iDestruct
"H"
as
"[H _]"
.
by
iApply
"H"
.
+
iDestruct
"H"
as
"[_ H]"
.
by
iApply
"H"
.
Qed
.
(** ** Specifications of [send] and [recv] *)
Lemma
new_chan_spec
p
:
{{{
True
}}}
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a 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