Let a = 1.04 and b=1.857. We choose f of the form f(x) = u(x^2)e^{-x^2/2} with u(y) = \sum_{n=0}^N s_n L_n^{-1/2}(y) for some coefficients s_n, where the L_n^{-1/2}(y) are Laguerre polynomials, so that \what{f}(\xi) = v(\xi^2)e^{-\xi^2/2} with v(y) = \sum_{n=0}^N (-1)^n s_n L_n^{-1/2}(y). The coefficients s_n are chosen in such a way that u has a simple root at 0 and double roots at {42.26} and {79.78}, v has double roots at {4.57}, {11.43}, {21.45}, {35.34}, and {54.4}, and v(a-1/4)=1. This last condition is a normalization which ensures that
\what{f}(r(\lambda))=\what{f}(\sqrt{\lambda-1/4})=v(\lambda-1/4)e^{-(\lambda-1/4)/2}
is positive at \lambda=a.
These conditions on u and v define a system of linear equations for the coefficients s_n which has a unique solution when the number N+1 of coefficients is equal to 16, the number of equations. The coefficients s_n are solved for over the rational numbers, yielding an exact solution. The formal verification that the resulting polynomials u and v have roots of the prescribed orders at the prescribed places was done using the program verify0.sage, whose output can be read in the file output0.txt.
The program verify0.sage also proves that \what{f}(r(\lambda)) \geq 0.673429 for every \lambda \in [a,b] as follows. It first checks that 2v'-2v has a unique zero between a-1/4 and b-1/4 using Sturm’s theorem (implemented in PARI/GP cite PARI2, which Sage calls). This implies that \what{f} has a unique critical point between r(a) and r(b) since
{\what{f}}'(\xi) = (2v'(\xi^2)-v(\xi^2)) e^{-\xi^2/2} \xi.
The program then checks that 2v' - v is positive at a-1/4 and negative at b-1/4. This implies that the critical point is a local maximum, and hence that the minimum of \what{f} on the interval [r(a),r(b)] is achieved at the endpoints. To conclude the proof, the program verifies that \what{f}(r(a)) \geq 0.673429 and \what{f}(r(b)) \geq 0.673429 using interval arithmetic (as implemented in the Arb library cite Johansson).
In order to show that \what{f}(r(\lambda))\geq 0 for every \lambda \geq b, we need to make sure that \what{f} does not change sign on the interval [r(b),\infty) since we already know that \what{f}(r(b)) \geq 0.673429 \geq 0. For this, we use Sturm’s theorem to check that v has only 5 distinct zeros in [b-1/4,\infty). As we already checked that these are double zeros, we conclude that v does not change sign on [b-1/4,\infty) and neither does \what{f} on [r(b),\infty). Similarly, we can count the number of zeros of u in [0,\infty) to make sure that it does not change sign, and verify that u'' is negative at any of the double zeros so that u and hence f is non-positive on [0,\infty).
The last thing to check is that \calI - \what{f}(i/2) \leq 0.673429 \cdot 8.957. For this, we can estimate \what{f}(i/2) using interval arithmetic as before. To get an upper bound on
\calI = 2(g-1)\int_0^\infty r \what{f}(r) \tanh(\pi r) dr = 4\int_0^\infty r \what{f}(r) \tanh(\pi r) dr,
we split the integral into two parts. Indeed, the Arb library can provide rigorous bounds on definite integrals, but not improper ones. We thus use Arb to compute an upper bound on
4\int_0^{100} r \what{f}(r) \tanh(\pi r) \,dr
and then estimate
4\int_{100}^\infty r \what{f}(r) \tanh(\pi r) \,dr \leq 4\int_{100}^\infty r \what{f}(r) \,dr = 4\int_{100}^\infty r \, v(r^2) e^{-r^2/2} \,dr
since \what{f} is non-negative on [100,\infty) \subset [r(b),\infty). The advantage is that since r \, v(r^2) is an odd polynomial, the function r \, v(r^2) e^{-r^2/2} has an explicit primitive that can be found using integration by parts. One of these primitives has the form V(r) = p(r)e^{-r^2/2} for some polynomial p, so that \lim_{r \to \infty} V(r) = 0 and hence
4\int_{100}^\infty r \, v(r^2) e^{-r^2/2} \,dr = -4V(100).
Combining the resulting estimates yields
\frac{1}{0.673429}(\calI - \what{f}(i/2)) \leq 8.95625495601736 < 8.957
as required.