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