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
c
Commits
e1b061bf
Commit
e1b061bf
authored
Jun 28, 2018
by
Léon Gondelman
Browse files
fixed vcg_wp_bin_op
parent
41b5418a
Changes
1
Hide whitespace changes
Inline
Side-by-side
theories/vcgen/vcgen.v
View file @
e1b061bf
...
...
@@ -499,19 +499,18 @@ Section vcg_spec.
vcg_wp_continuation
E
Φ
w
.
Proof
.
iIntros
(
Hpre
Hwf1
Hwf2
Hwf3
)
"Hm Hwp HmOut"
.
rewrite
/
vcg_wp_bin_op
.
destruct
(
dbin_op_eval
E
b
dv1
dv2
)
as
[
|
dw
|
dw
]
eqn
:
Hbin
.
(*
* iExists (dval_interp E dw); iSplit.
destruct
(
dbin_op_eval
E
b
dv1
dv2
)
as
[
|
dw
|
dw
]
eqn
:
Hbin
.
*
iDestruct
"Hwp"
as
(
dw
Hopt
)
"Hcont"
;
simplify_eq
.
*
iExists
(
dval_interp
E
dw
)
;
iSplit
.
{
iPureIntro
.
apply
dbin_op_eval_correct
.
by
rewrite
Hbin
.
}
iExists
E
,
dw
,
(
denv_merge
mOut
m
).
apply
dbin_op_eval_dSome_wf
in
Hbin
;
try
done
.
rewrite
-
denv_merge_interp
//.
eauto
with
iFrame
.
* destruct dw as [dw1|] eqn:Hdw; last done.
iExists (dval_interp E dw1); iSplit.
*
iDestruct
"Hwp"
as
(
dw0
Hopt
)
"Hcont"
;
simplify_eq
.
destruct
dw
as
[
dw1
|]
eqn
:
Hdw
;
last
done
.
iExists
(
dval_interp
E
dw0
)
;
iSplit
;
last
done
.
iPureIntro
.
apply
dbin_op_eval_correct
.
by
rewrite
Hbin
.
iExists E, dw1, (denv_merge mOut m).
rewrite -denv_merge_interp.
apply dbin_op_eval_dUnknown_wf in Hbin; try done. eauto with iFrame.
Qed. *)
Admitted
.
Qed
.
Lemma
vcg_wp_store_correct
E
m
dv1
dv2
Φ
:
denv_wf
E
m
→
...
...
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