Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
CertiCompil
CompCert-KVX
Commits
dd191041
Commit
dd191041
authored
Dec 15, 2020
by
Xavier Leroy
Committed by
Xavier Leroy
Jan 13, 2021
Browse files
Add lemma list_norepet_rev
parent
e81d015e
Changes
1
Hide whitespace changes
Inline
Side-by-side
lib/Coqlib.v
View file @
dd191041
...
...
@@ -1011,6 +1011,14 @@ Proof.
generalize
list_norepet_app
;
firstorder
.
Qed
.
Lemma
list_norepet_rev
:
forall
(
A
:
Type
)
(
l
:
list
A
),
list_norepet
l
->
list_norepet
(
List
.
rev
l
).
Proof
.
induction
1
;
simpl
.
-
constructor
.
-
apply
list_norepet_append_commut
.
simpl
.
constructor
;
auto
.
rewrite
<-
List
.
in_rev
;
auto
.
Qed
.
(
**
[
is_tail
l1
l2
]
holds
iff
[
l2
]
is
of
the
form
[
l
++
l1
]
for
some
[
l
].
*
)
Inductive
is_tail
(
A
:
Type
)
:
list
A
->
list
A
->
Prop
:=
...
...
Write
Preview
Supports
Markdown
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