Sign in
◑
Theme
fuchsia
/
third_party
/
github.com
/
leanprover
/
lean4
/
refs/heads/upstream/expose-array-back
/
.
/
tests
/
elab
/
281.lean
blob: a32d9e29c7fce6b18e7f170e61eed034cd637052 [
file
] [
edit
]
inductive V
(α
:
Bool
→
Type
)
:
Bool
→
Type
|
mk
₁
{
b
}
:
α
true
→
V
α
b
|
mk
₂
:
V
α
false
→
V
α
false
def
V
.
map
{α
β}
(
f
:
(
b
:
Bool
)
→
α
b
→
β
b
)
:
{
b
:
Bool
}
→
V
α
b
→
V
β
b
|
_
,
mk
₁
x
=>
mk
₁
(
f
true
x
)
|
_
,
mk
₂
e
=>
mk
₂
(
e
.
map f
)