diff options
author | Xavier Leroy <xavierleroy@users.noreply.github.com> | 2015-10-11 09:56:49 +0200 |
---|---|---|
committer | Xavier Leroy <xavierleroy@users.noreply.github.com> | 2015-10-11 09:56:49 +0200 |
commit | f8bc6863f72948b8041289e200ff1d8b1f63a342 (patch) | |
tree | b0c0d0713140069f6a5da2cce1296c6e275e9b4d /flocq/Core/Fcore_FIX.v | |
parent | b0c47e12f2bbff0905ad853b90169df16d87f6be (diff) | |
parent | 0af966a42eb60e9af43f9a450d924758a83946c6 (diff) | |
download | compcert-f8bc6863f72948b8041289e200ff1d8b1f63a342.tar.gz compcert-f8bc6863f72948b8041289e200ff1d8b1f63a342.zip |
Merge pull request #55 from silene/master
Upgrade to Flocq 2.5.0.
Diffstat (limited to 'flocq/Core/Fcore_FIX.v')
-rw-r--r-- | flocq/Core/Fcore_FIX.v | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/flocq/Core/Fcore_FIX.v b/flocq/Core/Fcore_FIX.v index a3b8d4d0..e224a64a 100644 --- a/flocq/Core/Fcore_FIX.v +++ b/flocq/Core/Fcore_FIX.v @@ -22,6 +22,7 @@ Require Import Fcore_Raux. Require Import Fcore_defs. Require Import Fcore_rnd. Require Import Fcore_generic_fmt. +Require Import Fcore_ulp. Require Import Fcore_rnd_ne. Section RND_FIX. @@ -84,4 +85,16 @@ intros ex ey H. apply Zle_refl. Qed. +Theorem ulp_FIX: forall x, ulp beta FIX_exp x = bpow emin. +Proof. +intros x; unfold ulp. +case Req_bool_spec; intros Zx. +case (negligible_exp_spec FIX_exp). +intros T; specialize (T (emin-1)%Z); contradict T. +unfold FIX_exp; omega. +intros n _; reflexivity. +reflexivity. +Qed. + + End RND_FIX. |