Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
Iris
Iris
Commits
995f46d3
Commit
995f46d3
authored
May 31, 2016
by
Robbert Krebbers
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Strengthen big_sepM_insert_override and use it.
parent
5b2fdd53
Pipeline
#1203
passed with stage
Changes
2
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
4 additions
and
4 deletions
+4
-4
algebra/upred_big_op.v
algebra/upred_big_op.v
+2
-2
program_logic/boxes.v
program_logic/boxes.v
+2
-2
No files found.
algebra/upred_big_op.v
View file @
995f46d3
...
...
@@ -180,9 +180,9 @@ Section gmap.
f_equiv
;
apply
reflexive_eq
,
list_fmap_ext
.
by
intros
[].
done
.
Qed
.
Lemma
big_sepM_insert_override
(
Φ
:
K
→
uPred
M
)
m
i
x
:
Lemma
big_sepM_insert_override
(
Φ
:
K
→
uPred
M
)
m
i
x
y
:
m
!!
i
=
Some
x
→
([
★
map
]
k
↦
_
∈
<[
i
:
=
x
]>
m
,
Φ
k
)
⊣
⊢
([
★
map
]
k
↦
_
∈
m
,
Φ
k
).
([
★
map
]
k
↦
_
∈
<[
i
:
=
y
]>
m
,
Φ
k
)
⊣
⊢
([
★
map
]
k
↦
_
∈
m
,
Φ
k
).
Proof
.
intros
.
rewrite
-
insert_delete
big_sepM_insert
?lookup_delete
//.
by
rewrite
-
big_sepM_delete
.
...
...
program_logic/boxes.v
View file @
995f46d3
...
...
@@ -144,7 +144,7 @@ Proof.
as
"[Hγ Hγ']"
;
first
by
iFrame
"Hγ"
.
iPvsIntro
;
iNext
;
iSplitL
"Hγ HQ"
;
first
(
iExists
true
;
by
iFrame
"Hγ HQ"
).
iExists
Φ
;
iSplit
.
-
by
rewrite
-
insert_delete
big_sepM_insert
?lookup_delete
//
big_sepM_delet
e
.
-
by
rewrite
big_sepM_insert_overrid
e
.
-
rewrite
-
insert_delete
big_sepM_insert
?lookup_delete
//.
iFrame
"Hγ'"
.
by
repeat
iSplit
.
Qed
.
...
...
@@ -165,7 +165,7 @@ Proof.
as
"[Hγ Hγ']"
;
first
by
iFrame
"Hγ"
.
iPvsIntro
;
iNext
;
iSplitL
"Hγ"
;
first
(
iExists
false
;
by
repeat
iSplit
).
iExists
Φ
;
iSplit
.
-
by
rewrite
-
insert_delete
big_sepM_insert
?lookup_delete
//
big_sepM_delet
e
.
-
by
rewrite
big_sepM_insert_overrid
e
.
-
rewrite
-
insert_delete
big_sepM_insert
?lookup_delete
//.
iFrame
"Hγ'"
.
by
repeat
iSplit
.
Qed
.
...
...
Write
Preview
Markdown
is supported
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