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
c85c4541
Commit
c85c4541
authored
Jan 11, 2017
by
Jacques-Henri Jourdan
Browse files
Rename tl_inG into na_inG.
parent
ca162551
Changes
1
Hide whitespace changes
Inline
Side-by-side
theories/base_logic/lib/na_invariants.v
View file @
c85c4541
...
...
@@ -9,7 +9,7 @@ Import uPred.
Definition
na_inv_pool_name
:
=
gname
.
Class
na_invG
Σ
:
=
tl
_inG
:
>
inG
Σ
(
prodR
coPset_disjR
(
gset_disjR
positive
)).
na
_inG
:
>
inG
Σ
(
prodR
coPset_disjR
(
gset_disjR
positive
)).
Section
defs
.
Context
`
{
invG
Σ
,
na_invG
Σ
}.
...
...
@@ -84,8 +84,8 @@ Section proofs.
na_inv
p
N
P
-
∗
na_own
p
F
={
E
}=
∗
▷
P
∗
na_own
p
(
F
∖↑
N
)
∗
(
▷
P
∗
na_own
p
(
F
∖↑
N
)
={
E
}=
∗
na_own
p
F
).
Proof
.
rewrite
/
na_inv
.
iIntros
(??)
"#H
tl
inv Htoks"
.
iDestruct
"H
tl
inv"
as
(
i
)
"[% Hinv]"
.
rewrite
/
na_inv
.
iIntros
(??)
"#H
na
inv Htoks"
.
iDestruct
"H
na
inv"
as
(
i
)
"[% Hinv]"
.
rewrite
[
F
as
X
in
na_own
p
X
](
union_difference_L
(
↑
N
)
F
)
//.
rewrite
[
X
in
(
X
∪
_
)](
union_difference_L
{[
i
]}
(
↑
N
))
?na_own_union
;
[|
set_solver
..].
iDestruct
"Htoks"
as
"[[Htoki $] $]"
.
...
...
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