kill(all);

f(x):=(1+%e^x)*%e^x;

F(x):=integrate(f(x),x)$F(x);

lowerLimit:log((4*%omega^2+10-3*%omega)/(10*%omega-3*%omega^2+4))^3;

upperLimit:log(a)$

ratsimp((F(upperLimit)-F(lowerLimit)));

Q(x):=integrate((1+%e^x)*%e^x,x, ''lowerLimit, ''upperLimit);factor(ratsimp(factor(Q(x))));

     Teach Maxima a law of exponents!

simp:false$
matchdeclare([X,Y,Z],true)$
tellsimp(X^Y^Z,(X^Y)^Z)$
simp:true$

factor(ratsimp(factor(Q(x))));

substitute(%theta,%omega,%);

     Teach Maxima a law of exponents!

kill(all);

is(equal(a^b^c,(a^b)^c));

simp:false$
matchdeclare([X,Y,Z],true)$
tellsimp(X^Y^Z,(X^Y)^Z)$
simp:true$

is(equal(a^b^c,(a^b)^c));

%e^x^a; %e^log(x)^a; %e^(2*log(x)); r(x):=%e^(2*log(x)^3); s(x):=%e^2^log(x)^3;is(equal(r(x),s(x)));

%e^2^log(-(4*%omega^2-3*%omega+10)/(3*%omega^2-10*%omega-4)^3);

Problem Source: https://www.facebook.com/groups/1537778519834330/1636382159973965/?notif_t=group_activity