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.