diff options
author | Guillaume Melquiond <guillaume.melquiond@inria.fr> | 2020-12-28 15:53:36 +0100 |
---|---|---|
committer | GitHub <noreply@github.com> | 2020-12-28 15:53:36 +0100 |
commit | d4513f41c54869c9b4ba96ab79d50933a1d5c25a (patch) | |
tree | b5ef5b74c19f386791d1f572c45b6b7af0e90451 /flocq/Core/FIX.v | |
parent | 548e62be073aa5a7b39d5826cd72681daef7c6a1 (diff) | |
download | compcert-kvx-d4513f41c54869c9b4ba96ab79d50933a1d5c25a.tar.gz compcert-kvx-d4513f41c54869c9b4ba96ab79d50933a1d5c25a.zip |
Update Flocq to 3.4.0 (#383)
Diffstat (limited to 'flocq/Core/FIX.v')
-rw-r--r-- | flocq/Core/FIX.v | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/flocq/Core/FIX.v b/flocq/Core/FIX.v index 4e0a25e6..779d94cb 100644 --- a/flocq/Core/FIX.v +++ b/flocq/Core/FIX.v @@ -18,6 +18,8 @@ COPYING file for more details. *) (** * Fixed-point format *) + +From Coq Require Import Lia. Require Import Raux Defs Round_pred Generic_fmt Ulp Round_NE. Section RND_FIX. @@ -86,9 +88,16 @@ 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. +unfold FIX_exp; lia. intros n _; reflexivity. reflexivity. Qed. +Global Instance exists_NE_FIX : + Exists_NE beta FIX_exp. +Proof. +unfold Exists_NE, FIX_exp; simpl. +right; split; auto. +Qed. + End RND_FIX. |