Sign in
◑
Theme
fuchsia
/
third_party
/
github.com
/
leanprover
/
lean4
/
refs/heads/upstream/Array.mapIdx
/
.
/
tests
/
lean
/
diamond4.lean.expected.out
blob: 7bbc3bd738a463d61027f60a4031352ce0ef2000 [
file
] [
edit
]
def
D
.
toB
:
{α
:
Type
}
→
[
self
:
D
α]
→
B
α
:=
fun
(α
:
Type
)
[
self
:
D
α]
=>
self
.
1
def
D
.
toC
:
{α
:
Type
}
→
[
self
:
D
α]
→
C
α
:=
fun
(α
:
Type
)
(
self
:
D
α)
=>
@C
.
mk
α
(
@B
.
toA
α
(
@D
.
toB
α
self
))
(
@D
.
mul
α
self
)