diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-05-14 00:20:23 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-05-14 00:20:23 +0000 |
| commit | 1d748962b08463031759552252e5fcf250fc530a (patch) | |
| tree | f6a30746cb5f6798eac3baae24ae6bba5028a65e /theories/Reals/Rtrigo_reg.v | |
| parent | dda304e136bc43aae6714dc773aaa48330716ba9 (diff) | |
Suppression de 'R' dans la notation == entre
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4016 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories/Reals/Rtrigo_reg.v')
| -rw-r--r-- | theories/Reals/Rtrigo_reg.v | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/theories/Reals/Rtrigo_reg.v b/theories/Reals/Rtrigo_reg.v index adb1aea4c..389fc04f2 100644 --- a/theories/Reals/Rtrigo_reg.v +++ b/theories/Reals/Rtrigo_reg.v @@ -18,7 +18,7 @@ V7only [Import R_scope.]. Open Local Scope R_scope. Lemma CVN_R_cos : (fn:nat->R->R) (fn == [N:nat][x:R]``(pow (-1) N)/(INR (fact (mult (S (S O)) N)))*(pow x (mult (S (S O)) N))``) -> (CVN_R fn). Unfold CVN_R; Intros. -Cut ``r<>0``. +Cut (r::R)<>``0``. Intro hyp_r; Unfold CVN_r. Apply Specif.existT with [n:nat]``/(INR (fact (mult (S (S O)) n)))*(pow r (mult (S (S O)) n))``. Cut (SigT ? [l:R](Un_cv [n:nat](sum_f_R0 [k:nat](Rabsolu ``/(INR (fact (mult (S (S O)) k)))*(pow r (mult (S (S O)) k))``) n) l)). @@ -169,7 +169,7 @@ Left; Apply H1. Rewrite <- Pow_Rabsolu; Apply pow_maj_Rabs. Rewrite Rabsolu_Rabsolu; Unfold Boule in H0; Rewrite minus_R0 in H0; Left; Apply H0. Apply Rlt_Rinv; Apply INR_fact_lt_0. -Cut ``r<>0``. +Cut (r::R)<>``0``. Intro; Apply Alembert_C2. Intro; Apply Rabsolu_no_R0. Apply prod_neq_R0. |