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'
