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
gpfsl
Commits
86b94266
Commit
86b94266
authored
Oct 18, 2021
by
Hai Dang
Browse files
Minor cleanup with subjectively
parent
592f1ae4
Changes
1
Hide whitespace changes
Inline
Side-by-side
theories/examples/stack/proof_treiber_graph.v
View file @
86b94266
...
...
@@ -630,21 +630,6 @@ Proof.
-
eauto
with
iFrame
.
Qed
.
(* TODO: move *)
Lemma
own_loc_na_own_loc_prim_subjectively
n
q
v
:
n
↦
{
q
}
v
⊢
∃
(
q'
:
Qp
)
(
C'
:
cell
),
▷
<
subj
>
n
p
↦
{
q'
}
C'
.
Proof
.
rewrite
own_loc_na_own_loc_prim
.
iDestruct
1
as
(
C
)
"En"
.
iExists
q
,
C
.
iNext
.
by
iApply
monPred_subjectively_intro
.
Qed
.
Lemma
own_loc_na_view_at_prim
n
q
v
V
:
@{
V
}
n
↦
{
q
}
v
⊢
∃
(
q'
:
Qp
)
(
C'
:
cell
),
▷
<
subj
>
n
p
↦
{
q'
}
C'
.
Proof
.
rewrite
own_loc_na_own_loc_prim_subjectively
.
iDestruct
1
as
(
q'
C
)
"En"
.
iExists
q'
,
C
.
iNext
.
by
rewrite
view_at_subjectively
monPred_subjectively_idemp
.
Qed
.
Lemma
all_slocs_node_access_prim
t0
LVs
t
(
l'
:
loc
)
Vb
:
fst
<$>
toHeadHist
t0
LVs
!!
t
=
Some
#
l'
→
@{
Vb
}
all_slocs
LVs
⊢
∃
(
q'
:
Qp
)
(
C'
:
cell
),
▷
<
subj
>
l'
p
↦
{
q'
}
C'
.
...
...
@@ -656,7 +641,7 @@ Proof.
apply
elem_of_list_lookup_2
in
Eq2
.
rewrite
(
all_slocs_node_next_access
_
_
_
Eq2
).
iIntros
"[As En]"
.
iDestruct
"En"
as
(
q'
on
)
"En"
.
by
rewrite
view_at_view_at
(
shift_0
l'
)
own_loc_na_view_at_
prim
.
by
rewrite
view_at_view_at
(
shift_0
l'
)
own_loc_na_view_at_
own_loc_prim_subjectively
.
Qed
.
Lemma
all_slocs_app
LVs
LVs'
:
...
...
@@ -1058,7 +1043,7 @@ Proof.
move
:
Eq1
.
by
apply
elem_of_list_lookup_2
.
}
iDestruct
"As"
as
"[As oN]"
.
iDestruct
"oN"
as
(
qn'
on'
)
"oN"
.
rewrite
(
view_at_view_at
_
V0
).
iSplitL
"oN"
.
-
by
rewrite
(
shift_0
n'
)
own_loc_na_view_at_
prim
.
-
by
rewrite
(
shift_0
n'
)
own_loc_na_view_at_
own_loc_prim_subjectively
.
-
iIntros
(??
(
_
&
?
&
_
)).
by
iApply
(
all_slocs_node_access_prim
with
"As"
).
}
iIntros
(
b
t'
v'
Vr
V2
ζ
2
ζ
n
)
"(F & #sV2 & #sH2 & H & As & CASE)"
.
...
...
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