Refactor Mult and add MultNeutral

This commit is contained in:
Kiana Sheibani 2022-06-23 19:09:10 -04:00
parent 015b7f8cb1
commit a0d9c766c0
Signed by: toki
GPG key ID: 6CB106C25E86A9F7
4 changed files with 37 additions and 13 deletions

View file

@ -54,12 +54,12 @@ fromDiag ds o = fromFunction [m,n] (\[i,j] => maybe o (`index` ds) $ i `eq` j)
export
identity : Num a => {n : _} -> Matrix n n a
identity : Num a => {n : _} -> Matrix' n a
identity = repeatDiag 1 0
export
scaling : Num a => {n : _} -> a -> Matrix n n a
scaling : Num a => {n : _} -> a -> Matrix' n a
scaling x = repeatDiag x 0
export