2019-05-07 12:42:45 +03:00
|
|
|
data Bool : Type where
|
|
|
|
False : Bool
|
|
|
|
True : Bool
|
|
|
|
|
|
|
|
data Nat : Type where
|
|
|
|
Z : Nat
|
|
|
|
S : Nat -> Nat
|
|
|
|
|
|
|
|
data Vect : Nat -> Type -> Type where
|
|
|
|
Nil : Vect Z $a
|
|
|
|
Cons : $a -> Vect $k $a -> Vect (S $k) $a
|
|
|
|
|
2019-05-20 21:05:28 +03:00
|
|
|
-- Throw in a complication :)
|
|
|
|
namespace List
|
|
|
|
data List : Type -> Type where
|
|
|
|
Nil : List $a
|
|
|
|
Cons : $a -> List $a -> List $a
|
|
|
|
|
2019-05-07 12:42:45 +03:00
|
|
|
stuff : Vect ? Bool
|
|
|
|
stuff = Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
|
|
(Cons False (Cons True (Cons False (Cons True (Cons False (Cons True
|
|
|
|
Nil)))))))))))))))))))))))))))))))))))))))))))))))))))))
|
|
|
|
))))))))))))))))))))))))))))))))))))))))))))))))
|
|
|
|
))))))))))))))))))))))))))))))))))))))))))))))))
|
|
|
|
))))))))))))))))))))))))))))))))))))))))))))))))
|
|
|
|
))))))))))))))))))))))))))))))))))))))))))))))))
|
|
|
|
))))))))))))))))))))))))))))))))))))))))))))))))
|
|
|
|
))))))))))))))))))))))))))))))))))))))))))))))))
|
|
|
|
))))))))))))))))))))))))))))))))))))))))))))))))
|
|
|
|
|