negateMonomials :: [Monomial] -> [Monomial]
negateMonomials m = map negateMonomial m
negateMonomials :: [Monomial] -> [Monomial]
negateMonomials m = map negateMonomial m
negateMonomials m = map negateMonomial m