A start might be
ComplexExpand[Re[ expression]]
where
In[1]:= ?ComplexExpand
ComplexExpand[expr] expands expr assuming that all variables are real. ComplexExpand[expr, {x1, x2,
}]
expands expr assuming that variables matching any of the x are complex.