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
8344ce42
Commit
8344ce42
authored
Sep 19, 2017
by
Robbert Krebbers
Browse files
Add uncurry3 and uncurry4.
parent
d167cced
Pipeline
#4430
passed with stages
in 3 minutes and 39 seconds
Changes
1
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
theories/base.v
View file @
8344ce42
...
...
@@ -482,6 +482,11 @@ Definition curry3 {A B C D} (f : A → B → C → D) (p : A * B * C) : D :=
Definition
curry4
{
A
B
C
D
E
}
(
f
:
A
→
B
→
C
→
D
→
E
)
(
p
:
A
*
B
*
C
*
D
)
:
E
:
=
let
'
(
a
,
b
,
c
,
d
)
:
=
p
in
f
a
b
c
d
.
Definition
uncurry3
{
A
B
C
D
}
(
f
:
A
*
B
*
C
→
D
)
(
a
:
A
)
(
b
:
B
)
(
c
:
C
)
:
D
:
=
f
(
a
,
b
,
c
).
Definition
uncurry4
{
A
B
C
D
E
}
(
f
:
A
*
B
*
C
*
D
→
E
)
(
a
:
A
)
(
b
:
B
)
(
c
:
C
)
(
d
:
D
)
:
E
:
=
f
(
a
,
b
,
c
,
d
).
Definition
prod_map
{
A
A'
B
B'
}
(
f
:
A
→
A'
)
(
g
:
B
→
B'
)
(
p
:
A
*
B
)
:
A'
*
B'
:
=
(
f
(
p
.
1
),
g
(
p
.
2
)).
Arguments
prod_map
{
_
_
_
_
}
_
_
!
_
/
:
assert
.
...
...
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