lean4-htt/tests/lean/run/bindCasesIssue.lean
Leonardo de Moura 8f2ab82408 fix: bug at bindCases
Many thanks to @hargoniX
2022-09-13 15:36:46 -07:00

12 lines
213 B
Text

import Lean
def bar : ReaderM Unit Unit :=
if true then
match true with
| true => pure ()
| false => pure ()
else
pure ()
set_option trace.Compiler true
#eval Lean.Compiler.compile #[``bar]