diff options
author | David Monniaux <David.Monniaux@univ-grenoble-alpes.fr> | 2022-01-07 23:09:14 +0100 |
---|---|---|
committer | David Monniaux <David.Monniaux@univ-grenoble-alpes.fr> | 2022-01-07 23:09:14 +0100 |
commit | 41838c656dbbf817446af24b01eac8c071bafda7 (patch) | |
tree | 2a8825b24b0f817cf5a8d9704ef0df54f100fb23 /kvx | |
parent | bfbd4b7235fe67cc3fa023bcdec88d89ca6f3c99 (diff) | |
download | compcert-kvx-41838c656dbbf817446af24b01eac8c071bafda7.tar.gz compcert-kvx-41838c656dbbf817446af24b01eac8c071bafda7.zip |
better bound
Diffstat (limited to 'kvx')
-rw-r--r-- | kvx/FPDivision64.v | 3 |
1 files changed, 2 insertions, 1 deletions
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, |