lean4-htt/tests/lean/run/vm_check_bug.lean
2017-02-16 11:39:23 -08:00

7 lines
138 B
Text

def f : nat → nat → nat
| (x+1) (y+1) := f (x+100000000) y
| (x+1) 0 := x
| 0 (y+1) := 1
| 0 0 := 1
vm_eval f 1 1000