PolynomialQ

PolynomialQ[e, var] returns True if e is a polynomial in var.

Attributes[PolynomialQ] := {Protected}