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
Rice Wine
Iris
Commits
4f0acc79
Commit
4f0acc79
authored
Sep 20, 2016
by
Robbert Krebbers
Browse files
Lemma for inclusion of excl similar to dec_agree.
parent
54ede303
Changes
1
Hide whitespace changes
Inline
Side-by-side
algebra/excl.v
View file @
4f0acc79
...
...
@@ -120,11 +120,11 @@ Lemma excl_validN_inv_l n mx a : ✓{n} (Excl' a ⋅ mx) → mx = None.
Proof
.
by
destruct
mx
.
Qed
.
Lemma
excl_validN_inv_r
n
mx
a
:
✓
{
n
}
(
mx
⋅
Excl'
a
)
→
mx
=
None
.
Proof
.
by
destruct
mx
.
Qed
.
Lemma
Excl_includedN
n
a
mx
:
✓
{
n
}
mx
→
Excl'
a
≼
{
n
}
mx
↔
mx
≡
{
n
}
≡
Excl'
a
.
Proof
.
intros
Hvalid
;
split
;
[|
by
intros
->]
.
intros
[
z
?]
;
cofe_subst
.
by
rewrite
(
excl_validN_inv_l
n
z
a
)
.
Qed
.
Lemma
Excl_includedN
n
a
b
:
Excl'
a
≼
{
n
}
Excl'
b
→
a
≡
{
n
}
≡
b
.
Proof
.
by
intros
[[
c
|]
Hb
%(
inj
Some
)]
;
inversion_clear
Hb
.
Qed
.
Lemma
Excl_included
a
b
:
Excl'
a
≼
Excl'
b
→
a
≡
b
.
Proof
.
by
intros
[[
c
|]
Hb
%(
inj
Some
)]
;
inversion_clear
Hb
.
Qed
.
End
excl
.
Arguments
exclC
:
clear
implicits
.
...
...
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