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
9407e8cc
Commit
9407e8cc
authored
Jun 21, 2019
by
Robbert Krebbers
Browse files
Equalities for `list_merge` with `[]` arguments.
parent
18f83bcb
Pipeline
#17844
passed with stage
in 8 minutes and 40 seconds
Changes
1
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
theories/sorting.v
View file @
9407e8cc
...
...
@@ -116,6 +116,10 @@ End sorted.
Section
merge_sort_correct
.
Context
{
A
}
(
R
:
relation
A
)
`
{
∀
x
y
,
Decision
(
R
x
y
)}.
Lemma
list_merge_nil_l
l2
:
list_merge
R
[]
l2
=
l2
.
Proof
.
by
destruct
l2
.
Qed
.
Lemma
list_merge_nil_r
l1
:
list_merge
R
l1
[]
=
l1
.
Proof
.
by
destruct
l1
.
Qed
.
Lemma
list_merge_cons
x1
x2
l1
l2
:
list_merge
R
(
x1
::
l1
)
(
x2
::
l2
)
=
if
decide
(
R
x1
x2
)
then
x1
::
list_merge
R
l1
(
x2
::
l2
)
...
...
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