12 lines
264 B
Text
12 lines
264 B
Text
inductive nat : Type :=
|
|
| zero : nat
|
|
| succ : nat → nat
|
|
|
|
inductive vector (A : Type) : nat → Type :=
|
|
| vnil : vector A zero
|
|
| vcons : Π {n : nat}, A → vector A n → vector A (succ n)
|
|
|
|
check vector.{1}
|
|
check vnil.{1}
|
|
check vcons.{1}
|
|
check vector_rec.{1 1}
|