Initial program 34.1
\[\begin{array}{l}
\mathbf{if}\;b \ge 0:\\
\;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\
\mathbf{else}:\\
\;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\
\end{array}\]
Taylor expanded around inf 10.8
\[\leadsto \begin{array}{l}
\mathbf{if}\;b \ge 0:\\
\;\;\;\;\frac{\color{blue}{2 \cdot \frac{c \cdot a}{b} - 2 \cdot b}}{2 \cdot a}\\
\mathbf{else}:\\
\;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\
\end{array}\]
Applied simplify6.4
\[\leadsto \color{blue}{\begin{array}{l}
\mathbf{if}\;b \ge 0:\\
\;\;\;\;\frac{\frac{c}{b}}{1} - \frac{b}{a}\\
\mathbf{else}:\\
\;\;\;\;\frac{c + c}{\sqrt{b \cdot b - c \cdot \left(a \cdot 4\right)} + \left(-b\right)}\\
\end{array}}\]
- Using strategy
rm Applied add-cube-cbrt6.4
\[\leadsto \begin{array}{l}
\mathbf{if}\;b \ge 0:\\
\;\;\;\;\frac{\frac{c}{b}}{1} - \frac{b}{a}\\
\mathbf{else}:\\
\;\;\;\;\color{blue}{\frac{c + c}{\left(\sqrt[3]{\sqrt{b \cdot b - c \cdot \left(a \cdot 4\right)} + \left(-b\right)} \cdot \sqrt[3]{\sqrt{b \cdot b - c \cdot \left(a \cdot 4\right)} + \left(-b\right)}\right) \cdot \sqrt[3]{\sqrt{b \cdot b - c \cdot \left(a \cdot 4\right)} + \left(-b\right)}}}\\
\end{array}\]
Applied *-un-lft-identity6.4
\[\leadsto \begin{array}{l}
\mathbf{if}\;b \ge 0:\\
\;\;\;\;\frac{\frac{c}{b}}{1} - \frac{b}{a}\\
\mathbf{else}:\\
\;\;\;\;\frac{1 \cdot \left(c + c\right)}{\left(\sqrt[3]{\sqrt{b \cdot b - c \cdot \left(a \cdot 4\right)} + \left(-b\right)} \cdot \sqrt[3]{\sqrt{b \cdot b - c \cdot \left(a \cdot 4\right)} + \left(-b\right)}\right) \cdot \sqrt[3]{\sqrt{b \cdot b - c \cdot \left(a \cdot 4\right)} + \left(-b\right)}}\\
\end{array}\]
Applied times-frac6.4
\[\leadsto \begin{array}{l}
\mathbf{if}\;b \ge 0:\\
\;\;\;\;\frac{\frac{c}{b}}{1} - \frac{b}{a}\\
\mathbf{else}:\\
\;\;\;\;\frac{1}{\sqrt[3]{\sqrt{b \cdot b - c \cdot \left(a \cdot 4\right)} + \left(-b\right)} \cdot \sqrt[3]{\sqrt{b \cdot b - c \cdot \left(a \cdot 4\right)} + \left(-b\right)}} \cdot \frac{c + c}{\sqrt[3]{\sqrt{b \cdot b - c \cdot \left(a \cdot 4\right)} + \left(-b\right)}}\\
\end{array}\]