2014-12-01 05:16:01 +00:00
|
|
|
prelude
|
2014-06-26 21:00:20 +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-26 21:00:20 +00:00
|
|
|
|
|
|
|
inductive list (A : Type) : Type :=
|
2014-08-22 22:46:10 +00:00
|
|
|
nil {} : list A,
|
|
|
|
cons : A → list A → list A
|
2014-09-04 23:36:06 +00:00
|
|
|
namespace list end list open list
|
2014-06-26 21:00:20 +00:00
|
|
|
|
|
|
|
check nil
|
|
|
|
check nil.{1}
|
|
|
|
check @nil.{1} nat
|
|
|
|
check @nil nat
|
|
|
|
|
|
|
|
check cons zero nil
|
|
|
|
|
|
|
|
inductive vector (A : Type) : nat → Type :=
|
2014-08-22 22:46:10 +00:00
|
|
|
vnil {} : vector A zero,
|
|
|
|
vcons : forall {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-26 21:00:20 +00:00
|
|
|
|
|
|
|
check vcons zero vnil
|
2014-10-02 23:20:52 +00:00
|
|
|
constant n : nat
|
2014-06-26 21:00:20 +00:00
|
|
|
check vcons n vnil
|
|
|
|
|
2014-09-04 22:03:59 +00:00
|
|
|
check vector.rec
|
2014-06-26 21:00:20 +00:00
|
|
|
|
|
|
|
definition vector_to_list {A : Type} {n : nat} (v : vector A n) : list A
|
2014-09-04 22:03:59 +00:00
|
|
|
:= vector.rec nil (fun n a v l, cons a l) v
|