diff options
author | desmettr <desmettr@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-01-21 16:20:51 +0000 |
---|---|---|
committer | desmettr <desmettr@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-01-21 16:20:51 +0000 |
commit | d9a43db80ff4151406a0ed6e3b38c781a06ba8e7 (patch) | |
tree | 7c123a3a53a6444d4454762e97461af54d3fa6ed /theories/Reals/Binomial.v | |
parent | aa0ceff51bd696098c714f206e2e53a3d859a345 (diff) |
Renommage dans Binomial.v
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3562 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories/Reals/Binomial.v')
-rw-r--r-- | theories/Reals/Binomial.v | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/theories/Reals/Binomial.v b/theories/Reals/Binomial.v index 8b5406ee7..2654a5f60 100644 --- a/theories/Reals/Binomial.v +++ b/theories/Reals/Binomial.v @@ -107,9 +107,8 @@ Apply lt_le_weak; Assumption. Qed. (*********************) -(* Formule du binôme *) (*********************) -Lemma binome : (x,y:R;n:nat) ``(pow (x+y) n)``==(sum_f_R0 [i:nat]``(C n i)*(pow x i)*(pow y (minus n i))`` n). +Lemma binomial : (x,y:R;n:nat) ``(pow (x+y) n)``==(sum_f_R0 [i:nat]``(C n i)*(pow x i)*(pow y (minus n i))`` n). Intros; Induction n. Unfold C; Simpl; Unfold Rdiv; Repeat Rewrite Rmult_1r; Rewrite Rinv_R1; Ring. Pattern 1 (S n); Replace (S n) with (plus n (1)); [Idtac | Ring]. |