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
c
Commits
b3bf8211
Commit
b3bf8211
authored
Jan 25, 2019
by
Dan Frumin
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
remove trailing whitespaces
parent
225b639d
Changes
3
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
6 additions
and
6 deletions
+6
-6
theories/vcgen/dcexpr.v
theories/vcgen/dcexpr.v
+2
-2
theories/vcgen/denv.v
theories/vcgen/denv.v
+3
-3
theories/vcgen/vcg.v
theories/vcgen/vcg.v
+1
-1
No files found.
theories/vcgen/dcexpr.v
View file @
b3bf8211
...
...
@@ -96,7 +96,7 @@ Definition dloc_var_of_dval (dv : dval) : option nat :=
Definition
nat_of_dint
(
di
:
dint
)
:
option
(
nat
*
option
nat
)
:
=
match
di
with
|
dInt
i
None
=>
guard
(
0
≤
i
)
;
Some
(
Z
.
to_nat
i
,
None
)
|
dInt
i
None
=>
guard
(
0
≤
i
)
;
Some
(
Z
.
to_nat
i
,
None
)
|
dInt
i
(
Some
(
IntNat
j
))
=>
guard
(
0
≤
i
)
;
Some
(
Z
.
to_nat
i
,
Some
j
)
|
_
=>
None
end
.
...
...
@@ -176,7 +176,7 @@ Arguments dloc_var_interp !_ !_ /.
Definition
dloc_interp
(
E
:
known_locs
)
(
dl
:
dloc
)
:
cloc
:
=
match
dl
with
|
dLoc
i
dj
=>
|
dLoc
i
dj
=>
match
dint_interp'
dj
with
|
Some
j
=>
dloc_var_interp
E
i
+
∗
j
|
None
=>
dloc_var_interp
E
i
...
...
theories/vcgen/denv.v
View file @
b3bf8211
...
...
@@ -417,14 +417,14 @@ Section denv.
Lemma
denv_wf_dval_wf_lookup
E
i
m
q
dv
:
denv_lookup
i
m
=
Some
(
q
,
dv
)
→
denv_wf
E
m
→
dval_wf
E
dv
.
Proof
.
rewrite
/
denv_lookup
;
simplify
;
eauto
using
denv_wf_dval_wf_delete_full_aux
.
Qed
.
Proof
.
rewrite
/
denv_lookup
;
simplify
;
eauto
using
denv_wf_dval_wf_delete_full_aux
.
Qed
.
Lemma
denv_wf_frac_wf_lookup
E
i
m
q
dv
:
denv_lookup
i
m
=
Some
(
q
,
dv
)
→
denv_wf
E
m
→
(
0
<
q
)%
Q
.
Proof
.
rewrite
/
denv_lookup
;
simplify
;
eauto
using
denv_wf_frac_wf_delete_full_aux
.
Qed
.
Proof
.
rewrite
/
denv_lookup
;
simplify
;
eauto
using
denv_wf_frac_wf_delete_full_aux
.
Qed
.
Lemma
denv_wf_delete_full
E
i
m
m'
dv
:
denv_delete_full
i
m
=
Some
(
m'
,
dv
)
→
denv_wf
E
m
→
denv_wf
E
m'
.
Proof
.
rewrite
/
denv_delete_full
;
simplify
;
eauto
using
denv_wf_delete_full_aux
.
Qed
.
Proof
.
rewrite
/
denv_delete_full
;
simplify
;
eauto
using
denv_wf_delete_full_aux
.
Qed
.
Lemma
denv_wf_dval_wf_delete_full
E
i
m
m'
dv
:
denv_delete_full
i
m
=
Some
(
m'
,
dv
)
→
denv_wf
E
m
→
dval_wf
E
dv
.
Proof
.
rewrite
/
denv_delete_full
;
simplify
;
eauto
using
denv_wf_dval_wf_delete_full_aux
.
Qed
.
...
...
theories/vcgen/vcg.v
View file @
b3bf8211
...
...
@@ -440,7 +440,7 @@ Section vcg_spec.
destruct
de
;
simplify_eq
/=
;
destruct_and
?.
-
(* return *)
destruct
(
dexpr_eval
_
)
as
[
dv1
|]
eqn
:
?
;
simplify_eq
/=
;
last
first
.
{
by
iDestruct
(
vcg_cwp_continuation_correct
with
"Hm H"
)
as
"$"
.
}
{
by
iDestruct
(
vcg_cwp_continuation_correct
with
"Hm H"
)
as
"$"
.
}
iApply
cwp_ret
.
iApply
wp_wand
;
first
by
iApply
dexpr_eval_correct
.
iIntros
(
v
->).
iApply
(
vcg_continuation_correct
with
"H"
)
;
eauto
.
-
(* bind *)
...
...
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