      :capacity (.capacity s)})
   Object
   (hashCode [a]
-    (-> (hash-combine :BidiagonalStorage) (hash-combine n)))
+    (-> (hash :BidiagonalStorage) (hash-combine n)))
   (equals [a b]
     (or (identical? a b) (and (instance? BidiagonalStorage b) (= n (.n ^BidiagonalStorage b)))))
   (toString [a]

(deftype GERegion [^long m ^long n]
  Object
  (hashCode [a]
    (-> (hash-combine :GERegion) (hash-combine m) (hash-combine n)))
  (equals [a b]
    (or (identical? a b)
        (and (instance? GERegion b)

     :capacity (.capacity s)})
  Object
  (hashCode [a]
    (-> (hash :TridiagonalStorage) (hash-combine n)))
  (equals [a b]
    (or (identical? a b) (and (instance? TridiagonalStorage b) (= n (.n ^TridiagonalStorage b)))))
  (toString [a]
