mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-15 06:13:26 +03:00
13 lines
269 B
Idris
13 lines
269 B
Idris
|
import Data.Vect
|
||
|
|
||
|
parameters (x : Nat, y : Nat)
|
||
|
addAll : Nat -> Nat
|
||
|
addAll z = x + y + z
|
||
|
|
||
|
parameters (y : Nat, xs : Vect x a)
|
||
|
data Vects : Type -> Type where
|
||
|
MkVects : Vect y a -> Vects a
|
||
|
|
||
|
append : Vects a -> Vect (x + y) a
|
||
|
append (MkVects ys) = xs ++ ys
|