max/lean4-htt
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 2

test: for LCNF

Browse source
This commit is contained in:
Leonardo de Moura 2022-09-23 14:02:34 -07:00
parent 5322aa79f6
commit 1e846ae280
1 changed files with 29 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

29
tests/lean/run/inlineLCNFIssue.lean Normal file
View file

@ -0,0 +1,29 @@
import Lean
def explode (x : Nat) : IO Unit := do
if x == 0 then IO.println "arg is 0"
if x == 1 then IO.println "arg is 1"
if x == 2 then IO.println "arg is 2"
if x == 3 then IO.println "arg is 3"
if x == 4 then IO.println "arg is 4"
if x == 5 then IO.println "arg is 5"
if x == 6 then IO.println "arg is 6"
if x == 7 then IO.println "arg is 7"
if x == 8 then IO.println "arg is 8"
if x == 9 then IO.println "arg is 9"
if x == 10 then IO.println "arg is 10"
if x == 11 then IO.println "arg is 11"
if x == 12 then IO.println "arg is 12"
if x == 13 then IO.println "arg is 13"
if x == 14 then IO.println "arg is 14"
if x == 15 then IO.println "arg is 15"
if x == 16 then IO.println "arg is 16"
if x == 17 then IO.println "arg is 17"
if x == 18 then IO.println "arg is 18"
if x == 19 then IO.println "arg is 19"
if x == 20 then IO.println "arg is 20"
#eval Lean.Compiler.compile #[``explode]
set_option trace.Compiler.result true
#eval Lean.Compiler.compile #[``explode]