Octave 3.8, jcobi/3

Percentage Accurate: 94.3% → 99.7%
Time: 4.9s
Alternatives: 18
Speedup: 3.5×

Specification

?
\[\alpha > -1 \land \beta > -1\]
\[\begin{array}{l} \\ \begin{array}{l} t_0 := \left(\alpha + \beta\right) + 2 \cdot 1\\ \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{t\_0}}{t\_0}}{t\_0 + 1} \end{array} \end{array} \]
(FPCore (alpha beta)
 :precision binary64
 (let* ((t_0 (+ (+ alpha beta) (* 2.0 1.0))))
   (/ (/ (/ (+ (+ (+ alpha beta) (* beta alpha)) 1.0) t_0) t_0) (+ t_0 1.0))))
double code(double alpha, double beta) {
	double t_0 = (alpha + beta) + (2.0 * 1.0);
	return (((((alpha + beta) + (beta * alpha)) + 1.0) / t_0) / t_0) / (t_0 + 1.0);
}
module fmin_fmax_functions
    implicit none
    private
    public fmax
    public fmin

    interface fmax
        module procedure fmax88
        module procedure fmax44
        module procedure fmax84
        module procedure fmax48
    end interface
    interface fmin
        module procedure fmin88
        module procedure fmin44
        module procedure fmin84
        module procedure fmin48
    end interface
contains
    real(8) function fmax88(x, y) result (res)
        real(8), intent (in) :: x
        real(8), intent (in) :: y
        res = merge(y, merge(x, max(x, y), y /= y), x /= x)
    end function
    real(4) function fmax44(x, y) result (res)
        real(4), intent (in) :: x
        real(4), intent (in) :: y
        res = merge(y, merge(x, max(x, y), y /= y), x /= x)
    end function
    real(8) function fmax84(x, y) result(res)
        real(8), intent (in) :: x
        real(4), intent (in) :: y
        res = merge(dble(y), merge(x, max(x, dble(y)), y /= y), x /= x)
    end function
    real(8) function fmax48(x, y) result(res)
        real(4), intent (in) :: x
        real(8), intent (in) :: y
        res = merge(y, merge(dble(x), max(dble(x), y), y /= y), x /= x)
    end function
    real(8) function fmin88(x, y) result (res)
        real(8), intent (in) :: x
        real(8), intent (in) :: y
        res = merge(y, merge(x, min(x, y), y /= y), x /= x)
    end function
    real(4) function fmin44(x, y) result (res)
        real(4), intent (in) :: x
        real(4), intent (in) :: y
        res = merge(y, merge(x, min(x, y), y /= y), x /= x)
    end function
    real(8) function fmin84(x, y) result(res)
        real(8), intent (in) :: x
        real(4), intent (in) :: y
        res = merge(dble(y), merge(x, min(x, dble(y)), y /= y), x /= x)
    end function
    real(8) function fmin48(x, y) result(res)
        real(4), intent (in) :: x
        real(8), intent (in) :: y
        res = merge(y, merge(dble(x), min(dble(x), y), y /= y), x /= x)
    end function
end module

real(8) function code(alpha, beta)
use fmin_fmax_functions
    real(8), intent (in) :: alpha
    real(8), intent (in) :: beta
    real(8) :: t_0
    t_0 = (alpha + beta) + (2.0d0 * 1.0d0)
    code = (((((alpha + beta) + (beta * alpha)) + 1.0d0) / t_0) / t_0) / (t_0 + 1.0d0)
end function
public static double code(double alpha, double beta) {
	double t_0 = (alpha + beta) + (2.0 * 1.0);
	return (((((alpha + beta) + (beta * alpha)) + 1.0) / t_0) / t_0) / (t_0 + 1.0);
}
def code(alpha, beta):
	t_0 = (alpha + beta) + (2.0 * 1.0)
	return (((((alpha + beta) + (beta * alpha)) + 1.0) / t_0) / t_0) / (t_0 + 1.0)
function code(alpha, beta)
	t_0 = Float64(Float64(alpha + beta) + Float64(2.0 * 1.0))
	return Float64(Float64(Float64(Float64(Float64(Float64(alpha + beta) + Float64(beta * alpha)) + 1.0) / t_0) / t_0) / Float64(t_0 + 1.0))
end
function tmp = code(alpha, beta)
	t_0 = (alpha + beta) + (2.0 * 1.0);
	tmp = (((((alpha + beta) + (beta * alpha)) + 1.0) / t_0) / t_0) / (t_0 + 1.0);
end
code[alpha_, beta_] := Block[{t$95$0 = N[(N[(alpha + beta), $MachinePrecision] + N[(2.0 * 1.0), $MachinePrecision]), $MachinePrecision]}, N[(N[(N[(N[(N[(N[(alpha + beta), $MachinePrecision] + N[(beta * alpha), $MachinePrecision]), $MachinePrecision] + 1.0), $MachinePrecision] / t$95$0), $MachinePrecision] / t$95$0), $MachinePrecision] / N[(t$95$0 + 1.0), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}

\\
\begin{array}{l}
t_0 := \left(\alpha + \beta\right) + 2 \cdot 1\\
\frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{t\_0}}{t\_0}}{t\_0 + 1}
\end{array}
\end{array}

Local Percentage Accuracy vs ?

The average percentage accuracy by input value. Horizontal axis shows value of an input variable; the variable is choosen in the title. Vertical axis is accuracy; higher is better. Red represent the original program, while blue represents Herbie's suggestion. These can be toggled with buttons below the plot. The line is an average while dots represent individual samples.

Accuracy vs Speed?

Herbie found 18 alternatives:

AlternativeAccuracySpeedup
The accuracy (vertical axis) and speed (horizontal axis) of each alternatives. Up and to the right is better. The red square shows the initial program, and each blue circle shows an alternative.The line shows the best available speed-accuracy tradeoffs.

Initial Program: 94.3% accurate, 1.0× speedup?

\[\begin{array}{l} \\ \begin{array}{l} t_0 := \left(\alpha + \beta\right) + 2 \cdot 1\\ \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{t\_0}}{t\_0}}{t\_0 + 1} \end{array} \end{array} \]
(FPCore (alpha beta)
 :precision binary64
 (let* ((t_0 (+ (+ alpha beta) (* 2.0 1.0))))
   (/ (/ (/ (+ (+ (+ alpha beta) (* beta alpha)) 1.0) t_0) t_0) (+ t_0 1.0))))
double code(double alpha, double beta) {
	double t_0 = (alpha + beta) + (2.0 * 1.0);
	return (((((alpha + beta) + (beta * alpha)) + 1.0) / t_0) / t_0) / (t_0 + 1.0);
}
module fmin_fmax_functions
    implicit none
    private
    public fmax
    public fmin

    interface fmax
        module procedure fmax88
        module procedure fmax44
        module procedure fmax84
        module procedure fmax48
    end interface
    interface fmin
        module procedure fmin88
        module procedure fmin44
        module procedure fmin84
        module procedure fmin48
    end interface
contains
    real(8) function fmax88(x, y) result (res)
        real(8), intent (in) :: x
        real(8), intent (in) :: y
        res = merge(y, merge(x, max(x, y), y /= y), x /= x)
    end function
    real(4) function fmax44(x, y) result (res)
        real(4), intent (in) :: x
        real(4), intent (in) :: y
        res = merge(y, merge(x, max(x, y), y /= y), x /= x)
    end function
    real(8) function fmax84(x, y) result(res)
        real(8), intent (in) :: x
        real(4), intent (in) :: y
        res = merge(dble(y), merge(x, max(x, dble(y)), y /= y), x /= x)
    end function
    real(8) function fmax48(x, y) result(res)
        real(4), intent (in) :: x
        real(8), intent (in) :: y
        res = merge(y, merge(dble(x), max(dble(x), y), y /= y), x /= x)
    end function
    real(8) function fmin88(x, y) result (res)
        real(8), intent (in) :: x
        real(8), intent (in) :: y
        res = merge(y, merge(x, min(x, y), y /= y), x /= x)
    end function
    real(4) function fmin44(x, y) result (res)
        real(4), intent (in) :: x
        real(4), intent (in) :: y
        res = merge(y, merge(x, min(x, y), y /= y), x /= x)
    end function
    real(8) function fmin84(x, y) result(res)
        real(8), intent (in) :: x
        real(4), intent (in) :: y
        res = merge(dble(y), merge(x, min(x, dble(y)), y /= y), x /= x)
    end function
    real(8) function fmin48(x, y) result(res)
        real(4), intent (in) :: x
        real(8), intent (in) :: y
        res = merge(y, merge(dble(x), min(dble(x), y), y /= y), x /= x)
    end function
end module

real(8) function code(alpha, beta)
use fmin_fmax_functions
    real(8), intent (in) :: alpha
    real(8), intent (in) :: beta
    real(8) :: t_0
    t_0 = (alpha + beta) + (2.0d0 * 1.0d0)
    code = (((((alpha + beta) + (beta * alpha)) + 1.0d0) / t_0) / t_0) / (t_0 + 1.0d0)
end function
public static double code(double alpha, double beta) {
	double t_0 = (alpha + beta) + (2.0 * 1.0);
	return (((((alpha + beta) + (beta * alpha)) + 1.0) / t_0) / t_0) / (t_0 + 1.0);
}
def code(alpha, beta):
	t_0 = (alpha + beta) + (2.0 * 1.0)
	return (((((alpha + beta) + (beta * alpha)) + 1.0) / t_0) / t_0) / (t_0 + 1.0)
function code(alpha, beta)
	t_0 = Float64(Float64(alpha + beta) + Float64(2.0 * 1.0))
	return Float64(Float64(Float64(Float64(Float64(Float64(alpha + beta) + Float64(beta * alpha)) + 1.0) / t_0) / t_0) / Float64(t_0 + 1.0))
end
function tmp = code(alpha, beta)
	t_0 = (alpha + beta) + (2.0 * 1.0);
	tmp = (((((alpha + beta) + (beta * alpha)) + 1.0) / t_0) / t_0) / (t_0 + 1.0);
