mirror of
https://github.com/edwinb/Idris2-boot.git
synced 2024-11-23 20:22:34 +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
|