Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Rodolphe Lepigre
Iris
Commits
c7b669ce
Commit
c7b669ce
authored
Jun 20, 2019
by
Ralf Jung
Browse files
remove some unneeded type annotations
parent
eafd77e6
Changes
1
Hide whitespace changes
Inline
Side-by-side
theories/heap_lang/lifting.v
View file @
c7b669ce
...
...
@@ -533,7 +533,7 @@ Proof.
iIntros
"!>"
(
vs'
)
"HEq Hp"
.
iApply
"HΦ"
.
iFrame
.
Qed
.
Lemma
wp_resolve_cas_suc
s
E
(
l
:
loc
)
(
p
:
proph_id
)
(
pvs
:
list
(
val
*
val
))
(
v1
v2
v
:
val
)
:
Lemma
wp_resolve_cas_suc
s
E
l
(
p
:
proph_id
)
(
pvs
:
list
(
val
*
val
))
v1
v2
v
:
vals_cas_compare_safe
v1
v1
→
{{{
proph
p
pvs
∗
▷
l
↦
v1
}}}
Resolve
(
CompareExchange
#
l
v1
v2
)
#
p
v
@
s
;
E
...
...
@@ -546,7 +546,7 @@ Proof.
iIntros
(
pvs'
->)
"Hp"
.
iApply
"HΦ"
.
eauto
with
iFrame
.
Qed
.
Lemma
wp_resolve_cas_fail
s
E
(
l
:
loc
)
(
p
:
proph_id
)
(
pvs
:
list
(
val
*
val
))
q
(
v'
v1
v2
v
:
val
)
:
Lemma
wp_resolve_cas_fail
s
E
l
(
p
:
proph_id
)
(
pvs
:
list
(
val
*
val
))
q
v'
v1
v2
v
:
val_for_compare
v'
≠
val_for_compare
v1
→
vals_cas_compare_safe
v'
v1
→
{{{
proph
p
pvs
∗
▷
l
↦
{
q
}
v'
}}}
Resolve
(
CompareExchange
#
l
v1
v2
)
#
p
v
@
s
;
E
...
...
Write
Preview
Supports
Markdown
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