diff options
| author |  desmettr <desmettr@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-12-07 14:01:37 +0000 |
|---|---|---|
| committer | desmettr <desmettr@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-12-07 14:01:37 +0000 |
| commit | 4f489197a8c5eac4a4ebaec1092a21cedf521161 (patch) | |
| tree | 715411b1212f68073b1c20a8dc8ddc1410a85802 /theories/Reals/Rbase.v | |
| parent | faab0757c46bce56fdd2d6908ad63d3bb1889253 (diff) | |
*** empty log message ***
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2280 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories/Reals/Rbase.v')
| -rw-r--r-- | theories/Reals/Rbase.v | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/theories/Reals/Rbase.v b/theories/Reals/Rbase.v index d24520e77..d808877c4 100644 --- a/theories/Reals/Rbase.v +++ b/theories/Reals/Rbase.v @@ -1600,3 +1600,7 @@ end. Theorem INR_eq_INR2 : (n:nat) (INR n)==(INR2 n). Induction n; [Unfold INR INR2; Reflexivity | Intros; Unfold INR INR2; Fold INR INR2; Rewrite H; Case n0; [Reflexivity | Intros; Ring]]. Save. + +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. +Save.
\ No newline at end of file |