Users' Mathboxes Mathbox for Glauco Siliprandi < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  wallispi2 Structured version   Visualization version   GIF version

Theorem wallispi2 42448
Description: An alternative version of Wallis' formula for π ; this second formula uses factorials and it is later used to prove Stirling's approximation formula. (Contributed by Glauco Siliprandi, 29-Jun-2017.)
Hypothesis
Ref Expression
wallispi2.1 𝑉 = (𝑛 ∈ ℕ ↦ ((((2↑(4 · 𝑛)) · ((!‘𝑛)↑4)) / ((!‘(2 · 𝑛))↑2)) / ((2 · 𝑛) + 1)))
Assertion
Ref Expression
wallispi2 𝑉 ⇝ (π / 2)

Proof of Theorem wallispi2
Dummy variables 𝑘 𝑚 𝑤 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 eqid 2821 . 2 (𝑘 ∈ ℕ ↦ (((2 · 𝑘) / ((2 · 𝑘) − 1)) · ((2 · 𝑘) / ((2 · 𝑘) + 1)))) = (𝑘 ∈ ℕ ↦ (((2 · 𝑘) / ((2 · 𝑘) − 1)) · ((2 · 𝑘) / ((2 · 𝑘) + 1))))
2 1cnd 10622 . . . . . 6 (𝑛 ∈ ℕ → 1 ∈ ℂ)
3 2cnd 11702 . . . . . . . 8 (𝑛 ∈ ℕ → 2 ∈ ℂ)
4 nncn 11632 . . . . . . . 8 (𝑛 ∈ ℕ → 𝑛 ∈ ℂ)
53, 4mulcld 10647 . . . . . . 7 (𝑛 ∈ ℕ → (2 · 𝑛) ∈ ℂ)
65, 2addcld 10646 . . . . . 6 (𝑛 ∈ ℕ → ((2 · 𝑛) + 1) ∈ ℂ)
7 elnnuz 12269 . . . . . . . 8 (𝑛 ∈ ℕ ↔ 𝑛 ∈ (ℤ‘1))
87biimpi 218 . . . . . . 7 (𝑛 ∈ ℕ → 𝑛 ∈ (ℤ‘1))
9 eqidd 2822 . . . . . . . . . 10 (𝑚 ∈ (1...𝑛) → (𝑘 ∈ ℕ ↦ (((2 · 𝑘)↑4) / (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2))) = (𝑘 ∈ ℕ ↦ (((2 · 𝑘)↑4) / (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2))))
10 simpr 487 . . . . . . . . . . . . 13 ((𝑚 ∈ (1...𝑛) ∧ 𝑘 = 𝑚) → 𝑘 = 𝑚)
1110oveq2d 7158 . . . . . . . . . . . 12 ((𝑚 ∈ (1...𝑛) ∧ 𝑘 = 𝑚) → (2 · 𝑘) = (2 · 𝑚))
1211oveq1d 7157 . . . . . . . . . . 11 ((𝑚 ∈ (1...𝑛) ∧ 𝑘 = 𝑚) → ((2 · 𝑘)↑4) = ((2 · 𝑚)↑4))
1311oveq1d 7157 . . . . . . . . . . . . 13 ((𝑚 ∈ (1...𝑛) ∧ 𝑘 = 𝑚) → ((2 · 𝑘) − 1) = ((2 · 𝑚) − 1))
1411, 13oveq12d 7160 . . . . . . . . . . . 12 ((𝑚 ∈ (1...𝑛) ∧ 𝑘 = 𝑚) → ((2 · 𝑘) · ((2 · 𝑘) − 1)) = ((2 · 𝑚) · ((2 · 𝑚) − 1)))
1514oveq1d 7157 . . . . . . . . . . 11 ((𝑚 ∈ (1...𝑛) ∧ 𝑘 = 𝑚) → (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2) = (((2 · 𝑚) · ((2 · 𝑚) − 1))↑2))
1612, 15oveq12d 7160 . . . . . . . . . 10 ((𝑚 ∈ (1...𝑛) ∧ 𝑘 = 𝑚) → (((2 · 𝑘)↑4) / (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2)) = (((2 · 𝑚)↑4) / (((2 · 𝑚) · ((2 · 𝑚) − 1))↑2)))
17 elfznn 12926 . . . . . . . . . 10 (𝑚 ∈ (1...𝑛) → 𝑚 ∈ ℕ)
18 2cnd 11702 . . . . . . . . . . . . 13 (𝑚 ∈ (1...𝑛) → 2 ∈ ℂ)
1917nncnd 11640 . . . . . . . . . . . . 13 (𝑚 ∈ (1...𝑛) → 𝑚 ∈ ℂ)
2018, 19mulcld 10647 . . . . . . . . . . . 12 (𝑚 ∈ (1...𝑛) → (2 · 𝑚) ∈ ℂ)
21 4nn0 11903 . . . . . . . . . . . . 13 4 ∈ ℕ0
2221a1i 11 . . . . . . . . . . . 12 (𝑚 ∈ (1...𝑛) → 4 ∈ ℕ0)
2320, 22expcld 13500 . . . . . . . . . . 11 (𝑚 ∈ (1...𝑛) → ((2 · 𝑚)↑4) ∈ ℂ)
24 1cnd 10622 . . . . . . . . . . . . . 14 (𝑚 ∈ (1...𝑛) → 1 ∈ ℂ)
2520, 24subcld 10983 . . . . . . . . . . . . 13 (𝑚 ∈ (1...𝑛) → ((2 · 𝑚) − 1) ∈ ℂ)
2620, 25mulcld 10647 . . . . . . . . . . . 12 (𝑚 ∈ (1...𝑛) → ((2 · 𝑚) · ((2 · 𝑚) − 1)) ∈ ℂ)
2726sqcld 13498 . . . . . . . . . . 11 (𝑚 ∈ (1...𝑛) → (((2 · 𝑚) · ((2 · 𝑚) − 1))↑2) ∈ ℂ)
28 2ne0 11728 . . . . . . . . . . . . . . 15 2 ≠ 0
2928a1i 11 . . . . . . . . . . . . . 14 (𝑚 ∈ (1...𝑛) → 2 ≠ 0)
3017nnne0d 11674 . . . . . . . . . . . . . 14 (𝑚 ∈ (1...𝑛) → 𝑚 ≠ 0)
3118, 19, 29, 30mulne0d 11278 . . . . . . . . . . . . 13 (𝑚 ∈ (1...𝑛) → (2 · 𝑚) ≠ 0)
32 1red 10628 . . . . . . . . . . . . . . 15 (𝑚 ∈ (1...𝑛) → 1 ∈ ℝ)
33 2re 11698 . . . . . . . . . . . . . . . . . 18 2 ∈ ℝ
3433a1i 11 . . . . . . . . . . . . . . . . 17 (𝑚 ∈ (1...𝑛) → 2 ∈ ℝ)
3534, 32remulcld 10657 . . . . . . . . . . . . . . . 16 (𝑚 ∈ (1...𝑛) → (2 · 1) ∈ ℝ)
3617nnred 11639 . . . . . . . . . . . . . . . . 17 (𝑚 ∈ (1...𝑛) → 𝑚 ∈ ℝ)
3734, 36remulcld 10657 . . . . . . . . . . . . . . . 16 (𝑚 ∈ (1...𝑛) → (2 · 𝑚) ∈ ℝ)
38 1lt2 11795 . . . . . . . . . . . . . . . . . 18 1 < 2
3938a1i 11 . . . . . . . . . . . . . . . . 17 (𝑚 ∈ (1...𝑛) → 1 < 2)
40 2t1e2 11787 . . . . . . . . . . . . . . . . 17 (2 · 1) = 2
4139, 40breqtrrdi 5094 . . . . . . . . . . . . . . . 16 (𝑚 ∈ (1...𝑛) → 1 < (2 · 1))
42 0le2 11726 . . . . . . . . . . . . . . . . . 18 0 ≤ 2
4342a1i 11 . . . . . . . . . . . . . . . . 17 (𝑚 ∈ (1...𝑛) → 0 ≤ 2)
44 elfzle1 12900 . . . . . . . . . . . . . . . . 17 (𝑚 ∈ (1...𝑛) → 1 ≤ 𝑚)
4532, 36, 34, 43, 44lemul2ad 11566 . . . . . . . . . . . . . . . 16 (𝑚 ∈ (1...𝑛) → (2 · 1) ≤ (2 · 𝑚))
4632, 35, 37, 41, 45ltletrd 10786 . . . . . . . . . . . . . . 15 (𝑚 ∈ (1...𝑛) → 1 < (2 · 𝑚))
4732, 46gtned 10761 . . . . . . . . . . . . . 14 (𝑚 ∈ (1...𝑛) → (2 · 𝑚) ≠ 1)
4820, 24, 47subne0d 10992 . . . . . . . . . . . . 13 (𝑚 ∈ (1...𝑛) → ((2 · 𝑚) − 1) ≠ 0)
4920, 25, 31, 48mulne0d 11278 . . . . . . . . . . . 12 (𝑚 ∈ (1...𝑛) → ((2 · 𝑚) · ((2 · 𝑚) − 1)) ≠ 0)
50 2z 12001 . . . . . . . . . . . . 13 2 ∈ ℤ
5150a1i 11 . . . . . . . . . . . 12 (𝑚 ∈ (1...𝑛) → 2 ∈ ℤ)
5226, 49, 51expne0d 13506 . . . . . . . . . . 11 (𝑚 ∈ (1...𝑛) → (((2 · 𝑚) · ((2 · 𝑚) − 1))↑2) ≠ 0)
5323, 27, 52divcld 11402 . . . . . . . . . 10 (𝑚 ∈ (1...𝑛) → (((2 · 𝑚)↑4) / (((2 · 𝑚) · ((2 · 𝑚) − 1))↑2)) ∈ ℂ)
549, 16, 17, 53fvmptd 6761 . . . . . . . . 9 (𝑚 ∈ (1...𝑛) → ((𝑘 ∈ ℕ ↦ (((2 · 𝑘)↑4) / (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2)))‘𝑚) = (((2 · 𝑚)↑4) / (((2 · 𝑚) · ((2 · 𝑚) − 1))↑2)))
5554, 53eqeltrd 2913 . . . . . . . 8 (𝑚 ∈ (1...𝑛) → ((𝑘 ∈ ℕ ↦ (((2 · 𝑘)↑4) / (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2)))‘𝑚) ∈ ℂ)
5655adantl 484 . . . . . . 7 ((𝑛 ∈ ℕ ∧ 𝑚 ∈ (1...𝑛)) → ((𝑘 ∈ ℕ ↦ (((2 · 𝑘)↑4) / (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2)))‘𝑚) ∈ ℂ)
57 mulcl 10607 . . . . . . . 8 ((𝑚 ∈ ℂ ∧ 𝑤 ∈ ℂ) → (𝑚 · 𝑤) ∈ ℂ)
5857adantl 484 . . . . . . 7 ((𝑛 ∈ ℕ ∧ (𝑚 ∈ ℂ ∧ 𝑤 ∈ ℂ)) → (𝑚 · 𝑤) ∈ ℂ)
598, 56, 58seqcl 13380 . . . . . 6 (𝑛 ∈ ℕ → (seq1( · , (𝑘 ∈ ℕ ↦ (((2 · 𝑘)↑4) / (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2))))‘𝑛) ∈ ℂ)
60 2nn 11697 . . . . . . . . . 10 2 ∈ ℕ
6160a1i 11 . . . . . . . . 9 (𝑛 ∈ ℕ → 2 ∈ ℕ)
62 id 22 . . . . . . . . 9 (𝑛 ∈ ℕ → 𝑛 ∈ ℕ)
6361, 62nnmulcld 11677 . . . . . . . 8 (𝑛 ∈ ℕ → (2 · 𝑛) ∈ ℕ)
6463peano2nnd 11641 . . . . . . 7 (𝑛 ∈ ℕ → ((2 · 𝑛) + 1) ∈ ℕ)
6564nnne0d 11674 . . . . . 6 (𝑛 ∈ ℕ → ((2 · 𝑛) + 1) ≠ 0)
662, 6, 59, 65div32d 11425 . . . . 5 (𝑛 ∈ ℕ → ((1 / ((2 · 𝑛) + 1)) · (seq1( · , (𝑘 ∈ ℕ ↦ (((2 · 𝑘)↑4) / (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2))))‘𝑛)) = (1 · ((seq1( · , (𝑘 ∈ ℕ ↦ (((2 · 𝑘)↑4) / (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2))))‘𝑛) / ((2 · 𝑛) + 1))))
6759, 6, 65divcld 11402 . . . . . 6 (𝑛 ∈ ℕ → ((seq1( · , (𝑘 ∈ ℕ ↦ (((2 · 𝑘)↑4) / (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2))))‘𝑛) / ((2 · 𝑛) + 1)) ∈ ℂ)
6867mulid2d 10645 . . . . 5 (𝑛 ∈ ℕ → (1 · ((seq1( · , (𝑘 ∈ ℕ ↦ (((2 · 𝑘)↑4) / (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2))))‘𝑛) / ((2 · 𝑛) + 1))) = ((seq1( · , (𝑘 ∈ ℕ ↦ (((2 · 𝑘)↑4) / (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2))))‘𝑛) / ((2 · 𝑛) + 1)))
69 wallispi2lem2 42447 . . . . . 6 (𝑛 ∈ ℕ → (seq1( · , (𝑘 ∈ ℕ ↦ (((2 · 𝑘)↑4) / (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2))))‘𝑛) = (((2↑(4 · 𝑛)) · ((!‘𝑛)↑4)) / ((!‘(2 · 𝑛))↑2)))
7069oveq1d 7157 . . . . 5 (𝑛 ∈ ℕ → ((seq1( · , (𝑘 ∈ ℕ ↦ (((2 · 𝑘)↑4) / (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2))))‘𝑛) / ((2 · 𝑛) + 1)) = ((((2↑(4 · 𝑛)) · ((!‘𝑛)↑4)) / ((!‘(2 · 𝑛))↑2)) / ((2 · 𝑛) + 1)))
7166, 68, 703eqtrd 2860 . . . 4 (𝑛 ∈ ℕ → ((1 / ((2 · 𝑛) + 1)) · (seq1( · , (𝑘 ∈ ℕ ↦ (((2 · 𝑘)↑4) / (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2))))‘𝑛)) = ((((2↑(4 · 𝑛)) · ((!‘𝑛)↑4)) / ((!‘(2 · 𝑛))↑2)) / ((2 · 𝑛) + 1)))
7271mpteq2ia 5143 . . 3 (𝑛 ∈ ℕ ↦ ((1 / ((2 · 𝑛) + 1)) · (seq1( · , (𝑘 ∈ ℕ ↦ (((2 · 𝑘)↑4) / (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2))))‘𝑛))) = (𝑛 ∈ ℕ ↦ ((((2↑(4 · 𝑛)) · ((!‘𝑛)↑4)) / ((!‘(2 · 𝑛))↑2)) / ((2 · 𝑛) + 1)))
73 wallispi2lem1 42446 . . . 4 (𝑛 ∈ ℕ → (seq1( · , (𝑘 ∈ ℕ ↦ (((2 · 𝑘) / ((2 · 𝑘) − 1)) · ((2 · 𝑘) / ((2 · 𝑘) + 1)))))‘𝑛) = ((1 / ((2 · 𝑛) + 1)) · (seq1( · , (𝑘 ∈ ℕ ↦ (((2 · 𝑘)↑4) / (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2))))‘𝑛)))
7473mpteq2ia 5143 . . 3 (𝑛 ∈ ℕ ↦ (seq1( · , (𝑘 ∈ ℕ ↦ (((2 · 𝑘) / ((2 · 𝑘) − 1)) · ((2 · 𝑘) / ((2 · 𝑘) + 1)))))‘𝑛)) = (𝑛 ∈ ℕ ↦ ((1 / ((2 · 𝑛) + 1)) · (seq1( · , (𝑘 ∈ ℕ ↦ (((2 · 𝑘)↑4) / (((2 · 𝑘) · ((2 · 𝑘) − 1))↑2))))‘𝑛)))
75 wallispi2.1 . . 3 𝑉 = (𝑛 ∈ ℕ ↦ ((((2↑(4 · 𝑛)) · ((!‘𝑛)↑4)) / ((!‘(2 · 𝑛))↑2)) / ((2 · 𝑛) + 1)))
7672, 74, 753eqtr4ri 2855 . 2 𝑉 = (𝑛 ∈ ℕ ↦ (seq1( · , (𝑘 ∈ ℕ ↦ (((2 · 𝑘) / ((2 · 𝑘) − 1)) · ((2 · 𝑘) / ((2 · 𝑘) + 1)))))‘𝑛))
771, 76wallispi 42445 1 𝑉 ⇝ (π / 2)
Colors of variables: wff setvar class
Syntax hints:  wa 398   = wceq 1537  wcel 2114  wne 3016   class class class wbr 5052  cmpt 5132  cfv 6341  (class class class)co 7142  cc 10521  cr 10522  0cc0 10523  1c1 10524   + caddc 10526   · cmul 10528   < clt 10661  cle 10662  cmin 10856   / cdiv 11283  cn 11624  2c2 11679  4c4 11681  0cn0 11884  cz 11968  cuz 12230  ...cfz 12882  seqcseq 13359  cexp 13419  !cfa 13623  cli 14826  πcpi 15405
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1911  ax-6 1970  ax-7 2015  ax-8 2116  ax-9 2124  ax-10 2145  ax-11 2161  ax-12 2177  ax-ext 2793  ax-rep 5176  ax-sep 5189  ax-nul 5196  ax-pow 5252  ax-pr 5316  ax-un 7447  ax-inf2 9090  ax-cc 9843  ax-cnex 10579  ax-resscn 10580  ax-1cn 10581  ax-icn 10582  ax-addcl 10583  ax-addrcl 10584  ax-mulcl 10585  ax-mulrcl 10586  ax-mulcom 10587  ax-addass 10588  ax-mulass 10589  ax-distr 10590  ax-i2m1 10591  ax-1ne0 10592  ax-1rid 10593  ax-rnegex 10594  ax-rrecex 10595  ax-cnre 10596  ax-pre-lttri 10597  ax-pre-lttrn 10598  ax-pre-ltadd 10599  ax-pre-mulgt0 10600  ax-pre-sup 10601  ax-addf 10602  ax-mulf 10603
This theorem depends on definitions:  df-bi 209  df-an 399  df-or 844  df-3or 1084  df-3an 1085  df-tru 1540  df-fal 1550  df-ex 1781  df-nf 1785  df-sb 2070  df-mo 2622  df-eu 2654  df-clab 2800  df-cleq 2814  df-clel 2893  df-nfc 2963  df-ne 3017  df-nel 3124  df-ral 3143  df-rex 3144  df-reu 3145  df-rmo 3146  df-rab 3147  df-v 3488  df-sbc 3764  df-csb 3872  df-dif 3927  df-un 3929  df-in 3931  df-ss 3940  df-pss 3942  df-symdif 4207  df-nul 4280  df-if 4454  df-pw 4527  df-sn 4554  df-pr 4556  df-tp 4558  df-op 4560  df-uni 4825  df-int 4863  df-iun 4907  df-iin 4908  df-disj 5018  df-br 5053  df-opab 5115  df-mpt 5133  df-tr 5159  df-id 5446  df-eprel 5451  df-po 5460  df-so 5461  df-fr 5500  df-se 5501  df-we 5502  df-xp 5547  df-rel 5548  df-cnv 5549  df-co 5550  df-dm 5551  df-rn 5552  df-res 5553  df-ima 5554  df-pred 6134  df-ord 6180  df-on 6181  df-lim 6182  df-suc 6183  df-iota 6300  df-fun 6343  df-fn 6344  df-f 6345  df-f1 6346  df-fo 6347  df-f1o 6348  df-fv 6349  df-isom 6350  df-riota 7100  df-ov 7145  df-oprab 7146  df-mpo 7147  df-of 7395  df-ofr 7396  df-om 7567  df-1st 7675  df-2nd 7676  df-supp 7817  df-wrecs 7933  df-recs 7994  df-rdg 8032  df-1o 8088  df-2o 8089  df-oadd 8092  df-omul 8093  df-er 8275  df-map 8394  df-pm 8395  df-ixp 8448  df-en 8496  df-dom 8497  df-sdom 8498  df-fin 8499  df-fsupp 8820  df-fi 8861  df-sup 8892  df-inf 8893  df-oi 8960  df-dju 9316  df-card 9354  df-acn 9357  df-pnf 10663  df-mnf 10664  df-xr 10665  df-ltxr 10666  df-le 10667  df-sub 10858  df-neg 10859  df-div 11284  df-nn 11625  df-2 11687  df-3 11688  df-4 11689  df-5 11690  df-6 11691  df-7 11692  df-8 11693  df-9 11694  df-n0 11885  df-z 11969  df-dec 12086  df-uz 12231  df-q 12336  df-rp 12377  df-xneg 12494  df-xadd 12495  df-xmul 12496  df-ioo 12729  df-ioc 12730  df-ico 12731  df-icc 12732  df-fz 12883  df-fzo 13024  df-fl 13152  df-mod 13228  df-seq 13360  df-exp 13420  df-fac 13624  df-bc 13653  df-hash 13681  df-shft 14411  df-cj 14443  df-re 14444  df-im 14445  df-sqrt 14579  df-abs 14580  df-limsup 14813  df-clim 14830  df-rlim 14831  df-sum 15028  df-ef 15406  df-sin 15408  df-cos 15409  df-pi 15411  df-struct 16468  df-ndx 16469  df-slot 16470  df-base 16472  df-sets 16473  df-ress 16474  df-plusg 16561  df-mulr 16562  df-starv 16563  df-sca 16564  df-vsca 16565  df-ip 16566  df-tset 16567  df-ple 16568  df-ds 16570  df-unif 16571  df-hom 16572  df-cco 16573  df-rest 16679  df-topn 16680  df-0g 16698  df-gsum 16699  df-topgen 16700  df-pt 16701  df-prds 16704  df-xrs 16758  df-qtop 16763  df-imas 16764  df-xps 16766  df-mre 16840  df-mrc 16841  df-acs 16843  df-mgm 17835  df-sgrp 17884  df-mnd 17895  df-submnd 17940  df-mulg 18208  df-cntz 18430  df-cmn 18891  df-psmet 20520  df-xmet 20521  df-met 20522  df-bl 20523  df-mopn 20524  df-fbas 20525  df-fg 20526  df-cnfld 20529  df-top 21485  df-topon 21502  df-topsp 21524  df-bases 21537  df-cld 21610  df-ntr 21611  df-cls 21612  df-nei 21689  df-lp 21727  df-perf 21728  df-cn 21818  df-cnp 21819  df-haus 21906  df-cmp 21978  df-tx 22153  df-hmeo 22346  df-fil 22437  df-fm 22529  df-flim 22530  df-flf 22531  df-xms 22913  df-ms 22914  df-tms 22915  df-cncf 23469  df-ovol 24048  df-vol 24049  df-mbf 24203  df-itg1 24204  df-itg2 24205  df-ibl 24206  df-itg 24207  df-0p 24254  df-limc 24449  df-dv 24450
This theorem is referenced by:  stirlinglem15  42463
  Copyright terms: Public domain W3C validator