simple question

*To*: mathgroup at smc.vnet.net*Subject*: [mg71438] simple question*From*: "dimitris" <dimmechan at yahoo.com>*Date*: Sat, 18 Nov 2006 04:41:09 -0500 (EST)

In[1]:= Integrate[Tanh[x^2 + 3]*x, x] D[%, x] FullSimplify[% - Tanh[x^2 + 3]*x] Out[1]= (1/2)*Log[Cosh[x^2] + E^6*Cosh[x^2] - Sinh[x^2] + E^6*Sinh[x^2]] Out[2]= (-2*x*Cosh[x^2] + 2*E^6*x*Cosh[x^2] + 2*x*Sinh[x^2] + 2*E^6*x*Sinh[x^2])/ (2*(Cosh[x^2] + E^6*Cosh[x^2] - Sinh[x^2] + E^6*Sinh[x^2])) Out[3]= 0 How is it possible to write Out[2] in the form Tanh[x^2 + 3]*x with the use of Built in functions? Thanks Dimitris