diff options
-rw-r--r-- | kvx/ExtFloats.v | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/kvx/ExtFloats.v b/kvx/ExtFloats.v index f6dae39e..ea663735 100644 --- a/kvx/ExtFloats.v +++ b/kvx/ExtFloats.v @@ -70,7 +70,7 @@ Proof. apply Rabs_lt_inv in BALL. case (Rcompare_spec x (IZR y)); intro CMP. - left. apply Zfloor_imp. - replace (y-1+1) with y by ring. + ring_simplify (y-1+1). rewrite minus_IZR. lra. - subst. rewrite Zfloor_IZR. right. reflexivity. |