Simplified proof.

bcdd912b · Guillaume Melquiond · 1574e8c2 · bcdd912b
Commit bcdd912b authored Oct 30, 2009 by Guillaume Melquiond
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 5 deletions

src/Flocq_rnd_ex.v src/Flocq_rnd_ex.v +2 -5

No files found.
--- a/src/Flocq_rnd_ex.v
+++ b/src/Flocq_rnd_ex.v
@@ -84,13 +84,10 @@ intros Hx'.
 assert (x = 0).
 now apply Rle_antisym.
 rewrite H in Hf |- *.
-clear Hx Hx'.
+clear H Hx Hx'.
 rewrite Rnd_DN_pt_idempotent with (1 := Hf).
-split.
+apply Rnd_UP_pt_refl.
 apply Hany.
-split.
-apply Rle_refl.
-now intros.
 apply Hany.
 (* negative *)
 destruct (proj1 (satisfies_any_imp_UP F Hany) x) as (f, Hf).