diff options
| -rw-r--r-- | theories/Reals/RIneq.v | 1 | ||||
| -rw-r--r-- | theories/Reals/Rdefinitions.v | 2 |
2 files changed, 1 insertions, 2 deletions
diff --git a/theories/Reals/RIneq.v b/theories/Reals/RIneq.v index 1ada96892d..313e225603 100644 --- a/theories/Reals/RIneq.v +++ b/theories/Reals/RIneq.v @@ -1407,6 +1407,7 @@ Lemma eq_IZR_R0:(z:Z)``(IZR z)==0``->`z=0`. NewDestruct z; Simpl; Intros; Auto with zarith. Case (Rlt_not_eq ``0`` (INR (convert p))); Auto with real. Case (Rlt_not_eq ``-(INR (convert p))`` ``0`` ); Auto with real. +Apply Rgt_RoppO. Unfold Rgt; Apply INR_pos. Qed. (**********) diff --git a/theories/Reals/Rdefinitions.v b/theories/Reals/Rdefinitions.v index fc1e366318..75a082cfce 100644 --- a/theories/Reals/Rdefinitions.v +++ b/theories/Reals/Rdefinitions.v @@ -67,5 +67,3 @@ V8Notation "x <= y <= z" := (Rle x y)/\(Rle y z) : R_scope. V8Notation "x <= y < z" := (Rle x y)/\(Rlt y z) : R_scope. V8Notation "x < y < z" := (Rlt x y)/\(Rlt y z) : R_scope. V8Notation "x < y <= z" := (Rlt x y)/\(Rle y z) : R_scope. - -Hints Unfold Rgt : real. |