Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Rodolphe Lepigre
Iris
Commits
6645a150
Commit
6645a150
authored
Jun 20, 2019
by
Hai Dang
Browse files
Add stuck_fill lemma.
parent
7dec6f7c
Changes
1
Hide whitespace changes
Inline
Side-by-side
theories/program_logic/language.v
View file @
6645a150
...
...
@@ -161,6 +161,12 @@ Section language.
to_val
e
=
None
→
irreducible
e
σ
→
irreducible
(
K
e
)
σ
.
Proof
.
rewrite
-!
not_reducible
.
naive_solver
eauto
using
reducible_fill
.
Qed
.
Lemma
stuck_fill
`
{!@
LanguageCtx
Λ
K
}
e
σ
:
stuck
e
σ
→
stuck
(
K
e
)
σ
.
Proof
.
intros
ST
.
split
;
[
by
apply
fill_not_val
,
ST
|
apply
irreducible_fill
;
apply
ST
].
Qed
.
Lemma
step_Permutation
(
t1
t1'
t2
:
list
(
expr
Λ
))
κ
σ
1
σ
2
:
t1
≡
ₚ
t1'
→
step
(
t1
,
σ
1
)
κ
(
t2
,
σ
2
)
→
∃
t2'
,
t2
≡
ₚ
t2'
∧
step
(
t1'
,
σ
1
)
κ
(
t2'
,
σ
2
).
Proof
.
...
...
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