The conjugate transpose of a symmetric real matrix is itself

1 files changed, 2 insertions, 2 deletions

diff --git a/packages/base/src/Numeric/LinearAlgebra/Static.hs b/packages/base/src/Numeric/LinearAlgebra/Static.hs
index c764038..64c0f14 100644
--- a/packages/base/src/Numeric/LinearAlgebra/Static.hs
+++ b/packages/base/src/Numeric/LinearAlgebra/Static.hs
@@ -844,8 +844,8 @@ instance KnownNat n => Additive (Sym n) where
     add = (+)
 
 instance KnownNat n => Transposable (Sym n) (Sym n) where
-    tr (Sym m) = Sym (tr m)
-    tr'        = id
+    tr  = id
+    tr' = id
 
 instance KnownNat n => Transposable (Her n) (Her n) where
     tr          = id