Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Pierre-Marie Pédrot
stdpp
Commits
3544168c
Commit
3544168c
authored
Sep 06, 2017
by
Robbert Krebbers
Browse files
Put delete_singleton lemmas together.
parent
d9dd7c5e
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
3 additions
and
3 deletions
+3
-3
theories/fin_maps.v
theories/fin_maps.v
+3
-3
No files found.
theories/fin_maps.v
View file @
3544168c
...
...
@@ -396,8 +396,6 @@ Proof.
Qed
.
Lemma
delete_empty
{
A
}
i
:
delete
i
(
∅
:
M
A
)
=
∅
.
Proof
.
rewrite
<-(
partial_alter_self
∅
)
at
2
.
by
rewrite
lookup_empty
.
Qed
.
Lemma
delete_singleton
{
A
}
i
(
x
:
A
)
:
delete
i
{[
i
:
=
x
]}
=
∅
.
Proof
.
setoid_rewrite
<-
partial_alter_compose
.
apply
delete_empty
.
Qed
.
Lemma
delete_commute
{
A
}
(
m
:
M
A
)
i
j
:
delete
i
(
delete
j
m
)
=
delete
j
(
delete
i
m
).
Proof
.
destruct
(
decide
(
i
=
j
)).
by
subst
.
by
apply
partial_alter_commute
.
Qed
.
...
...
@@ -578,8 +576,10 @@ Proof.
Qed
.
Lemma
singleton_non_empty
{
A
}
i
(
x
:
A
)
:
{[
i
:
=
x
]}
≠
∅
.
Proof
.
apply
insert_non_empty
.
Qed
.
Lemma
delete_singleton
{
A
}
i
(
x
:
A
)
:
delete
i
{[
i
:
=
x
]}
=
∅
.
Proof
.
setoid_rewrite
<-
partial_alter_compose
.
apply
delete_empty
.
Qed
.
Lemma
delete_singleton_ne
{
A
}
i
j
(
x
:
A
)
:
j
≠
i
→
delete
i
{[
j
:
=
x
]}
=
{[
j
:
=
x
]}.
j
≠
i
→
delete
i
{[
j
:
=
x
]}
=
{[
j
:
=
x
]}.
Proof
.
intro
.
apply
delete_notin
.
by
apply
lookup_singleton_ne
.
Qed
.
(** ** Properties of the map operations *)
...
...
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