Initial program 6.7
\[\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.7
\[\leadsto (\left(x.re - x.im\right) \cdot \left(\color{blue}{\left(\left(\sqrt[3]{x.re + x.im} \cdot \sqrt[3]{x.re + x.im}\right) \cdot \sqrt[3]{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))_*\]
Applied associate-*l*0.7
\[\leadsto (\left(x.re - x.im\right) \cdot \color{blue}{\left(\left(\sqrt[3]{x.re + x.im} \cdot \sqrt[3]{x.re + x.im}\right) \cdot \left(\sqrt[3]{x.re + x.im} \cdot x.im\right)\right)} + \left(\left(x.re + x.re\right) \cdot \left(x.re \cdot x.im\right)\right))_*\]