1 files changed, 5 insertions, 1 deletions

diff --git a/packages/base/src/Numeric/LinearAlgebra/Static.hs b/packages/base/src/Numeric/LinearAlgebra/Static.hs
index 2ffc531..8019558 100644
--- a/packages/base/src/Numeric/LinearAlgebra/Static.hs
+++ b/packages/base/src/Numeric/LinearAlgebra/Static.hs
@@ -827,4 +827,8 @@ instance KnownNat n => Additive (Sym n) where
 
 instance KnownNat n => Transposable (Sym n) (Sym n) where
     tr (Sym m) = Sym (tr m)
-    tr' = id
+    tr'        = id
+
+instance KnownNat n => Transposable (Her n) (Her n) where
+    tr          = id
+    tr' (Her m) = Her (tr' m)