add namespaces to names
This commit is contained in:
@@ -51,7 +51,7 @@ transpose : {a : U} {m n : Nat} -> Vect m (Vect n a) -> Vect n (Vect m a)
|
||||
transpose {a} {Z} {n} Nil = vec n Nil
|
||||
transpose {a} {S z} {n} (_::_ {a'} {j} x xs) = zipWith (_::_) x (transpose xs)
|
||||
|
||||
ptype Int
|
||||
|
||||
|
||||
myArr : Vect (S (S (S Z))) (Vect (S (S Z)) Int)
|
||||
myArr = (1 :: 2 :: Nil) :: (3 :: 4 :: Nil) :: (5 :: 6 :: Nil) :: Nil
|
||||
|
||||
Reference in New Issue
Block a user