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
Iris
stdpp
Commits
fe9771cc
Commit
fe9771cc
authored
Sep 03, 2014
by
Robbert Krebbers
Browse files
Decider for empty listsets.
parent
52a3dc34
Changes
1
Hide whitespace changes
Inline
Side-by-side
theories/listset.v
View file @
fe9771cc
...
...
@@ -24,6 +24,16 @@ Proof.
*
by
apply
elem_of_list_singleton
.
*
intros
[?]
[?].
apply
elem_of_app
.
Qed
.
Lemma
listset_empty_alt
X
:
X
≡
∅
↔
listset_car
X
=
[].
Proof
.
destruct
X
as
[
l
]
;
split
;
[|
by
intros
;
simplify_equality'
].
intros
[
Hl
_
]
;
destruct
l
as
[|
x
l
]
;
[
done
|].
feed
inversion
(
Hl
x
)
;
left
.
Qed
.
Global
Instance
listset_empty_dec
(
X
:
listset
A
)
:
Decision
(
X
≡
∅
).
Proof
.
refine
(
cast_if
(
decide
(
listset_car
X
=
[])))
;
abstract
(
by
rewrite
listset_empty_alt
).
Defined
.
Context
`
{
∀
x
y
:
A
,
Decision
(
x
=
y
)}.
...
...
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