I have to do an exercise and I´m pretty lost... I need to do an instance for Ord with polynomials. This is my try:

```
data Pol = P [(Float,Int)] deriving Show

instance Ord Pol where
  (Pol a) > (Pol b)  = (maxGrado a) > (maxGrado b) || ((maxGrado a) == (maxGrado b) && (maxCoe a) > (maxCoe b))
  (Pol a) < (Pol b)  = (maxGrado a) < (maxGrado b) || ((maxGrado a) == (maxGrado b) && (maxCoe a) < (maxCoe b))

maxGrado :: [(Float,Int)] -> Int
maxGrado [] = 0
maxGrado ((c,g):xs) = g  

maxCoe :: [(Float,Int)] -> Int
maxCoe [] = 0
maxcoe ((c,g):xs) = c

```

--error:

```
ERROR file:.\Febrero 2011.hs:32 - Undefined data constructor "Pol"

```

The error is very dumb but it´s been an hour trying to solve it... Could anyone help me?.

Thank you!!