c3948cba24
This PR upstreams the definition of `Vector` from Batteries, along with the basic functions.
9 lines
282 B
Text
9 lines
282 B
Text
inductive Vector' (α : Type u) : Nat → Type u
|
||
| nil : Vector' α 0
|
||
| cons : α → Vector' α n → Vector' α (n + 1)
|
||
|
||
def test [Monad m] (xs : Vector' α a) : m Unit :=
|
||
match xs with
|
||
| Vector'.nil => return ()
|
||
| Vector'.cons _ xs => test xs
|
||
termination_by sizeOf xs
|