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

Theorem cvgrat 15825
Description: Ratio test for convergence of a complex infinite series. If the ratio ๐ด of the absolute values of successive terms in an infinite sequence ๐น is less than 1 for all terms beyond some index ๐ต, then the infinite sum of the terms of ๐น converges to a complex number. Equivalent to first part of Exercise 4 of [Gleason] p. 182. (Contributed by NM, 26-Apr-2005.) (Proof shortened by Mario Carneiro, 27-Apr-2014.)
Hypotheses
Ref Expression
cvgrat.1 ๐‘ = (โ„คโ‰ฅโ€˜๐‘€)
cvgrat.2 ๐‘Š = (โ„คโ‰ฅโ€˜๐‘)
cvgrat.3 (๐œ‘ โ†’ ๐ด โˆˆ โ„)
cvgrat.4 (๐œ‘ โ†’ ๐ด < 1)
cvgrat.5 (๐œ‘ โ†’ ๐‘ โˆˆ ๐‘)
cvgrat.6 ((๐œ‘ โˆง ๐‘˜ โˆˆ ๐‘) โ†’ (๐นโ€˜๐‘˜) โˆˆ โ„‚)
cvgrat.7 ((๐œ‘ โˆง ๐‘˜ โˆˆ ๐‘Š) โ†’ (absโ€˜(๐นโ€˜(๐‘˜ + 1))) โ‰ค (๐ด ยท (absโ€˜(๐นโ€˜๐‘˜))))
Assertion
Ref Expression
cvgrat (๐œ‘ โ†’ seq๐‘€( + , ๐น) โˆˆ dom โ‡ )
Distinct variable groups:   ๐ด,๐‘˜   ๐‘˜,๐น   ๐‘˜,๐‘€   ๐‘˜,๐‘   ๐œ‘,๐‘˜   ๐‘˜,๐‘Š   ๐‘˜,๐‘

