32db316166
This commit fixes issue reported at https://leanprover.zulipchat.com/#narrow/stream/270676-lean4/topic/.28kernel.29.20function.20expected.20.2EnoConfusion/near/284634050
13 lines
249 B
Text
13 lines
249 B
Text
inductive MyBool :=
|
|
| MyTrue
|
|
| MyFalse
|
|
|
|
inductive T :=
|
|
| mk (b: MyBool) (u: Unit)
|
|
|
|
inductive isTrue: T → Type :=
|
|
| intro: isTrue (.mk .MyTrue ())
|
|
|
|
example {τ: T} (h: isTrue τ): Unit :=
|
|
match τ, h with
|
|
| .mk .MyTrue (), .intro => ()
|