Maxima Function
operatorp (expr, op)
operatorp(expr,[op_1,...,op_n])
operatorp (expr, op) returns true
if op is equal to the operator of expr.
operatorp (expr, [op_1, ..., op_n]) returns true
if some element op_1, ..., op_n is equal to the operator of expr.