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/Exp_prop.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/Exp_prop.v')
| -rw-r--r-- | theories/Reals/Exp_prop.v | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/theories/Reals/Exp_prop.v b/theories/Reals/Exp_prop.v index e9789e261..936f943d3 100644 --- a/theories/Reals/Exp_prop.v +++ b/theories/Reals/Exp_prop.v @@ -33,7 +33,7 @@ Lemma exp_form : (x,y:R;n:nat) (lt O n) -> ``(E1 x n)*(E1 y n)-(Reste_E x y n)== Intros; Unfold E1. Rewrite cauchy_finite. Unfold Reste_E; Unfold Rminus; Rewrite Rplus_assoc; Rewrite Rplus_Ropp_r; Rewrite Rplus_Or; Apply sum_eq; Intros. -Rewrite binome. +Rewrite binomial. Rewrite scal_sum; Apply sum_eq; Intros. Unfold C; Unfold Rdiv; Repeat Rewrite Rmult_assoc; Rewrite (Rmult_sym (INR (fact i))); Repeat Rewrite Rmult_assoc; Rewrite <- Rinv_l_sym. Rewrite Rmult_1r; Rewrite Rinv_Rmult. @@ -886,4 +886,4 @@ Apply Rle_sym1; Left; Apply exp_pos. Rewrite Rminus_distr. Rewrite Rmult_1r; Unfold Rdiv; Rewrite <- Rmult_assoc; Rewrite Rminus_distr. Rewrite Rmult_1r; Rewrite exp_plus; Reflexivity. -Qed.
\ No newline at end of file +Qed. |