diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-02-14 15:57:26 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-02-14 15:57:26 +0000 |
| commit | 41bf87dd6a35255596638f1b1983a0b2d0d071b8 (patch) | |
| tree | ccbbad2e2d414c5fc73639bd20a205d6eea67ab5 /theories/Reals/Rbase.v | |
| parent | a7de8633c23fe66ee32463d78dae89661805c2d1 (diff) | |
Renommage des variables dans les schémas d'induction
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1387 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories/Reals/Rbase.v')
| -rw-r--r-- | theories/Reals/Rbase.v | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/theories/Reals/Rbase.v b/theories/Reals/Rbase.v index 1fb31101d..91c3e5409 100644 --- a/theories/Reals/Rbase.v +++ b/theories/Reals/Rbase.v @@ -64,7 +64,7 @@ Hints Resolve imp_not_Req : real. (**********) Lemma Req_EM:(r1,r2:R)(r1==r2)\/``r1<>r2``. Intros;Elim (total_order_T r1 r2);Intro. -Case y; Auto with real. +Case a; Auto with real. Auto with real. Save. Hints Resolve Req_EM : real. @@ -72,7 +72,7 @@ Hints Resolve Req_EM : real. (**********) Lemma total_order:(r1,r2:R)``r1<r2``\/(r1==r2)\/``r1>r2``. Intros;Elim (total_order_T r1 r2);Intro;Auto. -Elim y;Intro;Auto. +Elim a;Intro;Auto. Save. (**********) @@ -199,16 +199,16 @@ Save. (*s Decidability of the order *) Lemma total_order_Rlt:(r1,r2:R)(sumboolT ``r1<r2`` ~(``r1<r2``)). Intros;Elim (total_order_T r1 r2);Intros. -Elim y;Intro. +Elim a;Intro. Left;Assumption. -Right;Rewrite y0;Apply Rlt_antirefl. -Right;Unfold Rgt in y;Apply Rlt_antisym;Assumption. +Right;Rewrite b;Apply Rlt_antirefl. +Right;Unfold Rgt in b;Apply Rlt_antisym;Assumption. Save. (**********) Lemma total_order_Rle:(r1,r2:R)(sumboolT ``r1<=r2`` ~(``r1<=r2``)). Intros;Elim (total_order_T r1 r2);Intros. -Left;Unfold Rle;Elim y;Auto with real. +Left;Unfold Rle;Elim a;Auto with real. Right; Auto with real. Save. |