algebra-3.0: src/Numeric/Algebra/Quaternion/Class.hs

module Numeric.Algebra.Quaternion.Class
  ( Hamiltonian(..)
  ) where

import Numeric.Algebra.Complex.Class
import Numeric.Covector

class Complicated t => Hamiltonian t where
  j :: t
  k :: t

instance Hamiltonian a => Hamiltonian (Covector r a) where
  j = return j
  k = return k