negateMonomial :: Monomial -> Monomial
negateMonomial (Monomial c vs) = (Monomial (negate c) vs)
negateMonomial :: Monomial -> Monomial
negateMonomial (Monomial c vs) = (Monomial (negate c) vs)
negateMonomial (Monomial c vs) = (Monomial (negate c) vs)