-- | 'subtractPolynomials' takes two polynomials and returns a polynomial which is the subtraction of these two
subtractPolynomials :: Polynomial -> Polynomial -> Polynomial
subtractPolynomials (Polynomial a) (Polynomial b) = Polynomial (a ++ (negateMonomials b))
subtractPolynomials :: Polynomial -> Polynomial -> Polynomial
subtractPolynomials (Polynomial a) (Polynomial b) = Polynomial (a ++ (negateMonomials b))
subtractPolynomials (Polynomial a) (Polynomial b) = Polynomial (a ++ (negateMonomials b))