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