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
703244e8
Commit
703244e8
authored
Sep 19, 2017
by
Dan Frumin
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Clean up the prerefinement proof
parent
f0c8ef32
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
10 additions
and
18 deletions
+10
-18
theories/logrel/contextual_refinement.v
theories/logrel/contextual_refinement.v
+10
-17
theories/logrel/soundness_binary.v
theories/logrel/soundness_binary.v
+0
-1
No files found.
theories/logrel/contextual_refinement.v
View file @
703244e8
From
iris
.
proofmode
Require
Import
tactics
.
From
iris_logrel
.
F_mu_ref_conc
Require
Export
context_refinement
.
From
iris_logrel
.
logrel
Require
Export
fundamental_binary
.
From
Autosubst
Require
Import
Autosubst_Classes
.
(
*
for
[
subst
]
*
)
...
...
@@ -52,6 +53,7 @@ Section bin_log_related_under_typed_ctx.
=>
eapply
(
typed_X_closed
Γ
_
e
H
)
end
.
(
*
Precongruence
*
)
Lemma
bin_log_related_under_typed_ctx
Γ
e
e
'
τ
Γ'
τ'
K
:
(
Closed
(
dom
_
Γ
)
e
)
→
(
Closed
(
dom
_
Γ
)
e
'
)
→
...
...
@@ -78,36 +80,27 @@ Section bin_log_related_under_typed_ctx.
{
by
rewrite
!
dom_insert_binder
.
}
eapply
typed_ctx_closed
;
eauto
.
iAlways
.
iApply
(
IHK
with
"[Hrel]"
);
auto
.
+
iApply
(
bin_log_related_app
with
"[]"
).
+
iApply
(
bin_log_related_app
with
"[]"
)
;
try
fundamental
.
iApply
(
IHK
with
"[Hrel]"
);
auto
.
fundamental
.
+
iApply
(
bin_log_related_app
_
_
_
_
_
_
_
τ
2
with
"[]"
);
try
fundamental
.
iApply
(
IHK
with
"[Hrel]"
);
auto
.
+
iApply
(
bin_log_related_pair
with
"[]"
);
try
fundamental
.
iApply
(
IHK
with
"[Hrel]"
);
auto
.
+
iApply
(
bin_log_related_pair
with
"[]"
);
try
fundamental
.
iApply
(
IHK
with
"[Hrel]"
);
auto
.
+
iApply
bin_log_related_fst
;
first
by
auto
.
+
iApply
bin_log_related_fst
;
first
done
.
iApply
(
IHK
with
"[Hrel]"
);
auto
.
+
iApply
bin_log_related_snd
;
first
by
auto
.
+
iApply
bin_log_related_snd
;
first
done
.
iApply
(
IHK
with
"[Hrel]"
);
auto
.
+
iApply
bin_log_related_injl
;
first
done
.
iApply
(
IHK
with
"[Hrel]"
);
auto
.
+
iApply
bin_log_related_injr
;
first
done
.
iApply
(
IHK
with
"[Hrel]"
);
auto
.
+
inversion
Hx2
;
subst
.
*
iApply
(
bin_log_related_case
with
"[] []"
);
try
fundamental
.
*
iApply
(
bin_log_related_case
with
"[] []"
);
try
fundamental
.
iApply
(
IHK
with
"[Hrel]"
);
auto
.
+
match
goal
with
H
:
typed_ctx_item
_
_
_
_
_
|-
_
=>
inversion
H
;
subst
end
.
iApply
(
bin_log_related_case
with
"[] []"
);
try
fundamental
.
iApply
(
IHK
with
"[Hrel]"
);
auto
.
+
match
goal
with
H
:
typed_ctx_item
_
_
_
_
_
|-
_
=>
inversion
H
;
subst
end
.
iApply
(
bin_log_related_case
with
"[] []"
);
try
fundamental
.
+
iApply
(
bin_log_related_case
with
"[] []"
);
try
fundamental
.
iApply
(
IHK
with
"[Hrel]"
);
auto
.
+
iApply
(
bin_log_related_case
with
"[] []"
);
try
fundamental
.
iApply
(
IHK
with
"[Hrel]"
);
auto
.
+
iApply
(
bin_log_related_case
with
"[] []"
);
try
fundamental
.
iApply
(
IHK
with
"[Hrel]"
);
auto
.
+
iApply
(
bin_log_related_if
with
"[] []"
);
try
fundamental
.
iApply
(
IHK
with
"[Hrel]"
);
auto
.
...
...
theories/logrel/soundness_binary.v
View file @
703244e8
...
...
@@ -52,7 +52,6 @@ Proof.
iIntros
"!> !%"
;
eauto
.
Qed
.
Theorem
logrel_typesafety
Σ
`
{
logrelPreG
Σ
}
Δ
e
e
'
τ
thp
σ
σ'
:
(
∀
`
{
logrelG
Σ
}
,
{
⊤
,
⊤
;
Δ
;
∅
}
⊨
e
≤
log
≤
e
:
τ
)
→
rtc
step
([
e
],
σ
)
(
thp
,
σ'
)
→
e
'
∈
thp
→
...
...
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