Initial program 6.8
\[\left(x.re \cdot x.re - x.im \cdot x.im\right) \cdot x.im + \left(x.re \cdot x.im + x.im \cdot x.re\right) \cdot x.re\]
Applied simplify0.2
\[\leadsto \color{blue}{(\left(x.re - x.im\right) \cdot \left(\left(x.re + x.im\right) \cdot x.im\right) + \left(\left(x.re + x.re\right) \cdot \left(x.re \cdot x.im\right)\right))_*}\]
- Using strategy
rm Applied add-cube-cbrt0.5
\[\leadsto (\left(x.re - x.im\right) \cdot \left(\left(x.re + x.im\right) \cdot x.im\right) + \color{blue}{\left(\left(\sqrt[3]{\left(x.re + x.re\right) \cdot \left(x.re \cdot x.im\right)} \cdot \sqrt[3]{\left(x.re + x.re\right) \cdot \left(x.re \cdot x.im\right)}\right) \cdot \sqrt[3]{\left(x.re + x.re\right) \cdot \left(x.re \cdot x.im\right)}\right)})_*\]