@@ -66,7 +66,6 @@ instance RingWithUnity a => Module a (Vect n (Vect l a)) where
6666basis : RingWithUnity a => {d : Nat} -> (Fin d) -> Vect d a
6767basis i = replaceAt i unity $ neutral
6868
69−
7069-----------------------------------------------------------------------
7170-- Matrix functions
7271-----------------------------------------------------------------------
@@ -138,12 +137,10 @@ Id {d} = map (\n => basis n) $ allN d
138137(>><<) : Ring a => Matrix n n a -> Matrix n n a -> Matrix n n a
139138(>><<) m1 m2 = (m1 <> m2) <+> (m2 <> m1)
140139
141−
142140-----------------------------------------------------------------------
143141-- Matrix Algebra Properties
144142-----------------------------------------------------------------------
145143
146−
147144-- TODO: Prove properties of matrix algebra for 'Verified' algebraic classes
148145
149146-----------------------------------------------------------------------