diff options
author | Xavier Leroy <xavier.leroy@inria.fr> | 2017-02-13 10:28:35 +0100 |
---|---|---|
committer | Xavier Leroy <xavier.leroy@inria.fr> | 2017-02-13 10:28:35 +0100 |
commit | dce9ff8da2710aa81fbcf6d1498de35ea9ad06f4 (patch) | |
tree | d5b777e266bd4f2abd5a0a264f5235ff895462bd /flocq/Core/Fcore_rnd.v | |
parent | 9ceacf45af6bfe396e36938e2573348ac4d07603 (diff) | |
download | compcert-dce9ff8da2710aa81fbcf6d1498de35ea9ad06f4.tar.gz compcert-dce9ff8da2710aa81fbcf6d1498de35ea9ad06f4.zip |
Update Flocq to version 2.5.2
This version of Flocq is compatible with Coq 8.6
Diffstat (limited to 'flocq/Core/Fcore_rnd.v')
-rw-r--r-- | flocq/Core/Fcore_rnd.v | 14 |
1 files changed, 6 insertions, 8 deletions
diff --git a/flocq/Core/Fcore_rnd.v b/flocq/Core/Fcore_rnd.v index 171c27fc..e5091684 100644 --- a/flocq/Core/Fcore_rnd.v +++ b/flocq/Core/Fcore_rnd.v @@ -275,15 +275,13 @@ Theorem Only_DN_or_UP : F f -> (fd <= f <= fu)%R -> f = fd \/ f = fu. Proof. -intros F x fd fu f Hd Hu Hf ([Hdf|Hdf], Hfu). -2 : now left. -destruct Hfu. -2 : now right. -destruct (Rle_or_lt x f). -elim Rlt_not_le with (1 := H). +intros F x fd fu f Hd Hu Hf [Hdf Hfu]. +destruct (Rle_or_lt x f) ; [right|left]. +apply Rle_antisym with (1 := Hfu). now apply Hu. -elim Rlt_not_le with (1 := Hdf). -apply Hd ; auto with real. +apply Rlt_le in H. +apply Rle_antisym with (2 := Hdf). +now apply Hd. Qed. Theorem Rnd_ZR_abs : |