aboutsummaryrefslogtreecommitdiff
path: root/theories/Reals
diff options
context:
space:
mode:
authorcoq2001-04-20 16:00:43 +0000
committercoq2001-04-20 16:00:43 +0000
commitd857c99c6c985eb36ce8a4b2667dc0b5ccca115c (patch)
tree2ea53c80dd3319b24c38b15cb5be5a582c9b302a /theories/Reals
parent4837b599b4f158decc91f615a25e3a636c6ced5d (diff)
Library doc adjustments (until page 140)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1655 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories/Reals')
-rw-r--r--theories/Reals/Rbase.v8
-rw-r--r--theories/Reals/Rdefinitions.v3
-rw-r--r--theories/Reals/Rsyntax.v4
3 files changed, 9 insertions, 6 deletions
diff --git a/theories/Reals/Rbase.v b/theories/Reals/Rbase.v
index 898783cbc8..4b4ab63514 100644
--- a/theories/Reals/Rbase.v
+++ b/theories/Reals/Rbase.v
@@ -286,13 +286,14 @@ Lemma Rplus_Ropp:(x,y:R)``x+y==0``->``y== -x``.
| Ring ].
Save.
-(* New *)
+(*i New i*)
Hint eqT_R_congr : real := Resolve (congr_eqT R).
Lemma Rplus_plus_r:(r,r1,r2:R)(r1==r2)->``r+r1==r+r2``.
Auto with real.
Save.
-(* Old *) Hints Resolve Rplus_plus_r : v62.
+
+(*i Old i*)Hints Resolve Rplus_plus_r : v62.
(**********)
Lemma r_Rplus_plus:(r,r1,r2:R)``r+r1==r+r2``->r1==r2.
@@ -358,7 +359,8 @@ Hints Resolve Rmult_1r : real.
Lemma Rmult_mult_r:(r,r1,r2:R)r1==r2->``r*r1==r*r2``.
Auto with real.
Save.
-(* OLD *) Hints Resolve Rmult_mult_r : v62.
+
+(*i OLD i*)Hints Resolve Rmult_mult_r : v62.
(**********)
Lemma r_Rmult_mult:(r,r1,r2:R)(``r*r1==r*r2``)->``r<>0``->(r1==r2).
diff --git a/theories/Reals/Rdefinitions.v b/theories/Reals/Rdefinitions.v
index 1bd1e5ec7d..b5ac6e1f9c 100644
--- a/theories/Reals/Rdefinitions.v
+++ b/theories/Reals/Rdefinitions.v
@@ -25,7 +25,8 @@ Parameter Ropp:R->R.
Parameter Rinv:R->R.
Parameter Rlt:R->R->Prop.
Parameter up:R->Z.
-(*********************************************************)
+
+(*i*******************************************************i*)
(**********)
Definition Rgt:R->R->Prop:=[r1,r2:R](Rlt r2 r1).
diff --git a/theories/Reals/Rsyntax.v b/theories/Reals/Rsyntax.v
index 4f4899f402..b8eef3a253 100644
--- a/theories/Reals/Rsyntax.v
+++ b/theories/Reals/Rsyntax.v
@@ -71,9 +71,9 @@ Grammar command command0 :=
Grammar command atomic_pattern :=
r_in_pattern [ "``" rnatural:rnumber($c) "``" ] -> [$c].
-(** pp **)
+(*i* pp **)
(* pb: on rajoute des () lorsque les constantes terminent par 1 lors de
-l'appel avec NRplus *)
+l'appel avec NRplus i*)