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
Actris
Commits
33022b98
Commit
33022b98
authored
Jul 01, 2019
by
Robbert Krebbers
Browse files
Variable naming tweak.
parent
314e5f72
Changes
1
Hide whitespace changes
Inline
Side-by-side
theories/examples/list_sort_elem_client.v
View file @
33022b98
...
...
@@ -42,23 +42,23 @@ Section list_sort_elem_client.
by
rewrite
-
assoc_L
.
Qed
.
Lemma
recv_all_spec
c
p
xs
ys
:
Sorted
R
ys
→
{{{
c
↣
tail_protocol
I
R
xs
ys
<++>
p
@
N
}}}
Lemma
recv_all_spec
c
p
xs
ys
'
:
Sorted
R
ys
'
→
{{{
c
↣
tail_protocol
I
R
xs
ys
'
<++>
p
@
N
}}}
recv_all
c
{{{
ys
'
ws
,
RET
(
val_encode
ws
)
;
⌜
Sorted
R
(
ys
++
ys
'
)
⌝
∗
⌜
ys
++
ys
'
≡
ₚ
xs
⌝
∗
c
↣
p
@
N
∗
[
∗
list
]
y
;
w
∈
ys
'
;
ws
,
I
y
w
{{{
ys
ws
,
RET
(
val_encode
ws
)
;
⌜
Sorted
R
(
ys
'
++
ys
)
⌝
∗
⌜
ys
'
++
ys
≡
ₚ
xs
⌝
∗
c
↣
p
@
N
∗
[
∗
list
]
y
;
w
∈
ys
;
ws
,
I
y
w
}}}.
Proof
.
iIntros
(
Hsort
Φ
)
"Hc HΦ"
.
iL
ö
b
as
"IH"
forall
(
xs
ys
Φ
Hsort
).
iL
ö
b
as
"IH"
forall
(
xs
ys
'
Φ
Hsort
).
wp_lam
.
wp_branch
as
"_"
"Hperm"
;
wp_pures
.
-
wp_recv
(
y
v
)
as
(
Htl
)
"HIxv"
.
wp_apply
(
"IH"
with
"[] Hc"
)
;
first
by
auto
using
Sorted_snoc
.
iIntros
(
ys
'
ws
).
rewrite
-!
assoc_L
.
iDestruct
1
as
(??)
"[Hc HI]"
.
iIntros
(
ys
ws
).
rewrite
-!
assoc_L
.
iDestruct
1
as
(??)
"[Hc HI]"
.
wp_apply
(
lcons_spec
(
A
:
=
val
)
with
"[//]"
)
;
iIntros
(
_
).
iApply
(
"HΦ"
$!
(
y
::
ys
'
)).
simpl
;
iFrame
;
auto
.
iApply
(
"HΦ"
$!
(
y
::
ys
)).
simpl
;
iFrame
;
auto
.
-
wp_apply
(
lnil_spec
with
"[//]"
)
;
iIntros
(
_
).
iApply
(
"HΦ"
$!
[]
[])
;
rewrite
/=
right_id_L
;
by
iFrame
.
Qed
.
...
...
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