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
87957de9
Commit
87957de9
authored
Feb 09, 2016
by
Robbert Krebbers
Browse files
Stronger version of auth_update w.r.t. step indexes.
parent
efd82c63
Changes
1
Hide whitespace changes
Inline
Side-by-side
algebra/auth.v
View file @
87957de9
...
...
@@ -148,11 +148,11 @@ Lemma auth_frag_op a b : ◯ (a ⋅ b) ≡ ◯ a ⋅ ◯ b.
Proof
.
done
.
Qed
.
Lemma
auth_update
a
a'
b
b'
:
(
∀
n
af
,
✓
{
n
}
a
→
a
={
n
}=
a'
⋅
af
→
b
={
n
}=
b'
⋅
af
∧
✓
{
n
}
b
)
→
(
∀
n
af
,
✓
{
S
n
}
a
→
a
={
S
n
}=
a'
⋅
af
→
b
={
S
n
}=
b'
⋅
af
∧
✓
{
S
n
}
b
)
→
●
a
⋅
◯
a'
~~>
●
b
⋅
◯
b'
.
Proof
.
move
=>
Hab
[[]
bf1
]
n
//
=>-[[
bf2
Ha
]
?]
;
do
2
red
;
simpl
in
*.
destruct
(
Hab
(
S
n
)
(
bf1
⋅
bf2
))
as
[
Ha'
?]
;
auto
.
move
=>
Hab
[[
?|
|
]
bf1
]
n
//
=>-[[
bf2
Ha
]
?]
;
do
2
red
;
simpl
in
*.
destruct
(
Hab
n
(
bf1
⋅
bf2
))
as
[
Ha'
?]
;
auto
.
{
by
rewrite
Ha
left_id
associative
.
}
split
;
[
by
rewrite
Ha'
left_id
associative
;
apply
cmra_includedN_l
|
done
].
Qed
.
...
...
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