Proof of Theorem cvgrat
Dummy variable ๐‘› is distinct from all other variables.
StepHypRef Expression
1 cvgrat.2 . . 3 ๐‘Š = (โ„คโ‰ฅโ€˜๐‘)
2 cvgrat.5 . . . . . . 7 (๐œ‘ โ†’ ๐‘ โˆˆ ๐‘)
3 cvgrat.1 . . . . . . 7 ๐‘ = (โ„คโ‰ฅโ€˜๐‘€)
42, 3eleqtrdi 2844 . . . . . 6 (๐œ‘ โ†’ ๐‘ โˆˆ (โ„คโ‰ฅโ€˜๐‘€))
5 eluzelz 12828 . . . . . 6 (๐‘ โˆˆ (โ„คโ‰ฅโ€˜๐‘€) โ†’ ๐‘ โˆˆ โ„ค)
64, 5syl 17 . . . . 5 (๐œ‘ โ†’ ๐‘ โˆˆ โ„ค)
7 uzid 12833 . . . . 5 (๐‘ โˆˆ โ„ค โ†’ ๐‘ โˆˆ (โ„คโ‰ฅโ€˜๐‘))
86, 7syl 17 . . . 4 (๐œ‘ โ†’ ๐‘ โˆˆ (โ„คโ‰ฅโ€˜๐‘))
98, 1eleqtrrdi 2845 . . 3 (๐œ‘ โ†’ ๐‘ โˆˆ ๐‘Š)
10 oveq1 7411 . . . . . . 7 (๐‘› = ๐‘˜ โ†’ (๐‘› โˆ’ ๐‘) = (๐‘˜ โˆ’ ๐‘))
1110oveq2d 7420 . . . . . 6 (๐‘› = ๐‘˜ โ†’ (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘(๐‘› โˆ’ ๐‘)) = (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘(๐‘˜ โˆ’ ๐‘)))
12 eqid 2733 . . . . . 6 (๐‘› โˆˆ ๐‘Š โ†ฆ (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘(๐‘› โˆ’ ๐‘))) = (๐‘› โˆˆ ๐‘Š โ†ฆ (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘(๐‘› โˆ’ ๐‘)))
13 ovex 7437 . . . . . 6 (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘(๐‘˜ โˆ’ ๐‘)) โˆˆ V
1411, 12, 13fvmpt 6994 . . . . 5 (๐‘˜ โˆˆ ๐‘Š โ†’ ((๐‘› โˆˆ ๐‘Š โ†ฆ (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘(๐‘› โˆ’ ๐‘)))โ€˜๐‘˜) = (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘(๐‘˜ โˆ’ ๐‘)))
1514adantl 483 . . . 4 ((๐œ‘ โˆง ๐‘˜ โˆˆ ๐‘Š) โ†’ ((๐‘› โˆˆ ๐‘Š โ†ฆ (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘(๐‘› โˆ’ ๐‘)))โ€˜๐‘˜) = (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘(๐‘˜ โˆ’ ๐‘)))
16 0re 11212 . . . . . . 7 0 โˆˆ โ„
17 cvgrat.3 . . . . . . 7 (๐œ‘ โ†’ ๐ด โˆˆ โ„)
18 ifcl 4572 . . . . . . 7 ((0 โˆˆ โ„ โˆง ๐ด โˆˆ โ„) โ†’ if(๐ด โ‰ค 0, 0, ๐ด) โˆˆ โ„)
1916, 17, 18sylancr 588 . . . . . 6 (๐œ‘ โ†’ if(๐ด โ‰ค 0, 0, ๐ด) โˆˆ โ„)
2019adantr 482 . . . . 5 ((๐œ‘ โˆง ๐‘˜ โˆˆ ๐‘Š) โ†’ if(๐ด โ‰ค 0, 0, ๐ด) โˆˆ โ„)
21 simpr 486 . . . . . . 7 ((๐œ‘ โˆง ๐‘˜ โˆˆ ๐‘Š) โ†’ ๐‘˜ โˆˆ ๐‘Š)
2221, 1eleqtrdi 2844 . . . . . 6 ((๐œ‘ โˆง ๐‘˜ โˆˆ ๐‘Š) โ†’ ๐‘˜ โˆˆ (โ„คโ‰ฅโ€˜๐‘))
23 uznn0sub 12857 . . . . . 6 (๐‘˜ โˆˆ (โ„คโ‰ฅโ€˜๐‘) โ†’ (๐‘˜ โˆ’ ๐‘) โˆˆ โ„•0)
2422, 23syl 17 . . . . 5 ((๐œ‘ โˆง ๐‘˜ โˆˆ ๐‘Š) โ†’ (๐‘˜ โˆ’ ๐‘) โˆˆ โ„•0)
2520, 24reexpcld 14124 . . . 4 ((๐œ‘ โˆง ๐‘˜ โˆˆ ๐‘Š) โ†’ (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘(๐‘˜ โˆ’ ๐‘)) โˆˆ โ„)
2615, 25eqeltrd 2834 . . 3 ((๐œ‘ โˆง ๐‘˜ โˆˆ ๐‘Š) โ†’ ((๐‘› โˆˆ ๐‘Š โ†ฆ (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘(๐‘› โˆ’ ๐‘)))โ€˜๐‘˜) โˆˆ โ„)
27 uzss 12841 . . . . . . 7 (๐‘ โˆˆ (โ„คโ‰ฅโ€˜๐‘€) โ†’ (โ„คโ‰ฅโ€˜๐‘) โŠ† (โ„คโ‰ฅโ€˜๐‘€))
284, 27syl 17 . . . . . 6 (๐œ‘ โ†’ (โ„คโ‰ฅโ€˜๐‘) โŠ† (โ„คโ‰ฅโ€˜๐‘€))
2928, 1, 33sstr4g 4026 . . . . 5 (๐œ‘ โ†’ ๐‘Š โŠ† ๐‘)
3029sselda 3981 . . . 4 ((๐œ‘ โˆง ๐‘˜ โˆˆ ๐‘Š) โ†’ ๐‘˜ โˆˆ ๐‘)
31 cvgrat.6 . . . 4 ((๐œ‘ โˆง ๐‘˜ โˆˆ ๐‘) โ†’ (๐นโ€˜๐‘˜) โˆˆ โ„‚)
3230, 31syldan 592 . . 3 ((๐œ‘ โˆง ๐‘˜ โˆˆ ๐‘Š) โ†’ (๐นโ€˜๐‘˜) โˆˆ โ„‚)
3323adantl 483 . . . . . . . 8 ((๐œ‘ โˆง ๐‘˜ โˆˆ (โ„คโ‰ฅโ€˜๐‘)) โ†’ (๐‘˜ โˆ’ ๐‘) โˆˆ โ„•0)
34 oveq2 7412 . . . . . . . . 9 (๐‘› = (๐‘˜ โˆ’ ๐‘) โ†’ (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘๐‘›) = (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘(๐‘˜ โˆ’ ๐‘)))
35 eqid 2733 . . . . . . . . 9 (๐‘› โˆˆ โ„•0 โ†ฆ (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘๐‘›)) = (๐‘› โˆˆ โ„•0 โ†ฆ (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘๐‘›))
3634, 35, 13fvmpt 6994 . . . . . . . 8 ((๐‘˜ โˆ’ ๐‘) โˆˆ โ„•0 โ†’ ((๐‘› โˆˆ โ„•0 โ†ฆ (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘๐‘›))โ€˜(๐‘˜ โˆ’ ๐‘)) = (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘(๐‘˜ โˆ’ ๐‘)))
3733, 36syl 17 . . . . . . 7 ((๐œ‘ โˆง ๐‘˜ โˆˆ (โ„คโ‰ฅโ€˜๐‘)) โ†’ ((๐‘› โˆˆ โ„•0 โ†ฆ (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘๐‘›))โ€˜(๐‘˜ โˆ’ ๐‘)) = (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘(๐‘˜ โˆ’ ๐‘)))
386zcnd 12663 . . . . . . . 8 (๐œ‘ โ†’ ๐‘ โˆˆ โ„‚)
39 eluzelz 12828 . . . . . . . . 9 (๐‘˜ โˆˆ (โ„คโ‰ฅโ€˜๐‘) โ†’ ๐‘˜ โˆˆ โ„ค)
4039zcnd 12663 . . . . . . . 8 (๐‘˜ โˆˆ (โ„คโ‰ฅโ€˜๐‘) โ†’ ๐‘˜ โˆˆ โ„‚)
41 nn0ex 12474 . . . . . . . . . 10 โ„•0 โˆˆ V
4241mptex 7220 . . . . . . . . 9 (๐‘› โˆˆ โ„•0 โ†ฆ (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘๐‘›)) โˆˆ V
4342shftval 15017 . . . . . . . 8 ((๐‘ โˆˆ โ„‚ โˆง ๐‘˜ โˆˆ โ„‚) โ†’ (((๐‘› โˆˆ โ„•0 โ†ฆ (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘๐‘›)) shift ๐‘)โ€˜๐‘˜) = ((๐‘› โˆˆ โ„•0 โ†ฆ (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘๐‘›))โ€˜(๐‘˜ โˆ’ ๐‘)))
4438, 40, 43syl2an 597 . . . . . . 7 ((๐œ‘ โˆง ๐‘˜ โˆˆ (โ„คโ‰ฅโ€˜๐‘)) โ†’ (((๐‘› โˆˆ โ„•0 โ†ฆ (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘๐‘›)) shift ๐‘)โ€˜๐‘˜) = ((๐‘› โˆˆ โ„•0 โ†ฆ (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘๐‘›))โ€˜(๐‘˜ โˆ’ ๐‘)))
45 simpr 486 . . . . . . . . 9 ((๐œ‘ โˆง ๐‘˜ โˆˆ (โ„คโ‰ฅโ€˜๐‘)) โ†’ ๐‘˜ โˆˆ (โ„คโ‰ฅโ€˜๐‘))
4645, 1eleqtrrdi 2845 . . . . . . . 8 ((๐œ‘ โˆง ๐‘˜ โˆˆ (โ„คโ‰ฅโ€˜๐‘)) โ†’ ๐‘˜ โˆˆ ๐‘Š)
4746, 14syl 17 . . . . . . 7 ((๐œ‘ โˆง ๐‘˜ โˆˆ (โ„คโ‰ฅโ€˜๐‘)) โ†’ ((๐‘› โˆˆ ๐‘Š โ†ฆ (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘(๐‘› โˆ’ ๐‘)))โ€˜๐‘˜) = (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘(๐‘˜ โˆ’ ๐‘)))
4837, 44, 473eqtr4rd 2784 . . . . . 6 ((๐œ‘ โˆง ๐‘˜ โˆˆ (โ„คโ‰ฅโ€˜๐‘)) โ†’ ((๐‘› โˆˆ ๐‘Š โ†ฆ (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘(๐‘› โˆ’ ๐‘)))โ€˜๐‘˜) = (((๐‘› โˆˆ โ„•0 โ†ฆ (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘๐‘›)) shift ๐‘)โ€˜๐‘˜))
496, 48seqfeq 13989 . . . . 5 (๐œ‘ โ†’ seq๐‘( + , (๐‘› โˆˆ ๐‘Š โ†ฆ (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘(๐‘› โˆ’ ๐‘)))) = seq๐‘( + , ((๐‘› โˆˆ โ„•0 โ†ฆ (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘๐‘›)) shift ๐‘)))
5042seqshft 15028 . . . . . 6 ((๐‘ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ seq๐‘( + , ((๐‘› โˆˆ โ„•0 โ†ฆ (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘๐‘›)) shift ๐‘)) = (seq(๐‘ โˆ’ ๐‘)( + , (๐‘› โˆˆ โ„•0 โ†ฆ (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘๐‘›))) shift ๐‘))
516, 6, 50syl2anc 585 . . . . 5 (๐œ‘ โ†’ seq๐‘( + , ((๐‘› โˆˆ โ„•0 โ†ฆ (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘๐‘›)) shift ๐‘)) = (seq(๐‘ โˆ’ ๐‘)( + , (๐‘› โˆˆ โ„•0 โ†ฆ (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘๐‘›))) shift ๐‘))
5238subidd 11555 . . . . . . 7 (๐œ‘ โ†’ (๐‘ โˆ’ ๐‘) = 0)
5352seqeq1d 13968 . . . . . 6 (๐œ‘ โ†’ seq(๐‘ โˆ’ ๐‘)( + , (๐‘› โˆˆ โ„•0 โ†ฆ (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘๐‘›))) = seq0( + , (๐‘› โˆˆ โ„•0 โ†ฆ (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘๐‘›))))
5453oveq1d 7419 . . . . 5 (๐œ‘ โ†’ (seq(๐‘ โˆ’ ๐‘)( + , (๐‘› โˆˆ โ„•0 โ†ฆ (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘๐‘›))) shift ๐‘) = (seq0( + , (๐‘› โˆˆ โ„•0 โ†ฆ (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘๐‘›))) shift ๐‘))
5549, 51, 543eqtrd 2777 . . . 4 (๐œ‘ โ†’ seq๐‘( + , (๐‘› โˆˆ ๐‘Š โ†ฆ (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘(๐‘› โˆ’ ๐‘)))) = (seq0( + , (๐‘› โˆˆ โ„•0 โ†ฆ (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘๐‘›))) shift ๐‘))
5619recnd 11238 . . . . . . 7 (๐œ‘ โ†’ if(๐ด โ‰ค 0, 0, ๐ด) โˆˆ โ„‚)
57 max2 13162 . . . . . . . . . 10 ((๐ด โˆˆ โ„ โˆง 0 โˆˆ โ„) โ†’ 0 โ‰ค if(๐ด โ‰ค 0, 0, ๐ด))
5817, 16, 57sylancl 587 . . . . . . . . 9 (๐œ‘ โ†’ 0 โ‰ค if(๐ด โ‰ค 0, 0, ๐ด))
5919, 58absidd 15365 . . . . . . . 8 (๐œ‘ โ†’ (absโ€˜if(๐ด โ‰ค 0, 0, ๐ด)) = if(๐ด โ‰ค 0, 0, ๐ด))
60 0lt1 11732 . . . . . . . . 9 0 < 1
61 cvgrat.4 . . . . . . . . 9 (๐œ‘ โ†’ ๐ด < 1)
62 breq1 5150 . . . . . . . . . 10 (0 = if(๐ด โ‰ค 0, 0, ๐ด) โ†’ (0 < 1 โ†” if(๐ด โ‰ค 0, 0, ๐ด) < 1))
63 breq1 5150 . . . . . . . . . 10 (๐ด = if(๐ด โ‰ค 0, 0, ๐ด) โ†’ (๐ด < 1 โ†” if(๐ด โ‰ค 0, 0, ๐ด) < 1))
6462, 63ifboth 4566 . . . . . . . . 9 ((0 < 1 โˆง ๐ด < 1) โ†’ if(๐ด โ‰ค 0, 0, ๐ด) < 1)
6560, 61, 64sylancr 588 . . . . . . . 8 (๐œ‘ โ†’ if(๐ด โ‰ค 0, 0, ๐ด) < 1)
6659, 65eqbrtrd 5169 . . . . . . 7 (๐œ‘ โ†’ (absโ€˜if(๐ด โ‰ค 0, 0, ๐ด)) < 1)
67 oveq2 7412 . . . . . . . . 9 (๐‘› = ๐‘˜ โ†’ (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘๐‘›) = (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘๐‘˜))
68 ovex 7437 . . . . . . . . 9 (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘๐‘˜) โˆˆ V
6967, 35, 68fvmpt 6994 . . . . . . . 8 (๐‘˜ โˆˆ โ„•0 โ†’ ((๐‘› โˆˆ โ„•0 โ†ฆ (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘๐‘›))โ€˜๐‘˜) = (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘๐‘˜))
7069adantl 483 . . . . . . 7 ((๐œ‘ โˆง ๐‘˜ โˆˆ โ„•0) โ†’ ((๐‘› โˆˆ โ„•0 โ†ฆ (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘๐‘›))โ€˜๐‘˜) = (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘๐‘˜))
7156, 66, 70geolim 15812 . . . . . 6 (๐œ‘ โ†’ seq0( + , (๐‘› โˆˆ โ„•0 โ†ฆ (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘๐‘›))) โ‡ (1 / (1 โˆ’ if(๐ด โ‰ค 0, 0, ๐ด))))
72 seqex 13964 . . . . . . 7 seq0( + , (๐‘› โˆˆ โ„•0 โ†ฆ (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘๐‘›))) โˆˆ V
73 climshft 15516 . . . . . . 7 ((๐‘ โˆˆ โ„ค โˆง seq0( + , (๐‘› โˆˆ โ„•0 โ†ฆ (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘๐‘›))) โˆˆ V) โ†’ ((seq0( + , (๐‘› โˆˆ โ„•0 โ†ฆ (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘๐‘›))) shift ๐‘) โ‡ (1 / (1 โˆ’ if(๐ด โ‰ค 0, 0, ๐ด))) โ†” seq0( + , (๐‘› โˆˆ โ„•0 โ†ฆ (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘๐‘›))) โ‡ (1 / (1 โˆ’ if(๐ด โ‰ค 0, 0, ๐ด)))))
746, 72, 73sylancl 587 . . . . . 6 (๐œ‘ โ†’ ((seq0( + , (๐‘› โˆˆ โ„•0 โ†ฆ (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘๐‘›))) shift ๐‘) โ‡ (1 / (1 โˆ’ if(๐ด โ‰ค 0, 0, ๐ด))) โ†” seq0( + , (๐‘› โˆˆ โ„•0 โ†ฆ (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘๐‘›))) โ‡ (1 / (1 โˆ’ if(๐ด โ‰ค 0, 0, ๐ด)))))
7571, 74mpbird 257 . . . . 5 (๐œ‘ โ†’ (seq0( + , (๐‘› โˆˆ โ„•0 โ†ฆ (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘๐‘›))) shift ๐‘) โ‡ (1 / (1 โˆ’ if(๐ด โ‰ค 0, 0, ๐ด))))
76 ovex 7437 . . . . . 6 (seq0( + , (๐‘› โˆˆ โ„•0 โ†ฆ (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘๐‘›))) shift ๐‘) โˆˆ V
77 ovex 7437 . . . . . 6 (1 / (1 โˆ’ if(๐ด โ‰ค 0, 0, ๐ด))) โˆˆ V
7876, 77breldm 5906 . . . . 5 ((seq0( + , (๐‘› โˆˆ โ„•0 โ†ฆ (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘๐‘›))) shift ๐‘) โ‡ (1 / (1 โˆ’ if(๐ด โ‰ค 0, 0, ๐ด))) โ†’ (seq0( + , (๐‘› โˆˆ โ„•0 โ†ฆ (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘๐‘›))) shift ๐‘) โˆˆ dom โ‡ )
7975, 78syl 17 . . . 4 (๐œ‘ โ†’ (seq0( + , (๐‘› โˆˆ โ„•0 โ†ฆ (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘๐‘›))) shift ๐‘) โˆˆ dom โ‡ )
8055, 79eqeltrd 2834 . . 3 (๐œ‘ โ†’ seq๐‘( + , (๐‘› โˆˆ ๐‘Š โ†ฆ (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘(๐‘› โˆ’ ๐‘)))) โˆˆ dom โ‡ )
81 fveq2 6888 . . . . . 6 (๐‘˜ = ๐‘ โ†’ (๐นโ€˜๐‘˜) = (๐นโ€˜๐‘))
8281eleq1d 2819 . . . . 5 (๐‘˜ = ๐‘ โ†’ ((๐นโ€˜๐‘˜) โˆˆ โ„‚ โ†” (๐นโ€˜๐‘) โˆˆ โ„‚))
8331ralrimiva 3147 . . . . 5 (๐œ‘ โ†’ โˆ€๐‘˜ โˆˆ ๐‘ (๐นโ€˜๐‘˜) โˆˆ โ„‚)
8482, 83, 2rspcdva 3613 . . . 4 (๐œ‘ โ†’ (๐นโ€˜๐‘) โˆˆ โ„‚)
8584abscld 15379 . . 3 (๐œ‘ โ†’ (absโ€˜(๐นโ€˜๐‘)) โˆˆ โ„)
86 2fveq3 6893 . . . . . . . 8 (๐‘› = ๐‘ โ†’ (absโ€˜(๐นโ€˜๐‘›)) = (absโ€˜(๐นโ€˜๐‘)))
87 oveq1 7411 . . . . . . . . . 10 (๐‘› = ๐‘ โ†’ (๐‘› โˆ’ ๐‘) = (๐‘ โˆ’ ๐‘))
8887oveq2d 7420 . . . . . . . . 9 (๐‘› = ๐‘ โ†’ (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘(๐‘› โˆ’ ๐‘)) = (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘(๐‘ โˆ’ ๐‘)))
8988oveq2d 7420 . . . . . . . 8 (๐‘› = ๐‘ โ†’ ((absโ€˜(๐นโ€˜๐‘)) ยท (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘(๐‘› โˆ’ ๐‘))) = ((absโ€˜(๐นโ€˜๐‘)) ยท (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘(๐‘ โˆ’ ๐‘))))
9086, 89breq12d 5160 . . . . . . 7 (๐‘› = ๐‘ โ†’ ((absโ€˜(๐นโ€˜๐‘›)) โ‰ค ((absโ€˜(๐นโ€˜๐‘)) ยท (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘(๐‘› โˆ’ ๐‘))) โ†” (absโ€˜(๐นโ€˜๐‘)) โ‰ค ((absโ€˜(๐นโ€˜๐‘)) ยท (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘(๐‘ โˆ’ ๐‘)))))
9190imbi2d 341 . . . . . 6 (๐‘› = ๐‘ โ†’ ((๐œ‘ โ†’ (absโ€˜(๐นโ€˜๐‘›)) โ‰ค ((absโ€˜(๐นโ€˜๐‘)) ยท (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘(๐‘› โˆ’ ๐‘)))) โ†” (๐œ‘ โ†’ (absโ€˜(๐นโ€˜๐‘)) โ‰ค ((absโ€˜(๐นโ€˜๐‘)) ยท (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘(๐‘ โˆ’ ๐‘))))))
92 2fveq3 6893 . . . . . . . 8 (๐‘› = ๐‘˜ โ†’ (absโ€˜(๐นโ€˜๐‘›)) = (absโ€˜(๐นโ€˜๐‘˜)))
9311oveq2d 7420 . . . . . . . 8 (๐‘› = ๐‘˜ โ†’ ((absโ€˜(๐นโ€˜๐‘)) ยท (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘(๐‘› โˆ’ ๐‘))) = ((absโ€˜(๐นโ€˜๐‘)) ยท (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘(๐‘˜ โˆ’ ๐‘))))
9492, 93breq12d 5160 . . . . . . 7 (๐‘› = ๐‘˜ โ†’ ((absโ€˜(๐นโ€˜๐‘›)) โ‰ค ((absโ€˜(๐นโ€˜๐‘)) ยท (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘(๐‘› โˆ’ ๐‘))) โ†” (absโ€˜(๐นโ€˜๐‘˜)) โ‰ค ((absโ€˜(๐นโ€˜๐‘)) ยท (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘(๐‘˜ โˆ’ ๐‘)))))
9594imbi2d 341 . . . . . 6 (๐‘› = ๐‘˜ โ†’ ((๐œ‘ โ†’ (absโ€˜(๐นโ€˜๐‘›)) โ‰ค ((absโ€˜(๐นโ€˜๐‘)) ยท (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘(๐‘› โˆ’ ๐‘)))) โ†” (๐œ‘ โ†’ (absโ€˜(๐นโ€˜๐‘˜)) โ‰ค ((absโ€˜(๐นโ€˜๐‘)) ยท (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘(๐‘˜ โˆ’ ๐‘))))))
96 2fveq3 6893 . . . . . . . 8 (๐‘› = (๐‘˜ + 1) โ†’ (absโ€˜(๐นโ€˜๐‘›)) = (absโ€˜(๐นโ€˜(๐‘˜ + 1))))
97 oveq1 7411 . . . . . . . . . 10 (๐‘› = (๐‘˜ + 1) โ†’ (๐‘› โˆ’ ๐‘) = ((๐‘˜ + 1) โˆ’ ๐‘))
9897oveq2d 7420 . . . . . . . . 9 (๐‘› = (๐‘˜ + 1) โ†’ (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘(๐‘› โˆ’ ๐‘)) = (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘((๐‘˜ + 1) โˆ’ ๐‘)))
9998oveq2d 7420 . . . . . . . 8 (๐‘› = (๐‘˜ + 1) โ†’ ((absโ€˜(๐นโ€˜๐‘)) ยท (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘(๐‘› โˆ’ ๐‘))) = ((absโ€˜(๐นโ€˜๐‘)) ยท (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘((๐‘˜ + 1) โˆ’ ๐‘))))
10096, 99breq12d 5160 . . . . . . 7 (๐‘› = (๐‘˜ + 1) โ†’ ((absโ€˜(๐นโ€˜๐‘›)) โ‰ค ((absโ€˜(๐นโ€˜๐‘)) ยท (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘(๐‘› โˆ’ ๐‘))) โ†” (absโ€˜(๐นโ€˜(๐‘˜ + 1))) โ‰ค ((absโ€˜(๐นโ€˜๐‘)) ยท (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘((๐‘˜ + 1) โˆ’ ๐‘)))))
101100imbi2d 341 . . . . . 6 (๐‘› = (๐‘˜ + 1) โ†’ ((๐œ‘ โ†’ (absโ€˜(๐นโ€˜๐‘›)) โ‰ค ((absโ€˜(๐นโ€˜๐‘)) ยท (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘(๐‘› โˆ’ ๐‘)))) โ†” (๐œ‘ โ†’ (absโ€˜(๐นโ€˜(๐‘˜ + 1))) โ‰ค ((absโ€˜(๐นโ€˜๐‘)) ยท (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘((๐‘˜ + 1) โˆ’ ๐‘))))))
10285leidd 11776 . . . . . . 7 (๐œ‘ โ†’ (absโ€˜(๐นโ€˜๐‘)) โ‰ค (absโ€˜(๐นโ€˜๐‘)))
10352oveq2d 7420 . . . . . . . . . 10 (๐œ‘ โ†’ (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘(๐‘ โˆ’ ๐‘)) = (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘0))
10456exp0d 14101 . . . . . . . . . 10 (๐œ‘ โ†’ (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘0) = 1)
105103, 104eqtrd 2773 . . . . . . . . 9 (๐œ‘ โ†’ (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘(๐‘ โˆ’ ๐‘)) = 1)
106105oveq2d 7420 . . . . . . . 8 (๐œ‘ โ†’ ((absโ€˜(๐นโ€˜๐‘)) ยท (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘(๐‘ โˆ’ ๐‘))) = ((absโ€˜(๐นโ€˜๐‘)) ยท 1))
10785recnd 11238 . . . . . . . . 9 (๐œ‘ โ†’ (absโ€˜(๐นโ€˜๐‘)) โˆˆ โ„‚)
108107mulridd 11227 . . . . . . . 8 (๐œ‘ โ†’ ((absโ€˜(๐นโ€˜๐‘)) ยท 1) = (absโ€˜(๐นโ€˜๐‘)))
109106, 108eqtrd 2773 . . . . . . 7 (๐œ‘ โ†’ ((absโ€˜(๐นโ€˜๐‘)) ยท (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘(๐‘ โˆ’ ๐‘))) = (absโ€˜(๐นโ€˜๐‘)))
110102, 109breqtrrd 5175 . . . . . 6 (๐œ‘ โ†’ (absโ€˜(๐นโ€˜๐‘)) โ‰ค ((absโ€˜(๐นโ€˜๐‘)) ยท (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘(๐‘ โˆ’ ๐‘))))
11132abscld 15379 . . . . . . . . . . . 12 ((๐œ‘ โˆง ๐‘˜ โˆˆ ๐‘Š) โ†’ (absโ€˜(๐นโ€˜๐‘˜)) โˆˆ โ„)
11285adantr 482 . . . . . . . . . . . . 13 ((๐œ‘ โˆง ๐‘˜ โˆˆ ๐‘Š) โ†’ (absโ€˜(๐นโ€˜๐‘)) โˆˆ โ„)
113112, 25remulcld 11240 . . . . . . . . . . . 12 ((๐œ‘ โˆง ๐‘˜ โˆˆ ๐‘Š) โ†’ ((absโ€˜(๐นโ€˜๐‘)) ยท (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘(๐‘˜ โˆ’ ๐‘))) โˆˆ โ„)
11458adantr 482 . . . . . . . . . . . 12 ((๐œ‘ โˆง ๐‘˜ โˆˆ ๐‘Š) โ†’ 0 โ‰ค if(๐ด โ‰ค 0, 0, ๐ด))
115 lemul2a 12065 . . . . . . . . . . . . 13 ((((absโ€˜(๐นโ€˜๐‘˜)) โˆˆ โ„ โˆง ((absโ€˜(๐นโ€˜๐‘)) ยท (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘(๐‘˜ โˆ’ ๐‘))) โˆˆ โ„ โˆง (if(๐ด โ‰ค 0, 0, ๐ด) โˆˆ โ„ โˆง 0 โ‰ค if(๐ด โ‰ค 0, 0, ๐ด))) โˆง (absโ€˜(๐นโ€˜๐‘˜)) โ‰ค ((absโ€˜(๐นโ€˜๐‘)) ยท (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘(๐‘˜ โˆ’ ๐‘)))) โ†’ (if(๐ด โ‰ค 0, 0, ๐ด) ยท (absโ€˜(๐นโ€˜๐‘˜))) โ‰ค (if(๐ด โ‰ค 0, 0, ๐ด) ยท ((absโ€˜(๐นโ€˜๐‘)) ยท (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘(๐‘˜ โˆ’ ๐‘)))))
116115ex 414 . . . . . . . . . . . 12 (((absโ€˜(๐นโ€˜๐‘˜)) โˆˆ โ„ โˆง ((absโ€˜(๐นโ€˜๐‘)) ยท (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘(๐‘˜ โˆ’ ๐‘))) โˆˆ โ„ โˆง (if(๐ด โ‰ค 0, 0, ๐ด) โˆˆ โ„ โˆง 0 โ‰ค if(๐ด โ‰ค 0, 0, ๐ด))) โ†’ ((absโ€˜(๐นโ€˜๐‘˜)) โ‰ค ((absโ€˜(๐นโ€˜๐‘)) ยท (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘(๐‘˜ โˆ’ ๐‘))) โ†’ (if(๐ด โ‰ค 0, 0, ๐ด) ยท (absโ€˜(๐นโ€˜๐‘˜))) โ‰ค (if(๐ด โ‰ค 0, 0, ๐ด) ยท ((absโ€˜(๐นโ€˜๐‘)) ยท (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘(๐‘˜ โˆ’ ๐‘))))))
117111, 113, 20, 114, 116syl112anc 1375 . . . . . . . . . . 11 ((๐œ‘ โˆง ๐‘˜ โˆˆ ๐‘Š) โ†’ ((absโ€˜(๐นโ€˜๐‘˜)) โ‰ค ((absโ€˜(๐นโ€˜๐‘)) ยท (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘(๐‘˜ โˆ’ ๐‘))) โ†’ (if(๐ด โ‰ค 0, 0, ๐ด) ยท (absโ€˜(๐นโ€˜๐‘˜))) โ‰ค (if(๐ด โ‰ค 0, 0, ๐ด) ยท ((absโ€˜(๐นโ€˜๐‘)) ยท (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘(๐‘˜ โˆ’ ๐‘))))))
11856adantr 482 . . . . . . . . . . . . . 14 ((๐œ‘ โˆง ๐‘˜ โˆˆ ๐‘Š) โ†’ if(๐ด โ‰ค 0, 0, ๐ด) โˆˆ โ„‚)
119107adantr 482 . . . . . . . . . . . . . 14 ((๐œ‘ โˆง ๐‘˜ โˆˆ ๐‘Š) โ†’ (absโ€˜(๐นโ€˜๐‘)) โˆˆ โ„‚)
12025recnd 11238 . . . . . . . . . . . . . 14 ((๐œ‘ โˆง ๐‘˜ โˆˆ ๐‘Š) โ†’ (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘(๐‘˜ โˆ’ ๐‘)) โˆˆ โ„‚)
121118, 119, 120mul12d 11419 . . . . . . . . . . . . 13 ((๐œ‘ โˆง ๐‘˜ โˆˆ ๐‘Š) โ†’ (if(๐ด โ‰ค 0, 0, ๐ด) ยท ((absโ€˜(๐นโ€˜๐‘)) ยท (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘(๐‘˜ โˆ’ ๐‘)))) = ((absโ€˜(๐นโ€˜๐‘)) ยท (if(๐ด โ‰ค 0, 0, ๐ด) ยท (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘(๐‘˜ โˆ’ ๐‘)))))
122118, 24expp1d 14108 . . . . . . . . . . . . . . 15 ((๐œ‘ โˆง ๐‘˜ โˆˆ ๐‘Š) โ†’ (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘((๐‘˜ โˆ’ ๐‘) + 1)) = ((if(๐ด โ‰ค 0, 0, ๐ด)โ†‘(๐‘˜ โˆ’ ๐‘)) ยท if(๐ด โ‰ค 0, 0, ๐ด)))
12340, 1eleq2s 2852 . . . . . . . . . . . . . . . . 17 (๐‘˜ โˆˆ ๐‘Š โ†’ ๐‘˜ โˆˆ โ„‚)
124 ax-1cn 11164 . . . . . . . . . . . . . . . . . 18 1 โˆˆ โ„‚
125 addsub 11467 . . . . . . . . . . . . . . . . . 18 ((๐‘˜ โˆˆ โ„‚ โˆง 1 โˆˆ โ„‚ โˆง ๐‘ โˆˆ โ„‚) โ†’ ((๐‘˜ + 1) โˆ’ ๐‘) = ((๐‘˜ โˆ’ ๐‘) + 1))
126124, 125mp3an2 1450 . . . . . . . . . . . . . . . . 17 ((๐‘˜ โˆˆ โ„‚ โˆง ๐‘ โˆˆ โ„‚) โ†’ ((๐‘˜ + 1) โˆ’ ๐‘) = ((๐‘˜ โˆ’ ๐‘) + 1))
127123, 38, 126syl2anr 598 . . . . . . . . . . . . . . . 16 ((๐œ‘ โˆง ๐‘˜ โˆˆ ๐‘Š) โ†’ ((๐‘˜ + 1) โˆ’ ๐‘) = ((๐‘˜ โˆ’ ๐‘) + 1))
128127oveq2d 7420 . . . . . . . . . . . . . . 15 ((๐œ‘ โˆง ๐‘˜ โˆˆ ๐‘Š) โ†’ (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘((๐‘˜ + 1) โˆ’ ๐‘)) = (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘((๐‘˜ โˆ’ ๐‘) + 1)))
129118, 120mulcomd 11231 . . . . . . . . . . . . . . 15 ((๐œ‘ โˆง ๐‘˜ โˆˆ ๐‘Š) โ†’ (if(๐ด โ‰ค 0, 0, ๐ด) ยท (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘(๐‘˜ โˆ’ ๐‘))) = ((if(๐ด โ‰ค 0, 0, ๐ด)โ†‘(๐‘˜ โˆ’ ๐‘)) ยท if(๐ด โ‰ค 0, 0, ๐ด)))
130122, 128, 1293eqtr4rd 2784 . . . . . . . . . . . . . 14 ((๐œ‘ โˆง ๐‘˜ โˆˆ ๐‘Š) โ†’ (if(๐ด โ‰ค 0, 0, ๐ด) ยท (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘(๐‘˜ โˆ’ ๐‘))) = (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘((๐‘˜ + 1) โˆ’ ๐‘)))
131130oveq2d 7420 . . . . . . . . . . . . 13 ((๐œ‘ โˆง ๐‘˜ โˆˆ ๐‘Š) โ†’ ((absโ€˜(๐นโ€˜๐‘)) ยท (if(๐ด โ‰ค 0, 0, ๐ด) ยท (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘(๐‘˜ โˆ’ ๐‘)))) = ((absโ€˜(๐นโ€˜๐‘)) ยท (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘((๐‘˜ + 1) โˆ’ ๐‘))))
132121, 131eqtrd 2773 . . . . . . . . . . . 12 ((๐œ‘ โˆง ๐‘˜ โˆˆ ๐‘Š) โ†’ (if(๐ด โ‰ค 0, 0, ๐ด) ยท ((absโ€˜(๐นโ€˜๐‘)) ยท (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘(๐‘˜ โˆ’ ๐‘)))) = ((absโ€˜(๐นโ€˜๐‘)) ยท (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘((๐‘˜ + 1) โˆ’ ๐‘))))
133132breq2d 5159 . . . . . . . . . . 11 ((๐œ‘ โˆง ๐‘˜ โˆˆ ๐‘Š) โ†’ ((if(๐ด โ‰ค 0, 0, ๐ด) ยท (absโ€˜(๐นโ€˜๐‘˜))) โ‰ค (if(๐ด โ‰ค 0, 0, ๐ด) ยท ((absโ€˜(๐นโ€˜๐‘)) ยท (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘(๐‘˜ โˆ’ ๐‘)))) โ†” (if(๐ด โ‰ค 0, 0, ๐ด) ยท (absโ€˜(๐นโ€˜๐‘˜))) โ‰ค ((absโ€˜(๐นโ€˜๐‘)) ยท (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘((๐‘˜ + 1) โˆ’ ๐‘)))))
134117, 133sylibd 238 . . . . . . . . . 10 ((๐œ‘ โˆง ๐‘˜ โˆˆ ๐‘Š) โ†’ ((absโ€˜(๐นโ€˜๐‘˜)) โ‰ค ((absโ€˜(๐นโ€˜๐‘)) ยท (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘(๐‘˜ โˆ’ ๐‘))) โ†’ (if(๐ด โ‰ค 0, 0, ๐ด) ยท (absโ€˜(๐นโ€˜๐‘˜))) โ‰ค ((absโ€˜(๐นโ€˜๐‘)) ยท (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘((๐‘˜ + 1) โˆ’ ๐‘)))))
135 fveq2 6888 . . . . . . . . . . . . . . 15 (๐‘› = (๐‘˜ + 1) โ†’ (๐นโ€˜๐‘›) = (๐นโ€˜(๐‘˜ + 1)))
136135eleq1d 2819 . . . . . . . . . . . . . 14 (๐‘› = (๐‘˜ + 1) โ†’ ((๐นโ€˜๐‘›) โˆˆ โ„‚ โ†” (๐นโ€˜(๐‘˜ + 1)) โˆˆ โ„‚))
137 fveq2 6888 . . . . . . . . . . . . . . . . . 18 (๐‘˜ = ๐‘› โ†’ (๐นโ€˜๐‘˜) = (๐นโ€˜๐‘›))
138137eleq1d 2819 . . . . . . . . . . . . . . . . 17 (๐‘˜ = ๐‘› โ†’ ((๐นโ€˜๐‘˜) โˆˆ โ„‚ โ†” (๐นโ€˜๐‘›) โˆˆ โ„‚))
139138cbvralvw 3235 . . . . . . . . . . . . . . . 16 (โˆ€๐‘˜ โˆˆ ๐‘ (๐นโ€˜๐‘˜) โˆˆ โ„‚ โ†” โˆ€๐‘› โˆˆ ๐‘ (๐นโ€˜๐‘›) โˆˆ โ„‚)
14083, 139sylib 217 . . . . . . . . . . . . . . 15 (๐œ‘ โ†’ โˆ€๐‘› โˆˆ ๐‘ (๐นโ€˜๐‘›) โˆˆ โ„‚)
141140adantr 482 . . . . . . . . . . . . . 14 ((๐œ‘ โˆง ๐‘˜ โˆˆ ๐‘Š) โ†’ โˆ€๐‘› โˆˆ ๐‘ (๐นโ€˜๐‘›) โˆˆ โ„‚)
1421peano2uzs 12882 . . . . . . . . . . . . . . 15 (๐‘˜ โˆˆ ๐‘Š โ†’ (๐‘˜ + 1) โˆˆ ๐‘Š)
14329sselda 3981 . . . . . . . . . . . . . . 15 ((๐œ‘ โˆง (๐‘˜ + 1) โˆˆ ๐‘Š) โ†’ (๐‘˜ + 1) โˆˆ ๐‘)
144142, 143sylan2 594 . . . . . . . . . . . . . 14 ((๐œ‘ โˆง ๐‘˜ โˆˆ ๐‘Š) โ†’ (๐‘˜ + 1) โˆˆ ๐‘)
145136, 141, 144rspcdva 3613 . . . . . . . . . . . . 13 ((๐œ‘ โˆง ๐‘˜ โˆˆ ๐‘Š) โ†’ (๐นโ€˜(๐‘˜ + 1)) โˆˆ โ„‚)
146145abscld 15379 . . . . . . . . . . . 12 ((๐œ‘ โˆง ๐‘˜ โˆˆ ๐‘Š) โ†’ (absโ€˜(๐นโ€˜(๐‘˜ + 1))) โˆˆ โ„)
14717adantr 482 . . . . . . . . . . . . 13 ((๐œ‘ โˆง ๐‘˜ โˆˆ ๐‘Š) โ†’ ๐ด โˆˆ โ„)
148147, 111remulcld 11240 . . . . . . . . . . . 12 ((๐œ‘ โˆง ๐‘˜ โˆˆ ๐‘Š) โ†’ (๐ด ยท (absโ€˜(๐นโ€˜๐‘˜))) โˆˆ โ„)
14920, 111remulcld 11240 . . . . . . . . . . . 12 ((๐œ‘ โˆง ๐‘˜ โˆˆ ๐‘Š) โ†’ (if(๐ด โ‰ค 0, 0, ๐ด) ยท (absโ€˜(๐นโ€˜๐‘˜))) โˆˆ โ„)
150 cvgrat.7 . . . . . . . . . . . 12 ((๐œ‘ โˆง ๐‘˜ โˆˆ ๐‘Š) โ†’ (absโ€˜(๐นโ€˜(๐‘˜ + 1))) โ‰ค (๐ด ยท (absโ€˜(๐นโ€˜๐‘˜))))
15132absge0d 15387 . . . . . . . . . . . . 13 ((๐œ‘ โˆง ๐‘˜ โˆˆ ๐‘Š) โ†’ 0 โ‰ค (absโ€˜(๐นโ€˜๐‘˜)))
152 max1 13160 . . . . . . . . . . . . . . 15 ((๐ด โˆˆ โ„ โˆง 0 โˆˆ โ„) โ†’ ๐ด โ‰ค if(๐ด โ‰ค 0, 0, ๐ด))
15317, 16, 152sylancl 587 . . . . . . . . . . . . . 14 (๐œ‘ โ†’ ๐ด โ‰ค if(๐ด โ‰ค 0, 0, ๐ด))
154153adantr 482 . . . . . . . . . . . . 13 ((๐œ‘ โˆง ๐‘˜ โˆˆ ๐‘Š) โ†’ ๐ด โ‰ค if(๐ด โ‰ค 0, 0, ๐ด))
155147, 20, 111, 151, 154lemul1ad 12149 . . . . . . . . . . . 12 ((๐œ‘ โˆง ๐‘˜ โˆˆ ๐‘Š) โ†’ (๐ด ยท (absโ€˜(๐นโ€˜๐‘˜))) โ‰ค (if(๐ด โ‰ค 0, 0, ๐ด) ยท (absโ€˜(๐นโ€˜๐‘˜))))
156146, 148, 149, 150, 155letrd 11367 . . . . . . . . . . 11 ((๐œ‘ โˆง ๐‘˜ โˆˆ ๐‘Š) โ†’ (absโ€˜(๐นโ€˜(๐‘˜ + 1))) โ‰ค (if(๐ด โ‰ค 0, 0, ๐ด) ยท (absโ€˜(๐นโ€˜๐‘˜))))
157 peano2uz 12881 . . . . . . . . . . . . . . . 16 (๐‘˜ โˆˆ (โ„คโ‰ฅโ€˜๐‘) โ†’ (๐‘˜ + 1) โˆˆ (โ„คโ‰ฅโ€˜๐‘))
15822, 157syl 17 . . . . . . . . . . . . . . 15 ((๐œ‘ โˆง ๐‘˜ โˆˆ ๐‘Š) โ†’ (๐‘˜ + 1) โˆˆ (โ„คโ‰ฅโ€˜๐‘))
159 uznn0sub 12857 . . . . . . . . . . . . . . 15 ((๐‘˜ + 1) โˆˆ (โ„คโ‰ฅโ€˜๐‘) โ†’ ((๐‘˜ + 1) โˆ’ ๐‘) โˆˆ โ„•0)
160158, 159syl 17 . . . . . . . . . . . . . 14 ((๐œ‘ โˆง ๐‘˜ โˆˆ ๐‘Š) โ†’ ((๐‘˜ + 1) โˆ’ ๐‘) โˆˆ โ„•0)
16120, 160reexpcld 14124 . . . . . . . . . . . . 13 ((๐œ‘ โˆง ๐‘˜ โˆˆ ๐‘Š) โ†’ (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘((๐‘˜ + 1) โˆ’ ๐‘)) โˆˆ โ„)
162112, 161remulcld 11240 . . . . . . . . . . . 12 ((๐œ‘ โˆง ๐‘˜ โˆˆ ๐‘Š) โ†’ ((absโ€˜(๐นโ€˜๐‘)) ยท (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘((๐‘˜ + 1) โˆ’ ๐‘))) โˆˆ โ„)
163 letr 11304 . . . . . . . . . . . 12 (((absโ€˜(๐นโ€˜(๐‘˜ + 1))) โˆˆ โ„ โˆง (if(๐ด โ‰ค 0, 0, ๐ด) ยท (absโ€˜(๐นโ€˜๐‘˜))) โˆˆ โ„ โˆง ((absโ€˜(๐นโ€˜๐‘)) ยท (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘((๐‘˜ + 1) โˆ’ ๐‘))) โˆˆ โ„) โ†’ (((absโ€˜(๐นโ€˜(๐‘˜ + 1))) โ‰ค (if(๐ด โ‰ค 0, 0, ๐ด) ยท (absโ€˜(๐นโ€˜๐‘˜))) โˆง (if(๐ด โ‰ค 0, 0, ๐ด) ยท (absโ€˜(๐นโ€˜๐‘˜))) โ‰ค ((absโ€˜(๐นโ€˜๐‘)) ยท (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘((๐‘˜ + 1) โˆ’ ๐‘)))) โ†’ (absโ€˜(๐นโ€˜(๐‘˜ + 1))) โ‰ค ((absโ€˜(๐นโ€˜๐‘)) ยท (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘((๐‘˜ + 1) โˆ’ ๐‘)))))
164146, 149, 162, 163syl3anc 1372 . . . . . . . . . . 11 ((๐œ‘ โˆง ๐‘˜ โˆˆ ๐‘Š) โ†’ (((absโ€˜(๐นโ€˜(๐‘˜ + 1))) โ‰ค (if(๐ด โ‰ค 0, 0, ๐ด) ยท (absโ€˜(๐นโ€˜๐‘˜))) โˆง (if(๐ด โ‰ค 0, 0, ๐ด) ยท (absโ€˜(๐นโ€˜๐‘˜))) โ‰ค ((absโ€˜(๐นโ€˜๐‘)) ยท (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘((๐‘˜ + 1) โˆ’ ๐‘)))) โ†’ (absโ€˜(๐นโ€˜(๐‘˜ + 1))) โ‰ค ((absโ€˜(๐นโ€˜๐‘)) ยท (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘((๐‘˜ + 1) โˆ’ ๐‘)))))
165156, 164mpand 694 . . . . . . . . . 10 ((๐œ‘ โˆง ๐‘˜ โˆˆ ๐‘Š) โ†’ ((if(๐ด โ‰ค 0, 0, ๐ด) ยท (absโ€˜(๐นโ€˜๐‘˜))) โ‰ค ((absโ€˜(๐นโ€˜๐‘)) ยท (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘((๐‘˜ + 1) โˆ’ ๐‘))) โ†’ (absโ€˜(๐นโ€˜(๐‘˜ + 1))) โ‰ค ((absโ€˜(๐นโ€˜๐‘)) ยท (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘((๐‘˜ + 1) โˆ’ ๐‘)))))
166134, 165syld 47 . . . . . . . . 9 ((๐œ‘ โˆง ๐‘˜ โˆˆ ๐‘Š) โ†’ ((absโ€˜(๐นโ€˜๐‘˜)) โ‰ค ((absโ€˜(๐นโ€˜๐‘)) ยท (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘(๐‘˜ โˆ’ ๐‘))) โ†’ (absโ€˜(๐นโ€˜(๐‘˜ + 1))) โ‰ค ((absโ€˜(๐นโ€˜๐‘)) ยท (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘((๐‘˜ + 1) โˆ’ ๐‘)))))
16746, 166syldan 592 . . . . . . . 8 ((๐œ‘ โˆง ๐‘˜ โˆˆ (โ„คโ‰ฅโ€˜๐‘)) โ†’ ((absโ€˜(๐นโ€˜๐‘˜)) โ‰ค ((absโ€˜(๐นโ€˜๐‘)) ยท (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘(๐‘˜ โˆ’ ๐‘))) โ†’ (absโ€˜(๐นโ€˜(๐‘˜ + 1))) โ‰ค ((absโ€˜(๐นโ€˜๐‘)) ยท (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘((๐‘˜ + 1) โˆ’ ๐‘)))))
168167expcom 415 . . . . . . 7 (๐‘˜ โˆˆ (โ„คโ‰ฅโ€˜๐‘) โ†’ (๐œ‘ โ†’ ((absโ€˜(๐นโ€˜๐‘˜)) โ‰ค ((absโ€˜(๐นโ€˜๐‘)) ยท (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘(๐‘˜ โˆ’ ๐‘))) โ†’ (absโ€˜(๐นโ€˜(๐‘˜ + 1))) โ‰ค ((absโ€˜(๐นโ€˜๐‘)) ยท (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘((๐‘˜ + 1) โˆ’ ๐‘))))))
169168a2d 29 . . . . . 6 (๐‘˜ โˆˆ (โ„คโ‰ฅโ€˜๐‘) โ†’ ((๐œ‘ โ†’ (absโ€˜(๐นโ€˜๐‘˜)) โ‰ค ((absโ€˜(๐นโ€˜๐‘)) ยท (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘(๐‘˜ โˆ’ ๐‘)))) โ†’ (๐œ‘ โ†’ (absโ€˜(๐นโ€˜(๐‘˜ + 1))) โ‰ค ((absโ€˜(๐นโ€˜๐‘)) ยท (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘((๐‘˜ + 1) โˆ’ ๐‘))))))
17091, 95, 101, 95, 110, 169uzind4i 12890 . . . . 5 (๐‘˜ โˆˆ (โ„คโ‰ฅโ€˜๐‘) โ†’ (๐œ‘ โ†’ (absโ€˜(๐นโ€˜๐‘˜)) โ‰ค ((absโ€˜(๐นโ€˜๐‘)) ยท (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘(๐‘˜ โˆ’ ๐‘)))))
171170impcom 409 . . . 4 ((๐œ‘ โˆง ๐‘˜ โˆˆ (โ„คโ‰ฅโ€˜๐‘)) โ†’ (absโ€˜(๐นโ€˜๐‘˜)) โ‰ค ((absโ€˜(๐นโ€˜๐‘)) ยท (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘(๐‘˜ โˆ’ ๐‘))))
17247oveq2d 7420 . . . 4 ((๐œ‘ โˆง ๐‘˜ โˆˆ (โ„คโ‰ฅโ€˜๐‘)) โ†’ ((absโ€˜(๐นโ€˜๐‘)) ยท ((๐‘› โˆˆ ๐‘Š โ†ฆ (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘(๐‘› โˆ’ ๐‘)))โ€˜๐‘˜)) = ((absโ€˜(๐นโ€˜๐‘)) ยท (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘(๐‘˜ โˆ’ ๐‘))))
173171, 172breqtrrd 5175 . . 3 ((๐œ‘ โˆง ๐‘˜ โˆˆ (โ„คโ‰ฅโ€˜๐‘)) โ†’ (absโ€˜(๐นโ€˜๐‘˜)) โ‰ค ((absโ€˜(๐นโ€˜๐‘)) ยท ((๐‘› โˆˆ ๐‘Š โ†ฆ (if(๐ด โ‰ค 0, 0, ๐ด)โ†‘(๐‘› โˆ’ ๐‘)))โ€˜๐‘˜)))
1741, 9, 26, 32, 80, 85, 173cvgcmpce 15760 . 2 (๐œ‘ โ†’ seq๐‘( + , ๐น) โˆˆ dom โ‡ )
1753, 2, 31iserex 15599 . 2 (๐œ‘ โ†’ (seq๐‘€( + , ๐น) โˆˆ dom โ‡ โ†” seq๐‘( + , ๐น) โˆˆ dom โ‡ ))
176174, 175mpbird 257 1 (๐œ‘ โ†’ seq๐‘€( + , ๐น) โˆˆ dom โ‡ )
Colors of variables: wff setvar class
Syntax hints:   โ†’ wi 4   โ†” wb 205   โˆง wa 397   โˆง w3a 1088   = wceq 1542   โˆˆ wcel 2107  โˆ€wral 3062  Vcvv 3475   โŠ† wss 3947  ifcif 4527   class class class wbr 5147   โ†ฆ cmpt 5230  dom cdm 5675  โ€˜cfv 6540  (class class class)co 7404  โ„‚cc 11104  โ„cr 11105  0cc0 11106  1c1 11107   + caddc 11109   ยท cmul 11111   < clt 11244   โ‰ค cle 11245   โˆ’ cmin 11440   / cdiv 11867  โ„•0cn0 12468  โ„คcz 12554  โ„คโ‰ฅcuz 12818  seqcseq 13962  โ†‘cexp 14023   shift cshi 15009  abscabs 15177   โ‡ cli 15424
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1798  ax-4 1812  ax-5 1914  ax-6 1972  ax-7 2012  ax-8 2109  ax-9 2117  ax-10 2138  ax-11 2155  ax-12 2172  ax-ext 2704  ax-rep 5284  ax-sep 5298  ax-nul 5305  ax-pow 5362  ax-pr 5426  ax-un 7720  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
This theorem depends on definitions:  df-bi 206  df-an 398  df-or 847  df-3or 1089  df-3an 1090  df-tru 1545  df-fal 1555  df-ex 1783  df-nf 1787  df-sb 2069  df-mo 2535  df-eu 2564  df-clab 2711  df-cleq 2725  df-clel 2811  df-nfc 2886  df-ne 2942  df-nel 3048  df-ral 3063  df-rex 3072  df-rmo 3377  df-reu 3378  df-rab 3434  df-v 3477  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-op 4634  df-uni 4908  df-int 4950  df-iun 4998  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 7360  df-ov 7407  df-oprab 7408  df-mpo 7409  df-om 7851  df-1st 7970  df-2nd 7971  df-frecs 8261  df-wrecs 8292  df-recs 8366  df-rdg 8405  df-1o 8461  df-er 8699  df-pm 8819  df-en 8936  df-dom 8937  df-sdom 8938  df-fin 8939  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-n0 12469  df-z 12555  df-uz 12819  df-rp 12971  df-ico 13326  df-fz 13481  df-fzo 13624  df-fl 13753  df-seq 13963  df-exp 14024  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
This theorem is referenced by:  efcllem  16017  cvgdvgrat  43005
  Copyright terms: Public domain W3C validator