-- | 'multiplyPolynomials' multiplies every 'Monomial' of the first 'Polynomial' with every 'Monomial' of the second
-- 'Polynomial'
multiplyPolynomials :: Polynomial -> Polynomial -> Polynomial
multiplyPolynomials (Polynomial p1) (Polynomial p2) = Polynomial [a `multiplyMonomials` b | a <- p1, b <- p2]
multiplyPolynomials :: Polynomial -> Polynomial -> Polynomial
multiplyPolynomials (Polynomial p1) (Polynomial p2) = Polynomial [a `multiplyMonomials` b | a <- p1, b <- p2]
multiplyPolynomials (Polynomial p1) (Polynomial p2) = Polynomial [a `multiplyMonomials` b | a <- p1, b <- p2]