From 5a23359dfea4f11a83d17d6aa7ec139003084782 Mon Sep 17 00:00:00 2001 From: Justin Le Date: Wed, 25 May 2016 08:46:54 -0700 Subject: The conjugate transpose of a symmetric real matrix is itself --- packages/base/src/Numeric/LinearAlgebra/Static.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'packages') 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 -- cgit v1.2.3