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
Jonas Kastberg
iris
Commits
b815eba9
Commit
b815eba9
authored
Mar 18, 2020
by
Ralf Jung
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
update dependencies; fix for fmap_seq rename
parent
a9043adb
Changes
3
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
4 additions
and
4 deletions
+4
-4
opam
opam
+1
-1
theories/heap_lang/array.v
theories/heap_lang/array.v
+1
-1
theories/heap_lang/lifting.v
theories/heap_lang/lifting.v
+2
-2
No files found.
opam
View file @
b815eba9
...
...
@@ -11,7 +11,7 @@ synopsis: "This is the Coq development of the Iris Project"
depends: [
"coq" { (>= "8.9.1" & < "8.12~") | (= "dev") }
"coq-stdpp" { (= "dev.2020-03-1
0.2.8db97649
") | (= "dev") }
"coq-stdpp" { (= "dev.2020-03-1
7.3.ad2e80d6
") | (= "dev") }
]
build: [make "-j%{jobs}%"]
...
...
theories/heap_lang/array.v
View file @
b815eba9
...
...
@@ -91,7 +91,7 @@ Lemma mapsto_seq_array l q v n :
Proof
.
rewrite
/
array
.
iInduction
n
as
[|
n'
]
"IH"
forall
(
l
)
;
simpl
.
{
done
.
}
iIntros
"[$ Hl]"
.
rewrite
-
fmap_seq
big_sepL_fmap
.
iIntros
"[$ Hl]"
.
rewrite
-
fmap_
S_
seq
big_sepL_fmap
.
setoid_rewrite
Nat2Z
.
inj_succ
.
setoid_rewrite
<-
Z
.
add_1_l
.
setoid_rewrite
<-
loc_add_assoc
.
iApply
"IH"
.
done
.
Qed
.
...
...
theories/heap_lang/lifting.v
View file @
b815eba9
...
...
@@ -249,7 +249,7 @@ Proof.
{
apply
map_disjoint_spec
=>
l'
v1
v2
/
lookup_singleton_Some
[->
_
].
intros
(
j
&?&
Hjl
&
_
)%
heap_array_lookup
.
rewrite
loc_add_assoc
-{
1
}[
l'
]
loc_add_0
in
Hjl
.
simplify_eq
;
lia
.
}
rewrite
loc_add_0
-
fmap_seq
big_sepL_fmap
.
rewrite
loc_add_0
-
fmap_
S_
seq
big_sepL_fmap
.
setoid_rewrite
Nat2Z
.
inj_succ
.
setoid_rewrite
<-
Z
.
add_1_l
.
setoid_rewrite
<-
loc_add_assoc
.
rewrite
big_opM_singleton
;
iDestruct
"Hvs"
as
"[$ Hvs]"
.
by
iApply
"IH"
.
...
...
@@ -265,7 +265,7 @@ Proof.
{
apply
map_disjoint_spec
=>
l'
v1
v2
/
lookup_singleton_Some
[->
_
].
intros
(
j
&?&
Hjl
&
_
)%
heap_array_lookup
.
rewrite
loc_add_assoc
-{
1
}[
l'
]
loc_add_0
in
Hjl
.
simplify_eq
;
lia
.
}
rewrite
loc_add_0
-
fmap_seq
big_sepL_fmap
.
rewrite
loc_add_0
-
fmap_
S_
seq
big_sepL_fmap
.
setoid_rewrite
Nat2Z
.
inj_succ
.
setoid_rewrite
<-
Z
.
add_1_l
.
setoid_rewrite
<-
loc_add_assoc
.
rewrite
big_opM_singleton
;
iDestruct
"Hvs"
as
"[$ Hvs]"
.
by
iApply
"IH"
.
...
...
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