import logic
inductive nat : Type :=
zero : nat,
succ : nat → nat
definition is_zero (n : nat)
:= nat_rec true (λ n r, false) n