lean4-htt/tests/lean/run/codeBindUnreachIssue.lean
2022-09-24 08:13:17 -07:00

5 lines
151 B
Text

set_option trace.Compiler.result true
def f (x : Empty) (y : Nat) : Nat :=
let g (_ : Unit) : Nat → Nat := x.casesOn
let aux := g ()
y + aux y