/usr/web/sources/contrib/fernan/nhc98/src/prelude/Complex/Eq_Complex.hs

Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/src/prelude/Complex/Eq_Complex.hs


module Complex(Eq(..)) where

import DComplex

instance (RealFloat a) => Eq (Complex a) where
  (r :+ i)  == (r' :+ i') = r == r' && i == i'