mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-21 10:41:59 +03:00
30 lines
741 B
Plaintext
30 lines
741 B
Plaintext
|
> data Vect : Nat -> Type -> Type where
|
||
|
|
> Nil : Vect Z a
|
||
|
|
> (::) : a -> Vect k a -> Vect (S k) a
|
||
|
|
|
||
|
|
> %name Vect xs, ys, zs
|
||
|
|
|
||
|
|
> my_cong : forall f . (x : a) -> (y : a) -> x = y -> f x = f y
|
||
|
|
|
||
|
|
> my_curry : ((a, b) -> c) -> a -> b -> c
|
||
|
|
|
||
|
|
> my_uncurry : (a -> b -> c) -> (a, b) -> c
|
||
|
|
|
||
|
|
> append : Vect n a -> Vect m a -> Vect (n + m) a
|
||
|
|
|
||
|
|
> lappend : (1 xs : List a) -> (1 ys : List a) -> List a
|
||
|
|
|
||
|
|
> zipWith : (a -> b -> c) -> Vect n a -> Vect n b -> Vect n c
|
||
|
|
|
||
|
|
> data Env : Vect n Type -> Type where
|
||
|
|
> ENil : Env []
|
||
|
|
> ECons : a -> Env xs -> Env (a :: xs)
|
||
|
|
|
||
|
|
> %name Env es
|
||
|
|
|
||
|
|
> data Elem : a -> Vect n a -> Type where
|
||
|
|
> Here : Elem x (x :: xs)
|
||
|
|
> There : (p : Elem x xs) -> Elem x (y :: xs)
|
||
|
|
|
||
|
|
> lookup : Elem ty vs -> Env vs -> ty
|