Don't want Mathematica to do any integrals whatsoever. Just want it to simply add the exponents inside a double integral.
For instance, doing this even separately
`Collect[(-I)*p3*y + I*p4*y + I*t*Subscript[\[Omega], p3] -
I*t*Subscript[\[Omega], p4], {I}]`
is a royal pain, because the output is
(-I)*p3*y + I*p4*y + I*t*Subscript[\[Omega], p3] - I*t*Subscript[\[Omega], p4]
Simplifying just gets one step closer
Simplify[I*((-p3)*y + t*Subscript[\[Omega], p3]) +
I*(p4*y - t*Subscript[\[Omega], p4])]
And yet one more step
Collect[(p3 - p4)*y - t*Subscript[\[Omega], p3] +
t*Subscript[\[Omega], p4],
{t}]
And then one can get back to substituting them in the original expressions. Tedious cut and paste of exponent part, and chance of making silly mistakes.
Just can't figure out why it can't simplify this to
E^(I*((-p3)*y + t*Subscript[\[Omega], p3]) +
I*(p4*y - t*Subscript[\[Omega], p4]))
under two Integrals?