2014-12-01 05:16:01 +00:00
|
|
|
prelude
|
2014-06-18 20:55:48 +00:00
|
|
|
inductive nat : Type :=
|
2014-08-22 22:46:10 +00:00
|
|
|
zero : nat,
|
|
|
|
|
succ : nat → nat
|
2014-09-04 23:36:06 +00:00
|
|
|
namespace nat end nat open nat
|
2014-06-18 20:55:48 +00:00
|
|
|
|
|
|
|
|
inductive vector (A : Type) : nat → Type :=
|
2014-08-22 22:46:10 +00:00
|
|
|
vnil : vector A zero,
|
|
|
|
|
vcons : Π {n : nat}, A → vector A n → vector A (succ n)
|
2014-09-04 23:36:06 +00:00
|
|
|
namespace vector end vector open vector
|
2014-06-18 20:55:48 +00:00
|
|
|
check vector.{1}
|
|
|
|
|
check vnil.{1}
|
|
|
|
|
check vcons.{1}
|
2014-09-04 22:03:59 +00:00
|
|
|
check vector.rec.{1 1}
|
