9 lines
139 B
Text
9 lines
139 B
Text
|
import standard
|
||
|
|
|
||
|
|
inductive nat : Type :=
|
||
|
|
| zero : nat
|
||
|
|
| succ : nat → nat
|
||
|
|
|
||
|
|
definition is_zero (n : nat)
|
||
|
|
:= nat_rec true (λ n r, false) n
|