diff options
| author | Guillaume Melquiond | 2021-02-19 19:29:46 +0100 |
|---|---|---|
| committer | Guillaume Melquiond | 2021-02-19 19:29:46 +0100 |
| commit | 21ed2bfa901108d69893bc8480d215edeb255d6d (patch) | |
| tree | 19c88c13d9400ddc03e76a3dd0200503e456d128 | |
| parent | 88e688182ded232f474102d400e4e4e95861f94d (diff) | |
Abstract the non-computational part away.
| -rw-r--r-- | theories/Reals/Cauchy/ConstructiveCauchyRealsMult.v | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/theories/Reals/Cauchy/ConstructiveCauchyRealsMult.v b/theories/Reals/Cauchy/ConstructiveCauchyRealsMult.v index a180e13444..bc45868244 100644 --- a/theories/Reals/Cauchy/ConstructiveCauchyRealsMult.v +++ b/theories/Reals/Cauchy/ConstructiveCauchyRealsMult.v @@ -733,13 +733,11 @@ Definition CReal_inv_pos (x : CReal) (Hxpos : 0 < x) : CReal := bound := CReal_inv_pos_bound x Hxpos |}. -(* ToDo: make this more obviously computing *) - Definition CReal_neg_lt_pos : forall x : CReal, x < 0 -> 0 < -x. Proof. intros x [n nmaj]. exists n. - apply (Qlt_le_trans _ _ _ nmaj). destruct x. simpl. - unfold Qminus. rewrite Qplus_0_l, Qplus_0_r. apply Qle_refl. + simpl in *. unfold CReal_opp_seq, Qminus. + abstract now rewrite Qplus_0_r, <- (Qplus_0_l (- seq x n)). Defined. Definition CReal_inv (x : CReal) (xnz : x # 0) : CReal |