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
e86c76ff
Commit
e86c76ff
authored
Dec 06, 2017
by
Dan Frumin
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Simplify the `bin_log_related_val` proof
parent
ce009e58
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
4 additions
and
8 deletions
+4
-8
theories/logrel/rules.v
theories/logrel/rules.v
+4
-8
No files found.
theories/logrel/rules.v
View file @
e86c76ff
...
...
@@ -20,14 +20,10 @@ Section properties.
to_val
e
'
=
Some
v
'
→
(
|={
E
}=>
⟦
τ
⟧
Δ
(
v
,
v
'
))
⊢
{
E
;
Δ
;
Γ
}
⊨
e
≤
log
≤
e
'
:
τ
.
Proof
.
rewrite
bin_log_related_eq
.
iIntros
(
Hv
Hv
'
)
"IH"
.
iIntros
(
vvs
ρ
)
"#Hs #HΓ"
;
iIntros
(
j
K
)
"Hj /="
.
replace
e
with
(
of_val
v
);
auto
using
of_to_val
.
replace
e
'
with
(
of_val
v
'
);
auto
using
of_to_val
.
rewrite
/
env_subst
!
Closed_subst_p_id
.
iMod
"IH"
as
"IH"
.
iModIntro
.
iApply
wp_value
;
eauto
.
iIntros
(
He
He
'
)
"Hτ"
.
iMod
"Hτ"
as
"Hτ"
.
rewrite
(
interp_ret
E
);
eauto
.
by
rewrite
-
related_ret
.
Qed
.
Lemma
bin_log_related_arrow_val
Δ
Γ
E
(
f
x
f
'
x
'
:
binder
)
(
e
e
'
eb
eb
'
:
expr
)
(
τ
τ'
:
type
)
:
...
...
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