Skip to content

Commit 35979f4

Browse files
committed
Avoid functions deprecated since coq v8.16
Concerning real numbers.
1 parent 6ca927e commit 35979f4

File tree

2 files changed

+2
-2
lines changed

2 files changed

+2
-2
lines changed

theories/Topology/RFuncContinuity.v

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -311,7 +311,7 @@ assert (forall x:R, -1 < x / (1 + Rabs x) < 1).
311311
{ pose proof (Rabs_pos x). lra. }
312312
apply and_comm, Rabs_def2.
313313
unfold Rdiv.
314-
rewrite Rabs_mult, Rabs_Rinv; try lra.
314+
rewrite Rabs_mult, Rabs_inv; try lra.
315315
rewrite (Rabs_right (1 + Rabs x)); [ | now left ].
316316
pattern 1 at 2.
317317
replace 1 with ((1 + Rabs x) * / (1 + Rabs x)) by (field; lra).

theories/Topology/RationalsInReals.v

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -25,7 +25,7 @@ Proof.
2525
apply lt_0_IZR in H0.
2626
now apply Z.lt_gt.
2727
- pattern eps at 2.
28-
rewrite <- Rinv_involutive; auto with real;
28+
rewrite <- Rinv_inv; auto with real;
2929
apply Rinv_lt_contravar; auto with real;
3030
apply Rmult_lt_0_compat; auto with real;
3131
apply Rlt_trans with (/ eps); auto with real.

0 commit comments

Comments
 (0)