end
code[alpha_, beta_] := Block[{t$95$0 = N[(N[(alpha + beta), $MachinePrecision] + N[(2.0 * 1.0), $MachinePrecision]), $MachinePrecision]}, N[(N[(N[(N[(N[(N[(alpha + beta), $MachinePrecision] + N[(beta * alpha), $MachinePrecision]), $MachinePrecision] + 1.0), $MachinePrecision] / t$95$0), $MachinePrecision] / t$95$0), $MachinePrecision] / N[(t$95$0 + 1.0), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}

\\
\begin{array}{l}
t_0 := \left(\alpha + \beta\right) + 2 \cdot 1\\
\frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{t\_0}}{t\_0}}{t\_0 + 1}
\end{array}
\end{array}

Alternative 1: 99.7% accurate, 1.2× speedup?

\[\begin{array}{l} [alpha, beta] = \mathsf{sort}([alpha, beta])\\ \\ \begin{array}{l} t_0 := \left(\beta + \alpha\right) + 2\\ \mathbf{if}\;\beta \leq 6 \cdot 10^{+151}:\\ \;\;\;\;\frac{\frac{\mathsf{fma}\left(\beta, \alpha, \beta + \alpha\right) + 1}{t\_0}}{t\_0 \cdot \left(3 + \left(\beta + \alpha\right)\right)}\\ \mathbf{else}:\\ \;\;\;\;\frac{\frac{1 + \alpha}{t\_0}}{t\_0 + 1}\\ \end{array} \end{array} \]
NOTE: alpha and beta should be sorted in increasing order before calling this function.
(FPCore (alpha beta)
 :precision binary64
 (let* ((t_0 (+ (+ beta alpha) 2.0)))
   (if (<= beta 6e+151)
     (/
      (/ (+ (fma beta alpha (+ beta alpha)) 1.0) t_0)
      (* t_0 (+ 3.0 (+ beta alpha))))
     (/ (/ (+ 1.0 alpha) t_0) (+ t_0 1.0)))))
assert(alpha < beta);
double code(double alpha, double beta) {
	double t_0 = (beta + alpha) + 2.0;
	double tmp;
	if (beta <= 6e+151) {
		tmp = ((fma(beta, alpha, (beta + alpha)) + 1.0) / t_0) / (t_0 * (3.0 + (beta + alpha)));
	} else {
		tmp = ((1.0 + alpha) / t_0) / (t_0 + 1.0);
	}
	return tmp;
}
alpha, beta = sort([alpha, beta])
function code(alpha, beta)
	t_0 = Float64(Float64(beta + alpha) + 2.0)
	tmp = 0.0
	if (beta <= 6e+151)
		tmp = Float64(Float64(Float64(fma(beta, alpha, Float64(beta + alpha)) + 1.0) / t_0) / Float64(t_0 * Float64(3.0 + Float64(beta + alpha))));
	else
		tmp = Float64(Float64(Float64(1.0 + alpha) / t_0) / Float64(t_0 + 1.0));
	end
	return tmp
end
NOTE: alpha and beta should be sorted in increasing order before calling this function.
code[alpha_, beta_] := Block[{t$95$0 = N[(N[(beta + alpha), $MachinePrecision] + 2.0), $MachinePrecision]}, If[LessEqual[beta, 6e+151], N[(N[(N[(N[(beta * alpha + N[(beta + alpha), $MachinePrecision]), $MachinePrecision] + 1.0), $MachinePrecision] / t$95$0), $MachinePrecision] / N[(t$95$0 * N[(3.0 + N[(beta + alpha), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(N[(1.0 + alpha), $MachinePrecision] / t$95$0), $MachinePrecision] / N[(t$95$0 + 1.0), $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}
[alpha, beta] = \mathsf{sort}([alpha, beta])\\
\\
\begin{array}{l}
t_0 := \left(\beta + \alpha\right) + 2\\
\mathbf{if}\;\beta \leq 6 \cdot 10^{+151}:\\
\;\;\;\;\frac{\frac{\mathsf{fma}\left(\beta, \alpha, \beta + \alpha\right) + 1}{t\_0}}{t\_0 \cdot \left(3 + \left(\beta + \alpha\right)\right)}\\

\mathbf{else}:\\
\;\;\;\;\frac{\frac{1 + \alpha}{t\_0}}{t\_0 + 1}\\


\end{array}
\end{array}
Derivation
  1. Split input into 2 regimes
  2. if beta < 5.9999999999999998e151

    1. Initial program 99.8%

      \[\frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
    2. Step-by-step derivation
      1. lift-/.f64N/A

        \[\leadsto \color{blue}{\frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1}} \]
      2. lift-/.f64N/A

        \[\leadsto \frac{\color{blue}{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
      3. lift-/.f64N/A

        \[\leadsto \frac{\frac{\color{blue}{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\alpha + \beta\right) + 2 \cdot 1}}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
      4. lift-+.f64N/A

        \[\leadsto \frac{\frac{\frac{\color{blue}{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
      5. lift-+.f64N/A

        \[\leadsto \frac{\frac{\frac{\left(\color{blue}{\left(\alpha + \beta\right)} + \beta \cdot \alpha\right) + 1}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
      6. lift-*.f64N/A

        \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \color{blue}{\beta \cdot \alpha}\right) + 1}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
      7. lift-+.f64N/A

        \[\leadsto \frac{\frac{\frac{\color{blue}{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right)} + 1}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
      8. lift-+.f64N/A

        \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\color{blue}{\left(\alpha + \beta\right)} + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
      9. lift-*.f64N/A

        \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\alpha + \beta\right) + \color{blue}{2 \cdot 1}}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
      10. metadata-evalN/A

        \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\alpha + \beta\right) + \color{blue}{2}}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
      11. lift-+.f64N/A

        \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\color{blue}{\left(\alpha + \beta\right) + 2}}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
      12. lift-+.f64N/A

        \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\alpha + \beta\right) + 2}}{\color{blue}{\left(\alpha + \beta\right)} + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
      13. lift-*.f64N/A

        \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\alpha + \beta\right) + 2}}{\left(\alpha + \beta\right) + \color{blue}{2 \cdot 1}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
      14. metadata-evalN/A

        \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\alpha + \beta\right) + 2}}{\left(\alpha + \beta\right) + \color{blue}{2}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
      15. lift-+.f64N/A

        \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\alpha + \beta\right) + 2}}{\color{blue}{\left(\alpha + \beta\right) + 2}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
    3. Applied rewrites99.8%

      \[\leadsto \color{blue}{\frac{\frac{\mathsf{fma}\left(\beta, \alpha, \beta + \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + 2\right) \cdot \left(3 + \left(\beta + \alpha\right)\right)}} \]

    if 5.9999999999999998e151 < beta

    1. Initial program 82.1%

      \[\frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
    2. Step-by-step derivation
      1. lift-+.f64N/A

        \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\color{blue}{\left(\alpha + \beta\right)} + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
      2. +-commutativeN/A

        \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
      3. lower-+.f6482.1

        \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
      4. lift-*.f64N/A

        \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + \color{blue}{2 \cdot 1}}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
      5. metadata-eval82.1

        \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + \color{blue}{2}}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
    3. Applied rewrites82.1%

      \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\color{blue}{\left(\beta + \alpha\right) + 2}}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
    4. Step-by-step derivation
      1. lift-+.f64N/A

        \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\alpha + \beta\right)} + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
      2. +-commutativeN/A

        \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
      3. lower-+.f6482.1

        \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
      4. lift-*.f64N/A

        \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + \color{blue}{2 \cdot 1}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
      5. metadata-eval82.1

        \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + \color{blue}{2}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
    5. Applied rewrites82.1%

      \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\beta + \alpha\right) + 2}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
    6. Step-by-step derivation
      1. lift-+.f64N/A

        \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\color{blue}{\left(\alpha + \beta\right)} + 2 \cdot 1\right) + 1} \]
      2. +-commutativeN/A

        \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1\right) + 1} \]
      3. lower-+.f6482.1

        \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1\right) + 1} \]
      4. lift-*.f64N/A

        \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + \color{blue}{2 \cdot 1}\right) + 1} \]
      5. metadata-eval82.1

        \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + \color{blue}{2}\right) + 1} \]
    7. Applied rewrites82.1%

      \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\left(\beta + \alpha\right) + 2\right)} + 1} \]
    8. Taylor expanded in beta around inf

      \[\leadsto \frac{\frac{\color{blue}{1 + \alpha}}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
    9. Step-by-step derivation
      1. lift-+.f6499.4

        \[\leadsto \frac{\frac{1 + \color{blue}{\alpha}}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
    10. Applied rewrites99.4%

      \[\leadsto \frac{\frac{\color{blue}{1 + \alpha}}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
  3. Recombined 2 regimes into one program.
  4. Add Preprocessing

Alternative 2: 99.5% accurate, 1.2× speedup?

\[\begin{array}{l} [alpha, beta] = \mathsf{sort}([alpha, beta])\\ \\ \begin{array}{l} t_0 := \left(\beta + \alpha\right) + 2\\ \mathbf{if}\;\beta \leq 5 \cdot 10^{+99}:\\ \;\;\;\;\frac{\frac{\mathsf{fma}\left(\beta, \alpha, \beta + \alpha\right) + 1}{t\_0 \cdot t\_0}}{3 + \left(\beta + \alpha\right)}\\ \mathbf{else}:\\ \;\;\;\;\frac{\frac{1 + \alpha}{t\_0}}{t\_0 + 1}\\ \end{array} \end{array} \]
NOTE: alpha and beta should be sorted in increasing order before calling this function.
(FPCore (alpha beta)
 :precision binary64
 (let* ((t_0 (+ (+ beta alpha) 2.0)))
   (if (<= beta 5e+99)
     (/
      (/ (+ (fma beta alpha (+ beta alpha)) 1.0) (* t_0 t_0))
      (+ 3.0 (+ beta alpha)))
     (/ (/ (+ 1.0 alpha) t_0) (+ t_0 1.0)))))
assert(alpha < beta);
double code(double alpha, double beta) {
	double t_0 = (beta + alpha) + 2.0;
	double tmp;
	if (beta <= 5e+99) {
		tmp = ((fma(beta, alpha, (beta + alpha)) + 1.0) / (t_0 * t_0)) / (3.0 + (beta + alpha));
	} else {
		tmp = ((1.0 + alpha) / t_0) / (t_0 + 1.0);
	}
	return tmp;
}
alpha, beta = sort([alpha, beta])
function code(alpha, beta)
	t_0 = Float64(Float64(beta + alpha) + 2.0)
	tmp = 0.0
	if (beta <= 5e+99)
		tmp = Float64(Float64(Float64(fma(beta, alpha, Float64(beta + alpha)) + 1.0) / Float64(t_0 * t_0)) / Float64(3.0 + Float64(beta + alpha)));
	else
		tmp = Float64(Float64(Float64(1.0 + alpha) / t_0) / Float64(t_0 + 1.0));
	end
	return tmp
end
NOTE: alpha and beta should be sorted in increasing order before calling this function.
code[alpha_, beta_] := Block[{t$95$0 = N[(N[(beta + alpha), $MachinePrecision] + 2.0), $MachinePrecision]}, If[LessEqual[beta, 5e+99], N[(N[(N[(N[(beta * alpha + N[(beta + alpha), $MachinePrecision]), $MachinePrecision] + 1.0), $MachinePrecision] / N[(t$95$0 * t$95$0), $MachinePrecision]), $MachinePrecision] / N[(3.0 + N[(beta + alpha), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(N[(1.0 + alpha), $MachinePrecision] / t$95$0), $MachinePrecision] / N[(t$95$0 + 1.0), $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}
[alpha, beta] = \mathsf{sort}([alpha, beta])\\
\\
\begin{array}{l}
t_0 := \left(\beta + \alpha\right) + 2\\
\mathbf{if}\;\beta \leq 5 \cdot 10^{+99}:\\
\;\;\;\;\frac{\frac{\mathsf{fma}\left(\beta, \alpha, \beta + \alpha\right) + 1}{t\_0 \cdot t\_0}}{3 + \left(\beta + \alpha\right)}\\

\mathbf{else}:\\
\;\;\;\;\frac{\frac{1 + \alpha}{t\_0}}{t\_0 + 1}\\


\end{array}
\end{array}
Derivation
  1. Split input into 2 regimes
  2. if beta < 5.00000000000000008e99

    1. Initial program 99.8%

      \[\frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
    2. Step-by-step derivation
      1. Applied rewrites99.8%

        \[\leadsto \color{blue}{\frac{\frac{\mathsf{fma}\left(\beta, \alpha, \beta + \alpha\right) + 1}{\left(\left(\beta + \alpha\right) + 2\right) \cdot \left(\left(\beta + \alpha\right) + 2\right)}}{3 + \left(\beta + \alpha\right)}} \]

      if 5.00000000000000008e99 < beta

      1. Initial program 86.0%

        \[\frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
      2. Step-by-step derivation
        1. lift-+.f64N/A

          \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\color{blue}{\left(\alpha + \beta\right)} + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
        2. +-commutativeN/A

          \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
        3. lower-+.f6486.0

          \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
        4. lift-*.f64N/A

          \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + \color{blue}{2 \cdot 1}}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
        5. metadata-eval86.0

          \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + \color{blue}{2}}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
      3. Applied rewrites86.0%

        \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\color{blue}{\left(\beta + \alpha\right) + 2}}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
      4. Step-by-step derivation
        1. lift-+.f64N/A

          \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\alpha + \beta\right)} + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
        2. +-commutativeN/A

          \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
        3. lower-+.f6486.0

          \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
        4. lift-*.f64N/A

          \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + \color{blue}{2 \cdot 1}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
        5. metadata-eval86.0

          \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + \color{blue}{2}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
      5. Applied rewrites86.0%

        \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\beta + \alpha\right) + 2}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
      6. Step-by-step derivation
        1. lift-+.f64N/A

          \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\color{blue}{\left(\alpha + \beta\right)} + 2 \cdot 1\right) + 1} \]
        2. +-commutativeN/A

          \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1\right) + 1} \]
        3. lower-+.f6486.0

          \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1\right) + 1} \]
        4. lift-*.f64N/A

          \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + \color{blue}{2 \cdot 1}\right) + 1} \]
        5. metadata-eval86.0

          \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + \color{blue}{2}\right) + 1} \]
      7. Applied rewrites86.0%

        \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\left(\beta + \alpha\right) + 2\right)} + 1} \]
      8. Taylor expanded in beta around inf

        \[\leadsto \frac{\frac{\color{blue}{1 + \alpha}}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
      9. Step-by-step derivation
        1. lift-+.f6499.2

          \[\leadsto \frac{\frac{1 + \color{blue}{\alpha}}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
      10. Applied rewrites99.2%

        \[\leadsto \frac{\frac{\color{blue}{1 + \alpha}}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
    3. Recombined 2 regimes into one program.
    4. Add Preprocessing

    Alternative 3: 98.4% accurate, 1.8× speedup?

    \[\begin{array}{l} [alpha, beta] = \mathsf{sort}([alpha, beta])\\ \\ \begin{array}{l} t_0 := \left(\beta + \alpha\right) + 2\\ \mathbf{if}\;\beta \leq 10^{+16}:\\ \;\;\;\;\frac{\frac{\frac{1 + \beta}{2 + \beta}}{t\_0}}{3 + \beta}\\ \mathbf{else}:\\ \;\;\;\;\frac{\frac{1 + \alpha}{t\_0}}{t\_0 + 1}\\ \end{array} \end{array} \]
    NOTE: alpha and beta should be sorted in increasing order before calling this function.
    (FPCore (alpha beta)
     :precision binary64
     (let* ((t_0 (+ (+ beta alpha) 2.0)))
       (if (<= beta 1e+16)
         (/ (/ (/ (+ 1.0 beta) (+ 2.0 beta)) t_0) (+ 3.0 beta))
         (/ (/ (+ 1.0 alpha) t_0) (+ t_0 1.0)))))
    assert(alpha < beta);
    double code(double alpha, double beta) {
    	double t_0 = (beta + alpha) + 2.0;
    	double tmp;
    	if (beta <= 1e+16) {
    		tmp = (((1.0 + beta) / (2.0 + beta)) / t_0) / (3.0 + beta);
    	} else {
    		tmp = ((1.0 + alpha) / t_0) / (t_0 + 1.0);
    	}
    	return tmp;
    }
    
    NOTE: alpha and beta should be sorted in increasing order before calling this function.
    module fmin_fmax_functions
        implicit none
        private
        public fmax
        public fmin
    
        interface fmax
            module procedure fmax88
            module procedure fmax44
            module procedure fmax84
            module procedure fmax48
        end interface
        interface fmin
            module procedure fmin88
            module procedure fmin44
            module procedure fmin84
            module procedure fmin48
        end interface
    contains
        real(8) function fmax88(x, y) result (res)
            real(8), intent (in) :: x
            real(8), intent (in) :: y
            res = merge(y, merge(x, max(x, y), y /= y), x /= x)
        end function
        real(4) function fmax44(x, y) result (res)
            real(4), intent (in) :: x
            real(4), intent (in) :: y
            res = merge(y, merge(x, max(x, y), y /= y), x /= x)
        end function
        real(8) function fmax84(x, y) result(res)
            real(8), intent (in) :: x
            real(4), intent (in) :: y
            res = merge(dble(y), merge(x, max(x, dble(y)), y /= y), x /= x)
        end function
        real(8) function fmax48(x, y) result(res)
            real(4), intent (in) :: x
            real(8), intent (in) :: y
            res = merge(y, merge(dble(x), max(dble(x), y), y /= y), x /= x)
        end function
        real(8) function fmin88(x, y) result (res)
            real(8), intent (in) :: x
            real(8), intent (in) :: y
            res = merge(y, merge(x, min(x, y), y /= y), x /= x)
        end function
        real(4) function fmin44(x, y) result (res)
            real(4), intent (in) :: x
            real(4), intent (in) :: y
            res = merge(y, merge(x, min(x, y), y /= y), x /= x)
        end function
        real(8) function fmin84(x, y) result(res)
            real(8), intent (in) :: x
            real(4), intent (in) :: y
            res = merge(dble(y), merge(x, min(x, dble(y)), y /= y), x /= x)
        end function
        real(8) function fmin48(x, y) result(res)
            real(4), intent (in) :: x
            real(8), intent (in) :: y
            res = merge(y, merge(dble(x), min(dble(x), y), y /= y), x /= x)
        end function
    end module
    
    real(8) function code(alpha, beta)
    use fmin_fmax_functions
        real(8), intent (in) :: alpha
        real(8), intent (in) :: beta
        real(8) :: t_0
        real(8) :: tmp
        t_0 = (beta + alpha) + 2.0d0
        if (beta <= 1d+16) then
            tmp = (((1.0d0 + beta) / (2.0d0 + beta)) / t_0) / (3.0d0 + beta)
        else
            tmp = ((1.0d0 + alpha) / t_0) / (t_0 + 1.0d0)
        end if
        code = tmp
    end function
    
    assert alpha < beta;
    public static double code(double alpha, double beta) {
    	double t_0 = (beta + alpha) + 2.0;
    	double tmp;
    	if (beta <= 1e+16) {
    		tmp = (((1.0 + beta) / (2.0 + beta)) / t_0) / (3.0 + beta);
    	} else {
    		tmp = ((1.0 + alpha) / t_0) / (t_0 + 1.0);
    	}
    	return tmp;
    }
    
    [alpha, beta] = sort([alpha, beta])
    def code(alpha, beta):
    	t_0 = (beta + alpha) + 2.0
    	tmp = 0
    	if beta <= 1e+16:
    		tmp = (((1.0 + beta) / (2.0 + beta)) / t_0) / (3.0 + beta)
    	else:
    		tmp = ((1.0 + alpha) / t_0) / (t_0 + 1.0)
    	return tmp
    
    alpha, beta = sort([alpha, beta])
    function code(alpha, beta)
    	t_0 = Float64(Float64(beta + alpha) + 2.0)
    	tmp = 0.0
    	if (beta <= 1e+16)
    		tmp = Float64(Float64(Float64(Float64(1.0 + beta) / Float64(2.0 + beta)) / t_0) / Float64(3.0 + beta));
    	else
    		tmp = Float64(Float64(Float64(1.0 + alpha) / t_0) / Float64(t_0 + 1.0));
    	end
    	return tmp
    end
    
    alpha, beta = num2cell(sort([alpha, beta])){:}
    function tmp_2 = code(alpha, beta)
    	t_0 = (beta + alpha) + 2.0;
    	tmp = 0.0;
    	if (beta <= 1e+16)
    		tmp = (((1.0 + beta) / (2.0 + beta)) / t_0) / (3.0 + beta);
    	else
    		tmp = ((1.0 + alpha) / t_0) / (t_0 + 1.0);
    	end
    	tmp_2 = tmp;
    end
    
    NOTE: alpha and beta should be sorted in increasing order before calling this function.
    code[alpha_, beta_] := Block[{t$95$0 = N[(N[(beta + alpha), $MachinePrecision] + 2.0), $MachinePrecision]}, If[LessEqual[beta, 1e+16], N[(N[(N[(N[(1.0 + beta), $MachinePrecision] / N[(2.0 + beta), $MachinePrecision]), $MachinePrecision] / t$95$0), $MachinePrecision] / N[(3.0 + beta), $MachinePrecision]), $MachinePrecision], N[(N[(N[(1.0 + alpha), $MachinePrecision] / t$95$0), $MachinePrecision] / N[(t$95$0 + 1.0), $MachinePrecision]), $MachinePrecision]]]
    
    \begin{array}{l}
    [alpha, beta] = \mathsf{sort}([alpha, beta])\\
    \\
    \begin{array}{l}
    t_0 := \left(\beta + \alpha\right) + 2\\
    \mathbf{if}\;\beta \leq 10^{+16}:\\
    \;\;\;\;\frac{\frac{\frac{1 + \beta}{2 + \beta}}{t\_0}}{3 + \beta}\\
    
    \mathbf{else}:\\
    \;\;\;\;\frac{\frac{1 + \alpha}{t\_0}}{t\_0 + 1}\\
    
    
    \end{array}
    \end{array}
    
    Derivation
    1. Split input into 2 regimes
    2. if beta < 1e16

      1. Initial program 99.9%

        \[\frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
      2. Step-by-step derivation
        1. lift-+.f64N/A

          \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\color{blue}{\left(\alpha + \beta\right)} + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
        2. +-commutativeN/A

          \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
        3. lower-+.f6499.9

          \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
        4. lift-*.f64N/A

          \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + \color{blue}{2 \cdot 1}}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
        5. metadata-eval99.9

          \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + \color{blue}{2}}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
      3. Applied rewrites99.9%

        \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\color{blue}{\left(\beta + \alpha\right) + 2}}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
      4. Step-by-step derivation
        1. lift-+.f64N/A

          \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\alpha + \beta\right)} + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
        2. +-commutativeN/A

          \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
        3. lower-+.f6499.9

          \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
        4. lift-*.f64N/A

          \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + \color{blue}{2 \cdot 1}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
        5. metadata-eval99.9

          \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + \color{blue}{2}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
      5. Applied rewrites99.9%

        \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\beta + \alpha\right) + 2}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
      6. Step-by-step derivation
        1. lift-+.f64N/A

          \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\color{blue}{\left(\alpha + \beta\right)} + 2 \cdot 1\right) + 1} \]
        2. +-commutativeN/A

          \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1\right) + 1} \]
        3. lower-+.f6499.9

          \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1\right) + 1} \]
        4. lift-*.f64N/A

          \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + \color{blue}{2 \cdot 1}\right) + 1} \]
        5. metadata-eval99.9

          \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + \color{blue}{2}\right) + 1} \]
      7. Applied rewrites99.9%

        \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\left(\beta + \alpha\right) + 2\right)} + 1} \]
      8. Taylor expanded in alpha around 0

        \[\leadsto \frac{\frac{\color{blue}{\frac{1 + \beta}{2 + \beta}}}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
      9. Step-by-step derivation
        1. lower-/.f64N/A

          \[\leadsto \frac{\frac{\frac{1 + \beta}{\color{blue}{2 + \beta}}}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
        2. lift-+.f64N/A

          \[\leadsto \frac{\frac{\frac{1 + \beta}{\color{blue}{2} + \beta}}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
        3. lower-+.f6497.5

          \[\leadsto \frac{\frac{\frac{1 + \beta}{2 + \color{blue}{\beta}}}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
      10. Applied rewrites97.5%

        \[\leadsto \frac{\frac{\color{blue}{\frac{1 + \beta}{2 + \beta}}}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
      11. Taylor expanded in alpha around 0

        \[\leadsto \frac{\frac{\frac{1 + \beta}{2 + \beta}}{\left(\beta + \alpha\right) + 2}}{\color{blue}{3 + \beta}} \]
      12. Step-by-step derivation
        1. lower-+.f6497.7

          \[\leadsto \frac{\frac{\frac{1 + \beta}{2 + \beta}}{\left(\beta + \alpha\right) + 2}}{3 + \color{blue}{\beta}} \]
      13. Applied rewrites97.7%

        \[\leadsto \frac{\frac{\frac{1 + \beta}{2 + \beta}}{\left(\beta + \alpha\right) + 2}}{\color{blue}{3 + \beta}} \]

      if 1e16 < beta

      1. Initial program 89.4%

        \[\frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
      2. Step-by-step derivation
        1. lift-+.f64N/A

          \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\color{blue}{\left(\alpha + \beta\right)} + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
        2. +-commutativeN/A

          \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
        3. lower-+.f6489.4

          \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
        4. lift-*.f64N/A

          \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + \color{blue}{2 \cdot 1}}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
        5. metadata-eval89.4

          \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + \color{blue}{2}}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
      3. Applied rewrites89.4%

        \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\color{blue}{\left(\beta + \alpha\right) + 2}}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
      4. Step-by-step derivation
        1. lift-+.f64N/A

          \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\alpha + \beta\right)} + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
        2. +-commutativeN/A

          \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
        3. lower-+.f6489.4

          \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
        4. lift-*.f64N/A

          \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + \color{blue}{2 \cdot 1}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
        5. metadata-eval89.4

          \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + \color{blue}{2}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
      5. Applied rewrites89.4%

        \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\beta + \alpha\right) + 2}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
      6. Step-by-step derivation
        1. lift-+.f64N/A

          \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\color{blue}{\left(\alpha + \beta\right)} + 2 \cdot 1\right) + 1} \]
        2. +-commutativeN/A

          \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1\right) + 1} \]
        3. lower-+.f6489.4

          \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1\right) + 1} \]
        4. lift-*.f64N/A

          \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + \color{blue}{2 \cdot 1}\right) + 1} \]
        5. metadata-eval89.4

          \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + \color{blue}{2}\right) + 1} \]
      7. Applied rewrites89.4%

        \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\left(\beta + \alpha\right) + 2\right)} + 1} \]
      8. Taylor expanded in beta around inf

        \[\leadsto \frac{\frac{\color{blue}{1 + \alpha}}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
      9. Step-by-step derivation
        1. lift-+.f6499.1

          \[\leadsto \frac{\frac{1 + \color{blue}{\alpha}}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
      10. Applied rewrites99.1%

        \[\leadsto \frac{\frac{\color{blue}{1 + \alpha}}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
    3. Recombined 2 regimes into one program.
    4. Add Preprocessing

    Alternative 4: 98.4% accurate, 1.8× speedup?

    \[\begin{array}{l} [alpha, beta] = \mathsf{sort}([alpha, beta])\\ \\ \begin{array}{l} t_0 := \left(\beta + \alpha\right) + 2\\ \mathbf{if}\;\beta \leq 10^{+16}:\\ \;\;\;\;\frac{\frac{\frac{1 + \beta}{2 + \beta}}{\beta + 2}}{3 + \beta}\\ \mathbf{else}:\\ \;\;\;\;\frac{\frac{1 + \alpha}{t\_0}}{t\_0 + 1}\\ \end{array} \end{array} \]
    NOTE: alpha and beta should be sorted in increasing order before calling this function.
    (FPCore (alpha beta)
     :precision binary64
     (let* ((t_0 (+ (+ beta alpha) 2.0)))
       (if (<= beta 1e+16)
         (/ (/ (/ (+ 1.0 beta) (+ 2.0 beta)) (+ beta 2.0)) (+ 3.0 beta))
         (/ (/ (+ 1.0 alpha) t_0) (+ t_0 1.0)))))
    assert(alpha < beta);
    double code(double alpha, double beta) {
    	double t_0 = (beta + alpha) + 2.0;
    	double tmp;
    	if (beta <= 1e+16) {
    		tmp = (((1.0 + beta) / (2.0 + beta)) / (beta + 2.0)) / (3.0 + beta);
    	} else {
    		tmp = ((1.0 + alpha) / t_0) / (t_0 + 1.0);
    	}
    	return tmp;
    }
    
    NOTE: alpha and beta should be sorted in increasing order before calling this function.
    module fmin_fmax_functions
        implicit none
        private
        public fmax
        public fmin
    
        interface fmax
            module procedure fmax88
            module procedure fmax44
            module procedure fmax84
            module procedure fmax48
        end interface
        interface fmin
            module procedure fmin88
            module procedure fmin44
            module procedure fmin84
            module procedure fmin48
        end interface
    contains
        real(8) function fmax88(x, y) result (res)
            real(8), intent (in) :: x
            real(8), intent (in) :: y
            res = merge(y, merge(x, max(x, y), y /= y), x /= x)
        end function
        real(4) function fmax44(x, y) result (res)
            real(4), intent (in) :: x
            real(4), intent (in) :: y
            res = merge(y, merge(x, max(x, y), y /= y), x /= x)
        end function
        real(8) function fmax84(x, y) result(res)
            real(8), intent (in) :: x
            real(4), intent (in) :: y
            res = merge(dble(y), merge(x, max(x, dble(y)), y /= y), x /= x)
        end function
        real(8) function fmax48(x, y) result(res)
            real(4), intent (in) :: x
            real(8), intent (in) :: y
            res = merge(y, merge(dble(x), max(dble(x), y), y /= y), x /= x)
        end function
        real(8) function fmin88(x, y) result (res)
            real(8), intent (in) :: x
            real(8), intent (in) :: y
            res = merge(y, merge(x, min(x, y), y /= y), x /= x)
        end function
        real(4) function fmin44(x, y) result (res)
            real(4), intent (in) :: x
            real(4), intent (in) :: y
            res = merge(y, merge(x, min(x, y), y /= y), x /= x)
        end function
        real(8) function fmin84(x, y) result(res)
            real(8), intent (in) :: x
            real(4), intent (in) :: y
            res = merge(dble(y), merge(x, min(x, dble(y)), y /= y), x /= x)
        end function
        real(8) function fmin48(x, y) result(res)
            real(4), intent (in) :: x
            real(8), intent (in) :: y
            res = merge(y, merge(dble(x), min(dble(x), y), y /= y), x /= x)
        end function
    end module
    
    real(8) function code(alpha, beta)
    use fmin_fmax_functions
        real(8), intent (in) :: alpha
        real(8), intent (in) :: beta
        real(8) :: t_0
        real(8) :: tmp
        t_0 = (beta + alpha) + 2.0d0
        if (beta <= 1d+16) then
            tmp = (((1.0d0 + beta) / (2.0d0 + beta)) / (beta + 2.0d0)) / (3.0d0 + beta)
        else
            tmp = ((1.0d0 + alpha) / t_0) / (t_0 + 1.0d0)
        end if
        code = tmp
    end function
    
    assert alpha < beta;
    public static double code(double alpha, double beta) {
    	double t_0 = (beta + alpha) + 2.0;
    	double tmp;
    	if (beta <= 1e+16) {
    		tmp = (((1.0 + beta) / (2.0 + beta)) / (beta + 2.0)) / (3.0 + beta);
    	} else {
    		tmp = ((1.0 + alpha) / t_0) / (t_0 + 1.0);
    	}
    	return tmp;
    }
    
    [alpha, beta] = sort([alpha, beta])
    def code(alpha, beta):
    	t_0 = (beta + alpha) + 2.0
    	tmp = 0
    	if beta <= 1e+16:
    		tmp = (((1.0 + beta) / (2.0 + beta)) / (beta + 2.0)) / (3.0 + beta)
    	else:
    		tmp = ((1.0 + alpha) / t_0) / (t_0 + 1.0)
    	return tmp
    
    alpha, beta = sort([alpha, beta])
    function code(alpha, beta)
    	t_0 = Float64(Float64(beta + alpha) + 2.0)
    	tmp = 0.0
    	if (beta <= 1e+16)
    		tmp = Float64(Float64(Float64(Float64(1.0 + beta) / Float64(2.0 + beta)) / Float64(beta + 2.0)) / Float64(3.0 + beta));
    	else
    		tmp = Float64(Float64(Float64(1.0 + alpha) / t_0) / Float64(t_0 + 1.0));
    	end
    	return tmp
    end
    
    alpha, beta = num2cell(sort([alpha, beta])){:}
    function tmp_2 = code(alpha, beta)
    	t_0 = (beta + alpha) + 2.0;
    	tmp = 0.0;
    	if (beta <= 1e+16)
    		tmp = (((1.0 + beta) / (2.0 + beta)) / (beta + 2.0)) / (3.0 + beta);
    	else
    		tmp = ((1.0 + alpha) / t_0) / (t_0 + 1.0);
    	end
    	tmp_2 = tmp;
    end
    
    NOTE: alpha and beta should be sorted in increasing order before calling this function.
    code[alpha_, beta_] := Block[{t$95$0 = N[(N[(beta + alpha), $MachinePrecision] + 2.0), $MachinePrecision]}, If[LessEqual[beta, 1e+16], N[(N[(N[(N[(1.0 + beta), $MachinePrecision] / N[(2.0 + beta), $MachinePrecision]), $MachinePrecision] / N[(beta + 2.0), $MachinePrecision]), $MachinePrecision] / N[(3.0 + beta), $MachinePrecision]), $MachinePrecision], N[(N[(N[(1.0 + alpha), $MachinePrecision] / t$95$0), $MachinePrecision] / N[(t$95$0 + 1.0), $MachinePrecision]), $MachinePrecision]]]
    
    \begin{array}{l}
    [alpha, beta] = \mathsf{sort}([alpha, beta])\\
    \\
    \begin{array}{l}
    t_0 := \left(\beta + \alpha\right) + 2\\
    \mathbf{if}\;\beta \leq 10^{+16}:\\
    \;\;\;\;\frac{\frac{\frac{1 + \beta}{2 + \beta}}{\beta + 2}}{3 + \beta}\\
    
    \mathbf{else}:\\
    \;\;\;\;\frac{\frac{1 + \alpha}{t\_0}}{t\_0 + 1}\\
    
    
    \end{array}
    \end{array}
    
    Derivation
    1. Split input into 2 regimes
    2. if beta < 1e16

      1. Initial program 99.9%

        \[\frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
      2. Step-by-step derivation
        1. lift-+.f64N/A

          \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\color{blue}{\left(\alpha + \beta\right)} + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
        2. +-commutativeN/A

          \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
        3. lower-+.f6499.9

          \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
        4. lift-*.f64N/A

          \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + \color{blue}{2 \cdot 1}}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
        5. metadata-eval99.9

          \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + \color{blue}{2}}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
      3. Applied rewrites99.9%

        \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\color{blue}{\left(\beta + \alpha\right) + 2}}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
      4. Step-by-step derivation
        1. lift-+.f64N/A

          \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\alpha + \beta\right)} + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
        2. +-commutativeN/A

          \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
        3. lower-+.f6499.9

          \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
        4. lift-*.f64N/A

          \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + \color{blue}{2 \cdot 1}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
        5. metadata-eval99.9

          \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + \color{blue}{2}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
      5. Applied rewrites99.9%

        \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\beta + \alpha\right) + 2}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
      6. Step-by-step derivation
        1. lift-+.f64N/A

          \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\color{blue}{\left(\alpha + \beta\right)} + 2 \cdot 1\right) + 1} \]
        2. +-commutativeN/A

          \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1\right) + 1} \]
        3. lower-+.f6499.9

          \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1\right) + 1} \]
        4. lift-*.f64N/A

          \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + \color{blue}{2 \cdot 1}\right) + 1} \]
        5. metadata-eval99.9

          \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + \color{blue}{2}\right) + 1} \]
      7. Applied rewrites99.9%

        \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\left(\beta + \alpha\right) + 2\right)} + 1} \]
      8. Taylor expanded in alpha around 0

        \[\leadsto \frac{\frac{\color{blue}{\frac{1 + \beta}{2 + \beta}}}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
      9. Step-by-step derivation
        1. lower-/.f64N/A

          \[\leadsto \frac{\frac{\frac{1 + \beta}{\color{blue}{2 + \beta}}}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
        2. lift-+.f64N/A

          \[\leadsto \frac{\frac{\frac{1 + \beta}{\color{blue}{2} + \beta}}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
        3. lower-+.f6497.5

          \[\leadsto \frac{\frac{\frac{1 + \beta}{2 + \color{blue}{\beta}}}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
      10. Applied rewrites97.5%

        \[\leadsto \frac{\frac{\color{blue}{\frac{1 + \beta}{2 + \beta}}}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
      11. Taylor expanded in alpha around 0

        \[\leadsto \frac{\frac{\frac{1 + \beta}{2 + \beta}}{\left(\beta + \alpha\right) + 2}}{\color{blue}{3 + \beta}} \]
      12. Step-by-step derivation
        1. lower-+.f6497.7

          \[\leadsto \frac{\frac{\frac{1 + \beta}{2 + \beta}}{\left(\beta + \alpha\right) + 2}}{3 + \color{blue}{\beta}} \]
      13. Applied rewrites97.7%

        \[\leadsto \frac{\frac{\frac{1 + \beta}{2 + \beta}}{\left(\beta + \alpha\right) + 2}}{\color{blue}{3 + \beta}} \]
      14. Taylor expanded in alpha around 0

        \[\leadsto \frac{\frac{\frac{1 + \beta}{2 + \beta}}{\color{blue}{\beta} + 2}}{3 + \beta} \]
      15. Step-by-step derivation
        1. Applied rewrites97.6%

          \[\leadsto \frac{\frac{\frac{1 + \beta}{2 + \beta}}{\color{blue}{\beta} + 2}}{3 + \beta} \]

        if 1e16 < beta

        1. Initial program 89.4%

          \[\frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
        2. Step-by-step derivation
          1. lift-+.f64N/A

            \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\color{blue}{\left(\alpha + \beta\right)} + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
          2. +-commutativeN/A

            \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
          3. lower-+.f6489.4

            \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
          4. lift-*.f64N/A

            \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + \color{blue}{2 \cdot 1}}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
          5. metadata-eval89.4

            \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + \color{blue}{2}}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
        3. Applied rewrites89.4%

          \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\color{blue}{\left(\beta + \alpha\right) + 2}}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
        4. Step-by-step derivation
          1. lift-+.f64N/A

            \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\alpha + \beta\right)} + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
          2. +-commutativeN/A

            \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
          3. lower-+.f6489.4

            \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
          4. lift-*.f64N/A

            \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + \color{blue}{2 \cdot 1}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
          5. metadata-eval89.4

            \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + \color{blue}{2}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
        5. Applied rewrites89.4%

          \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\beta + \alpha\right) + 2}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
        6. Step-by-step derivation
          1. lift-+.f64N/A

            \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\color{blue}{\left(\alpha + \beta\right)} + 2 \cdot 1\right) + 1} \]
          2. +-commutativeN/A

            \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1\right) + 1} \]
          3. lower-+.f6489.4

            \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1\right) + 1} \]
          4. lift-*.f64N/A

            \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + \color{blue}{2 \cdot 1}\right) + 1} \]
          5. metadata-eval89.4

            \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + \color{blue}{2}\right) + 1} \]
        7. Applied rewrites89.4%

          \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\left(\beta + \alpha\right) + 2\right)} + 1} \]
        8. Taylor expanded in beta around inf

          \[\leadsto \frac{\frac{\color{blue}{1 + \alpha}}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
        9. Step-by-step derivation
          1. lift-+.f6499.1

            \[\leadsto \frac{\frac{1 + \color{blue}{\alpha}}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
        10. Applied rewrites99.1%

          \[\leadsto \frac{\frac{\color{blue}{1 + \alpha}}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
      16. Recombined 2 regimes into one program.
      17. Add Preprocessing

      Alternative 5: 98.4% accurate, 1.9× speedup?

      \[\begin{array}{l} [alpha, beta] = \mathsf{sort}([alpha, beta])\\ \\ \begin{array}{l} \mathbf{if}\;\beta \leq 10^{+16}:\\ \;\;\;\;\frac{\frac{\frac{1 + \beta}{2 + \beta}}{\beta + 2}}{3 + \beta}\\ \mathbf{else}:\\ \;\;\;\;\frac{\frac{1 + \alpha}{\left(\beta + \alpha\right) + 2}}{3 + \beta}\\ \end{array} \end{array} \]
      NOTE: alpha and beta should be sorted in increasing order before calling this function.
      (FPCore (alpha beta)
       :precision binary64
       (if (<= beta 1e+16)
         (/ (/ (/ (+ 1.0 beta) (+ 2.0 beta)) (+ beta 2.0)) (+ 3.0 beta))
         (/ (/ (+ 1.0 alpha) (+ (+ beta alpha) 2.0)) (+ 3.0 beta))))
      assert(alpha < beta);
      double code(double alpha, double beta) {
      	double tmp;
      	if (beta <= 1e+16) {
      		tmp = (((1.0 + beta) / (2.0 + beta)) / (beta + 2.0)) / (3.0 + beta);
      	} else {
      		tmp = ((1.0 + alpha) / ((beta + alpha) + 2.0)) / (3.0 + beta);
      	}
      	return tmp;
      }
      
      NOTE: alpha and beta should be sorted in increasing order before calling this function.
      module fmin_fmax_functions
          implicit none
          private
          public fmax
          public fmin
      
          interface fmax
              module procedure fmax88
              module procedure fmax44
              module procedure fmax84
              module procedure fmax48
          end interface
          interface fmin
              module procedure fmin88
              module procedure fmin44
              module procedure fmin84
              module procedure fmin48
          end interface
      contains
          real(8) function fmax88(x, y) result (res)
              real(8), intent (in) :: x
              real(8), intent (in) :: y
              res = merge(y, merge(x, max(x, y), y /= y), x /= x)
          end function
          real(4) function fmax44(x, y) result (res)
              real(4), intent (in) :: x
              real(4), intent (in) :: y
              res = merge(y, merge(x, max(x, y), y /= y), x /= x)
          end function
          real(8) function fmax84(x, y) result(res)
              real(8), intent (in) :: x
              real(4), intent (in) :: y
              res = merge(dble(y), merge(x, max(x, dble(y)), y /= y), x /= x)
          end function
          real(8) function fmax48(x, y) result(res)
              real(4), intent (in) :: x
              real(8), intent (in) :: y
              res = merge(y, merge(dble(x), max(dble(x), y), y /= y), x /= x)
          end function
          real(8) function fmin88(x, y) result (res)
              real(8), intent (in) :: x
              real(8), intent (in) :: y
              res = merge(y, merge(x, min(x, y), y /= y), x /= x)
          end function
          real(4) function fmin44(x, y) result (res)
              real(4), intent (in) :: x
              real(4), intent (in) :: y
              res = merge(y, merge(x, min(x, y), y /= y), x /= x)
          end function
          real(8) function fmin84(x, y) result(res)
              real(8), intent (in) :: x
              real(4), intent (in) :: y
              res = merge(dble(y), merge(x, min(x, dble(y)), y /= y), x /= x)
          end function
          real(8) function fmin48(x, y) result(res)
              real(4), intent (in) :: x
              real(8), intent (in) :: y
              res = merge(y, merge(dble(x), min(dble(x), y), y /= y), x /= x)
          end function
      end module
      
      real(8) function code(alpha, beta)
      use fmin_fmax_functions
          real(8), intent (in) :: alpha
          real(8), intent (in) :: beta
          real(8) :: tmp
          if (beta <= 1d+16) then
              tmp = (((1.0d0 + beta) / (2.0d0 + beta)) / (beta + 2.0d0)) / (3.0d0 + beta)
          else
              tmp = ((1.0d0 + alpha) / ((beta + alpha) + 2.0d0)) / (3.0d0 + beta)
          end if
          code = tmp
      end function
      
      assert alpha < beta;
      public static double code(double alpha, double beta) {
      	double tmp;
      	if (beta <= 1e+16) {
      		tmp = (((1.0 + beta) / (2.0 + beta)) / (beta + 2.0)) / (3.0 + beta);
      	} else {
      		tmp = ((1.0 + alpha) / ((beta + alpha) + 2.0)) / (3.0 + beta);
      	}
      	return tmp;
      }
      
      [alpha, beta] = sort([alpha, beta])
      def code(alpha, beta):
      	tmp = 0
      	if beta <= 1e+16:
      		tmp = (((1.0 + beta) / (2.0 + beta)) / (beta + 2.0)) / (3.0 + beta)
      	else:
      		tmp = ((1.0 + alpha) / ((beta + alpha) + 2.0)) / (3.0 + beta)
      	return tmp
      
      alpha, beta = sort([alpha, beta])
      function code(alpha, beta)
      	tmp = 0.0
      	if (beta <= 1e+16)
      		tmp = Float64(Float64(Float64(Float64(1.0 + beta) / Float64(2.0 + beta)) / Float64(beta + 2.0)) / Float64(3.0 + beta));
      	else
      		tmp = Float64(Float64(Float64(1.0 + alpha) / Float64(Float64(beta + alpha) + 2.0)) / Float64(3.0 + beta));
      	end
      	return tmp
      end
      
      alpha, beta = num2cell(sort([alpha, beta])){:}
      function tmp_2 = code(alpha, beta)
      	tmp = 0.0;
      	if (beta <= 1e+16)
      		tmp = (((1.0 + beta) / (2.0 + beta)) / (beta + 2.0)) / (3.0 + beta);
      	else
      		tmp = ((1.0 + alpha) / ((beta + alpha) + 2.0)) / (3.0 + beta);
      	end
      	tmp_2 = tmp;
      end
      
      NOTE: alpha and beta should be sorted in increasing order before calling this function.
      code[alpha_, beta_] := If[LessEqual[beta, 1e+16], N[(N[(N[(N[(1.0 + beta), $MachinePrecision] / N[(2.0 + beta), $MachinePrecision]), $MachinePrecision] / N[(beta + 2.0), $MachinePrecision]), $MachinePrecision] / N[(3.0 + beta), $MachinePrecision]), $MachinePrecision], N[(N[(N[(1.0 + alpha), $MachinePrecision] / N[(N[(beta + alpha), $MachinePrecision] + 2.0), $MachinePrecision]), $MachinePrecision] / N[(3.0 + beta), $MachinePrecision]), $MachinePrecision]]
      
      \begin{array}{l}
      [alpha, beta] = \mathsf{sort}([alpha, beta])\\
      \\
      \begin{array}{l}
      \mathbf{if}\;\beta \leq 10^{+16}:\\
      \;\;\;\;\frac{\frac{\frac{1 + \beta}{2 + \beta}}{\beta + 2}}{3 + \beta}\\
      
      \mathbf{else}:\\
      \;\;\;\;\frac{\frac{1 + \alpha}{\left(\beta + \alpha\right) + 2}}{3 + \beta}\\
      
      
      \end{array}
      \end{array}
      
      Derivation
      1. Split input into 2 regimes
      2. if beta < 1e16

        1. Initial program 99.9%

          \[\frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
        2. Step-by-step derivation
          1. lift-+.f64N/A

            \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\color{blue}{\left(\alpha + \beta\right)} + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
          2. +-commutativeN/A

            \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
          3. lower-+.f6499.9

            \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
          4. lift-*.f64N/A

            \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + \color{blue}{2 \cdot 1}}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
          5. metadata-eval99.9

            \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + \color{blue}{2}}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
        3. Applied rewrites99.9%

          \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\color{blue}{\left(\beta + \alpha\right) + 2}}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
        4. Step-by-step derivation
          1. lift-+.f64N/A

            \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\alpha + \beta\right)} + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
          2. +-commutativeN/A

            \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
          3. lower-+.f6499.9

            \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
          4. lift-*.f64N/A

            \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + \color{blue}{2 \cdot 1}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
          5. metadata-eval99.9

            \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + \color{blue}{2}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
        5. Applied rewrites99.9%

          \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\beta + \alpha\right) + 2}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
        6. Step-by-step derivation
          1. lift-+.f64N/A

            \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\color{blue}{\left(\alpha + \beta\right)} + 2 \cdot 1\right) + 1} \]
          2. +-commutativeN/A

            \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1\right) + 1} \]
          3. lower-+.f6499.9

            \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1\right) + 1} \]
          4. lift-*.f64N/A

            \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + \color{blue}{2 \cdot 1}\right) + 1} \]
          5. metadata-eval99.9

            \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + \color{blue}{2}\right) + 1} \]
        7. Applied rewrites99.9%

          \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\left(\beta + \alpha\right) + 2\right)} + 1} \]
        8. Taylor expanded in alpha around 0

          \[\leadsto \frac{\frac{\color{blue}{\frac{1 + \beta}{2 + \beta}}}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
        9. Step-by-step derivation
          1. lower-/.f64N/A

            \[\leadsto \frac{\frac{\frac{1 + \beta}{\color{blue}{2 + \beta}}}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
          2. lift-+.f64N/A

            \[\leadsto \frac{\frac{\frac{1 + \beta}{\color{blue}{2} + \beta}}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
          3. lower-+.f6497.5

            \[\leadsto \frac{\frac{\frac{1 + \beta}{2 + \color{blue}{\beta}}}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
        10. Applied rewrites97.5%

          \[\leadsto \frac{\frac{\color{blue}{\frac{1 + \beta}{2 + \beta}}}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
        11. Taylor expanded in alpha around 0

          \[\leadsto \frac{\frac{\frac{1 + \beta}{2 + \beta}}{\left(\beta + \alpha\right) + 2}}{\color{blue}{3 + \beta}} \]
        12. Step-by-step derivation
          1. lower-+.f6497.7

            \[\leadsto \frac{\frac{\frac{1 + \beta}{2 + \beta}}{\left(\beta + \alpha\right) + 2}}{3 + \color{blue}{\beta}} \]
        13. Applied rewrites97.7%

          \[\leadsto \frac{\frac{\frac{1 + \beta}{2 + \beta}}{\left(\beta + \alpha\right) + 2}}{\color{blue}{3 + \beta}} \]
        14. Taylor expanded in alpha around 0

          \[\leadsto \frac{\frac{\frac{1 + \beta}{2 + \beta}}{\color{blue}{\beta} + 2}}{3 + \beta} \]
        15. Step-by-step derivation
          1. Applied rewrites97.6%

            \[\leadsto \frac{\frac{\frac{1 + \beta}{2 + \beta}}{\color{blue}{\beta} + 2}}{3 + \beta} \]

          if 1e16 < beta

          1. Initial program 89.4%

            \[\frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
          2. Step-by-step derivation
            1. lift-+.f64N/A

              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\color{blue}{\left(\alpha + \beta\right)} + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
            2. +-commutativeN/A

              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
            3. lower-+.f6489.4

              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
            4. lift-*.f64N/A

              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + \color{blue}{2 \cdot 1}}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
            5. metadata-eval89.4

              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + \color{blue}{2}}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
          3. Applied rewrites89.4%

            \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\color{blue}{\left(\beta + \alpha\right) + 2}}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
          4. Step-by-step derivation
            1. lift-+.f64N/A

              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\alpha + \beta\right)} + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
            2. +-commutativeN/A

              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
            3. lower-+.f6489.4

              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
            4. lift-*.f64N/A

              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + \color{blue}{2 \cdot 1}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
            5. metadata-eval89.4

              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + \color{blue}{2}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
          5. Applied rewrites89.4%

            \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\beta + \alpha\right) + 2}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
          6. Step-by-step derivation
            1. lift-+.f64N/A

              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\color{blue}{\left(\alpha + \beta\right)} + 2 \cdot 1\right) + 1} \]
            2. +-commutativeN/A

              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1\right) + 1} \]
            3. lower-+.f6489.4

              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1\right) + 1} \]
            4. lift-*.f64N/A

              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + \color{blue}{2 \cdot 1}\right) + 1} \]
            5. metadata-eval89.4

              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + \color{blue}{2}\right) + 1} \]
          7. Applied rewrites89.4%

            \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\left(\beta + \alpha\right) + 2\right)} + 1} \]
          8. Taylor expanded in alpha around 0

            \[\leadsto \frac{\frac{\color{blue}{\frac{1 + \beta}{2 + \beta}}}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
          9. Step-by-step derivation
            1. lower-/.f64N/A

              \[\leadsto \frac{\frac{\frac{1 + \beta}{\color{blue}{2 + \beta}}}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
            2. lift-+.f64N/A

              \[\leadsto \frac{\frac{\frac{1 + \beta}{\color{blue}{2} + \beta}}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
            3. lower-+.f6489.3

              \[\leadsto \frac{\frac{\frac{1 + \beta}{2 + \color{blue}{\beta}}}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
          10. Applied rewrites89.3%

            \[\leadsto \frac{\frac{\color{blue}{\frac{1 + \beta}{2 + \beta}}}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
          11. Taylor expanded in alpha around 0

            \[\leadsto \frac{\frac{\frac{1 + \beta}{2 + \beta}}{\left(\beta + \alpha\right) + 2}}{\color{blue}{3 + \beta}} \]
          12. Step-by-step derivation
            1. lower-+.f6489.3

              \[\leadsto \frac{\frac{\frac{1 + \beta}{2 + \beta}}{\left(\beta + \alpha\right) + 2}}{3 + \color{blue}{\beta}} \]
          13. Applied rewrites89.3%

            \[\leadsto \frac{\frac{\frac{1 + \beta}{2 + \beta}}{\left(\beta + \alpha\right) + 2}}{\color{blue}{3 + \beta}} \]
          14. Taylor expanded in beta around inf

            \[\leadsto \frac{\frac{\color{blue}{1 + \alpha}}{\left(\beta + \alpha\right) + 2}}{3 + \beta} \]
          15. Step-by-step derivation
            1. lift-+.f6499.1

              \[\leadsto \frac{\frac{1 + \color{blue}{\alpha}}{\left(\beta + \alpha\right) + 2}}{3 + \beta} \]
          16. Applied rewrites99.1%

            \[\leadsto \frac{\frac{\color{blue}{1 + \alpha}}{\left(\beta + \alpha\right) + 2}}{3 + \beta} \]
        16. Recombined 2 regimes into one program.
        17. Add Preprocessing

        Alternative 6: 98.4% accurate, 2.0× speedup?

        \[\begin{array}{l} [alpha, beta] = \mathsf{sort}([alpha, beta])\\ \\ \begin{array}{l} \mathbf{if}\;\beta \leq 10^{+16}:\\ \;\;\;\;\frac{1 + \beta}{\left(3 + \beta\right) \cdot \left(\left(2 + \beta\right) \cdot \left(2 + \beta\right)\right)}\\ \mathbf{else}:\\ \;\;\;\;\frac{\frac{1 + \alpha}{\left(\beta + \alpha\right) + 2}}{3 + \beta}\\ \end{array} \end{array} \]
        NOTE: alpha and beta should be sorted in increasing order before calling this function.
        (FPCore (alpha beta)
         :precision binary64
         (if (<= beta 1e+16)
           (/ (+ 1.0 beta) (* (+ 3.0 beta) (* (+ 2.0 beta) (+ 2.0 beta))))
           (/ (/ (+ 1.0 alpha) (+ (+ beta alpha) 2.0)) (+ 3.0 beta))))
        assert(alpha < beta);
        double code(double alpha, double beta) {
        	double tmp;
        	if (beta <= 1e+16) {
        		tmp = (1.0 + beta) / ((3.0 + beta) * ((2.0 + beta) * (2.0 + beta)));
        	} else {
        		tmp = ((1.0 + alpha) / ((beta + alpha) + 2.0)) / (3.0 + beta);
        	}
        	return tmp;
        }
        
        NOTE: alpha and beta should be sorted in increasing order before calling this function.
        module fmin_fmax_functions
            implicit none
            private
            public fmax
            public fmin
        
            interface fmax
                module procedure fmax88
                module procedure fmax44
                module procedure fmax84
                module procedure fmax48
            end interface
            interface fmin
                module procedure fmin88
                module procedure fmin44
                module procedure fmin84
                module procedure fmin48
            end interface
        contains
            real(8) function fmax88(x, y) result (res)
                real(8), intent (in) :: x
                real(8), intent (in) :: y
                res = merge(y, merge(x, max(x, y), y /= y), x /= x)
            end function
            real(4) function fmax44(x, y) result (res)
                real(4), intent (in) :: x
                real(4), intent (in) :: y
                res = merge(y, merge(x, max(x, y), y /= y), x /= x)
            end function
            real(8) function fmax84(x, y) result(res)
                real(8), intent (in) :: x
                real(4), intent (in) :: y
                res = merge(dble(y), merge(x, max(x, dble(y)), y /= y), x /= x)
            end function
            real(8) function fmax48(x, y) result(res)
                real(4), intent (in) :: x
                real(8), intent (in) :: y
                res = merge(y, merge(dble(x), max(dble(x), y), y /= y), x /= x)
            end function
            real(8) function fmin88(x, y) result (res)
                real(8), intent (in) :: x
                real(8), intent (in) :: y
                res = merge(y, merge(x, min(x, y), y /= y), x /= x)
            end function
            real(4) function fmin44(x, y) result (res)
                real(4), intent (in) :: x
                real(4), intent (in) :: y
                res = merge(y, merge(x, min(x, y), y /= y), x /= x)
            end function
            real(8) function fmin84(x, y) result(res)
                real(8), intent (in) :: x
                real(4), intent (in) :: y
                res = merge(dble(y), merge(x, min(x, dble(y)), y /= y), x /= x)
            end function
            real(8) function fmin48(x, y) result(res)
                real(4), intent (in) :: x
                real(8), intent (in) :: y
                res = merge(y, merge(dble(x), min(dble(x), y), y /= y), x /= x)
            end function
        end module
        
        real(8) function code(alpha, beta)
        use fmin_fmax_functions
            real(8), intent (in) :: alpha
            real(8), intent (in) :: beta
            real(8) :: tmp
            if (beta <= 1d+16) then
                tmp = (1.0d0 + beta) / ((3.0d0 + beta) * ((2.0d0 + beta) * (2.0d0 + beta)))
            else
                tmp = ((1.0d0 + alpha) / ((beta + alpha) + 2.0d0)) / (3.0d0 + beta)
            end if
            code = tmp
        end function
        
        assert alpha < beta;
        public static double code(double alpha, double beta) {
        	double tmp;
        	if (beta <= 1e+16) {
        		tmp = (1.0 + beta) / ((3.0 + beta) * ((2.0 + beta) * (2.0 + beta)));
        	} else {
        		tmp = ((1.0 + alpha) / ((beta + alpha) + 2.0)) / (3.0 + beta);
        	}
        	return tmp;
        }
        
        [alpha, beta] = sort([alpha, beta])
        def code(alpha, beta):
        	tmp = 0
        	if beta <= 1e+16:
        		tmp = (1.0 + beta) / ((3.0 + beta) * ((2.0 + beta) * (2.0 + beta)))
        	else:
        		tmp = ((1.0 + alpha) / ((beta + alpha) + 2.0)) / (3.0 + beta)
        	return tmp
        
        alpha, beta = sort([alpha, beta])
        function code(alpha, beta)
        	tmp = 0.0
        	if (beta <= 1e+16)
        		tmp = Float64(Float64(1.0 + beta) / Float64(Float64(3.0 + beta) * Float64(Float64(2.0 + beta) * Float64(2.0 + beta))));
        	else
        		tmp = Float64(Float64(Float64(1.0 + alpha) / Float64(Float64(beta + alpha) + 2.0)) / Float64(3.0 + beta));
        	end
        	return tmp
        end
        
        alpha, beta = num2cell(sort([alpha, beta])){:}
        function tmp_2 = code(alpha, beta)
        	tmp = 0.0;
        	if (beta <= 1e+16)
        		tmp = (1.0 + beta) / ((3.0 + beta) * ((2.0 + beta) * (2.0 + beta)));
        	else
        		tmp = ((1.0 + alpha) / ((beta + alpha) + 2.0)) / (3.0 + beta);
        	end
        	tmp_2 = tmp;
        end
        
        NOTE: alpha and beta should be sorted in increasing order before calling this function.
        code[alpha_, beta_] := If[LessEqual[beta, 1e+16], N[(N[(1.0 + beta), $MachinePrecision] / N[(N[(3.0 + beta), $MachinePrecision] * N[(N[(2.0 + beta), $MachinePrecision] * N[(2.0 + beta), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(N[(1.0 + alpha), $MachinePrecision] / N[(N[(beta + alpha), $MachinePrecision] + 2.0), $MachinePrecision]), $MachinePrecision] / N[(3.0 + beta), $MachinePrecision]), $MachinePrecision]]
        
        \begin{array}{l}
        [alpha, beta] = \mathsf{sort}([alpha, beta])\\
        \\
        \begin{array}{l}
        \mathbf{if}\;\beta \leq 10^{+16}:\\
        \;\;\;\;\frac{1 + \beta}{\left(3 + \beta\right) \cdot \left(\left(2 + \beta\right) \cdot \left(2 + \beta\right)\right)}\\
        
        \mathbf{else}:\\
        \;\;\;\;\frac{\frac{1 + \alpha}{\left(\beta + \alpha\right) + 2}}{3 + \beta}\\
        
        
        \end{array}
        \end{array}
        
        Derivation
        1. Split input into 2 regimes
        2. if beta < 1e16

          1. Initial program 99.9%

            \[\frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
          2. Taylor expanded in alpha around 0

            \[\leadsto \color{blue}{\frac{1 + \beta}{{\left(2 + \beta\right)}^{2} \cdot \left(3 + \beta\right)}} \]
          3. Step-by-step derivation
            1. lower-/.f64N/A

              \[\leadsto \frac{1 + \beta}{\color{blue}{{\left(2 + \beta\right)}^{2} \cdot \left(3 + \beta\right)}} \]
            2. lower-+.f64N/A

              \[\leadsto \frac{1 + \beta}{\color{blue}{{\left(2 + \beta\right)}^{2}} \cdot \left(3 + \beta\right)} \]
            3. *-commutativeN/A

              \[\leadsto \frac{1 + \beta}{\left(3 + \beta\right) \cdot \color{blue}{{\left(2 + \beta\right)}^{2}}} \]
            4. lower-*.f64N/A

              \[\leadsto \frac{1 + \beta}{\left(3 + \beta\right) \cdot \color{blue}{{\left(2 + \beta\right)}^{2}}} \]
            5. lower-+.f64N/A

              \[\leadsto \frac{1 + \beta}{\left(3 + \beta\right) \cdot {\color{blue}{\left(2 + \beta\right)}}^{2}} \]
            6. unpow2N/A

              \[\leadsto \frac{1 + \beta}{\left(3 + \beta\right) \cdot \left(\left(2 + \beta\right) \cdot \color{blue}{\left(2 + \beta\right)}\right)} \]
            7. lower-*.f64N/A

              \[\leadsto \frac{1 + \beta}{\left(3 + \beta\right) \cdot \left(\left(2 + \beta\right) \cdot \color{blue}{\left(2 + \beta\right)}\right)} \]
            8. lower-+.f64N/A

              \[\leadsto \frac{1 + \beta}{\left(3 + \beta\right) \cdot \left(\left(2 + \beta\right) \cdot \left(\color{blue}{2} + \beta\right)\right)} \]
            9. lower-+.f6497.6

              \[\leadsto \frac{1 + \beta}{\left(3 + \beta\right) \cdot \left(\left(2 + \beta\right) \cdot \left(2 + \color{blue}{\beta}\right)\right)} \]
          4. Applied rewrites97.6%

            \[\leadsto \color{blue}{\frac{1 + \beta}{\left(3 + \beta\right) \cdot \left(\left(2 + \beta\right) \cdot \left(2 + \beta\right)\right)}} \]

          if 1e16 < beta

          1. Initial program 89.4%

            \[\frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
          2. Step-by-step derivation
            1. lift-+.f64N/A

              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\color{blue}{\left(\alpha + \beta\right)} + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
            2. +-commutativeN/A

              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
            3. lower-+.f6489.4

              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
            4. lift-*.f64N/A

              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + \color{blue}{2 \cdot 1}}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
            5. metadata-eval89.4

              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + \color{blue}{2}}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
          3. Applied rewrites89.4%

            \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\color{blue}{\left(\beta + \alpha\right) + 2}}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
          4. Step-by-step derivation
            1. lift-+.f64N/A

              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\alpha + \beta\right)} + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
            2. +-commutativeN/A

              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
            3. lower-+.f6489.4

              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
            4. lift-*.f64N/A

              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + \color{blue}{2 \cdot 1}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
            5. metadata-eval89.4

              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + \color{blue}{2}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
          5. Applied rewrites89.4%

            \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\beta + \alpha\right) + 2}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
          6. Step-by-step derivation
            1. lift-+.f64N/A

              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\color{blue}{\left(\alpha + \beta\right)} + 2 \cdot 1\right) + 1} \]
            2. +-commutativeN/A

              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1\right) + 1} \]
            3. lower-+.f6489.4

              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1\right) + 1} \]
            4. lift-*.f64N/A

              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + \color{blue}{2 \cdot 1}\right) + 1} \]
            5. metadata-eval89.4

              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + \color{blue}{2}\right) + 1} \]
          7. Applied rewrites89.4%

            \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\left(\beta + \alpha\right) + 2\right)} + 1} \]
          8. Taylor expanded in alpha around 0

            \[\leadsto \frac{\frac{\color{blue}{\frac{1 + \beta}{2 + \beta}}}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
          9. Step-by-step derivation
            1. lower-/.f64N/A

              \[\leadsto \frac{\frac{\frac{1 + \beta}{\color{blue}{2 + \beta}}}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
            2. lift-+.f64N/A

              \[\leadsto \frac{\frac{\frac{1 + \beta}{\color{blue}{2} + \beta}}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
            3. lower-+.f6489.3

              \[\leadsto \frac{\frac{\frac{1 + \beta}{2 + \color{blue}{\beta}}}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
          10. Applied rewrites89.3%

            \[\leadsto \frac{\frac{\color{blue}{\frac{1 + \beta}{2 + \beta}}}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
          11. Taylor expanded in alpha around 0

            \[\leadsto \frac{\frac{\frac{1 + \beta}{2 + \beta}}{\left(\beta + \alpha\right) + 2}}{\color{blue}{3 + \beta}} \]
          12. Step-by-step derivation
            1. lower-+.f6489.3

              \[\leadsto \frac{\frac{\frac{1 + \beta}{2 + \beta}}{\left(\beta + \alpha\right) + 2}}{3 + \color{blue}{\beta}} \]
          13. Applied rewrites89.3%

            \[\leadsto \frac{\frac{\frac{1 + \beta}{2 + \beta}}{\left(\beta + \alpha\right) + 2}}{\color{blue}{3 + \beta}} \]
          14. Taylor expanded in beta around inf

            \[\leadsto \frac{\frac{\color{blue}{1 + \alpha}}{\left(\beta + \alpha\right) + 2}}{3 + \beta} \]
          15. Step-by-step derivation
            1. lift-+.f6499.1

              \[\leadsto \frac{\frac{1 + \color{blue}{\alpha}}{\left(\beta + \alpha\right) + 2}}{3 + \beta} \]
          16. Applied rewrites99.1%

            \[\leadsto \frac{\frac{\color{blue}{1 + \alpha}}{\left(\beta + \alpha\right) + 2}}{3 + \beta} \]
        3. Recombined 2 regimes into one program.
        4. Add Preprocessing

        Alternative 7: 97.8% accurate, 2.0× speedup?

        \[\begin{array}{l} [alpha, beta] = \mathsf{sort}([alpha, beta])\\ \\ \begin{array}{l} t_0 := \left(\beta + \alpha\right) + 2\\ \mathbf{if}\;\beta \leq 1.35:\\ \;\;\;\;\frac{0.25 - 0.0625 \cdot \left(\alpha \cdot \alpha\right)}{t\_0 + 1}\\ \mathbf{else}:\\ \;\;\;\;\frac{\frac{1 + \alpha}{t\_0}}{3 + \beta}\\ \end{array} \end{array} \]
        NOTE: alpha and beta should be sorted in increasing order before calling this function.
        (FPCore (alpha beta)
         :precision binary64
         (let* ((t_0 (+ (+ beta alpha) 2.0)))
           (if (<= beta 1.35)
             (/ (- 0.25 (* 0.0625 (* alpha alpha))) (+ t_0 1.0))
             (/ (/ (+ 1.0 alpha) t_0) (+ 3.0 beta)))))
        assert(alpha < beta);
        double code(double alpha, double beta) {
        	double t_0 = (beta + alpha) + 2.0;
        	double tmp;
        	if (beta <= 1.35) {
        		tmp = (0.25 - (0.0625 * (alpha * alpha))) / (t_0 + 1.0);
        	} else {
        		tmp = ((1.0 + alpha) / t_0) / (3.0 + beta);
        	}
        	return tmp;
        }
        
        NOTE: alpha and beta should be sorted in increasing order before calling this function.
        module fmin_fmax_functions
            implicit none
            private
            public fmax
            public fmin
        
            interface fmax
                module procedure fmax88
                module procedure fmax44
                module procedure fmax84
                module procedure fmax48
            end interface
            interface fmin
                module procedure fmin88
                module procedure fmin44
                module procedure fmin84
                module procedure fmin48
            end interface
        contains
            real(8) function fmax88(x, y) result (res)
                real(8), intent (in) :: x
                real(8), intent (in) :: y
                res = merge(y, merge(x, max(x, y), y /= y), x /= x)
            end function
            real(4) function fmax44(x, y) result (res)
                real(4), intent (in) :: x
                real(4), intent (in) :: y
                res = merge(y, merge(x, max(x, y), y /= y), x /= x)
            end function
            real(8) function fmax84(x, y) result(res)
                real(8), intent (in) :: x
                real(4), intent (in) :: y
                res = merge(dble(y), merge(x, max(x, dble(y)), y /= y), x /= x)
            end function
            real(8) function fmax48(x, y) result(res)
                real(4), intent (in) :: x
                real(8), intent (in) :: y
                res = merge(y, merge(dble(x), max(dble(x), y), y /= y), x /= x)
            end function
            real(8) function fmin88(x, y) result (res)
                real(8), intent (in) :: x
                real(8), intent (in) :: y
                res = merge(y, merge(x, min(x, y), y /= y), x /= x)
            end function
            real(4) function fmin44(x, y) result (res)
                real(4), intent (in) :: x
                real(4), intent (in) :: y
                res = merge(y, merge(x, min(x, y), y /= y), x /= x)
            end function
            real(8) function fmin84(x, y) result(res)
                real(8), intent (in) :: x
                real(4), intent (in) :: y
                res = merge(dble(y), merge(x, min(x, dble(y)), y /= y), x /= x)
            end function
            real(8) function fmin48(x, y) result(res)
                real(4), intent (in) :: x
                real(8), intent (in) :: y
                res = merge(y, merge(dble(x), min(dble(x), y), y /= y), x /= x)
            end function
        end module
        
        real(8) function code(alpha, beta)
        use fmin_fmax_functions
            real(8), intent (in) :: alpha
            real(8), intent (in) :: beta
            real(8) :: t_0
            real(8) :: tmp
            t_0 = (beta + alpha) + 2.0d0
            if (beta <= 1.35d0) then
                tmp = (0.25d0 - (0.0625d0 * (alpha * alpha))) / (t_0 + 1.0d0)
            else
                tmp = ((1.0d0 + alpha) / t_0) / (3.0d0 + beta)
            end if
            code = tmp
        end function
        
        assert alpha < beta;
        public static double code(double alpha, double beta) {
        	double t_0 = (beta + alpha) + 2.0;
        	double tmp;
        	if (beta <= 1.35) {
        		tmp = (0.25 - (0.0625 * (alpha * alpha))) / (t_0 + 1.0);
        	} else {
        		tmp = ((1.0 + alpha) / t_0) / (3.0 + beta);
        	}
        	return tmp;
        }
        
        [alpha, beta] = sort([alpha, beta])
        def code(alpha, beta):
        	t_0 = (beta + alpha) + 2.0
        	tmp = 0
        	if beta <= 1.35:
        		tmp = (0.25 - (0.0625 * (alpha * alpha))) / (t_0 + 1.0)
        	else:
        		tmp = ((1.0 + alpha) / t_0) / (3.0 + beta)
        	return tmp
        
        alpha, beta = sort([alpha, beta])
        function code(alpha, beta)
        	t_0 = Float64(Float64(beta + alpha) + 2.0)
        	tmp = 0.0
        	if (beta <= 1.35)
        		tmp = Float64(Float64(0.25 - Float64(0.0625 * Float64(alpha * alpha))) / Float64(t_0 + 1.0));
        	else
        		tmp = Float64(Float64(Float64(1.0 + alpha) / t_0) / Float64(3.0 + beta));
        	end
        	return tmp
        end
        
        alpha, beta = num2cell(sort([alpha, beta])){:}
        function tmp_2 = code(alpha, beta)
        	t_0 = (beta + alpha) + 2.0;
        	tmp = 0.0;
        	if (beta <= 1.35)
        		tmp = (0.25 - (0.0625 * (alpha * alpha))) / (t_0 + 1.0);
        	else
        		tmp = ((1.0 + alpha) / t_0) / (3.0 + beta);
        	end
        	tmp_2 = tmp;
        end
        
        NOTE: alpha and beta should be sorted in increasing order before calling this function.
        code[alpha_, beta_] := Block[{t$95$0 = N[(N[(beta + alpha), $MachinePrecision] + 2.0), $MachinePrecision]}, If[LessEqual[beta, 1.35], N[(N[(0.25 - N[(0.0625 * N[(alpha * alpha), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(t$95$0 + 1.0), $MachinePrecision]), $MachinePrecision], N[(N[(N[(1.0 + alpha), $MachinePrecision] / t$95$0), $MachinePrecision] / N[(3.0 + beta), $MachinePrecision]), $MachinePrecision]]]
        
        \begin{array}{l}
        [alpha, beta] = \mathsf{sort}([alpha, beta])\\
        \\
        \begin{array}{l}
        t_0 := \left(\beta + \alpha\right) + 2\\
        \mathbf{if}\;\beta \leq 1.35:\\
        \;\;\;\;\frac{0.25 - 0.0625 \cdot \left(\alpha \cdot \alpha\right)}{t\_0 + 1}\\
        
        \mathbf{else}:\\
        \;\;\;\;\frac{\frac{1 + \alpha}{t\_0}}{3 + \beta}\\
        
        
        \end{array}
        \end{array}
        
        Derivation
        1. Split input into 2 regimes
        2. if beta < 1.3500000000000001

          1. Initial program 99.9%

            \[\frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
          2. Step-by-step derivation
            1. lift-+.f64N/A

              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\color{blue}{\left(\alpha + \beta\right)} + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
            2. +-commutativeN/A

              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
            3. lower-+.f6499.9

              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
            4. lift-*.f64N/A

              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + \color{blue}{2 \cdot 1}}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
            5. metadata-eval99.9

              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + \color{blue}{2}}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
          3. Applied rewrites99.9%

            \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\color{blue}{\left(\beta + \alpha\right) + 2}}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
          4. Step-by-step derivation
            1. lift-+.f64N/A

              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\alpha + \beta\right)} + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
            2. +-commutativeN/A

              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
            3. lower-+.f6499.9

              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
            4. lift-*.f64N/A

              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + \color{blue}{2 \cdot 1}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
            5. metadata-eval99.9

              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + \color{blue}{2}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
          5. Applied rewrites99.9%

            \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\beta + \alpha\right) + 2}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
          6. Step-by-step derivation
            1. lift-+.f64N/A

              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\color{blue}{\left(\alpha + \beta\right)} + 2 \cdot 1\right) + 1} \]
            2. +-commutativeN/A

              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1\right) + 1} \]
            3. lower-+.f6499.9

              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1\right) + 1} \]
            4. lift-*.f64N/A

              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + \color{blue}{2 \cdot 1}\right) + 1} \]
            5. metadata-eval99.9

              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + \color{blue}{2}\right) + 1} \]
          7. Applied rewrites99.9%

            \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\left(\beta + \alpha\right) + 2\right)} + 1} \]
          8. Taylor expanded in beta around 0

            \[\leadsto \frac{\color{blue}{\frac{1 + \alpha}{{\left(2 + \alpha\right)}^{2}}}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
          9. Step-by-step derivation
            1. lower-/.f64N/A

              \[\leadsto \frac{\frac{1 + \alpha}{\color{blue}{{\left(2 + \alpha\right)}^{2}}}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
            2. lift-+.f64N/A

              \[\leadsto \frac{\frac{1 + \alpha}{{\color{blue}{\left(2 + \alpha\right)}}^{2}}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
            3. unpow2N/A

              \[\leadsto \frac{\frac{1 + \alpha}{\left(2 + \alpha\right) \cdot \color{blue}{\left(2 + \alpha\right)}}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
            4. lower-*.f64N/A

              \[\leadsto \frac{\frac{1 + \alpha}{\left(2 + \alpha\right) \cdot \color{blue}{\left(2 + \alpha\right)}}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
            5. lower-+.f64N/A

              \[\leadsto \frac{\frac{1 + \alpha}{\left(2 + \alpha\right) \cdot \left(\color{blue}{2} + \alpha\right)}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
            6. lower-+.f6499.0

              \[\leadsto \frac{\frac{1 + \alpha}{\left(2 + \alpha\right) \cdot \left(2 + \color{blue}{\alpha}\right)}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
          10. Applied rewrites99.0%

            \[\leadsto \frac{\color{blue}{\frac{1 + \alpha}{\left(2 + \alpha\right) \cdot \left(2 + \alpha\right)}}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
          11. Taylor expanded in alpha around 0

            \[\leadsto \frac{\frac{1}{4} + \color{blue}{\frac{-1}{16} \cdot {\alpha}^{2}}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
          12. Step-by-step derivation
            1. fp-cancel-sign-sub-invN/A

              \[\leadsto \frac{\frac{1}{4} - \left(\mathsf{neg}\left(\frac{-1}{16}\right)\right) \cdot \color{blue}{{\alpha}^{2}}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
            2. lower--.f64N/A

              \[\leadsto \frac{\frac{1}{4} - \left(\mathsf{neg}\left(\frac{-1}{16}\right)\right) \cdot \color{blue}{{\alpha}^{2}}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
            3. metadata-evalN/A

              \[\leadsto \frac{\frac{1}{4} - \frac{1}{16} \cdot {\alpha}^{2}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
            4. lower-*.f64N/A

              \[\leadsto \frac{\frac{1}{4} - \frac{1}{16} \cdot {\alpha}^{\color{blue}{2}}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
            5. pow2N/A

              \[\leadsto \frac{\frac{1}{4} - \frac{1}{16} \cdot \left(\alpha \cdot \alpha\right)}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
            6. lift-*.f6498.3

              \[\leadsto \frac{0.25 - 0.0625 \cdot \left(\alpha \cdot \alpha\right)}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
          13. Applied rewrites98.3%

            \[\leadsto \frac{0.25 - \color{blue}{0.0625 \cdot \left(\alpha \cdot \alpha\right)}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]

          if 1.3500000000000001 < beta

          1. Initial program 89.8%

            \[\frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
          2. Step-by-step derivation
            1. lift-+.f64N/A

              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\color{blue}{\left(\alpha + \beta\right)} + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
            2. +-commutativeN/A

              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
            3. lower-+.f6489.8

              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
            4. lift-*.f64N/A

              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + \color{blue}{2 \cdot 1}}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
            5. metadata-eval89.8

              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + \color{blue}{2}}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
          3. Applied rewrites89.8%

            \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\color{blue}{\left(\beta + \alpha\right) + 2}}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
          4. Step-by-step derivation
            1. lift-+.f64N/A

              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\alpha + \beta\right)} + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
            2. +-commutativeN/A

              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
            3. lower-+.f6489.8

              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
            4. lift-*.f64N/A

              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + \color{blue}{2 \cdot 1}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
            5. metadata-eval89.8

              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + \color{blue}{2}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
          5. Applied rewrites89.8%

            \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\beta + \alpha\right) + 2}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
          6. Step-by-step derivation
            1. lift-+.f64N/A

              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\color{blue}{\left(\alpha + \beta\right)} + 2 \cdot 1\right) + 1} \]
            2. +-commutativeN/A

              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1\right) + 1} \]
            3. lower-+.f6489.8

              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1\right) + 1} \]
            4. lift-*.f64N/A

              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + \color{blue}{2 \cdot 1}\right) + 1} \]
            5. metadata-eval89.8

              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + \color{blue}{2}\right) + 1} \]
          7. Applied rewrites89.8%

            \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\left(\beta + \alpha\right) + 2\right)} + 1} \]
          8. Taylor expanded in alpha around 0

            \[\leadsto \frac{\frac{\color{blue}{\frac{1 + \beta}{2 + \beta}}}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
          9. Step-by-step derivation
            1. lower-/.f64N/A

              \[\leadsto \frac{\frac{\frac{1 + \beta}{\color{blue}{2 + \beta}}}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
            2. lift-+.f64N/A

              \[\leadsto \frac{\frac{\frac{1 + \beta}{\color{blue}{2} + \beta}}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
            3. lower-+.f6489.5

              \[\leadsto \frac{\frac{\frac{1 + \beta}{2 + \color{blue}{\beta}}}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
          10. Applied rewrites89.5%

            \[\leadsto \frac{\frac{\color{blue}{\frac{1 + \beta}{2 + \beta}}}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
          11. Taylor expanded in alpha around 0

            \[\leadsto \frac{\frac{\frac{1 + \beta}{2 + \beta}}{\left(\beta + \alpha\right) + 2}}{\color{blue}{3 + \beta}} \]
          12. Step-by-step derivation
            1. lower-+.f6489.5

              \[\leadsto \frac{\frac{\frac{1 + \beta}{2 + \beta}}{\left(\beta + \alpha\right) + 2}}{3 + \color{blue}{\beta}} \]
          13. Applied rewrites89.5%

            \[\leadsto \frac{\frac{\frac{1 + \beta}{2 + \beta}}{\left(\beta + \alpha\right) + 2}}{\color{blue}{3 + \beta}} \]
          14. Taylor expanded in beta around inf

            \[\leadsto \frac{\frac{\color{blue}{1 + \alpha}}{\left(\beta + \alpha\right) + 2}}{3 + \beta} \]
          15. Step-by-step derivation
            1. lift-+.f6497.5

              \[\leadsto \frac{\frac{1 + \color{blue}{\alpha}}{\left(\beta + \alpha\right) + 2}}{3 + \beta} \]
          16. Applied rewrites97.5%

            \[\leadsto \frac{\frac{\color{blue}{1 + \alpha}}{\left(\beta + \alpha\right) + 2}}{3 + \beta} \]
        3. Recombined 2 regimes into one program.
        4. Add Preprocessing

        Alternative 8: 97.7% accurate, 2.2× speedup?

        \[\begin{array}{l} [alpha, beta] = \mathsf{sort}([alpha, beta])\\ \\ \begin{array}{l} t_0 := \left(\beta + \alpha\right) + 2\\ \mathbf{if}\;\beta \leq 2.2:\\ \;\;\;\;\frac{0.25}{t\_0 + 1}\\ \mathbf{else}:\\ \;\;\;\;\frac{\frac{1 + \alpha}{t\_0}}{3 + \beta}\\ \end{array} \end{array} \]
        NOTE: alpha and beta should be sorted in increasing order before calling this function.
        (FPCore (alpha beta)
         :precision binary64
         (let* ((t_0 (+ (+ beta alpha) 2.0)))
           (if (<= beta 2.2)
             (/ 0.25 (+ t_0 1.0))
             (/ (/ (+ 1.0 alpha) t_0) (+ 3.0 beta)))))
        assert(alpha < beta);
        double code(double alpha, double beta) {
        	double t_0 = (beta + alpha) + 2.0;
        	double tmp;
        	if (beta <= 2.2) {
        		tmp = 0.25 / (t_0 + 1.0);
        	} else {
        		tmp = ((1.0 + alpha) / t_0) / (3.0 + beta);
        	}
        	return tmp;
        }
        
        NOTE: alpha and beta should be sorted in increasing order before calling this function.
        module fmin_fmax_functions
            implicit none
            private
            public fmax
            public fmin
        
            interface fmax
                module procedure fmax88
                module procedure fmax44
                module procedure fmax84
                module procedure fmax48
            end interface
            interface fmin
                module procedure fmin88
                module procedure fmin44
                module procedure fmin84
                module procedure fmin48
            end interface
        contains
            real(8) function fmax88(x, y) result (res)
                real(8), intent (in) :: x
                real(8), intent (in) :: y
                res = merge(y, merge(x, max(x, y), y /= y), x /= x)
            end function
            real(4) function fmax44(x, y) result (res)
                real(4), intent (in) :: x
                real(4), intent (in) :: y
                res = merge(y, merge(x, max(x, y), y /= y), x /= x)
            end function
            real(8) function fmax84(x, y) result(res)
                real(8), intent (in) :: x
                real(4), intent (in) :: y
                res = merge(dble(y), merge(x, max(x, dble(y)), y /= y), x /= x)
            end function
            real(8) function fmax48(x, y) result(res)
                real(4), intent (in) :: x
                real(8), intent (in) :: y
                res = merge(y, merge(dble(x), max(dble(x), y), y /= y), x /= x)
            end function
            real(8) function fmin88(x, y) result (res)
                real(8), intent (in) :: x
                real(8), intent (in) :: y
                res = merge(y, merge(x, min(x, y), y /= y), x /= x)
            end function
            real(4) function fmin44(x, y) result (res)
                real(4), intent (in) :: x
                real(4), intent (in) :: y
                res = merge(y, merge(x, min(x, y), y /= y), x /= x)
            end function
            real(8) function fmin84(x, y) result(res)
                real(8), intent (in) :: x
                real(4), intent (in) :: y
                res = merge(dble(y), merge(x, min(x, dble(y)), y /= y), x /= x)
            end function
            real(8) function fmin48(x, y) result(res)
                real(4), intent (in) :: x
                real(8), intent (in) :: y
                res = merge(y, merge(dble(x), min(dble(x), y), y /= y), x /= x)
            end function
        end module
        
        real(8) function code(alpha, beta)
        use fmin_fmax_functions
            real(8), intent (in) :: alpha
            real(8), intent (in) :: beta
            real(8) :: t_0
            real(8) :: tmp
            t_0 = (beta + alpha) + 2.0d0
            if (beta <= 2.2d0) then
                tmp = 0.25d0 / (t_0 + 1.0d0)
            else
                tmp = ((1.0d0 + alpha) / t_0) / (3.0d0 + beta)
            end if
            code = tmp
        end function
        
        assert alpha < beta;
        public static double code(double alpha, double beta) {
        	double t_0 = (beta + alpha) + 2.0;
        	double tmp;
        	if (beta <= 2.2) {
        		tmp = 0.25 / (t_0 + 1.0);
        	} else {
        		tmp = ((1.0 + alpha) / t_0) / (3.0 + beta);
        	}
        	return tmp;
        }
        
        [alpha, beta] = sort([alpha, beta])
        def code(alpha, beta):
        	t_0 = (beta + alpha) + 2.0
        	tmp = 0
        	if beta <= 2.2:
        		tmp = 0.25 / (t_0 + 1.0)
        	else:
        		tmp = ((1.0 + alpha) / t_0) / (3.0 + beta)
        	return tmp
        
        alpha, beta = sort([alpha, beta])
        function code(alpha, beta)
        	t_0 = Float64(Float64(beta + alpha) + 2.0)
        	tmp = 0.0
        	if (beta <= 2.2)
        		tmp = Float64(0.25 / Float64(t_0 + 1.0));
        	else
        		tmp = Float64(Float64(Float64(1.0 + alpha) / t_0) / Float64(3.0 + beta));
        	end
        	return tmp
        end
        
        alpha, beta = num2cell(sort([alpha, beta])){:}
        function tmp_2 = code(alpha, beta)
        	t_0 = (beta + alpha) + 2.0;
        	tmp = 0.0;
        	if (beta <= 2.2)
        		tmp = 0.25 / (t_0 + 1.0);
        	else
        		tmp = ((1.0 + alpha) / t_0) / (3.0 + beta);
        	end
        	tmp_2 = tmp;
        end
        
        NOTE: alpha and beta should be sorted in increasing order before calling this function.
        code[alpha_, beta_] := Block[{t$95$0 = N[(N[(beta + alpha), $MachinePrecision] + 2.0), $MachinePrecision]}, If[LessEqual[beta, 2.2], N[(0.25 / N[(t$95$0 + 1.0), $MachinePrecision]), $MachinePrecision], N[(N[(N[(1.0 + alpha), $MachinePrecision] / t$95$0), $MachinePrecision] / N[(3.0 + beta), $MachinePrecision]), $MachinePrecision]]]
        
        \begin{array}{l}
        [alpha, beta] = \mathsf{sort}([alpha, beta])\\
        \\
        \begin{array}{l}
        t_0 := \left(\beta + \alpha\right) + 2\\
        \mathbf{if}\;\beta \leq 2.2:\\
        \;\;\;\;\frac{0.25}{t\_0 + 1}\\
        
        \mathbf{else}:\\
        \;\;\;\;\frac{\frac{1 + \alpha}{t\_0}}{3 + \beta}\\
        
        
        \end{array}
        \end{array}
        
        Derivation
        1. Split input into 2 regimes
        2. if beta < 2.2000000000000002

          1. Initial program 99.9%

            \[\frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
          2. Step-by-step derivation
            1. lift-+.f64N/A

              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\color{blue}{\left(\alpha + \beta\right)} + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
            2. +-commutativeN/A

              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
            3. lower-+.f6499.9

              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
            4. lift-*.f64N/A

              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + \color{blue}{2 \cdot 1}}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
            5. metadata-eval99.9

              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + \color{blue}{2}}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
          3. Applied rewrites99.9%

            \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\color{blue}{\left(\beta + \alpha\right) + 2}}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
          4. Step-by-step derivation
            1. lift-+.f64N/A

              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\alpha + \beta\right)} + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
            2. +-commutativeN/A

              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
            3. lower-+.f6499.9

              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
            4. lift-*.f64N/A

              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + \color{blue}{2 \cdot 1}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
            5. metadata-eval99.9

              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + \color{blue}{2}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
          5. Applied rewrites99.9%

            \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\beta + \alpha\right) + 2}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
          6. Step-by-step derivation
            1. lift-+.f64N/A

              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\color{blue}{\left(\alpha + \beta\right)} + 2 \cdot 1\right) + 1} \]
            2. +-commutativeN/A

              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1\right) + 1} \]
            3. lower-+.f6499.9

              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1\right) + 1} \]
            4. lift-*.f64N/A

              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + \color{blue}{2 \cdot 1}\right) + 1} \]
            5. metadata-eval99.9

              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + \color{blue}{2}\right) + 1} \]
          7. Applied rewrites99.9%

            \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\left(\beta + \alpha\right) + 2\right)} + 1} \]
          8. Taylor expanded in beta around 0

            \[\leadsto \frac{\color{blue}{\frac{1 + \alpha}{{\left(2 + \alpha\right)}^{2}}}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
          9. Step-by-step derivation
            1. lower-/.f64N/A

              \[\leadsto \frac{\frac{1 + \alpha}{\color{blue}{{\left(2 + \alpha\right)}^{2}}}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
            2. lift-+.f64N/A

              \[\leadsto \frac{\frac{1 + \alpha}{{\color{blue}{\left(2 + \alpha\right)}}^{2}}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
            3. unpow2N/A

              \[\leadsto \frac{\frac{1 + \alpha}{\left(2 + \alpha\right) \cdot \color{blue}{\left(2 + \alpha\right)}}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
            4. lower-*.f64N/A

              \[\leadsto \frac{\frac{1 + \alpha}{\left(2 + \alpha\right) \cdot \color{blue}{\left(2 + \alpha\right)}}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
            5. lower-+.f64N/A

              \[\leadsto \frac{\frac{1 + \alpha}{\left(2 + \alpha\right) \cdot \left(\color{blue}{2} + \alpha\right)}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
            6. lower-+.f6498.9

              \[\leadsto \frac{\frac{1 + \alpha}{\left(2 + \alpha\right) \cdot \left(2 + \color{blue}{\alpha}\right)}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
          10. Applied rewrites98.9%

            \[\leadsto \frac{\color{blue}{\frac{1 + \alpha}{\left(2 + \alpha\right) \cdot \left(2 + \alpha\right)}}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
          11. Taylor expanded in alpha around 0

            \[\leadsto \frac{\frac{1}{4}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
          12. Step-by-step derivation
            1. Applied rewrites97.8%

              \[\leadsto \frac{0.25}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]

            if 2.2000000000000002 < beta

            1. Initial program 89.8%

              \[\frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
            2. Step-by-step derivation
              1. lift-+.f64N/A

                \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\color{blue}{\left(\alpha + \beta\right)} + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
              2. +-commutativeN/A

                \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
              3. lower-+.f6489.8

                \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
              4. lift-*.f64N/A

                \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + \color{blue}{2 \cdot 1}}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
              5. metadata-eval89.8

                \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + \color{blue}{2}}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
            3. Applied rewrites89.8%

              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\color{blue}{\left(\beta + \alpha\right) + 2}}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
            4. Step-by-step derivation
              1. lift-+.f64N/A

                \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\alpha + \beta\right)} + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
              2. +-commutativeN/A

                \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
              3. lower-+.f6489.8

                \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
              4. lift-*.f64N/A

                \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + \color{blue}{2 \cdot 1}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
              5. metadata-eval89.8

                \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + \color{blue}{2}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
            5. Applied rewrites89.8%

              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\beta + \alpha\right) + 2}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
            6. Step-by-step derivation
              1. lift-+.f64N/A

                \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\color{blue}{\left(\alpha + \beta\right)} + 2 \cdot 1\right) + 1} \]
              2. +-commutativeN/A

                \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1\right) + 1} \]
              3. lower-+.f6489.8

                \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1\right) + 1} \]
              4. lift-*.f64N/A

                \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + \color{blue}{2 \cdot 1}\right) + 1} \]
              5. metadata-eval89.8

                \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + \color{blue}{2}\right) + 1} \]
            7. Applied rewrites89.8%

              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\left(\beta + \alpha\right) + 2\right)} + 1} \]
            8. Taylor expanded in alpha around 0

              \[\leadsto \frac{\frac{\color{blue}{\frac{1 + \beta}{2 + \beta}}}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
            9. Step-by-step derivation
              1. lower-/.f64N/A

                \[\leadsto \frac{\frac{\frac{1 + \beta}{\color{blue}{2 + \beta}}}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
              2. lift-+.f64N/A

                \[\leadsto \frac{\frac{\frac{1 + \beta}{\color{blue}{2} + \beta}}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
              3. lower-+.f6489.5

                \[\leadsto \frac{\frac{\frac{1 + \beta}{2 + \color{blue}{\beta}}}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
            10. Applied rewrites89.5%

              \[\leadsto \frac{\frac{\color{blue}{\frac{1 + \beta}{2 + \beta}}}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
            11. Taylor expanded in alpha around 0

              \[\leadsto \frac{\frac{\frac{1 + \beta}{2 + \beta}}{\left(\beta + \alpha\right) + 2}}{\color{blue}{3 + \beta}} \]
            12. Step-by-step derivation
              1. lower-+.f6489.5

                \[\leadsto \frac{\frac{\frac{1 + \beta}{2 + \beta}}{\left(\beta + \alpha\right) + 2}}{3 + \color{blue}{\beta}} \]
            13. Applied rewrites89.5%

              \[\leadsto \frac{\frac{\frac{1 + \beta}{2 + \beta}}{\left(\beta + \alpha\right) + 2}}{\color{blue}{3 + \beta}} \]
            14. Taylor expanded in beta around inf

              \[\leadsto \frac{\frac{\color{blue}{1 + \alpha}}{\left(\beta + \alpha\right) + 2}}{3 + \beta} \]
            15. Step-by-step derivation
              1. lift-+.f6497.5

                \[\leadsto \frac{\frac{1 + \color{blue}{\alpha}}{\left(\beta + \alpha\right) + 2}}{3 + \beta} \]
            16. Applied rewrites97.5%

              \[\leadsto \frac{\frac{\color{blue}{1 + \alpha}}{\left(\beta + \alpha\right) + 2}}{3 + \beta} \]
          13. Recombined 2 regimes into one program.
          14. Add Preprocessing

          Alternative 9: 97.6% accurate, 2.5× speedup?

          \[\begin{array}{l} [alpha, beta] = \mathsf{sort}([alpha, beta])\\ \\ \begin{array}{l} \mathbf{if}\;\beta \leq 4.1:\\ \;\;\;\;\frac{0.25}{\left(\left(\beta + \alpha\right) + 2\right) + 1}\\ \mathbf{else}:\\ \;\;\;\;\frac{\frac{1 + \alpha}{\beta}}{\left(\alpha + \beta\right) + 3}\\ \end{array} \end{array} \]
          NOTE: alpha and beta should be sorted in increasing order before calling this function.
          (FPCore (alpha beta)
           :precision binary64
           (if (<= beta 4.1)
             (/ 0.25 (+ (+ (+ beta alpha) 2.0) 1.0))
             (/ (/ (+ 1.0 alpha) beta) (+ (+ alpha beta) 3.0))))
          assert(alpha < beta);
          double code(double alpha, double beta) {
          	double tmp;
          	if (beta <= 4.1) {
          		tmp = 0.25 / (((beta + alpha) + 2.0) + 1.0);
          	} else {
          		tmp = ((1.0 + alpha) / beta) / ((alpha + beta) + 3.0);
          	}
          	return tmp;
          }
          
          NOTE: alpha and beta should be sorted in increasing order before calling this function.
          module fmin_fmax_functions
              implicit none
              private
              public fmax
              public fmin
          
              interface fmax
                  module procedure fmax88
                  module procedure fmax44
                  module procedure fmax84
                  module procedure fmax48
              end interface
              interface fmin
                  module procedure fmin88
                  module procedure fmin44
                  module procedure fmin84
                  module procedure fmin48
              end interface
          contains
              real(8) function fmax88(x, y) result (res)
                  real(8), intent (in) :: x
                  real(8), intent (in) :: y
                  res = merge(y, merge(x, max(x, y), y /= y), x /= x)
              end function
              real(4) function fmax44(x, y) result (res)
                  real(4), intent (in) :: x
                  real(4), intent (in) :: y
                  res = merge(y, merge(x, max(x, y), y /= y), x /= x)
              end function
              real(8) function fmax84(x, y) result(res)
                  real(8), intent (in) :: x
                  real(4), intent (in) :: y
                  res = merge(dble(y), merge(x, max(x, dble(y)), y /= y), x /= x)
              end function
              real(8) function fmax48(x, y) result(res)
                  real(4), intent (in) :: x
                  real(8), intent (in) :: y
                  res = merge(y, merge(dble(x), max(dble(x), y), y /= y), x /= x)
              end function
              real(8) function fmin88(x, y) result (res)
                  real(8), intent (in) :: x
                  real(8), intent (in) :: y
                  res = merge(y, merge(x, min(x, y), y /= y), x /= x)
              end function
              real(4) function fmin44(x, y) result (res)
                  real(4), intent (in) :: x
                  real(4), intent (in) :: y
                  res = merge(y, merge(x, min(x, y), y /= y), x /= x)
              end function
              real(8) function fmin84(x, y) result(res)
                  real(8), intent (in) :: x
                  real(4), intent (in) :: y
                  res = merge(dble(y), merge(x, min(x, dble(y)), y /= y), x /= x)
              end function
              real(8) function fmin48(x, y) result(res)
                  real(4), intent (in) :: x
                  real(8), intent (in) :: y
                  res = merge(y, merge(dble(x), min(dble(x), y), y /= y), x /= x)
              end function
          end module
          
          real(8) function code(alpha, beta)
          use fmin_fmax_functions
              real(8), intent (in) :: alpha
              real(8), intent (in) :: beta
              real(8) :: tmp
              if (beta <= 4.1d0) then
                  tmp = 0.25d0 / (((beta + alpha) + 2.0d0) + 1.0d0)
              else
                  tmp = ((1.0d0 + alpha) / beta) / ((alpha + beta) + 3.0d0)
              end if
              code = tmp
          end function
          
          assert alpha < beta;
          public static double code(double alpha, double beta) {
          	double tmp;
          	if (beta <= 4.1) {
          		tmp = 0.25 / (((beta + alpha) + 2.0) + 1.0);
          	} else {
          		tmp = ((1.0 + alpha) / beta) / ((alpha + beta) + 3.0);
          	}
          	return tmp;
          }
          
          [alpha, beta] = sort([alpha, beta])
          def code(alpha, beta):
          	tmp = 0
          	if beta <= 4.1:
          		tmp = 0.25 / (((beta + alpha) + 2.0) + 1.0)
          	else:
          		tmp = ((1.0 + alpha) / beta) / ((alpha + beta) + 3.0)
          	return tmp
          
          alpha, beta = sort([alpha, beta])
          function code(alpha, beta)
          	tmp = 0.0
          	if (beta <= 4.1)
          		tmp = Float64(0.25 / Float64(Float64(Float64(beta + alpha) + 2.0) + 1.0));
          	else
          		tmp = Float64(Float64(Float64(1.0 + alpha) / beta) / Float64(Float64(alpha + beta) + 3.0));
          	end
          	return tmp
          end
          
          alpha, beta = num2cell(sort([alpha, beta])){:}
          function tmp_2 = code(alpha, beta)
          	tmp = 0.0;
          	if (beta <= 4.1)
          		tmp = 0.25 / (((beta + alpha) + 2.0) + 1.0);
          	else
          		tmp = ((1.0 + alpha) / beta) / ((alpha + beta) + 3.0);
          	end
          	tmp_2 = tmp;
          end
          
          NOTE: alpha and beta should be sorted in increasing order before calling this function.
          code[alpha_, beta_] := If[LessEqual[beta, 4.1], N[(0.25 / N[(N[(N[(beta + alpha), $MachinePrecision] + 2.0), $MachinePrecision] + 1.0), $MachinePrecision]), $MachinePrecision], N[(N[(N[(1.0 + alpha), $MachinePrecision] / beta), $MachinePrecision] / N[(N[(alpha + beta), $MachinePrecision] + 3.0), $MachinePrecision]), $MachinePrecision]]
          
          \begin{array}{l}
          [alpha, beta] = \mathsf{sort}([alpha, beta])\\
          \\
          \begin{array}{l}
          \mathbf{if}\;\beta \leq 4.1:\\
          \;\;\;\;\frac{0.25}{\left(\left(\beta + \alpha\right) + 2\right) + 1}\\
          
          \mathbf{else}:\\
          \;\;\;\;\frac{\frac{1 + \alpha}{\beta}}{\left(\alpha + \beta\right) + 3}\\
          
          
          \end{array}
          \end{array}
          
          Derivation
          1. Split input into 2 regimes
          2. if beta < 4.0999999999999996

            1. Initial program 99.9%

              \[\frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
            2. Step-by-step derivation
              1. lift-+.f64N/A

                \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\color{blue}{\left(\alpha + \beta\right)} + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
              2. +-commutativeN/A

                \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
              3. lower-+.f6499.9

                \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
              4. lift-*.f64N/A

                \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + \color{blue}{2 \cdot 1}}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
              5. metadata-eval99.9

                \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + \color{blue}{2}}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
            3. Applied rewrites99.9%

              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\color{blue}{\left(\beta + \alpha\right) + 2}}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
            4. Step-by-step derivation
              1. lift-+.f64N/A

                \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\alpha + \beta\right)} + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
              2. +-commutativeN/A

                \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
              3. lower-+.f6499.9

                \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
              4. lift-*.f64N/A

                \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + \color{blue}{2 \cdot 1}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
              5. metadata-eval99.9

                \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + \color{blue}{2}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
            5. Applied rewrites99.9%

              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\beta + \alpha\right) + 2}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
            6. Step-by-step derivation
              1. lift-+.f64N/A

                \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\color{blue}{\left(\alpha + \beta\right)} + 2 \cdot 1\right) + 1} \]
              2. +-commutativeN/A

                \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1\right) + 1} \]
              3. lower-+.f6499.9

                \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1\right) + 1} \]
              4. lift-*.f64N/A

                \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + \color{blue}{2 \cdot 1}\right) + 1} \]
              5. metadata-eval99.9

                \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + \color{blue}{2}\right) + 1} \]
            7. Applied rewrites99.9%

              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\left(\beta + \alpha\right) + 2\right)} + 1} \]
            8. Taylor expanded in beta around 0

              \[\leadsto \frac{\color{blue}{\frac{1 + \alpha}{{\left(2 + \alpha\right)}^{2}}}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
            9. Step-by-step derivation
              1. lower-/.f64N/A

                \[\leadsto \frac{\frac{1 + \alpha}{\color{blue}{{\left(2 + \alpha\right)}^{2}}}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
              2. lift-+.f64N/A

                \[\leadsto \frac{\frac{1 + \alpha}{{\color{blue}{\left(2 + \alpha\right)}}^{2}}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
              3. unpow2N/A

                \[\leadsto \frac{\frac{1 + \alpha}{\left(2 + \alpha\right) \cdot \color{blue}{\left(2 + \alpha\right)}}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
              4. lower-*.f64N/A

                \[\leadsto \frac{\frac{1 + \alpha}{\left(2 + \alpha\right) \cdot \color{blue}{\left(2 + \alpha\right)}}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
              5. lower-+.f64N/A

                \[\leadsto \frac{\frac{1 + \alpha}{\left(2 + \alpha\right) \cdot \left(\color{blue}{2} + \alpha\right)}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
              6. lower-+.f6498.8

                \[\leadsto \frac{\frac{1 + \alpha}{\left(2 + \alpha\right) \cdot \left(2 + \color{blue}{\alpha}\right)}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
            10. Applied rewrites98.8%

              \[\leadsto \frac{\color{blue}{\frac{1 + \alpha}{\left(2 + \alpha\right) \cdot \left(2 + \alpha\right)}}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
            11. Taylor expanded in alpha around 0

              \[\leadsto \frac{\frac{1}{4}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
            12. Step-by-step derivation
              1. Applied rewrites97.8%

                \[\leadsto \frac{0.25}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]

              if 4.0999999999999996 < beta

              1. Initial program 89.8%

                \[\frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
              2. Taylor expanded in beta around inf

                \[\leadsto \frac{\color{blue}{\frac{1 + \alpha}{\beta}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
              3. Step-by-step derivation
                1. lower-/.f64N/A

                  \[\leadsto \frac{\frac{1 + \alpha}{\color{blue}{\beta}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                2. lower-+.f6497.5

                  \[\leadsto \frac{\frac{1 + \alpha}{\beta}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
              4. Applied rewrites97.5%

                \[\leadsto \frac{\color{blue}{\frac{1 + \alpha}{\beta}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
              5. Step-by-step derivation
                1. lift-+.f64N/A

                  \[\leadsto \frac{\frac{1 + \alpha}{\beta}}{\color{blue}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1}} \]
                2. lift-*.f64N/A

                  \[\leadsto \frac{\frac{1 + \alpha}{\beta}}{\left(\left(\alpha + \beta\right) + \color{blue}{2 \cdot 1}\right) + 1} \]
                3. metadata-evalN/A

                  \[\leadsto \frac{\frac{1 + \alpha}{\beta}}{\left(\left(\alpha + \beta\right) + \color{blue}{2}\right) + 1} \]
                4. lift-+.f64N/A

                  \[\leadsto \frac{\frac{1 + \alpha}{\beta}}{\color{blue}{\left(\left(\alpha + \beta\right) + 2\right)} + 1} \]
                5. lift-+.f64N/A

                  \[\leadsto \frac{\frac{1 + \alpha}{\beta}}{\left(\color{blue}{\left(\alpha + \beta\right)} + 2\right) + 1} \]
                6. associate-+l+N/A

                  \[\leadsto \frac{\frac{1 + \alpha}{\beta}}{\color{blue}{\left(\alpha + \beta\right) + \left(2 + 1\right)}} \]
                7. metadata-evalN/A

                  \[\leadsto \frac{\frac{1 + \alpha}{\beta}}{\left(\alpha + \beta\right) + \color{blue}{3}} \]
                8. lower-+.f64N/A

                  \[\leadsto \frac{\frac{1 + \alpha}{\beta}}{\color{blue}{\left(\alpha + \beta\right) + 3}} \]
                9. lift-+.f6497.5

                  \[\leadsto \frac{\frac{1 + \alpha}{\beta}}{\color{blue}{\left(\alpha + \beta\right)} + 3} \]
              6. Applied rewrites97.5%

                \[\leadsto \color{blue}{\frac{\frac{1 + \alpha}{\beta}}{\left(\alpha + \beta\right) + 3}} \]
            13. Recombined 2 regimes into one program.
            14. Add Preprocessing

            Alternative 10: 97.6% accurate, 3.0× speedup?

            \[\begin{array}{l} [alpha, beta] = \mathsf{sort}([alpha, beta])\\ \\ \begin{array}{l} \mathbf{if}\;\beta \leq 4.1:\\ \;\;\;\;\frac{0.25}{\left(\left(\beta + \alpha\right) + 2\right) + 1}\\ \mathbf{else}:\\ \;\;\;\;\frac{\frac{1 + \alpha}{\beta}}{3 + \beta}\\ \end{array} \end{array} \]
            NOTE: alpha and beta should be sorted in increasing order before calling this function.
            (FPCore (alpha beta)
             :precision binary64
             (if (<= beta 4.1)
               (/ 0.25 (+ (+ (+ beta alpha) 2.0) 1.0))
               (/ (/ (+ 1.0 alpha) beta) (+ 3.0 beta))))
            assert(alpha < beta);
            double code(double alpha, double beta) {
            	double tmp;
            	if (beta <= 4.1) {
            		tmp = 0.25 / (((beta + alpha) + 2.0) + 1.0);
            	} else {
            		tmp = ((1.0 + alpha) / beta) / (3.0 + beta);
            	}
            	return tmp;
            }
            
            NOTE: alpha and beta should be sorted in increasing order before calling this function.
            module fmin_fmax_functions
                implicit none
                private
                public fmax
                public fmin
            
                interface fmax
                    module procedure fmax88
                    module procedure fmax44
                    module procedure fmax84
                    module procedure fmax48
                end interface
                interface fmin
                    module procedure fmin88
                    module procedure fmin44
                    module procedure fmin84
                    module procedure fmin48
                end interface
            contains
                real(8) function fmax88(x, y) result (res)
                    real(8), intent (in) :: x
                    real(8), intent (in) :: y
                    res = merge(y, merge(x, max(x, y), y /= y), x /= x)
                end function
                real(4) function fmax44(x, y) result (res)
                    real(4), intent (in) :: x
                    real(4), intent (in) :: y
                    res = merge(y, merge(x, max(x, y), y /= y), x /= x)
                end function
                real(8) function fmax84(x, y) result(res)
                    real(8), intent (in) :: x
                    real(4), intent (in) :: y
                    res = merge(dble(y), merge(x, max(x, dble(y)), y /= y), x /= x)
                end function
                real(8) function fmax48(x, y) result(res)
                    real(4), intent (in) :: x
                    real(8), intent (in) :: y
                    res = merge(y, merge(dble(x), max(dble(x), y), y /= y), x /= x)
                end function
                real(8) function fmin88(x, y) result (res)
                    real(8), intent (in) :: x
                    real(8), intent (in) :: y
                    res = merge(y, merge(x, min(x, y), y /= y), x /= x)
                end function
                real(4) function fmin44(x, y) result (res)
                    real(4), intent (in) :: x
                    real(4), intent (in) :: y
                    res = merge(y, merge(x, min(x, y), y /= y), x /= x)
                end function
                real(8) function fmin84(x, y) result(res)
                    real(8), intent (in) :: x
                    real(4), intent (in) :: y
                    res = merge(dble(y), merge(x, min(x, dble(y)), y /= y), x /= x)
                end function
                real(8) function fmin48(x, y) result(res)
                    real(4), intent (in) :: x
                    real(8), intent (in) :: y
                    res = merge(y, merge(dble(x), min(dble(x), y), y /= y), x /= x)
                end function
            end module
            
            real(8) function code(alpha, beta)
            use fmin_fmax_functions
                real(8), intent (in) :: alpha
                real(8), intent (in) :: beta
                real(8) :: tmp
                if (beta <= 4.1d0) then
                    tmp = 0.25d0 / (((beta + alpha) + 2.0d0) + 1.0d0)
                else
                    tmp = ((1.0d0 + alpha) / beta) / (3.0d0 + beta)
                end if
                code = tmp
            end function
            
            assert alpha < beta;
            public static double code(double alpha, double beta) {
            	double tmp;
            	if (beta <= 4.1) {
            		tmp = 0.25 / (((beta + alpha) + 2.0) + 1.0);
            	} else {
            		tmp = ((1.0 + alpha) / beta) / (3.0 + beta);
            	}
            	return tmp;
            }
            
            [alpha, beta] = sort([alpha, beta])
            def code(alpha, beta):
            	tmp = 0
            	if beta <= 4.1:
            		tmp = 0.25 / (((beta + alpha) + 2.0) + 1.0)
            	else:
            		tmp = ((1.0 + alpha) / beta) / (3.0 + beta)
            	return tmp
            
            alpha, beta = sort([alpha, beta])
            function code(alpha, beta)
            	tmp = 0.0
            	if (beta <= 4.1)
            		tmp = Float64(0.25 / Float64(Float64(Float64(beta + alpha) + 2.0) + 1.0));
            	else
            		tmp = Float64(Float64(Float64(1.0 + alpha) / beta) / Float64(3.0 + beta));
            	end
            	return tmp
            end
            
            alpha, beta = num2cell(sort([alpha, beta])){:}
            function tmp_2 = code(alpha, beta)
            	tmp = 0.0;
            	if (beta <= 4.1)
            		tmp = 0.25 / (((beta + alpha) + 2.0) + 1.0);
            	else
            		tmp = ((1.0 + alpha) / beta) / (3.0 + beta);
            	end
            	tmp_2 = tmp;
            end
            
            NOTE: alpha and beta should be sorted in increasing order before calling this function.
            code[alpha_, beta_] := If[LessEqual[beta, 4.1], N[(0.25 / N[(N[(N[(beta + alpha), $MachinePrecision] + 2.0), $MachinePrecision] + 1.0), $MachinePrecision]), $MachinePrecision], N[(N[(N[(1.0 + alpha), $MachinePrecision] / beta), $MachinePrecision] / N[(3.0 + beta), $MachinePrecision]), $MachinePrecision]]
            
            \begin{array}{l}
            [alpha, beta] = \mathsf{sort}([alpha, beta])\\
            \\
            \begin{array}{l}
            \mathbf{if}\;\beta \leq 4.1:\\
            \;\;\;\;\frac{0.25}{\left(\left(\beta + \alpha\right) + 2\right) + 1}\\
            
            \mathbf{else}:\\
            \;\;\;\;\frac{\frac{1 + \alpha}{\beta}}{3 + \beta}\\
            
            
            \end{array}
            \end{array}
            
            Derivation
            1. Split input into 2 regimes
            2. if beta < 4.0999999999999996

              1. Initial program 99.9%

                \[\frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
              2. Step-by-step derivation
                1. lift-+.f64N/A

                  \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\color{blue}{\left(\alpha + \beta\right)} + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                2. +-commutativeN/A

                  \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                3. lower-+.f6499.9

                  \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                4. lift-*.f64N/A

                  \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + \color{blue}{2 \cdot 1}}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                5. metadata-eval99.9

                  \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + \color{blue}{2}}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
              3. Applied rewrites99.9%

                \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\color{blue}{\left(\beta + \alpha\right) + 2}}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
              4. Step-by-step derivation
                1. lift-+.f64N/A

                  \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\alpha + \beta\right)} + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                2. +-commutativeN/A

                  \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                3. lower-+.f6499.9

                  \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                4. lift-*.f64N/A

                  \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + \color{blue}{2 \cdot 1}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                5. metadata-eval99.9

                  \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + \color{blue}{2}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
              5. Applied rewrites99.9%

                \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\beta + \alpha\right) + 2}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
              6. Step-by-step derivation
                1. lift-+.f64N/A

                  \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\color{blue}{\left(\alpha + \beta\right)} + 2 \cdot 1\right) + 1} \]
                2. +-commutativeN/A

                  \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1\right) + 1} \]
                3. lower-+.f6499.9

                  \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1\right) + 1} \]
                4. lift-*.f64N/A

                  \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + \color{blue}{2 \cdot 1}\right) + 1} \]
                5. metadata-eval99.9

                  \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + \color{blue}{2}\right) + 1} \]
              7. Applied rewrites99.9%

                \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\left(\beta + \alpha\right) + 2\right)} + 1} \]
              8. Taylor expanded in beta around 0

                \[\leadsto \frac{\color{blue}{\frac{1 + \alpha}{{\left(2 + \alpha\right)}^{2}}}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
              9. Step-by-step derivation
                1. lower-/.f64N/A

                  \[\leadsto \frac{\frac{1 + \alpha}{\color{blue}{{\left(2 + \alpha\right)}^{2}}}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
                2. lift-+.f64N/A

                  \[\leadsto \frac{\frac{1 + \alpha}{{\color{blue}{\left(2 + \alpha\right)}}^{2}}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
                3. unpow2N/A

                  \[\leadsto \frac{\frac{1 + \alpha}{\left(2 + \alpha\right) \cdot \color{blue}{\left(2 + \alpha\right)}}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
                4. lower-*.f64N/A

                  \[\leadsto \frac{\frac{1 + \alpha}{\left(2 + \alpha\right) \cdot \color{blue}{\left(2 + \alpha\right)}}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
                5. lower-+.f64N/A

                  \[\leadsto \frac{\frac{1 + \alpha}{\left(2 + \alpha\right) \cdot \left(\color{blue}{2} + \alpha\right)}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
                6. lower-+.f6498.8

                  \[\leadsto \frac{\frac{1 + \alpha}{\left(2 + \alpha\right) \cdot \left(2 + \color{blue}{\alpha}\right)}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
              10. Applied rewrites98.8%

                \[\leadsto \frac{\color{blue}{\frac{1 + \alpha}{\left(2 + \alpha\right) \cdot \left(2 + \alpha\right)}}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
              11. Taylor expanded in alpha around 0

                \[\leadsto \frac{\frac{1}{4}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
              12. Step-by-step derivation
                1. Applied rewrites97.8%

                  \[\leadsto \frac{0.25}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]

                if 4.0999999999999996 < beta

                1. Initial program 89.8%

                  \[\frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                2. Taylor expanded in beta around inf

                  \[\leadsto \frac{\color{blue}{\frac{1 + \alpha}{\beta}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                3. Step-by-step derivation
                  1. lower-/.f64N/A

                    \[\leadsto \frac{\frac{1 + \alpha}{\color{blue}{\beta}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                  2. lower-+.f6497.5

                    \[\leadsto \frac{\frac{1 + \alpha}{\beta}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                4. Applied rewrites97.5%

                  \[\leadsto \frac{\color{blue}{\frac{1 + \alpha}{\beta}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                5. Taylor expanded in alpha around 0

                  \[\leadsto \frac{\frac{1 + \alpha}{\beta}}{\color{blue}{3 + \beta}} \]
                6. Step-by-step derivation
                  1. lower-+.f6497.5

                    \[\leadsto \frac{\frac{1 + \alpha}{\beta}}{3 + \color{blue}{\beta}} \]
                7. Applied rewrites97.5%

                  \[\leadsto \frac{\frac{1 + \alpha}{\beta}}{\color{blue}{3 + \beta}} \]
              13. Recombined 2 regimes into one program.
              14. Add Preprocessing

              Alternative 11: 97.6% accurate, 3.1× speedup?

              \[\begin{array}{l} [alpha, beta] = \mathsf{sort}([alpha, beta])\\ \\ \begin{array}{l} \mathbf{if}\;\beta \leq 6.7:\\ \;\;\;\;\frac{0.25}{\left(\left(\beta + \alpha\right) + 2\right) + 1}\\ \mathbf{else}:\\ \;\;\;\;\frac{\frac{1 + \alpha}{\beta}}{\beta}\\ \end{array} \end{array} \]
              NOTE: alpha and beta should be sorted in increasing order before calling this function.
              (FPCore (alpha beta)
               :precision binary64
               (if (<= beta 6.7)
                 (/ 0.25 (+ (+ (+ beta alpha) 2.0) 1.0))
                 (/ (/ (+ 1.0 alpha) beta) beta)))
              assert(alpha < beta);
              double code(double alpha, double beta) {
              	double tmp;
              	if (beta <= 6.7) {
              		tmp = 0.25 / (((beta + alpha) + 2.0) + 1.0);
              	} else {
              		tmp = ((1.0 + alpha) / beta) / beta;
              	}
              	return tmp;
              }
              
              NOTE: alpha and beta should be sorted in increasing order before calling this function.
              module fmin_fmax_functions
                  implicit none
                  private
                  public fmax
                  public fmin
              
                  interface fmax
                      module procedure fmax88
                      module procedure fmax44
                      module procedure fmax84
                      module procedure fmax48
                  end interface
                  interface fmin
                      module procedure fmin88
                      module procedure fmin44
                      module procedure fmin84
                      module procedure fmin48
                  end interface
              contains
                  real(8) function fmax88(x, y) result (res)
                      real(8), intent (in) :: x
                      real(8), intent (in) :: y
                      res = merge(y, merge(x, max(x, y), y /= y), x /= x)
                  end function
                  real(4) function fmax44(x, y) result (res)
                      real(4), intent (in) :: x
                      real(4), intent (in) :: y
                      res = merge(y, merge(x, max(x, y), y /= y), x /= x)
                  end function
                  real(8) function fmax84(x, y) result(res)
                      real(8), intent (in) :: x
                      real(4), intent (in) :: y
                      res = merge(dble(y), merge(x, max(x, dble(y)), y /= y), x /= x)
                  end function
                  real(8) function fmax48(x, y) result(res)
                      real(4), intent (in) :: x
                      real(8), intent (in) :: y
                      res = merge(y, merge(dble(x), max(dble(x), y), y /= y), x /= x)
                  end function
                  real(8) function fmin88(x, y) result (res)
                      real(8), intent (in) :: x
                      real(8), intent (in) :: y
                      res = merge(y, merge(x, min(x, y), y /= y), x /= x)
                  end function
                  real(4) function fmin44(x, y) result (res)
                      real(4), intent (in) :: x
                      real(4), intent (in) :: y
                      res = merge(y, merge(x, min(x, y), y /= y), x /= x)
                  end function
                  real(8) function fmin84(x, y) result(res)
                      real(8), intent (in) :: x
                      real(4), intent (in) :: y
                      res = merge(dble(y), merge(x, min(x, dble(y)), y /= y), x /= x)
                  end function
                  real(8) function fmin48(x, y) result(res)
                      real(4), intent (in) :: x
                      real(8), intent (in) :: y
                      res = merge(y, merge(dble(x), min(dble(x), y), y /= y), x /= x)
                  end function
              end module
              
              real(8) function code(alpha, beta)
              use fmin_fmax_functions
                  real(8), intent (in) :: alpha
                  real(8), intent (in) :: beta
                  real(8) :: tmp
                  if (beta <= 6.7d0) then
                      tmp = 0.25d0 / (((beta + alpha) + 2.0d0) + 1.0d0)
                  else
                      tmp = ((1.0d0 + alpha) / beta) / beta
                  end if
                  code = tmp
              end function
              
              assert alpha < beta;
              public static double code(double alpha, double beta) {
              	double tmp;
              	if (beta <= 6.7) {
              		tmp = 0.25 / (((beta + alpha) + 2.0) + 1.0);
              	} else {
              		tmp = ((1.0 + alpha) / beta) / beta;
              	}
              	return tmp;
              }
              
              [alpha, beta] = sort([alpha, beta])
              def code(alpha, beta):
              	tmp = 0
              	if beta <= 6.7:
              		tmp = 0.25 / (((beta + alpha) + 2.0) + 1.0)
              	else:
              		tmp = ((1.0 + alpha) / beta) / beta
              	return tmp
              
              alpha, beta = sort([alpha, beta])
              function code(alpha, beta)
              	tmp = 0.0
              	if (beta <= 6.7)
              		tmp = Float64(0.25 / Float64(Float64(Float64(beta + alpha) + 2.0) + 1.0));
              	else
              		tmp = Float64(Float64(Float64(1.0 + alpha) / beta) / beta);
              	end
              	return tmp
              end
              
              alpha, beta = num2cell(sort([alpha, beta])){:}
              function tmp_2 = code(alpha, beta)
              	tmp = 0.0;
              	if (beta <= 6.7)
              		tmp = 0.25 / (((beta + alpha) + 2.0) + 1.0);
              	else
              		tmp = ((1.0 + alpha) / beta) / beta;
              	end
              	tmp_2 = tmp;
              end
              
              NOTE: alpha and beta should be sorted in increasing order before calling this function.
              code[alpha_, beta_] := If[LessEqual[beta, 6.7], N[(0.25 / N[(N[(N[(beta + alpha), $MachinePrecision] + 2.0), $MachinePrecision] + 1.0), $MachinePrecision]), $MachinePrecision], N[(N[(N[(1.0 + alpha), $MachinePrecision] / beta), $MachinePrecision] / beta), $MachinePrecision]]
              
              \begin{array}{l}
              [alpha, beta] = \mathsf{sort}([alpha, beta])\\
              \\
              \begin{array}{l}
              \mathbf{if}\;\beta \leq 6.7:\\
              \;\;\;\;\frac{0.25}{\left(\left(\beta + \alpha\right) + 2\right) + 1}\\
              
              \mathbf{else}:\\
              \;\;\;\;\frac{\frac{1 + \alpha}{\beta}}{\beta}\\
              
              
              \end{array}
              \end{array}
              
              Derivation
              1. Split input into 2 regimes
              2. if beta < 6.70000000000000018

                1. Initial program 99.9%

                  \[\frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                2. Step-by-step derivation
                  1. lift-+.f64N/A

                    \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\color{blue}{\left(\alpha + \beta\right)} + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                  2. +-commutativeN/A

                    \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                  3. lower-+.f6499.9

                    \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                  4. lift-*.f64N/A

                    \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + \color{blue}{2 \cdot 1}}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                  5. metadata-eval99.9

                    \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + \color{blue}{2}}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                3. Applied rewrites99.9%

                  \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\color{blue}{\left(\beta + \alpha\right) + 2}}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                4. Step-by-step derivation
                  1. lift-+.f64N/A

                    \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\alpha + \beta\right)} + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                  2. +-commutativeN/A

                    \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                  3. lower-+.f6499.9

                    \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                  4. lift-*.f64N/A

                    \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + \color{blue}{2 \cdot 1}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                  5. metadata-eval99.9

                    \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + \color{blue}{2}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                5. Applied rewrites99.9%

                  \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\beta + \alpha\right) + 2}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                6. Step-by-step derivation
                  1. lift-+.f64N/A

                    \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\color{blue}{\left(\alpha + \beta\right)} + 2 \cdot 1\right) + 1} \]
                  2. +-commutativeN/A

                    \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1\right) + 1} \]
                  3. lower-+.f6499.9

                    \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1\right) + 1} \]
                  4. lift-*.f64N/A

                    \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + \color{blue}{2 \cdot 1}\right) + 1} \]
                  5. metadata-eval99.9

                    \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + \color{blue}{2}\right) + 1} \]
                7. Applied rewrites99.9%

                  \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\left(\beta + \alpha\right) + 2\right)} + 1} \]
                8. Taylor expanded in beta around 0

                  \[\leadsto \frac{\color{blue}{\frac{1 + \alpha}{{\left(2 + \alpha\right)}^{2}}}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
                9. Step-by-step derivation
                  1. lower-/.f64N/A

                    \[\leadsto \frac{\frac{1 + \alpha}{\color{blue}{{\left(2 + \alpha\right)}^{2}}}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
                  2. lift-+.f64N/A

                    \[\leadsto \frac{\frac{1 + \alpha}{{\color{blue}{\left(2 + \alpha\right)}}^{2}}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
                  3. unpow2N/A

                    \[\leadsto \frac{\frac{1 + \alpha}{\left(2 + \alpha\right) \cdot \color{blue}{\left(2 + \alpha\right)}}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
                  4. lower-*.f64N/A

                    \[\leadsto \frac{\frac{1 + \alpha}{\left(2 + \alpha\right) \cdot \color{blue}{\left(2 + \alpha\right)}}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
                  5. lower-+.f64N/A

                    \[\leadsto \frac{\frac{1 + \alpha}{\left(2 + \alpha\right) \cdot \left(\color{blue}{2} + \alpha\right)}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
                  6. lower-+.f6498.8

                    \[\leadsto \frac{\frac{1 + \alpha}{\left(2 + \alpha\right) \cdot \left(2 + \color{blue}{\alpha}\right)}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
                10. Applied rewrites98.8%

                  \[\leadsto \frac{\color{blue}{\frac{1 + \alpha}{\left(2 + \alpha\right) \cdot \left(2 + \alpha\right)}}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
                11. Taylor expanded in alpha around 0

                  \[\leadsto \frac{\frac{1}{4}}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]
                12. Step-by-step derivation
                  1. Applied rewrites97.7%

                    \[\leadsto \frac{0.25}{\left(\left(\beta + \alpha\right) + 2\right) + 1} \]

                  if 6.70000000000000018 < beta

                  1. Initial program 89.8%

                    \[\frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                  2. Taylor expanded in beta around inf

                    \[\leadsto \frac{\color{blue}{\frac{1 + \alpha}{\beta}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                  3. Step-by-step derivation
                    1. lower-/.f64N/A

                      \[\leadsto \frac{\frac{1 + \alpha}{\color{blue}{\beta}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                    2. lower-+.f6497.5

                      \[\leadsto \frac{\frac{1 + \alpha}{\beta}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                  4. Applied rewrites97.5%

                    \[\leadsto \frac{\color{blue}{\frac{1 + \alpha}{\beta}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                  5. Taylor expanded in beta around inf

                    \[\leadsto \frac{\frac{1 + \alpha}{\beta}}{\color{blue}{\beta}} \]
                  6. Step-by-step derivation
                    1. Applied rewrites97.4%

                      \[\leadsto \frac{\frac{1 + \alpha}{\beta}}{\color{blue}{\beta}} \]
                  7. Recombined 2 regimes into one program.
                  8. Add Preprocessing

                  Alternative 12: 97.3% accurate, 3.3× speedup?

                  \[\begin{array}{l} [alpha, beta] = \mathsf{sort}([alpha, beta])\\ \\ \begin{array}{l} \mathbf{if}\;\beta \leq 3.05:\\ \;\;\;\;0.08333333333333333 + \alpha \cdot \mathsf{fma}\left(-0.011574074074074073, \alpha, -0.027777777777777776\right)\\ \mathbf{else}:\\ \;\;\;\;\frac{\frac{1 + \alpha}{\beta}}{\beta}\\ \end{array} \end{array} \]
                  NOTE: alpha and beta should be sorted in increasing order before calling this function.
                  (FPCore (alpha beta)
                   :precision binary64
                   (if (<= beta 3.05)
                     (+
                      0.08333333333333333
                      (* alpha (fma -0.011574074074074073 alpha -0.027777777777777776)))
                     (/ (/ (+ 1.0 alpha) beta) beta)))
                  assert(alpha < beta);
                  double code(double alpha, double beta) {
                  	double tmp;
                  	if (beta <= 3.05) {
                  		tmp = 0.08333333333333333 + (alpha * fma(-0.011574074074074073, alpha, -0.027777777777777776));
                  	} else {
                  		tmp = ((1.0 + alpha) / beta) / beta;
                  	}
                  	return tmp;
                  }
                  
                  alpha, beta = sort([alpha, beta])
                  function code(alpha, beta)
                  	tmp = 0.0
                  	if (beta <= 3.05)
                  		tmp = Float64(0.08333333333333333 + Float64(alpha * fma(-0.011574074074074073, alpha, -0.027777777777777776)));
                  	else
                  		tmp = Float64(Float64(Float64(1.0 + alpha) / beta) / beta);
                  	end
                  	return tmp
                  end
                  
                  NOTE: alpha and beta should be sorted in increasing order before calling this function.
                  code[alpha_, beta_] := If[LessEqual[beta, 3.05], N[(0.08333333333333333 + N[(alpha * N[(-0.011574074074074073 * alpha + -0.027777777777777776), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(N[(1.0 + alpha), $MachinePrecision] / beta), $MachinePrecision] / beta), $MachinePrecision]]
                  
                  \begin{array}{l}
                  [alpha, beta] = \mathsf{sort}([alpha, beta])\\
                  \\
                  \begin{array}{l}
                  \mathbf{if}\;\beta \leq 3.05:\\
                  \;\;\;\;0.08333333333333333 + \alpha \cdot \mathsf{fma}\left(-0.011574074074074073, \alpha, -0.027777777777777776\right)\\
                  
                  \mathbf{else}:\\
                  \;\;\;\;\frac{\frac{1 + \alpha}{\beta}}{\beta}\\
                  
                  
                  \end{array}
                  \end{array}
                  
                  Derivation
                  1. Split input into 2 regimes
                  2. if beta < 3.0499999999999998

                    1. Initial program 99.9%

                      \[\frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                    2. Step-by-step derivation
                      1. lift-+.f64N/A

                        \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\color{blue}{\left(\alpha + \beta\right)} + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                      2. +-commutativeN/A

                        \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                      3. lower-+.f6499.9

                        \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                      4. lift-*.f64N/A

                        \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + \color{blue}{2 \cdot 1}}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                      5. metadata-eval99.9

                        \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + \color{blue}{2}}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                    3. Applied rewrites99.9%

                      \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\color{blue}{\left(\beta + \alpha\right) + 2}}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                    4. Step-by-step derivation
                      1. lift-+.f64N/A

                        \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\alpha + \beta\right)} + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                      2. +-commutativeN/A

                        \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                      3. lower-+.f6499.9

                        \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                      4. lift-*.f64N/A

                        \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + \color{blue}{2 \cdot 1}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                      5. metadata-eval99.9

                        \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + \color{blue}{2}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                    5. Applied rewrites99.9%

                      \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\beta + \alpha\right) + 2}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                    6. Step-by-step derivation
                      1. lift-+.f64N/A

                        \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\color{blue}{\left(\alpha + \beta\right)} + 2 \cdot 1\right) + 1} \]
                      2. +-commutativeN/A

                        \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1\right) + 1} \]
                      3. lower-+.f6499.9

                        \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1\right) + 1} \]
                      4. lift-*.f64N/A

                        \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + \color{blue}{2 \cdot 1}\right) + 1} \]
                      5. metadata-eval99.9

                        \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + \color{blue}{2}\right) + 1} \]
                    7. Applied rewrites99.9%

                      \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\left(\beta + \alpha\right) + 2\right)} + 1} \]
                    8. Taylor expanded in beta around 0

                      \[\leadsto \color{blue}{\frac{1 + \alpha}{{\left(2 + \alpha\right)}^{2} \cdot \left(3 + \alpha\right)}} \]
                    9. Step-by-step derivation
                      1. lower-/.f64N/A

                        \[\leadsto \frac{1 + \alpha}{\color{blue}{{\left(2 + \alpha\right)}^{2} \cdot \left(3 + \alpha\right)}} \]
                      2. lift-+.f64N/A

                        \[\leadsto \frac{1 + \alpha}{\color{blue}{{\left(2 + \alpha\right)}^{2}} \cdot \left(3 + \alpha\right)} \]
                      3. lower-*.f64N/A

                        \[\leadsto \frac{1 + \alpha}{{\left(2 + \alpha\right)}^{2} \cdot \color{blue}{\left(3 + \alpha\right)}} \]
                      4. unpow2N/A

                        \[\leadsto \frac{1 + \alpha}{\left(\left(2 + \alpha\right) \cdot \left(2 + \alpha\right)\right) \cdot \left(\color{blue}{3} + \alpha\right)} \]
                      5. lower-*.f64N/A

                        \[\leadsto \frac{1 + \alpha}{\left(\left(2 + \alpha\right) \cdot \left(2 + \alpha\right)\right) \cdot \left(\color{blue}{3} + \alpha\right)} \]
                      6. lower-+.f64N/A

                        \[\leadsto \frac{1 + \alpha}{\left(\left(2 + \alpha\right) \cdot \left(2 + \alpha\right)\right) \cdot \left(3 + \alpha\right)} \]
                      7. lower-+.f64N/A

                        \[\leadsto \frac{1 + \alpha}{\left(\left(2 + \alpha\right) \cdot \left(2 + \alpha\right)\right) \cdot \left(3 + \alpha\right)} \]
                      8. lower-+.f6497.9

                        \[\leadsto \frac{1 + \alpha}{\left(\left(2 + \alpha\right) \cdot \left(2 + \alpha\right)\right) \cdot \left(3 + \color{blue}{\alpha}\right)} \]
                    10. Applied rewrites97.9%

                      \[\leadsto \color{blue}{\frac{1 + \alpha}{\left(\left(2 + \alpha\right) \cdot \left(2 + \alpha\right)\right) \cdot \left(3 + \alpha\right)}} \]
                    11. Taylor expanded in alpha around 0

                      \[\leadsto \frac{1}{12} + \color{blue}{\alpha \cdot \left(\frac{-5}{432} \cdot \alpha - \frac{1}{36}\right)} \]
                    12. Step-by-step derivation
                      1. lower-+.f64N/A

                        \[\leadsto \frac{1}{12} + \alpha \cdot \color{blue}{\left(\frac{-5}{432} \cdot \alpha - \frac{1}{36}\right)} \]
                      2. lower-*.f64N/A

                        \[\leadsto \frac{1}{12} + \alpha \cdot \left(\frac{-5}{432} \cdot \alpha - \color{blue}{\frac{1}{36}}\right) \]
                      3. negate-subN/A

                        \[\leadsto \frac{1}{12} + \alpha \cdot \left(\frac{-5}{432} \cdot \alpha + \left(\mathsf{neg}\left(\frac{1}{36}\right)\right)\right) \]
                      4. metadata-evalN/A

                        \[\leadsto \frac{1}{12} + \alpha \cdot \left(\frac{-5}{432} \cdot \alpha + \frac{-1}{36}\right) \]
                      5. lower-fma.f6497.2

                        \[\leadsto 0.08333333333333333 + \alpha \cdot \mathsf{fma}\left(-0.011574074074074073, \alpha, -0.027777777777777776\right) \]
                    13. Applied rewrites97.2%

                      \[\leadsto 0.08333333333333333 + \color{blue}{\alpha \cdot \mathsf{fma}\left(-0.011574074074074073, \alpha, -0.027777777777777776\right)} \]

                    if 3.0499999999999998 < beta

                    1. Initial program 89.8%

                      \[\frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                    2. Taylor expanded in beta around inf

                      \[\leadsto \frac{\color{blue}{\frac{1 + \alpha}{\beta}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                    3. Step-by-step derivation
                      1. lower-/.f64N/A

                        \[\leadsto \frac{\frac{1 + \alpha}{\color{blue}{\beta}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                      2. lower-+.f6497.5

                        \[\leadsto \frac{\frac{1 + \alpha}{\beta}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                    4. Applied rewrites97.5%

                      \[\leadsto \frac{\color{blue}{\frac{1 + \alpha}{\beta}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                    5. Taylor expanded in beta around inf

                      \[\leadsto \frac{\frac{1 + \alpha}{\beta}}{\color{blue}{\beta}} \]
                    6. Step-by-step derivation
                      1. Applied rewrites97.4%

                        \[\leadsto \frac{\frac{1 + \alpha}{\beta}}{\color{blue}{\beta}} \]
                    7. Recombined 2 regimes into one program.
                    8. Add Preprocessing

                    Alternative 13: 97.2% accurate, 3.5× speedup?

                    \[\begin{array}{l} [alpha, beta] = \mathsf{sort}([alpha, beta])\\ \\ \begin{array}{l} \mathbf{if}\;\beta \leq 3.5:\\ \;\;\;\;0.08333333333333333 - 0.027777777777777776 \cdot \alpha\\ \mathbf{else}:\\ \;\;\;\;\frac{\frac{1 + \alpha}{\beta}}{\beta}\\ \end{array} \end{array} \]
                    NOTE: alpha and beta should be sorted in increasing order before calling this function.
                    (FPCore (alpha beta)
                     :precision binary64
                     (if (<= beta 3.5)
                       (- 0.08333333333333333 (* 0.027777777777777776 alpha))
                       (/ (/ (+ 1.0 alpha) beta) beta)))
                    assert(alpha < beta);
                    double code(double alpha, double beta) {
                    	double tmp;
                    	if (beta <= 3.5) {
                    		tmp = 0.08333333333333333 - (0.027777777777777776 * alpha);
                    	} else {
                    		tmp = ((1.0 + alpha) / beta) / beta;
                    	}
                    	return tmp;
                    }
                    
                    NOTE: alpha and beta should be sorted in increasing order before calling this function.
                    module fmin_fmax_functions
                        implicit none
                        private
                        public fmax
                        public fmin
                    
                        interface fmax
                            module procedure fmax88
                            module procedure fmax44
                            module procedure fmax84
                            module procedure fmax48
                        end interface
                        interface fmin
                            module procedure fmin88
                            module procedure fmin44
                            module procedure fmin84
                            module procedure fmin48
                        end interface
                    contains
                        real(8) function fmax88(x, y) result (res)
                            real(8), intent (in) :: x
                            real(8), intent (in) :: y
                            res = merge(y, merge(x, max(x, y), y /= y), x /= x)
                        end function
                        real(4) function fmax44(x, y) result (res)
                            real(4), intent (in) :: x
                            real(4), intent (in) :: y
                            res = merge(y, merge(x, max(x, y), y /= y), x /= x)
                        end function
                        real(8) function fmax84(x, y) result(res)
                            real(8), intent (in) :: x
                            real(4), intent (in) :: y
                            res = merge(dble(y), merge(x, max(x, dble(y)), y /= y), x /= x)
                        end function
                        real(8) function fmax48(x, y) result(res)
                            real(4), intent (in) :: x
                            real(8), intent (in) :: y
                            res = merge(y, merge(dble(x), max(dble(x), y), y /= y), x /= x)
                        end function
                        real(8) function fmin88(x, y) result (res)
                            real(8), intent (in) :: x
                            real(8), intent (in) :: y
                            res = merge(y, merge(x, min(x, y), y /= y), x /= x)
                        end function
                        real(4) function fmin44(x, y) result (res)
                            real(4), intent (in) :: x
                            real(4), intent (in) :: y
                            res = merge(y, merge(x, min(x, y), y /= y), x /= x)
                        end function
                        real(8) function fmin84(x, y) result(res)
                            real(8), intent (in) :: x
                            real(4), intent (in) :: y
                            res = merge(dble(y), merge(x, min(x, dble(y)), y /= y), x /= x)
                        end function
                        real(8) function fmin48(x, y) result(res)
                            real(4), intent (in) :: x
                            real(8), intent (in) :: y
                            res = merge(y, merge(dble(x), min(dble(x), y), y /= y), x /= x)
                        end function
                    end module
                    
                    real(8) function code(alpha, beta)
                    use fmin_fmax_functions
                        real(8), intent (in) :: alpha
                        real(8), intent (in) :: beta
                        real(8) :: tmp
                        if (beta <= 3.5d0) then
                            tmp = 0.08333333333333333d0 - (0.027777777777777776d0 * alpha)
                        else
                            tmp = ((1.0d0 + alpha) / beta) / beta
                        end if
                        code = tmp
                    end function
                    
                    assert alpha < beta;
                    public static double code(double alpha, double beta) {
                    	double tmp;
                    	if (beta <= 3.5) {
                    		tmp = 0.08333333333333333 - (0.027777777777777776 * alpha);
                    	} else {
                    		tmp = ((1.0 + alpha) / beta) / beta;
                    	}
                    	return tmp;
                    }
                    
                    [alpha, beta] = sort([alpha, beta])
                    def code(alpha, beta):
                    	tmp = 0
                    	if beta <= 3.5:
                    		tmp = 0.08333333333333333 - (0.027777777777777776 * alpha)
                    	else:
                    		tmp = ((1.0 + alpha) / beta) / beta
                    	return tmp
                    
                    alpha, beta = sort([alpha, beta])
                    function code(alpha, beta)
                    	tmp = 0.0
                    	if (beta <= 3.5)
                    		tmp = Float64(0.08333333333333333 - Float64(0.027777777777777776 * alpha));
                    	else
                    		tmp = Float64(Float64(Float64(1.0 + alpha) / beta) / beta);
                    	end
                    	return tmp
                    end
                    
                    alpha, beta = num2cell(sort([alpha, beta])){:}
                    function tmp_2 = code(alpha, beta)
                    	tmp = 0.0;
                    	if (beta <= 3.5)
                    		tmp = 0.08333333333333333 - (0.027777777777777776 * alpha);
                    	else
                    		tmp = ((1.0 + alpha) / beta) / beta;
                    	end
                    	tmp_2 = tmp;
                    end
                    
                    NOTE: alpha and beta should be sorted in increasing order before calling this function.
                    code[alpha_, beta_] := If[LessEqual[beta, 3.5], N[(0.08333333333333333 - N[(0.027777777777777776 * alpha), $MachinePrecision]), $MachinePrecision], N[(N[(N[(1.0 + alpha), $MachinePrecision] / beta), $MachinePrecision] / beta), $MachinePrecision]]
                    
                    \begin{array}{l}
                    [alpha, beta] = \mathsf{sort}([alpha, beta])\\
                    \\
                    \begin{array}{l}
                    \mathbf{if}\;\beta \leq 3.5:\\
                    \;\;\;\;0.08333333333333333 - 0.027777777777777776 \cdot \alpha\\
                    
                    \mathbf{else}:\\
                    \;\;\;\;\frac{\frac{1 + \alpha}{\beta}}{\beta}\\
                    
                    
                    \end{array}
                    \end{array}
                    
                    Derivation
                    1. Split input into 2 regimes
                    2. if beta < 3.5

                      1. Initial program 99.9%

                        \[\frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                      2. Step-by-step derivation
                        1. lift-+.f64N/A

                          \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\color{blue}{\left(\alpha + \beta\right)} + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                        2. +-commutativeN/A

                          \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                        3. lower-+.f6499.9

                          \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                        4. lift-*.f64N/A

                          \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + \color{blue}{2 \cdot 1}}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                        5. metadata-eval99.9

                          \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + \color{blue}{2}}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                      3. Applied rewrites99.9%

                        \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\color{blue}{\left(\beta + \alpha\right) + 2}}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                      4. Step-by-step derivation
                        1. lift-+.f64N/A

                          \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\alpha + \beta\right)} + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                        2. +-commutativeN/A

                          \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                        3. lower-+.f6499.9

                          \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                        4. lift-*.f64N/A

                          \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + \color{blue}{2 \cdot 1}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                        5. metadata-eval99.9

                          \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + \color{blue}{2}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                      5. Applied rewrites99.9%

                        \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\beta + \alpha\right) + 2}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                      6. Step-by-step derivation
                        1. lift-+.f64N/A

                          \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\color{blue}{\left(\alpha + \beta\right)} + 2 \cdot 1\right) + 1} \]
                        2. +-commutativeN/A

                          \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1\right) + 1} \]
                        3. lower-+.f6499.9

                          \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1\right) + 1} \]
                        4. lift-*.f64N/A

                          \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + \color{blue}{2 \cdot 1}\right) + 1} \]
                        5. metadata-eval99.9

                          \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + \color{blue}{2}\right) + 1} \]
                      7. Applied rewrites99.9%

                        \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\left(\beta + \alpha\right) + 2\right)} + 1} \]
                      8. Taylor expanded in beta around 0

                        \[\leadsto \color{blue}{\frac{1 + \alpha}{{\left(2 + \alpha\right)}^{2} \cdot \left(3 + \alpha\right)}} \]
                      9. Step-by-step derivation
                        1. lower-/.f64N/A

                          \[\leadsto \frac{1 + \alpha}{\color{blue}{{\left(2 + \alpha\right)}^{2} \cdot \left(3 + \alpha\right)}} \]
                        2. lift-+.f64N/A

                          \[\leadsto \frac{1 + \alpha}{\color{blue}{{\left(2 + \alpha\right)}^{2}} \cdot \left(3 + \alpha\right)} \]
                        3. lower-*.f64N/A

                          \[\leadsto \frac{1 + \alpha}{{\left(2 + \alpha\right)}^{2} \cdot \color{blue}{\left(3 + \alpha\right)}} \]
                        4. unpow2N/A

                          \[\leadsto \frac{1 + \alpha}{\left(\left(2 + \alpha\right) \cdot \left(2 + \alpha\right)\right) \cdot \left(\color{blue}{3} + \alpha\right)} \]
                        5. lower-*.f64N/A

                          \[\leadsto \frac{1 + \alpha}{\left(\left(2 + \alpha\right) \cdot \left(2 + \alpha\right)\right) \cdot \left(\color{blue}{3} + \alpha\right)} \]
                        6. lower-+.f64N/A

                          \[\leadsto \frac{1 + \alpha}{\left(\left(2 + \alpha\right) \cdot \left(2 + \alpha\right)\right) \cdot \left(3 + \alpha\right)} \]
                        7. lower-+.f64N/A

                          \[\leadsto \frac{1 + \alpha}{\left(\left(2 + \alpha\right) \cdot \left(2 + \alpha\right)\right) \cdot \left(3 + \alpha\right)} \]
                        8. lower-+.f6497.9

                          \[\leadsto \frac{1 + \alpha}{\left(\left(2 + \alpha\right) \cdot \left(2 + \alpha\right)\right) \cdot \left(3 + \color{blue}{\alpha}\right)} \]
                      10. Applied rewrites97.9%

                        \[\leadsto \color{blue}{\frac{1 + \alpha}{\left(\left(2 + \alpha\right) \cdot \left(2 + \alpha\right)\right) \cdot \left(3 + \alpha\right)}} \]
                      11. Taylor expanded in alpha around 0

                        \[\leadsto \frac{1}{12} + \color{blue}{\frac{-1}{36} \cdot \alpha} \]
                      12. Step-by-step derivation
                        1. fp-cancel-sign-sub-invN/A

                          \[\leadsto \frac{1}{12} - \left(\mathsf{neg}\left(\frac{-1}{36}\right)\right) \cdot \color{blue}{\alpha} \]
                        2. lower--.f64N/A

                          \[\leadsto \frac{1}{12} - \left(\mathsf{neg}\left(\frac{-1}{36}\right)\right) \cdot \color{blue}{\alpha} \]
                        3. metadata-evalN/A

                          \[\leadsto \frac{1}{12} - \frac{1}{36} \cdot \alpha \]
                        4. lower-*.f6496.9

                          \[\leadsto 0.08333333333333333 - 0.027777777777777776 \cdot \alpha \]
                      13. Applied rewrites96.9%

                        \[\leadsto 0.08333333333333333 - \color{blue}{0.027777777777777776 \cdot \alpha} \]

                      if 3.5 < beta

                      1. Initial program 89.8%

                        \[\frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                      2. Taylor expanded in beta around inf

                        \[\leadsto \frac{\color{blue}{\frac{1 + \alpha}{\beta}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                      3. Step-by-step derivation
                        1. lower-/.f64N/A

                          \[\leadsto \frac{\frac{1 + \alpha}{\color{blue}{\beta}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                        2. lower-+.f6497.5

                          \[\leadsto \frac{\frac{1 + \alpha}{\beta}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                      4. Applied rewrites97.5%

                        \[\leadsto \frac{\color{blue}{\frac{1 + \alpha}{\beta}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                      5. Taylor expanded in beta around inf

                        \[\leadsto \frac{\frac{1 + \alpha}{\beta}}{\color{blue}{\beta}} \]
                      6. Step-by-step derivation
                        1. Applied rewrites97.4%

                          \[\leadsto \frac{\frac{1 + \alpha}{\beta}}{\color{blue}{\beta}} \]
                      7. Recombined 2 regimes into one program.
                      8. Add Preprocessing

                      Alternative 14: 94.3% accurate, 3.6× speedup?

                      \[\begin{array}{l} [alpha, beta] = \mathsf{sort}([alpha, beta])\\ \\ \begin{array}{l} \mathbf{if}\;\beta \leq 3.5:\\ \;\;\;\;0.08333333333333333 - 0.027777777777777776 \cdot \alpha\\ \mathbf{else}:\\ \;\;\;\;\frac{1 + \alpha}{\beta \cdot \beta}\\ \end{array} \end{array} \]
                      NOTE: alpha and beta should be sorted in increasing order before calling this function.
                      (FPCore (alpha beta)
                       :precision binary64
                       (if (<= beta 3.5)
                         (- 0.08333333333333333 (* 0.027777777777777776 alpha))
                         (/ (+ 1.0 alpha) (* beta beta))))
                      assert(alpha < beta);
                      double code(double alpha, double beta) {
                      	double tmp;
                      	if (beta <= 3.5) {
                      		tmp = 0.08333333333333333 - (0.027777777777777776 * alpha);
                      	} else {
                      		tmp = (1.0 + alpha) / (beta * beta);
                      	}
                      	return tmp;
                      }
                      
                      NOTE: alpha and beta should be sorted in increasing order before calling this function.
                      module fmin_fmax_functions
                          implicit none
                          private
                          public fmax
                          public fmin
                      
                          interface fmax
                              module procedure fmax88
                              module procedure fmax44
                              module procedure fmax84
                              module procedure fmax48
                          end interface
                          interface fmin
                              module procedure fmin88
                              module procedure fmin44
                              module procedure fmin84
                              module procedure fmin48
                          end interface
                      contains
                          real(8) function fmax88(x, y) result (res)
                              real(8), intent (in) :: x
                              real(8), intent (in) :: y
                              res = merge(y, merge(x, max(x, y), y /= y), x /= x)
                          end function
                          real(4) function fmax44(x, y) result (res)
                              real(4), intent (in) :: x
                              real(4), intent (in) :: y
                              res = merge(y, merge(x, max(x, y), y /= y), x /= x)
                          end function
                          real(8) function fmax84(x, y) result(res)
                              real(8), intent (in) :: x
                              real(4), intent (in) :: y
                              res = merge(dble(y), merge(x, max(x, dble(y)), y /= y), x /= x)
                          end function
                          real(8) function fmax48(x, y) result(res)
                              real(4), intent (in) :: x
                              real(8), intent (in) :: y
                              res = merge(y, merge(dble(x), max(dble(x), y), y /= y), x /= x)
                          end function
                          real(8) function fmin88(x, y) result (res)
                              real(8), intent (in) :: x
                              real(8), intent (in) :: y
                              res = merge(y, merge(x, min(x, y), y /= y), x /= x)
                          end function
                          real(4) function fmin44(x, y) result (res)
                              real(4), intent (in) :: x
                              real(4), intent (in) :: y
                              res = merge(y, merge(x, min(x, y), y /= y), x /= x)
                          end function
                          real(8) function fmin84(x, y) result(res)
                              real(8), intent (in) :: x
                              real(4), intent (in) :: y
                              res = merge(dble(y), merge(x, min(x, dble(y)), y /= y), x /= x)
                          end function
                          real(8) function fmin48(x, y) result(res)
                              real(4), intent (in) :: x
                              real(8), intent (in) :: y
                              res = merge(y, merge(dble(x), min(dble(x), y), y /= y), x /= x)
                          end function
                      end module
                      
                      real(8) function code(alpha, beta)
                      use fmin_fmax_functions
                          real(8), intent (in) :: alpha
                          real(8), intent (in) :: beta
                          real(8) :: tmp
                          if (beta <= 3.5d0) then
                              tmp = 0.08333333333333333d0 - (0.027777777777777776d0 * alpha)
                          else
                              tmp = (1.0d0 + alpha) / (beta * beta)
                          end if
                          code = tmp
                      end function
                      
                      assert alpha < beta;
                      public static double code(double alpha, double beta) {
                      	double tmp;
                      	if (beta <= 3.5) {
                      		tmp = 0.08333333333333333 - (0.027777777777777776 * alpha);
                      	} else {
                      		tmp = (1.0 + alpha) / (beta * beta);
                      	}
                      	return tmp;
                      }
                      
                      [alpha, beta] = sort([alpha, beta])
                      def code(alpha, beta):
                      	tmp = 0
                      	if beta <= 3.5:
                      		tmp = 0.08333333333333333 - (0.027777777777777776 * alpha)
                      	else:
                      		tmp = (1.0 + alpha) / (beta * beta)
                      	return tmp
                      
                      alpha, beta = sort([alpha, beta])
                      function code(alpha, beta)
                      	tmp = 0.0
                      	if (beta <= 3.5)
                      		tmp = Float64(0.08333333333333333 - Float64(0.027777777777777776 * alpha));
                      	else
                      		tmp = Float64(Float64(1.0 + alpha) / Float64(beta * beta));
                      	end
                      	return tmp
                      end
                      
                      alpha, beta = num2cell(sort([alpha, beta])){:}
                      function tmp_2 = code(alpha, beta)
                      	tmp = 0.0;
                      	if (beta <= 3.5)
                      		tmp = 0.08333333333333333 - (0.027777777777777776 * alpha);
                      	else
                      		tmp = (1.0 + alpha) / (beta * beta);
                      	end
                      	tmp_2 = tmp;
                      end
                      
                      NOTE: alpha and beta should be sorted in increasing order before calling this function.
                      code[alpha_, beta_] := If[LessEqual[beta, 3.5], N[(0.08333333333333333 - N[(0.027777777777777776 * alpha), $MachinePrecision]), $MachinePrecision], N[(N[(1.0 + alpha), $MachinePrecision] / N[(beta * beta), $MachinePrecision]), $MachinePrecision]]
                      
                      \begin{array}{l}
                      [alpha, beta] = \mathsf{sort}([alpha, beta])\\
                      \\
                      \begin{array}{l}
                      \mathbf{if}\;\beta \leq 3.5:\\
                      \;\;\;\;0.08333333333333333 - 0.027777777777777776 \cdot \alpha\\
                      
                      \mathbf{else}:\\
                      \;\;\;\;\frac{1 + \alpha}{\beta \cdot \beta}\\
                      
                      
                      \end{array}
                      \end{array}
                      
                      Derivation
                      1. Split input into 2 regimes
                      2. if beta < 3.5

                        1. Initial program 99.9%

                          \[\frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                        2. Step-by-step derivation
                          1. lift-+.f64N/A

                            \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\color{blue}{\left(\alpha + \beta\right)} + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                          2. +-commutativeN/A

                            \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                          3. lower-+.f6499.9

                            \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                          4. lift-*.f64N/A

                            \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + \color{blue}{2 \cdot 1}}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                          5. metadata-eval99.9

                            \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + \color{blue}{2}}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                        3. Applied rewrites99.9%

                          \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\color{blue}{\left(\beta + \alpha\right) + 2}}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                        4. Step-by-step derivation
                          1. lift-+.f64N/A

                            \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\alpha + \beta\right)} + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                          2. +-commutativeN/A

                            \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                          3. lower-+.f6499.9

                            \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                          4. lift-*.f64N/A

                            \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + \color{blue}{2 \cdot 1}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                          5. metadata-eval99.9

                            \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + \color{blue}{2}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                        5. Applied rewrites99.9%

                          \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\beta + \alpha\right) + 2}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                        6. Step-by-step derivation
                          1. lift-+.f64N/A

                            \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\color{blue}{\left(\alpha + \beta\right)} + 2 \cdot 1\right) + 1} \]
                          2. +-commutativeN/A

                            \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1\right) + 1} \]
                          3. lower-+.f6499.9

                            \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1\right) + 1} \]
                          4. lift-*.f64N/A

                            \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + \color{blue}{2 \cdot 1}\right) + 1} \]
                          5. metadata-eval99.9

                            \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + \color{blue}{2}\right) + 1} \]
                        7. Applied rewrites99.9%

                          \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\left(\beta + \alpha\right) + 2\right)} + 1} \]
                        8. Taylor expanded in beta around 0

                          \[\leadsto \color{blue}{\frac{1 + \alpha}{{\left(2 + \alpha\right)}^{2} \cdot \left(3 + \alpha\right)}} \]
                        9. Step-by-step derivation
                          1. lower-/.f64N/A

                            \[\leadsto \frac{1 + \alpha}{\color{blue}{{\left(2 + \alpha\right)}^{2} \cdot \left(3 + \alpha\right)}} \]
                          2. lift-+.f64N/A

                            \[\leadsto \frac{1 + \alpha}{\color{blue}{{\left(2 + \alpha\right)}^{2}} \cdot \left(3 + \alpha\right)} \]
                          3. lower-*.f64N/A

                            \[\leadsto \frac{1 + \alpha}{{\left(2 + \alpha\right)}^{2} \cdot \color{blue}{\left(3 + \alpha\right)}} \]
                          4. unpow2N/A

                            \[\leadsto \frac{1 + \alpha}{\left(\left(2 + \alpha\right) \cdot \left(2 + \alpha\right)\right) \cdot \left(\color{blue}{3} + \alpha\right)} \]
                          5. lower-*.f64N/A

                            \[\leadsto \frac{1 + \alpha}{\left(\left(2 + \alpha\right) \cdot \left(2 + \alpha\right)\right) \cdot \left(\color{blue}{3} + \alpha\right)} \]
                          6. lower-+.f64N/A

                            \[\leadsto \frac{1 + \alpha}{\left(\left(2 + \alpha\right) \cdot \left(2 + \alpha\right)\right) \cdot \left(3 + \alpha\right)} \]
                          7. lower-+.f64N/A

                            \[\leadsto \frac{1 + \alpha}{\left(\left(2 + \alpha\right) \cdot \left(2 + \alpha\right)\right) \cdot \left(3 + \alpha\right)} \]
                          8. lower-+.f6497.9

                            \[\leadsto \frac{1 + \alpha}{\left(\left(2 + \alpha\right) \cdot \left(2 + \alpha\right)\right) \cdot \left(3 + \color{blue}{\alpha}\right)} \]
                        10. Applied rewrites97.9%

                          \[\leadsto \color{blue}{\frac{1 + \alpha}{\left(\left(2 + \alpha\right) \cdot \left(2 + \alpha\right)\right) \cdot \left(3 + \alpha\right)}} \]
                        11. Taylor expanded in alpha around 0

                          \[\leadsto \frac{1}{12} + \color{blue}{\frac{-1}{36} \cdot \alpha} \]
                        12. Step-by-step derivation
                          1. fp-cancel-sign-sub-invN/A

                            \[\leadsto \frac{1}{12} - \left(\mathsf{neg}\left(\frac{-1}{36}\right)\right) \cdot \color{blue}{\alpha} \]
                          2. lower--.f64N/A

                            \[\leadsto \frac{1}{12} - \left(\mathsf{neg}\left(\frac{-1}{36}\right)\right) \cdot \color{blue}{\alpha} \]
                          3. metadata-evalN/A

                            \[\leadsto \frac{1}{12} - \frac{1}{36} \cdot \alpha \]
                          4. lower-*.f6496.9

                            \[\leadsto 0.08333333333333333 - 0.027777777777777776 \cdot \alpha \]
                        13. Applied rewrites96.9%

                          \[\leadsto 0.08333333333333333 - \color{blue}{0.027777777777777776 \cdot \alpha} \]

                        if 3.5 < beta

                        1. Initial program 89.8%

                          \[\frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                        2. Taylor expanded in beta around inf

                          \[\leadsto \color{blue}{\frac{1 + \alpha}{{\beta}^{2}}} \]
                        3. Step-by-step derivation
                          1. lower-/.f64N/A

                            \[\leadsto \frac{1 + \alpha}{\color{blue}{{\beta}^{2}}} \]
                          2. lower-+.f64N/A

                            \[\leadsto \frac{1 + \alpha}{{\color{blue}{\beta}}^{2}} \]
                          3. unpow2N/A

                            \[\leadsto \frac{1 + \alpha}{\beta \cdot \color{blue}{\beta}} \]
                          4. lower-*.f6492.2

                            \[\leadsto \frac{1 + \alpha}{\beta \cdot \color{blue}{\beta}} \]
                        4. Applied rewrites92.2%

                          \[\leadsto \color{blue}{\frac{1 + \alpha}{\beta \cdot \beta}} \]
                      3. Recombined 2 regimes into one program.
                      4. Add Preprocessing

                      Alternative 15: 92.0% accurate, 4.4× speedup?

                      \[\begin{array}{l} [alpha, beta] = \mathsf{sort}([alpha, beta])\\ \\ \begin{array}{l} \mathbf{if}\;\beta \leq 3.05:\\ \;\;\;\;0.08333333333333333 - 0.027777777777777776 \cdot \alpha\\ \mathbf{else}:\\ \;\;\;\;\frac{\frac{1}{\beta}}{\beta}\\ \end{array} \end{array} \]
                      NOTE: alpha and beta should be sorted in increasing order before calling this function.
                      (FPCore (alpha beta)
                       :precision binary64
                       (if (<= beta 3.05)
                         (- 0.08333333333333333 (* 0.027777777777777776 alpha))
                         (/ (/ 1.0 beta) beta)))
                      assert(alpha < beta);
                      double code(double alpha, double beta) {
                      	double tmp;
                      	if (beta <= 3.05) {
                      		tmp = 0.08333333333333333 - (0.027777777777777776 * alpha);
                      	} else {
                      		tmp = (1.0 / beta) / beta;
                      	}
                      	return tmp;
                      }
                      
                      NOTE: alpha and beta should be sorted in increasing order before calling this function.
                      module fmin_fmax_functions
                          implicit none
                          private
                          public fmax
                          public fmin
                      
                          interface fmax
                              module procedure fmax88
                              module procedure fmax44
                              module procedure fmax84
                              module procedure fmax48
                          end interface
                          interface fmin
                              module procedure fmin88
                              module procedure fmin44
                              module procedure fmin84
                              module procedure fmin48
                          end interface
                      contains
                          real(8) function fmax88(x, y) result (res)
                              real(8), intent (in) :: x
                              real(8), intent (in) :: y
                              res = merge(y, merge(x, max(x, y), y /= y), x /= x)
                          end function
                          real(4) function fmax44(x, y) result (res)
                              real(4), intent (in) :: x
                              real(4), intent (in) :: y
                              res = merge(y, merge(x, max(x, y), y /= y), x /= x)
                          end function
                          real(8) function fmax84(x, y) result(res)
                              real(8), intent (in) :: x
                              real(4), intent (in) :: y
                              res = merge(dble(y), merge(x, max(x, dble(y)), y /= y), x /= x)
                          end function
                          real(8) function fmax48(x, y) result(res)
                              real(4), intent (in) :: x
                              real(8), intent (in) :: y
                              res = merge(y, merge(dble(x), max(dble(x), y), y /= y), x /= x)
                          end function
                          real(8) function fmin88(x, y) result (res)
                              real(8), intent (in) :: x
                              real(8), intent (in) :: y
                              res = merge(y, merge(x, min(x, y), y /= y), x /= x)
                          end function
                          real(4) function fmin44(x, y) result (res)
                              real(4), intent (in) :: x
                              real(4), intent (in) :: y
                              res = merge(y, merge(x, min(x, y), y /= y), x /= x)
                          end function
                          real(8) function fmin84(x, y) result(res)
                              real(8), intent (in) :: x
                              real(4), intent (in) :: y
                              res = merge(dble(y), merge(x, min(x, dble(y)), y /= y), x /= x)
                          end function
                          real(8) function fmin48(x, y) result(res)
                              real(4), intent (in) :: x
                              real(8), intent (in) :: y
                              res = merge(y, merge(dble(x), min(dble(x), y), y /= y), x /= x)
                          end function
                      end module
                      
                      real(8) function code(alpha, beta)
                      use fmin_fmax_functions
                          real(8), intent (in) :: alpha
                          real(8), intent (in) :: beta
                          real(8) :: tmp
                          if (beta <= 3.05d0) then
                              tmp = 0.08333333333333333d0 - (0.027777777777777776d0 * alpha)
                          else
                              tmp = (1.0d0 / beta) / beta
                          end if
                          code = tmp
                      end function
                      
                      assert alpha < beta;
                      public static double code(double alpha, double beta) {
                      	double tmp;
                      	if (beta <= 3.05) {
                      		tmp = 0.08333333333333333 - (0.027777777777777776 * alpha);
                      	} else {
                      		tmp = (1.0 / beta) / beta;
                      	}
                      	return tmp;
                      }
                      
                      [alpha, beta] = sort([alpha, beta])
                      def code(alpha, beta):
                      	tmp = 0
                      	if beta <= 3.05:
                      		tmp = 0.08333333333333333 - (0.027777777777777776 * alpha)
                      	else:
                      		tmp = (1.0 / beta) / beta
                      	return tmp
                      
                      alpha, beta = sort([alpha, beta])
                      function code(alpha, beta)
                      	tmp = 0.0
                      	if (beta <= 3.05)
                      		tmp = Float64(0.08333333333333333 - Float64(0.027777777777777776 * alpha));
                      	else
                      		tmp = Float64(Float64(1.0 / beta) / beta);
                      	end
                      	return tmp
                      end
                      
                      alpha, beta = num2cell(sort([alpha, beta])){:}
                      function tmp_2 = code(alpha, beta)
                      	tmp = 0.0;
                      	if (beta <= 3.05)
                      		tmp = 0.08333333333333333 - (0.027777777777777776 * alpha);
                      	else
                      		tmp = (1.0 / beta) / beta;
                      	end
                      	tmp_2 = tmp;
                      end
                      
                      NOTE: alpha and beta should be sorted in increasing order before calling this function.
                      code[alpha_, beta_] := If[LessEqual[beta, 3.05], N[(0.08333333333333333 - N[(0.027777777777777776 * alpha), $MachinePrecision]), $MachinePrecision], N[(N[(1.0 / beta), $MachinePrecision] / beta), $MachinePrecision]]
                      
                      \begin{array}{l}
                      [alpha, beta] = \mathsf{sort}([alpha, beta])\\
                      \\
                      \begin{array}{l}
                      \mathbf{if}\;\beta \leq 3.05:\\
                      \;\;\;\;0.08333333333333333 - 0.027777777777777776 \cdot \alpha\\
                      
                      \mathbf{else}:\\
                      \;\;\;\;\frac{\frac{1}{\beta}}{\beta}\\
                      
                      
                      \end{array}
                      \end{array}
                      
                      Derivation
                      1. Split input into 2 regimes
                      2. if beta < 3.0499999999999998

                        1. Initial program 99.9%

                          \[\frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                        2. Step-by-step derivation
                          1. lift-+.f64N/A

                            \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\color{blue}{\left(\alpha + \beta\right)} + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                          2. +-commutativeN/A

                            \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                          3. lower-+.f6499.9

                            \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                          4. lift-*.f64N/A

                            \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + \color{blue}{2 \cdot 1}}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                          5. metadata-eval99.9

                            \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + \color{blue}{2}}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                        3. Applied rewrites99.9%

                          \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\color{blue}{\left(\beta + \alpha\right) + 2}}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                        4. Step-by-step derivation
                          1. lift-+.f64N/A

                            \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\alpha + \beta\right)} + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                          2. +-commutativeN/A

                            \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                          3. lower-+.f6499.9

                            \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                          4. lift-*.f64N/A

                            \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + \color{blue}{2 \cdot 1}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                          5. metadata-eval99.9

                            \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + \color{blue}{2}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                        5. Applied rewrites99.9%

                          \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\beta + \alpha\right) + 2}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                        6. Step-by-step derivation
                          1. lift-+.f64N/A

                            \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\color{blue}{\left(\alpha + \beta\right)} + 2 \cdot 1\right) + 1} \]
                          2. +-commutativeN/A

                            \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1\right) + 1} \]
                          3. lower-+.f6499.9

                            \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1\right) + 1} \]
                          4. lift-*.f64N/A

                            \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + \color{blue}{2 \cdot 1}\right) + 1} \]
                          5. metadata-eval99.9

                            \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + \color{blue}{2}\right) + 1} \]
                        7. Applied rewrites99.9%

                          \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\left(\beta + \alpha\right) + 2\right)} + 1} \]
                        8. Taylor expanded in beta around 0

                          \[\leadsto \color{blue}{\frac{1 + \alpha}{{\left(2 + \alpha\right)}^{2} \cdot \left(3 + \alpha\right)}} \]
                        9. Step-by-step derivation
                          1. lower-/.f64N/A

                            \[\leadsto \frac{1 + \alpha}{\color{blue}{{\left(2 + \alpha\right)}^{2} \cdot \left(3 + \alpha\right)}} \]
                          2. lift-+.f64N/A

                            \[\leadsto \frac{1 + \alpha}{\color{blue}{{\left(2 + \alpha\right)}^{2}} \cdot \left(3 + \alpha\right)} \]
                          3. lower-*.f64N/A

                            \[\leadsto \frac{1 + \alpha}{{\left(2 + \alpha\right)}^{2} \cdot \color{blue}{\left(3 + \alpha\right)}} \]
                          4. unpow2N/A

                            \[\leadsto \frac{1 + \alpha}{\left(\left(2 + \alpha\right) \cdot \left(2 + \alpha\right)\right) \cdot \left(\color{blue}{3} + \alpha\right)} \]
                          5. lower-*.f64N/A

                            \[\leadsto \frac{1 + \alpha}{\left(\left(2 + \alpha\right) \cdot \left(2 + \alpha\right)\right) \cdot \left(\color{blue}{3} + \alpha\right)} \]
                          6. lower-+.f64N/A

                            \[\leadsto \frac{1 + \alpha}{\left(\left(2 + \alpha\right) \cdot \left(2 + \alpha\right)\right) \cdot \left(3 + \alpha\right)} \]
                          7. lower-+.f64N/A

                            \[\leadsto \frac{1 + \alpha}{\left(\left(2 + \alpha\right) \cdot \left(2 + \alpha\right)\right) \cdot \left(3 + \alpha\right)} \]
                          8. lower-+.f6497.9

                            \[\leadsto \frac{1 + \alpha}{\left(\left(2 + \alpha\right) \cdot \left(2 + \alpha\right)\right) \cdot \left(3 + \color{blue}{\alpha}\right)} \]
                        10. Applied rewrites97.9%

                          \[\leadsto \color{blue}{\frac{1 + \alpha}{\left(\left(2 + \alpha\right) \cdot \left(2 + \alpha\right)\right) \cdot \left(3 + \alpha\right)}} \]
                        11. Taylor expanded in alpha around 0

                          \[\leadsto \frac{1}{12} + \color{blue}{\frac{-1}{36} \cdot \alpha} \]
                        12. Step-by-step derivation
                          1. fp-cancel-sign-sub-invN/A

                            \[\leadsto \frac{1}{12} - \left(\mathsf{neg}\left(\frac{-1}{36}\right)\right) \cdot \color{blue}{\alpha} \]
                          2. lower--.f64N/A

                            \[\leadsto \frac{1}{12} - \left(\mathsf{neg}\left(\frac{-1}{36}\right)\right) \cdot \color{blue}{\alpha} \]
                          3. metadata-evalN/A

                            \[\leadsto \frac{1}{12} - \frac{1}{36} \cdot \alpha \]
                          4. lower-*.f6496.9

                            \[\leadsto 0.08333333333333333 - 0.027777777777777776 \cdot \alpha \]
                        13. Applied rewrites96.9%

                          \[\leadsto 0.08333333333333333 - \color{blue}{0.027777777777777776 \cdot \alpha} \]

                        if 3.0499999999999998 < beta

                        1. Initial program 89.8%

                          \[\frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                        2. Taylor expanded in beta around inf

                          \[\leadsto \color{blue}{\frac{1 + \alpha}{{\beta}^{2}}} \]
                        3. Step-by-step derivation
                          1. lower-/.f64N/A

                            \[\leadsto \frac{1 + \alpha}{\color{blue}{{\beta}^{2}}} \]
                          2. lower-+.f64N/A

                            \[\leadsto \frac{1 + \alpha}{{\color{blue}{\beta}}^{2}} \]
                          3. unpow2N/A

                            \[\leadsto \frac{1 + \alpha}{\beta \cdot \color{blue}{\beta}} \]
                          4. lower-*.f6492.2

                            \[\leadsto \frac{1 + \alpha}{\beta \cdot \color{blue}{\beta}} \]
                        4. Applied rewrites92.2%

                          \[\leadsto \color{blue}{\frac{1 + \alpha}{\beta \cdot \beta}} \]
                        5. Taylor expanded in alpha around 0

                          \[\leadsto \frac{1}{\color{blue}{\beta} \cdot \beta} \]
                        6. Step-by-step derivation
                          1. Applied rewrites87.1%

                            \[\leadsto \frac{1}{\color{blue}{\beta} \cdot \beta} \]
                          2. Step-by-step derivation
                            1. lift-*.f64N/A

                              \[\leadsto \frac{1}{\beta \cdot \color{blue}{\beta}} \]
                            2. lift-/.f64N/A

                              \[\leadsto \frac{1}{\color{blue}{\beta \cdot \beta}} \]
                            3. associate-/r*N/A

                              \[\leadsto \frac{\frac{1}{\beta}}{\color{blue}{\beta}} \]
                            4. lower-/.f64N/A

                              \[\leadsto \frac{\frac{1}{\beta}}{\color{blue}{\beta}} \]
                            5. lower-/.f6488.0

                              \[\leadsto \frac{\frac{1}{\beta}}{\beta} \]
                          3. Applied rewrites88.0%

                            \[\leadsto \frac{\frac{1}{\beta}}{\color{blue}{\beta}} \]
                        7. Recombined 2 regimes into one program.
                        8. Add Preprocessing

                        Alternative 16: 91.5% accurate, 4.5× speedup?

                        \[\begin{array}{l} [alpha, beta] = \mathsf{sort}([alpha, beta])\\ \\ \begin{array}{l} \mathbf{if}\;\beta \leq 3.05:\\ \;\;\;\;0.08333333333333333 - 0.027777777777777776 \cdot \alpha\\ \mathbf{else}:\\ \;\;\;\;\frac{1}{\beta \cdot \beta}\\ \end{array} \end{array} \]
                        NOTE: alpha and beta should be sorted in increasing order before calling this function.
                        (FPCore (alpha beta)
                         :precision binary64
                         (if (<= beta 3.05)
                           (- 0.08333333333333333 (* 0.027777777777777776 alpha))
                           (/ 1.0 (* beta beta))))
                        assert(alpha < beta);
                        double code(double alpha, double beta) {
                        	double tmp;
                        	if (beta <= 3.05) {
                        		tmp = 0.08333333333333333 - (0.027777777777777776 * alpha);
                        	} else {
                        		tmp = 1.0 / (beta * beta);
                        	}
                        	return tmp;
                        }
                        
                        NOTE: alpha and beta should be sorted in increasing order before calling this function.
                        module fmin_fmax_functions
                            implicit none
                            private
                            public fmax
                            public fmin
                        
                            interface fmax
                                module procedure fmax88
                                module procedure fmax44
                                module procedure fmax84
                                module procedure fmax48
                            end interface
                            interface fmin
                                module procedure fmin88
                                module procedure fmin44
                                module procedure fmin84
                                module procedure fmin48
                            end interface
                        contains
                            real(8) function fmax88(x, y) result (res)
                                real(8), intent (in) :: x
                                real(8), intent (in) :: y
                                res = merge(y, merge(x, max(x, y), y /= y), x /= x)
                            end function
                            real(4) function fmax44(x, y) result (res)
                                real(4), intent (in) :: x
                                real(4), intent (in) :: y
                                res = merge(y, merge(x, max(x, y), y /= y), x /= x)
                            end function
                            real(8) function fmax84(x, y) result(res)
                                real(8), intent (in) :: x
                                real(4), intent (in) :: y
                                res = merge(dble(y), merge(x, max(x, dble(y)), y /= y), x /= x)
                            end function
                            real(8) function fmax48(x, y) result(res)
                                real(4), intent (in) :: x
                                real(8), intent (in) :: y
                                res = merge(y, merge(dble(x), max(dble(x), y), y /= y), x /= x)
                            end function
                            real(8) function fmin88(x, y) result (res)
                                real(8), intent (in) :: x
                                real(8), intent (in) :: y
                                res = merge(y, merge(x, min(x, y), y /= y), x /= x)
                            end function
                            real(4) function fmin44(x, y) result (res)
                                real(4), intent (in) :: x
                                real(4), intent (in) :: y
                                res = merge(y, merge(x, min(x, y), y /= y), x /= x)
                            end function
                            real(8) function fmin84(x, y) result(res)
                                real(8), intent (in) :: x
                                real(4), intent (in) :: y
                                res = merge(dble(y), merge(x, min(x, dble(y)), y /= y), x /= x)
                            end function
                            real(8) function fmin48(x, y) result(res)
                                real(4), intent (in) :: x
                                real(8), intent (in) :: y
                                res = merge(y, merge(dble(x), min(dble(x), y), y /= y), x /= x)
                            end function
                        end module
                        
                        real(8) function code(alpha, beta)
                        use fmin_fmax_functions
                            real(8), intent (in) :: alpha
                            real(8), intent (in) :: beta
                            real(8) :: tmp
                            if (beta <= 3.05d0) then
                                tmp = 0.08333333333333333d0 - (0.027777777777777776d0 * alpha)
                            else
                                tmp = 1.0d0 / (beta * beta)
                            end if
                            code = tmp
                        end function
                        
                        assert alpha < beta;
                        public static double code(double alpha, double beta) {
                        	double tmp;
                        	if (beta <= 3.05) {
                        		tmp = 0.08333333333333333 - (0.027777777777777776 * alpha);
                        	} else {
                        		tmp = 1.0 / (beta * beta);
                        	}
                        	return tmp;
                        }
                        
                        [alpha, beta] = sort([alpha, beta])
                        def code(alpha, beta):
                        	tmp = 0
                        	if beta <= 3.05:
                        		tmp = 0.08333333333333333 - (0.027777777777777776 * alpha)
                        	else:
                        		tmp = 1.0 / (beta * beta)
                        	return tmp
                        
                        alpha, beta = sort([alpha, beta])
                        function code(alpha, beta)
                        	tmp = 0.0
                        	if (beta <= 3.05)
                        		tmp = Float64(0.08333333333333333 - Float64(0.027777777777777776 * alpha));
                        	else
                        		tmp = Float64(1.0 / Float64(beta * beta));
                        	end
                        	return tmp
                        end
                        
                        alpha, beta = num2cell(sort([alpha, beta])){:}
                        function tmp_2 = code(alpha, beta)
                        	tmp = 0.0;
                        	if (beta <= 3.05)
                        		tmp = 0.08333333333333333 - (0.027777777777777776 * alpha);
                        	else
                        		tmp = 1.0 / (beta * beta);
                        	end
                        	tmp_2 = tmp;
                        end
                        
                        NOTE: alpha and beta should be sorted in increasing order before calling this function.
                        code[alpha_, beta_] := If[LessEqual[beta, 3.05], N[(0.08333333333333333 - N[(0.027777777777777776 * alpha), $MachinePrecision]), $MachinePrecision], N[(1.0 / N[(beta * beta), $MachinePrecision]), $MachinePrecision]]
                        
                        \begin{array}{l}
                        [alpha, beta] = \mathsf{sort}([alpha, beta])\\
                        \\
                        \begin{array}{l}
                        \mathbf{if}\;\beta \leq 3.05:\\
                        \;\;\;\;0.08333333333333333 - 0.027777777777777776 \cdot \alpha\\
                        
                        \mathbf{else}:\\
                        \;\;\;\;\frac{1}{\beta \cdot \beta}\\
                        
                        
                        \end{array}
                        \end{array}
                        
                        Derivation
                        1. Split input into 2 regimes
                        2. if beta < 3.0499999999999998

                          1. Initial program 99.9%

                            \[\frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                          2. Step-by-step derivation
                            1. lift-+.f64N/A

                              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\color{blue}{\left(\alpha + \beta\right)} + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                            2. +-commutativeN/A

                              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                            3. lower-+.f6499.9

                              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                            4. lift-*.f64N/A

                              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + \color{blue}{2 \cdot 1}}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                            5. metadata-eval99.9

                              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + \color{blue}{2}}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                          3. Applied rewrites99.9%

                            \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\color{blue}{\left(\beta + \alpha\right) + 2}}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                          4. Step-by-step derivation
                            1. lift-+.f64N/A

                              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\alpha + \beta\right)} + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                            2. +-commutativeN/A

                              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                            3. lower-+.f6499.9

                              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                            4. lift-*.f64N/A

                              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + \color{blue}{2 \cdot 1}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                            5. metadata-eval99.9

                              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + \color{blue}{2}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                          5. Applied rewrites99.9%

                            \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\beta + \alpha\right) + 2}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                          6. Step-by-step derivation
                            1. lift-+.f64N/A

                              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\color{blue}{\left(\alpha + \beta\right)} + 2 \cdot 1\right) + 1} \]
                            2. +-commutativeN/A

                              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1\right) + 1} \]
                            3. lower-+.f6499.9

                              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1\right) + 1} \]
                            4. lift-*.f64N/A

                              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + \color{blue}{2 \cdot 1}\right) + 1} \]
                            5. metadata-eval99.9

                              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + \color{blue}{2}\right) + 1} \]
                          7. Applied rewrites99.9%

                            \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\left(\beta + \alpha\right) + 2\right)} + 1} \]
                          8. Taylor expanded in beta around 0

                            \[\leadsto \color{blue}{\frac{1 + \alpha}{{\left(2 + \alpha\right)}^{2} \cdot \left(3 + \alpha\right)}} \]
                          9. Step-by-step derivation
                            1. lower-/.f64N/A

                              \[\leadsto \frac{1 + \alpha}{\color{blue}{{\left(2 + \alpha\right)}^{2} \cdot \left(3 + \alpha\right)}} \]
                            2. lift-+.f64N/A

                              \[\leadsto \frac{1 + \alpha}{\color{blue}{{\left(2 + \alpha\right)}^{2}} \cdot \left(3 + \alpha\right)} \]
                            3. lower-*.f64N/A

                              \[\leadsto \frac{1 + \alpha}{{\left(2 + \alpha\right)}^{2} \cdot \color{blue}{\left(3 + \alpha\right)}} \]
                            4. unpow2N/A

                              \[\leadsto \frac{1 + \alpha}{\left(\left(2 + \alpha\right) \cdot \left(2 + \alpha\right)\right) \cdot \left(\color{blue}{3} + \alpha\right)} \]
                            5. lower-*.f64N/A

                              \[\leadsto \frac{1 + \alpha}{\left(\left(2 + \alpha\right) \cdot \left(2 + \alpha\right)\right) \cdot \left(\color{blue}{3} + \alpha\right)} \]
                            6. lower-+.f64N/A

                              \[\leadsto \frac{1 + \alpha}{\left(\left(2 + \alpha\right) \cdot \left(2 + \alpha\right)\right) \cdot \left(3 + \alpha\right)} \]
                            7. lower-+.f64N/A

                              \[\leadsto \frac{1 + \alpha}{\left(\left(2 + \alpha\right) \cdot \left(2 + \alpha\right)\right) \cdot \left(3 + \alpha\right)} \]
                            8. lower-+.f6497.9

                              \[\leadsto \frac{1 + \alpha}{\left(\left(2 + \alpha\right) \cdot \left(2 + \alpha\right)\right) \cdot \left(3 + \color{blue}{\alpha}\right)} \]
                          10. Applied rewrites97.9%

                            \[\leadsto \color{blue}{\frac{1 + \alpha}{\left(\left(2 + \alpha\right) \cdot \left(2 + \alpha\right)\right) \cdot \left(3 + \alpha\right)}} \]
                          11. Taylor expanded in alpha around 0

                            \[\leadsto \frac{1}{12} + \color{blue}{\frac{-1}{36} \cdot \alpha} \]
                          12. Step-by-step derivation
                            1. fp-cancel-sign-sub-invN/A

                              \[\leadsto \frac{1}{12} - \left(\mathsf{neg}\left(\frac{-1}{36}\right)\right) \cdot \color{blue}{\alpha} \]
                            2. lower--.f64N/A

                              \[\leadsto \frac{1}{12} - \left(\mathsf{neg}\left(\frac{-1}{36}\right)\right) \cdot \color{blue}{\alpha} \]
                            3. metadata-evalN/A

                              \[\leadsto \frac{1}{12} - \frac{1}{36} \cdot \alpha \]
                            4. lower-*.f6496.9

                              \[\leadsto 0.08333333333333333 - 0.027777777777777776 \cdot \alpha \]
                          13. Applied rewrites96.9%

                            \[\leadsto 0.08333333333333333 - \color{blue}{0.027777777777777776 \cdot \alpha} \]

                          if 3.0499999999999998 < beta

                          1. Initial program 89.8%

                            \[\frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                          2. Taylor expanded in beta around inf

                            \[\leadsto \color{blue}{\frac{1 + \alpha}{{\beta}^{2}}} \]
                          3. Step-by-step derivation
                            1. lower-/.f64N/A

                              \[\leadsto \frac{1 + \alpha}{\color{blue}{{\beta}^{2}}} \]
                            2. lower-+.f64N/A

                              \[\leadsto \frac{1 + \alpha}{{\color{blue}{\beta}}^{2}} \]
                            3. unpow2N/A

                              \[\leadsto \frac{1 + \alpha}{\beta \cdot \color{blue}{\beta}} \]
                            4. lower-*.f6492.2

                              \[\leadsto \frac{1 + \alpha}{\beta \cdot \color{blue}{\beta}} \]
                          4. Applied rewrites92.2%

                            \[\leadsto \color{blue}{\frac{1 + \alpha}{\beta \cdot \beta}} \]
                          5. Taylor expanded in alpha around 0

                            \[\leadsto \frac{1}{\color{blue}{\beta} \cdot \beta} \]
                          6. Step-by-step derivation
                            1. Applied rewrites87.1%

                              \[\leadsto \frac{1}{\color{blue}{\beta} \cdot \beta} \]
                          7. Recombined 2 regimes into one program.
                          8. Add Preprocessing

                          Alternative 17: 45.7% accurate, 7.6× speedup?

                          \[\begin{array}{l} [alpha, beta] = \mathsf{sort}([alpha, beta])\\ \\ 0.08333333333333333 - 0.027777777777777776 \cdot \alpha \end{array} \]
                          NOTE: alpha and beta should be sorted in increasing order before calling this function.
                          (FPCore (alpha beta)
                           :precision binary64
                           (- 0.08333333333333333 (* 0.027777777777777776 alpha)))
                          assert(alpha < beta);
                          double code(double alpha, double beta) {
                          	return 0.08333333333333333 - (0.027777777777777776 * alpha);
                          }
                          
                          NOTE: alpha and beta should be sorted in increasing order before calling this function.
                          module fmin_fmax_functions
                              implicit none
                              private
                              public fmax
                              public fmin
                          
                              interface fmax
                                  module procedure fmax88
                                  module procedure fmax44
                                  module procedure fmax84
                                  module procedure fmax48
                              end interface
                              interface fmin
                                  module procedure fmin88
                                  module procedure fmin44
                                  module procedure fmin84
                                  module procedure fmin48
                              end interface
                          contains
                              real(8) function fmax88(x, y) result (res)
                                  real(8), intent (in) :: x
                                  real(8), intent (in) :: y
                                  res = merge(y, merge(x, max(x, y), y /= y), x /= x)
                              end function
                              real(4) function fmax44(x, y) result (res)
                                  real(4), intent (in) :: x
                                  real(4), intent (in) :: y
                                  res = merge(y, merge(x, max(x, y), y /= y), x /= x)
                              end function
                              real(8) function fmax84(x, y) result(res)
                                  real(8), intent (in) :: x
                                  real(4), intent (in) :: y
                                  res = merge(dble(y), merge(x, max(x, dble(y)), y /= y), x /= x)
                              end function
                              real(8) function fmax48(x, y) result(res)
                                  real(4), intent (in) :: x
                                  real(8), intent (in) :: y
                                  res = merge(y, merge(dble(x), max(dble(x), y), y /= y), x /= x)
                              end function
                              real(8) function fmin88(x, y) result (res)
                                  real(8), intent (in) :: x
                                  real(8), intent (in) :: y
                                  res = merge(y, merge(x, min(x, y), y /= y), x /= x)
                              end function
                              real(4) function fmin44(x, y) result (res)
                                  real(4), intent (in) :: x
                                  real(4), intent (in) :: y
                                  res = merge(y, merge(x, min(x, y), y /= y), x /= x)
                              end function
                              real(8) function fmin84(x, y) result(res)
                                  real(8), intent (in) :: x
                                  real(4), intent (in) :: y
                                  res = merge(dble(y), merge(x, min(x, dble(y)), y /= y), x /= x)
                              end function
                              real(8) function fmin48(x, y) result(res)
                                  real(4), intent (in) :: x
                                  real(8), intent (in) :: y
                                  res = merge(y, merge(dble(x), min(dble(x), y), y /= y), x /= x)
                              end function
                          end module
                          
                          real(8) function code(alpha, beta)
                          use fmin_fmax_functions
                              real(8), intent (in) :: alpha
                              real(8), intent (in) :: beta
                              code = 0.08333333333333333d0 - (0.027777777777777776d0 * alpha)
                          end function
                          
                          assert alpha < beta;
                          public static double code(double alpha, double beta) {
                          	return 0.08333333333333333 - (0.027777777777777776 * alpha);
                          }
                          
                          [alpha, beta] = sort([alpha, beta])
                          def code(alpha, beta):
                          	return 0.08333333333333333 - (0.027777777777777776 * alpha)
                          
                          alpha, beta = sort([alpha, beta])
                          function code(alpha, beta)
                          	return Float64(0.08333333333333333 - Float64(0.027777777777777776 * alpha))
                          end
                          
                          alpha, beta = num2cell(sort([alpha, beta])){:}
                          function tmp = code(alpha, beta)
                          	tmp = 0.08333333333333333 - (0.027777777777777776 * alpha);
                          end
                          
                          NOTE: alpha and beta should be sorted in increasing order before calling this function.
                          code[alpha_, beta_] := N[(0.08333333333333333 - N[(0.027777777777777776 * alpha), $MachinePrecision]), $MachinePrecision]
                          
                          \begin{array}{l}
                          [alpha, beta] = \mathsf{sort}([alpha, beta])\\
                          \\
                          0.08333333333333333 - 0.027777777777777776 \cdot \alpha
                          \end{array}
                          
                          Derivation
                          1. Initial program 94.3%

                            \[\frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                          2. Step-by-step derivation
                            1. lift-+.f64N/A

                              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\color{blue}{\left(\alpha + \beta\right)} + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                            2. +-commutativeN/A

                              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                            3. lower-+.f6494.3

                              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                            4. lift-*.f64N/A

                              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + \color{blue}{2 \cdot 1}}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                            5. metadata-eval94.3

                              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + \color{blue}{2}}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                          3. Applied rewrites94.3%

                            \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\color{blue}{\left(\beta + \alpha\right) + 2}}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                          4. Step-by-step derivation
                            1. lift-+.f64N/A

                              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\alpha + \beta\right)} + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                            2. +-commutativeN/A

                              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                            3. lower-+.f6494.3

                              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                            4. lift-*.f64N/A

                              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + \color{blue}{2 \cdot 1}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                            5. metadata-eval94.3

                              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + \color{blue}{2}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                          5. Applied rewrites94.3%

                            \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\beta + \alpha\right) + 2}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                          6. Step-by-step derivation
                            1. lift-+.f64N/A

                              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\color{blue}{\left(\alpha + \beta\right)} + 2 \cdot 1\right) + 1} \]
                            2. +-commutativeN/A

                              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1\right) + 1} \]
                            3. lower-+.f6494.3

                              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1\right) + 1} \]
                            4. lift-*.f64N/A

                              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + \color{blue}{2 \cdot 1}\right) + 1} \]
                            5. metadata-eval94.3

                              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + \color{blue}{2}\right) + 1} \]
                          7. Applied rewrites94.3%

                            \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\left(\beta + \alpha\right) + 2\right)} + 1} \]
                          8. Taylor expanded in beta around 0

                            \[\leadsto \color{blue}{\frac{1 + \alpha}{{\left(2 + \alpha\right)}^{2} \cdot \left(3 + \alpha\right)}} \]
                          9. Step-by-step derivation
                            1. lower-/.f64N/A

                              \[\leadsto \frac{1 + \alpha}{\color{blue}{{\left(2 + \alpha\right)}^{2} \cdot \left(3 + \alpha\right)}} \]
                            2. lift-+.f64N/A

                              \[\leadsto \frac{1 + \alpha}{\color{blue}{{\left(2 + \alpha\right)}^{2}} \cdot \left(3 + \alpha\right)} \]
                            3. lower-*.f64N/A

                              \[\leadsto \frac{1 + \alpha}{{\left(2 + \alpha\right)}^{2} \cdot \color{blue}{\left(3 + \alpha\right)}} \]
                            4. unpow2N/A

                              \[\leadsto \frac{1 + \alpha}{\left(\left(2 + \alpha\right) \cdot \left(2 + \alpha\right)\right) \cdot \left(\color{blue}{3} + \alpha\right)} \]
                            5. lower-*.f64N/A

                              \[\leadsto \frac{1 + \alpha}{\left(\left(2 + \alpha\right) \cdot \left(2 + \alpha\right)\right) \cdot \left(\color{blue}{3} + \alpha\right)} \]
                            6. lower-+.f64N/A

                              \[\leadsto \frac{1 + \alpha}{\left(\left(2 + \alpha\right) \cdot \left(2 + \alpha\right)\right) \cdot \left(3 + \alpha\right)} \]
                            7. lower-+.f64N/A

                              \[\leadsto \frac{1 + \alpha}{\left(\left(2 + \alpha\right) \cdot \left(2 + \alpha\right)\right) \cdot \left(3 + \alpha\right)} \]
                            8. lower-+.f6448.9

                              \[\leadsto \frac{1 + \alpha}{\left(\left(2 + \alpha\right) \cdot \left(2 + \alpha\right)\right) \cdot \left(3 + \color{blue}{\alpha}\right)} \]
                          10. Applied rewrites48.9%

                            \[\leadsto \color{blue}{\frac{1 + \alpha}{\left(\left(2 + \alpha\right) \cdot \left(2 + \alpha\right)\right) \cdot \left(3 + \alpha\right)}} \]
                          11. Taylor expanded in alpha around 0

                            \[\leadsto \frac{1}{12} + \color{blue}{\frac{-1}{36} \cdot \alpha} \]
                          12. Step-by-step derivation
                            1. fp-cancel-sign-sub-invN/A

                              \[\leadsto \frac{1}{12} - \left(\mathsf{neg}\left(\frac{-1}{36}\right)\right) \cdot \color{blue}{\alpha} \]
                            2. lower--.f64N/A

                              \[\leadsto \frac{1}{12} - \left(\mathsf{neg}\left(\frac{-1}{36}\right)\right) \cdot \color{blue}{\alpha} \]
                            3. metadata-evalN/A

                              \[\leadsto \frac{1}{12} - \frac{1}{36} \cdot \alpha \]
                            4. lower-*.f6445.7

                              \[\leadsto 0.08333333333333333 - 0.027777777777777776 \cdot \alpha \]
                          13. Applied rewrites45.7%

                            \[\leadsto 0.08333333333333333 - \color{blue}{0.027777777777777776 \cdot \alpha} \]
                          14. Add Preprocessing

                          Alternative 18: 45.3% accurate, 50.2× speedup?

                          \[\begin{array}{l} [alpha, beta] = \mathsf{sort}([alpha, beta])\\ \\ 0.08333333333333333 \end{array} \]
                          NOTE: alpha and beta should be sorted in increasing order before calling this function.
                          (FPCore (alpha beta) :precision binary64 0.08333333333333333)
                          assert(alpha < beta);
                          double code(double alpha, double beta) {
                          	return 0.08333333333333333;
                          }
                          
                          NOTE: alpha and beta should be sorted in increasing order before calling this function.
                          module fmin_fmax_functions
                              implicit none
                              private
                              public fmax
                              public fmin
                          
                              interface fmax
                                  module procedure fmax88
                                  module procedure fmax44
                                  module procedure fmax84
                                  module procedure fmax48
                              end interface
                              interface fmin
                                  module procedure fmin88
                                  module procedure fmin44
                                  module procedure fmin84
                                  module procedure fmin48
                              end interface
                          contains
                              real(8) function fmax88(x, y) result (res)
                                  real(8), intent (in) :: x
                                  real(8), intent (in) :: y
                                  res = merge(y, merge(x, max(x, y), y /= y), x /= x)
                              end function
                              real(4) function fmax44(x, y) result (res)
                                  real(4), intent (in) :: x
                                  real(4), intent (in) :: y
                                  res = merge(y, merge(x, max(x, y), y /= y), x /= x)
                              end function
                              real(8) function fmax84(x, y) result(res)
                                  real(8), intent (in) :: x
                                  real(4), intent (in) :: y
                                  res = merge(dble(y), merge(x, max(x, dble(y)), y /= y), x /= x)
                              end function
                              real(8) function fmax48(x, y) result(res)
                                  real(4), intent (in) :: x
                                  real(8), intent (in) :: y
                                  res = merge(y, merge(dble(x), max(dble(x), y), y /= y), x /= x)
                              end function
                              real(8) function fmin88(x, y) result (res)
                                  real(8), intent (in) :: x
                                  real(8), intent (in) :: y
                                  res = merge(y, merge(x, min(x, y), y /= y), x /= x)
                              end function
                              real(4) function fmin44(x, y) result (res)
                                  real(4), intent (in) :: x
                                  real(4), intent (in) :: y
                                  res = merge(y, merge(x, min(x, y), y /= y), x /= x)
                              end function
                              real(8) function fmin84(x, y) result(res)
                                  real(8), intent (in) :: x
                                  real(4), intent (in) :: y
                                  res = merge(dble(y), merge(x, min(x, dble(y)), y /= y), x /= x)
                              end function
                              real(8) function fmin48(x, y) result(res)
                                  real(4), intent (in) :: x
                                  real(8), intent (in) :: y
                                  res = merge(y, merge(dble(x), min(dble(x), y), y /= y), x /= x)
                              end function
                          end module
                          
                          real(8) function code(alpha, beta)
                          use fmin_fmax_functions
                              real(8), intent (in) :: alpha
                              real(8), intent (in) :: beta
                              code = 0.08333333333333333d0
                          end function
                          
                          assert alpha < beta;
                          public static double code(double alpha, double beta) {
                          	return 0.08333333333333333;
                          }
                          
                          [alpha, beta] = sort([alpha, beta])
                          def code(alpha, beta):
                          	return 0.08333333333333333
                          
                          alpha, beta = sort([alpha, beta])
                          function code(alpha, beta)
                          	return 0.08333333333333333
                          end
                          
                          alpha, beta = num2cell(sort([alpha, beta])){:}
                          function tmp = code(alpha, beta)
                          	tmp = 0.08333333333333333;
                          end
                          
                          NOTE: alpha and beta should be sorted in increasing order before calling this function.
                          code[alpha_, beta_] := 0.08333333333333333
                          
                          \begin{array}{l}
                          [alpha, beta] = \mathsf{sort}([alpha, beta])\\
                          \\
                          0.08333333333333333
                          \end{array}
                          
                          Derivation
                          1. Initial program 94.3%

                            \[\frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                          2. Step-by-step derivation
                            1. lift-+.f64N/A

                              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\color{blue}{\left(\alpha + \beta\right)} + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                            2. +-commutativeN/A

                              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                            3. lower-+.f6494.3

                              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                            4. lift-*.f64N/A

                              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + \color{blue}{2 \cdot 1}}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                            5. metadata-eval94.3

                              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + \color{blue}{2}}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                          3. Applied rewrites94.3%

                            \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\color{blue}{\left(\beta + \alpha\right) + 2}}}{\left(\alpha + \beta\right) + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                          4. Step-by-step derivation
                            1. lift-+.f64N/A

                              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\alpha + \beta\right)} + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                            2. +-commutativeN/A

                              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                            3. lower-+.f6494.3

                              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                            4. lift-*.f64N/A

                              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + \color{blue}{2 \cdot 1}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                            5. metadata-eval94.3

                              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + \color{blue}{2}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                          5. Applied rewrites94.3%

                            \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\beta + \alpha\right) + 2}}}{\left(\left(\alpha + \beta\right) + 2 \cdot 1\right) + 1} \]
                          6. Step-by-step derivation
                            1. lift-+.f64N/A

                              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\color{blue}{\left(\alpha + \beta\right)} + 2 \cdot 1\right) + 1} \]
                            2. +-commutativeN/A

                              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1\right) + 1} \]
                            3. lower-+.f6494.3

                              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\color{blue}{\left(\beta + \alpha\right)} + 2 \cdot 1\right) + 1} \]
                            4. lift-*.f64N/A

                              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + \color{blue}{2 \cdot 1}\right) + 1} \]
                            5. metadata-eval94.3

                              \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\left(\left(\beta + \alpha\right) + \color{blue}{2}\right) + 1} \]
                          7. Applied rewrites94.3%

                            \[\leadsto \frac{\frac{\frac{\left(\left(\alpha + \beta\right) + \beta \cdot \alpha\right) + 1}{\left(\beta + \alpha\right) + 2}}{\left(\beta + \alpha\right) + 2}}{\color{blue}{\left(\left(\beta + \alpha\right) + 2\right)} + 1} \]
                          8. Taylor expanded in beta around 0

                            \[\leadsto \color{blue}{\frac{1 + \alpha}{{\left(2 + \alpha\right)}^{2} \cdot \left(3 + \alpha\right)}} \]
                          9. Step-by-step derivation
                            1. lower-/.f64N/A

                              \[\leadsto \frac{1 + \alpha}{\color{blue}{{\left(2 + \alpha\right)}^{2} \cdot \left(3 + \alpha\right)}} \]
                            2. lift-+.f64N/A

                              \[\leadsto \frac{1 + \alpha}{\color{blue}{{\left(2 + \alpha\right)}^{2}} \cdot \left(3 + \alpha\right)} \]
                            3. lower-*.f64N/A

                              \[\leadsto \frac{1 + \alpha}{{\left(2 + \alpha\right)}^{2} \cdot \color{blue}{\left(3 + \alpha\right)}} \]
                            4. unpow2N/A

                              \[\leadsto \frac{1 + \alpha}{\left(\left(2 + \alpha\right) \cdot \left(2 + \alpha\right)\right) \cdot \left(\color{blue}{3} + \alpha\right)} \]
                            5. lower-*.f64N/A

                              \[\leadsto \frac{1 + \alpha}{\left(\left(2 + \alpha\right) \cdot \left(2 + \alpha\right)\right) \cdot \left(\color{blue}{3} + \alpha\right)} \]
                            6. lower-+.f64N/A

                              \[\leadsto \frac{1 + \alpha}{\left(\left(2 + \alpha\right) \cdot \left(2 + \alpha\right)\right) \cdot \left(3 + \alpha\right)} \]
                            7. lower-+.f64N/A

                              \[\leadsto \frac{1 + \alpha}{\left(\left(2 + \alpha\right) \cdot \left(2 + \alpha\right)\right) \cdot \left(3 + \alpha\right)} \]
                            8. lower-+.f6448.9

                              \[\leadsto \frac{1 + \alpha}{\left(\left(2 + \alpha\right) \cdot \left(2 + \alpha\right)\right) \cdot \left(3 + \color{blue}{\alpha}\right)} \]
                          10. Applied rewrites48.9%

                            \[\leadsto \color{blue}{\frac{1 + \alpha}{\left(\left(2 + \alpha\right) \cdot \left(2 + \alpha\right)\right) \cdot \left(3 + \alpha\right)}} \]
                          11. Taylor expanded in alpha around 0

                            \[\leadsto \frac{1}{12} \]
                          12. Step-by-step derivation
                            1. Applied rewrites45.3%

                              \[\leadsto 0.08333333333333333 \]
                            2. Add Preprocessing

                            Reproduce

                            ?
                            herbie shell --seed 2025120 
                            (FPCore (alpha beta)
                              :name "Octave 3.8, jcobi/3"
                              :precision binary64
                              :pre (and (> alpha -1.0) (> beta -1.0))
                              (/ (/ (/ (+ (+ (+ alpha beta) (* beta alpha)) 1.0) (+ (+ alpha beta) (* 2.0 1.0))) (+ (+ alpha beta) (* 2.0 1.0))) (+ (+ (+ alpha beta) (* 2.0 1.0)) 1.0)))