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
8ec7cd1e
Commit
8ec7cd1e
authored
Dec 07, 2017
by
Dan Frumin
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Reorganize the rules in rules.v
parent
16fd1249
Changes
2
Expand all
Show whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
462 additions
and
489 deletions
+462
-489
theories/logrel/logrel_binary.v
theories/logrel/logrel_binary.v
+0
-18
theories/logrel/rules.v
theories/logrel/rules.v
+462
-471
No files found.
theories/logrel/logrel_binary.v
View file @
8ec7cd1e
...
...
@@ -222,24 +222,6 @@ Section related_facts.
by
iMod
"HL"
.
Qed
.
Lemma
bin_log_related_weaken_2
τ
i
Δ
Γ
e1
e2
(
τ
:
type
)
:
{
Δ
;
Γ
}
⊨
e1
≤
log
≤
e2
:
τ
-
∗
{
τ
i
::
Δ
;
⤉Γ
}
⊨
e1
≤
log
≤
e2
:
τ
.[
ren
(
+
1
)].
Proof
.
rewrite
bin_log_related_eq
/
bin_log_related_def
.
iIntros
"Hlog"
(
vvs
ρ
)
"#Hs #HΓ"
.
iSpecialize
(
"Hlog"
$
!
vvs
with
"Hs [HΓ]"
).
{
by
rewrite
interp_env_ren
.
}
unfold
interp_expr
.
iIntros
(
j
K
)
"Hj /="
.
iMod
(
"Hlog"
with
"Hj"
)
as
"Hlog"
.
iApply
(
wp_mono
with
"Hlog"
).
iIntros
(
v
).
simpl
.
iDestruct
1
as
(
v
'
)
"[Hj Hτ]"
.
iExists
v
'
.
iFrame
.
by
rewrite
-
interp_ren
.
Qed
.
End
related_facts
.
(
**
Monadic
-
like
operations
on
logrel
*
)
...
...
theories/logrel/rules.v
View file @
8ec7cd1e
This diff is collapsed.
Click to expand it.
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