diff options
author | 2002-05-29 10:59:30 +0000 | |
---|---|---|
committer | 2002-05-29 10:59:30 +0000 | |
commit | 7a05a712afb145bd8c41ad88dcabffbbd4fe0cf1 (patch) | |
tree | 96da6366bba630dd2c2d76d7d17cb3c4dca94b57 /theories/Reals/Rbase.v | |
parent | 0e32f3e1b0e8d5ea00d0495df691797eb7379a4e (diff) |
Double Induction prend maintenant des noms d'hyppthèses
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2729 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories/Reals/Rbase.v')
-rw-r--r-- | theories/Reals/Rbase.v | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/theories/Reals/Rbase.v b/theories/Reals/Rbase.v index fd243969b..d21fde297 100644 --- a/theories/Reals/Rbase.v +++ b/theories/Reals/Rbase.v @@ -1211,7 +1211,7 @@ Qed. Hints Resolve pos_INR: real. Lemma INR_lt:(n,m:nat)``(INR n) < (INR m)``->(lt n m). -Double Induction 1 2;Intros. +Double Induction n m;Intros. Simpl;ElimType False;Apply (Rlt_antirefl R0);Auto. Auto with arith. Generalize (pos_INR (S n0));Intro;Cut (INR O)==R0; @@ -1584,4 +1584,5 @@ Qed. Lemma add_auto : (p,q:nat) ``(INR2 (S p))+(INR2 q)==(INR2 p)+(INR2 (S q))``. Intros; Repeat Rewrite <- INR_eq_INR2; Repeat Rewrite S_INR; Ring. -Qed.
\ No newline at end of file +Qed. + |