# Factoring long trigonometric expressions separating specific variables

I have a very long expression with trigonometric functions:

n (2 a - h - 2 z) (-Sin[p (β - δ + t ω)] + Sin[p (β + δ + t ω)])


I would like to simplify the term (-Sin[p (β - δ + t ω)] + Sin[p (β + δ + t ω) to 2 Sinδ Cos (ωt + β).

Any suggestions? Just using Simplify does not work on this case. Thank you for your help.

ClearAll[p , β, δ, t, ω]

$$2 \sin (\delta p) \cos (p (\beta +t \omega ))$$
• I appreciate your help. Could you kindly elaborate on why you used the line Simplify[#] & /@ expr? I thought it would return the same value if I just typed expr = Simplify[TrigFactor[expr]]; but the result was different. – Guilherme Rubio Apr 2 at 5:55