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
6b695042
Commit
6b695042
authored
Oct 09, 2018
by
Dan Frumin
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
simpl_subst in vcgen
(Fixes #4)
parent
148d00ca
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
3 additions
and
7 deletions
+3
-7
theories/vcgen/vcg_solver.v
theories/vcgen/vcg_solver.v
+3
-7
No files found.
theories/vcgen/vcg_solver.v
View file @
6b695042
...
...
@@ -10,24 +10,20 @@ Import env_notations.
Section
vcg_continue
.
Context
`
{
amonadG
Σ
}.
Class
FromKnownLocs
(
Γ
ls
:
penv
)
(
E_old
:
known_locs
)
(
E_new
:
known_locs
)
:
=
from_known_locs
:
True
.
(*dom Γls ⊂ (elem_of E_old) disj_Union (elem_of E) *)
Class
FromKnownLocs
(
Γ
ls
:
penv
)
(
E_old
:
known_locs
)
(
E_new
:
known_locs
)
.
(*dom Γls ⊂ (elem_of E_old) disj_Union (elem_of E) *)
Global
Instance
from_known_locs_Nil
E_old
:
FromKnownLocs
[]
E_old
[].
Proof
.
done
.
Qed
.
Global
Instance
from_known_locs_old_cons
Γ
ls
E_old
E_new
x
q
v
l
i
:
LocLookup
E_old
l
i
→
FromKnownLocs
Γ
ls
E_old
E_new
→
FromKnownLocs
(
PenvItem
l
x
q
v
::
Γ
ls
)
E_old
E_new
.
Proof
.
done
.
Qed
.
Global
Instance
from_known_locs_new_cons
Γ
ls
E_old
E_new
x
q
v
l
:
FromKnownLocs
Γ
ls
E_old
E_new
→
FromKnownLocs
(
PenvItem
l
x
q
v
::
Γ
ls
)
E_old
(
l
::
E_new
)
|
100
.
Proof
.
done
.
Qed
.
Lemma
tac_vcg_sound
Γ
s_in
Γ
s_out
Γ
ls
Γ
p
m
c
e
R
Φ
E
de
:
MapstoListFromEnv
Γ
s_in
Γ
s_out
Γ
ls
→
...
...
@@ -94,7 +90,7 @@ Ltac vcg_solver :=
|
apply
_
(* Reify the expression *)
|
vm_compute
[
reflexivity
]
;
try
done
(* Prove that the reified expression is well-formed *)
|
done
(* Prove that the environment is well-formed *)
|
simpl
].
|
simpl
;
simpl_subst
].
Ltac
vcg_continue
:
=
eapply
tac_exists_known_locs
;
...
...
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