-\subsection{The @Integer@ instances for @Eq@, @Ord@}
-%* *
-%*********************************************************
-
-\begin{code}
-instance Eq Integer where
- (==) = eqInteger
- (/=) = neqInteger
-
-------------------------------------------------------------------------
-instance Ord Integer where
- (<=) = leInteger
- (>) = gtInteger
- (<) = ltInteger
- (>=) = geInteger
-
- i `compare` j = case i `compareInteger` j of
- -1# -> LT
- 0# -> EQ
- 1# -> GT
- _ -> error "compareInteger: Bad result"
-\end{code}
-
-
-%*********************************************************
-%* *