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
Dan Frumin
ReLoC-v1
Commits
1b9dfa34
Commit
1b9dfa34
authored
Oct 05, 2017
by
Dan Frumin
Browse files
Move out the `bin_log_related_seq` lemma
parent
9a123c2e
Changes
2
Hide whitespace changes
Inline
Side-by-side
theories/examples/various.v
View file @
1b9dfa34
...
...
@@ -6,23 +6,6 @@ From iris.proofmode Require Import tactics.
From
iris
.
algebra
Require
Import
csum
agree
excl
.
From
iris_logrel
Require
Import
logrel
.
Lemma
bin_log_related_seq
`
{
logrelG
Σ
}
τ
1
E
Δ
Γ
e1
e2
e1
'
e2
'
τ
2
`
{
Closed
∅
e2
}
`
{
Closed
∅
e2
'
}
:
↑
logrelN
⊆
E
→
{
E
,
E
;
Δ
;
Γ
}
⊨
e1
≤
log
≤
e1
'
:
τ
1
-
∗
{
E
,
E
;
Δ
;
Γ
}
⊨
e2
≤
log
≤
e2
'
:
τ
2
-
∗
{
E
,
E
;
Δ
;
Γ
}
⊨
(
e1
;;
e2
)
≤
log
≤
(
e1
'
;;
e2
'
)
:
τ
2.
Proof
.
iIntros
(
?
)
"He1 He2"
.
rel_bind_l
e1
.
rel_bind_r
e1
'
.
iApply
(
related_bind
with
"He1 [He2]"
).
iIntros
(
?
)
"? /="
.
rel_rec_l
.
rel_rec_r
.
done
.
Qed
.
Section
refinement
.
Context
`
{
logrelG
Σ
}
.
Notation
D
:=
(
prodC
valC
valC
-
n
>
iProp
Σ
).
...
...
theories/logrel/fundamental_binary.v
View file @
1b9dfa34
...
...
@@ -197,6 +197,22 @@ Section masked.
iApply
(
"Ht"
with
"Hj"
).
Qed
.
Lemma
bin_log_related_seq
Δ
Γ
e1
e2
e1
'
e2
'
τ
1
τ
2
`
{
Closed
∅
e2
}
`
{
Closed
∅
e2
'
}
:
↑
logrelN
⊆
E
→
{
E
,
E
;
Δ
;
Γ
}
⊨
e1
≤
log
≤
e1
'
:
τ
1
-
∗
{
E
,
E
;
Δ
;
Γ
}
⊨
e2
≤
log
≤
e2
'
:
τ
2
-
∗
{
E
,
E
;
Δ
;
Γ
}
⊨
(
e1
;;
e2
)
≤
log
≤
(
e1
'
;;
e2
'
)
:
τ
2.
Proof
.
iIntros
(
?
)
"He1 He2"
.
rel_bind_l
e1
.
rel_bind_r
e1
'
.
iApply
(
related_bind
with
"He1 [He2]"
).
iIntros
(
?
)
"? /="
.
rel_rec_l
.
rel_rec_r
.
done
.
Qed
.
Lemma
bin_log_related_injl
Δ
Γ
e
e
'
τ
1
τ
2
:
↑
logrelN
⊆
E
→
{
E
,
E
;
Δ
;
Γ
}
⊨
e
≤
log
≤
e
'
:
τ
1
-
∗
...
...
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