From 41838c656dbbf817446af24b01eac8c071bafda7 Mon Sep 17 00:00:00 2001 From: David Monniaux Date: Fri, 7 Jan 2022 23:09:14 +0100 Subject: better bound --- kvx/FPDivision64.v | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'kvx') diff --git a/kvx/FPDivision64.v b/kvx/FPDivision64.v index ffcc1ef9..ab593591 100644 --- a/kvx/FPDivision64.v +++ b/kvx/FPDivision64.v @@ -37,7 +37,8 @@ Definition approx_inv_longu b := let alpha := ExtValues.fmsubf one invb_d b_d in ExtValues.fmaddf invb_d alpha invb_d. -Definition approx_inv_thresh := (1/70368744177664)%R. +Definition approx_inv_thresh := (25/2251799813685248)%R. +(* 1.11022302462516e-14 *) Lemma Rabs_relax: forall b b' (INEQ : (b < b')%R) x, -- cgit