diff options
| author | Jacques-Henri Jourdan <jacques-henri.jourdan@inria.fr> | 2014-10-07 15:28:21 +0200 |
|---|---|---|
| committer | Jacques-Henri Jourdan <jacques-henri.jourdan@inria.fr> | 2014-10-07 15:28:21 +0200 |
| commit | 7159e8142480fd0d851f3fd54b07dc8890f5b610 (patch) | |
| tree | 1259927d05b3e82846bbef014d864816f8a19a91 /flocq/Core/Fcore_ulp.v | |
| parent | fe29750c851cf41d37cab764b1c4d0f0ee68f0d5 (diff) | |
| download | compcert-7159e8142480fd0d851f3fd54b07dc8890f5b610.tar.gz compcert-7159e8142480fd0d851f3fd54b07dc8890f5b610.zip | |
Upgrade to flocq 2.4.0
Diffstat (limited to 'flocq/Core/Fcore_ulp.v')
| -rw-r--r-- | flocq/Core/Fcore_ulp.v | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/flocq/Core/Fcore_ulp.v b/flocq/Core/Fcore_ulp.v index 07ef3ec7..04bed01c 100644 --- a/flocq/Core/Fcore_ulp.v +++ b/flocq/Core/Fcore_ulp.v @@ -325,7 +325,7 @@ destruct (round_DN_or_UP beta fexp rnd x) as [H|H] ; rewrite H ; clear H. (* . *) rewrite Rabs_left1. rewrite Ropp_minus_distr. -apply Rplus_lt_reg_r with (round beta fexp Zfloor x). +apply Rplus_lt_reg_l with (round beta fexp Zfloor x). rewrite <- ulp_DN_UP with (1 := Hx). ring_simplify. assert (Hu: (x <= round beta fexp Zceil x)%R). |