11 lines
238 B
Text
11 lines
238 B
Text
universe variables u
|
||
|
||
inductive Vec (α : Type u) : nat → Type u
|
||
| nil {} : Vec 0
|
||
| cons : Π {n}, α → Vec n → Vec (nat.succ n)
|
||
|
||
|
||
def head {α} : Π {n}, Vec α (n+1) → α
|
||
| n (Vec.cons h t) := h
|
||
|
||
#check @head.equations._eqn_1
|