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
Dan Frumin
iris-coq
Commits
e4c30558
Commit
e4c30558
authored
May 31, 2016
by
Ralf Jung
Browse files
make box_fill more symmetric to box_empty
parent
995f46d3
Changes
1
Hide whitespace changes
Inline
Side-by-side
program_logic/boxes.v
View file @
e4c30558
...
...
@@ -131,16 +131,16 @@ Proof.
-
iExists
Φ
;
by
iSplit
;
[
iNext
|
].
Qed
.
Lemma
box_fill
f
γ
b
P
Q
:
f
!!
γ
=
Some
b
→
Lemma
box_fill
f
γ
P
Q
:
f
!!
γ
=
Some
false
→
(
box_slice
N
γ
Q
★
▷
Q
★
▷
box
N
f
P
)
⊢
|={
N
}=>
▷
box
N
(
<
[
γ
:=
true
]
>
f
)
P
.
Proof
.
iIntros
{?}
"(#Hinv & HQ & H)"
;
iDestruct
"H"
as
{
Φ
}
"[#HeqP Hf]"
.
iInv
N
as
{
b
'
}
"(Hγ & #HγQ & _)"
;
iTimeless
"Hγ"
.
iDestruct
(
big_sepM_later
_
f
with
"Hf"
)
as
"Hf"
.
iDestruct
(
big_sepM_delete
_
f
_
b
with
"Hf"
)
iDestruct
(
big_sepM_delete
_
f
_
false
with
"Hf"
)
as
"[[Hγ' #[HγΦ Hinv']] ?]"
;
first
done
;
iTimeless
"Hγ'"
.
iPvs
(
box_own_auth_update
_
γ
b
'
b
true
with
"[Hγ Hγ']"
)
iPvs
(
box_own_auth_update
_
γ
b
'
false
true
with
"[Hγ Hγ']"
)
as
"[Hγ Hγ']"
;
first
by
iFrame
"Hγ"
.
iPvsIntro
;
iNext
;
iSplitL
"Hγ HQ"
;
first
(
iExists
true
;
by
iFrame
"Hγ HQ"
).
iExists
Φ
;
iSplit
.
...
...
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