mirror of
https://github.com/edwinb/Idris2-boot.git
synced 2024-11-28 05:32:03 +03:00
28 lines
540 B
Plaintext
28 lines
540 B
Plaintext
data Bool : Type where
|
|
False : Bool
|
|
True : Bool
|
|
|
|
not : Bool -> Bool
|
|
not False = True
|
|
not True = False
|
|
|
|
data Nat : Type where
|
|
Z : Nat
|
|
S : Nat -> Nat
|
|
|
|
plus : Nat -> Nat -> Nat
|
|
plus Z y = y
|
|
plus (S k) y = S (plus k y)
|
|
|
|
data Vect : ? -> Type -> Type where
|
|
Nil : Vect Z a
|
|
Cons : a -> Vect k a -> Vect (S k) a
|
|
|
|
data Pair : Type -> Type -> Type where
|
|
MkPair : a -> b -> Pair a b
|
|
|
|
zip : Vect n a -> Vect n b -> Vect n (Pair a b)
|
|
zip Nil Nil impossible
|
|
zip (Cons x xs) (Cons y ys) = Cons (MkPair x y) (zip xs ys)
|
|
|