2014-08-25 02:58:48 +00:00
|
|
|
import logic
|
2014-11-23 01:34:05 +00:00
|
|
|
namespace experiment
|
2014-07-06 23:46:34 +00:00
|
|
|
inductive nat : Type :=
|
2014-08-22 22:46:10 +00:00
|
|
|
zero : nat,
|
|
|
|
succ : nat → nat
|
2014-07-06 23:46:34 +00:00
|
|
|
|
|
|
|
definition is_zero (n : nat)
|
2014-09-04 22:03:59 +00:00
|
|
|
:= nat.rec true (λ n r, false) n
|
2014-11-23 01:34:05 +00:00
|
|
|
end experiment
|