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

Theorem wallispi 44301
Description: Wallis' formula for π : Wallis' product converges to π / 2 . (Contributed by Glauco Siliprandi, 29-Jun-2017.)
Hypotheses
Ref Expression
wallispi.1 𝐹 = (𝑘 ∈ ℕ ↦ (((2 · 𝑘) / ((2 · 𝑘) − 1)) · ((2 · 𝑘) / ((2 · 𝑘) + 1))))
wallispi.2 𝑊 = (𝑛 ∈ ℕ ↦ (seq1( · , 𝐹)‘𝑛))
Assertion
Ref Expression
wallispi 𝑊 ⇝ (π / 2)
Distinct variable groups:   𝑘,𝑛   𝑛,𝐹
Allowed substitution hints:   𝐹(𝑘)   𝑊(𝑘,𝑛)

Proof of Theorem wallispi
Dummy variables 𝑗 𝑤 𝑥 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 nnuz 12806 . . . 4 ℕ = (ℤ‘1)
2 1zzd 12534 . . . 4 (⊤ → 1 ∈ ℤ)
3 wallispi.1 . . . . . . . 8 𝐹 = (𝑘 ∈ ℕ ↦ (((2 · 𝑘) / ((2 · 𝑘) − 1)) · ((2 · 𝑘) / ((2 · 𝑘) + 1))))
4 eqid 2736 . . . . . . . 8 (𝑛 ∈ ℕ0 ↦ ∫(0(,)π)((sin‘𝑥)↑𝑛) d𝑥) = (𝑛 ∈ ℕ0 ↦ ∫(0(,)π)((sin‘𝑥)↑𝑛) d𝑥)
5 eqid 2736 . . . . . . . 8 (𝑛 ∈ ℕ ↦ (((𝑛 ∈ ℕ0 ↦ ∫(0(,)π)((sin‘𝑥)↑𝑛) d𝑥)‘(2 · 𝑛)) / ((𝑛 ∈ ℕ0 ↦ ∫(0(,)π)((sin‘𝑥)↑𝑛) d𝑥)‘((2 · 𝑛) + 1)))) = (𝑛 ∈ ℕ ↦ (((𝑛 ∈ ℕ0 ↦ ∫(0(,)π)((sin‘𝑥)↑𝑛) d𝑥)‘(2 · 𝑛)) / ((𝑛 ∈ ℕ0 ↦ ∫(0(,)π)((sin‘𝑥)↑𝑛) d𝑥)‘((2 · 𝑛) + 1))))
6 eqid 2736 . . . . . . . 8 (𝑛 ∈ ℕ ↦ ((π / 2) · (1 / (seq1( · , 𝐹)‘𝑛)))) = (𝑛 ∈ ℕ ↦ ((π / 2) · (1 / (seq1( · , 𝐹)‘𝑛))))
7 eqid 2736 . . . . . . . 8 (𝑛 ∈ ℕ ↦ (((2 · 𝑛) + 1) / (2 · 𝑛))) = (𝑛 ∈ ℕ ↦ (((2 · 𝑛) + 1) / (2 · 𝑛)))
83, 4, 5, 6, 7wallispilem5 44300 . . . . . . 7 (𝑛 ∈ ℕ ↦ ((π / 2) · (1 / (seq1( · , 𝐹)‘𝑛)))) ⇝ 1
98a1i 11 . . . . . 6 (⊤ → (𝑛 ∈ ℕ ↦ ((π / 2) · (1 / (seq1( · , 𝐹)‘𝑛)))) ⇝ 1)
10 2cnd 12231 . . . . . . 7 (⊤ → 2 ∈ ℂ)
11 picn 25816 . . . . . . . 8 π ∈ ℂ
1211a1i 11 . . . . . . 7 (⊤ → π ∈ ℂ)
13 pire 25815 . . . . . . . . 9 π ∈ ℝ
14 pipos 25817 . . . . . . . . 9 0 < π
1513, 14gt0ne0ii 11691 . . . . . . . 8 π ≠ 0
1615a1i 11 . . . . . . 7 (⊤ → π ≠ 0)
1710, 12, 16divcld 11931 . . . . . 6 (⊤ → (2 / π) ∈ ℂ)
18 nnex 12159 . . . . . . . 8 ℕ ∈ V
1918mptex 7173 . . . . . . 7 (𝑛 ∈ ℕ ↦ (1 / (seq1( · , 𝐹)‘𝑛))) ∈ V
2019a1i 11 . . . . . 6 (⊤ → (𝑛 ∈ ℕ ↦ (1 / (seq1( · , 𝐹)‘𝑛))) ∈ V)
2111a1i 11 . . . . . . . . . . 11 (𝑛 ∈ ℕ → π ∈ ℂ)
2221halfcld 12398 . . . . . . . . . 10 (𝑛 ∈ ℕ → (π / 2) ∈ ℂ)
23 elnnuz 12807 . . . . . . . . . . . . . 14 (𝑛 ∈ ℕ ↔ 𝑛 ∈ (ℤ‘1))
2423biimpi 215 . . . . . . . . . . . . 13 (𝑛 ∈ ℕ → 𝑛 ∈ (ℤ‘1))
25 oveq2 7365 . . . . . . . . . . . . . . . . . 18 (𝑘 = 𝑗 → (2 · 𝑘) = (2 · 𝑗))
2625oveq1d 7372 . . . . . . . . . . . . . . . . . 18 (𝑘 = 𝑗 → ((2 · 𝑘) − 1) = ((2 · 𝑗) − 1))
2725, 26oveq12d 7375 . . . . . . . . . . . . . . . . 17 (𝑘 = 𝑗 → ((2 · 𝑘) / ((2 · 𝑘) − 1)) = ((2 · 𝑗) / ((2 · 𝑗) − 1)))
2825oveq1d 7372 . . . . . . . . . . . . . . . . . 18 (𝑘 = 𝑗 → ((2 · 𝑘) + 1) = ((2 · 𝑗) + 1))
2925, 28oveq12d 7375 . . . . . . . . . . . . . . . . 17 (𝑘 = 𝑗 → ((2 · 𝑘) / ((2 · 𝑘) + 1)) = ((2 · 𝑗) / ((2 · 𝑗) + 1)))
3027, 29oveq12d 7375 . . . . . . . . . . . . . . . 16 (𝑘 = 𝑗 → (((2 · 𝑘) / ((2 · 𝑘) − 1)) · ((2 · 𝑘) / ((2 · 𝑘) + 1))) = (((2 · 𝑗) / ((2 · 𝑗) − 1)) · ((2 · 𝑗) / ((2 · 𝑗) + 1))))
31 elfznn 13470 . . . . . . . . . . . . . . . 16 (𝑗 ∈ (1...𝑛) → 𝑗 ∈ ℕ)
32 2cnd 12231 . . . . . . . . . . . . . . . . . . . 20 (𝑗 ∈ ℕ → 2 ∈ ℂ)
33 nncn 12161 . . . . . . . . . . . . . . . . . . . 20 (𝑗 ∈ ℕ → 𝑗 ∈ ℂ)
3432, 33mulcld 11175 . . . . . . . . . . . . . . . . . . 19 (𝑗 ∈ ℕ → (2 · 𝑗) ∈ ℂ)
35 1cnd 11150 . . . . . . . . . . . . . . . . . . . 20 (𝑗 ∈ ℕ → 1 ∈ ℂ)
3634, 35subcld 11512 . . . . . . . . . . . . . . . . . . 19 (𝑗 ∈ ℕ → ((2 · 𝑗) − 1) ∈ ℂ)
37 1red 11156 . . . . . . . . . . . . . . . . . . . . 21 (𝑗 ∈ ℕ → 1 ∈ ℝ)
38 1t1e1 12315 . . . . . . . . . . . . . . . . . . . . . 22 (1 · 1) = 1
3937, 37remulcld 11185 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑗 ∈ ℕ → (1 · 1) ∈ ℝ)
40 2re 12227 . . . . . . . . . . . . . . . . . . . . . . . . 25 2 ∈ ℝ
4140a1i 11 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑗 ∈ ℕ → 2 ∈ ℝ)
4241, 37remulcld 11185 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑗 ∈ ℕ → (2 · 1) ∈ ℝ)
43 nnre 12160 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑗 ∈ ℕ → 𝑗 ∈ ℝ)
4441, 43remulcld 11185 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑗 ∈ ℕ → (2 · 𝑗) ∈ ℝ)
45 1rp 12919 . . . . . . . . . . . . . . . . . . . . . . . . 25 1 ∈ ℝ+
4645a1i 11 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑗 ∈ ℕ → 1 ∈ ℝ+)
47 1lt2 12324 . . . . . . . . . . . . . . . . . . . . . . . . 25 1 < 2
4847a1i 11 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑗 ∈ ℕ → 1 < 2)
4937, 41, 46, 48ltmul1dd 13012 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑗 ∈ ℕ → (1 · 1) < (2 · 1))
50 0le2 12255 . . . . . . . . . . . . . . . . . . . . . . . . 25 0 ≤ 2
5150a1i 11 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑗 ∈ ℕ → 0 ≤ 2)
52 nnge1 12181 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑗 ∈ ℕ → 1 ≤ 𝑗)
5337, 43, 41, 51, 52lemul2ad 12095 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑗 ∈ ℕ → (2 · 1) ≤ (2 · 𝑗))
5439, 42, 44, 49, 53ltletrd 11315 . . . . . . . . . . . . . . . . . . . . . 22 (𝑗 ∈ ℕ → (1 · 1) < (2 · 𝑗))
5538, 54eqbrtrrid 5141 . . . . . . . . . . . . . . . . . . . . 21 (𝑗 ∈ ℕ → 1 < (2 · 𝑗))
5637, 55gtned 11290 . . . . . . . . . . . . . . . . . . . 20 (𝑗 ∈ ℕ → (2 · 𝑗) ≠ 1)
5734, 35, 56subne0d 11521 . . . . . . . . . . . . . . . . . . 19 (𝑗 ∈ ℕ → ((2 · 𝑗) − 1) ≠ 0)
5834, 36, 57divcld 11931 . . . . . . . . . . . . . . . . . 18 (𝑗 ∈ ℕ → ((2 · 𝑗) / ((2 · 𝑗) − 1)) ∈ ℂ)
5934, 35addcld 11174 . . . . . . . . . . . . . . . . . . 19 (𝑗 ∈ ℕ → ((2 · 𝑗) + 1) ∈ ℂ)
60 0red 11158 . . . . . . . . . . . . . . . . . . . 20 (𝑗 ∈ ℕ → 0 ∈ ℝ)
6144, 37readdcld 11184 . . . . . . . . . . . . . . . . . . . . 21 (𝑗 ∈ ℕ → ((2 · 𝑗) + 1) ∈ ℝ)
6246rpgt0d 12960 . . . . . . . . . . . . . . . . . . . . 21 (𝑗 ∈ ℕ → 0 < 1)
63 2rp 12920 . . . . . . . . . . . . . . . . . . . . . . . 24 2 ∈ ℝ+
6463a1i 11 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑗 ∈ ℕ → 2 ∈ ℝ+)
65 nnrp 12926 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑗 ∈ ℕ → 𝑗 ∈ ℝ+)
6664, 65rpmulcld 12973 . . . . . . . . . . . . . . . . . . . . . 22 (𝑗 ∈ ℕ → (2 · 𝑗) ∈ ℝ+)
6737, 66ltaddrp2d 12991 . . . . . . . . . . . . . . . . . . . . 21 (𝑗 ∈ ℕ → 1 < ((2 · 𝑗) + 1))
6860, 37, 61, 62, 67lttrd 11316 . . . . . . . . . . . . . . . . . . . 20 (𝑗 ∈ ℕ → 0 < ((2 · 𝑗) + 1))
6960, 68gtned 11290 . . . . . . . . . . . . . . . . . . 19 (𝑗 ∈ ℕ → ((2 · 𝑗) + 1) ≠ 0)
7034, 59, 69divcld 11931 . . . . . . . . . . . . . . . . . 18 (𝑗 ∈ ℕ → ((2 · 𝑗) / ((2 · 𝑗) + 1)) ∈ ℂ)
7158, 70mulcld 11175 . . . . . . . . . . . . . . . . 17 (𝑗 ∈ ℕ → (((2 · 𝑗) / ((2 · 𝑗) − 1)) · ((2 · 𝑗) / ((2 · 𝑗) + 1))) ∈ ℂ)
7231, 71syl 17 . . . . . . . . . . . . . . . 16 (𝑗 ∈ (1...𝑛) → (((2 · 𝑗) / ((2 · 𝑗) − 1)) · ((2 · 𝑗) / ((2 · 𝑗) + 1))) ∈ ℂ)
733, 30, 31, 72fvmptd3 6971 . . . . . . . . . . . . . . 15 (𝑗 ∈ (1...𝑛) → (𝐹𝑗) = (((2 · 𝑗) / ((2 · 𝑗) − 1)) · ((2 · 𝑗) / ((2 · 𝑗) + 1))))
7463a1i 11 . . . . . . . . . . . . . . . . . 18 (𝑗 ∈ (1...𝑛) → 2 ∈ ℝ+)
7531nnrpd 12955 . . . . . . . . . . . . . . . . . 18 (𝑗 ∈ (1...𝑛) → 𝑗 ∈ ℝ+)
7674, 75rpmulcld 12973 . . . . . . . . . . . . . . . . 17 (𝑗 ∈ (1...𝑛) → (2 · 𝑗) ∈ ℝ+)
7744, 37resubcld 11583 . . . . . . . . . . . . . . . . . . 19 (𝑗 ∈ ℕ → ((2 · 𝑗) − 1) ∈ ℝ)
78 1m1e0 12225 . . . . . . . . . . . . . . . . . . . 20 (1 − 1) = 0
7937, 44, 37, 55ltsub1dd 11767 . . . . . . . . . . . . . . . . . . . 20 (𝑗 ∈ ℕ → (1 − 1) < ((2 · 𝑗) − 1))
8078, 79eqbrtrrid 5141 . . . . . . . . . . . . . . . . . . 19 (𝑗 ∈ ℕ → 0 < ((2 · 𝑗) − 1))
8177, 80elrpd 12954 . . . . . . . . . . . . . . . . . 18 (𝑗 ∈ ℕ → ((2 · 𝑗) − 1) ∈ ℝ+)
8231, 81syl 17 . . . . . . . . . . . . . . . . 17 (𝑗 ∈ (1...𝑛) → ((2 · 𝑗) − 1) ∈ ℝ+)
8376, 82rpdivcld 12974 . . . . . . . . . . . . . . . 16 (𝑗 ∈ (1...𝑛) → ((2 · 𝑗) / ((2 · 𝑗) − 1)) ∈ ℝ+)
8440a1i 11 . . . . . . . . . . . . . . . . . . 19 (𝑗 ∈ (1...𝑛) → 2 ∈ ℝ)
8531nnred 12168 . . . . . . . . . . . . . . . . . . 19 (𝑗 ∈ (1...𝑛) → 𝑗 ∈ ℝ)
8684, 85remulcld 11185 . . . . . . . . . . . . . . . . . 18 (𝑗 ∈ (1...𝑛) → (2 · 𝑗) ∈ ℝ)
8774rpge0d 12961 . . . . . . . . . . . . . . . . . . 19 (𝑗 ∈ (1...𝑛) → 0 ≤ 2)
8875rpge0d 12961 . . . . . . . . . . . . . . . . . . 19 (𝑗 ∈ (1...𝑛) → 0 ≤ 𝑗)
8984, 85, 87, 88mulge0d 11732 . . . . . . . . . . . . . . . . . 18 (𝑗 ∈ (1...𝑛) → 0 ≤ (2 · 𝑗))
9086, 89ge0p1rpd 12987 . . . . . . . . . . . . . . . . 17 (𝑗 ∈ (1...𝑛) → ((2 · 𝑗) + 1) ∈ ℝ+)
9176, 90rpdivcld 12974 . . . . . . . . . . . . . . . 16 (𝑗 ∈ (1...𝑛) → ((2 · 𝑗) / ((2 · 𝑗) + 1)) ∈ ℝ+)
9283, 91rpmulcld 12973 . . . . . . . . . . . . . . 15 (𝑗 ∈ (1...𝑛) → (((2 · 𝑗) / ((2 · 𝑗) − 1)) · ((2 · 𝑗) / ((2 · 𝑗) + 1))) ∈ ℝ+)
9373, 92eqeltrd 2838 . . . . . . . . . . . . . 14 (𝑗 ∈ (1...𝑛) → (𝐹𝑗) ∈ ℝ+)
9493adantl 482 . . . . . . . . . . . . 13 ((𝑛 ∈ ℕ ∧ 𝑗 ∈ (1...𝑛)) → (𝐹𝑗) ∈ ℝ+)
95 rpmulcl 12938 . . . . . . . . . . . . . 14 ((𝑗 ∈ ℝ+𝑤 ∈ ℝ+) → (𝑗 · 𝑤) ∈ ℝ+)
9695adantl 482 . . . . . . . . . . . . 13 ((𝑛 ∈ ℕ ∧ (𝑗 ∈ ℝ+𝑤 ∈ ℝ+)) → (𝑗 · 𝑤) ∈ ℝ+)
9724, 94, 96seqcl 13928 . . . . . . . . . . . 12 (𝑛 ∈ ℕ → (seq1( · , 𝐹)‘𝑛) ∈ ℝ+)
9897rpcnd 12959 . . . . . . . . . . 11 (𝑛 ∈ ℕ → (seq1( · , 𝐹)‘𝑛) ∈ ℂ)
9997rpne0d 12962 . . . . . . . . . . 11 (𝑛 ∈ ℕ → (seq1( · , 𝐹)‘𝑛) ≠ 0)
10098, 99reccld 11924 . . . . . . . . . 10 (𝑛 ∈ ℕ → (1 / (seq1( · , 𝐹)‘𝑛)) ∈ ℂ)
10122, 100mulcld 11175 . . . . . . . . 9 (𝑛 ∈ ℕ → ((π / 2) · (1 / (seq1( · , 𝐹)‘𝑛))) ∈ ℂ)
1026, 101fmpti 7060 . . . . . . . 8 (𝑛 ∈ ℕ ↦ ((π / 2) · (1 / (seq1( · , 𝐹)‘𝑛)))):ℕ⟶ℂ
103102a1i 11 . . . . . . 7 (⊤ → (𝑛 ∈ ℕ ↦ ((π / 2) · (1 / (seq1( · , 𝐹)‘𝑛)))):ℕ⟶ℂ)
104103ffvelcdmda 7035 . . . . . 6 ((⊤ ∧ 𝑗 ∈ ℕ) → ((𝑛 ∈ ℕ ↦ ((π / 2) · (1 / (seq1( · , 𝐹)‘𝑛))))‘𝑗) ∈ ℂ)
105 fveq2 6842 . . . . . . . . . . . . 13 (𝑛 = 𝑗 → (seq1( · , 𝐹)‘𝑛) = (seq1( · , 𝐹)‘𝑗))
106105eleq1d 2822 . . . . . . . . . . . 12 (𝑛 = 𝑗 → ((seq1( · , 𝐹)‘𝑛) ∈ ℝ+ ↔ (seq1( · , 𝐹)‘𝑗) ∈ ℝ+))
107106, 97vtoclga 3534 . . . . . . . . . . 11 (𝑗 ∈ ℕ → (seq1( · , 𝐹)‘𝑗) ∈ ℝ+)
108107rpcnd 12959 . . . . . . . . . 10 (𝑗 ∈ ℕ → (seq1( · , 𝐹)‘𝑗) ∈ ℂ)
109107rpne0d 12962 . . . . . . . . . 10 (𝑗 ∈ ℕ → (seq1( · , 𝐹)‘𝑗) ≠ 0)
11035, 108, 109divrecd 11934 . . . . . . . . 9 (𝑗 ∈ ℕ → (1 / (seq1( · , 𝐹)‘𝑗)) = (1 · (1 / (seq1( · , 𝐹)‘𝑗))))
11111a1i 11 . . . . . . . . . . . 12 (𝑗 ∈ ℕ → π ∈ ℂ)
11264rpne0d 12962 . . . . . . . . . . . 12 (𝑗 ∈ ℕ → 2 ≠ 0)
11315a1i 11 . . . . . . . . . . . 12 (𝑗 ∈ ℕ → π ≠ 0)
11432, 111, 112, 113divcan6d 11950 . . . . . . . . . . 11 (𝑗 ∈ ℕ → ((2 / π) · (π / 2)) = 1)
115114eqcomd 2742 . . . . . . . . . 10 (𝑗 ∈ ℕ → 1 = ((2 / π) · (π / 2)))
116115oveq1d 7372 . . . . . . . . 9 (𝑗 ∈ ℕ → (1 · (1 / (seq1( · , 𝐹)‘𝑗))) = (((2 / π) · (π / 2)) · (1 / (seq1( · , 𝐹)‘𝑗))))
11732, 111, 113divcld 11931 . . . . . . . . . 10 (𝑗 ∈ ℕ → (2 / π) ∈ ℂ)
118111halfcld 12398 . . . . . . . . . 10 (𝑗 ∈ ℕ → (π / 2) ∈ ℂ)
119108, 109reccld 11924 . . . . . . . . . 10 (𝑗 ∈ ℕ → (1 / (seq1( · , 𝐹)‘𝑗)) ∈ ℂ)
120117, 118, 119mulassd 11178 . . . . . . . . 9 (𝑗 ∈ ℕ → (((2 / π) · (π / 2)) · (1 / (seq1( · , 𝐹)‘𝑗))) = ((2 / π) · ((π / 2) · (1 / (seq1( · , 𝐹)‘𝑗)))))
121110, 116, 1203eqtrd 2780 . . . . . . . 8 (𝑗 ∈ ℕ → (1 / (seq1( · , 𝐹)‘𝑗)) = ((2 / π) · ((π / 2) · (1 / (seq1( · , 𝐹)‘𝑗)))))
122 eqidd 2737 . . . . . . . . 9 (𝑗 ∈ ℕ → (𝑛 ∈ ℕ ↦ (1 / (seq1( · , 𝐹)‘𝑛))) = (𝑛 ∈ ℕ ↦ (1 / (seq1( · , 𝐹)‘𝑛))))
123105oveq2d 7373 . . . . . . . . . 10 (𝑛 = 𝑗 → (1 / (seq1( · , 𝐹)‘𝑛)) = (1 / (seq1( · , 𝐹)‘𝑗)))
124123adantl 482 . . . . . . . . 9 ((𝑗 ∈ ℕ ∧ 𝑛 = 𝑗) → (1 / (seq1( · , 𝐹)‘𝑛)) = (1 / (seq1( · , 𝐹)‘𝑗)))
125 id 22 . . . . . . . . 9 (𝑗 ∈ ℕ → 𝑗 ∈ ℕ)
126107rpreccld 12967 . . . . . . . . 9 (𝑗 ∈ ℕ → (1 / (seq1( · , 𝐹)‘𝑗)) ∈ ℝ+)
127122, 124, 125, 126fvmptd 6955 . . . . . . . 8 (𝑗 ∈ ℕ → ((𝑛 ∈ ℕ ↦ (1 / (seq1( · , 𝐹)‘𝑛)))‘𝑗) = (1 / (seq1( · , 𝐹)‘𝑗)))
128 eqidd 2737 . . . . . . . . . 10 (𝑗 ∈ ℕ → (𝑛 ∈ ℕ ↦ ((π / 2) · (1 / (seq1( · , 𝐹)‘𝑛)))) = (𝑛 ∈ ℕ ↦ ((π / 2) · (1 / (seq1( · , 𝐹)‘𝑛)))))
129124oveq2d 7373 . . . . . . . . . 10 ((𝑗 ∈ ℕ ∧ 𝑛 = 𝑗) → ((π / 2) · (1 / (seq1( · , 𝐹)‘𝑛))) = ((π / 2) · (1 / (seq1( · , 𝐹)‘𝑗))))
130118, 119mulcld 11175 . . . . . . . . . 10 (𝑗 ∈ ℕ → ((π / 2) · (1 / (seq1( · , 𝐹)‘𝑗))) ∈ ℂ)
131128, 129, 125, 130fvmptd 6955 . . . . . . . . 9 (𝑗 ∈ ℕ → ((𝑛 ∈ ℕ ↦ ((π / 2) · (1 / (seq1( · , 𝐹)‘𝑛))))‘𝑗) = ((π / 2) · (1 / (seq1( · , 𝐹)‘𝑗))))
132131oveq2d 7373 . . . . . . . 8 (𝑗 ∈ ℕ → ((2 / π) · ((𝑛 ∈ ℕ ↦ ((π / 2) · (1 / (seq1( · , 𝐹)‘𝑛))))‘𝑗)) = ((2 / π) · ((π / 2) · (1 / (seq1( · , 𝐹)‘𝑗)))))
133121, 127, 1323eqtr4d 2786 . . . . . . 7 (𝑗 ∈ ℕ → ((𝑛 ∈ ℕ ↦ (1 / (seq1( · , 𝐹)‘𝑛)))‘𝑗) = ((2 / π) · ((𝑛 ∈ ℕ ↦ ((π / 2) · (1 / (seq1( · , 𝐹)‘𝑛))))‘𝑗)))
134133adantl 482 . . . . . 6 ((⊤ ∧ 𝑗 ∈ ℕ) → ((𝑛 ∈ ℕ ↦ (1 / (seq1( · , 𝐹)‘𝑛)))‘𝑗) = ((2 / π) · ((𝑛 ∈ ℕ ↦ ((π / 2) · (1 / (seq1( · , 𝐹)‘𝑛))))‘𝑗)))
1351, 2, 9, 17, 20, 104, 134climmulc2 15519 . . . . 5 (⊤ → (𝑛 ∈ ℕ ↦ (1 / (seq1( · , 𝐹)‘𝑛))) ⇝ ((2 / π) · 1))
136 2cn 12228 . . . . . . 7 2 ∈ ℂ
137136, 11, 15divcli 11897 . . . . . 6 (2 / π) ∈ ℂ
138137mulid1i 11159 . . . . 5 ((2 / π) · 1) = (2 / π)
139135, 138breqtrdi 5146 . . . 4 (⊤ → (𝑛 ∈ ℕ ↦ (1 / (seq1( · , 𝐹)‘𝑛))) ⇝ (2 / π))
140 2ne0 12257 . . . . . 6 2 ≠ 0
141136, 11, 140, 15divne0i 11903 . . . . 5 (2 / π) ≠ 0
142141a1i 11 . . . 4 (⊤ → (2 / π) ≠ 0)
143127, 119eqeltrd 2838 . . . . . 6 (𝑗 ∈ ℕ → ((𝑛 ∈ ℕ ↦ (1 / (seq1( · , 𝐹)‘𝑛)))‘𝑗) ∈ ℂ)
144108, 109recne0d 11925 . . . . . . . 8 (𝑗 ∈ ℕ → (1 / (seq1( · , 𝐹)‘𝑗)) ≠ 0)
145127, 144eqnetrd 3011 . . . . . . 7 (𝑗 ∈ ℕ → ((𝑛 ∈ ℕ ↦ (1 / (seq1( · , 𝐹)‘𝑛)))‘𝑗) ≠ 0)
146 nelsn 4626 . . . . . . 7 (((𝑛 ∈ ℕ ↦ (1 / (seq1( · , 𝐹)‘𝑛)))‘𝑗) ≠ 0 → ¬ ((𝑛 ∈ ℕ ↦ (1 / (seq1( · , 𝐹)‘𝑛)))‘𝑗) ∈ {0})
147145, 146syl 17 . . . . . 6 (𝑗 ∈ ℕ → ¬ ((𝑛 ∈ ℕ ↦ (1 / (seq1( · , 𝐹)‘𝑛)))‘𝑗) ∈ {0})
148143, 147eldifd 3921 . . . . 5 (𝑗 ∈ ℕ → ((𝑛 ∈ ℕ ↦ (1 / (seq1( · , 𝐹)‘𝑛)))‘𝑗) ∈ (ℂ ∖ {0}))
149148adantl 482 . . . 4 ((⊤ ∧ 𝑗 ∈ ℕ) → ((𝑛 ∈ ℕ ↦ (1 / (seq1( · , 𝐹)‘𝑛)))‘𝑗) ∈ (ℂ ∖ {0}))
150108, 109recrecd 11928 . . . . . 6 (𝑗 ∈ ℕ → (1 / (1 / (seq1( · , 𝐹)‘𝑗))) = (seq1( · , 𝐹)‘𝑗))
151122, 124, 125, 119fvmptd 6955 . . . . . . 7 (𝑗 ∈ ℕ → ((𝑛 ∈ ℕ ↦ (1 / (seq1( · , 𝐹)‘𝑛)))‘𝑗) = (1 / (seq1( · , 𝐹)‘𝑗)))
152151oveq2d 7373 . . . . . 6 (𝑗 ∈ ℕ → (1 / ((𝑛 ∈ ℕ ↦ (1 / (seq1( · , 𝐹)‘𝑛)))‘𝑗)) = (1 / (1 / (seq1( · , 𝐹)‘𝑗))))
153 wallispi.2 . . . . . . 7 𝑊 = (𝑛 ∈ ℕ ↦ (seq1( · , 𝐹)‘𝑛))
154105, 153, 97fvmpt3 6952 . . . . . 6 (𝑗 ∈ ℕ → (𝑊𝑗) = (seq1( · , 𝐹)‘𝑗))
155150, 152, 1543eqtr4rd 2787 . . . . 5 (𝑗 ∈ ℕ → (𝑊𝑗) = (1 / ((𝑛 ∈ ℕ ↦ (1 / (seq1( · , 𝐹)‘𝑛)))‘𝑗)))
156155adantl 482 . . . 4 ((⊤ ∧ 𝑗 ∈ ℕ) → (𝑊𝑗) = (1 / ((𝑛 ∈ ℕ ↦ (1 / (seq1( · , 𝐹)‘𝑛)))‘𝑗)))
15718mptex 7173 . . . . . 6 (𝑛 ∈ ℕ ↦ (seq1( · , 𝐹)‘𝑛)) ∈ V
158153, 157eqeltri 2834 . . . . 5 𝑊 ∈ V
159158a1i 11 . . . 4 (⊤ → 𝑊 ∈ V)
1601, 2, 139, 142, 149, 156, 159climrec 43834 . . 3 (⊤ → 𝑊 ⇝ (1 / (2 / π)))
161160mptru 1548 . 2 𝑊 ⇝ (1 / (2 / π))
162 recdiv 11861 . . 3 (((2 ∈ ℂ ∧ 2 ≠ 0) ∧ (π ∈ ℂ ∧ π ≠ 0)) → (1 / (2 / π)) = (π / 2))
163136, 140, 11, 15, 162mp4an 691 . 2 (1 / (2 / π)) = (π / 2)
164161, 163breqtri 5130 1 𝑊 ⇝ (π / 2)
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wa 396   = wceq 1541  wtru 1542  wcel 2106  wne 2943  Vcvv 3445  cdif 3907  {csn 4586   class class class wbr 5105  cmpt 5188  wf 6492  cfv 6496  (class class class)co 7357  cc 11049  cr 11050  0cc0 11051  1c1 11052   + caddc 11054   · cmul 11056   < clt 11189  cle 11190  cmin 11385   / cdiv 11812  cn 12153  2c2 12208  0cn0 12413  cuz 12763  +crp 12915  (,)cioo 13264  ...cfz 13424  seqcseq 13906  cexp 13967  cli 15366  sincsin 15946  πcpi 15949  citg 24982
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-11 2154  ax-12 2171  ax-ext 2707  ax-rep 5242  ax-sep 5256  ax-nul 5263  ax-pow 5320  ax-pr 5384  ax-un 7672  ax-inf2 9577  ax-cc 10371  ax-cnex 11107  ax-resscn 11108  ax-1cn 11109  ax-icn 11110  ax-addcl 11111  ax-addrcl 11112  ax-mulcl 11113  ax-mulrcl 11114  ax-mulcom 11115  ax-addass 11116  ax-mulass 11117  ax-distr 11118  ax-i2m1 11119  ax-1ne0 11120  ax-1rid 11121  ax-rnegex 11122  ax-rrecex 11123  ax-cnre 11124  ax-pre-lttri 11125  ax-pre-lttrn 11126  ax-pre-ltadd 11127  ax-pre-mulgt0 11128  ax-pre-sup 11129  ax-addf 11130  ax-mulf 11131
This theorem depends on definitions:  df-bi 206  df-an 397  df-or 846  df-3or 1088  df-3an 1089  df-tru 1544  df-fal 1554  df-ex 1782  df-nf 1786  df-sb 2068  df-mo 2538  df-eu 2567  df-clab 2714  df-cleq 2728  df-clel 2814  df-nfc 2889  df-ne 2944  df-nel 3050  df-ral 3065  df-rex 3074  df-rmo 3353  df-reu 3354  df-rab 3408  df-v 3447  df-sbc 3740  df-csb 3856  df-dif 3913  df-un 3915  df-in 3917  df-ss 3927  df-pss 3929  df-symdif 4202  df-nul 4283  df-if 4487  df-pw 4562  df-sn 4587  df-pr 4589  df-tp 4591  df-op 4593  df-uni 4866  df-int 4908  df-iun 4956  df-iin 4957  df-disj 5071  df-br 5106  df-opab 5168  df-mpt 5189  df-tr 5223  df-id 5531  df-eprel 5537  df-po 5545  df-so 5546  df-fr 5588  df-se 5589  df-we 5590  df-xp 5639  df-rel 5640  df-cnv 5641  df-co 5642  df-dm 5643  df-rn 5644  df-res 5645  df-ima 5646  df-pred 6253  df-ord 6320  df-on 6321  df-lim 6322  df-suc 6323  df-iota 6448  df-fun 6498  df-fn 6499  df-f 6500  df-f1 6501  df-fo 6502  df-f1o 6503  df-fv 6504  df-isom 6505  df-riota 7313  df-ov 7360  df-oprab 7361  df-mpo 7362  df-of 7617  df-ofr 7618  df-om 7803  df-1st 7921  df-2nd 7922  df-supp 8093  df-frecs 8212  df-wrecs 8243  df-recs 8317  df-rdg 8356  df-1o 8412  df-2o 8413  df-oadd 8416  df-omul 8417  df-er 8648  df-map 8767  df-pm 8768  df-ixp 8836  df-en 8884  df-dom 8885  df-sdom 8886  df-fin 8887  df-fsupp 9306  df-fi 9347  df-sup 9378  df-inf 9379  df-oi 9446  df-dju 9837  df-card 9875  df-acn 9878  df-pnf 11191  df-mnf 11192  df-xr 11193  df-ltxr 11194  df-le 11195  df-sub 11387  df-neg 11388  df-div 11813  df-nn 12154  df-2 12216  df-3 12217  df-4 12218  df-5 12219  df-6 12220  df-7 12221  df-8 12222  df-9 12223  df-n0 12414  df-z 12500  df-dec 12619  df-uz 12764  df-q 12874  df-rp 12916  df-xneg 13033  df-xadd 13034  df-xmul 13035  df-ioo 13268  df-ioc 13269  df-ico 13270  df-icc 13271  df-fz 13425  df-fzo 13568  df-fl 13697  df-mod 13775  df-seq 13907  df-exp 13968  df-fac 14174  df-bc 14203  df-hash 14231  df-shft 14952  df-cj 14984  df-re 14985  df-im 14986  df-sqrt 15120  df-abs 15121  df-limsup 15353  df-clim 15370  df-rlim 15371  df-sum 15571  df-ef 15950  df-sin 15952  df-cos 15953  df-pi 15955  df-struct 17019  df-sets 17036  df-slot 17054  df-ndx 17066  df-base 17084  df-ress 17113  df-plusg 17146  df-mulr 17147  df-starv 17148  df-sca 17149  df-vsca 17150  df-ip 17151  df-tset 17152  df-ple 17153  df-ds 17155  df-unif 17156  df-hom 17157  df-cco 17158  df-rest 17304  df-topn 17305  df-0g 17323  df-gsum 17324  df-topgen 17325  df-pt 17326  df-prds 17329  df-xrs 17384  df-qtop 17389  df-imas 17390  df-xps 17392  df-mre 17466  df-mrc 17467  df-acs 17469  df-mgm 18497  df-sgrp 18546  df-mnd 18557  df-submnd 18602  df-mulg 18873  df-cntz 19097  df-cmn 19564  df-psmet 20788  df-xmet 20789  df-met 20790  df-bl 20791  df-mopn 20792  df-fbas 20793  df-fg 20794  df-cnfld 20797  df-top 22243  df-topon 22260  df-topsp 22282  df-bases 22296  df-cld 22370  df-ntr 22371  df-cls 22372  df-nei 22449  df-lp 22487  df-perf 22488  df-cn 22578  df-cnp 22579  df-haus 22666  df-cmp 22738  df-tx 22913  df-hmeo 23106  df-fil 23197  df-fm 23289  df-flim 23290  df-flf 23291  df-xms 23673  df-ms 23674  df-tms 23675  df-cncf 24241  df-ovol 24828  df-vol 24829  df-mbf 24983  df-itg1 24984  df-itg2 24985  df-ibl 24986  df-itg 24987  df-0p 25034  df-limc 25230  df-dv 25231
This theorem is referenced by:  wallispi2  44304
  Copyright terms: Public domain W3C validator