MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  lgamcvg2 Structured version   Visualization version   GIF version

Theorem lgamcvg2 26548
Description: The series 𝐺 converges to log Ξ“(𝐴 + 1). (Contributed by Mario Carneiro, 9-Jul-2017.)
Hypotheses
Ref Expression
lgamcvg.g 𝐺 = (π‘š ∈ β„• ↦ ((𝐴 Β· (logβ€˜((π‘š + 1) / π‘š))) βˆ’ (logβ€˜((𝐴 / π‘š) + 1))))
lgamcvg.a (πœ‘ β†’ 𝐴 ∈ (β„‚ βˆ– (β„€ βˆ– β„•)))
Assertion
Ref Expression
lgamcvg2 (πœ‘ β†’ seq1( + , 𝐺) ⇝ (log Ξ“β€˜(𝐴 + 1)))
Distinct variable groups:   𝐴,π‘š   πœ‘,π‘š
Allowed substitution hint:   𝐺(π‘š)

Proof of Theorem lgamcvg2
Dummy variables π‘˜ 𝑛 π‘Ÿ π‘₯ are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 nnuz 12861 . . 3 β„• = (β„€β‰₯β€˜1)
2 1zzd 12589 . . 3 (πœ‘ β†’ 1 ∈ β„€)
3 eqid 2732 . . . 4 (π‘š ∈ β„• ↦ (((𝐴 + 1) Β· (logβ€˜((π‘š + 1) / π‘š))) βˆ’ (logβ€˜(((𝐴 + 1) / π‘š) + 1)))) = (π‘š ∈ β„• ↦ (((𝐴 + 1) Β· (logβ€˜((π‘š + 1) / π‘š))) βˆ’ (logβ€˜(((𝐴 + 1) / π‘š) + 1))))
4 lgamcvg.a . . . . 5 (πœ‘ β†’ 𝐴 ∈ (β„‚ βˆ– (β„€ βˆ– β„•)))
5 1nn0 12484 . . . . . 6 1 ∈ β„•0
65a1i 11 . . . . 5 (πœ‘ β†’ 1 ∈ β„•0)
74, 6dmgmaddnn0 26520 . . . 4 (πœ‘ β†’ (𝐴 + 1) ∈ (β„‚ βˆ– (β„€ βˆ– β„•)))
83, 7lgamcvg 26547 . . 3 (πœ‘ β†’ seq1( + , (π‘š ∈ β„• ↦ (((𝐴 + 1) Β· (logβ€˜((π‘š + 1) / π‘š))) βˆ’ (logβ€˜(((𝐴 + 1) / π‘š) + 1))))) ⇝ ((log Ξ“β€˜(𝐴 + 1)) + (logβ€˜(𝐴 + 1))))
9 seqex 13964 . . . 4 seq1( + , 𝐺) ∈ V
109a1i 11 . . 3 (πœ‘ β†’ seq1( + , 𝐺) ∈ V)
114eldifad 3959 . . . . . . . 8 (πœ‘ β†’ 𝐴 ∈ β„‚)
1211abscld 15379 . . . . . . 7 (πœ‘ β†’ (absβ€˜π΄) ∈ ℝ)
13 arch 12465 . . . . . . 7 ((absβ€˜π΄) ∈ ℝ β†’ βˆƒπ‘Ÿ ∈ β„• (absβ€˜π΄) < π‘Ÿ)
1412, 13syl 17 . . . . . 6 (πœ‘ β†’ βˆƒπ‘Ÿ ∈ β„• (absβ€˜π΄) < π‘Ÿ)
15 eqid 2732 . . . . . . . . 9 (β„€β‰₯β€˜π‘Ÿ) = (β„€β‰₯β€˜π‘Ÿ)
16 simprl 769 . . . . . . . . . 10 ((πœ‘ ∧ (π‘Ÿ ∈ β„• ∧ (absβ€˜π΄) < π‘Ÿ)) β†’ π‘Ÿ ∈ β„•)
1716nnzd 12581 . . . . . . . . 9 ((πœ‘ ∧ (π‘Ÿ ∈ β„• ∧ (absβ€˜π΄) < π‘Ÿ)) β†’ π‘Ÿ ∈ β„€)
18 eqid 2732 . . . . . . . . . . 11 (β„‚ βˆ– (-∞(,]0)) = (β„‚ βˆ– (-∞(,]0))
1918logcn 26146 . . . . . . . . . 10 (log β†Ύ (β„‚ βˆ– (-∞(,]0))) ∈ ((β„‚ βˆ– (-∞(,]0))–cnβ†’β„‚)
2019a1i 11 . . . . . . . . 9 ((πœ‘ ∧ (π‘Ÿ ∈ β„• ∧ (absβ€˜π΄) < π‘Ÿ)) β†’ (log β†Ύ (β„‚ βˆ– (-∞(,]0))) ∈ ((β„‚ βˆ– (-∞(,]0))–cnβ†’β„‚))
21 eqid 2732 . . . . . . . . . . . 12 (1(ballβ€˜(abs ∘ βˆ’ ))1) = (1(ballβ€˜(abs ∘ βˆ’ ))1)
2221dvlog2lem 26151 . . . . . . . . . . 11 (1(ballβ€˜(abs ∘ βˆ’ ))1) βŠ† (β„‚ βˆ– (-∞(,]0))
2311ad2antrr 724 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ (π‘Ÿ ∈ β„• ∧ (absβ€˜π΄) < π‘Ÿ)) ∧ π‘š ∈ (β„€β‰₯β€˜π‘Ÿ)) β†’ 𝐴 ∈ β„‚)
24 eluznn 12898 . . . . . . . . . . . . . . . . . . . . . 22 ((π‘Ÿ ∈ β„• ∧ π‘š ∈ (β„€β‰₯β€˜π‘Ÿ)) β†’ π‘š ∈ β„•)
2524ex 413 . . . . . . . . . . . . . . . . . . . . 21 (π‘Ÿ ∈ β„• β†’ (π‘š ∈ (β„€β‰₯β€˜π‘Ÿ) β†’ π‘š ∈ β„•))
2625ad2antrl 726 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ (π‘Ÿ ∈ β„• ∧ (absβ€˜π΄) < π‘Ÿ)) β†’ (π‘š ∈ (β„€β‰₯β€˜π‘Ÿ) β†’ π‘š ∈ β„•))
2726imp 407 . . . . . . . . . . . . . . . . . . 19 (((πœ‘ ∧ (π‘Ÿ ∈ β„• ∧ (absβ€˜π΄) < π‘Ÿ)) ∧ π‘š ∈ (β„€β‰₯β€˜π‘Ÿ)) β†’ π‘š ∈ β„•)
2827nncnd 12224 . . . . . . . . . . . . . . . . . 18 (((πœ‘ ∧ (π‘Ÿ ∈ β„• ∧ (absβ€˜π΄) < π‘Ÿ)) ∧ π‘š ∈ (β„€β‰₯β€˜π‘Ÿ)) β†’ π‘š ∈ β„‚)
29 1cnd 11205 . . . . . . . . . . . . . . . . . 18 (((πœ‘ ∧ (π‘Ÿ ∈ β„• ∧ (absβ€˜π΄) < π‘Ÿ)) ∧ π‘š ∈ (β„€β‰₯β€˜π‘Ÿ)) β†’ 1 ∈ β„‚)
3028, 29addcld 11229 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ (π‘Ÿ ∈ β„• ∧ (absβ€˜π΄) < π‘Ÿ)) ∧ π‘š ∈ (β„€β‰₯β€˜π‘Ÿ)) β†’ (π‘š + 1) ∈ β„‚)
3127peano2nnd 12225 . . . . . . . . . . . . . . . . . 18 (((πœ‘ ∧ (π‘Ÿ ∈ β„• ∧ (absβ€˜π΄) < π‘Ÿ)) ∧ π‘š ∈ (β„€β‰₯β€˜π‘Ÿ)) β†’ (π‘š + 1) ∈ β„•)
3231nnne0d 12258 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ (π‘Ÿ ∈ β„• ∧ (absβ€˜π΄) < π‘Ÿ)) ∧ π‘š ∈ (β„€β‰₯β€˜π‘Ÿ)) β†’ (π‘š + 1) β‰  0)
3323, 30, 32divcld 11986 . . . . . . . . . . . . . . . 16 (((πœ‘ ∧ (π‘Ÿ ∈ β„• ∧ (absβ€˜π΄) < π‘Ÿ)) ∧ π‘š ∈ (β„€β‰₯β€˜π‘Ÿ)) β†’ (𝐴 / (π‘š + 1)) ∈ β„‚)
3433, 29addcld 11229 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ (π‘Ÿ ∈ β„• ∧ (absβ€˜π΄) < π‘Ÿ)) ∧ π‘š ∈ (β„€β‰₯β€˜π‘Ÿ)) β†’ ((𝐴 / (π‘š + 1)) + 1) ∈ β„‚)
35 ax-1cn 11164 . . . . . . . . . . . . . . 15 1 ∈ β„‚
36 eqid 2732 . . . . . . . . . . . . . . . 16 (abs ∘ βˆ’ ) = (abs ∘ βˆ’ )
3736cnmetdval 24278 . . . . . . . . . . . . . . 15 ((((𝐴 / (π‘š + 1)) + 1) ∈ β„‚ ∧ 1 ∈ β„‚) β†’ (((𝐴 / (π‘š + 1)) + 1)(abs ∘ βˆ’ )1) = (absβ€˜(((𝐴 / (π‘š + 1)) + 1) βˆ’ 1)))
3834, 35, 37sylancl 586 . . . . . . . . . . . . . 14 (((πœ‘ ∧ (π‘Ÿ ∈ β„• ∧ (absβ€˜π΄) < π‘Ÿ)) ∧ π‘š ∈ (β„€β‰₯β€˜π‘Ÿ)) β†’ (((𝐴 / (π‘š + 1)) + 1)(abs ∘ βˆ’ )1) = (absβ€˜(((𝐴 / (π‘š + 1)) + 1) βˆ’ 1)))
3933, 29pncand 11568 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ (π‘Ÿ ∈ β„• ∧ (absβ€˜π΄) < π‘Ÿ)) ∧ π‘š ∈ (β„€β‰₯β€˜π‘Ÿ)) β†’ (((𝐴 / (π‘š + 1)) + 1) βˆ’ 1) = (𝐴 / (π‘š + 1)))
4039fveq2d 6892 . . . . . . . . . . . . . 14 (((πœ‘ ∧ (π‘Ÿ ∈ β„• ∧ (absβ€˜π΄) < π‘Ÿ)) ∧ π‘š ∈ (β„€β‰₯β€˜π‘Ÿ)) β†’ (absβ€˜(((𝐴 / (π‘š + 1)) + 1) βˆ’ 1)) = (absβ€˜(𝐴 / (π‘š + 1))))
4123, 30, 32absdivd 15398 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ (π‘Ÿ ∈ β„• ∧ (absβ€˜π΄) < π‘Ÿ)) ∧ π‘š ∈ (β„€β‰₯β€˜π‘Ÿ)) β†’ (absβ€˜(𝐴 / (π‘š + 1))) = ((absβ€˜π΄) / (absβ€˜(π‘š + 1))))
4231nnred 12223 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ (π‘Ÿ ∈ β„• ∧ (absβ€˜π΄) < π‘Ÿ)) ∧ π‘š ∈ (β„€β‰₯β€˜π‘Ÿ)) β†’ (π‘š + 1) ∈ ℝ)
4331nnrpd 13010 . . . . . . . . . . . . . . . . . 18 (((πœ‘ ∧ (π‘Ÿ ∈ β„• ∧ (absβ€˜π΄) < π‘Ÿ)) ∧ π‘š ∈ (β„€β‰₯β€˜π‘Ÿ)) β†’ (π‘š + 1) ∈ ℝ+)
4443rpge0d 13016 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ (π‘Ÿ ∈ β„• ∧ (absβ€˜π΄) < π‘Ÿ)) ∧ π‘š ∈ (β„€β‰₯β€˜π‘Ÿ)) β†’ 0 ≀ (π‘š + 1))
4542, 44absidd 15365 . . . . . . . . . . . . . . . 16 (((πœ‘ ∧ (π‘Ÿ ∈ β„• ∧ (absβ€˜π΄) < π‘Ÿ)) ∧ π‘š ∈ (β„€β‰₯β€˜π‘Ÿ)) β†’ (absβ€˜(π‘š + 1)) = (π‘š + 1))
4645oveq2d 7421 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ (π‘Ÿ ∈ β„• ∧ (absβ€˜π΄) < π‘Ÿ)) ∧ π‘š ∈ (β„€β‰₯β€˜π‘Ÿ)) β†’ ((absβ€˜π΄) / (absβ€˜(π‘š + 1))) = ((absβ€˜π΄) / (π‘š + 1)))
4741, 46eqtrd 2772 . . . . . . . . . . . . . 14 (((πœ‘ ∧ (π‘Ÿ ∈ β„• ∧ (absβ€˜π΄) < π‘Ÿ)) ∧ π‘š ∈ (β„€β‰₯β€˜π‘Ÿ)) β†’ (absβ€˜(𝐴 / (π‘š + 1))) = ((absβ€˜π΄) / (π‘š + 1)))
4838, 40, 473eqtrd 2776 . . . . . . . . . . . . 13 (((πœ‘ ∧ (π‘Ÿ ∈ β„• ∧ (absβ€˜π΄) < π‘Ÿ)) ∧ π‘š ∈ (β„€β‰₯β€˜π‘Ÿ)) β†’ (((𝐴 / (π‘š + 1)) + 1)(abs ∘ βˆ’ )1) = ((absβ€˜π΄) / (π‘š + 1)))
4912ad2antrr 724 . . . . . . . . . . . . . . . 16 (((πœ‘ ∧ (π‘Ÿ ∈ β„• ∧ (absβ€˜π΄) < π‘Ÿ)) ∧ π‘š ∈ (β„€β‰₯β€˜π‘Ÿ)) β†’ (absβ€˜π΄) ∈ ℝ)
5016adantr 481 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ (π‘Ÿ ∈ β„• ∧ (absβ€˜π΄) < π‘Ÿ)) ∧ π‘š ∈ (β„€β‰₯β€˜π‘Ÿ)) β†’ π‘Ÿ ∈ β„•)
5150nnred 12223 . . . . . . . . . . . . . . . 16 (((πœ‘ ∧ (π‘Ÿ ∈ β„• ∧ (absβ€˜π΄) < π‘Ÿ)) ∧ π‘š ∈ (β„€β‰₯β€˜π‘Ÿ)) β†’ π‘Ÿ ∈ ℝ)
52 simplrr 776 . . . . . . . . . . . . . . . 16 (((πœ‘ ∧ (π‘Ÿ ∈ β„• ∧ (absβ€˜π΄) < π‘Ÿ)) ∧ π‘š ∈ (β„€β‰₯β€˜π‘Ÿ)) β†’ (absβ€˜π΄) < π‘Ÿ)
53 eluzle 12831 . . . . . . . . . . . . . . . . . 18 (π‘š ∈ (β„€β‰₯β€˜π‘Ÿ) β†’ π‘Ÿ ≀ π‘š)
5453adantl 482 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ (π‘Ÿ ∈ β„• ∧ (absβ€˜π΄) < π‘Ÿ)) ∧ π‘š ∈ (β„€β‰₯β€˜π‘Ÿ)) β†’ π‘Ÿ ≀ π‘š)
55 nnleltp1 12613 . . . . . . . . . . . . . . . . . 18 ((π‘Ÿ ∈ β„• ∧ π‘š ∈ β„•) β†’ (π‘Ÿ ≀ π‘š ↔ π‘Ÿ < (π‘š + 1)))
5650, 27, 55syl2anc 584 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ (π‘Ÿ ∈ β„• ∧ (absβ€˜π΄) < π‘Ÿ)) ∧ π‘š ∈ (β„€β‰₯β€˜π‘Ÿ)) β†’ (π‘Ÿ ≀ π‘š ↔ π‘Ÿ < (π‘š + 1)))
5754, 56mpbid 231 . . . . . . . . . . . . . . . 16 (((πœ‘ ∧ (π‘Ÿ ∈ β„• ∧ (absβ€˜π΄) < π‘Ÿ)) ∧ π‘š ∈ (β„€β‰₯β€˜π‘Ÿ)) β†’ π‘Ÿ < (π‘š + 1))
5849, 51, 42, 52, 57lttrd 11371 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ (π‘Ÿ ∈ β„• ∧ (absβ€˜π΄) < π‘Ÿ)) ∧ π‘š ∈ (β„€β‰₯β€˜π‘Ÿ)) β†’ (absβ€˜π΄) < (π‘š + 1))
5930mulridd 11227 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ (π‘Ÿ ∈ β„• ∧ (absβ€˜π΄) < π‘Ÿ)) ∧ π‘š ∈ (β„€β‰₯β€˜π‘Ÿ)) β†’ ((π‘š + 1) Β· 1) = (π‘š + 1))
6058, 59breqtrrd 5175 . . . . . . . . . . . . . 14 (((πœ‘ ∧ (π‘Ÿ ∈ β„• ∧ (absβ€˜π΄) < π‘Ÿ)) ∧ π‘š ∈ (β„€β‰₯β€˜π‘Ÿ)) β†’ (absβ€˜π΄) < ((π‘š + 1) Β· 1))
61 1red 11211 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ (π‘Ÿ ∈ β„• ∧ (absβ€˜π΄) < π‘Ÿ)) ∧ π‘š ∈ (β„€β‰₯β€˜π‘Ÿ)) β†’ 1 ∈ ℝ)
6249, 61, 43ltdivmuld 13063 . . . . . . . . . . . . . 14 (((πœ‘ ∧ (π‘Ÿ ∈ β„• ∧ (absβ€˜π΄) < π‘Ÿ)) ∧ π‘š ∈ (β„€β‰₯β€˜π‘Ÿ)) β†’ (((absβ€˜π΄) / (π‘š + 1)) < 1 ↔ (absβ€˜π΄) < ((π‘š + 1) Β· 1)))
6360, 62mpbird 256 . . . . . . . . . . . . 13 (((πœ‘ ∧ (π‘Ÿ ∈ β„• ∧ (absβ€˜π΄) < π‘Ÿ)) ∧ π‘š ∈ (β„€β‰₯β€˜π‘Ÿ)) β†’ ((absβ€˜π΄) / (π‘š + 1)) < 1)
6448, 63eqbrtrd 5169 . . . . . . . . . . . 12 (((πœ‘ ∧ (π‘Ÿ ∈ β„• ∧ (absβ€˜π΄) < π‘Ÿ)) ∧ π‘š ∈ (β„€β‰₯β€˜π‘Ÿ)) β†’ (((𝐴 / (π‘š + 1)) + 1)(abs ∘ βˆ’ )1) < 1)
65 cnxmet 24280 . . . . . . . . . . . . . 14 (abs ∘ βˆ’ ) ∈ (∞Metβ€˜β„‚)
6665a1i 11 . . . . . . . . . . . . 13 (((πœ‘ ∧ (π‘Ÿ ∈ β„• ∧ (absβ€˜π΄) < π‘Ÿ)) ∧ π‘š ∈ (β„€β‰₯β€˜π‘Ÿ)) β†’ (abs ∘ βˆ’ ) ∈ (∞Metβ€˜β„‚))
67 1rp 12974 . . . . . . . . . . . . . 14 1 ∈ ℝ+
68 rpxr 12979 . . . . . . . . . . . . . 14 (1 ∈ ℝ+ β†’ 1 ∈ ℝ*)
6967, 68mp1i 13 . . . . . . . . . . . . 13 (((πœ‘ ∧ (π‘Ÿ ∈ β„• ∧ (absβ€˜π΄) < π‘Ÿ)) ∧ π‘š ∈ (β„€β‰₯β€˜π‘Ÿ)) β†’ 1 ∈ ℝ*)
70 elbl3 23889 . . . . . . . . . . . . 13 ((((abs ∘ βˆ’ ) ∈ (∞Metβ€˜β„‚) ∧ 1 ∈ ℝ*) ∧ (1 ∈ β„‚ ∧ ((𝐴 / (π‘š + 1)) + 1) ∈ β„‚)) β†’ (((𝐴 / (π‘š + 1)) + 1) ∈ (1(ballβ€˜(abs ∘ βˆ’ ))1) ↔ (((𝐴 / (π‘š + 1)) + 1)(abs ∘ βˆ’ )1) < 1))
7166, 69, 29, 34, 70syl22anc 837 . . . . . . . . . . . 12 (((πœ‘ ∧ (π‘Ÿ ∈ β„• ∧ (absβ€˜π΄) < π‘Ÿ)) ∧ π‘š ∈ (β„€β‰₯β€˜π‘Ÿ)) β†’ (((𝐴 / (π‘š + 1)) + 1) ∈ (1(ballβ€˜(abs ∘ βˆ’ ))1) ↔ (((𝐴 / (π‘š + 1)) + 1)(abs ∘ βˆ’ )1) < 1))
7264, 71mpbird 256 . . . . . . . . . . 11 (((πœ‘ ∧ (π‘Ÿ ∈ β„• ∧ (absβ€˜π΄) < π‘Ÿ)) ∧ π‘š ∈ (β„€β‰₯β€˜π‘Ÿ)) β†’ ((𝐴 / (π‘š + 1)) + 1) ∈ (1(ballβ€˜(abs ∘ βˆ’ ))1))
7322, 72sselid 3979 . . . . . . . . . 10 (((πœ‘ ∧ (π‘Ÿ ∈ β„• ∧ (absβ€˜π΄) < π‘Ÿ)) ∧ π‘š ∈ (β„€β‰₯β€˜π‘Ÿ)) β†’ ((𝐴 / (π‘š + 1)) + 1) ∈ (β„‚ βˆ– (-∞(,]0)))
7473fmpttd 7111 . . . . . . . . 9 ((πœ‘ ∧ (π‘Ÿ ∈ β„• ∧ (absβ€˜π΄) < π‘Ÿ)) β†’ (π‘š ∈ (β„€β‰₯β€˜π‘Ÿ) ↦ ((𝐴 / (π‘š + 1)) + 1)):(β„€β‰₯β€˜π‘Ÿ)⟢(β„‚ βˆ– (-∞(,]0)))
7526ssrdv 3987 . . . . . . . . . . 11 ((πœ‘ ∧ (π‘Ÿ ∈ β„• ∧ (absβ€˜π΄) < π‘Ÿ)) β†’ (β„€β‰₯β€˜π‘Ÿ) βŠ† β„•)
7675resmptd 6038 . . . . . . . . . 10 ((πœ‘ ∧ (π‘Ÿ ∈ β„• ∧ (absβ€˜π΄) < π‘Ÿ)) β†’ ((π‘š ∈ β„• ↦ ((𝐴 / (π‘š + 1)) + 1)) β†Ύ (β„€β‰₯β€˜π‘Ÿ)) = (π‘š ∈ (β„€β‰₯β€˜π‘Ÿ) ↦ ((𝐴 / (π‘š + 1)) + 1)))
77 nnex 12214 . . . . . . . . . . . . . . . . 17 β„• ∈ V
7877mptex 7221 . . . . . . . . . . . . . . . 16 (π‘š ∈ β„• ↦ (𝐴 / (π‘š + 1))) ∈ V
7978a1i 11 . . . . . . . . . . . . . . 15 (πœ‘ β†’ (π‘š ∈ β„• ↦ (𝐴 / (π‘š + 1))) ∈ V)
80 oveq1 7412 . . . . . . . . . . . . . . . . . 18 (π‘š = 𝑛 β†’ (π‘š + 1) = (𝑛 + 1))
8180oveq2d 7421 . . . . . . . . . . . . . . . . 17 (π‘š = 𝑛 β†’ (𝐴 / (π‘š + 1)) = (𝐴 / (𝑛 + 1)))
82 eqid 2732 . . . . . . . . . . . . . . . . 17 (π‘š ∈ β„• ↦ (𝐴 / (π‘š + 1))) = (π‘š ∈ β„• ↦ (𝐴 / (π‘š + 1)))
83 ovex 7438 . . . . . . . . . . . . . . . . 17 (𝐴 / (𝑛 + 1)) ∈ V
8481, 82, 83fvmpt 6995 . . . . . . . . . . . . . . . 16 (𝑛 ∈ β„• β†’ ((π‘š ∈ β„• ↦ (𝐴 / (π‘š + 1)))β€˜π‘›) = (𝐴 / (𝑛 + 1)))
8584adantl 482 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ ((π‘š ∈ β„• ↦ (𝐴 / (π‘š + 1)))β€˜π‘›) = (𝐴 / (𝑛 + 1)))
861, 2, 11, 2, 79, 85divcnvshft 15797 . . . . . . . . . . . . . 14 (πœ‘ β†’ (π‘š ∈ β„• ↦ (𝐴 / (π‘š + 1))) ⇝ 0)
87 1cnd 11205 . . . . . . . . . . . . . 14 (πœ‘ β†’ 1 ∈ β„‚)
8877mptex 7221 . . . . . . . . . . . . . . 15 (π‘š ∈ β„• ↦ ((𝐴 / (π‘š + 1)) + 1)) ∈ V
8988a1i 11 . . . . . . . . . . . . . 14 (πœ‘ β†’ (π‘š ∈ β„• ↦ ((𝐴 / (π‘š + 1)) + 1)) ∈ V)
9011adantr 481 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ 𝐴 ∈ β„‚)
91 simpr 485 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ 𝑛 ∈ β„•)
9291nncnd 12224 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ 𝑛 ∈ β„‚)
93 1cnd 11205 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ 1 ∈ β„‚)
9492, 93addcld 11229 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ (𝑛 + 1) ∈ β„‚)
9591peano2nnd 12225 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ (𝑛 + 1) ∈ β„•)
9695nnne0d 12258 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ (𝑛 + 1) β‰  0)
9790, 94, 96divcld 11986 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ (𝐴 / (𝑛 + 1)) ∈ β„‚)
9885, 97eqeltrd 2833 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ ((π‘š ∈ β„• ↦ (𝐴 / (π‘š + 1)))β€˜π‘›) ∈ β„‚)
9981oveq1d 7420 . . . . . . . . . . . . . . . . 17 (π‘š = 𝑛 β†’ ((𝐴 / (π‘š + 1)) + 1) = ((𝐴 / (𝑛 + 1)) + 1))
100 eqid 2732 . . . . . . . . . . . . . . . . 17 (π‘š ∈ β„• ↦ ((𝐴 / (π‘š + 1)) + 1)) = (π‘š ∈ β„• ↦ ((𝐴 / (π‘š + 1)) + 1))
101 ovex 7438 . . . . . . . . . . . . . . . . 17 ((𝐴 / (𝑛 + 1)) + 1) ∈ V
10299, 100, 101fvmpt 6995 . . . . . . . . . . . . . . . 16 (𝑛 ∈ β„• β†’ ((π‘š ∈ β„• ↦ ((𝐴 / (π‘š + 1)) + 1))β€˜π‘›) = ((𝐴 / (𝑛 + 1)) + 1))
103102adantl 482 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ ((π‘š ∈ β„• ↦ ((𝐴 / (π‘š + 1)) + 1))β€˜π‘›) = ((𝐴 / (𝑛 + 1)) + 1))
10485oveq1d 7420 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ (((π‘š ∈ β„• ↦ (𝐴 / (π‘š + 1)))β€˜π‘›) + 1) = ((𝐴 / (𝑛 + 1)) + 1))
105103, 104eqtr4d 2775 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ ((π‘š ∈ β„• ↦ ((𝐴 / (π‘š + 1)) + 1))β€˜π‘›) = (((π‘š ∈ β„• ↦ (𝐴 / (π‘š + 1)))β€˜π‘›) + 1))
1061, 2, 86, 87, 89, 98, 105climaddc1 15575 . . . . . . . . . . . . 13 (πœ‘ β†’ (π‘š ∈ β„• ↦ ((𝐴 / (π‘š + 1)) + 1)) ⇝ (0 + 1))
107 0p1e1 12330 . . . . . . . . . . . . 13 (0 + 1) = 1
108106, 107breqtrdi 5188 . . . . . . . . . . . 12 (πœ‘ β†’ (π‘š ∈ β„• ↦ ((𝐴 / (π‘š + 1)) + 1)) ⇝ 1)
109108adantr 481 . . . . . . . . . . 11 ((πœ‘ ∧ (π‘Ÿ ∈ β„• ∧ (absβ€˜π΄) < π‘Ÿ)) β†’ (π‘š ∈ β„• ↦ ((𝐴 / (π‘š + 1)) + 1)) ⇝ 1)
110 climres 15515 . . . . . . . . . . . 12 ((π‘Ÿ ∈ β„€ ∧ (π‘š ∈ β„• ↦ ((𝐴 / (π‘š + 1)) + 1)) ∈ V) β†’ (((π‘š ∈ β„• ↦ ((𝐴 / (π‘š + 1)) + 1)) β†Ύ (β„€β‰₯β€˜π‘Ÿ)) ⇝ 1 ↔ (π‘š ∈ β„• ↦ ((𝐴 / (π‘š + 1)) + 1)) ⇝ 1))
11117, 88, 110sylancl 586 . . . . . . . . . . 11 ((πœ‘ ∧ (π‘Ÿ ∈ β„• ∧ (absβ€˜π΄) < π‘Ÿ)) β†’ (((π‘š ∈ β„• ↦ ((𝐴 / (π‘š + 1)) + 1)) β†Ύ (β„€β‰₯β€˜π‘Ÿ)) ⇝ 1 ↔ (π‘š ∈ β„• ↦ ((𝐴 / (π‘š + 1)) + 1)) ⇝ 1))
112109, 111mpbird 256 . . . . . . . . . 10 ((πœ‘ ∧ (π‘Ÿ ∈ β„• ∧ (absβ€˜π΄) < π‘Ÿ)) β†’ ((π‘š ∈ β„• ↦ ((𝐴 / (π‘š + 1)) + 1)) β†Ύ (β„€β‰₯β€˜π‘Ÿ)) ⇝ 1)
11376, 112eqbrtrrd 5171 . . . . . . . . 9 ((πœ‘ ∧ (π‘Ÿ ∈ β„• ∧ (absβ€˜π΄) < π‘Ÿ)) β†’ (π‘š ∈ (β„€β‰₯β€˜π‘Ÿ) ↦ ((𝐴 / (π‘š + 1)) + 1)) ⇝ 1)
11467a1i 11 . . . . . . . . . . 11 (1 ∈ ℝ β†’ 1 ∈ ℝ+)
11518ellogdm 26138 . . . . . . . . . . 11 (1 ∈ (β„‚ βˆ– (-∞(,]0)) ↔ (1 ∈ β„‚ ∧ (1 ∈ ℝ β†’ 1 ∈ ℝ+)))
11635, 114, 115mpbir2an 709 . . . . . . . . . 10 1 ∈ (β„‚ βˆ– (-∞(,]0))
117116a1i 11 . . . . . . . . 9 ((πœ‘ ∧ (π‘Ÿ ∈ β„• ∧ (absβ€˜π΄) < π‘Ÿ)) β†’ 1 ∈ (β„‚ βˆ– (-∞(,]0)))
11815, 17, 20, 74, 113, 117climcncf 24407 . . . . . . . 8 ((πœ‘ ∧ (π‘Ÿ ∈ β„• ∧ (absβ€˜π΄) < π‘Ÿ)) β†’ ((log β†Ύ (β„‚ βˆ– (-∞(,]0))) ∘ (π‘š ∈ (β„€β‰₯β€˜π‘Ÿ) ↦ ((𝐴 / (π‘š + 1)) + 1))) ⇝ ((log β†Ύ (β„‚ βˆ– (-∞(,]0)))β€˜1))
119 logf1o 26064 . . . . . . . . . . 11 log:(β„‚ βˆ– {0})–1-1-ontoβ†’ran log
120 f1of 6830 . . . . . . . . . . 11 (log:(β„‚ βˆ– {0})–1-1-ontoβ†’ran log β†’ log:(β„‚ βˆ– {0})⟢ran log)
121119, 120mp1i 13 . . . . . . . . . 10 ((πœ‘ ∧ (π‘Ÿ ∈ β„• ∧ (absβ€˜π΄) < π‘Ÿ)) β†’ log:(β„‚ βˆ– {0})⟢ran log)
12218logdmss 26141 . . . . . . . . . . 11 (β„‚ βˆ– (-∞(,]0)) βŠ† (β„‚ βˆ– {0})
123122, 73sselid 3979 . . . . . . . . . 10 (((πœ‘ ∧ (π‘Ÿ ∈ β„• ∧ (absβ€˜π΄) < π‘Ÿ)) ∧ π‘š ∈ (β„€β‰₯β€˜π‘Ÿ)) β†’ ((𝐴 / (π‘š + 1)) + 1) ∈ (β„‚ βˆ– {0}))
124121, 123cofmpt 7126 . . . . . . . . 9 ((πœ‘ ∧ (π‘Ÿ ∈ β„• ∧ (absβ€˜π΄) < π‘Ÿ)) β†’ (log ∘ (π‘š ∈ (β„€β‰₯β€˜π‘Ÿ) ↦ ((𝐴 / (π‘š + 1)) + 1))) = (π‘š ∈ (β„€β‰₯β€˜π‘Ÿ) ↦ (logβ€˜((𝐴 / (π‘š + 1)) + 1))))
125 frn 6721 . . . . . . . . . 10 ((π‘š ∈ (β„€β‰₯β€˜π‘Ÿ) ↦ ((𝐴 / (π‘š + 1)) + 1)):(β„€β‰₯β€˜π‘Ÿ)⟢(β„‚ βˆ– (-∞(,]0)) β†’ ran (π‘š ∈ (β„€β‰₯β€˜π‘Ÿ) ↦ ((𝐴 / (π‘š + 1)) + 1)) βŠ† (β„‚ βˆ– (-∞(,]0)))
126 cores 6245 . . . . . . . . . 10 (ran (π‘š ∈ (β„€β‰₯β€˜π‘Ÿ) ↦ ((𝐴 / (π‘š + 1)) + 1)) βŠ† (β„‚ βˆ– (-∞(,]0)) β†’ ((log β†Ύ (β„‚ βˆ– (-∞(,]0))) ∘ (π‘š ∈ (β„€β‰₯β€˜π‘Ÿ) ↦ ((𝐴 / (π‘š + 1)) + 1))) = (log ∘ (π‘š ∈ (β„€β‰₯β€˜π‘Ÿ) ↦ ((𝐴 / (π‘š + 1)) + 1))))
12774, 125, 1263syl 18 . . . . . . . . 9 ((πœ‘ ∧ (π‘Ÿ ∈ β„• ∧ (absβ€˜π΄) < π‘Ÿ)) β†’ ((log β†Ύ (β„‚ βˆ– (-∞(,]0))) ∘ (π‘š ∈ (β„€β‰₯β€˜π‘Ÿ) ↦ ((𝐴 / (π‘š + 1)) + 1))) = (log ∘ (π‘š ∈ (β„€β‰₯β€˜π‘Ÿ) ↦ ((𝐴 / (π‘š + 1)) + 1))))
12875resmptd 6038 . . . . . . . . 9 ((πœ‘ ∧ (π‘Ÿ ∈ β„• ∧ (absβ€˜π΄) < π‘Ÿ)) β†’ ((π‘š ∈ β„• ↦ (logβ€˜((𝐴 / (π‘š + 1)) + 1))) β†Ύ (β„€β‰₯β€˜π‘Ÿ)) = (π‘š ∈ (β„€β‰₯β€˜π‘Ÿ) ↦ (logβ€˜((𝐴 / (π‘š + 1)) + 1))))
129124, 127, 1283eqtr4d 2782 . . . . . . . 8 ((πœ‘ ∧ (π‘Ÿ ∈ β„• ∧ (absβ€˜π΄) < π‘Ÿ)) β†’ ((log β†Ύ (β„‚ βˆ– (-∞(,]0))) ∘ (π‘š ∈ (β„€β‰₯β€˜π‘Ÿ) ↦ ((𝐴 / (π‘š + 1)) + 1))) = ((π‘š ∈ β„• ↦ (logβ€˜((𝐴 / (π‘š + 1)) + 1))) β†Ύ (β„€β‰₯β€˜π‘Ÿ)))
130 fvres 6907 . . . . . . . . . 10 (1 ∈ (β„‚ βˆ– (-∞(,]0)) β†’ ((log β†Ύ (β„‚ βˆ– (-∞(,]0)))β€˜1) = (logβ€˜1))
131116, 130mp1i 13 . . . . . . . . 9 ((πœ‘ ∧ (π‘Ÿ ∈ β„• ∧ (absβ€˜π΄) < π‘Ÿ)) β†’ ((log β†Ύ (β„‚ βˆ– (-∞(,]0)))β€˜1) = (logβ€˜1))
132 log1 26085 . . . . . . . . 9 (logβ€˜1) = 0
133131, 132eqtrdi 2788 . . . . . . . 8 ((πœ‘ ∧ (π‘Ÿ ∈ β„• ∧ (absβ€˜π΄) < π‘Ÿ)) β†’ ((log β†Ύ (β„‚ βˆ– (-∞(,]0)))β€˜1) = 0)
134118, 129, 1333brtr3d 5178 . . . . . . 7 ((πœ‘ ∧ (π‘Ÿ ∈ β„• ∧ (absβ€˜π΄) < π‘Ÿ)) β†’ ((π‘š ∈ β„• ↦ (logβ€˜((𝐴 / (π‘š + 1)) + 1))) β†Ύ (β„€β‰₯β€˜π‘Ÿ)) ⇝ 0)
13577mptex 7221 . . . . . . . 8 (π‘š ∈ β„• ↦ (logβ€˜((𝐴 / (π‘š + 1)) + 1))) ∈ V
136 climres 15515 . . . . . . . 8 ((π‘Ÿ ∈ β„€ ∧ (π‘š ∈ β„• ↦ (logβ€˜((𝐴 / (π‘š + 1)) + 1))) ∈ V) β†’ (((π‘š ∈ β„• ↦ (logβ€˜((𝐴 / (π‘š + 1)) + 1))) β†Ύ (β„€β‰₯β€˜π‘Ÿ)) ⇝ 0 ↔ (π‘š ∈ β„• ↦ (logβ€˜((𝐴 / (π‘š + 1)) + 1))) ⇝ 0))
13717, 135, 136sylancl 586 . . . . . . 7 ((πœ‘ ∧ (π‘Ÿ ∈ β„• ∧ (absβ€˜π΄) < π‘Ÿ)) β†’ (((π‘š ∈ β„• ↦ (logβ€˜((𝐴 / (π‘š + 1)) + 1))) β†Ύ (β„€β‰₯β€˜π‘Ÿ)) ⇝ 0 ↔ (π‘š ∈ β„• ↦ (logβ€˜((𝐴 / (π‘š + 1)) + 1))) ⇝ 0))
138134, 137mpbid 231 . . . . . 6 ((πœ‘ ∧ (π‘Ÿ ∈ β„• ∧ (absβ€˜π΄) < π‘Ÿ)) β†’ (π‘š ∈ β„• ↦ (logβ€˜((𝐴 / (π‘š + 1)) + 1))) ⇝ 0)
13914, 138rexlimddv 3161 . . . . 5 (πœ‘ β†’ (π‘š ∈ β„• ↦ (logβ€˜((𝐴 / (π‘š + 1)) + 1))) ⇝ 0)
14011, 87addcld 11229 . . . . . 6 (πœ‘ β†’ (𝐴 + 1) ∈ β„‚)
1417dmgmn0 26519 . . . . . 6 (πœ‘ β†’ (𝐴 + 1) β‰  0)
142140, 141logcld 26070 . . . . 5 (πœ‘ β†’ (logβ€˜(𝐴 + 1)) ∈ β„‚)
14377mptex 7221 . . . . . 6 (π‘š ∈ β„• ↦ ((logβ€˜(𝐴 + 1)) βˆ’ (logβ€˜((𝐴 / (π‘š + 1)) + 1)))) ∈ V
144143a1i 11 . . . . 5 (πœ‘ β†’ (π‘š ∈ β„• ↦ ((logβ€˜(𝐴 + 1)) βˆ’ (logβ€˜((𝐴 / (π‘š + 1)) + 1)))) ∈ V)
14581fvoveq1d 7427 . . . . . . . 8 (π‘š = 𝑛 β†’ (logβ€˜((𝐴 / (π‘š + 1)) + 1)) = (logβ€˜((𝐴 / (𝑛 + 1)) + 1)))
146 eqid 2732 . . . . . . . 8 (π‘š ∈ β„• ↦ (logβ€˜((𝐴 / (π‘š + 1)) + 1))) = (π‘š ∈ β„• ↦ (logβ€˜((𝐴 / (π‘š + 1)) + 1)))
147 fvex 6901 . . . . . . . 8 (logβ€˜((𝐴 / (𝑛 + 1)) + 1)) ∈ V
148145, 146, 147fvmpt 6995 . . . . . . 7 (𝑛 ∈ β„• β†’ ((π‘š ∈ β„• ↦ (logβ€˜((𝐴 / (π‘š + 1)) + 1)))β€˜π‘›) = (logβ€˜((𝐴 / (𝑛 + 1)) + 1)))
149148adantl 482 . . . . . 6 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ ((π‘š ∈ β„• ↦ (logβ€˜((𝐴 / (π‘š + 1)) + 1)))β€˜π‘›) = (logβ€˜((𝐴 / (𝑛 + 1)) + 1)))
15097, 93addcld 11229 . . . . . . 7 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ ((𝐴 / (𝑛 + 1)) + 1) ∈ β„‚)
1514adantr 481 . . . . . . . 8 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ 𝐴 ∈ (β„‚ βˆ– (β„€ βˆ– β„•)))
152151, 95dmgmdivn0 26521 . . . . . . 7 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ ((𝐴 / (𝑛 + 1)) + 1) β‰  0)
153150, 152logcld 26070 . . . . . 6 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ (logβ€˜((𝐴 / (𝑛 + 1)) + 1)) ∈ β„‚)
154149, 153eqeltrd 2833 . . . . 5 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ ((π‘š ∈ β„• ↦ (logβ€˜((𝐴 / (π‘š + 1)) + 1)))β€˜π‘›) ∈ β„‚)
155145oveq2d 7421 . . . . . . . 8 (π‘š = 𝑛 β†’ ((logβ€˜(𝐴 + 1)) βˆ’ (logβ€˜((𝐴 / (π‘š + 1)) + 1))) = ((logβ€˜(𝐴 + 1)) βˆ’ (logβ€˜((𝐴 / (𝑛 + 1)) + 1))))
156 eqid 2732 . . . . . . . 8 (π‘š ∈ β„• ↦ ((logβ€˜(𝐴 + 1)) βˆ’ (logβ€˜((𝐴 / (π‘š + 1)) + 1)))) = (π‘š ∈ β„• ↦ ((logβ€˜(𝐴 + 1)) βˆ’ (logβ€˜((𝐴 / (π‘š + 1)) + 1))))
157 ovex 7438 . . . . . . . 8 ((logβ€˜(𝐴 + 1)) βˆ’ (logβ€˜((𝐴 / (𝑛 + 1)) + 1))) ∈ V
158155, 156, 157fvmpt 6995 . . . . . . 7 (𝑛 ∈ β„• β†’ ((π‘š ∈ β„• ↦ ((logβ€˜(𝐴 + 1)) βˆ’ (logβ€˜((𝐴 / (π‘š + 1)) + 1))))β€˜π‘›) = ((logβ€˜(𝐴 + 1)) βˆ’ (logβ€˜((𝐴 / (𝑛 + 1)) + 1))))
159158adantl 482 . . . . . 6 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ ((π‘š ∈ β„• ↦ ((logβ€˜(𝐴 + 1)) βˆ’ (logβ€˜((𝐴 / (π‘š + 1)) + 1))))β€˜π‘›) = ((logβ€˜(𝐴 + 1)) βˆ’ (logβ€˜((𝐴 / (𝑛 + 1)) + 1))))
160149oveq2d 7421 . . . . . 6 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ ((logβ€˜(𝐴 + 1)) βˆ’ ((π‘š ∈ β„• ↦ (logβ€˜((𝐴 / (π‘š + 1)) + 1)))β€˜π‘›)) = ((logβ€˜(𝐴 + 1)) βˆ’ (logβ€˜((𝐴 / (𝑛 + 1)) + 1))))
161159, 160eqtr4d 2775 . . . . 5 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ ((π‘š ∈ β„• ↦ ((logβ€˜(𝐴 + 1)) βˆ’ (logβ€˜((𝐴 / (π‘š + 1)) + 1))))β€˜π‘›) = ((logβ€˜(𝐴 + 1)) βˆ’ ((π‘š ∈ β„• ↦ (logβ€˜((𝐴 / (π‘š + 1)) + 1)))β€˜π‘›)))
1621, 2, 139, 142, 144, 154, 161climsubc2 15579 . . . 4 (πœ‘ β†’ (π‘š ∈ β„• ↦ ((logβ€˜(𝐴 + 1)) βˆ’ (logβ€˜((𝐴 / (π‘š + 1)) + 1)))) ⇝ ((logβ€˜(𝐴 + 1)) βˆ’ 0))
163142subid1d 11556 . . . 4 (πœ‘ β†’ ((logβ€˜(𝐴 + 1)) βˆ’ 0) = (logβ€˜(𝐴 + 1)))
164162, 163breqtrd 5173 . . 3 (πœ‘ β†’ (π‘š ∈ β„• ↦ ((logβ€˜(𝐴 + 1)) βˆ’ (logβ€˜((𝐴 / (π‘š + 1)) + 1)))) ⇝ (logβ€˜(𝐴 + 1)))
165 elfznn 13526 . . . . . . 7 (π‘˜ ∈ (1...𝑛) β†’ π‘˜ ∈ β„•)
166165adantl 482 . . . . . 6 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘˜ ∈ (1...𝑛)) β†’ π‘˜ ∈ β„•)
167 oveq1 7412 . . . . . . . . . . 11 (π‘š = π‘˜ β†’ (π‘š + 1) = (π‘˜ + 1))
168 id 22 . . . . . . . . . . 11 (π‘š = π‘˜ β†’ π‘š = π‘˜)
169167, 168oveq12d 7423 . . . . . . . . . 10 (π‘š = π‘˜ β†’ ((π‘š + 1) / π‘š) = ((π‘˜ + 1) / π‘˜))
170169fveq2d 6892 . . . . . . . . 9 (π‘š = π‘˜ β†’ (logβ€˜((π‘š + 1) / π‘š)) = (logβ€˜((π‘˜ + 1) / π‘˜)))
171170oveq2d 7421 . . . . . . . 8 (π‘š = π‘˜ β†’ ((𝐴 + 1) Β· (logβ€˜((π‘š + 1) / π‘š))) = ((𝐴 + 1) Β· (logβ€˜((π‘˜ + 1) / π‘˜))))
172 oveq2 7413 . . . . . . . . 9 (π‘š = π‘˜ β†’ ((𝐴 + 1) / π‘š) = ((𝐴 + 1) / π‘˜))
173172fvoveq1d 7427 . . . . . . . 8 (π‘š = π‘˜ β†’ (logβ€˜(((𝐴 + 1) / π‘š) + 1)) = (logβ€˜(((𝐴 + 1) / π‘˜) + 1)))
174171, 173oveq12d 7423 . . . . . . 7 (π‘š = π‘˜ β†’ (((𝐴 + 1) Β· (logβ€˜((π‘š + 1) / π‘š))) βˆ’ (logβ€˜(((𝐴 + 1) / π‘š) + 1))) = (((𝐴 + 1) Β· (logβ€˜((π‘˜ + 1) / π‘˜))) βˆ’ (logβ€˜(((𝐴 + 1) / π‘˜) + 1))))
175 ovex 7438 . . . . . . 7 (((𝐴 + 1) Β· (logβ€˜((π‘˜ + 1) / π‘˜))) βˆ’ (logβ€˜(((𝐴 + 1) / π‘˜) + 1))) ∈ V
176174, 3, 175fvmpt 6995 . . . . . 6 (π‘˜ ∈ β„• β†’ ((π‘š ∈ β„• ↦ (((𝐴 + 1) Β· (logβ€˜((π‘š + 1) / π‘š))) βˆ’ (logβ€˜(((𝐴 + 1) / π‘š) + 1))))β€˜π‘˜) = (((𝐴 + 1) Β· (logβ€˜((π‘˜ + 1) / π‘˜))) βˆ’ (logβ€˜(((𝐴 + 1) / π‘˜) + 1))))
177166, 176syl 17 . . . . 5 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘˜ ∈ (1...𝑛)) β†’ ((π‘š ∈ β„• ↦ (((𝐴 + 1) Β· (logβ€˜((π‘š + 1) / π‘š))) βˆ’ (logβ€˜(((𝐴 + 1) / π‘š) + 1))))β€˜π‘˜) = (((𝐴 + 1) Β· (logβ€˜((π‘˜ + 1) / π‘˜))) βˆ’ (logβ€˜(((𝐴 + 1) / π‘˜) + 1))))
17891, 1eleqtrdi 2843 . . . . 5 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ 𝑛 ∈ (β„€β‰₯β€˜1))
17911ad2antrr 724 . . . . . . . 8 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘˜ ∈ (1...𝑛)) β†’ 𝐴 ∈ β„‚)
180 1cnd 11205 . . . . . . . 8 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘˜ ∈ (1...𝑛)) β†’ 1 ∈ β„‚)
181179, 180addcld 11229 . . . . . . 7 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘˜ ∈ (1...𝑛)) β†’ (𝐴 + 1) ∈ β„‚)
182166peano2nnd 12225 . . . . . . . . . . 11 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘˜ ∈ (1...𝑛)) β†’ (π‘˜ + 1) ∈ β„•)
183182nnrpd 13010 . . . . . . . . . 10 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘˜ ∈ (1...𝑛)) β†’ (π‘˜ + 1) ∈ ℝ+)
184166nnrpd 13010 . . . . . . . . . 10 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘˜ ∈ (1...𝑛)) β†’ π‘˜ ∈ ℝ+)
185183, 184rpdivcld 13029 . . . . . . . . 9 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘˜ ∈ (1...𝑛)) β†’ ((π‘˜ + 1) / π‘˜) ∈ ℝ+)
186185relogcld 26122 . . . . . . . 8 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘˜ ∈ (1...𝑛)) β†’ (logβ€˜((π‘˜ + 1) / π‘˜)) ∈ ℝ)
187186recnd 11238 . . . . . . 7 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘˜ ∈ (1...𝑛)) β†’ (logβ€˜((π‘˜ + 1) / π‘˜)) ∈ β„‚)
188181, 187mulcld 11230 . . . . . 6 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘˜ ∈ (1...𝑛)) β†’ ((𝐴 + 1) Β· (logβ€˜((π‘˜ + 1) / π‘˜))) ∈ β„‚)
189166nncnd 12224 . . . . . . . . 9 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘˜ ∈ (1...𝑛)) β†’ π‘˜ ∈ β„‚)
190166nnne0d 12258 . . . . . . . . 9 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘˜ ∈ (1...𝑛)) β†’ π‘˜ β‰  0)
191181, 189, 190divcld 11986 . . . . . . . 8 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘˜ ∈ (1...𝑛)) β†’ ((𝐴 + 1) / π‘˜) ∈ β„‚)
192191, 180addcld 11229 . . . . . . 7 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘˜ ∈ (1...𝑛)) β†’ (((𝐴 + 1) / π‘˜) + 1) ∈ β„‚)
1937ad2antrr 724 . . . . . . . 8 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘˜ ∈ (1...𝑛)) β†’ (𝐴 + 1) ∈ (β„‚ βˆ– (β„€ βˆ– β„•)))
194193, 166dmgmdivn0 26521 . . . . . . 7 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘˜ ∈ (1...𝑛)) β†’ (((𝐴 + 1) / π‘˜) + 1) β‰  0)
195192, 194logcld 26070 . . . . . 6 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘˜ ∈ (1...𝑛)) β†’ (logβ€˜(((𝐴 + 1) / π‘˜) + 1)) ∈ β„‚)
196188, 195subcld 11567 . . . . 5 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘˜ ∈ (1...𝑛)) β†’ (((𝐴 + 1) Β· (logβ€˜((π‘˜ + 1) / π‘˜))) βˆ’ (logβ€˜(((𝐴 + 1) / π‘˜) + 1))) ∈ β„‚)
197177, 178, 196fsumser 15672 . . . 4 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ Ξ£π‘˜ ∈ (1...𝑛)(((𝐴 + 1) Β· (logβ€˜((π‘˜ + 1) / π‘˜))) βˆ’ (logβ€˜(((𝐴 + 1) / π‘˜) + 1))) = (seq1( + , (π‘š ∈ β„• ↦ (((𝐴 + 1) Β· (logβ€˜((π‘š + 1) / π‘š))) βˆ’ (logβ€˜(((𝐴 + 1) / π‘š) + 1)))))β€˜π‘›))
198 fzfid 13934 . . . . 5 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ (1...𝑛) ∈ Fin)
199198, 196fsumcl 15675 . . . 4 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ Ξ£π‘˜ ∈ (1...𝑛)(((𝐴 + 1) Β· (logβ€˜((π‘˜ + 1) / π‘˜))) βˆ’ (logβ€˜(((𝐴 + 1) / π‘˜) + 1))) ∈ β„‚)
200197, 199eqeltrrd 2834 . . 3 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ (seq1( + , (π‘š ∈ β„• ↦ (((𝐴 + 1) Β· (logβ€˜((π‘š + 1) / π‘š))) βˆ’ (logβ€˜(((𝐴 + 1) / π‘š) + 1)))))β€˜π‘›) ∈ β„‚)
201142adantr 481 . . . . 5 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ (logβ€˜(𝐴 + 1)) ∈ β„‚)
202201, 153subcld 11567 . . . 4 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ ((logβ€˜(𝐴 + 1)) βˆ’ (logβ€˜((𝐴 / (𝑛 + 1)) + 1))) ∈ β„‚)
203159, 202eqeltrd 2833 . . 3 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ ((π‘š ∈ β„• ↦ ((logβ€˜(𝐴 + 1)) βˆ’ (logβ€˜((𝐴 / (π‘š + 1)) + 1))))β€˜π‘›) ∈ β„‚)
204179, 187mulcld 11230 . . . . . . . 8 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘˜ ∈ (1...𝑛)) β†’ (𝐴 Β· (logβ€˜((π‘˜ + 1) / π‘˜))) ∈ β„‚)
205179, 189, 190divcld 11986 . . . . . . . . . 10 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘˜ ∈ (1...𝑛)) β†’ (𝐴 / π‘˜) ∈ β„‚)
206205, 180addcld 11229 . . . . . . . . 9 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘˜ ∈ (1...𝑛)) β†’ ((𝐴 / π‘˜) + 1) ∈ β„‚)
2074ad2antrr 724 . . . . . . . . . 10 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘˜ ∈ (1...𝑛)) β†’ 𝐴 ∈ (β„‚ βˆ– (β„€ βˆ– β„•)))
208207, 166dmgmdivn0 26521 . . . . . . . . 9 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘˜ ∈ (1...𝑛)) β†’ ((𝐴 / π‘˜) + 1) β‰  0)
209206, 208logcld 26070 . . . . . . . 8 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘˜ ∈ (1...𝑛)) β†’ (logβ€˜((𝐴 / π‘˜) + 1)) ∈ β„‚)
210204, 209subcld 11567 . . . . . . 7 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘˜ ∈ (1...𝑛)) β†’ ((𝐴 Β· (logβ€˜((π‘˜ + 1) / π‘˜))) βˆ’ (logβ€˜((𝐴 / π‘˜) + 1))) ∈ β„‚)
211198, 210fsumcl 15675 . . . . . 6 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ Ξ£π‘˜ ∈ (1...𝑛)((𝐴 Β· (logβ€˜((π‘˜ + 1) / π‘˜))) βˆ’ (logβ€˜((𝐴 / π‘˜) + 1))) ∈ β„‚)
212199, 211nncand 11572 . . . . 5 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ (Ξ£π‘˜ ∈ (1...𝑛)(((𝐴 + 1) Β· (logβ€˜((π‘˜ + 1) / π‘˜))) βˆ’ (logβ€˜(((𝐴 + 1) / π‘˜) + 1))) βˆ’ (Ξ£π‘˜ ∈ (1...𝑛)(((𝐴 + 1) Β· (logβ€˜((π‘˜ + 1) / π‘˜))) βˆ’ (logβ€˜(((𝐴 + 1) / π‘˜) + 1))) βˆ’ Ξ£π‘˜ ∈ (1...𝑛)((𝐴 Β· (logβ€˜((π‘˜ + 1) / π‘˜))) βˆ’ (logβ€˜((𝐴 / π‘˜) + 1))))) = Ξ£π‘˜ ∈ (1...𝑛)((𝐴 Β· (logβ€˜((π‘˜ + 1) / π‘˜))) βˆ’ (logβ€˜((𝐴 / π‘˜) + 1))))
213188, 195, 204, 209sub4d 11616 . . . . . . . . 9 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘˜ ∈ (1...𝑛)) β†’ ((((𝐴 + 1) Β· (logβ€˜((π‘˜ + 1) / π‘˜))) βˆ’ (logβ€˜(((𝐴 + 1) / π‘˜) + 1))) βˆ’ ((𝐴 Β· (logβ€˜((π‘˜ + 1) / π‘˜))) βˆ’ (logβ€˜((𝐴 / π‘˜) + 1)))) = ((((𝐴 + 1) Β· (logβ€˜((π‘˜ + 1) / π‘˜))) βˆ’ (𝐴 Β· (logβ€˜((π‘˜ + 1) / π‘˜)))) βˆ’ ((logβ€˜(((𝐴 + 1) / π‘˜) + 1)) βˆ’ (logβ€˜((𝐴 / π‘˜) + 1)))))
214179, 180pncan2d 11569 . . . . . . . . . . . 12 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘˜ ∈ (1...𝑛)) β†’ ((𝐴 + 1) βˆ’ 𝐴) = 1)
215214oveq1d 7420 . . . . . . . . . . 11 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘˜ ∈ (1...𝑛)) β†’ (((𝐴 + 1) βˆ’ 𝐴) Β· (logβ€˜((π‘˜ + 1) / π‘˜))) = (1 Β· (logβ€˜((π‘˜ + 1) / π‘˜))))
216181, 179, 187subdird 11667 . . . . . . . . . . 11 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘˜ ∈ (1...𝑛)) β†’ (((𝐴 + 1) βˆ’ 𝐴) Β· (logβ€˜((π‘˜ + 1) / π‘˜))) = (((𝐴 + 1) Β· (logβ€˜((π‘˜ + 1) / π‘˜))) βˆ’ (𝐴 Β· (logβ€˜((π‘˜ + 1) / π‘˜)))))
217187mullidd 11228 . . . . . . . . . . 11 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘˜ ∈ (1...𝑛)) β†’ (1 Β· (logβ€˜((π‘˜ + 1) / π‘˜))) = (logβ€˜((π‘˜ + 1) / π‘˜)))
218215, 216, 2173eqtr3d 2780 . . . . . . . . . 10 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘˜ ∈ (1...𝑛)) β†’ (((𝐴 + 1) Β· (logβ€˜((π‘˜ + 1) / π‘˜))) βˆ’ (𝐴 Β· (logβ€˜((π‘˜ + 1) / π‘˜)))) = (logβ€˜((π‘˜ + 1) / π‘˜)))
219218oveq1d 7420 . . . . . . . . 9 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘˜ ∈ (1...𝑛)) β†’ ((((𝐴 + 1) Β· (logβ€˜((π‘˜ + 1) / π‘˜))) βˆ’ (𝐴 Β· (logβ€˜((π‘˜ + 1) / π‘˜)))) βˆ’ ((logβ€˜(((𝐴 + 1) / π‘˜) + 1)) βˆ’ (logβ€˜((𝐴 / π‘˜) + 1)))) = ((logβ€˜((π‘˜ + 1) / π‘˜)) βˆ’ ((logβ€˜(((𝐴 + 1) / π‘˜) + 1)) βˆ’ (logβ€˜((𝐴 / π‘˜) + 1)))))
220187, 195, 209subsubd 11595 . . . . . . . . . 10 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘˜ ∈ (1...𝑛)) β†’ ((logβ€˜((π‘˜ + 1) / π‘˜)) βˆ’ ((logβ€˜(((𝐴 + 1) / π‘˜) + 1)) βˆ’ (logβ€˜((𝐴 / π‘˜) + 1)))) = (((logβ€˜((π‘˜ + 1) / π‘˜)) βˆ’ (logβ€˜(((𝐴 + 1) / π‘˜) + 1))) + (logβ€˜((𝐴 / π‘˜) + 1))))
221187, 195subcld 11567 . . . . . . . . . . 11 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘˜ ∈ (1...𝑛)) β†’ ((logβ€˜((π‘˜ + 1) / π‘˜)) βˆ’ (logβ€˜(((𝐴 + 1) / π‘˜) + 1))) ∈ β„‚)
222221, 209addcomd 11412 . . . . . . . . . 10 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘˜ ∈ (1...𝑛)) β†’ (((logβ€˜((π‘˜ + 1) / π‘˜)) βˆ’ (logβ€˜(((𝐴 + 1) / π‘˜) + 1))) + (logβ€˜((𝐴 / π‘˜) + 1))) = ((logβ€˜((𝐴 / π‘˜) + 1)) + ((logβ€˜((π‘˜ + 1) / π‘˜)) βˆ’ (logβ€˜(((𝐴 + 1) / π‘˜) + 1)))))
223209, 195, 187subsub2d 11596 . . . . . . . . . . 11 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘˜ ∈ (1...𝑛)) β†’ ((logβ€˜((𝐴 / π‘˜) + 1)) βˆ’ ((logβ€˜(((𝐴 + 1) / π‘˜) + 1)) βˆ’ (logβ€˜((π‘˜ + 1) / π‘˜)))) = ((logβ€˜((𝐴 / π‘˜) + 1)) + ((logβ€˜((π‘˜ + 1) / π‘˜)) βˆ’ (logβ€˜(((𝐴 + 1) / π‘˜) + 1)))))
224182nncnd 12224 . . . . . . . . . . . . . . . 16 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘˜ ∈ (1...𝑛)) β†’ (π‘˜ + 1) ∈ β„‚)
225179, 224addcld 11229 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘˜ ∈ (1...𝑛)) β†’ (𝐴 + (π‘˜ + 1)) ∈ β„‚)
226182nnnn0d 12528 . . . . . . . . . . . . . . . 16 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘˜ ∈ (1...𝑛)) β†’ (π‘˜ + 1) ∈ β„•0)
227 dmgmaddn0 26516 . . . . . . . . . . . . . . . 16 ((𝐴 ∈ (β„‚ βˆ– (β„€ βˆ– β„•)) ∧ (π‘˜ + 1) ∈ β„•0) β†’ (𝐴 + (π‘˜ + 1)) β‰  0)
228207, 226, 227syl2anc 584 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘˜ ∈ (1...𝑛)) β†’ (𝐴 + (π‘˜ + 1)) β‰  0)
229225, 228logcld 26070 . . . . . . . . . . . . . 14 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘˜ ∈ (1...𝑛)) β†’ (logβ€˜(𝐴 + (π‘˜ + 1))) ∈ β„‚)
230183relogcld 26122 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘˜ ∈ (1...𝑛)) β†’ (logβ€˜(π‘˜ + 1)) ∈ ℝ)
231230recnd 11238 . . . . . . . . . . . . . 14 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘˜ ∈ (1...𝑛)) β†’ (logβ€˜(π‘˜ + 1)) ∈ β„‚)
232184relogcld 26122 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘˜ ∈ (1...𝑛)) β†’ (logβ€˜π‘˜) ∈ ℝ)
233232recnd 11238 . . . . . . . . . . . . . 14 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘˜ ∈ (1...𝑛)) β†’ (logβ€˜π‘˜) ∈ β„‚)
234229, 231, 233nnncan2d 11602 . . . . . . . . . . . . 13 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘˜ ∈ (1...𝑛)) β†’ (((logβ€˜(𝐴 + (π‘˜ + 1))) βˆ’ (logβ€˜π‘˜)) βˆ’ ((logβ€˜(π‘˜ + 1)) βˆ’ (logβ€˜π‘˜))) = ((logβ€˜(𝐴 + (π‘˜ + 1))) βˆ’ (logβ€˜(π‘˜ + 1))))
235181, 189, 189, 190divdird 12024 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘˜ ∈ (1...𝑛)) β†’ (((𝐴 + 1) + π‘˜) / π‘˜) = (((𝐴 + 1) / π‘˜) + (π‘˜ / π‘˜)))
236179, 189, 180add32d 11437 . . . . . . . . . . . . . . . . . . 19 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘˜ ∈ (1...𝑛)) β†’ ((𝐴 + π‘˜) + 1) = ((𝐴 + 1) + π‘˜))
237179, 189, 180addassd 11232 . . . . . . . . . . . . . . . . . . 19 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘˜ ∈ (1...𝑛)) β†’ ((𝐴 + π‘˜) + 1) = (𝐴 + (π‘˜ + 1)))
238236, 237eqtr3d 2774 . . . . . . . . . . . . . . . . . 18 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘˜ ∈ (1...𝑛)) β†’ ((𝐴 + 1) + π‘˜) = (𝐴 + (π‘˜ + 1)))
239238oveq1d 7420 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘˜ ∈ (1...𝑛)) β†’ (((𝐴 + 1) + π‘˜) / π‘˜) = ((𝐴 + (π‘˜ + 1)) / π‘˜))
240189, 190dividd 11984 . . . . . . . . . . . . . . . . . 18 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘˜ ∈ (1...𝑛)) β†’ (π‘˜ / π‘˜) = 1)
241240oveq2d 7421 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘˜ ∈ (1...𝑛)) β†’ (((𝐴 + 1) / π‘˜) + (π‘˜ / π‘˜)) = (((𝐴 + 1) / π‘˜) + 1))
242235, 239, 2413eqtr3rd 2781 . . . . . . . . . . . . . . . 16 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘˜ ∈ (1...𝑛)) β†’ (((𝐴 + 1) / π‘˜) + 1) = ((𝐴 + (π‘˜ + 1)) / π‘˜))
243242fveq2d 6892 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘˜ ∈ (1...𝑛)) β†’ (logβ€˜(((𝐴 + 1) / π‘˜) + 1)) = (logβ€˜((𝐴 + (π‘˜ + 1)) / π‘˜)))
244 logdiv2 26116 . . . . . . . . . . . . . . . 16 (((𝐴 + (π‘˜ + 1)) ∈ β„‚ ∧ (𝐴 + (π‘˜ + 1)) β‰  0 ∧ π‘˜ ∈ ℝ+) β†’ (logβ€˜((𝐴 + (π‘˜ + 1)) / π‘˜)) = ((logβ€˜(𝐴 + (π‘˜ + 1))) βˆ’ (logβ€˜π‘˜)))
245225, 228, 184, 244syl3anc 1371 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘˜ ∈ (1...𝑛)) β†’ (logβ€˜((𝐴 + (π‘˜ + 1)) / π‘˜)) = ((logβ€˜(𝐴 + (π‘˜ + 1))) βˆ’ (logβ€˜π‘˜)))
246243, 245eqtrd 2772 . . . . . . . . . . . . . 14 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘˜ ∈ (1...𝑛)) β†’ (logβ€˜(((𝐴 + 1) / π‘˜) + 1)) = ((logβ€˜(𝐴 + (π‘˜ + 1))) βˆ’ (logβ€˜π‘˜)))
247183, 184relogdivd 26125 . . . . . . . . . . . . . 14 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘˜ ∈ (1...𝑛)) β†’ (logβ€˜((π‘˜ + 1) / π‘˜)) = ((logβ€˜(π‘˜ + 1)) βˆ’ (logβ€˜π‘˜)))
248246, 247oveq12d 7423 . . . . . . . . . . . . 13 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘˜ ∈ (1...𝑛)) β†’ ((logβ€˜(((𝐴 + 1) / π‘˜) + 1)) βˆ’ (logβ€˜((π‘˜ + 1) / π‘˜))) = (((logβ€˜(𝐴 + (π‘˜ + 1))) βˆ’ (logβ€˜π‘˜)) βˆ’ ((logβ€˜(π‘˜ + 1)) βˆ’ (logβ€˜π‘˜))))
249182nnne0d 12258 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘˜ ∈ (1...𝑛)) β†’ (π‘˜ + 1) β‰  0)
250179, 224, 224, 249divdird 12024 . . . . . . . . . . . . . . . 16 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘˜ ∈ (1...𝑛)) β†’ ((𝐴 + (π‘˜ + 1)) / (π‘˜ + 1)) = ((𝐴 / (π‘˜ + 1)) + ((π‘˜ + 1) / (π‘˜ + 1))))
251224, 249dividd 11984 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘˜ ∈ (1...𝑛)) β†’ ((π‘˜ + 1) / (π‘˜ + 1)) = 1)
252251oveq2d 7421 . . . . . . . . . . . . . . . 16 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘˜ ∈ (1...𝑛)) β†’ ((𝐴 / (π‘˜ + 1)) + ((π‘˜ + 1) / (π‘˜ + 1))) = ((𝐴 / (π‘˜ + 1)) + 1))
253250, 252eqtr2d 2773 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘˜ ∈ (1...𝑛)) β†’ ((𝐴 / (π‘˜ + 1)) + 1) = ((𝐴 + (π‘˜ + 1)) / (π‘˜ + 1)))
254253fveq2d 6892 . . . . . . . . . . . . . 14 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘˜ ∈ (1...𝑛)) β†’ (logβ€˜((𝐴 / (π‘˜ + 1)) + 1)) = (logβ€˜((𝐴 + (π‘˜ + 1)) / (π‘˜ + 1))))
255 logdiv2 26116 . . . . . . . . . . . . . . 15 (((𝐴 + (π‘˜ + 1)) ∈ β„‚ ∧ (𝐴 + (π‘˜ + 1)) β‰  0 ∧ (π‘˜ + 1) ∈ ℝ+) β†’ (logβ€˜((𝐴 + (π‘˜ + 1)) / (π‘˜ + 1))) = ((logβ€˜(𝐴 + (π‘˜ + 1))) βˆ’ (logβ€˜(π‘˜ + 1))))
256225, 228, 183, 255syl3anc 1371 . . . . . . . . . . . . . 14 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘˜ ∈ (1...𝑛)) β†’ (logβ€˜((𝐴 + (π‘˜ + 1)) / (π‘˜ + 1))) = ((logβ€˜(𝐴 + (π‘˜ + 1))) βˆ’ (logβ€˜(π‘˜ + 1))))
257254, 256eqtrd 2772 . . . . . . . . . . . . 13 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘˜ ∈ (1...𝑛)) β†’ (logβ€˜((𝐴 / (π‘˜ + 1)) + 1)) = ((logβ€˜(𝐴 + (π‘˜ + 1))) βˆ’ (logβ€˜(π‘˜ + 1))))
258234, 248, 2573eqtr4d 2782 . . . . . . . . . . . 12 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘˜ ∈ (1...𝑛)) β†’ ((logβ€˜(((𝐴 + 1) / π‘˜) + 1)) βˆ’ (logβ€˜((π‘˜ + 1) / π‘˜))) = (logβ€˜((𝐴 / (π‘˜ + 1)) + 1)))
259258oveq2d 7421 . . . . . . . . . . 11 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘˜ ∈ (1...𝑛)) β†’ ((logβ€˜((𝐴 / π‘˜) + 1)) βˆ’ ((logβ€˜(((𝐴 + 1) / π‘˜) + 1)) βˆ’ (logβ€˜((π‘˜ + 1) / π‘˜)))) = ((logβ€˜((𝐴 / π‘˜) + 1)) βˆ’ (logβ€˜((𝐴 / (π‘˜ + 1)) + 1))))
260223, 259eqtr3d 2774 . . . . . . . . . 10 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘˜ ∈ (1...𝑛)) β†’ ((logβ€˜((𝐴 / π‘˜) + 1)) + ((logβ€˜((π‘˜ + 1) / π‘˜)) βˆ’ (logβ€˜(((𝐴 + 1) / π‘˜) + 1)))) = ((logβ€˜((𝐴 / π‘˜) + 1)) βˆ’ (logβ€˜((𝐴 / (π‘˜ + 1)) + 1))))
261220, 222, 2603eqtrd 2776 . . . . . . . . 9 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘˜ ∈ (1...𝑛)) β†’ ((logβ€˜((π‘˜ + 1) / π‘˜)) βˆ’ ((logβ€˜(((𝐴 + 1) / π‘˜) + 1)) βˆ’ (logβ€˜((𝐴 / π‘˜) + 1)))) = ((logβ€˜((𝐴 / π‘˜) + 1)) βˆ’ (logβ€˜((𝐴 / (π‘˜ + 1)) + 1))))
262213, 219, 2613eqtrd 2776 . . . . . . . 8 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘˜ ∈ (1...𝑛)) β†’ ((((𝐴 + 1) Β· (logβ€˜((π‘˜ + 1) / π‘˜))) βˆ’ (logβ€˜(((𝐴 + 1) / π‘˜) + 1))) βˆ’ ((𝐴 Β· (logβ€˜((π‘˜ + 1) / π‘˜))) βˆ’ (logβ€˜((𝐴 / π‘˜) + 1)))) = ((logβ€˜((𝐴 / π‘˜) + 1)) βˆ’ (logβ€˜((𝐴 / (π‘˜ + 1)) + 1))))
263262sumeq2dv 15645 . . . . . . 7 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ Ξ£π‘˜ ∈ (1...𝑛)((((𝐴 + 1) Β· (logβ€˜((π‘˜ + 1) / π‘˜))) βˆ’ (logβ€˜(((𝐴 + 1) / π‘˜) + 1))) βˆ’ ((𝐴 Β· (logβ€˜((π‘˜ + 1) / π‘˜))) βˆ’ (logβ€˜((𝐴 / π‘˜) + 1)))) = Ξ£π‘˜ ∈ (1...𝑛)((logβ€˜((𝐴 / π‘˜) + 1)) βˆ’ (logβ€˜((𝐴 / (π‘˜ + 1)) + 1))))
264198, 196, 210fsumsub 15730 . . . . . . 7 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ Ξ£π‘˜ ∈ (1...𝑛)((((𝐴 + 1) Β· (logβ€˜((π‘˜ + 1) / π‘˜))) βˆ’ (logβ€˜(((𝐴 + 1) / π‘˜) + 1))) βˆ’ ((𝐴 Β· (logβ€˜((π‘˜ + 1) / π‘˜))) βˆ’ (logβ€˜((𝐴 / π‘˜) + 1)))) = (Ξ£π‘˜ ∈ (1...𝑛)(((𝐴 + 1) Β· (logβ€˜((π‘˜ + 1) / π‘˜))) βˆ’ (logβ€˜(((𝐴 + 1) / π‘˜) + 1))) βˆ’ Ξ£π‘˜ ∈ (1...𝑛)((𝐴 Β· (logβ€˜((π‘˜ + 1) / π‘˜))) βˆ’ (logβ€˜((𝐴 / π‘˜) + 1)))))
265 oveq2 7413 . . . . . . . . . 10 (π‘₯ = π‘˜ β†’ (𝐴 / π‘₯) = (𝐴 / π‘˜))
266265fvoveq1d 7427 . . . . . . . . 9 (π‘₯ = π‘˜ β†’ (logβ€˜((𝐴 / π‘₯) + 1)) = (logβ€˜((𝐴 / π‘˜) + 1)))
267 oveq2 7413 . . . . . . . . . 10 (π‘₯ = (π‘˜ + 1) β†’ (𝐴 / π‘₯) = (𝐴 / (π‘˜ + 1)))
268267fvoveq1d 7427 . . . . . . . . 9 (π‘₯ = (π‘˜ + 1) β†’ (logβ€˜((𝐴 / π‘₯) + 1)) = (logβ€˜((𝐴 / (π‘˜ + 1)) + 1)))
269 oveq2 7413 . . . . . . . . . 10 (π‘₯ = 1 β†’ (𝐴 / π‘₯) = (𝐴 / 1))
270269fvoveq1d 7427 . . . . . . . . 9 (π‘₯ = 1 β†’ (logβ€˜((𝐴 / π‘₯) + 1)) = (logβ€˜((𝐴 / 1) + 1)))
271 oveq2 7413 . . . . . . . . . 10 (π‘₯ = (𝑛 + 1) β†’ (𝐴 / π‘₯) = (𝐴 / (𝑛 + 1)))
272271fvoveq1d 7427 . . . . . . . . 9 (π‘₯ = (𝑛 + 1) β†’ (logβ€˜((𝐴 / π‘₯) + 1)) = (logβ€˜((𝐴 / (𝑛 + 1)) + 1)))
27391nnzd 12581 . . . . . . . . 9 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ 𝑛 ∈ β„€)
27495, 1eleqtrdi 2843 . . . . . . . . 9 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ (𝑛 + 1) ∈ (β„€β‰₯β€˜1))
27511ad2antrr 724 . . . . . . . . . . . 12 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘₯ ∈ (1...(𝑛 + 1))) β†’ 𝐴 ∈ β„‚)
276 elfznn 13526 . . . . . . . . . . . . . 14 (π‘₯ ∈ (1...(𝑛 + 1)) β†’ π‘₯ ∈ β„•)
277276adantl 482 . . . . . . . . . . . . 13 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘₯ ∈ (1...(𝑛 + 1))) β†’ π‘₯ ∈ β„•)
278277nncnd 12224 . . . . . . . . . . . 12 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘₯ ∈ (1...(𝑛 + 1))) β†’ π‘₯ ∈ β„‚)
279277nnne0d 12258 . . . . . . . . . . . 12 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘₯ ∈ (1...(𝑛 + 1))) β†’ π‘₯ β‰  0)
280275, 278, 279divcld 11986 . . . . . . . . . . 11 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘₯ ∈ (1...(𝑛 + 1))) β†’ (𝐴 / π‘₯) ∈ β„‚)
281 1cnd 11205 . . . . . . . . . . 11 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘₯ ∈ (1...(𝑛 + 1))) β†’ 1 ∈ β„‚)
282280, 281addcld 11229 . . . . . . . . . 10 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘₯ ∈ (1...(𝑛 + 1))) β†’ ((𝐴 / π‘₯) + 1) ∈ β„‚)
2834ad2antrr 724 . . . . . . . . . . 11 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘₯ ∈ (1...(𝑛 + 1))) β†’ 𝐴 ∈ (β„‚ βˆ– (β„€ βˆ– β„•)))
284283, 277dmgmdivn0 26521 . . . . . . . . . 10 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘₯ ∈ (1...(𝑛 + 1))) β†’ ((𝐴 / π‘₯) + 1) β‰  0)
285282, 284logcld 26070 . . . . . . . . 9 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘₯ ∈ (1...(𝑛 + 1))) β†’ (logβ€˜((𝐴 / π‘₯) + 1)) ∈ β„‚)
286266, 268, 270, 272, 273, 274, 285telfsum 15746 . . . . . . . 8 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ Ξ£π‘˜ ∈ (1...𝑛)((logβ€˜((𝐴 / π‘˜) + 1)) βˆ’ (logβ€˜((𝐴 / (π‘˜ + 1)) + 1))) = ((logβ€˜((𝐴 / 1) + 1)) βˆ’ (logβ€˜((𝐴 / (𝑛 + 1)) + 1))))
28790div1d 11978 . . . . . . . . . 10 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ (𝐴 / 1) = 𝐴)
288287fvoveq1d 7427 . . . . . . . . 9 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ (logβ€˜((𝐴 / 1) + 1)) = (logβ€˜(𝐴 + 1)))
289288oveq1d 7420 . . . . . . . 8 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ ((logβ€˜((𝐴 / 1) + 1)) βˆ’ (logβ€˜((𝐴 / (𝑛 + 1)) + 1))) = ((logβ€˜(𝐴 + 1)) βˆ’ (logβ€˜((𝐴 / (𝑛 + 1)) + 1))))
290286, 289eqtrd 2772 . . . . . . 7 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ Ξ£π‘˜ ∈ (1...𝑛)((logβ€˜((𝐴 / π‘˜) + 1)) βˆ’ (logβ€˜((𝐴 / (π‘˜ + 1)) + 1))) = ((logβ€˜(𝐴 + 1)) βˆ’ (logβ€˜((𝐴 / (𝑛 + 1)) + 1))))
291263, 264, 2903eqtr3d 2780 . . . . . 6 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ (Ξ£π‘˜ ∈ (1...𝑛)(((𝐴 + 1) Β· (logβ€˜((π‘˜ + 1) / π‘˜))) βˆ’ (logβ€˜(((𝐴 + 1) / π‘˜) + 1))) βˆ’ Ξ£π‘˜ ∈ (1...𝑛)((𝐴 Β· (logβ€˜((π‘˜ + 1) / π‘˜))) βˆ’ (logβ€˜((𝐴 / π‘˜) + 1)))) = ((logβ€˜(𝐴 + 1)) βˆ’ (logβ€˜((𝐴 / (𝑛 + 1)) + 1))))
292291oveq2d 7421 . . . . 5 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ (Ξ£π‘˜ ∈ (1...𝑛)(((𝐴 + 1) Β· (logβ€˜((π‘˜ + 1) / π‘˜))) βˆ’ (logβ€˜(((𝐴 + 1) / π‘˜) + 1))) βˆ’ (Ξ£π‘˜ ∈ (1...𝑛)(((𝐴 + 1) Β· (logβ€˜((π‘˜ + 1) / π‘˜))) βˆ’ (logβ€˜(((𝐴 + 1) / π‘˜) + 1))) βˆ’ Ξ£π‘˜ ∈ (1...𝑛)((𝐴 Β· (logβ€˜((π‘˜ + 1) / π‘˜))) βˆ’ (logβ€˜((𝐴 / π‘˜) + 1))))) = (Ξ£π‘˜ ∈ (1...𝑛)(((𝐴 + 1) Β· (logβ€˜((π‘˜ + 1) / π‘˜))) βˆ’ (logβ€˜(((𝐴 + 1) / π‘˜) + 1))) βˆ’ ((logβ€˜(𝐴 + 1)) βˆ’ (logβ€˜((𝐴 / (𝑛 + 1)) + 1)))))
293212, 292eqtr3d 2774 . . . 4 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ Ξ£π‘˜ ∈ (1...𝑛)((𝐴 Β· (logβ€˜((π‘˜ + 1) / π‘˜))) βˆ’ (logβ€˜((𝐴 / π‘˜) + 1))) = (Ξ£π‘˜ ∈ (1...𝑛)(((𝐴 + 1) Β· (logβ€˜((π‘˜ + 1) / π‘˜))) βˆ’ (logβ€˜(((𝐴 + 1) / π‘˜) + 1))) βˆ’ ((logβ€˜(𝐴 + 1)) βˆ’ (logβ€˜((𝐴 / (𝑛 + 1)) + 1)))))
294170oveq2d 7421 . . . . . . . 8 (π‘š = π‘˜ β†’ (𝐴 Β· (logβ€˜((π‘š + 1) / π‘š))) = (𝐴 Β· (logβ€˜((π‘˜ + 1) / π‘˜))))
295 oveq2 7413 . . . . . . . . 9 (π‘š = π‘˜ β†’ (𝐴 / π‘š) = (𝐴 / π‘˜))
296295fvoveq1d 7427 . . . . . . . 8 (π‘š = π‘˜ β†’ (logβ€˜((𝐴 / π‘š) + 1)) = (logβ€˜((𝐴 / π‘˜) + 1)))
297294, 296oveq12d 7423 . . . . . . 7 (π‘š = π‘˜ β†’ ((𝐴 Β· (logβ€˜((π‘š + 1) / π‘š))) βˆ’ (logβ€˜((𝐴 / π‘š) + 1))) = ((𝐴 Β· (logβ€˜((π‘˜ + 1) / π‘˜))) βˆ’ (logβ€˜((𝐴 / π‘˜) + 1))))
298 lgamcvg.g . . . . . . 7 𝐺 = (π‘š ∈ β„• ↦ ((𝐴 Β· (logβ€˜((π‘š + 1) / π‘š))) βˆ’ (logβ€˜((𝐴 / π‘š) + 1))))
299 ovex 7438 . . . . . . 7 ((𝐴 Β· (logβ€˜((π‘˜ + 1) / π‘˜))) βˆ’ (logβ€˜((𝐴 / π‘˜) + 1))) ∈ V
300297, 298, 299fvmpt 6995 . . . . . 6 (π‘˜ ∈ β„• β†’ (πΊβ€˜π‘˜) = ((𝐴 Β· (logβ€˜((π‘˜ + 1) / π‘˜))) βˆ’ (logβ€˜((𝐴 / π‘˜) + 1))))
301166, 300syl 17 . . . . 5 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘˜ ∈ (1...𝑛)) β†’ (πΊβ€˜π‘˜) = ((𝐴 Β· (logβ€˜((π‘˜ + 1) / π‘˜))) βˆ’ (logβ€˜((𝐴 / π‘˜) + 1))))
302301, 178, 210fsumser 15672 . . . 4 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ Ξ£π‘˜ ∈ (1...𝑛)((𝐴 Β· (logβ€˜((π‘˜ + 1) / π‘˜))) βˆ’ (logβ€˜((𝐴 / π‘˜) + 1))) = (seq1( + , 𝐺)β€˜π‘›))
303159eqcomd 2738 . . . . 5 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ ((logβ€˜(𝐴 + 1)) βˆ’ (logβ€˜((𝐴 / (𝑛 + 1)) + 1))) = ((π‘š ∈ β„• ↦ ((logβ€˜(𝐴 + 1)) βˆ’ (logβ€˜((𝐴 / (π‘š + 1)) + 1))))β€˜π‘›))
304197, 303oveq12d 7423 . . . 4 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ (Ξ£π‘˜ ∈ (1...𝑛)(((𝐴 + 1) Β· (logβ€˜((π‘˜ + 1) / π‘˜))) βˆ’ (logβ€˜(((𝐴 + 1) / π‘˜) + 1))) βˆ’ ((logβ€˜(𝐴 + 1)) βˆ’ (logβ€˜((𝐴 / (𝑛 + 1)) + 1)))) = ((seq1( + , (π‘š ∈ β„• ↦ (((𝐴 + 1) Β· (logβ€˜((π‘š + 1) / π‘š))) βˆ’ (logβ€˜(((𝐴 + 1) / π‘š) + 1)))))β€˜π‘›) βˆ’ ((π‘š ∈ β„• ↦ ((logβ€˜(𝐴 + 1)) βˆ’ (logβ€˜((𝐴 / (π‘š + 1)) + 1))))β€˜π‘›)))
305293, 302, 3043eqtr3d 2780 . . 3 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ (seq1( + , 𝐺)β€˜π‘›) = ((seq1( + , (π‘š ∈ β„• ↦ (((𝐴 + 1) Β· (logβ€˜((π‘š + 1) / π‘š))) βˆ’ (logβ€˜(((𝐴 + 1) / π‘š) + 1)))))β€˜π‘›) βˆ’ ((π‘š ∈ β„• ↦ ((logβ€˜(𝐴 + 1)) βˆ’ (logβ€˜((𝐴 / (π‘š + 1)) + 1))))β€˜π‘›)))
3061, 2, 8, 10, 164, 200, 203, 305climsub 15574 . 2 (πœ‘ β†’ seq1( + , 𝐺) ⇝ (((log Ξ“β€˜(𝐴 + 1)) + (logβ€˜(𝐴 + 1))) βˆ’ (logβ€˜(𝐴 + 1))))
307 lgamcl 26534 . . . 4 ((𝐴 + 1) ∈ (β„‚ βˆ– (β„€ βˆ– β„•)) β†’ (log Ξ“β€˜(𝐴 + 1)) ∈ β„‚)
3087, 307syl 17 . . 3 (πœ‘ β†’ (log Ξ“β€˜(𝐴 + 1)) ∈ β„‚)
309308, 142pncand 11568 . 2 (πœ‘ β†’ (((log Ξ“β€˜(𝐴 + 1)) + (logβ€˜(𝐴 + 1))) βˆ’ (logβ€˜(𝐴 + 1))) = (log Ξ“β€˜(𝐴 + 1)))
310306, 309breqtrd 5173 1 (πœ‘ β†’ seq1( + , 𝐺) ⇝ (log Ξ“β€˜(𝐴 + 1)))
Colors of variables: wff setvar class
Syntax hints:   β†’ wi 4   ↔ wb 205   ∧ wa 396   = wceq 1541   ∈ wcel 2106   β‰  wne 2940  βˆƒwrex 3070  Vcvv 3474   βˆ– cdif 3944   βŠ† wss 3947  {csn 4627   class class class wbr 5147   ↦ cmpt 5230  ran crn 5676   β†Ύ cres 5677   ∘ ccom 5679  βŸΆwf 6536  β€“1-1-ontoβ†’wf1o 6539  β€˜cfv 6540  (class class class)co 7405  β„‚cc 11104  β„cr 11105  0cc0 11106  1c1 11107   + caddc 11109   Β· cmul 11111  -∞cmnf 11242  β„*cxr 11243   < clt 11244   ≀ cle 11245   βˆ’ cmin 11440   / cdiv 11867  β„•cn 12208  β„•0cn0 12468  β„€cz 12554  β„€β‰₯cuz 12818  β„+crp 12970  (,]cioc 13321  ...cfz 13480  seqcseq 13962  abscabs 15177   ⇝ cli 15424  Ξ£csu 15628  βˆžMetcxmet 20921  ballcbl 20923  β€“cnβ†’ccncf 24383  logclog 26054  log Ξ“clgam 26509
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-dju 9892  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-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-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  df-cxp 26057  df-lgam 26512
This theorem is referenced by:  lgamp1  26550
  Copyright terms: Public domain W3C validator