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
Iris
Commits
fb1de8a8
Commit
fb1de8a8
authored
Dec 06, 2016
by
Ralf Jung
Browse files
na_inv: avoid tying the masks together, that makes it hard(er) to apply the lemma
parent
683b7066
Pipeline
#3226
passed with stage
in 10 minutes and 51 seconds
Changes
1
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
base_logic/lib/na_invariants.v
View file @
fb1de8a8
...
...
@@ -71,14 +71,14 @@ Section proofs.
iNext
.
iLeft
.
by
iFrame
.
Qed
.
Lemma
na_inv_open
tid
E
N
P
:
↑
N
⊆
E
→
na_inv
tid
N
P
-
∗
na_own
tid
E
={
E
}=
∗
▷
P
∗
na_own
tid
(
E
∖↑
N
)
∗
(
▷
P
∗
na_own
tid
(
E
∖↑
N
)
={
E
}=
∗
na_own
tid
E
).
Lemma
na_inv_open
tid
E
F
N
P
:
↑
N
⊆
E
→
↑
N
⊆
F
→
na_inv
tid
N
P
-
∗
na_own
tid
F
={
E
}=
∗
▷
P
∗
na_own
tid
(
F
∖↑
N
)
∗
(
▷
P
∗
na_own
tid
(
F
∖↑
N
)
={
E
}=
∗
na_own
tid
F
).
Proof
.
rewrite
/
na_inv
.
iIntros
(?)
"#Htlinv Htoks"
.
rewrite
/
na_inv
.
iIntros
(?
?
)
"#Htlinv Htoks"
.
iDestruct
"Htlinv"
as
(
i
)
"[% Hinv]"
.
rewrite
[
E
as
X
in
na_own
tid
X
](
union_difference_L
(
↑
N
)
E
)
//.
rewrite
[
F
as
X
in
na_own
tid
X
](
union_difference_L
(
↑
N
)
F
)
//.
rewrite
[
X
in
(
X
∪
_
)](
union_difference_L
{[
i
]}
(
↑
N
))
?na_own_union
;
[|
set_solver
..].
iDestruct
"Htoks"
as
"[[Htoki $] $]"
.
iInv
N
as
"[[$ >Hdis]|>Htoki2]"
"Hclose"
.
...
...
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