67c8e76b08
This commit fixes reported at https://leanprover.zulipchat.com/#narrow/stream/270676-lean4/topic/unused.20let.20disappears/near/257528105
14 lines
287 B
Text
14 lines
287 B
Text
def pro : Bool :=
|
|
let x := 42;
|
|
false
|
|
def f : Nat → Nat :=
|
|
fun x =>
|
|
Nat.brecOn x
|
|
fun x f =>
|
|
(match x : (x : Nat) → Nat.below x → Nat with
|
|
| 0 => fun x => 1
|
|
| Nat.succ n =>
|
|
fun x =>
|
|
let y := 42;
|
|
2 * x.fst.fst)
|
|
f
|