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
Jonas Kastberg
iris
Commits
e2b1c91c
Commit
e2b1c91c
authored
Jan 22, 2017
by
Robbert Krebbers
Browse files
Tweak.
parent
7a17a440
Changes
1
Hide whitespace changes
Inline
Side-by-side
theories/base_logic/lib/sts.v
View file @
e2b1c91c
...
...
@@ -101,13 +101,13 @@ Section sts.
Proof
.
iIntros
"[Hinv Hγf]"
.
rewrite
/
sts_ownS
/
sts_inv
/
sts_own
.
iDestruct
"Hinv"
as
(
s
)
"[>Hγ Hφ]"
.
iCombine
"Hγ"
"Hγf"
as
"Hγ"
;
iDestruct
(
own_valid
with
"Hγ"
)
as
%
Hvalid
.
iDestruct
(
own_valid
_2
with
"Hγ
Hγf
"
)
as
%
Hvalid
.
assert
(
s
∈
S
)
by
eauto
using
sts_auth_frag_valid_inv
.
assert
(
✓
sts_frag
S
T
)
as
[??]
by
eauto
using
cmra_valid_op_r
.
rewrite
sts_op_auth_frag
//.
iModIntro
;
iExists
s
;
iSplit
;
[
done
|]
;
iFrame
"Hφ"
.
iIntros
(
s'
T'
)
"[% Hφ]"
.
iMod
(
own_update
with
"Hγ"
)
as
"Hγ"
;
first
eauto
using
sts_update_auth
.
iMod
(
own_update_2
with
"Hγ Hγf"
)
as
"Hγ"
.
{
rewrite
sts_op_auth_frag
;
[|
done
..].
by
apply
sts_update_auth
.
}
iRevert
"Hγ"
;
rewrite
-
sts_op_auth_frag_up
;
iIntros
"[Hγ $]"
.
iModIntro
.
iNext
.
iExists
s'
;
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