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
Dan Frumin
ReLoC-v1
Commits
df3c07d8
Commit
df3c07d8
authored
May 30, 2016
by
Amin Timany
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Close the soundness lemma for stlc
parent
17a84c8d
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
4 additions
and
3 deletions
+4
-3
stlc/soundness.v
stlc/soundness.v
+4
-3
No files found.
stlc/soundness.v
View file @
df3c07d8
...
...
@@ -9,14 +9,14 @@ Require Import iris.program_logic.adequacy.
Import
uPred
.
Section
Soundness
.
Context
{
Σ
:
iFunctor
}
.
Definition
Σ
:=
#[]
.
Lemma
empty_env_subst
e
:
e
.[
env_subst
[]]
=
e
.
replace
(
env_subst
[])
with
(
ids
)
by
reflexivity
.
asimpl
;
trivial
.
Qed
.
Lemma
wp_soundness
e
τ
:
typed
[]
e
τ
→
True
⊢
WP
e
{{@
interp
Σ
τ
}}
.
Lemma
wp_soundness
e
τ
:
typed
[]
e
τ
→
True
⊢
WP
e
{{@
interp
(
globalF
Σ
)
τ
}}
.
Proof
.
iIntros
{
H
}
""
.
rewrite
-
(
empty_env_subst
e
).
...
...
@@ -30,7 +30,8 @@ Section Soundness.
Proof
.
intros
H1
e
'
thp
Hstp
Hnr
.
apply
wp_soundness
in
H1
.
edestruct
(
@
wp_adequacy_reducible
lang
Σ
⊤
(
interp
τ
)
e
e
'
(
e
'
::
thp
)
tt
∅
)
edestruct
(
@
wp_adequacy_reducible
lang
(
globalF
Σ
)
⊤
(
interp
τ
)
e
e
'
(
e
'
::
thp
)
tt
∅
)
as
[
Ha
|
Ha
];
eauto
using
cmra_unit_valid
;
try
tauto
.
-
iIntros
"H"
.
iApply
H1
.
-
constructor
.
...
...
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