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

Theorem stirlinglem5 44780
Description: If 𝑇 is between 0 and 1, then a series (without alternating negative and positive terms) is given that converges to log((1+T)/(1-T)). (Contributed by Glauco Siliprandi, 29-Jun-2017.)
Hypotheses
Ref Expression
stirlinglem5.1 𝐷 = (𝑗 ∈ β„• ↦ ((-1↑(𝑗 βˆ’ 1)) Β· ((𝑇↑𝑗) / 𝑗)))
stirlinglem5.2 𝐸 = (𝑗 ∈ β„• ↦ ((𝑇↑𝑗) / 𝑗))
stirlinglem5.3 𝐹 = (𝑗 ∈ β„• ↦ (((-1↑(𝑗 βˆ’ 1)) Β· ((𝑇↑𝑗) / 𝑗)) + ((𝑇↑𝑗) / 𝑗)))
stirlinglem5.4 𝐻 = (𝑗 ∈ β„•0 ↦ (2 Β· ((1 / ((2 Β· 𝑗) + 1)) Β· (𝑇↑((2 Β· 𝑗) + 1)))))
stirlinglem5.5 𝐺 = (𝑗 ∈ β„•0 ↦ ((2 Β· 𝑗) + 1))
stirlinglem5.6 (πœ‘ β†’ 𝑇 ∈ ℝ+)
stirlinglem5.7 (πœ‘ β†’ (absβ€˜π‘‡) < 1)
Assertion
Ref Expression
stirlinglem5 (πœ‘ β†’ seq0( + , 𝐻) ⇝ (logβ€˜((1 + 𝑇) / (1 βˆ’ 𝑇))))
Distinct variable groups:   πœ‘,𝑗   𝑇,𝑗
Allowed substitution hints:   𝐷(𝑗)   𝐸(𝑗)   𝐹(𝑗)   𝐺(𝑗)   𝐻(𝑗)

