[ base ] Add semigroup and monoid instances for Vect

Author: buzden

libs/base/Data/Vect.idr

@@ -866,6 +866,18 @@ implementation Traversable (Vect k) where
     traverse f []        = pure []
     traverse f (x :: xs) = [| f x :: traverse f xs |]
 
+--------------------------------------------------------------------------------
+-- Semigroup/Monoid
+--------------------------------------------------------------------------------
+
+public export
+Semigroup a => Semigroup (Vect k a) where
+  (<+>) = zipWith (<+>)
+
+public export
+{k : Nat} -> Monoid a => Monoid (Vect k a) where
+  neutral = replicate k neutral
+
 --------------------------------------------------------------------------------
 -- Show
 --------------------------------------------------------------------------------