12 lines
194 B
Text
12 lines
194 B
Text
open nat
|
|
|
|
def even : nat → bool
|
|
| 0 := tt
|
|
| (succ 0) := ff
|
|
| (succ (succ n)) := even n
|
|
|
|
vm_eval even 0
|
|
vm_eval even 1
|
|
vm_eval even 2
|
|
vm_eval even 10000
|
|
vm_eval even 10001
|