challenge for trigsimp



On Sept. 28, Richard Fateman wrote:
----------------------------------------
cos(y+2*x)+2*sin(x)*sin(y+x)-cos(y)

trigsimp(%)   ;; no change

trigreduce(%)  ;; changed

ratsimp(%)     ;; produces zero.

poissimp  produces zero right away.
-----------------------------------------------
If a multiple term trig function expression should
equal zero, I like trigrat.
---------------------------------
(%i1) e : cos(y+2*x)+2*sin(x)*sin(y+x)-cos(y)$
(%i2) poissimp (e);
(%o2)                                  0
(%i3) trigrat (e);
(%o3)                                  0
(%i4) trigreduce (e), ratsimp;
(%o4)                                  0
(%i5) ( ev(trigexpand (e),trigexpand,expand),trigsimp(%%));
(%o5)                                  0
---------------------

Ted Woollett