Proof of Theorem stirlinglem5
Dummy variables 𝑖 π‘˜ 𝑛 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 nnuz 12861 . . . . 5 β„• = (β„€β‰₯β€˜1)
2 1zzd 12589 . . . . 5 (πœ‘ β†’ 1 ∈ β„€)
3 stirlinglem5.1 . . . . . . . . 9 𝐷 = (𝑗 ∈ β„• ↦ ((-1↑(𝑗 βˆ’ 1)) Β· ((𝑇↑𝑗) / 𝑗)))
43a1i 11 . . . . . . . 8 (πœ‘ β†’ 𝐷 = (𝑗 ∈ β„• ↦ ((-1↑(𝑗 βˆ’ 1)) Β· ((𝑇↑𝑗) / 𝑗))))
5 1cnd 11205 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑗 ∈ β„•) β†’ 1 ∈ β„‚)
65negcld 11554 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑗 ∈ β„•) β†’ -1 ∈ β„‚)
7 nnm1nn0 12509 . . . . . . . . . . . . 13 (𝑗 ∈ β„• β†’ (𝑗 βˆ’ 1) ∈ β„•0)
87adantl 482 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑗 ∈ β„•) β†’ (𝑗 βˆ’ 1) ∈ β„•0)
96, 8expcld 14107 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑗 ∈ β„•) β†’ (-1↑(𝑗 βˆ’ 1)) ∈ β„‚)
10 nncn 12216 . . . . . . . . . . . 12 (𝑗 ∈ β„• β†’ 𝑗 ∈ β„‚)
1110adantl 482 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑗 ∈ β„•) β†’ 𝑗 ∈ β„‚)
12 stirlinglem5.6 . . . . . . . . . . . . . . 15 (πœ‘ β†’ 𝑇 ∈ ℝ+)
1312rpred 13012 . . . . . . . . . . . . . 14 (πœ‘ β†’ 𝑇 ∈ ℝ)
1413recnd 11238 . . . . . . . . . . . . 13 (πœ‘ β†’ 𝑇 ∈ β„‚)
1514adantr 481 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑗 ∈ β„•) β†’ 𝑇 ∈ β„‚)
16 nnnn0 12475 . . . . . . . . . . . . 13 (𝑗 ∈ β„• β†’ 𝑗 ∈ β„•0)
1716adantl 482 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑗 ∈ β„•) β†’ 𝑗 ∈ β„•0)
1815, 17expcld 14107 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑗 ∈ β„•) β†’ (𝑇↑𝑗) ∈ β„‚)
19 nnne0 12242 . . . . . . . . . . . 12 (𝑗 ∈ β„• β†’ 𝑗 β‰  0)
2019adantl 482 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑗 ∈ β„•) β†’ 𝑗 β‰  0)
219, 11, 18, 20div32d 12009 . . . . . . . . . 10 ((πœ‘ ∧ 𝑗 ∈ β„•) β†’ (((-1↑(𝑗 βˆ’ 1)) / 𝑗) Β· (𝑇↑𝑗)) = ((-1↑(𝑗 βˆ’ 1)) Β· ((𝑇↑𝑗) / 𝑗)))
225, 15pncan2d 11569 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑗 ∈ β„•) β†’ ((1 + 𝑇) βˆ’ 1) = 𝑇)
2322eqcomd 2738 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑗 ∈ β„•) β†’ 𝑇 = ((1 + 𝑇) βˆ’ 1))
2423oveq1d 7420 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑗 ∈ β„•) β†’ (𝑇↑𝑗) = (((1 + 𝑇) βˆ’ 1)↑𝑗))
2524oveq2d 7421 . . . . . . . . . 10 ((πœ‘ ∧ 𝑗 ∈ β„•) β†’ (((-1↑(𝑗 βˆ’ 1)) / 𝑗) Β· (𝑇↑𝑗)) = (((-1↑(𝑗 βˆ’ 1)) / 𝑗) Β· (((1 + 𝑇) βˆ’ 1)↑𝑗)))
2621, 25eqtr3d 2774 . . . . . . . . 9 ((πœ‘ ∧ 𝑗 ∈ β„•) β†’ ((-1↑(𝑗 βˆ’ 1)) Β· ((𝑇↑𝑗) / 𝑗)) = (((-1↑(𝑗 βˆ’ 1)) / 𝑗) Β· (((1 + 𝑇) βˆ’ 1)↑𝑗)))
2726mpteq2dva 5247 . . . . . . . 8 (πœ‘ β†’ (𝑗 ∈ β„• ↦ ((-1↑(𝑗 βˆ’ 1)) Β· ((𝑇↑𝑗) / 𝑗))) = (𝑗 ∈ β„• ↦ (((-1↑(𝑗 βˆ’ 1)) / 𝑗) Β· (((1 + 𝑇) βˆ’ 1)↑𝑗))))
284, 27eqtrd 2772 . . . . . . 7 (πœ‘ β†’ 𝐷 = (𝑗 ∈ β„• ↦ (((-1↑(𝑗 βˆ’ 1)) / 𝑗) Β· (((1 + 𝑇) βˆ’ 1)↑𝑗))))
2928seqeq3d 13970 . . . . . 6 (πœ‘ β†’ seq1( + , 𝐷) = seq1( + , (𝑗 ∈ β„• ↦ (((-1↑(𝑗 βˆ’ 1)) / 𝑗) Β· (((1 + 𝑇) βˆ’ 1)↑𝑗)))))
30 1cnd 11205 . . . . . . . . . 10 (πœ‘ β†’ 1 ∈ β„‚)
3130, 14addcld 11229 . . . . . . . . . 10 (πœ‘ β†’ (1 + 𝑇) ∈ β„‚)
32 eqid 2732 . . . . . . . . . . 11 (abs ∘ βˆ’ ) = (abs ∘ βˆ’ )
3332cnmetdval 24278 . . . . . . . . . 10 ((1 ∈ β„‚ ∧ (1 + 𝑇) ∈ β„‚) β†’ (1(abs ∘ βˆ’ )(1 + 𝑇)) = (absβ€˜(1 βˆ’ (1 + 𝑇))))
3430, 31, 33syl2anc 584 . . . . . . . . 9 (πœ‘ β†’ (1(abs ∘ βˆ’ )(1 + 𝑇)) = (absβ€˜(1 βˆ’ (1 + 𝑇))))
35 1m1e0 12280 . . . . . . . . . . . . . 14 (1 βˆ’ 1) = 0
3635a1i 11 . . . . . . . . . . . . 13 (πœ‘ β†’ (1 βˆ’ 1) = 0)
3736oveq1d 7420 . . . . . . . . . . . 12 (πœ‘ β†’ ((1 βˆ’ 1) βˆ’ 𝑇) = (0 βˆ’ 𝑇))
3830, 30, 14subsub4d 11598 . . . . . . . . . . . 12 (πœ‘ β†’ ((1 βˆ’ 1) βˆ’ 𝑇) = (1 βˆ’ (1 + 𝑇)))
39 df-neg 11443 . . . . . . . . . . . . . 14 -𝑇 = (0 βˆ’ 𝑇)
4039eqcomi 2741 . . . . . . . . . . . . 13 (0 βˆ’ 𝑇) = -𝑇
4140a1i 11 . . . . . . . . . . . 12 (πœ‘ β†’ (0 βˆ’ 𝑇) = -𝑇)
4237, 38, 413eqtr3d 2780 . . . . . . . . . . 11 (πœ‘ β†’ (1 βˆ’ (1 + 𝑇)) = -𝑇)
4342fveq2d 6892 . . . . . . . . . 10 (πœ‘ β†’ (absβ€˜(1 βˆ’ (1 + 𝑇))) = (absβ€˜-𝑇))
4414absnegd 15392 . . . . . . . . . . 11 (πœ‘ β†’ (absβ€˜-𝑇) = (absβ€˜π‘‡))
45 stirlinglem5.7 . . . . . . . . . . 11 (πœ‘ β†’ (absβ€˜π‘‡) < 1)
4644, 45eqbrtrd 5169 . . . . . . . . . 10 (πœ‘ β†’ (absβ€˜-𝑇) < 1)
4743, 46eqbrtrd 5169 . . . . . . . . 9 (πœ‘ β†’ (absβ€˜(1 βˆ’ (1 + 𝑇))) < 1)
4834, 47eqbrtrd 5169 . . . . . . . 8 (πœ‘ β†’ (1(abs ∘ βˆ’ )(1 + 𝑇)) < 1)
49 cnxmet 24280 . . . . . . . . . 10 (abs ∘ βˆ’ ) ∈ (∞Metβ€˜β„‚)
5049a1i 11 . . . . . . . . 9 (πœ‘ β†’ (abs ∘ βˆ’ ) ∈ (∞Metβ€˜β„‚))
51 1red 11211 . . . . . . . . . 10 (πœ‘ β†’ 1 ∈ ℝ)
5251rexrd 11260 . . . . . . . . 9 (πœ‘ β†’ 1 ∈ ℝ*)
53 elbl2 23887 . . . . . . . . 9 ((((abs ∘ βˆ’ ) ∈ (∞Metβ€˜β„‚) ∧ 1 ∈ ℝ*) ∧ (1 ∈ β„‚ ∧ (1 + 𝑇) ∈ β„‚)) β†’ ((1 + 𝑇) ∈ (1(ballβ€˜(abs ∘ βˆ’ ))1) ↔ (1(abs ∘ βˆ’ )(1 + 𝑇)) < 1))
5450, 52, 30, 31, 53syl22anc 837 . . . . . . . 8 (πœ‘ β†’ ((1 + 𝑇) ∈ (1(ballβ€˜(abs ∘ βˆ’ ))1) ↔ (1(abs ∘ βˆ’ )(1 + 𝑇)) < 1))
5548, 54mpbird 256 . . . . . . 7 (πœ‘ β†’ (1 + 𝑇) ∈ (1(ballβ€˜(abs ∘ βˆ’ ))1))
56 eqid 2732 . . . . . . . 8 (1(ballβ€˜(abs ∘ βˆ’ ))1) = (1(ballβ€˜(abs ∘ βˆ’ ))1)
5756logtayl2 26161 . . . . . . 7 ((1 + 𝑇) ∈ (1(ballβ€˜(abs ∘ βˆ’ ))1) β†’ seq1( + , (𝑗 ∈ β„• ↦ (((-1↑(𝑗 βˆ’ 1)) / 𝑗) Β· (((1 + 𝑇) βˆ’ 1)↑𝑗)))) ⇝ (logβ€˜(1 + 𝑇)))
5855, 57syl 17 . . . . . 6 (πœ‘ β†’ seq1( + , (𝑗 ∈ β„• ↦ (((-1↑(𝑗 βˆ’ 1)) / 𝑗) Β· (((1 + 𝑇) βˆ’ 1)↑𝑗)))) ⇝ (logβ€˜(1 + 𝑇)))
5929, 58eqbrtrd 5169 . . . . 5 (πœ‘ β†’ seq1( + , 𝐷) ⇝ (logβ€˜(1 + 𝑇)))
60 seqex 13964 . . . . . 6 seq1( + , 𝐹) ∈ V
6160a1i 11 . . . . 5 (πœ‘ β†’ seq1( + , 𝐹) ∈ V)
62 stirlinglem5.2 . . . . . . . 8 𝐸 = (𝑗 ∈ β„• ↦ ((𝑇↑𝑗) / 𝑗))
6362a1i 11 . . . . . . 7 (πœ‘ β†’ 𝐸 = (𝑗 ∈ β„• ↦ ((𝑇↑𝑗) / 𝑗)))
6463seqeq3d 13970 . . . . . 6 (πœ‘ β†’ seq1( + , 𝐸) = seq1( + , (𝑗 ∈ β„• ↦ ((𝑇↑𝑗) / 𝑗))))
65 logtayl 26159 . . . . . . 7 ((𝑇 ∈ β„‚ ∧ (absβ€˜π‘‡) < 1) β†’ seq1( + , (𝑗 ∈ β„• ↦ ((𝑇↑𝑗) / 𝑗))) ⇝ -(logβ€˜(1 βˆ’ 𝑇)))
6614, 45, 65syl2anc 584 . . . . . 6 (πœ‘ β†’ seq1( + , (𝑗 ∈ β„• ↦ ((𝑇↑𝑗) / 𝑗))) ⇝ -(logβ€˜(1 βˆ’ 𝑇)))
6764, 66eqbrtrd 5169 . . . . 5 (πœ‘ β†’ seq1( + , 𝐸) ⇝ -(logβ€˜(1 βˆ’ 𝑇)))
68 simpr 485 . . . . . . 7 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ π‘˜ ∈ β„•)
6968, 1eleqtrdi 2843 . . . . . 6 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ π‘˜ ∈ (β„€β‰₯β€˜1))
70 oveq1 7412 . . . . . . . . . 10 (𝑗 = 𝑛 β†’ (𝑗 βˆ’ 1) = (𝑛 βˆ’ 1))
7170oveq2d 7421 . . . . . . . . 9 (𝑗 = 𝑛 β†’ (-1↑(𝑗 βˆ’ 1)) = (-1↑(𝑛 βˆ’ 1)))
72 oveq2 7413 . . . . . . . . . 10 (𝑗 = 𝑛 β†’ (𝑇↑𝑗) = (𝑇↑𝑛))
73 id 22 . . . . . . . . . 10 (𝑗 = 𝑛 β†’ 𝑗 = 𝑛)
7472, 73oveq12d 7423 . . . . . . . . 9 (𝑗 = 𝑛 β†’ ((𝑇↑𝑗) / 𝑗) = ((𝑇↑𝑛) / 𝑛))
7571, 74oveq12d 7423 . . . . . . . 8 (𝑗 = 𝑛 β†’ ((-1↑(𝑗 βˆ’ 1)) Β· ((𝑇↑𝑗) / 𝑗)) = ((-1↑(𝑛 βˆ’ 1)) Β· ((𝑇↑𝑛) / 𝑛)))
76 elfznn 13526 . . . . . . . . 9 (𝑛 ∈ (1...π‘˜) β†’ 𝑛 ∈ β„•)
7776adantl 482 . . . . . . . 8 (((πœ‘ ∧ π‘˜ ∈ β„•) ∧ 𝑛 ∈ (1...π‘˜)) β†’ 𝑛 ∈ β„•)
78 1cnd 11205 . . . . . . . . . . . 12 (𝑛 ∈ β„• β†’ 1 ∈ β„‚)
7978negcld 11554 . . . . . . . . . . 11 (𝑛 ∈ β„• β†’ -1 ∈ β„‚)
80 nnm1nn0 12509 . . . . . . . . . . 11 (𝑛 ∈ β„• β†’ (𝑛 βˆ’ 1) ∈ β„•0)
8179, 80expcld 14107 . . . . . . . . . 10 (𝑛 ∈ β„• β†’ (-1↑(𝑛 βˆ’ 1)) ∈ β„‚)
8277, 81syl 17 . . . . . . . . 9 (((πœ‘ ∧ π‘˜ ∈ β„•) ∧ 𝑛 ∈ (1...π‘˜)) β†’ (-1↑(𝑛 βˆ’ 1)) ∈ β„‚)
8314ad2antrr 724 . . . . . . . . . . 11 (((πœ‘ ∧ π‘˜ ∈ β„•) ∧ 𝑛 ∈ (1...π‘˜)) β†’ 𝑇 ∈ β„‚)
8477nnnn0d 12528 . . . . . . . . . . 11 (((πœ‘ ∧ π‘˜ ∈ β„•) ∧ 𝑛 ∈ (1...π‘˜)) β†’ 𝑛 ∈ β„•0)
8583, 84expcld 14107 . . . . . . . . . 10 (((πœ‘ ∧ π‘˜ ∈ β„•) ∧ 𝑛 ∈ (1...π‘˜)) β†’ (𝑇↑𝑛) ∈ β„‚)
8677nncnd 12224 . . . . . . . . . 10 (((πœ‘ ∧ π‘˜ ∈ β„•) ∧ 𝑛 ∈ (1...π‘˜)) β†’ 𝑛 ∈ β„‚)
8777nnne0d 12258 . . . . . . . . . 10 (((πœ‘ ∧ π‘˜ ∈ β„•) ∧ 𝑛 ∈ (1...π‘˜)) β†’ 𝑛 β‰  0)
8885, 86, 87divcld 11986 . . . . . . . . 9 (((πœ‘ ∧ π‘˜ ∈ β„•) ∧ 𝑛 ∈ (1...π‘˜)) β†’ ((𝑇↑𝑛) / 𝑛) ∈ β„‚)
8982, 88mulcld 11230 . . . . . . . 8 (((πœ‘ ∧ π‘˜ ∈ β„•) ∧ 𝑛 ∈ (1...π‘˜)) β†’ ((-1↑(𝑛 βˆ’ 1)) Β· ((𝑇↑𝑛) / 𝑛)) ∈ β„‚)
903, 75, 77, 89fvmptd3 7018 . . . . . . 7 (((πœ‘ ∧ π‘˜ ∈ β„•) ∧ 𝑛 ∈ (1...π‘˜)) β†’ (π·β€˜π‘›) = ((-1↑(𝑛 βˆ’ 1)) Β· ((𝑇↑𝑛) / 𝑛)))
9190, 89eqeltrd 2833 . . . . . 6 (((πœ‘ ∧ π‘˜ ∈ β„•) ∧ 𝑛 ∈ (1...π‘˜)) β†’ (π·β€˜π‘›) ∈ β„‚)
92 addcl 11188 . . . . . . 7 ((𝑛 ∈ β„‚ ∧ 𝑖 ∈ β„‚) β†’ (𝑛 + 𝑖) ∈ β„‚)
9392adantl 482 . . . . . 6 (((πœ‘ ∧ π‘˜ ∈ β„•) ∧ (𝑛 ∈ β„‚ ∧ 𝑖 ∈ β„‚)) β†’ (𝑛 + 𝑖) ∈ β„‚)
9469, 91, 93seqcl 13984 . . . . 5 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (seq1( + , 𝐷)β€˜π‘˜) ∈ β„‚)
9562, 74, 77, 88fvmptd3 7018 . . . . . . 7 (((πœ‘ ∧ π‘˜ ∈ β„•) ∧ 𝑛 ∈ (1...π‘˜)) β†’ (πΈβ€˜π‘›) = ((𝑇↑𝑛) / 𝑛))
9695, 88eqeltrd 2833 . . . . . 6 (((πœ‘ ∧ π‘˜ ∈ β„•) ∧ 𝑛 ∈ (1...π‘˜)) β†’ (πΈβ€˜π‘›) ∈ β„‚)
9769, 96, 93seqcl 13984 . . . . 5 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (seq1( + , 𝐸)β€˜π‘˜) ∈ β„‚)
98 simpll 765 . . . . . . 7 (((πœ‘ ∧ π‘˜ ∈ β„•) ∧ 𝑛 ∈ (1...π‘˜)) β†’ πœ‘)
99 stirlinglem5.3 . . . . . . . . 9 𝐹 = (𝑗 ∈ β„• ↦ (((-1↑(𝑗 βˆ’ 1)) Β· ((𝑇↑𝑗) / 𝑗)) + ((𝑇↑𝑗) / 𝑗)))
10075, 74oveq12d 7423 . . . . . . . . 9 (𝑗 = 𝑛 β†’ (((-1↑(𝑗 βˆ’ 1)) Β· ((𝑇↑𝑗) / 𝑗)) + ((𝑇↑𝑗) / 𝑗)) = (((-1↑(𝑛 βˆ’ 1)) Β· ((𝑇↑𝑛) / 𝑛)) + ((𝑇↑𝑛) / 𝑛)))
101 simpr 485 . . . . . . . . 9 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ 𝑛 ∈ β„•)
10281adantl 482 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ (-1↑(𝑛 βˆ’ 1)) ∈ β„‚)
10314adantr 481 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ 𝑇 ∈ β„‚)
104101nnnn0d 12528 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ 𝑛 ∈ β„•0)
105103, 104expcld 14107 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ (𝑇↑𝑛) ∈ β„‚)
106101nncnd 12224 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ 𝑛 ∈ β„‚)
107101nnne0d 12258 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ 𝑛 β‰  0)
108105, 106, 107divcld 11986 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ ((𝑇↑𝑛) / 𝑛) ∈ β„‚)
109102, 108mulcld 11230 . . . . . . . . . 10 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ ((-1↑(𝑛 βˆ’ 1)) Β· ((𝑇↑𝑛) / 𝑛)) ∈ β„‚)
110109, 108addcld 11229 . . . . . . . . 9 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ (((-1↑(𝑛 βˆ’ 1)) Β· ((𝑇↑𝑛) / 𝑛)) + ((𝑇↑𝑛) / 𝑛)) ∈ β„‚)
11199, 100, 101, 110fvmptd3 7018 . . . . . . . 8 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ (πΉβ€˜π‘›) = (((-1↑(𝑛 βˆ’ 1)) Β· ((𝑇↑𝑛) / 𝑛)) + ((𝑇↑𝑛) / 𝑛)))
1123, 75, 101, 109fvmptd3 7018 . . . . . . . . . 10 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ (π·β€˜π‘›) = ((-1↑(𝑛 βˆ’ 1)) Β· ((𝑇↑𝑛) / 𝑛)))
113112eqcomd 2738 . . . . . . . . 9 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ ((-1↑(𝑛 βˆ’ 1)) Β· ((𝑇↑𝑛) / 𝑛)) = (π·β€˜π‘›))
11462, 74, 101, 108fvmptd3 7018 . . . . . . . . . 10 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ (πΈβ€˜π‘›) = ((𝑇↑𝑛) / 𝑛))
115114eqcomd 2738 . . . . . . . . 9 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ ((𝑇↑𝑛) / 𝑛) = (πΈβ€˜π‘›))
116113, 115oveq12d 7423 . . . . . . . 8 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ (((-1↑(𝑛 βˆ’ 1)) Β· ((𝑇↑𝑛) / 𝑛)) + ((𝑇↑𝑛) / 𝑛)) = ((π·β€˜π‘›) + (πΈβ€˜π‘›)))
117111, 116eqtrd 2772 . . . . . . 7 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ (πΉβ€˜π‘›) = ((π·β€˜π‘›) + (πΈβ€˜π‘›)))
11898, 77, 117syl2anc 584 . . . . . 6 (((πœ‘ ∧ π‘˜ ∈ β„•) ∧ 𝑛 ∈ (1...π‘˜)) β†’ (πΉβ€˜π‘›) = ((π·β€˜π‘›) + (πΈβ€˜π‘›)))
11969, 91, 96, 118seradd 14006 . . . . 5 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (seq1( + , 𝐹)β€˜π‘˜) = ((seq1( + , 𝐷)β€˜π‘˜) + (seq1( + , 𝐸)β€˜π‘˜)))
1201, 2, 59, 61, 67, 94, 97, 119climadd 15572 . . . 4 (πœ‘ β†’ seq1( + , 𝐹) ⇝ ((logβ€˜(1 + 𝑇)) + -(logβ€˜(1 βˆ’ 𝑇))))
121 1rp 12974 . . . . . . . . 9 1 ∈ ℝ+
122121a1i 11 . . . . . . . 8 (πœ‘ β†’ 1 ∈ ℝ+)
123122, 12rpaddcld 13027 . . . . . . 7 (πœ‘ β†’ (1 + 𝑇) ∈ ℝ+)
124123rpne0d 13017 . . . . . 6 (πœ‘ β†’ (1 + 𝑇) β‰  0)
12531, 124logcld 26070 . . . . 5 (πœ‘ β†’ (logβ€˜(1 + 𝑇)) ∈ β„‚)
12630, 14subcld 11567 . . . . . 6 (πœ‘ β†’ (1 βˆ’ 𝑇) ∈ β„‚)
12713, 51absltd 15372 . . . . . . . . . 10 (πœ‘ β†’ ((absβ€˜π‘‡) < 1 ↔ (-1 < 𝑇 ∧ 𝑇 < 1)))
12845, 127mpbid 231 . . . . . . . . 9 (πœ‘ β†’ (-1 < 𝑇 ∧ 𝑇 < 1))
129128simprd 496 . . . . . . . 8 (πœ‘ β†’ 𝑇 < 1)
13013, 129gtned 11345 . . . . . . 7 (πœ‘ β†’ 1 β‰  𝑇)
13130, 14, 130subne0d 11576 . . . . . 6 (πœ‘ β†’ (1 βˆ’ 𝑇) β‰  0)
132126, 131logcld 26070 . . . . 5 (πœ‘ β†’ (logβ€˜(1 βˆ’ 𝑇)) ∈ β„‚)
133125, 132negsubd 11573 . . . 4 (πœ‘ β†’ ((logβ€˜(1 + 𝑇)) + -(logβ€˜(1 βˆ’ 𝑇))) = ((logβ€˜(1 + 𝑇)) βˆ’ (logβ€˜(1 βˆ’ 𝑇))))
134120, 133breqtrd 5173 . . 3 (πœ‘ β†’ seq1( + , 𝐹) ⇝ ((logβ€˜(1 + 𝑇)) βˆ’ (logβ€˜(1 βˆ’ 𝑇))))
135 nn0uz 12860 . . . 4 β„•0 = (β„€β‰₯β€˜0)
136 0zd 12566 . . . 4 (πœ‘ β†’ 0 ∈ β„€)
137 stirlinglem5.5 . . . . . 6 𝐺 = (𝑗 ∈ β„•0 ↦ ((2 Β· 𝑗) + 1))
138 2nn0 12485 . . . . . . . . 9 2 ∈ β„•0
139138a1i 11 . . . . . . . 8 (𝑗 ∈ β„•0 β†’ 2 ∈ β„•0)
140 id 22 . . . . . . . 8 (𝑗 ∈ β„•0 β†’ 𝑗 ∈ β„•0)
141139, 140nn0mulcld 12533 . . . . . . 7 (𝑗 ∈ β„•0 β†’ (2 Β· 𝑗) ∈ β„•0)
142 nn0p1nn 12507 . . . . . . 7 ((2 Β· 𝑗) ∈ β„•0 β†’ ((2 Β· 𝑗) + 1) ∈ β„•)
143141, 142syl 17 . . . . . 6 (𝑗 ∈ β„•0 β†’ ((2 Β· 𝑗) + 1) ∈ β„•)
144137, 143fmpti 7108 . . . . 5 𝐺:β„•0βŸΆβ„•
145144a1i 11 . . . 4 (πœ‘ β†’ 𝐺:β„•0βŸΆβ„•)
146 2re 12282 . . . . . . . . 9 2 ∈ ℝ
147146a1i 11 . . . . . . . 8 (π‘˜ ∈ β„•0 β†’ 2 ∈ ℝ)
148 nn0re 12477 . . . . . . . 8 (π‘˜ ∈ β„•0 β†’ π‘˜ ∈ ℝ)
149147, 148remulcld 11240 . . . . . . 7 (π‘˜ ∈ β„•0 β†’ (2 Β· π‘˜) ∈ ℝ)
150 1red 11211 . . . . . . . . 9 (π‘˜ ∈ β„•0 β†’ 1 ∈ ℝ)
151148, 150readdcld 11239 . . . . . . . 8 (π‘˜ ∈ β„•0 β†’ (π‘˜ + 1) ∈ ℝ)
152147, 151remulcld 11240 . . . . . . 7 (π‘˜ ∈ β„•0 β†’ (2 Β· (π‘˜ + 1)) ∈ ℝ)
153 2rp 12975 . . . . . . . . 9 2 ∈ ℝ+
154153a1i 11 . . . . . . . 8 (π‘˜ ∈ β„•0 β†’ 2 ∈ ℝ+)
155148ltp1d 12140 . . . . . . . 8 (π‘˜ ∈ β„•0 β†’ π‘˜ < (π‘˜ + 1))
156148, 151, 154, 155ltmul2dd 13068 . . . . . . 7 (π‘˜ ∈ β„•0 β†’ (2 Β· π‘˜) < (2 Β· (π‘˜ + 1)))
157149, 152, 150, 156ltadd1dd 11821 . . . . . 6 (π‘˜ ∈ β„•0 β†’ ((2 Β· π‘˜) + 1) < ((2 Β· (π‘˜ + 1)) + 1))
158137a1i 11 . . . . . . 7 (π‘˜ ∈ β„•0 β†’ 𝐺 = (𝑗 ∈ β„•0 ↦ ((2 Β· 𝑗) + 1)))
159 simpr 485 . . . . . . . . 9 ((π‘˜ ∈ β„•0 ∧ 𝑗 = π‘˜) β†’ 𝑗 = π‘˜)
160159oveq2d 7421 . . . . . . . 8 ((π‘˜ ∈ β„•0 ∧ 𝑗 = π‘˜) β†’ (2 Β· 𝑗) = (2 Β· π‘˜))
161160oveq1d 7420 . . . . . . 7 ((π‘˜ ∈ β„•0 ∧ 𝑗 = π‘˜) β†’ ((2 Β· 𝑗) + 1) = ((2 Β· π‘˜) + 1))
162 id 22 . . . . . . 7 (π‘˜ ∈ β„•0 β†’ π‘˜ ∈ β„•0)
163 2cnd 12286 . . . . . . . . 9 (π‘˜ ∈ β„•0 β†’ 2 ∈ β„‚)
164 nn0cn 12478 . . . . . . . . 9 (π‘˜ ∈ β„•0 β†’ π‘˜ ∈ β„‚)
165163, 164mulcld 11230 . . . . . . . 8 (π‘˜ ∈ β„•0 β†’ (2 Β· π‘˜) ∈ β„‚)
166 1cnd 11205 . . . . . . . 8 (π‘˜ ∈ β„•0 β†’ 1 ∈ β„‚)
167165, 166addcld 11229 . . . . . . 7 (π‘˜ ∈ β„•0 β†’ ((2 Β· π‘˜) + 1) ∈ β„‚)
168158, 161, 162, 167fvmptd 7002 . . . . . 6 (π‘˜ ∈ β„•0 β†’ (πΊβ€˜π‘˜) = ((2 Β· π‘˜) + 1))
169 simpr 485 . . . . . . . . 9 ((π‘˜ ∈ β„•0 ∧ 𝑗 = (π‘˜ + 1)) β†’ 𝑗 = (π‘˜ + 1))
170169oveq2d 7421 . . . . . . . 8 ((π‘˜ ∈ β„•0 ∧ 𝑗 = (π‘˜ + 1)) β†’ (2 Β· 𝑗) = (2 Β· (π‘˜ + 1)))
171170oveq1d 7420 . . . . . . 7 ((π‘˜ ∈ β„•0 ∧ 𝑗 = (π‘˜ + 1)) β†’ ((2 Β· 𝑗) + 1) = ((2 Β· (π‘˜ + 1)) + 1))
172 peano2nn0 12508 . . . . . . 7 (π‘˜ ∈ β„•0 β†’ (π‘˜ + 1) ∈ β„•0)
173164, 166addcld 11229 . . . . . . . . 9 (π‘˜ ∈ β„•0 β†’ (π‘˜ + 1) ∈ β„‚)
174163, 173mulcld 11230 . . . . . . . 8 (π‘˜ ∈ β„•0 β†’ (2 Β· (π‘˜ + 1)) ∈ β„‚)
175174, 166addcld 11229 . . . . . . 7 (π‘˜ ∈ β„•0 β†’ ((2 Β· (π‘˜ + 1)) + 1) ∈ β„‚)
176158, 171, 172, 175fvmptd 7002 . . . . . 6 (π‘˜ ∈ β„•0 β†’ (πΊβ€˜(π‘˜ + 1)) = ((2 Β· (π‘˜ + 1)) + 1))
177157, 168, 1763brtr4d 5179 . . . . 5 (π‘˜ ∈ β„•0 β†’ (πΊβ€˜π‘˜) < (πΊβ€˜(π‘˜ + 1)))
178177adantl 482 . . . 4 ((πœ‘ ∧ π‘˜ ∈ β„•0) β†’ (πΊβ€˜π‘˜) < (πΊβ€˜(π‘˜ + 1)))
179 eldifi 4125 . . . . . . 7 (𝑛 ∈ (β„• βˆ– ran 𝐺) β†’ 𝑛 ∈ β„•)
180179adantl 482 . . . . . 6 ((πœ‘ ∧ 𝑛 ∈ (β„• βˆ– ran 𝐺)) β†’ 𝑛 ∈ β„•)
181 1cnd 11205 . . . . . . . . . . 11 (𝑛 ∈ (β„• βˆ– ran 𝐺) β†’ 1 ∈ β„‚)
182181negcld 11554 . . . . . . . . . 10 (𝑛 ∈ (β„• βˆ– ran 𝐺) β†’ -1 ∈ β„‚)
183179, 80syl 17 . . . . . . . . . 10 (𝑛 ∈ (β„• βˆ– ran 𝐺) β†’ (𝑛 βˆ’ 1) ∈ β„•0)
184182, 183expcld 14107 . . . . . . . . 9 (𝑛 ∈ (β„• βˆ– ran 𝐺) β†’ (-1↑(𝑛 βˆ’ 1)) ∈ β„‚)
185184adantl 482 . . . . . . . 8 ((πœ‘ ∧ 𝑛 ∈ (β„• βˆ– ran 𝐺)) β†’ (-1↑(𝑛 βˆ’ 1)) ∈ β„‚)
18614adantr 481 . . . . . . . . . 10 ((πœ‘ ∧ 𝑛 ∈ (β„• βˆ– ran 𝐺)) β†’ 𝑇 ∈ β„‚)
187180nnnn0d 12528 . . . . . . . . . 10 ((πœ‘ ∧ 𝑛 ∈ (β„• βˆ– ran 𝐺)) β†’ 𝑛 ∈ β„•0)
188186, 187expcld 14107 . . . . . . . . 9 ((πœ‘ ∧ 𝑛 ∈ (β„• βˆ– ran 𝐺)) β†’ (𝑇↑𝑛) ∈ β„‚)
189180nncnd 12224 . . . . . . . . 9 ((πœ‘ ∧ 𝑛 ∈ (β„• βˆ– ran 𝐺)) β†’ 𝑛 ∈ β„‚)
190180nnne0d 12258 . . . . . . . . 9 ((πœ‘ ∧ 𝑛 ∈ (β„• βˆ– ran 𝐺)) β†’ 𝑛 β‰  0)
191188, 189, 190divcld 11986 . . . . . . . 8 ((πœ‘ ∧ 𝑛 ∈ (β„• βˆ– ran 𝐺)) β†’ ((𝑇↑𝑛) / 𝑛) ∈ β„‚)
192185, 191mulcld 11230 . . . . . . 7 ((πœ‘ ∧ 𝑛 ∈ (β„• βˆ– ran 𝐺)) β†’ ((-1↑(𝑛 βˆ’ 1)) Β· ((𝑇↑𝑛) / 𝑛)) ∈ β„‚)
193192, 191addcld 11229 . . . . . 6 ((πœ‘ ∧ 𝑛 ∈ (β„• βˆ– ran 𝐺)) β†’ (((-1↑(𝑛 βˆ’ 1)) Β· ((𝑇↑𝑛) / 𝑛)) + ((𝑇↑𝑛) / 𝑛)) ∈ β„‚)
19499, 100, 180, 193fvmptd3 7018 . . . . 5 ((πœ‘ ∧ 𝑛 ∈ (β„• βˆ– ran 𝐺)) β†’ (πΉβ€˜π‘›) = (((-1↑(𝑛 βˆ’ 1)) Β· ((𝑇↑𝑛) / 𝑛)) + ((𝑇↑𝑛) / 𝑛)))
195 eldifn 4126 . . . . . . . . . . . 12 (𝑛 ∈ (β„• βˆ– ran 𝐺) β†’ Β¬ 𝑛 ∈ ran 𝐺)
196 0nn0 12483 . . . . . . . . . . . . . . . 16 0 ∈ β„•0
197 1nn0 12484 . . . . . . . . . . . . . . . . 17 1 ∈ β„•0
198138, 197num0h 12685 . . . . . . . . . . . . . . . 16 1 = ((2 Β· 0) + 1)
199 oveq2 7413 . . . . . . . . . . . . . . . . . . 19 (𝑗 = 0 β†’ (2 Β· 𝑗) = (2 Β· 0))
200199oveq1d 7420 . . . . . . . . . . . . . . . . . 18 (𝑗 = 0 β†’ ((2 Β· 𝑗) + 1) = ((2 Β· 0) + 1))
201200eqeq2d 2743 . . . . . . . . . . . . . . . . 17 (𝑗 = 0 β†’ (1 = ((2 Β· 𝑗) + 1) ↔ 1 = ((2 Β· 0) + 1)))
202201rspcev 3612 . . . . . . . . . . . . . . . 16 ((0 ∈ β„•0 ∧ 1 = ((2 Β· 0) + 1)) β†’ βˆƒπ‘— ∈ β„•0 1 = ((2 Β· 𝑗) + 1))
203196, 198, 202mp2an 690 . . . . . . . . . . . . . . 15 βˆƒπ‘— ∈ β„•0 1 = ((2 Β· 𝑗) + 1)
204 ax-1cn 11164 . . . . . . . . . . . . . . . 16 1 ∈ β„‚
205137elrnmpt 5953 . . . . . . . . . . . . . . . 16 (1 ∈ β„‚ β†’ (1 ∈ ran 𝐺 ↔ βˆƒπ‘— ∈ β„•0 1 = ((2 Β· 𝑗) + 1)))
206204, 205ax-mp 5 . . . . . . . . . . . . . . 15 (1 ∈ ran 𝐺 ↔ βˆƒπ‘— ∈ β„•0 1 = ((2 Β· 𝑗) + 1))
207203, 206mpbir 230 . . . . . . . . . . . . . 14 1 ∈ ran 𝐺
208207a1i 11 . . . . . . . . . . . . 13 (𝑛 = 1 β†’ 1 ∈ ran 𝐺)
209 eleq1 2821 . . . . . . . . . . . . 13 (𝑛 = 1 β†’ (𝑛 ∈ ran 𝐺 ↔ 1 ∈ ran 𝐺))
210208, 209mpbird 256 . . . . . . . . . . . 12 (𝑛 = 1 β†’ 𝑛 ∈ ran 𝐺)
211195, 210nsyl 140 . . . . . . . . . . 11 (𝑛 ∈ (β„• βˆ– ran 𝐺) β†’ Β¬ 𝑛 = 1)
212 nn1m1nn 12229 . . . . . . . . . . . . 13 (𝑛 ∈ β„• β†’ (𝑛 = 1 ∨ (𝑛 βˆ’ 1) ∈ β„•))
213179, 212syl 17 . . . . . . . . . . . 12 (𝑛 ∈ (β„• βˆ– ran 𝐺) β†’ (𝑛 = 1 ∨ (𝑛 βˆ’ 1) ∈ β„•))
214213ord 862 . . . . . . . . . . 11 (𝑛 ∈ (β„• βˆ– ran 𝐺) β†’ (Β¬ 𝑛 = 1 β†’ (𝑛 βˆ’ 1) ∈ β„•))
215211, 214mpd 15 . . . . . . . . . 10 (𝑛 ∈ (β„• βˆ– ran 𝐺) β†’ (𝑛 βˆ’ 1) ∈ β„•)
216 nfcv 2903 . . . . . . . . . . . . . . . . . 18 Ⅎ𝑗ℕ
217 nfmpt1 5255 . . . . . . . . . . . . . . . . . . . 20 Ⅎ𝑗(𝑗 ∈ β„•0 ↦ ((2 Β· 𝑗) + 1))
218137, 217nfcxfr 2901 . . . . . . . . . . . . . . . . . . 19 Ⅎ𝑗𝐺
219218nfrn 5949 . . . . . . . . . . . . . . . . . 18 Ⅎ𝑗ran 𝐺
220216, 219nfdif 4124 . . . . . . . . . . . . . . . . 17 Ⅎ𝑗(β„• βˆ– ran 𝐺)
221220nfcri 2890 . . . . . . . . . . . . . . . 16 Ⅎ𝑗 𝑛 ∈ (β„• βˆ– ran 𝐺)
222137elrnmpt 5953 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑛 ∈ (β„• βˆ– ran 𝐺) β†’ (𝑛 ∈ ran 𝐺 ↔ βˆƒπ‘— ∈ β„•0 𝑛 = ((2 Β· 𝑗) + 1)))
223195, 222mtbid 323 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑛 ∈ (β„• βˆ– ran 𝐺) β†’ Β¬ βˆƒπ‘— ∈ β„•0 𝑛 = ((2 Β· 𝑗) + 1))
224 ralnex 3072 . . . . . . . . . . . . . . . . . . . . . . . 24 (βˆ€π‘— ∈ β„•0 Β¬ 𝑛 = ((2 Β· 𝑗) + 1) ↔ Β¬ βˆƒπ‘— ∈ β„•0 𝑛 = ((2 Β· 𝑗) + 1))
225223, 224sylibr 233 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑛 ∈ (β„• βˆ– ran 𝐺) β†’ βˆ€π‘— ∈ β„•0 Β¬ 𝑛 = ((2 Β· 𝑗) + 1))
226225r19.21bi 3248 . . . . . . . . . . . . . . . . . . . . . 22 ((𝑛 ∈ (β„• βˆ– ran 𝐺) ∧ 𝑗 ∈ β„•0) β†’ Β¬ 𝑛 = ((2 Β· 𝑗) + 1))
227226neqned 2947 . . . . . . . . . . . . . . . . . . . . 21 ((𝑛 ∈ (β„• βˆ– ran 𝐺) ∧ 𝑗 ∈ β„•0) β†’ 𝑛 β‰  ((2 Β· 𝑗) + 1))
228227necomd 2996 . . . . . . . . . . . . . . . . . . . 20 ((𝑛 ∈ (β„• βˆ– ran 𝐺) ∧ 𝑗 ∈ β„•0) β†’ ((2 Β· 𝑗) + 1) β‰  𝑛)
229228adantlr 713 . . . . . . . . . . . . . . . . . . 19 (((𝑛 ∈ (β„• βˆ– ran 𝐺) ∧ 𝑗 ∈ β„€) ∧ 𝑗 ∈ β„•0) β†’ ((2 Β· 𝑗) + 1) β‰  𝑛)
230 simplr 767 . . . . . . . . . . . . . . . . . . . 20 (((𝑛 ∈ (β„• βˆ– ran 𝐺) ∧ 𝑗 ∈ β„€) ∧ Β¬ 𝑗 ∈ β„•0) β†’ 𝑗 ∈ β„€)
231 simpr 485 . . . . . . . . . . . . . . . . . . . 20 (((𝑛 ∈ (β„• βˆ– ran 𝐺) ∧ 𝑗 ∈ β„€) ∧ Β¬ 𝑗 ∈ β„•0) β†’ Β¬ 𝑗 ∈ β„•0)
232179ad2antrr 724 . . . . . . . . . . . . . . . . . . . 20 (((𝑛 ∈ (β„• βˆ– ran 𝐺) ∧ 𝑗 ∈ β„€) ∧ Β¬ 𝑗 ∈ β„•0) β†’ 𝑛 ∈ β„•)
233146a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((𝑗 ∈ β„€ ∧ Β¬ 𝑗 ∈ β„•0) β†’ 2 ∈ ℝ)
234 simpl 483 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((𝑗 ∈ β„€ ∧ Β¬ 𝑗 ∈ β„•0) β†’ 𝑗 ∈ β„€)
235234zred 12662 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((𝑗 ∈ β„€ ∧ Β¬ 𝑗 ∈ β„•0) β†’ 𝑗 ∈ ℝ)
236233, 235remulcld 11240 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((𝑗 ∈ β„€ ∧ Β¬ 𝑗 ∈ β„•0) β†’ (2 Β· 𝑗) ∈ ℝ)
237 0red 11213 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((𝑗 ∈ β„€ ∧ Β¬ 𝑗 ∈ β„•0) β†’ 0 ∈ ℝ)
238 1red 11211 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((𝑗 ∈ β„€ ∧ Β¬ 𝑗 ∈ β„•0) β†’ 1 ∈ ℝ)
239 2cnd 12286 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((𝑗 ∈ β„€ ∧ Β¬ 𝑗 ∈ β„•0) β†’ 2 ∈ β„‚)
240235recnd 11238 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((𝑗 ∈ β„€ ∧ Β¬ 𝑗 ∈ β„•0) β†’ 𝑗 ∈ β„‚)
241239, 240mulcomd 11231 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((𝑗 ∈ β„€ ∧ Β¬ 𝑗 ∈ β„•0) β†’ (2 Β· 𝑗) = (𝑗 Β· 2))
242 simpr 485 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ((𝑗 ∈ β„€ ∧ Β¬ 𝑗 ∈ β„•0) β†’ Β¬ 𝑗 ∈ β„•0)
243 elnn0z 12567 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (𝑗 ∈ β„•0 ↔ (𝑗 ∈ β„€ ∧ 0 ≀ 𝑗))
244242, 243sylnib 327 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ((𝑗 ∈ β„€ ∧ Β¬ 𝑗 ∈ β„•0) β†’ Β¬ (𝑗 ∈ β„€ ∧ 0 ≀ 𝑗))
245 nan 828 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (((𝑗 ∈ β„€ ∧ Β¬ 𝑗 ∈ β„•0) β†’ Β¬ (𝑗 ∈ β„€ ∧ 0 ≀ 𝑗)) ↔ (((𝑗 ∈ β„€ ∧ Β¬ 𝑗 ∈ β„•0) ∧ 𝑗 ∈ β„€) β†’ Β¬ 0 ≀ 𝑗))
246244, 245mpbi 229 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (((𝑗 ∈ β„€ ∧ Β¬ 𝑗 ∈ β„•0) ∧ 𝑗 ∈ β„€) β†’ Β¬ 0 ≀ 𝑗)
247246anabss1 664 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ((𝑗 ∈ β„€ ∧ Β¬ 𝑗 ∈ β„•0) β†’ Β¬ 0 ≀ 𝑗)
248235, 237ltnled 11357 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ((𝑗 ∈ β„€ ∧ Β¬ 𝑗 ∈ β„•0) β†’ (𝑗 < 0 ↔ Β¬ 0 ≀ 𝑗))
249247, 248mpbird 256 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((𝑗 ∈ β„€ ∧ Β¬ 𝑗 ∈ β„•0) β†’ 𝑗 < 0)
250153a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ((𝑗 ∈ β„€ ∧ Β¬ 𝑗 ∈ β„•0) β†’ 2 ∈ ℝ+)
251250rpregt0d 13018 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((𝑗 ∈ β„€ ∧ Β¬ 𝑗 ∈ β„•0) β†’ (2 ∈ ℝ ∧ 0 < 2))
252 mulltgt0 43691 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (((𝑗 ∈ ℝ ∧ 𝑗 < 0) ∧ (2 ∈ ℝ ∧ 0 < 2)) β†’ (𝑗 Β· 2) < 0)
253235, 249, 251, 252syl21anc 836 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((𝑗 ∈ β„€ ∧ Β¬ 𝑗 ∈ β„•0) β†’ (𝑗 Β· 2) < 0)
254241, 253eqbrtrd 5169 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((𝑗 ∈ β„€ ∧ Β¬ 𝑗 ∈ β„•0) β†’ (2 Β· 𝑗) < 0)
255236, 237, 238, 254ltadd1dd 11821 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((𝑗 ∈ β„€ ∧ Β¬ 𝑗 ∈ β„•0) β†’ ((2 Β· 𝑗) + 1) < (0 + 1))
256 1cnd 11205 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((𝑗 ∈ β„€ ∧ Β¬ 𝑗 ∈ β„•0) β†’ 1 ∈ β„‚)
257256addlidd 11411 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((𝑗 ∈ β„€ ∧ Β¬ 𝑗 ∈ β„•0) β†’ (0 + 1) = 1)
258255, 257breqtrd 5173 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((𝑗 ∈ β„€ ∧ Β¬ 𝑗 ∈ β„•0) β†’ ((2 Β· 𝑗) + 1) < 1)
259236, 238readdcld 11239 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((𝑗 ∈ β„€ ∧ Β¬ 𝑗 ∈ β„•0) β†’ ((2 Β· 𝑗) + 1) ∈ ℝ)
260259, 238ltnled 11357 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((𝑗 ∈ β„€ ∧ Β¬ 𝑗 ∈ β„•0) β†’ (((2 Β· 𝑗) + 1) < 1 ↔ Β¬ 1 ≀ ((2 Β· 𝑗) + 1)))
261258, 260mpbid 231 . . . . . . . . . . . . . . . . . . . . . . . 24 ((𝑗 ∈ β„€ ∧ Β¬ 𝑗 ∈ β„•0) β†’ Β¬ 1 ≀ ((2 Β· 𝑗) + 1))
262 nnge1 12236 . . . . . . . . . . . . . . . . . . . . . . . 24 (((2 Β· 𝑗) + 1) ∈ β„• β†’ 1 ≀ ((2 Β· 𝑗) + 1))
263261, 262nsyl 140 . . . . . . . . . . . . . . . . . . . . . . 23 ((𝑗 ∈ β„€ ∧ Β¬ 𝑗 ∈ β„•0) β†’ Β¬ ((2 Β· 𝑗) + 1) ∈ β„•)
264263adantr 481 . . . . . . . . . . . . . . . . . . . . . 22 (((𝑗 ∈ β„€ ∧ Β¬ 𝑗 ∈ β„•0) ∧ 𝑛 ∈ β„•) β†’ Β¬ ((2 Β· 𝑗) + 1) ∈ β„•)
265 simpr 485 . . . . . . . . . . . . . . . . . . . . . . . 24 ((𝑛 ∈ β„• ∧ ((2 Β· 𝑗) + 1) = 𝑛) β†’ ((2 Β· 𝑗) + 1) = 𝑛)
266 simpl 483 . . . . . . . . . . . . . . . . . . . . . . . 24 ((𝑛 ∈ β„• ∧ ((2 Β· 𝑗) + 1) = 𝑛) β†’ 𝑛 ∈ β„•)
267265, 266eqeltrd 2833 . . . . . . . . . . . . . . . . . . . . . . 23 ((𝑛 ∈ β„• ∧ ((2 Β· 𝑗) + 1) = 𝑛) β†’ ((2 Β· 𝑗) + 1) ∈ β„•)
268267adantll 712 . . . . . . . . . . . . . . . . . . . . . 22 ((((𝑗 ∈ β„€ ∧ Β¬ 𝑗 ∈ β„•0) ∧ 𝑛 ∈ β„•) ∧ ((2 Β· 𝑗) + 1) = 𝑛) β†’ ((2 Β· 𝑗) + 1) ∈ β„•)
269264, 268mtand 814 . . . . . . . . . . . . . . . . . . . . 21 (((𝑗 ∈ β„€ ∧ Β¬ 𝑗 ∈ β„•0) ∧ 𝑛 ∈ β„•) β†’ Β¬ ((2 Β· 𝑗) + 1) = 𝑛)
270269neqned 2947 . . . . . . . . . . . . . . . . . . . 20 (((𝑗 ∈ β„€ ∧ Β¬ 𝑗 ∈ β„•0) ∧ 𝑛 ∈ β„•) β†’ ((2 Β· 𝑗) + 1) β‰  𝑛)
271230, 231, 232, 270syl21anc 836 . . . . . . . . . . . . . . . . . . 19 (((𝑛 ∈ (β„• βˆ– ran 𝐺) ∧ 𝑗 ∈ β„€) ∧ Β¬ 𝑗 ∈ β„•0) β†’ ((2 Β· 𝑗) + 1) β‰  𝑛)
272229, 271pm2.61dan 811 . . . . . . . . . . . . . . . . . 18 ((𝑛 ∈ (β„• βˆ– ran 𝐺) ∧ 𝑗 ∈ β„€) β†’ ((2 Β· 𝑗) + 1) β‰  𝑛)
273272neneqd 2945 . . . . . . . . . . . . . . . . 17 ((𝑛 ∈ (β„• βˆ– ran 𝐺) ∧ 𝑗 ∈ β„€) β†’ Β¬ ((2 Β· 𝑗) + 1) = 𝑛)
274273ex 413 . . . . . . . . . . . . . . . 16 (𝑛 ∈ (β„• βˆ– ran 𝐺) β†’ (𝑗 ∈ β„€ β†’ Β¬ ((2 Β· 𝑗) + 1) = 𝑛))
275221, 274ralrimi 3254 . . . . . . . . . . . . . . 15 (𝑛 ∈ (β„• βˆ– ran 𝐺) β†’ βˆ€π‘— ∈ β„€ Β¬ ((2 Β· 𝑗) + 1) = 𝑛)
276 ralnex 3072 . . . . . . . . . . . . . . 15 (βˆ€π‘— ∈ β„€ Β¬ ((2 Β· 𝑗) + 1) = 𝑛 ↔ Β¬ βˆƒπ‘— ∈ β„€ ((2 Β· 𝑗) + 1) = 𝑛)
277275, 276sylib 217 . . . . . . . . . . . . . 14 (𝑛 ∈ (β„• βˆ– ran 𝐺) β†’ Β¬ βˆƒπ‘— ∈ β„€ ((2 Β· 𝑗) + 1) = 𝑛)
278179nnzd 12581 . . . . . . . . . . . . . . 15 (𝑛 ∈ (β„• βˆ– ran 𝐺) β†’ 𝑛 ∈ β„€)
279 odd2np1 16280 . . . . . . . . . . . . . . 15 (𝑛 ∈ β„€ β†’ (Β¬ 2 βˆ₯ 𝑛 ↔ βˆƒπ‘— ∈ β„€ ((2 Β· 𝑗) + 1) = 𝑛))
280278, 279syl 17 . . . . . . . . . . . . . 14 (𝑛 ∈ (β„• βˆ– ran 𝐺) β†’ (Β¬ 2 βˆ₯ 𝑛 ↔ βˆƒπ‘— ∈ β„€ ((2 Β· 𝑗) + 1) = 𝑛))
281277, 280mtbird 324 . . . . . . . . . . . . 13 (𝑛 ∈ (β„• βˆ– ran 𝐺) β†’ Β¬ Β¬ 2 βˆ₯ 𝑛)
282281notnotrd 133 . . . . . . . . . . . 12 (𝑛 ∈ (β„• βˆ– ran 𝐺) β†’ 2 βˆ₯ 𝑛)
283179nncnd 12224 . . . . . . . . . . . . 13 (𝑛 ∈ (β„• βˆ– ran 𝐺) β†’ 𝑛 ∈ β„‚)
284283, 181npcand 11571 . . . . . . . . . . . 12 (𝑛 ∈ (β„• βˆ– ran 𝐺) β†’ ((𝑛 βˆ’ 1) + 1) = 𝑛)
285282, 284breqtrrd 5175 . . . . . . . . . . 11 (𝑛 ∈ (β„• βˆ– ran 𝐺) β†’ 2 βˆ₯ ((𝑛 βˆ’ 1) + 1))
286183nn0zd 12580 . . . . . . . . . . . 12 (𝑛 ∈ (β„• βˆ– ran 𝐺) β†’ (𝑛 βˆ’ 1) ∈ β„€)
287 oddp1even 16283 . . . . . . . . . . . 12 ((𝑛 βˆ’ 1) ∈ β„€ β†’ (Β¬ 2 βˆ₯ (𝑛 βˆ’ 1) ↔ 2 βˆ₯ ((𝑛 βˆ’ 1) + 1)))
288286, 287syl 17 . . . . . . . . . . 11 (𝑛 ∈ (β„• βˆ– ran 𝐺) β†’ (Β¬ 2 βˆ₯ (𝑛 βˆ’ 1) ↔ 2 βˆ₯ ((𝑛 βˆ’ 1) + 1)))
289285, 288mpbird 256 . . . . . . . . . 10 (𝑛 ∈ (β„• βˆ– ran 𝐺) β†’ Β¬ 2 βˆ₯ (𝑛 βˆ’ 1))
290 oexpneg 16284 . . . . . . . . . 10 ((1 ∈ β„‚ ∧ (𝑛 βˆ’ 1) ∈ β„• ∧ Β¬ 2 βˆ₯ (𝑛 βˆ’ 1)) β†’ (-1↑(𝑛 βˆ’ 1)) = -(1↑(𝑛 βˆ’ 1)))
291181, 215, 289, 290syl3anc 1371 . . . . . . . . 9 (𝑛 ∈ (β„• βˆ– ran 𝐺) β†’ (-1↑(𝑛 βˆ’ 1)) = -(1↑(𝑛 βˆ’ 1)))
292 1exp 14053 . . . . . . . . . . 11 ((𝑛 βˆ’ 1) ∈ β„€ β†’ (1↑(𝑛 βˆ’ 1)) = 1)
293286, 292syl 17 . . . . . . . . . 10 (𝑛 ∈ (β„• βˆ– ran 𝐺) β†’ (1↑(𝑛 βˆ’ 1)) = 1)
294293negeqd 11450 . . . . . . . . 9 (𝑛 ∈ (β„• βˆ– ran 𝐺) β†’ -(1↑(𝑛 βˆ’ 1)) = -1)
295291, 294eqtrd 2772 . . . . . . . 8 (𝑛 ∈ (β„• βˆ– ran 𝐺) β†’ (-1↑(𝑛 βˆ’ 1)) = -1)
296295adantl 482 . . . . . . 7 ((πœ‘ ∧ 𝑛 ∈ (β„• βˆ– ran 𝐺)) β†’ (-1↑(𝑛 βˆ’ 1)) = -1)
297296oveq1d 7420 . . . . . 6 ((πœ‘ ∧ 𝑛 ∈ (β„• βˆ– ran 𝐺)) β†’ ((-1↑(𝑛 βˆ’ 1)) Β· ((𝑇↑𝑛) / 𝑛)) = (-1 Β· ((𝑇↑𝑛) / 𝑛)))
298297oveq1d 7420 . . . . 5 ((πœ‘ ∧ 𝑛 ∈ (β„• βˆ– ran 𝐺)) β†’ (((-1↑(𝑛 βˆ’ 1)) Β· ((𝑇↑𝑛) / 𝑛)) + ((𝑇↑𝑛) / 𝑛)) = ((-1 Β· ((𝑇↑𝑛) / 𝑛)) + ((𝑇↑𝑛) / 𝑛)))
299191mulm1d 11662 . . . . . . 7 ((πœ‘ ∧ 𝑛 ∈ (β„• βˆ– ran 𝐺)) β†’ (-1 Β· ((𝑇↑𝑛) / 𝑛)) = -((𝑇↑𝑛) / 𝑛))
300299oveq1d 7420 . . . . . 6 ((πœ‘ ∧ 𝑛 ∈ (β„• βˆ– ran 𝐺)) β†’ ((-1 Β· ((𝑇↑𝑛) / 𝑛)) + ((𝑇↑𝑛) / 𝑛)) = (-((𝑇↑𝑛) / 𝑛) + ((𝑇↑𝑛) / 𝑛)))
301191negcld 11554 . . . . . . 7 ((πœ‘ ∧ 𝑛 ∈ (β„• βˆ– ran 𝐺)) β†’ -((𝑇↑𝑛) / 𝑛) ∈ β„‚)
302301, 191addcomd 11412 . . . . . 6 ((πœ‘ ∧ 𝑛 ∈ (β„• βˆ– ran 𝐺)) β†’ (-((𝑇↑𝑛) / 𝑛) + ((𝑇↑𝑛) / 𝑛)) = (((𝑇↑𝑛) / 𝑛) + -((𝑇↑𝑛) / 𝑛)))
303191negidd 11557 . . . . . 6 ((πœ‘ ∧ 𝑛 ∈ (β„• βˆ– ran 𝐺)) β†’ (((𝑇↑𝑛) / 𝑛) + -((𝑇↑𝑛) / 𝑛)) = 0)
304300, 302, 3033eqtrd 2776 . . . . 5 ((πœ‘ ∧ 𝑛 ∈ (β„• βˆ– ran 𝐺)) β†’ ((-1 Β· ((𝑇↑𝑛) / 𝑛)) + ((𝑇↑𝑛) / 𝑛)) = 0)
305194, 298, 3043eqtrd 2776 . . . 4 ((πœ‘ ∧ 𝑛 ∈ (β„• βˆ– ran 𝐺)) β†’ (πΉβ€˜π‘›) = 0)
306111, 110eqeltrd 2833 . . . 4 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ (πΉβ€˜π‘›) ∈ β„‚)
30799a1i 11 . . . . . . 7 ((πœ‘ ∧ π‘˜ ∈ β„•0) β†’ 𝐹 = (𝑗 ∈ β„• ↦ (((-1↑(𝑗 βˆ’ 1)) Β· ((𝑇↑𝑗) / 𝑗)) + ((𝑇↑𝑗) / 𝑗))))
308 simpr 485 . . . . . . . . . . 11 (((πœ‘ ∧ π‘˜ ∈ β„•0) ∧ 𝑗 = ((2 Β· π‘˜) + 1)) β†’ 𝑗 = ((2 Β· π‘˜) + 1))
309308oveq1d 7420 . . . . . . . . . 10 (((πœ‘ ∧ π‘˜ ∈ β„•0) ∧ 𝑗 = ((2 Β· π‘˜) + 1)) β†’ (𝑗 βˆ’ 1) = (((2 Β· π‘˜) + 1) βˆ’ 1))
310309oveq2d 7421 . . . . . . . . 9 (((πœ‘ ∧ π‘˜ ∈ β„•0) ∧ 𝑗 = ((2 Β· π‘˜) + 1)) β†’ (-1↑(𝑗 βˆ’ 1)) = (-1↑(((2 Β· π‘˜) + 1) βˆ’ 1)))
311308oveq2d 7421 . . . . . . . . . 10 (((πœ‘ ∧ π‘˜ ∈ β„•0) ∧ 𝑗 = ((2 Β· π‘˜) + 1)) β†’ (𝑇↑𝑗) = (𝑇↑((2 Β· π‘˜) + 1)))
312311, 308oveq12d 7423 . . . . . . . . 9 (((πœ‘ ∧ π‘˜ ∈ β„•0) ∧ 𝑗 = ((2 Β· π‘˜) + 1)) β†’ ((𝑇↑𝑗) / 𝑗) = ((𝑇↑((2 Β· π‘˜) + 1)) / ((2 Β· π‘˜) + 1)))
313310, 312oveq12d 7423 . . . . . . . 8 (((πœ‘ ∧ π‘˜ ∈ β„•0) ∧ 𝑗 = ((2 Β· π‘˜) + 1)) β†’ ((-1↑(𝑗 βˆ’ 1)) Β· ((𝑇↑𝑗) / 𝑗)) = ((-1↑(((2 Β· π‘˜) + 1) βˆ’ 1)) Β· ((𝑇↑((2 Β· π‘˜) + 1)) / ((2 Β· π‘˜) + 1))))
314313, 312oveq12d 7423 . . . . . . 7 (((πœ‘ ∧ π‘˜ ∈ β„•0) ∧ 𝑗 = ((2 Β· π‘˜) + 1)) β†’ (((-1↑(𝑗 βˆ’ 1)) Β· ((𝑇↑𝑗) / 𝑗)) + ((𝑇↑𝑗) / 𝑗)) = (((-1↑(((2 Β· π‘˜) + 1) βˆ’ 1)) Β· ((𝑇↑((2 Β· π‘˜) + 1)) / ((2 Β· π‘˜) + 1))) + ((𝑇↑((2 Β· π‘˜) + 1)) / ((2 Β· π‘˜) + 1))))
315138a1i 11 . . . . . . . . 9 ((πœ‘ ∧ π‘˜ ∈ β„•0) β†’ 2 ∈ β„•0)
316 simpr 485 . . . . . . . . 9 ((πœ‘ ∧ π‘˜ ∈ β„•0) β†’ π‘˜ ∈ β„•0)
317315, 316nn0mulcld 12533 . . . . . . . 8 ((πœ‘ ∧ π‘˜ ∈ β„•0) β†’ (2 Β· π‘˜) ∈ β„•0)
318 nn0p1nn 12507 . . . . . . . 8 ((2 Β· π‘˜) ∈ β„•0 β†’ ((2 Β· π‘˜) + 1) ∈ β„•)
319317, 318syl 17 . . . . . . 7 ((πœ‘ ∧ π‘˜ ∈ β„•0) β†’ ((2 Β· π‘˜) + 1) ∈ β„•)
320166negcld 11554 . . . . . . . . . . 11 (π‘˜ ∈ β„•0 β†’ -1 ∈ β„‚)
321165, 166pncand 11568 . . . . . . . . . . . 12 (π‘˜ ∈ β„•0 β†’ (((2 Β· π‘˜) + 1) βˆ’ 1) = (2 Β· π‘˜))
322138a1i 11 . . . . . . . . . . . . 13 (π‘˜ ∈ β„•0 β†’ 2 ∈ β„•0)
323322, 162nn0mulcld 12533 . . . . . . . . . . . 12 (π‘˜ ∈ β„•0 β†’ (2 Β· π‘˜) ∈ β„•0)
324321, 323eqeltrd 2833 . . . . . . . . . . 11 (π‘˜ ∈ β„•0 β†’ (((2 Β· π‘˜) + 1) βˆ’ 1) ∈ β„•0)
325320, 324expcld 14107 . . . . . . . . . 10 (π‘˜ ∈ β„•0 β†’ (-1↑(((2 Β· π‘˜) + 1) βˆ’ 1)) ∈ β„‚)
326325adantl 482 . . . . . . . . 9 ((πœ‘ ∧ π‘˜ ∈ β„•0) β†’ (-1↑(((2 Β· π‘˜) + 1) βˆ’ 1)) ∈ β„‚)
32714adantr 481 . . . . . . . . . . 11 ((πœ‘ ∧ π‘˜ ∈ β„•0) β†’ 𝑇 ∈ β„‚)
328197a1i 11 . . . . . . . . . . . 12 ((πœ‘ ∧ π‘˜ ∈ β„•0) β†’ 1 ∈ β„•0)
329317, 328nn0addcld 12532 . . . . . . . . . . 11 ((πœ‘ ∧ π‘˜ ∈ β„•0) β†’ ((2 Β· π‘˜) + 1) ∈ β„•0)
330327, 329expcld 14107 . . . . . . . . . 10 ((πœ‘ ∧ π‘˜ ∈ β„•0) β†’ (𝑇↑((2 Β· π‘˜) + 1)) ∈ β„‚)
331 2cnd 12286 . . . . . . . . . . . 12 ((πœ‘ ∧ π‘˜ ∈ β„•0) β†’ 2 ∈ β„‚)
332164adantl 482 . . . . . . . . . . . 12 ((πœ‘ ∧ π‘˜ ∈ β„•0) β†’ π‘˜ ∈ β„‚)
333331, 332mulcld 11230 . . . . . . . . . . 11 ((πœ‘ ∧ π‘˜ ∈ β„•0) β†’ (2 Β· π‘˜) ∈ β„‚)
334 1cnd 11205 . . . . . . . . . . 11 ((πœ‘ ∧ π‘˜ ∈ β„•0) β†’ 1 ∈ β„‚)
335333, 334addcld 11229 . . . . . . . . . 10 ((πœ‘ ∧ π‘˜ ∈ β„•0) β†’ ((2 Β· π‘˜) + 1) ∈ β„‚)
336 0red 11213 . . . . . . . . . . 11 ((πœ‘ ∧ π‘˜ ∈ β„•0) β†’ 0 ∈ ℝ)
337146a1i 11 . . . . . . . . . . . . 13 ((πœ‘ ∧ π‘˜ ∈ β„•0) β†’ 2 ∈ ℝ)
338148adantl 482 . . . . . . . . . . . . 13 ((πœ‘ ∧ π‘˜ ∈ β„•0) β†’ π‘˜ ∈ ℝ)
339337, 338remulcld 11240 . . . . . . . . . . . 12 ((πœ‘ ∧ π‘˜ ∈ β„•0) β†’ (2 Β· π‘˜) ∈ ℝ)
340 1red 11211 . . . . . . . . . . . 12 ((πœ‘ ∧ π‘˜ ∈ β„•0) β†’ 1 ∈ ℝ)
341 0le2 12310 . . . . . . . . . . . . . 14 0 ≀ 2
342341a1i 11 . . . . . . . . . . . . 13 ((πœ‘ ∧ π‘˜ ∈ β„•0) β†’ 0 ≀ 2)
343316nn0ge0d 12531 . . . . . . . . . . . . 13 ((πœ‘ ∧ π‘˜ ∈ β„•0) β†’ 0 ≀ π‘˜)
344337, 338, 342, 343mulge0d 11787 . . . . . . . . . . . 12 ((πœ‘ ∧ π‘˜ ∈ β„•0) β†’ 0 ≀ (2 Β· π‘˜))
345 0lt1 11732 . . . . . . . . . . . . 13 0 < 1
346345a1i 11 . . . . . . . . . . . 12 ((πœ‘ ∧ π‘˜ ∈ β„•0) β†’ 0 < 1)
347339, 340, 344, 346addgegt0d 11783 . . . . . . . . . . 11 ((πœ‘ ∧ π‘˜ ∈ β„•0) β†’ 0 < ((2 Β· π‘˜) + 1))
348336, 347gtned 11345 . . . . . . . . . 10 ((πœ‘ ∧ π‘˜ ∈ β„•0) β†’ ((2 Β· π‘˜) + 1) β‰  0)
349330, 335, 348divcld 11986 . . . . . . . . 9 ((πœ‘ ∧ π‘˜ ∈ β„•0) β†’ ((𝑇↑((2 Β· π‘˜) + 1)) / ((2 Β· π‘˜) + 1)) ∈ β„‚)
350326, 349mulcld 11230 . . . . . . . 8 ((πœ‘ ∧ π‘˜ ∈ β„•0) β†’ ((-1↑(((2 Β· π‘˜) + 1) βˆ’ 1)) Β· ((𝑇↑((2 Β· π‘˜) + 1)) / ((2 Β· π‘˜) + 1))) ∈ β„‚)
351350, 349addcld 11229 . . . . . . 7 ((πœ‘ ∧ π‘˜ ∈ β„•0) β†’ (((-1↑(((2 Β· π‘˜) + 1) βˆ’ 1)) Β· ((𝑇↑((2 Β· π‘˜) + 1)) / ((2 Β· π‘˜) + 1))) + ((𝑇↑((2 Β· π‘˜) + 1)) / ((2 Β· π‘˜) + 1))) ∈ β„‚)
352307, 314, 319, 351fvmptd 7002 . . . . . 6 ((πœ‘ ∧ π‘˜ ∈ β„•0) β†’ (πΉβ€˜((2 Β· π‘˜) + 1)) = (((-1↑(((2 Β· π‘˜) + 1) βˆ’ 1)) Β· ((𝑇↑((2 Β· π‘˜) + 1)) / ((2 Β· π‘˜) + 1))) + ((𝑇↑((2 Β· π‘˜) + 1)) / ((2 Β· π‘˜) + 1))))
353321adantl 482 . . . . . . . . . . . 12 ((πœ‘ ∧ π‘˜ ∈ β„•0) β†’ (((2 Β· π‘˜) + 1) βˆ’ 1) = (2 Β· π‘˜))
354353oveq2d 7421 . . . . . . . . . . 11 ((πœ‘ ∧ π‘˜ ∈ β„•0) β†’ (-1↑(((2 Β· π‘˜) + 1) βˆ’ 1)) = (-1↑(2 Β· π‘˜)))
355 nn0z 12579 . . . . . . . . . . . . 13 (π‘˜ ∈ β„•0 β†’ π‘˜ ∈ β„€)
356 m1expeven 14071 . . . . . . . . . . . . 13 (π‘˜ ∈ β„€ β†’ (-1↑(2 Β· π‘˜)) = 1)
357355, 356syl 17 . . . . . . . . . . . 12 (π‘˜ ∈ β„•0 β†’ (-1↑(2 Β· π‘˜)) = 1)
358357adantl 482 . . . . . . . . . . 11 ((πœ‘ ∧ π‘˜ ∈ β„•0) β†’ (-1↑(2 Β· π‘˜)) = 1)
359354, 358eqtrd 2772 . . . . . . . . . 10 ((πœ‘ ∧ π‘˜ ∈ β„•0) β†’ (-1↑(((2 Β· π‘˜) + 1) βˆ’ 1)) = 1)
360359oveq1d 7420 . . . . . . . . 9 ((πœ‘ ∧ π‘˜ ∈ β„•0) β†’ ((-1↑(((2 Β· π‘˜) + 1) βˆ’ 1)) Β· ((𝑇↑((2 Β· π‘˜) + 1)) / ((2 Β· π‘˜) + 1))) = (1 Β· ((𝑇↑((2 Β· π‘˜) + 1)) / ((2 Β· π‘˜) + 1))))
361349mullidd 11228 . . . . . . . . 9 ((πœ‘ ∧ π‘˜ ∈ β„•0) β†’ (1 Β· ((𝑇↑((2 Β· π‘˜) + 1)) / ((2 Β· π‘˜) + 1))) = ((𝑇↑((2 Β· π‘˜) + 1)) / ((2 Β· π‘˜) + 1)))
362360, 361eqtrd 2772 . . . . . . . 8 ((πœ‘ ∧ π‘˜ ∈ β„•0) β†’ ((-1↑(((2 Β· π‘˜) + 1) βˆ’ 1)) Β· ((𝑇↑((2 Β· π‘˜) + 1)) / ((2 Β· π‘˜) + 1))) = ((𝑇↑((2 Β· π‘˜) + 1)) / ((2 Β· π‘˜) + 1)))
363362oveq1d 7420 . . . . . . 7 ((πœ‘ ∧ π‘˜ ∈ β„•0) β†’ (((-1↑(((2 Β· π‘˜) + 1) βˆ’ 1)) Β· ((𝑇↑((2 Β· π‘˜) + 1)) / ((2 Β· π‘˜) + 1))) + ((𝑇↑((2 Β· π‘˜) + 1)) / ((2 Β· π‘˜) + 1))) = (((𝑇↑((2 Β· π‘˜) + 1)) / ((2 Β· π‘˜) + 1)) + ((𝑇↑((2 Β· π‘˜) + 1)) / ((2 Β· π‘˜) + 1))))
3643492timesd 12451 . . . . . . 7 ((πœ‘ ∧ π‘˜ ∈ β„•0) β†’ (2 Β· ((𝑇↑((2 Β· π‘˜) + 1)) / ((2 Β· π‘˜) + 1))) = (((𝑇↑((2 Β· π‘˜) + 1)) / ((2 Β· π‘˜) + 1)) + ((𝑇↑((2 Β· π‘˜) + 1)) / ((2 Β· π‘˜) + 1))))
365330, 335, 348divrec2d 11990 . . . . . . . 8 ((πœ‘ ∧ π‘˜ ∈ β„•0) β†’ ((𝑇↑((2 Β· π‘˜) + 1)) / ((2 Β· π‘˜) + 1)) = ((1 / ((2 Β· π‘˜) + 1)) Β· (𝑇↑((2 Β· π‘˜) + 1))))
366365oveq2d 7421 . . . . . . 7 ((πœ‘ ∧ π‘˜ ∈ β„•0) β†’ (2 Β· ((𝑇↑((2 Β· π‘˜) + 1)) / ((2 Β· π‘˜) + 1))) = (2 Β· ((1 / ((2 Β· π‘˜) + 1)) Β· (𝑇↑((2 Β· π‘˜) + 1)))))
367363, 364, 3663eqtr2d 2778 . . . . . 6 ((πœ‘ ∧ π‘˜ ∈ β„•0) β†’ (((-1↑(((2 Β· π‘˜) + 1) βˆ’ 1)) Β· ((𝑇↑((2 Β· π‘˜) + 1)) / ((2 Β· π‘˜) + 1))) + ((𝑇↑((2 Β· π‘˜) + 1)) / ((2 Β· π‘˜) + 1))) = (2 Β· ((1 / ((2 Β· π‘˜) + 1)) Β· (𝑇↑((2 Β· π‘˜) + 1)))))
368352, 367eqtr2d 2773 . . . . 5 ((πœ‘ ∧ π‘˜ ∈ β„•0) β†’ (2 Β· ((1 / ((2 Β· π‘˜) + 1)) Β· (𝑇↑((2 Β· π‘˜) + 1)))) = (πΉβ€˜((2 Β· π‘˜) + 1)))
369 stirlinglem5.4 . . . . . . 7 𝐻 = (𝑗 ∈ β„•0 ↦ (2 Β· ((1 / ((2 Β· 𝑗) + 1)) Β· (𝑇↑((2 Β· 𝑗) + 1)))))
370369a1i 11 . . . . . 6 ((πœ‘ ∧ π‘˜ ∈ β„•0) β†’ 𝐻 = (𝑗 ∈ β„•0 ↦ (2 Β· ((1 / ((2 Β· 𝑗) + 1)) Β· (𝑇↑((2 Β· 𝑗) + 1))))))
371 simpr 485 . . . . . . . . . . 11 (((πœ‘ ∧ π‘˜ ∈ β„•0) ∧ 𝑗 = π‘˜) β†’ 𝑗 = π‘˜)
372371oveq2d 7421 . . . . . . . . . 10 (((πœ‘ ∧ π‘˜ ∈ β„•0) ∧ 𝑗 = π‘˜) β†’ (2 Β· 𝑗) = (2 Β· π‘˜))
373372oveq1d 7420 . . . . . . . . 9 (((πœ‘ ∧ π‘˜ ∈ β„•0) ∧ 𝑗 = π‘˜) β†’ ((2 Β· 𝑗) + 1) = ((2 Β· π‘˜) + 1))
374373oveq2d 7421 . . . . . . . 8 (((πœ‘ ∧ π‘˜ ∈ β„•0) ∧ 𝑗 = π‘˜) β†’ (1 / ((2 Β· 𝑗) + 1)) = (1 / ((2 Β· π‘˜) + 1)))
375373oveq2d 7421 . . . . . . . 8 (((πœ‘ ∧ π‘˜ ∈ β„•0) ∧ 𝑗 = π‘˜) β†’ (𝑇↑((2 Β· 𝑗) + 1)) = (𝑇↑((2 Β· π‘˜) + 1)))
376374, 375oveq12d 7423 . . . . . . 7 (((πœ‘ ∧ π‘˜ ∈ β„•0) ∧ 𝑗 = π‘˜) β†’ ((1 / ((2 Β· 𝑗) + 1)) Β· (𝑇↑((2 Β· 𝑗) + 1))) = ((1 / ((2 Β· π‘˜) + 1)) Β· (𝑇↑((2 Β· π‘˜) + 1))))
377376oveq2d 7421 . . . . . 6 (((πœ‘ ∧ π‘˜ ∈ β„•0) ∧ 𝑗 = π‘˜) β†’ (2 Β· ((1 / ((2 Β· 𝑗) + 1)) Β· (𝑇↑((2 Β· 𝑗) + 1)))) = (2 Β· ((1 / ((2 Β· π‘˜) + 1)) Β· (𝑇↑((2 Β· π‘˜) + 1)))))
378335, 348reccld 11979 . . . . . . . 8 ((πœ‘ ∧ π‘˜ ∈ β„•0) β†’ (1 / ((2 Β· π‘˜) + 1)) ∈ β„‚)
379378, 330mulcld 11230 . . . . . . 7 ((πœ‘ ∧ π‘˜ ∈ β„•0) β†’ ((1 / ((2 Β· π‘˜) + 1)) Β· (𝑇↑((2 Β· π‘˜) + 1))) ∈ β„‚)
380331, 379mulcld 11230 . . . . . 6 ((πœ‘ ∧ π‘˜ ∈ β„•0) β†’ (2 Β· ((1 / ((2 Β· π‘˜) + 1)) Β· (𝑇↑((2 Β· π‘˜) + 1)))) ∈ β„‚)
381370, 377, 316, 380fvmptd 7002 . . . . 5 ((πœ‘ ∧ π‘˜ ∈ β„•0) β†’ (π»β€˜π‘˜) = (2 Β· ((1 / ((2 Β· π‘˜) + 1)) Β· (𝑇↑((2 Β· π‘˜) + 1)))))
382197a1i 11 . . . . . . . . 9 (π‘˜ ∈ β„•0 β†’ 1 ∈ β„•0)
383323, 382nn0addcld 12532 . . . . . . . 8 (π‘˜ ∈ β„•0 β†’ ((2 Β· π‘˜) + 1) ∈ β„•0)
384158, 161, 162, 383fvmptd 7002 . . . . . . 7 (π‘˜ ∈ β„•0 β†’ (πΊβ€˜π‘˜) = ((2 Β· π‘˜) + 1))
385384adantl 482 . . . . . 6 ((πœ‘ ∧ π‘˜ ∈ β„•0) β†’ (πΊβ€˜π‘˜) = ((2 Β· π‘˜) + 1))
386385fveq2d 6892 . . . . 5 ((πœ‘ ∧ π‘˜ ∈ β„•0) β†’ (πΉβ€˜(πΊβ€˜π‘˜)) = (πΉβ€˜((2 Β· π‘˜) + 1)))
387368, 381, 3863eqtr4d 2782 . . . 4 ((πœ‘ ∧ π‘˜ ∈ β„•0) β†’ (π»β€˜π‘˜) = (πΉβ€˜(πΊβ€˜π‘˜)))
388135, 1, 136, 2, 145, 178, 305, 306, 387isercoll2 15611 . . 3 (πœ‘ β†’ (seq0( + , 𝐻) ⇝ ((logβ€˜(1 + 𝑇)) βˆ’ (logβ€˜(1 βˆ’ 𝑇))) ↔ seq1( + , 𝐹) ⇝ ((logβ€˜(1 + 𝑇)) βˆ’ (logβ€˜(1 βˆ’ 𝑇)))))
389134, 388mpbird 256 . 2 (πœ‘ β†’ seq0( + , 𝐻) ⇝ ((logβ€˜(1 + 𝑇)) βˆ’ (logβ€˜(1 βˆ’ 𝑇))))
39051, 13resubcld 11638 . . . 4 (πœ‘ β†’ (1 βˆ’ 𝑇) ∈ ℝ)
39114subidd 11555 . . . . . 6 (πœ‘ β†’ (𝑇 βˆ’ 𝑇) = 0)
392391eqcomd 2738 . . . . 5 (πœ‘ β†’ 0 = (𝑇 βˆ’ 𝑇))
39313, 51, 13, 129ltsub1dd 11822 . . . . 5 (πœ‘ β†’ (𝑇 βˆ’ 𝑇) < (1 βˆ’ 𝑇))
394392, 393eqbrtrd 5169 . . . 4 (πœ‘ β†’ 0 < (1 βˆ’ 𝑇))
395390, 394elrpd 13009 . . 3 (πœ‘ β†’ (1 βˆ’ 𝑇) ∈ ℝ+)
396123, 395relogdivd 26125 . 2 (πœ‘ β†’ (logβ€˜((1 + 𝑇) / (1 βˆ’ 𝑇))) = ((logβ€˜(1 + 𝑇)) βˆ’ (logβ€˜(1 βˆ’ 𝑇))))
397389, 396breqtrrd 5175 1 (πœ‘ β†’ seq0( + , 𝐻) ⇝ (logβ€˜((1 + 𝑇) / (1 βˆ’ 𝑇))))
Colors of variables: wff setvar class
Syntax hints:  Β¬ wn 3   β†’ wi 4   ↔ wb 205   ∧ wa 396   ∨ wo 845   = wceq 1541   ∈ wcel 2106   β‰  wne 2940  βˆ€wral 3061  βˆƒwrex 3070  Vcvv 3474   βˆ– cdif 3944   class class class wbr 5147   ↦ cmpt 5230  ran crn 5676   ∘ ccom 5679  βŸΆwf 6536  β€˜cfv 6540  (class class class)co 7405  β„‚cc 11104  β„cr 11105  0cc0 11106  1c1 11107   + caddc 11109   Β· cmul 11111  β„*cxr 11243   < clt 11244   ≀ cle 11245   βˆ’ cmin 11440  -cneg 11441   / cdiv 11867  β„•cn 12208  2c2 12263  β„•0cn0 12468  β„€cz 12554  β„€β‰₯cuz 12818  β„+crp 12970  ...cfz 13480  seqcseq 13962  β†‘cexp 14023  abscabs 15177   ⇝ cli 15424   βˆ₯ cdvds 16193  βˆžMetcxmet 20921  ballcbl 20923  logclog 26054
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 2703  ax-rep 5284  ax-sep 5298  ax-nul 5305  ax-pow 5362  ax-pr 5426  ax-un 7721  ax-inf2 9632  ax-cnex 11162  ax-resscn 11163  ax-1cn 11164  ax-icn 11165  ax-addcl 11166  ax-addrcl 11167  ax-mulcl 11168  ax-mulrcl 11169  ax-mulcom 11170  ax-addass 11171  ax-mulass 11172  ax-distr 11173  ax-i2m1 11174  ax-1ne0 11175  ax-1rid 11176  ax-rnegex 11177  ax-rrecex 11178  ax-cnre 11179  ax-pre-lttri 11180  ax-pre-lttrn 11181  ax-pre-ltadd 11182  ax-pre-mulgt0 11183  ax-pre-sup 11184  ax-addf 11185  ax-mulf 11186
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 2534  df-eu 2563  df-clab 2710  df-cleq 2724  df-clel 2810  df-nfc 2885  df-ne 2941  df-nel 3047  df-ral 3062  df-rex 3071  df-rmo 3376  df-reu 3377  df-rab 3433  df-v 3476  df-sbc 3777  df-csb 3893  df-dif 3950  df-un 3952  df-in 3954  df-ss 3964  df-pss 3966  df-nul 4322  df-if 4528  df-pw 4603  df-sn 4628  df-pr 4630  df-tp 4632  df-op 4634  df-uni 4908  df-int 4950  df-iun 4998  df-iin 4999  df-br 5148  df-opab 5210  df-mpt 5231  df-tr 5265  df-id 5573  df-eprel 5579  df-po 5587  df-so 5588  df-fr 5630  df-se 5631  df-we 5632  df-xp 5681  df-rel 5682  df-cnv 5683  df-co 5684  df-dm 5685  df-rn 5686  df-res 5687  df-ima 5688  df-pred 6297  df-ord 6364  df-on 6365  df-lim 6366  df-suc 6367  df-iota 6492  df-fun 6542  df-fn 6543  df-f 6544  df-f1 6545  df-fo 6546  df-f1o 6547  df-fv 6548  df-isom 6549  df-riota 7361  df-ov 7408  df-oprab 7409  df-mpo 7410  df-of 7666  df-om 7852  df-1st 7971  df-2nd 7972  df-supp 8143  df-frecs 8262  df-wrecs 8293  df-recs 8367  df-rdg 8406  df-1o 8462  df-2o 8463  df-oadd 8466  df-er 8699  df-map 8818  df-pm 8819  df-ixp 8888  df-en 8936  df-dom 8937  df-sdom 8938  df-fin 8939  df-fsupp 9358  df-fi 9402  df-sup 9433  df-inf 9434  df-oi 9501  df-card 9930  df-pnf 11246  df-mnf 11247  df-xr 11248  df-ltxr 11249  df-le 11250  df-sub 11442  df-neg 11443  df-div 11868  df-nn 12209  df-2 12271  df-3 12272  df-4 12273  df-5 12274  df-6 12275  df-7 12276  df-8 12277  df-9 12278  df-n0 12469  df-xnn0 12541  df-z 12555  df-dec 12674  df-uz 12819  df-q 12929  df-rp 12971  df-xneg 13088  df-xadd 13089  df-xmul 13090  df-ioo 13324  df-ioc 13325  df-ico 13326  df-icc 13327  df-fz 13481  df-fzo 13624  df-fl 13753  df-mod 13831  df-seq 13963  df-exp 14024  df-fac 14230  df-bc 14259  df-hash 14287  df-shft 15010  df-cj 15042  df-re 15043  df-im 15044  df-sqrt 15178  df-abs 15179  df-limsup 15411  df-clim 15428  df-rlim 15429  df-sum 15629  df-ef 16007  df-sin 16009  df-cos 16010  df-tan 16011  df-pi 16012  df-dvds 16194  df-struct 17076  df-sets 17093  df-slot 17111  df-ndx 17123  df-base 17141  df-ress 17170  df-plusg 17206  df-mulr 17207  df-starv 17208  df-sca 17209  df-vsca 17210  df-ip 17211  df-tset 17212  df-ple 17213  df-ds 17215  df-unif 17216  df-hom 17217  df-cco 17218  df-rest 17364  df-topn 17365  df-0g 17383  df-gsum 17384  df-topgen 17385  df-pt 17386  df-prds 17389  df-xrs 17444  df-qtop 17449  df-imas 17450  df-xps 17452  df-mre 17526  df-mrc 17527  df-acs 17529  df-mgm 18557  df-sgrp 18606  df-mnd 18622  df-submnd 18668  df-mulg 18945  df-cntz 19175  df-cmn 19644  df-psmet 20928  df-xmet 20929  df-met 20930  df-bl 20931  df-mopn 20932  df-fbas 20933  df-fg 20934  df-cnfld 20937  df-top 22387  df-topon 22404  df-topsp 22426  df-bases 22440  df-cld 22514  df-ntr 22515  df-cls 22516  df-nei 22593  df-lp 22631  df-perf 22632  df-cn 22722  df-cnp 22723  df-haus 22810  df-cmp 22882  df-tx 23057  df-hmeo 23250  df-fil 23341  df-fm 23433  df-flim 23434  df-flf 23435  df-xms 23817  df-ms 23818  df-tms 23819  df-cncf 24385  df-limc 25374  df-dv 25375  df-ulm 25880  df-log 26056
This theorem is referenced by:  stirlinglem6  44781
  Copyright terms: Public domain W3C validator