diff options
| author | Xavier Leroy <xavierleroy@users.noreply.github.com> | 2017-03-08 14:07:33 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2017-03-08 14:07:33 +0100 |
| commit | a968152051941a0fc50a86c3fc15e90e22ed7c47 (patch) | |
| tree | 70f2590a8ea026c2f8596220e60b829d21b6398c /flocq/Core/Fcore_rnd_ne.v | |
| parent | de24549f572deb6519be2216ef364b7c80bfdece (diff) | |
| parent | 177c8fbc523a171e8c8470fa675f9a69ef7f99de (diff) | |
| download | compcert-a968152051941a0fc50a86c3fc15e90e22ed7c47.tar.gz compcert-a968152051941a0fc50a86c3fc15e90e22ed7c47.zip | |
Merge pull request #175 from silene/IZR
Adapt proofs to future handling of literal constants in Coq
This commit is mainly a squash of the relevant compatibility commits from Flocq's master. Most of the changes are meant to make the proofs oblivious to the way constants such as 0, 1, 2, and -1 are represented.
Diffstat (limited to 'flocq/Core/Fcore_rnd_ne.v')
| -rw-r--r-- | flocq/Core/Fcore_rnd_ne.v | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/flocq/Core/Fcore_rnd_ne.v b/flocq/Core/Fcore_rnd_ne.v index 1f265406..2d67e709 100644 --- a/flocq/Core/Fcore_rnd_ne.v +++ b/flocq/Core/Fcore_rnd_ne.v @@ -370,7 +370,7 @@ destruct (Rle_or_lt (round beta fexp Zfloor x) 0) as [Hr|Hr]. rewrite (Rle_antisym _ _ Hr). unfold scaled_mantissa. rewrite Rmult_0_l. -change R0 with (Z2R 0). +change 0%R with (Z2R 0). now rewrite (Ztrunc_Z2R 0). rewrite <- (round_0 beta fexp Zfloor). apply round_le... |