Metamath Proof Explorer


Theorem dchrisumlem3

Description: Lemma for dchrisum . Lemma 9.4.1 of Shapiro, p. 377. (Contributed by Mario Carneiro, 2-May-2016)

Ref Expression
Hypotheses rpvmasum.z โŠข ๐‘ = ( โ„ค/nโ„ค โ€˜ ๐‘ )
rpvmasum.l โŠข ๐ฟ = ( โ„คRHom โ€˜ ๐‘ )
rpvmasum.a โŠข ( ๐œ‘ โ†’ ๐‘ โˆˆ โ„• )
rpvmasum.g โŠข ๐บ = ( DChr โ€˜ ๐‘ )
rpvmasum.d โŠข ๐ท = ( Base โ€˜ ๐บ )
rpvmasum.1 โŠข 1 = ( 0g โ€˜ ๐บ )
dchrisum.b โŠข ( ๐œ‘ โ†’ ๐‘‹ โˆˆ ๐ท )
dchrisum.n1 โŠข ( ๐œ‘ โ†’ ๐‘‹ โ‰  1 )
dchrisum.2 โŠข ( ๐‘› = ๐‘ฅ โ†’ ๐ด = ๐ต )
dchrisum.3 โŠข ( ๐œ‘ โ†’ ๐‘€ โˆˆ โ„• )
dchrisum.4 โŠข ( ( ๐œ‘ โˆง ๐‘› โˆˆ โ„+ ) โ†’ ๐ด โˆˆ โ„ )
dchrisum.5 โŠข ( ( ๐œ‘ โˆง ( ๐‘› โˆˆ โ„+ โˆง ๐‘ฅ โˆˆ โ„+ ) โˆง ( ๐‘€ โ‰ค ๐‘› โˆง ๐‘› โ‰ค ๐‘ฅ ) ) โ†’ ๐ต โ‰ค ๐ด )
dchrisum.6 โŠข ( ๐œ‘ โ†’ ( ๐‘› โˆˆ โ„+ โ†ฆ ๐ด ) โ‡๐‘Ÿ 0 )
dchrisum.7 โŠข ๐น = ( ๐‘› โˆˆ โ„• โ†ฆ ( ( ๐‘‹ โ€˜ ( ๐ฟ โ€˜ ๐‘› ) ) ยท ๐ด ) )
dchrisum.9 โŠข ( ๐œ‘ โ†’ ๐‘… โˆˆ โ„ )
dchrisum.10 โŠข ( ๐œ‘ โ†’ โˆ€ ๐‘ข โˆˆ ( 0 ..^ ๐‘ ) ( abs โ€˜ ฮฃ ๐‘› โˆˆ ( 0 ..^ ๐‘ข ) ( ๐‘‹ โ€˜ ( ๐ฟ โ€˜ ๐‘› ) ) ) โ‰ค ๐‘… )
Assertion dchrisumlem3 ( ๐œ‘ โ†’ โˆƒ ๐‘ก โˆƒ ๐‘ โˆˆ ( 0 [,) +โˆž ) ( seq 1 ( + , ๐น ) โ‡ ๐‘ก โˆง โˆ€ ๐‘ฅ โˆˆ ( ๐‘€ [,) +โˆž ) ( abs โ€˜ ( ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ ๐‘ฅ ) ) โˆ’ ๐‘ก ) ) โ‰ค ( ๐‘ ยท ๐ต ) ) )

Proof

Step Hyp Ref Expression
1 rpvmasum.z โŠข ๐‘ = ( โ„ค/nโ„ค โ€˜ ๐‘ )
2 rpvmasum.l โŠข ๐ฟ = ( โ„คRHom โ€˜ ๐‘ )
3 rpvmasum.a โŠข ( ๐œ‘ โ†’ ๐‘ โˆˆ โ„• )
4 rpvmasum.g โŠข ๐บ = ( DChr โ€˜ ๐‘ )
5 rpvmasum.d โŠข ๐ท = ( Base โ€˜ ๐บ )
6 rpvmasum.1 โŠข 1 = ( 0g โ€˜ ๐บ )
7 dchrisum.b โŠข ( ๐œ‘ โ†’ ๐‘‹ โˆˆ ๐ท )
8 dchrisum.n1 โŠข ( ๐œ‘ โ†’ ๐‘‹ โ‰  1 )
9 dchrisum.2 โŠข ( ๐‘› = ๐‘ฅ โ†’ ๐ด = ๐ต )
10 dchrisum.3 โŠข ( ๐œ‘ โ†’ ๐‘€ โˆˆ โ„• )
11 dchrisum.4 โŠข ( ( ๐œ‘ โˆง ๐‘› โˆˆ โ„+ ) โ†’ ๐ด โˆˆ โ„ )
12 dchrisum.5 โŠข ( ( ๐œ‘ โˆง ( ๐‘› โˆˆ โ„+ โˆง ๐‘ฅ โˆˆ โ„+ ) โˆง ( ๐‘€ โ‰ค ๐‘› โˆง ๐‘› โ‰ค ๐‘ฅ ) ) โ†’ ๐ต โ‰ค ๐ด )
13 dchrisum.6 โŠข ( ๐œ‘ โ†’ ( ๐‘› โˆˆ โ„+ โ†ฆ ๐ด ) โ‡๐‘Ÿ 0 )
14 dchrisum.7 โŠข ๐น = ( ๐‘› โˆˆ โ„• โ†ฆ ( ( ๐‘‹ โ€˜ ( ๐ฟ โ€˜ ๐‘› ) ) ยท ๐ด ) )
15 dchrisum.9 โŠข ( ๐œ‘ โ†’ ๐‘… โˆˆ โ„ )
16 dchrisum.10 โŠข ( ๐œ‘ โ†’ โˆ€ ๐‘ข โˆˆ ( 0 ..^ ๐‘ ) ( abs โ€˜ ฮฃ ๐‘› โˆˆ ( 0 ..^ ๐‘ข ) ( ๐‘‹ โ€˜ ( ๐ฟ โ€˜ ๐‘› ) ) ) โ‰ค ๐‘… )
17 nnuz โŠข โ„• = ( โ„คโ‰ฅ โ€˜ 1 )
18 1zzd โŠข ( ๐œ‘ โ†’ 1 โˆˆ โ„ค )
19 simpr โŠข ( ( ๐œ‘ โˆง ๐‘– โˆˆ โ„• ) โ†’ ๐‘– โˆˆ โ„• )
20 7 adantr โŠข ( ( ๐œ‘ โˆง ๐‘– โˆˆ โ„• ) โ†’ ๐‘‹ โˆˆ ๐ท )
21 19 nnzd โŠข ( ( ๐œ‘ โˆง ๐‘– โˆˆ โ„• ) โ†’ ๐‘– โˆˆ โ„ค )
22 4 1 5 2 20 21 dchrzrhcl โŠข ( ( ๐œ‘ โˆง ๐‘– โˆˆ โ„• ) โ†’ ( ๐‘‹ โ€˜ ( ๐ฟ โ€˜ ๐‘– ) ) โˆˆ โ„‚ )
23 11 ralrimiva โŠข ( ๐œ‘ โ†’ โˆ€ ๐‘› โˆˆ โ„+ ๐ด โˆˆ โ„ )
24 nnrp โŠข ( ๐‘– โˆˆ โ„• โ†’ ๐‘– โˆˆ โ„+ )
25 nfcsb1v โŠข โ„ฒ ๐‘› โฆ‹ ๐‘– / ๐‘› โฆŒ ๐ด
26 25 nfel1 โŠข โ„ฒ ๐‘› โฆ‹ ๐‘– / ๐‘› โฆŒ ๐ด โˆˆ โ„
27 csbeq1a โŠข ( ๐‘› = ๐‘– โ†’ ๐ด = โฆ‹ ๐‘– / ๐‘› โฆŒ ๐ด )
28 27 eleq1d โŠข ( ๐‘› = ๐‘– โ†’ ( ๐ด โˆˆ โ„ โ†” โฆ‹ ๐‘– / ๐‘› โฆŒ ๐ด โˆˆ โ„ ) )
29 26 28 rspc โŠข ( ๐‘– โˆˆ โ„+ โ†’ ( โˆ€ ๐‘› โˆˆ โ„+ ๐ด โˆˆ โ„ โ†’ โฆ‹ ๐‘– / ๐‘› โฆŒ ๐ด โˆˆ โ„ ) )
30 29 impcom โŠข ( ( โˆ€ ๐‘› โˆˆ โ„+ ๐ด โˆˆ โ„ โˆง ๐‘– โˆˆ โ„+ ) โ†’ โฆ‹ ๐‘– / ๐‘› โฆŒ ๐ด โˆˆ โ„ )
31 23 24 30 syl2an โŠข ( ( ๐œ‘ โˆง ๐‘– โˆˆ โ„• ) โ†’ โฆ‹ ๐‘– / ๐‘› โฆŒ ๐ด โˆˆ โ„ )
32 31 recnd โŠข ( ( ๐œ‘ โˆง ๐‘– โˆˆ โ„• ) โ†’ โฆ‹ ๐‘– / ๐‘› โฆŒ ๐ด โˆˆ โ„‚ )
33 22 32 mulcld โŠข ( ( ๐œ‘ โˆง ๐‘– โˆˆ โ„• ) โ†’ ( ( ๐‘‹ โ€˜ ( ๐ฟ โ€˜ ๐‘– ) ) ยท โฆ‹ ๐‘– / ๐‘› โฆŒ ๐ด ) โˆˆ โ„‚ )
34 nfcv โŠข โ„ฒ ๐‘› ๐‘–
35 nfcv โŠข โ„ฒ ๐‘› ( ๐‘‹ โ€˜ ( ๐ฟ โ€˜ ๐‘– ) )
36 nfcv โŠข โ„ฒ ๐‘› ยท
37 35 36 25 nfov โŠข โ„ฒ ๐‘› ( ( ๐‘‹ โ€˜ ( ๐ฟ โ€˜ ๐‘– ) ) ยท โฆ‹ ๐‘– / ๐‘› โฆŒ ๐ด )
38 2fveq3 โŠข ( ๐‘› = ๐‘– โ†’ ( ๐‘‹ โ€˜ ( ๐ฟ โ€˜ ๐‘› ) ) = ( ๐‘‹ โ€˜ ( ๐ฟ โ€˜ ๐‘– ) ) )
39 38 27 oveq12d โŠข ( ๐‘› = ๐‘– โ†’ ( ( ๐‘‹ โ€˜ ( ๐ฟ โ€˜ ๐‘› ) ) ยท ๐ด ) = ( ( ๐‘‹ โ€˜ ( ๐ฟ โ€˜ ๐‘– ) ) ยท โฆ‹ ๐‘– / ๐‘› โฆŒ ๐ด ) )
40 34 37 39 14 fvmptf โŠข ( ( ๐‘– โˆˆ โ„• โˆง ( ( ๐‘‹ โ€˜ ( ๐ฟ โ€˜ ๐‘– ) ) ยท โฆ‹ ๐‘– / ๐‘› โฆŒ ๐ด ) โˆˆ โ„‚ ) โ†’ ( ๐น โ€˜ ๐‘– ) = ( ( ๐‘‹ โ€˜ ( ๐ฟ โ€˜ ๐‘– ) ) ยท โฆ‹ ๐‘– / ๐‘› โฆŒ ๐ด ) )
41 19 33 40 syl2anc โŠข ( ( ๐œ‘ โˆง ๐‘– โˆˆ โ„• ) โ†’ ( ๐น โ€˜ ๐‘– ) = ( ( ๐‘‹ โ€˜ ( ๐ฟ โ€˜ ๐‘– ) ) ยท โฆ‹ ๐‘– / ๐‘› โฆŒ ๐ด ) )
42 41 33 eqeltrd โŠข ( ( ๐œ‘ โˆง ๐‘– โˆˆ โ„• ) โ†’ ( ๐น โ€˜ ๐‘– ) โˆˆ โ„‚ )
43 17 18 42 serf โŠข ( ๐œ‘ โ†’ seq 1 ( + , ๐น ) : โ„• โŸถ โ„‚ )
44 43 ffvelcdmda โŠข ( ( ๐œ‘ โˆง ๐‘˜ โˆˆ โ„• ) โ†’ ( seq 1 ( + , ๐น ) โ€˜ ๐‘˜ ) โˆˆ โ„‚ )
45 11 recnd โŠข ( ( ๐œ‘ โˆง ๐‘› โˆˆ โ„+ ) โ†’ ๐ด โˆˆ โ„‚ )
46 45 ralrimiva โŠข ( ๐œ‘ โ†’ โˆ€ ๐‘› โˆˆ โ„+ ๐ด โˆˆ โ„‚ )
47 46 adantr โŠข ( ( ๐œ‘ โˆง ๐‘’ โˆˆ โ„+ ) โ†’ โˆ€ ๐‘› โˆˆ โ„+ ๐ด โˆˆ โ„‚ )
48 id โŠข ( ๐‘’ โˆˆ โ„+ โ†’ ๐‘’ โˆˆ โ„+ )
49 2re โŠข 2 โˆˆ โ„
50 remulcl โŠข ( ( 2 โˆˆ โ„ โˆง ๐‘… โˆˆ โ„ ) โ†’ ( 2 ยท ๐‘… ) โˆˆ โ„ )
51 49 15 50 sylancr โŠข ( ๐œ‘ โ†’ ( 2 ยท ๐‘… ) โˆˆ โ„ )
52 lbfzo0 โŠข ( 0 โˆˆ ( 0 ..^ ๐‘ ) โ†” ๐‘ โˆˆ โ„• )
53 3 52 sylibr โŠข ( ๐œ‘ โ†’ 0 โˆˆ ( 0 ..^ ๐‘ ) )
54 oveq2 โŠข ( ๐‘ข = 0 โ†’ ( 0 ..^ ๐‘ข ) = ( 0 ..^ 0 ) )
55 fzo0 โŠข ( 0 ..^ 0 ) = โˆ…
56 54 55 eqtrdi โŠข ( ๐‘ข = 0 โ†’ ( 0 ..^ ๐‘ข ) = โˆ… )
57 56 sumeq1d โŠข ( ๐‘ข = 0 โ†’ ฮฃ ๐‘› โˆˆ ( 0 ..^ ๐‘ข ) ( ๐‘‹ โ€˜ ( ๐ฟ โ€˜ ๐‘› ) ) = ฮฃ ๐‘› โˆˆ โˆ… ( ๐‘‹ โ€˜ ( ๐ฟ โ€˜ ๐‘› ) ) )
58 sum0 โŠข ฮฃ ๐‘› โˆˆ โˆ… ( ๐‘‹ โ€˜ ( ๐ฟ โ€˜ ๐‘› ) ) = 0
59 57 58 eqtrdi โŠข ( ๐‘ข = 0 โ†’ ฮฃ ๐‘› โˆˆ ( 0 ..^ ๐‘ข ) ( ๐‘‹ โ€˜ ( ๐ฟ โ€˜ ๐‘› ) ) = 0 )
60 59 abs00bd โŠข ( ๐‘ข = 0 โ†’ ( abs โ€˜ ฮฃ ๐‘› โˆˆ ( 0 ..^ ๐‘ข ) ( ๐‘‹ โ€˜ ( ๐ฟ โ€˜ ๐‘› ) ) ) = 0 )
61 60 breq1d โŠข ( ๐‘ข = 0 โ†’ ( ( abs โ€˜ ฮฃ ๐‘› โˆˆ ( 0 ..^ ๐‘ข ) ( ๐‘‹ โ€˜ ( ๐ฟ โ€˜ ๐‘› ) ) ) โ‰ค ๐‘… โ†” 0 โ‰ค ๐‘… ) )
62 61 rspcv โŠข ( 0 โˆˆ ( 0 ..^ ๐‘ ) โ†’ ( โˆ€ ๐‘ข โˆˆ ( 0 ..^ ๐‘ ) ( abs โ€˜ ฮฃ ๐‘› โˆˆ ( 0 ..^ ๐‘ข ) ( ๐‘‹ โ€˜ ( ๐ฟ โ€˜ ๐‘› ) ) ) โ‰ค ๐‘… โ†’ 0 โ‰ค ๐‘… ) )
63 53 16 62 sylc โŠข ( ๐œ‘ โ†’ 0 โ‰ค ๐‘… )
64 0le2 โŠข 0 โ‰ค 2
65 mulge0 โŠข ( ( ( 2 โˆˆ โ„ โˆง 0 โ‰ค 2 ) โˆง ( ๐‘… โˆˆ โ„ โˆง 0 โ‰ค ๐‘… ) ) โ†’ 0 โ‰ค ( 2 ยท ๐‘… ) )
66 49 64 65 mpanl12 โŠข ( ( ๐‘… โˆˆ โ„ โˆง 0 โ‰ค ๐‘… ) โ†’ 0 โ‰ค ( 2 ยท ๐‘… ) )
67 15 63 66 syl2anc โŠข ( ๐œ‘ โ†’ 0 โ‰ค ( 2 ยท ๐‘… ) )
68 51 67 ge0p1rpd โŠข ( ๐œ‘ โ†’ ( ( 2 ยท ๐‘… ) + 1 ) โˆˆ โ„+ )
69 rpdivcl โŠข ( ( ๐‘’ โˆˆ โ„+ โˆง ( ( 2 ยท ๐‘… ) + 1 ) โˆˆ โ„+ ) โ†’ ( ๐‘’ / ( ( 2 ยท ๐‘… ) + 1 ) ) โˆˆ โ„+ )
70 48 68 69 syl2anr โŠข ( ( ๐œ‘ โˆง ๐‘’ โˆˆ โ„+ ) โ†’ ( ๐‘’ / ( ( 2 ยท ๐‘… ) + 1 ) ) โˆˆ โ„+ )
71 13 adantr โŠข ( ( ๐œ‘ โˆง ๐‘’ โˆˆ โ„+ ) โ†’ ( ๐‘› โˆˆ โ„+ โ†ฆ ๐ด ) โ‡๐‘Ÿ 0 )
72 47 70 71 rlimi โŠข ( ( ๐œ‘ โˆง ๐‘’ โˆˆ โ„+ ) โ†’ โˆƒ ๐‘š โˆˆ โ„ โˆ€ ๐‘› โˆˆ โ„+ ( ๐‘š โ‰ค ๐‘› โ†’ ( abs โ€˜ ( ๐ด โˆ’ 0 ) ) < ( ๐‘’ / ( ( 2 ยท ๐‘… ) + 1 ) ) ) )
73 simpr โŠข ( ( ๐œ‘ โˆง ๐‘š โˆˆ โ„ ) โ†’ ๐‘š โˆˆ โ„ )
74 10 nnred โŠข ( ๐œ‘ โ†’ ๐‘€ โˆˆ โ„ )
75 74 adantr โŠข ( ( ๐œ‘ โˆง ๐‘š โˆˆ โ„ ) โ†’ ๐‘€ โˆˆ โ„ )
76 73 75 ifcld โŠข ( ( ๐œ‘ โˆง ๐‘š โˆˆ โ„ ) โ†’ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) โˆˆ โ„ )
77 0red โŠข ( ( ๐œ‘ โˆง ๐‘š โˆˆ โ„ ) โ†’ 0 โˆˆ โ„ )
78 10 nngt0d โŠข ( ๐œ‘ โ†’ 0 < ๐‘€ )
79 78 adantr โŠข ( ( ๐œ‘ โˆง ๐‘š โˆˆ โ„ ) โ†’ 0 < ๐‘€ )
80 max1 โŠข ( ( ๐‘€ โˆˆ โ„ โˆง ๐‘š โˆˆ โ„ ) โ†’ ๐‘€ โ‰ค if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) )
81 74 80 sylan โŠข ( ( ๐œ‘ โˆง ๐‘š โˆˆ โ„ ) โ†’ ๐‘€ โ‰ค if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) )
82 77 75 76 79 81 ltletrd โŠข ( ( ๐œ‘ โˆง ๐‘š โˆˆ โ„ ) โ†’ 0 < if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) )
83 76 82 elrpd โŠข ( ( ๐œ‘ โˆง ๐‘š โˆˆ โ„ ) โ†’ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) โˆˆ โ„+ )
84 83 adantlr โŠข ( ( ( ๐œ‘ โˆง ๐‘’ โˆˆ โ„+ ) โˆง ๐‘š โˆˆ โ„ ) โ†’ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) โˆˆ โ„+ )
85 nfv โŠข โ„ฒ ๐‘› ๐‘š โ‰ค if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ )
86 nfcv โŠข โ„ฒ ๐‘› abs
87 nfcsb1v โŠข โ„ฒ ๐‘› โฆ‹ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) / ๐‘› โฆŒ ๐ด
88 nfcv โŠข โ„ฒ ๐‘› โˆ’
89 nfcv โŠข โ„ฒ ๐‘› 0
90 87 88 89 nfov โŠข โ„ฒ ๐‘› ( โฆ‹ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) / ๐‘› โฆŒ ๐ด โˆ’ 0 )
91 86 90 nffv โŠข โ„ฒ ๐‘› ( abs โ€˜ ( โฆ‹ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) / ๐‘› โฆŒ ๐ด โˆ’ 0 ) )
92 nfcv โŠข โ„ฒ ๐‘› <
93 nfcv โŠข โ„ฒ ๐‘› ( ๐‘’ / ( ( 2 ยท ๐‘… ) + 1 ) )
94 91 92 93 nfbr โŠข โ„ฒ ๐‘› ( abs โ€˜ ( โฆ‹ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) / ๐‘› โฆŒ ๐ด โˆ’ 0 ) ) < ( ๐‘’ / ( ( 2 ยท ๐‘… ) + 1 ) )
95 85 94 nfim โŠข โ„ฒ ๐‘› ( ๐‘š โ‰ค if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) โ†’ ( abs โ€˜ ( โฆ‹ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) / ๐‘› โฆŒ ๐ด โˆ’ 0 ) ) < ( ๐‘’ / ( ( 2 ยท ๐‘… ) + 1 ) ) )
96 breq2 โŠข ( ๐‘› = if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) โ†’ ( ๐‘š โ‰ค ๐‘› โ†” ๐‘š โ‰ค if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) ) )
97 csbeq1a โŠข ( ๐‘› = if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) โ†’ ๐ด = โฆ‹ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) / ๐‘› โฆŒ ๐ด )
98 97 fvoveq1d โŠข ( ๐‘› = if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) โ†’ ( abs โ€˜ ( ๐ด โˆ’ 0 ) ) = ( abs โ€˜ ( โฆ‹ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) / ๐‘› โฆŒ ๐ด โˆ’ 0 ) ) )
99 98 breq1d โŠข ( ๐‘› = if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) โ†’ ( ( abs โ€˜ ( ๐ด โˆ’ 0 ) ) < ( ๐‘’ / ( ( 2 ยท ๐‘… ) + 1 ) ) โ†” ( abs โ€˜ ( โฆ‹ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) / ๐‘› โฆŒ ๐ด โˆ’ 0 ) ) < ( ๐‘’ / ( ( 2 ยท ๐‘… ) + 1 ) ) ) )
100 96 99 imbi12d โŠข ( ๐‘› = if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) โ†’ ( ( ๐‘š โ‰ค ๐‘› โ†’ ( abs โ€˜ ( ๐ด โˆ’ 0 ) ) < ( ๐‘’ / ( ( 2 ยท ๐‘… ) + 1 ) ) ) โ†” ( ๐‘š โ‰ค if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) โ†’ ( abs โ€˜ ( โฆ‹ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) / ๐‘› โฆŒ ๐ด โˆ’ 0 ) ) < ( ๐‘’ / ( ( 2 ยท ๐‘… ) + 1 ) ) ) ) )
101 95 100 rspc โŠข ( if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) โˆˆ โ„+ โ†’ ( โˆ€ ๐‘› โˆˆ โ„+ ( ๐‘š โ‰ค ๐‘› โ†’ ( abs โ€˜ ( ๐ด โˆ’ 0 ) ) < ( ๐‘’ / ( ( 2 ยท ๐‘… ) + 1 ) ) ) โ†’ ( ๐‘š โ‰ค if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) โ†’ ( abs โ€˜ ( โฆ‹ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) / ๐‘› โฆŒ ๐ด โˆ’ 0 ) ) < ( ๐‘’ / ( ( 2 ยท ๐‘… ) + 1 ) ) ) ) )
102 84 101 syl โŠข ( ( ( ๐œ‘ โˆง ๐‘’ โˆˆ โ„+ ) โˆง ๐‘š โˆˆ โ„ ) โ†’ ( โˆ€ ๐‘› โˆˆ โ„+ ( ๐‘š โ‰ค ๐‘› โ†’ ( abs โ€˜ ( ๐ด โˆ’ 0 ) ) < ( ๐‘’ / ( ( 2 ยท ๐‘… ) + 1 ) ) ) โ†’ ( ๐‘š โ‰ค if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) โ†’ ( abs โ€˜ ( โฆ‹ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) / ๐‘› โฆŒ ๐ด โˆ’ 0 ) ) < ( ๐‘’ / ( ( 2 ยท ๐‘… ) + 1 ) ) ) ) )
103 74 ad2antrr โŠข ( ( ( ๐œ‘ โˆง ๐‘’ โˆˆ โ„+ ) โˆง ๐‘š โˆˆ โ„ ) โ†’ ๐‘€ โˆˆ โ„ )
104 max2 โŠข ( ( ๐‘€ โˆˆ โ„ โˆง ๐‘š โˆˆ โ„ ) โ†’ ๐‘š โ‰ค if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) )
105 103 104 sylancom โŠข ( ( ( ๐œ‘ โˆง ๐‘’ โˆˆ โ„+ ) โˆง ๐‘š โˆˆ โ„ ) โ†’ ๐‘š โ‰ค if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) )
106 23 ad2antrr โŠข ( ( ( ๐œ‘ โˆง ๐‘’ โˆˆ โ„+ ) โˆง ๐‘š โˆˆ โ„ ) โ†’ โˆ€ ๐‘› โˆˆ โ„+ ๐ด โˆˆ โ„ )
107 87 nfel1 โŠข โ„ฒ ๐‘› โฆ‹ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) / ๐‘› โฆŒ ๐ด โˆˆ โ„
108 97 eleq1d โŠข ( ๐‘› = if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) โ†’ ( ๐ด โˆˆ โ„ โ†” โฆ‹ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) / ๐‘› โฆŒ ๐ด โˆˆ โ„ ) )
109 107 108 rspc โŠข ( if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) โˆˆ โ„+ โ†’ ( โˆ€ ๐‘› โˆˆ โ„+ ๐ด โˆˆ โ„ โ†’ โฆ‹ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) / ๐‘› โฆŒ ๐ด โˆˆ โ„ ) )
110 84 106 109 sylc โŠข ( ( ( ๐œ‘ โˆง ๐‘’ โˆˆ โ„+ ) โˆง ๐‘š โˆˆ โ„ ) โ†’ โฆ‹ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) / ๐‘› โฆŒ ๐ด โˆˆ โ„ )
111 110 recnd โŠข ( ( ( ๐œ‘ โˆง ๐‘’ โˆˆ โ„+ ) โˆง ๐‘š โˆˆ โ„ ) โ†’ โฆ‹ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) / ๐‘› โฆŒ ๐ด โˆˆ โ„‚ )
112 111 subid1d โŠข ( ( ( ๐œ‘ โˆง ๐‘’ โˆˆ โ„+ ) โˆง ๐‘š โˆˆ โ„ ) โ†’ ( โฆ‹ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) / ๐‘› โฆŒ ๐ด โˆ’ 0 ) = โฆ‹ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) / ๐‘› โฆŒ ๐ด )
113 112 fveq2d โŠข ( ( ( ๐œ‘ โˆง ๐‘’ โˆˆ โ„+ ) โˆง ๐‘š โˆˆ โ„ ) โ†’ ( abs โ€˜ ( โฆ‹ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) / ๐‘› โฆŒ ๐ด โˆ’ 0 ) ) = ( abs โ€˜ โฆ‹ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) / ๐‘› โฆŒ ๐ด ) )
114 76 adantlr โŠข ( ( ( ๐œ‘ โˆง ๐‘’ โˆˆ โ„+ ) โˆง ๐‘š โˆˆ โ„ ) โ†’ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) โˆˆ โ„ )
115 103 80 sylancom โŠข ( ( ( ๐œ‘ โˆง ๐‘’ โˆˆ โ„+ ) โˆง ๐‘š โˆˆ โ„ ) โ†’ ๐‘€ โ‰ค if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) )
116 elicopnf โŠข ( ๐‘€ โˆˆ โ„ โ†’ ( if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) โˆˆ ( ๐‘€ [,) +โˆž ) โ†” ( if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) โˆˆ โ„ โˆง ๐‘€ โ‰ค if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) ) ) )
117 103 116 syl โŠข ( ( ( ๐œ‘ โˆง ๐‘’ โˆˆ โ„+ ) โˆง ๐‘š โˆˆ โ„ ) โ†’ ( if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) โˆˆ ( ๐‘€ [,) +โˆž ) โ†” ( if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) โˆˆ โ„ โˆง ๐‘€ โ‰ค if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) ) ) )
118 114 115 117 mpbir2and โŠข ( ( ( ๐œ‘ โˆง ๐‘’ โˆˆ โ„+ ) โˆง ๐‘š โˆˆ โ„ ) โ†’ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) โˆˆ ( ๐‘€ [,) +โˆž ) )
119 3 ad2antrr โŠข ( ( ( ๐œ‘ โˆง ๐‘’ โˆˆ โ„+ ) โˆง ๐‘š โˆˆ โ„ ) โ†’ ๐‘ โˆˆ โ„• )
120 7 ad2antrr โŠข ( ( ( ๐œ‘ โˆง ๐‘’ โˆˆ โ„+ ) โˆง ๐‘š โˆˆ โ„ ) โ†’ ๐‘‹ โˆˆ ๐ท )
121 8 ad2antrr โŠข ( ( ( ๐œ‘ โˆง ๐‘’ โˆˆ โ„+ ) โˆง ๐‘š โˆˆ โ„ ) โ†’ ๐‘‹ โ‰  1 )
122 10 ad2antrr โŠข ( ( ( ๐œ‘ โˆง ๐‘’ โˆˆ โ„+ ) โˆง ๐‘š โˆˆ โ„ ) โ†’ ๐‘€ โˆˆ โ„• )
123 11 ad4ant14 โŠข ( ( ( ( ๐œ‘ โˆง ๐‘’ โˆˆ โ„+ ) โˆง ๐‘š โˆˆ โ„ ) โˆง ๐‘› โˆˆ โ„+ ) โ†’ ๐ด โˆˆ โ„ )
124 simpll โŠข ( ( ( ๐œ‘ โˆง ๐‘’ โˆˆ โ„+ ) โˆง ๐‘š โˆˆ โ„ ) โ†’ ๐œ‘ )
125 124 12 syl3an1 โŠข ( ( ( ( ๐œ‘ โˆง ๐‘’ โˆˆ โ„+ ) โˆง ๐‘š โˆˆ โ„ ) โˆง ( ๐‘› โˆˆ โ„+ โˆง ๐‘ฅ โˆˆ โ„+ ) โˆง ( ๐‘€ โ‰ค ๐‘› โˆง ๐‘› โ‰ค ๐‘ฅ ) ) โ†’ ๐ต โ‰ค ๐ด )
126 13 ad2antrr โŠข ( ( ( ๐œ‘ โˆง ๐‘’ โˆˆ โ„+ ) โˆง ๐‘š โˆˆ โ„ ) โ†’ ( ๐‘› โˆˆ โ„+ โ†ฆ ๐ด ) โ‡๐‘Ÿ 0 )
127 1 2 119 4 5 6 120 121 9 122 123 125 126 14 dchrisumlema โŠข ( ( ( ๐œ‘ โˆง ๐‘’ โˆˆ โ„+ ) โˆง ๐‘š โˆˆ โ„ ) โ†’ ( ( if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) โˆˆ โ„+ โ†’ โฆ‹ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) / ๐‘› โฆŒ ๐ด โˆˆ โ„ ) โˆง ( if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) โˆˆ ( ๐‘€ [,) +โˆž ) โ†’ 0 โ‰ค โฆ‹ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) / ๐‘› โฆŒ ๐ด ) ) )
128 127 simprd โŠข ( ( ( ๐œ‘ โˆง ๐‘’ โˆˆ โ„+ ) โˆง ๐‘š โˆˆ โ„ ) โ†’ ( if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) โˆˆ ( ๐‘€ [,) +โˆž ) โ†’ 0 โ‰ค โฆ‹ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) / ๐‘› โฆŒ ๐ด ) )
129 118 128 mpd โŠข ( ( ( ๐œ‘ โˆง ๐‘’ โˆˆ โ„+ ) โˆง ๐‘š โˆˆ โ„ ) โ†’ 0 โ‰ค โฆ‹ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) / ๐‘› โฆŒ ๐ด )
130 110 129 absidd โŠข ( ( ( ๐œ‘ โˆง ๐‘’ โˆˆ โ„+ ) โˆง ๐‘š โˆˆ โ„ ) โ†’ ( abs โ€˜ โฆ‹ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) / ๐‘› โฆŒ ๐ด ) = โฆ‹ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) / ๐‘› โฆŒ ๐ด )
131 113 130 eqtrd โŠข ( ( ( ๐œ‘ โˆง ๐‘’ โˆˆ โ„+ ) โˆง ๐‘š โˆˆ โ„ ) โ†’ ( abs โ€˜ ( โฆ‹ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) / ๐‘› โฆŒ ๐ด โˆ’ 0 ) ) = โฆ‹ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) / ๐‘› โฆŒ ๐ด )
132 131 breq1d โŠข ( ( ( ๐œ‘ โˆง ๐‘’ โˆˆ โ„+ ) โˆง ๐‘š โˆˆ โ„ ) โ†’ ( ( abs โ€˜ ( โฆ‹ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) / ๐‘› โฆŒ ๐ด โˆ’ 0 ) ) < ( ๐‘’ / ( ( 2 ยท ๐‘… ) + 1 ) ) โ†” โฆ‹ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) / ๐‘› โฆŒ ๐ด < ( ๐‘’ / ( ( 2 ยท ๐‘… ) + 1 ) ) ) )
133 rpre โŠข ( ๐‘’ โˆˆ โ„+ โ†’ ๐‘’ โˆˆ โ„ )
134 133 ad2antlr โŠข ( ( ( ๐œ‘ โˆง ๐‘’ โˆˆ โ„+ ) โˆง ๐‘š โˆˆ โ„ ) โ†’ ๐‘’ โˆˆ โ„ )
135 68 ad2antrr โŠข ( ( ( ๐œ‘ โˆง ๐‘’ โˆˆ โ„+ ) โˆง ๐‘š โˆˆ โ„ ) โ†’ ( ( 2 ยท ๐‘… ) + 1 ) โˆˆ โ„+ )
136 110 134 135 ltmuldiv2d โŠข ( ( ( ๐œ‘ โˆง ๐‘’ โˆˆ โ„+ ) โˆง ๐‘š โˆˆ โ„ ) โ†’ ( ( ( ( 2 ยท ๐‘… ) + 1 ) ยท โฆ‹ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) / ๐‘› โฆŒ ๐ด ) < ๐‘’ โ†” โฆ‹ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) / ๐‘› โฆŒ ๐ด < ( ๐‘’ / ( ( 2 ยท ๐‘… ) + 1 ) ) ) )
137 132 136 bitr4d โŠข ( ( ( ๐œ‘ โˆง ๐‘’ โˆˆ โ„+ ) โˆง ๐‘š โˆˆ โ„ ) โ†’ ( ( abs โ€˜ ( โฆ‹ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) / ๐‘› โฆŒ ๐ด โˆ’ 0 ) ) < ( ๐‘’ / ( ( 2 ยท ๐‘… ) + 1 ) ) โ†” ( ( ( 2 ยท ๐‘… ) + 1 ) ยท โฆ‹ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) / ๐‘› โฆŒ ๐ด ) < ๐‘’ ) )
138 51 ad2antrr โŠข ( ( ( ๐œ‘ โˆง ๐‘’ โˆˆ โ„+ ) โˆง ๐‘š โˆˆ โ„ ) โ†’ ( 2 ยท ๐‘… ) โˆˆ โ„ )
139 135 rpred โŠข ( ( ( ๐œ‘ โˆง ๐‘’ โˆˆ โ„+ ) โˆง ๐‘š โˆˆ โ„ ) โ†’ ( ( 2 ยท ๐‘… ) + 1 ) โˆˆ โ„ )
140 138 lep1d โŠข ( ( ( ๐œ‘ โˆง ๐‘’ โˆˆ โ„+ ) โˆง ๐‘š โˆˆ โ„ ) โ†’ ( 2 ยท ๐‘… ) โ‰ค ( ( 2 ยท ๐‘… ) + 1 ) )
141 138 139 110 129 140 lemul1ad โŠข ( ( ( ๐œ‘ โˆง ๐‘’ โˆˆ โ„+ ) โˆง ๐‘š โˆˆ โ„ ) โ†’ ( ( 2 ยท ๐‘… ) ยท โฆ‹ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) / ๐‘› โฆŒ ๐ด ) โ‰ค ( ( ( 2 ยท ๐‘… ) + 1 ) ยท โฆ‹ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) / ๐‘› โฆŒ ๐ด ) )
142 138 110 remulcld โŠข ( ( ( ๐œ‘ โˆง ๐‘’ โˆˆ โ„+ ) โˆง ๐‘š โˆˆ โ„ ) โ†’ ( ( 2 ยท ๐‘… ) ยท โฆ‹ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) / ๐‘› โฆŒ ๐ด ) โˆˆ โ„ )
143 139 110 remulcld โŠข ( ( ( ๐œ‘ โˆง ๐‘’ โˆˆ โ„+ ) โˆง ๐‘š โˆˆ โ„ ) โ†’ ( ( ( 2 ยท ๐‘… ) + 1 ) ยท โฆ‹ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) / ๐‘› โฆŒ ๐ด ) โˆˆ โ„ )
144 lelttr โŠข ( ( ( ( 2 ยท ๐‘… ) ยท โฆ‹ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) / ๐‘› โฆŒ ๐ด ) โˆˆ โ„ โˆง ( ( ( 2 ยท ๐‘… ) + 1 ) ยท โฆ‹ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) / ๐‘› โฆŒ ๐ด ) โˆˆ โ„ โˆง ๐‘’ โˆˆ โ„ ) โ†’ ( ( ( ( 2 ยท ๐‘… ) ยท โฆ‹ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) / ๐‘› โฆŒ ๐ด ) โ‰ค ( ( ( 2 ยท ๐‘… ) + 1 ) ยท โฆ‹ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) / ๐‘› โฆŒ ๐ด ) โˆง ( ( ( 2 ยท ๐‘… ) + 1 ) ยท โฆ‹ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) / ๐‘› โฆŒ ๐ด ) < ๐‘’ ) โ†’ ( ( 2 ยท ๐‘… ) ยท โฆ‹ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) / ๐‘› โฆŒ ๐ด ) < ๐‘’ ) )
145 142 143 134 144 syl3anc โŠข ( ( ( ๐œ‘ โˆง ๐‘’ โˆˆ โ„+ ) โˆง ๐‘š โˆˆ โ„ ) โ†’ ( ( ( ( 2 ยท ๐‘… ) ยท โฆ‹ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) / ๐‘› โฆŒ ๐ด ) โ‰ค ( ( ( 2 ยท ๐‘… ) + 1 ) ยท โฆ‹ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) / ๐‘› โฆŒ ๐ด ) โˆง ( ( ( 2 ยท ๐‘… ) + 1 ) ยท โฆ‹ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) / ๐‘› โฆŒ ๐ด ) < ๐‘’ ) โ†’ ( ( 2 ยท ๐‘… ) ยท โฆ‹ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) / ๐‘› โฆŒ ๐ด ) < ๐‘’ ) )
146 141 145 mpand โŠข ( ( ( ๐œ‘ โˆง ๐‘’ โˆˆ โ„+ ) โˆง ๐‘š โˆˆ โ„ ) โ†’ ( ( ( ( 2 ยท ๐‘… ) + 1 ) ยท โฆ‹ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) / ๐‘› โฆŒ ๐ด ) < ๐‘’ โ†’ ( ( 2 ยท ๐‘… ) ยท โฆ‹ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) / ๐‘› โฆŒ ๐ด ) < ๐‘’ ) )
147 137 146 sylbid โŠข ( ( ( ๐œ‘ โˆง ๐‘’ โˆˆ โ„+ ) โˆง ๐‘š โˆˆ โ„ ) โ†’ ( ( abs โ€˜ ( โฆ‹ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) / ๐‘› โฆŒ ๐ด โˆ’ 0 ) ) < ( ๐‘’ / ( ( 2 ยท ๐‘… ) + 1 ) ) โ†’ ( ( 2 ยท ๐‘… ) ยท โฆ‹ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) / ๐‘› โฆŒ ๐ด ) < ๐‘’ ) )
148 1red โŠข ( ( ๐œ‘ โˆง ๐‘š โˆˆ โ„ ) โ†’ 1 โˆˆ โ„ )
149 10 adantr โŠข ( ( ๐œ‘ โˆง ๐‘š โˆˆ โ„ ) โ†’ ๐‘€ โˆˆ โ„• )
150 149 nnge1d โŠข ( ( ๐œ‘ โˆง ๐‘š โˆˆ โ„ ) โ†’ 1 โ‰ค ๐‘€ )
151 148 75 76 150 81 letrd โŠข ( ( ๐œ‘ โˆง ๐‘š โˆˆ โ„ ) โ†’ 1 โ‰ค if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) )
152 flge1nn โŠข ( ( if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) โˆˆ โ„ โˆง 1 โ‰ค if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) ) โ†’ ( โŒŠ โ€˜ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) ) โˆˆ โ„• )
153 76 151 152 syl2anc โŠข ( ( ๐œ‘ โˆง ๐‘š โˆˆ โ„ ) โ†’ ( โŒŠ โ€˜ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) ) โˆˆ โ„• )
154 153 adantlr โŠข ( ( ( ๐œ‘ โˆง ๐‘’ โˆˆ โ„+ ) โˆง ๐‘š โˆˆ โ„ ) โ†’ ( โŒŠ โ€˜ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) ) โˆˆ โ„• )
155 3 ad2antrr โŠข ( ( ( ๐œ‘ โˆง ๐‘š โˆˆ โ„ ) โˆง ๐‘˜ โˆˆ ( โ„คโ‰ฅ โ€˜ ( โŒŠ โ€˜ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) ) ) ) โ†’ ๐‘ โˆˆ โ„• )
156 7 ad2antrr โŠข ( ( ( ๐œ‘ โˆง ๐‘š โˆˆ โ„ ) โˆง ๐‘˜ โˆˆ ( โ„คโ‰ฅ โ€˜ ( โŒŠ โ€˜ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) ) ) ) โ†’ ๐‘‹ โˆˆ ๐ท )
157 8 ad2antrr โŠข ( ( ( ๐œ‘ โˆง ๐‘š โˆˆ โ„ ) โˆง ๐‘˜ โˆˆ ( โ„คโ‰ฅ โ€˜ ( โŒŠ โ€˜ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) ) ) ) โ†’ ๐‘‹ โ‰  1 )
158 10 ad2antrr โŠข ( ( ( ๐œ‘ โˆง ๐‘š โˆˆ โ„ ) โˆง ๐‘˜ โˆˆ ( โ„คโ‰ฅ โ€˜ ( โŒŠ โ€˜ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) ) ) ) โ†’ ๐‘€ โˆˆ โ„• )
159 11 ad4ant14 โŠข ( ( ( ( ๐œ‘ โˆง ๐‘š โˆˆ โ„ ) โˆง ๐‘˜ โˆˆ ( โ„คโ‰ฅ โ€˜ ( โŒŠ โ€˜ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) ) ) ) โˆง ๐‘› โˆˆ โ„+ ) โ†’ ๐ด โˆˆ โ„ )
160 12 3adant1r โŠข ( ( ( ๐œ‘ โˆง ๐‘š โˆˆ โ„ ) โˆง ( ๐‘› โˆˆ โ„+ โˆง ๐‘ฅ โˆˆ โ„+ ) โˆง ( ๐‘€ โ‰ค ๐‘› โˆง ๐‘› โ‰ค ๐‘ฅ ) ) โ†’ ๐ต โ‰ค ๐ด )
161 160 3adant1r โŠข ( ( ( ( ๐œ‘ โˆง ๐‘š โˆˆ โ„ ) โˆง ๐‘˜ โˆˆ ( โ„คโ‰ฅ โ€˜ ( โŒŠ โ€˜ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) ) ) ) โˆง ( ๐‘› โˆˆ โ„+ โˆง ๐‘ฅ โˆˆ โ„+ ) โˆง ( ๐‘€ โ‰ค ๐‘› โˆง ๐‘› โ‰ค ๐‘ฅ ) ) โ†’ ๐ต โ‰ค ๐ด )
162 13 ad2antrr โŠข ( ( ( ๐œ‘ โˆง ๐‘š โˆˆ โ„ ) โˆง ๐‘˜ โˆˆ ( โ„คโ‰ฅ โ€˜ ( โŒŠ โ€˜ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) ) ) ) โ†’ ( ๐‘› โˆˆ โ„+ โ†ฆ ๐ด ) โ‡๐‘Ÿ 0 )
163 15 ad2antrr โŠข ( ( ( ๐œ‘ โˆง ๐‘š โˆˆ โ„ ) โˆง ๐‘˜ โˆˆ ( โ„คโ‰ฅ โ€˜ ( โŒŠ โ€˜ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) ) ) ) โ†’ ๐‘… โˆˆ โ„ )
164 16 ad2antrr โŠข ( ( ( ๐œ‘ โˆง ๐‘š โˆˆ โ„ ) โˆง ๐‘˜ โˆˆ ( โ„คโ‰ฅ โ€˜ ( โŒŠ โ€˜ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) ) ) ) โ†’ โˆ€ ๐‘ข โˆˆ ( 0 ..^ ๐‘ ) ( abs โ€˜ ฮฃ ๐‘› โˆˆ ( 0 ..^ ๐‘ข ) ( ๐‘‹ โ€˜ ( ๐ฟ โ€˜ ๐‘› ) ) ) โ‰ค ๐‘… )
165 83 adantr โŠข ( ( ( ๐œ‘ โˆง ๐‘š โˆˆ โ„ ) โˆง ๐‘˜ โˆˆ ( โ„คโ‰ฅ โ€˜ ( โŒŠ โ€˜ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) ) ) ) โ†’ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) โˆˆ โ„+ )
166 81 adantr โŠข ( ( ( ๐œ‘ โˆง ๐‘š โˆˆ โ„ ) โˆง ๐‘˜ โˆˆ ( โ„คโ‰ฅ โ€˜ ( โŒŠ โ€˜ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) ) ) ) โ†’ ๐‘€ โ‰ค if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) )
167 76 adantr โŠข ( ( ( ๐œ‘ โˆง ๐‘š โˆˆ โ„ ) โˆง ๐‘˜ โˆˆ ( โ„คโ‰ฅ โ€˜ ( โŒŠ โ€˜ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) ) ) ) โ†’ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) โˆˆ โ„ )
168 fllep1 โŠข ( if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) โˆˆ โ„ โ†’ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) โ‰ค ( ( โŒŠ โ€˜ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) ) + 1 ) )
169 167 168 syl โŠข ( ( ( ๐œ‘ โˆง ๐‘š โˆˆ โ„ ) โˆง ๐‘˜ โˆˆ ( โ„คโ‰ฅ โ€˜ ( โŒŠ โ€˜ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) ) ) ) โ†’ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) โ‰ค ( ( โŒŠ โ€˜ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) ) + 1 ) )
170 153 adantr โŠข ( ( ( ๐œ‘ โˆง ๐‘š โˆˆ โ„ ) โˆง ๐‘˜ โˆˆ ( โ„คโ‰ฅ โ€˜ ( โŒŠ โ€˜ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) ) ) ) โ†’ ( โŒŠ โ€˜ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) ) โˆˆ โ„• )
171 simpr โŠข ( ( ( ๐œ‘ โˆง ๐‘š โˆˆ โ„ ) โˆง ๐‘˜ โˆˆ ( โ„คโ‰ฅ โ€˜ ( โŒŠ โ€˜ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) ) ) ) โ†’ ๐‘˜ โˆˆ ( โ„คโ‰ฅ โ€˜ ( โŒŠ โ€˜ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) ) ) )
172 1 2 155 4 5 6 156 157 9 158 159 161 162 14 163 164 165 166 169 170 171 dchrisumlem2 โŠข ( ( ( ๐œ‘ โˆง ๐‘š โˆˆ โ„ ) โˆง ๐‘˜ โˆˆ ( โ„คโ‰ฅ โ€˜ ( โŒŠ โ€˜ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) ) ) ) โ†’ ( abs โ€˜ ( ( seq 1 ( + , ๐น ) โ€˜ ๐‘˜ ) โˆ’ ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) ) ) ) ) โ‰ค ( ( 2 ยท ๐‘… ) ยท โฆ‹ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) / ๐‘› โฆŒ ๐ด ) )
173 172 adantllr โŠข ( ( ( ( ๐œ‘ โˆง ๐‘’ โˆˆ โ„+ ) โˆง ๐‘š โˆˆ โ„ ) โˆง ๐‘˜ โˆˆ ( โ„คโ‰ฅ โ€˜ ( โŒŠ โ€˜ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) ) ) ) โ†’ ( abs โ€˜ ( ( seq 1 ( + , ๐น ) โ€˜ ๐‘˜ ) โˆ’ ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) ) ) ) ) โ‰ค ( ( 2 ยท ๐‘… ) ยท โฆ‹ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) / ๐‘› โฆŒ ๐ด ) )
174 43 ad3antrrr โŠข ( ( ( ( ๐œ‘ โˆง ๐‘’ โˆˆ โ„+ ) โˆง ๐‘š โˆˆ โ„ ) โˆง ๐‘˜ โˆˆ ( โ„คโ‰ฅ โ€˜ ( โŒŠ โ€˜ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) ) ) ) โ†’ seq 1 ( + , ๐น ) : โ„• โŸถ โ„‚ )
175 eluznn โŠข ( ( ( โŒŠ โ€˜ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) ) โˆˆ โ„• โˆง ๐‘˜ โˆˆ ( โ„คโ‰ฅ โ€˜ ( โŒŠ โ€˜ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) ) ) ) โ†’ ๐‘˜ โˆˆ โ„• )
176 154 175 sylan โŠข ( ( ( ( ๐œ‘ โˆง ๐‘’ โˆˆ โ„+ ) โˆง ๐‘š โˆˆ โ„ ) โˆง ๐‘˜ โˆˆ ( โ„คโ‰ฅ โ€˜ ( โŒŠ โ€˜ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) ) ) ) โ†’ ๐‘˜ โˆˆ โ„• )
177 174 176 ffvelcdmd โŠข ( ( ( ( ๐œ‘ โˆง ๐‘’ โˆˆ โ„+ ) โˆง ๐‘š โˆˆ โ„ ) โˆง ๐‘˜ โˆˆ ( โ„คโ‰ฅ โ€˜ ( โŒŠ โ€˜ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) ) ) ) โ†’ ( seq 1 ( + , ๐น ) โ€˜ ๐‘˜ ) โˆˆ โ„‚ )
178 154 adantr โŠข ( ( ( ( ๐œ‘ โˆง ๐‘’ โˆˆ โ„+ ) โˆง ๐‘š โˆˆ โ„ ) โˆง ๐‘˜ โˆˆ ( โ„คโ‰ฅ โ€˜ ( โŒŠ โ€˜ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) ) ) ) โ†’ ( โŒŠ โ€˜ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) ) โˆˆ โ„• )
179 174 178 ffvelcdmd โŠข ( ( ( ( ๐œ‘ โˆง ๐‘’ โˆˆ โ„+ ) โˆง ๐‘š โˆˆ โ„ ) โˆง ๐‘˜ โˆˆ ( โ„คโ‰ฅ โ€˜ ( โŒŠ โ€˜ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) ) ) ) โ†’ ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) ) ) โˆˆ โ„‚ )
180 177 179 subcld โŠข ( ( ( ( ๐œ‘ โˆง ๐‘’ โˆˆ โ„+ ) โˆง ๐‘š โˆˆ โ„ ) โˆง ๐‘˜ โˆˆ ( โ„คโ‰ฅ โ€˜ ( โŒŠ โ€˜ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) ) ) ) โ†’ ( ( seq 1 ( + , ๐น ) โ€˜ ๐‘˜ ) โˆ’ ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) ) ) ) โˆˆ โ„‚ )
181 180 abscld โŠข ( ( ( ( ๐œ‘ โˆง ๐‘’ โˆˆ โ„+ ) โˆง ๐‘š โˆˆ โ„ ) โˆง ๐‘˜ โˆˆ ( โ„คโ‰ฅ โ€˜ ( โŒŠ โ€˜ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) ) ) ) โ†’ ( abs โ€˜ ( ( seq 1 ( + , ๐น ) โ€˜ ๐‘˜ ) โˆ’ ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) ) ) ) ) โˆˆ โ„ )
182 142 adantr โŠข ( ( ( ( ๐œ‘ โˆง ๐‘’ โˆˆ โ„+ ) โˆง ๐‘š โˆˆ โ„ ) โˆง ๐‘˜ โˆˆ ( โ„คโ‰ฅ โ€˜ ( โŒŠ โ€˜ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) ) ) ) โ†’ ( ( 2 ยท ๐‘… ) ยท โฆ‹ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) / ๐‘› โฆŒ ๐ด ) โˆˆ โ„ )
183 134 adantr โŠข ( ( ( ( ๐œ‘ โˆง ๐‘’ โˆˆ โ„+ ) โˆง ๐‘š โˆˆ โ„ ) โˆง ๐‘˜ โˆˆ ( โ„คโ‰ฅ โ€˜ ( โŒŠ โ€˜ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) ) ) ) โ†’ ๐‘’ โˆˆ โ„ )
184 lelttr โŠข ( ( ( abs โ€˜ ( ( seq 1 ( + , ๐น ) โ€˜ ๐‘˜ ) โˆ’ ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) ) ) ) ) โˆˆ โ„ โˆง ( ( 2 ยท ๐‘… ) ยท โฆ‹ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) / ๐‘› โฆŒ ๐ด ) โˆˆ โ„ โˆง ๐‘’ โˆˆ โ„ ) โ†’ ( ( ( abs โ€˜ ( ( seq 1 ( + , ๐น ) โ€˜ ๐‘˜ ) โˆ’ ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) ) ) ) ) โ‰ค ( ( 2 ยท ๐‘… ) ยท โฆ‹ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) / ๐‘› โฆŒ ๐ด ) โˆง ( ( 2 ยท ๐‘… ) ยท โฆ‹ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) / ๐‘› โฆŒ ๐ด ) < ๐‘’ ) โ†’ ( abs โ€˜ ( ( seq 1 ( + , ๐น ) โ€˜ ๐‘˜ ) โˆ’ ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) ) ) ) ) < ๐‘’ ) )
185 181 182 183 184 syl3anc โŠข ( ( ( ( ๐œ‘ โˆง ๐‘’ โˆˆ โ„+ ) โˆง ๐‘š โˆˆ โ„ ) โˆง ๐‘˜ โˆˆ ( โ„คโ‰ฅ โ€˜ ( โŒŠ โ€˜ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) ) ) ) โ†’ ( ( ( abs โ€˜ ( ( seq 1 ( + , ๐น ) โ€˜ ๐‘˜ ) โˆ’ ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) ) ) ) ) โ‰ค ( ( 2 ยท ๐‘… ) ยท โฆ‹ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) / ๐‘› โฆŒ ๐ด ) โˆง ( ( 2 ยท ๐‘… ) ยท โฆ‹ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) / ๐‘› โฆŒ ๐ด ) < ๐‘’ ) โ†’ ( abs โ€˜ ( ( seq 1 ( + , ๐น ) โ€˜ ๐‘˜ ) โˆ’ ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) ) ) ) ) < ๐‘’ ) )
186 173 185 mpand โŠข ( ( ( ( ๐œ‘ โˆง ๐‘’ โˆˆ โ„+ ) โˆง ๐‘š โˆˆ โ„ ) โˆง ๐‘˜ โˆˆ ( โ„คโ‰ฅ โ€˜ ( โŒŠ โ€˜ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) ) ) ) โ†’ ( ( ( 2 ยท ๐‘… ) ยท โฆ‹ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) / ๐‘› โฆŒ ๐ด ) < ๐‘’ โ†’ ( abs โ€˜ ( ( seq 1 ( + , ๐น ) โ€˜ ๐‘˜ ) โˆ’ ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) ) ) ) ) < ๐‘’ ) )
187 186 ralrimdva โŠข ( ( ( ๐œ‘ โˆง ๐‘’ โˆˆ โ„+ ) โˆง ๐‘š โˆˆ โ„ ) โ†’ ( ( ( 2 ยท ๐‘… ) ยท โฆ‹ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) / ๐‘› โฆŒ ๐ด ) < ๐‘’ โ†’ โˆ€ ๐‘˜ โˆˆ ( โ„คโ‰ฅ โ€˜ ( โŒŠ โ€˜ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) ) ) ( abs โ€˜ ( ( seq 1 ( + , ๐น ) โ€˜ ๐‘˜ ) โˆ’ ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) ) ) ) ) < ๐‘’ ) )
188 fveq2 โŠข ( ๐‘— = ( โŒŠ โ€˜ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) ) โ†’ ( โ„คโ‰ฅ โ€˜ ๐‘— ) = ( โ„คโ‰ฅ โ€˜ ( โŒŠ โ€˜ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) ) ) )
189 fveq2 โŠข ( ๐‘— = ( โŒŠ โ€˜ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) ) โ†’ ( seq 1 ( + , ๐น ) โ€˜ ๐‘— ) = ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) ) ) )
190 189 oveq2d โŠข ( ๐‘— = ( โŒŠ โ€˜ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) ) โ†’ ( ( seq 1 ( + , ๐น ) โ€˜ ๐‘˜ ) โˆ’ ( seq 1 ( + , ๐น ) โ€˜ ๐‘— ) ) = ( ( seq 1 ( + , ๐น ) โ€˜ ๐‘˜ ) โˆ’ ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) ) ) ) )
191 190 fveq2d โŠข ( ๐‘— = ( โŒŠ โ€˜ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) ) โ†’ ( abs โ€˜ ( ( seq 1 ( + , ๐น ) โ€˜ ๐‘˜ ) โˆ’ ( seq 1 ( + , ๐น ) โ€˜ ๐‘— ) ) ) = ( abs โ€˜ ( ( seq 1 ( + , ๐น ) โ€˜ ๐‘˜ ) โˆ’ ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) ) ) ) ) )
192 191 breq1d โŠข ( ๐‘— = ( โŒŠ โ€˜ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) ) โ†’ ( ( abs โ€˜ ( ( seq 1 ( + , ๐น ) โ€˜ ๐‘˜ ) โˆ’ ( seq 1 ( + , ๐น ) โ€˜ ๐‘— ) ) ) < ๐‘’ โ†” ( abs โ€˜ ( ( seq 1 ( + , ๐น ) โ€˜ ๐‘˜ ) โˆ’ ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) ) ) ) ) < ๐‘’ ) )
193 188 192 raleqbidv โŠข ( ๐‘— = ( โŒŠ โ€˜ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) ) โ†’ ( โˆ€ ๐‘˜ โˆˆ ( โ„คโ‰ฅ โ€˜ ๐‘— ) ( abs โ€˜ ( ( seq 1 ( + , ๐น ) โ€˜ ๐‘˜ ) โˆ’ ( seq 1 ( + , ๐น ) โ€˜ ๐‘— ) ) ) < ๐‘’ โ†” โˆ€ ๐‘˜ โˆˆ ( โ„คโ‰ฅ โ€˜ ( โŒŠ โ€˜ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) ) ) ( abs โ€˜ ( ( seq 1 ( + , ๐น ) โ€˜ ๐‘˜ ) โˆ’ ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) ) ) ) ) < ๐‘’ ) )
194 193 rspcev โŠข ( ( ( โŒŠ โ€˜ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) ) โˆˆ โ„• โˆง โˆ€ ๐‘˜ โˆˆ ( โ„คโ‰ฅ โ€˜ ( โŒŠ โ€˜ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) ) ) ( abs โ€˜ ( ( seq 1 ( + , ๐น ) โ€˜ ๐‘˜ ) โˆ’ ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) ) ) ) ) < ๐‘’ ) โ†’ โˆƒ ๐‘— โˆˆ โ„• โˆ€ ๐‘˜ โˆˆ ( โ„คโ‰ฅ โ€˜ ๐‘— ) ( abs โ€˜ ( ( seq 1 ( + , ๐น ) โ€˜ ๐‘˜ ) โˆ’ ( seq 1 ( + , ๐น ) โ€˜ ๐‘— ) ) ) < ๐‘’ )
195 154 187 194 syl6an โŠข ( ( ( ๐œ‘ โˆง ๐‘’ โˆˆ โ„+ ) โˆง ๐‘š โˆˆ โ„ ) โ†’ ( ( ( 2 ยท ๐‘… ) ยท โฆ‹ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) / ๐‘› โฆŒ ๐ด ) < ๐‘’ โ†’ โˆƒ ๐‘— โˆˆ โ„• โˆ€ ๐‘˜ โˆˆ ( โ„คโ‰ฅ โ€˜ ๐‘— ) ( abs โ€˜ ( ( seq 1 ( + , ๐น ) โ€˜ ๐‘˜ ) โˆ’ ( seq 1 ( + , ๐น ) โ€˜ ๐‘— ) ) ) < ๐‘’ ) )
196 147 195 syld โŠข ( ( ( ๐œ‘ โˆง ๐‘’ โˆˆ โ„+ ) โˆง ๐‘š โˆˆ โ„ ) โ†’ ( ( abs โ€˜ ( โฆ‹ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) / ๐‘› โฆŒ ๐ด โˆ’ 0 ) ) < ( ๐‘’ / ( ( 2 ยท ๐‘… ) + 1 ) ) โ†’ โˆƒ ๐‘— โˆˆ โ„• โˆ€ ๐‘˜ โˆˆ ( โ„คโ‰ฅ โ€˜ ๐‘— ) ( abs โ€˜ ( ( seq 1 ( + , ๐น ) โ€˜ ๐‘˜ ) โˆ’ ( seq 1 ( + , ๐น ) โ€˜ ๐‘— ) ) ) < ๐‘’ ) )
197 105 196 embantd โŠข ( ( ( ๐œ‘ โˆง ๐‘’ โˆˆ โ„+ ) โˆง ๐‘š โˆˆ โ„ ) โ†’ ( ( ๐‘š โ‰ค if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) โ†’ ( abs โ€˜ ( โฆ‹ if ( ๐‘€ โ‰ค ๐‘š , ๐‘š , ๐‘€ ) / ๐‘› โฆŒ ๐ด โˆ’ 0 ) ) < ( ๐‘’ / ( ( 2 ยท ๐‘… ) + 1 ) ) ) โ†’ โˆƒ ๐‘— โˆˆ โ„• โˆ€ ๐‘˜ โˆˆ ( โ„คโ‰ฅ โ€˜ ๐‘— ) ( abs โ€˜ ( ( seq 1 ( + , ๐น ) โ€˜ ๐‘˜ ) โˆ’ ( seq 1 ( + , ๐น ) โ€˜ ๐‘— ) ) ) < ๐‘’ ) )
198 102 197 syld โŠข ( ( ( ๐œ‘ โˆง ๐‘’ โˆˆ โ„+ ) โˆง ๐‘š โˆˆ โ„ ) โ†’ ( โˆ€ ๐‘› โˆˆ โ„+ ( ๐‘š โ‰ค ๐‘› โ†’ ( abs โ€˜ ( ๐ด โˆ’ 0 ) ) < ( ๐‘’ / ( ( 2 ยท ๐‘… ) + 1 ) ) ) โ†’ โˆƒ ๐‘— โˆˆ โ„• โˆ€ ๐‘˜ โˆˆ ( โ„คโ‰ฅ โ€˜ ๐‘— ) ( abs โ€˜ ( ( seq 1 ( + , ๐น ) โ€˜ ๐‘˜ ) โˆ’ ( seq 1 ( + , ๐น ) โ€˜ ๐‘— ) ) ) < ๐‘’ ) )
199 198 rexlimdva โŠข ( ( ๐œ‘ โˆง ๐‘’ โˆˆ โ„+ ) โ†’ ( โˆƒ ๐‘š โˆˆ โ„ โˆ€ ๐‘› โˆˆ โ„+ ( ๐‘š โ‰ค ๐‘› โ†’ ( abs โ€˜ ( ๐ด โˆ’ 0 ) ) < ( ๐‘’ / ( ( 2 ยท ๐‘… ) + 1 ) ) ) โ†’ โˆƒ ๐‘— โˆˆ โ„• โˆ€ ๐‘˜ โˆˆ ( โ„คโ‰ฅ โ€˜ ๐‘— ) ( abs โ€˜ ( ( seq 1 ( + , ๐น ) โ€˜ ๐‘˜ ) โˆ’ ( seq 1 ( + , ๐น ) โ€˜ ๐‘— ) ) ) < ๐‘’ ) )
200 72 199 mpd โŠข ( ( ๐œ‘ โˆง ๐‘’ โˆˆ โ„+ ) โ†’ โˆƒ ๐‘— โˆˆ โ„• โˆ€ ๐‘˜ โˆˆ ( โ„คโ‰ฅ โ€˜ ๐‘— ) ( abs โ€˜ ( ( seq 1 ( + , ๐น ) โ€˜ ๐‘˜ ) โˆ’ ( seq 1 ( + , ๐น ) โ€˜ ๐‘— ) ) ) < ๐‘’ )
201 200 ralrimiva โŠข ( ๐œ‘ โ†’ โˆ€ ๐‘’ โˆˆ โ„+ โˆƒ ๐‘— โˆˆ โ„• โˆ€ ๐‘˜ โˆˆ ( โ„คโ‰ฅ โ€˜ ๐‘— ) ( abs โ€˜ ( ( seq 1 ( + , ๐น ) โ€˜ ๐‘˜ ) โˆ’ ( seq 1 ( + , ๐น ) โ€˜ ๐‘— ) ) ) < ๐‘’ )
202 seqex โŠข seq 1 ( + , ๐น ) โˆˆ V
203 202 a1i โŠข ( ๐œ‘ โ†’ seq 1 ( + , ๐น ) โˆˆ V )
204 17 44 201 203 caucvg โŠข ( ๐œ‘ โ†’ seq 1 ( + , ๐น ) โˆˆ dom โ‡ )
205 202 eldm โŠข ( seq 1 ( + , ๐น ) โˆˆ dom โ‡ โ†” โˆƒ ๐‘ก seq 1 ( + , ๐น ) โ‡ ๐‘ก )
206 204 205 sylib โŠข ( ๐œ‘ โ†’ โˆƒ ๐‘ก seq 1 ( + , ๐น ) โ‡ ๐‘ก )
207 simpr โŠข ( ( ๐œ‘ โˆง seq 1 ( + , ๐น ) โ‡ ๐‘ก ) โ†’ seq 1 ( + , ๐น ) โ‡ ๐‘ก )
208 elrege0 โŠข ( ( 2 ยท ๐‘… ) โˆˆ ( 0 [,) +โˆž ) โ†” ( ( 2 ยท ๐‘… ) โˆˆ โ„ โˆง 0 โ‰ค ( 2 ยท ๐‘… ) ) )
209 51 67 208 sylanbrc โŠข ( ๐œ‘ โ†’ ( 2 ยท ๐‘… ) โˆˆ ( 0 [,) +โˆž ) )
210 209 adantr โŠข ( ( ๐œ‘ โˆง seq 1 ( + , ๐น ) โ‡ ๐‘ก ) โ†’ ( 2 ยท ๐‘… ) โˆˆ ( 0 [,) +โˆž ) )
211 eqid โŠข ( โ„คโ‰ฅ โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) = ( โ„คโ‰ฅ โ€˜ ( โŒŠ โ€˜ ๐‘š ) )
212 pnfxr โŠข +โˆž โˆˆ โ„*
213 icossre โŠข ( ( ๐‘€ โˆˆ โ„ โˆง +โˆž โˆˆ โ„* ) โ†’ ( ๐‘€ [,) +โˆž ) โŠ† โ„ )
214 74 212 213 sylancl โŠข ( ๐œ‘ โ†’ ( ๐‘€ [,) +โˆž ) โŠ† โ„ )
215 214 sselda โŠข ( ( ๐œ‘ โˆง ๐‘š โˆˆ ( ๐‘€ [,) +โˆž ) ) โ†’ ๐‘š โˆˆ โ„ )
216 215 adantlr โŠข ( ( ( ๐œ‘ โˆง seq 1 ( + , ๐น ) โ‡ ๐‘ก ) โˆง ๐‘š โˆˆ ( ๐‘€ [,) +โˆž ) ) โ†’ ๐‘š โˆˆ โ„ )
217 216 flcld โŠข ( ( ( ๐œ‘ โˆง seq 1 ( + , ๐น ) โ‡ ๐‘ก ) โˆง ๐‘š โˆˆ ( ๐‘€ [,) +โˆž ) ) โ†’ ( โŒŠ โ€˜ ๐‘š ) โˆˆ โ„ค )
218 simplr โŠข ( ( ( ๐œ‘ โˆง seq 1 ( + , ๐น ) โ‡ ๐‘ก ) โˆง ๐‘š โˆˆ ( ๐‘€ [,) +โˆž ) ) โ†’ seq 1 ( + , ๐น ) โ‡ ๐‘ก )
219 43 ad2antrr โŠข ( ( ( ๐œ‘ โˆง seq 1 ( + , ๐น ) โ‡ ๐‘ก ) โˆง ๐‘š โˆˆ ( ๐‘€ [,) +โˆž ) ) โ†’ seq 1 ( + , ๐น ) : โ„• โŸถ โ„‚ )
220 1red โŠข ( ( ( ๐œ‘ โˆง seq 1 ( + , ๐น ) โ‡ ๐‘ก ) โˆง ๐‘š โˆˆ ( ๐‘€ [,) +โˆž ) ) โ†’ 1 โˆˆ โ„ )
221 74 ad2antrr โŠข ( ( ( ๐œ‘ โˆง seq 1 ( + , ๐น ) โ‡ ๐‘ก ) โˆง ๐‘š โˆˆ ( ๐‘€ [,) +โˆž ) ) โ†’ ๐‘€ โˆˆ โ„ )
222 10 ad2antrr โŠข ( ( ( ๐œ‘ โˆง seq 1 ( + , ๐น ) โ‡ ๐‘ก ) โˆง ๐‘š โˆˆ ( ๐‘€ [,) +โˆž ) ) โ†’ ๐‘€ โˆˆ โ„• )
223 222 nnge1d โŠข ( ( ( ๐œ‘ โˆง seq 1 ( + , ๐น ) โ‡ ๐‘ก ) โˆง ๐‘š โˆˆ ( ๐‘€ [,) +โˆž ) ) โ†’ 1 โ‰ค ๐‘€ )
224 elicopnf โŠข ( ๐‘€ โˆˆ โ„ โ†’ ( ๐‘š โˆˆ ( ๐‘€ [,) +โˆž ) โ†” ( ๐‘š โˆˆ โ„ โˆง ๐‘€ โ‰ค ๐‘š ) ) )
225 74 224 syl โŠข ( ๐œ‘ โ†’ ( ๐‘š โˆˆ ( ๐‘€ [,) +โˆž ) โ†” ( ๐‘š โˆˆ โ„ โˆง ๐‘€ โ‰ค ๐‘š ) ) )
226 225 simplbda โŠข ( ( ๐œ‘ โˆง ๐‘š โˆˆ ( ๐‘€ [,) +โˆž ) ) โ†’ ๐‘€ โ‰ค ๐‘š )
227 226 adantlr โŠข ( ( ( ๐œ‘ โˆง seq 1 ( + , ๐น ) โ‡ ๐‘ก ) โˆง ๐‘š โˆˆ ( ๐‘€ [,) +โˆž ) ) โ†’ ๐‘€ โ‰ค ๐‘š )
228 220 221 216 223 227 letrd โŠข ( ( ( ๐œ‘ โˆง seq 1 ( + , ๐น ) โ‡ ๐‘ก ) โˆง ๐‘š โˆˆ ( ๐‘€ [,) +โˆž ) ) โ†’ 1 โ‰ค ๐‘š )
229 flge1nn โŠข ( ( ๐‘š โˆˆ โ„ โˆง 1 โ‰ค ๐‘š ) โ†’ ( โŒŠ โ€˜ ๐‘š ) โˆˆ โ„• )
230 216 228 229 syl2anc โŠข ( ( ( ๐œ‘ โˆง seq 1 ( + , ๐น ) โ‡ ๐‘ก ) โˆง ๐‘š โˆˆ ( ๐‘€ [,) +โˆž ) ) โ†’ ( โŒŠ โ€˜ ๐‘š ) โˆˆ โ„• )
231 219 230 ffvelcdmd โŠข ( ( ( ๐œ‘ โˆง seq 1 ( + , ๐น ) โ‡ ๐‘ก ) โˆง ๐‘š โˆˆ ( ๐‘€ [,) +โˆž ) ) โ†’ ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) โˆˆ โ„‚ )
232 nnex โŠข โ„• โˆˆ V
233 232 mptex โŠข ( ๐‘˜ โˆˆ โ„• โ†ฆ ( ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) โˆ’ ( seq 1 ( + , ๐น ) โ€˜ ๐‘˜ ) ) ) โˆˆ V
234 233 a1i โŠข ( ( ( ๐œ‘ โˆง seq 1 ( + , ๐น ) โ‡ ๐‘ก ) โˆง ๐‘š โˆˆ ( ๐‘€ [,) +โˆž ) ) โ†’ ( ๐‘˜ โˆˆ โ„• โ†ฆ ( ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) โˆ’ ( seq 1 ( + , ๐น ) โ€˜ ๐‘˜ ) ) ) โˆˆ V )
235 219 adantr โŠข ( ( ( ( ๐œ‘ โˆง seq 1 ( + , ๐น ) โ‡ ๐‘ก ) โˆง ๐‘š โˆˆ ( ๐‘€ [,) +โˆž ) ) โˆง ๐‘– โˆˆ ( โ„คโ‰ฅ โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) ) โ†’ seq 1 ( + , ๐น ) : โ„• โŸถ โ„‚ )
236 eluznn โŠข ( ( ( โŒŠ โ€˜ ๐‘š ) โˆˆ โ„• โˆง ๐‘– โˆˆ ( โ„คโ‰ฅ โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) ) โ†’ ๐‘– โˆˆ โ„• )
237 230 236 sylan โŠข ( ( ( ( ๐œ‘ โˆง seq 1 ( + , ๐น ) โ‡ ๐‘ก ) โˆง ๐‘š โˆˆ ( ๐‘€ [,) +โˆž ) ) โˆง ๐‘– โˆˆ ( โ„คโ‰ฅ โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) ) โ†’ ๐‘– โˆˆ โ„• )
238 235 237 ffvelcdmd โŠข ( ( ( ( ๐œ‘ โˆง seq 1 ( + , ๐น ) โ‡ ๐‘ก ) โˆง ๐‘š โˆˆ ( ๐‘€ [,) +โˆž ) ) โˆง ๐‘– โˆˆ ( โ„คโ‰ฅ โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) ) โ†’ ( seq 1 ( + , ๐น ) โ€˜ ๐‘– ) โˆˆ โ„‚ )
239 fveq2 โŠข ( ๐‘˜ = ๐‘– โ†’ ( seq 1 ( + , ๐น ) โ€˜ ๐‘˜ ) = ( seq 1 ( + , ๐น ) โ€˜ ๐‘– ) )
240 239 oveq2d โŠข ( ๐‘˜ = ๐‘– โ†’ ( ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) โˆ’ ( seq 1 ( + , ๐น ) โ€˜ ๐‘˜ ) ) = ( ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) โˆ’ ( seq 1 ( + , ๐น ) โ€˜ ๐‘– ) ) )
241 eqid โŠข ( ๐‘˜ โˆˆ โ„• โ†ฆ ( ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) โˆ’ ( seq 1 ( + , ๐น ) โ€˜ ๐‘˜ ) ) ) = ( ๐‘˜ โˆˆ โ„• โ†ฆ ( ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) โˆ’ ( seq 1 ( + , ๐น ) โ€˜ ๐‘˜ ) ) )
242 ovex โŠข ( ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) โˆ’ ( seq 1 ( + , ๐น ) โ€˜ ๐‘˜ ) ) โˆˆ V
243 240 241 242 fvmpt3i โŠข ( ๐‘– โˆˆ โ„• โ†’ ( ( ๐‘˜ โˆˆ โ„• โ†ฆ ( ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) โˆ’ ( seq 1 ( + , ๐น ) โ€˜ ๐‘˜ ) ) ) โ€˜ ๐‘– ) = ( ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) โˆ’ ( seq 1 ( + , ๐น ) โ€˜ ๐‘– ) ) )
244 237 243 syl โŠข ( ( ( ( ๐œ‘ โˆง seq 1 ( + , ๐น ) โ‡ ๐‘ก ) โˆง ๐‘š โˆˆ ( ๐‘€ [,) +โˆž ) ) โˆง ๐‘– โˆˆ ( โ„คโ‰ฅ โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) ) โ†’ ( ( ๐‘˜ โˆˆ โ„• โ†ฆ ( ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) โˆ’ ( seq 1 ( + , ๐น ) โ€˜ ๐‘˜ ) ) ) โ€˜ ๐‘– ) = ( ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) โˆ’ ( seq 1 ( + , ๐น ) โ€˜ ๐‘– ) ) )
245 211 217 218 231 234 238 244 climsubc2 โŠข ( ( ( ๐œ‘ โˆง seq 1 ( + , ๐น ) โ‡ ๐‘ก ) โˆง ๐‘š โˆˆ ( ๐‘€ [,) +โˆž ) ) โ†’ ( ๐‘˜ โˆˆ โ„• โ†ฆ ( ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) โˆ’ ( seq 1 ( + , ๐น ) โ€˜ ๐‘˜ ) ) ) โ‡ ( ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) โˆ’ ๐‘ก ) )
246 232 mptex โŠข ( ๐‘˜ โˆˆ โ„• โ†ฆ ( abs โ€˜ ( ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) โˆ’ ( seq 1 ( + , ๐น ) โ€˜ ๐‘˜ ) ) ) ) โˆˆ V
247 246 a1i โŠข ( ( ( ๐œ‘ โˆง seq 1 ( + , ๐น ) โ‡ ๐‘ก ) โˆง ๐‘š โˆˆ ( ๐‘€ [,) +โˆž ) ) โ†’ ( ๐‘˜ โˆˆ โ„• โ†ฆ ( abs โ€˜ ( ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) โˆ’ ( seq 1 ( + , ๐น ) โ€˜ ๐‘˜ ) ) ) ) โˆˆ V )
248 fvex โŠข ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) โˆˆ V
249 248 fvconst2 โŠข ( ๐‘– โˆˆ โ„• โ†’ ( ( โ„• ร— { ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) } ) โ€˜ ๐‘– ) = ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) )
250 237 249 syl โŠข ( ( ( ( ๐œ‘ โˆง seq 1 ( + , ๐น ) โ‡ ๐‘ก ) โˆง ๐‘š โˆˆ ( ๐‘€ [,) +โˆž ) ) โˆง ๐‘– โˆˆ ( โ„คโ‰ฅ โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) ) โ†’ ( ( โ„• ร— { ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) } ) โ€˜ ๐‘– ) = ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) )
251 250 oveq1d โŠข ( ( ( ( ๐œ‘ โˆง seq 1 ( + , ๐น ) โ‡ ๐‘ก ) โˆง ๐‘š โˆˆ ( ๐‘€ [,) +โˆž ) ) โˆง ๐‘– โˆˆ ( โ„คโ‰ฅ โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) ) โ†’ ( ( ( โ„• ร— { ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) } ) โ€˜ ๐‘– ) โˆ’ ( seq 1 ( + , ๐น ) โ€˜ ๐‘– ) ) = ( ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) โˆ’ ( seq 1 ( + , ๐น ) โ€˜ ๐‘– ) ) )
252 244 251 eqtr4d โŠข ( ( ( ( ๐œ‘ โˆง seq 1 ( + , ๐น ) โ‡ ๐‘ก ) โˆง ๐‘š โˆˆ ( ๐‘€ [,) +โˆž ) ) โˆง ๐‘– โˆˆ ( โ„คโ‰ฅ โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) ) โ†’ ( ( ๐‘˜ โˆˆ โ„• โ†ฆ ( ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) โˆ’ ( seq 1 ( + , ๐น ) โ€˜ ๐‘˜ ) ) ) โ€˜ ๐‘– ) = ( ( ( โ„• ร— { ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) } ) โ€˜ ๐‘– ) โˆ’ ( seq 1 ( + , ๐น ) โ€˜ ๐‘– ) ) )
253 231 adantr โŠข ( ( ( ( ๐œ‘ โˆง seq 1 ( + , ๐น ) โ‡ ๐‘ก ) โˆง ๐‘š โˆˆ ( ๐‘€ [,) +โˆž ) ) โˆง ๐‘– โˆˆ ( โ„คโ‰ฅ โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) ) โ†’ ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) โˆˆ โ„‚ )
254 250 253 eqeltrd โŠข ( ( ( ( ๐œ‘ โˆง seq 1 ( + , ๐น ) โ‡ ๐‘ก ) โˆง ๐‘š โˆˆ ( ๐‘€ [,) +โˆž ) ) โˆง ๐‘– โˆˆ ( โ„คโ‰ฅ โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) ) โ†’ ( ( โ„• ร— { ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) } ) โ€˜ ๐‘– ) โˆˆ โ„‚ )
255 254 238 subcld โŠข ( ( ( ( ๐œ‘ โˆง seq 1 ( + , ๐น ) โ‡ ๐‘ก ) โˆง ๐‘š โˆˆ ( ๐‘€ [,) +โˆž ) ) โˆง ๐‘– โˆˆ ( โ„คโ‰ฅ โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) ) โ†’ ( ( ( โ„• ร— { ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) } ) โ€˜ ๐‘– ) โˆ’ ( seq 1 ( + , ๐น ) โ€˜ ๐‘– ) ) โˆˆ โ„‚ )
256 252 255 eqeltrd โŠข ( ( ( ( ๐œ‘ โˆง seq 1 ( + , ๐น ) โ‡ ๐‘ก ) โˆง ๐‘š โˆˆ ( ๐‘€ [,) +โˆž ) ) โˆง ๐‘– โˆˆ ( โ„คโ‰ฅ โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) ) โ†’ ( ( ๐‘˜ โˆˆ โ„• โ†ฆ ( ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) โˆ’ ( seq 1 ( + , ๐น ) โ€˜ ๐‘˜ ) ) ) โ€˜ ๐‘– ) โˆˆ โ„‚ )
257 240 fveq2d โŠข ( ๐‘˜ = ๐‘– โ†’ ( abs โ€˜ ( ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) โˆ’ ( seq 1 ( + , ๐น ) โ€˜ ๐‘˜ ) ) ) = ( abs โ€˜ ( ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) โˆ’ ( seq 1 ( + , ๐น ) โ€˜ ๐‘– ) ) ) )
258 eqid โŠข ( ๐‘˜ โˆˆ โ„• โ†ฆ ( abs โ€˜ ( ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) โˆ’ ( seq 1 ( + , ๐น ) โ€˜ ๐‘˜ ) ) ) ) = ( ๐‘˜ โˆˆ โ„• โ†ฆ ( abs โ€˜ ( ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) โˆ’ ( seq 1 ( + , ๐น ) โ€˜ ๐‘˜ ) ) ) )
259 fvex โŠข ( abs โ€˜ ( ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) โˆ’ ( seq 1 ( + , ๐น ) โ€˜ ๐‘˜ ) ) ) โˆˆ V
260 257 258 259 fvmpt3i โŠข ( ๐‘– โˆˆ โ„• โ†’ ( ( ๐‘˜ โˆˆ โ„• โ†ฆ ( abs โ€˜ ( ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) โˆ’ ( seq 1 ( + , ๐น ) โ€˜ ๐‘˜ ) ) ) ) โ€˜ ๐‘– ) = ( abs โ€˜ ( ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) โˆ’ ( seq 1 ( + , ๐น ) โ€˜ ๐‘– ) ) ) )
261 237 260 syl โŠข ( ( ( ( ๐œ‘ โˆง seq 1 ( + , ๐น ) โ‡ ๐‘ก ) โˆง ๐‘š โˆˆ ( ๐‘€ [,) +โˆž ) ) โˆง ๐‘– โˆˆ ( โ„คโ‰ฅ โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) ) โ†’ ( ( ๐‘˜ โˆˆ โ„• โ†ฆ ( abs โ€˜ ( ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) โˆ’ ( seq 1 ( + , ๐น ) โ€˜ ๐‘˜ ) ) ) ) โ€˜ ๐‘– ) = ( abs โ€˜ ( ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) โˆ’ ( seq 1 ( + , ๐น ) โ€˜ ๐‘– ) ) ) )
262 244 fveq2d โŠข ( ( ( ( ๐œ‘ โˆง seq 1 ( + , ๐น ) โ‡ ๐‘ก ) โˆง ๐‘š โˆˆ ( ๐‘€ [,) +โˆž ) ) โˆง ๐‘– โˆˆ ( โ„คโ‰ฅ โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) ) โ†’ ( abs โ€˜ ( ( ๐‘˜ โˆˆ โ„• โ†ฆ ( ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) โˆ’ ( seq 1 ( + , ๐น ) โ€˜ ๐‘˜ ) ) ) โ€˜ ๐‘– ) ) = ( abs โ€˜ ( ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) โˆ’ ( seq 1 ( + , ๐น ) โ€˜ ๐‘– ) ) ) )
263 261 262 eqtr4d โŠข ( ( ( ( ๐œ‘ โˆง seq 1 ( + , ๐น ) โ‡ ๐‘ก ) โˆง ๐‘š โˆˆ ( ๐‘€ [,) +โˆž ) ) โˆง ๐‘– โˆˆ ( โ„คโ‰ฅ โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) ) โ†’ ( ( ๐‘˜ โˆˆ โ„• โ†ฆ ( abs โ€˜ ( ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) โˆ’ ( seq 1 ( + , ๐น ) โ€˜ ๐‘˜ ) ) ) ) โ€˜ ๐‘– ) = ( abs โ€˜ ( ( ๐‘˜ โˆˆ โ„• โ†ฆ ( ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) โˆ’ ( seq 1 ( + , ๐น ) โ€˜ ๐‘˜ ) ) ) โ€˜ ๐‘– ) ) )
264 211 245 247 217 256 263 climabs โŠข ( ( ( ๐œ‘ โˆง seq 1 ( + , ๐น ) โ‡ ๐‘ก ) โˆง ๐‘š โˆˆ ( ๐‘€ [,) +โˆž ) ) โ†’ ( ๐‘˜ โˆˆ โ„• โ†ฆ ( abs โ€˜ ( ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) โˆ’ ( seq 1 ( + , ๐น ) โ€˜ ๐‘˜ ) ) ) ) โ‡ ( abs โ€˜ ( ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) โˆ’ ๐‘ก ) ) )
265 51 ad2antrr โŠข ( ( ( ๐œ‘ โˆง seq 1 ( + , ๐น ) โ‡ ๐‘ก ) โˆง ๐‘š โˆˆ ( ๐‘€ [,) +โˆž ) ) โ†’ ( 2 ยท ๐‘… ) โˆˆ โ„ )
266 0red โŠข ( ( ๐œ‘ โˆง ๐‘š โˆˆ ( ๐‘€ [,) +โˆž ) ) โ†’ 0 โˆˆ โ„ )
267 74 adantr โŠข ( ( ๐œ‘ โˆง ๐‘š โˆˆ ( ๐‘€ [,) +โˆž ) ) โ†’ ๐‘€ โˆˆ โ„ )
268 78 adantr โŠข ( ( ๐œ‘ โˆง ๐‘š โˆˆ ( ๐‘€ [,) +โˆž ) ) โ†’ 0 < ๐‘€ )
269 266 267 215 268 226 ltletrd โŠข ( ( ๐œ‘ โˆง ๐‘š โˆˆ ( ๐‘€ [,) +โˆž ) ) โ†’ 0 < ๐‘š )
270 215 269 elrpd โŠข ( ( ๐œ‘ โˆง ๐‘š โˆˆ ( ๐‘€ [,) +โˆž ) ) โ†’ ๐‘š โˆˆ โ„+ )
271 nfcsb1v โŠข โ„ฒ ๐‘› โฆ‹ ๐‘š / ๐‘› โฆŒ ๐ด
272 271 nfel1 โŠข โ„ฒ ๐‘› โฆ‹ ๐‘š / ๐‘› โฆŒ ๐ด โˆˆ โ„
273 csbeq1a โŠข ( ๐‘› = ๐‘š โ†’ ๐ด = โฆ‹ ๐‘š / ๐‘› โฆŒ ๐ด )
274 273 eleq1d โŠข ( ๐‘› = ๐‘š โ†’ ( ๐ด โˆˆ โ„ โ†” โฆ‹ ๐‘š / ๐‘› โฆŒ ๐ด โˆˆ โ„ ) )
275 272 274 rspc โŠข ( ๐‘š โˆˆ โ„+ โ†’ ( โˆ€ ๐‘› โˆˆ โ„+ ๐ด โˆˆ โ„ โ†’ โฆ‹ ๐‘š / ๐‘› โฆŒ ๐ด โˆˆ โ„ ) )
276 23 275 mpan9 โŠข ( ( ๐œ‘ โˆง ๐‘š โˆˆ โ„+ ) โ†’ โฆ‹ ๐‘š / ๐‘› โฆŒ ๐ด โˆˆ โ„ )
277 270 276 syldan โŠข ( ( ๐œ‘ โˆง ๐‘š โˆˆ ( ๐‘€ [,) +โˆž ) ) โ†’ โฆ‹ ๐‘š / ๐‘› โฆŒ ๐ด โˆˆ โ„ )
278 277 adantlr โŠข ( ( ( ๐œ‘ โˆง seq 1 ( + , ๐น ) โ‡ ๐‘ก ) โˆง ๐‘š โˆˆ ( ๐‘€ [,) +โˆž ) ) โ†’ โฆ‹ ๐‘š / ๐‘› โฆŒ ๐ด โˆˆ โ„ )
279 265 278 remulcld โŠข ( ( ( ๐œ‘ โˆง seq 1 ( + , ๐น ) โ‡ ๐‘ก ) โˆง ๐‘š โˆˆ ( ๐‘€ [,) +โˆž ) ) โ†’ ( ( 2 ยท ๐‘… ) ยท โฆ‹ ๐‘š / ๐‘› โฆŒ ๐ด ) โˆˆ โ„ )
280 279 recnd โŠข ( ( ( ๐œ‘ โˆง seq 1 ( + , ๐น ) โ‡ ๐‘ก ) โˆง ๐‘š โˆˆ ( ๐‘€ [,) +โˆž ) ) โ†’ ( ( 2 ยท ๐‘… ) ยท โฆ‹ ๐‘š / ๐‘› โฆŒ ๐ด ) โˆˆ โ„‚ )
281 1z โŠข 1 โˆˆ โ„ค
282 17 eqimss2i โŠข ( โ„คโ‰ฅ โ€˜ 1 ) โŠ† โ„•
283 282 232 climconst2 โŠข ( ( ( ( 2 ยท ๐‘… ) ยท โฆ‹ ๐‘š / ๐‘› โฆŒ ๐ด ) โˆˆ โ„‚ โˆง 1 โˆˆ โ„ค ) โ†’ ( โ„• ร— { ( ( 2 ยท ๐‘… ) ยท โฆ‹ ๐‘š / ๐‘› โฆŒ ๐ด ) } ) โ‡ ( ( 2 ยท ๐‘… ) ยท โฆ‹ ๐‘š / ๐‘› โฆŒ ๐ด ) )
284 280 281 283 sylancl โŠข ( ( ( ๐œ‘ โˆง seq 1 ( + , ๐น ) โ‡ ๐‘ก ) โˆง ๐‘š โˆˆ ( ๐‘€ [,) +โˆž ) ) โ†’ ( โ„• ร— { ( ( 2 ยท ๐‘… ) ยท โฆ‹ ๐‘š / ๐‘› โฆŒ ๐ด ) } ) โ‡ ( ( 2 ยท ๐‘… ) ยท โฆ‹ ๐‘š / ๐‘› โฆŒ ๐ด ) )
285 253 238 subcld โŠข ( ( ( ( ๐œ‘ โˆง seq 1 ( + , ๐น ) โ‡ ๐‘ก ) โˆง ๐‘š โˆˆ ( ๐‘€ [,) +โˆž ) ) โˆง ๐‘– โˆˆ ( โ„คโ‰ฅ โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) ) โ†’ ( ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) โˆ’ ( seq 1 ( + , ๐น ) โ€˜ ๐‘– ) ) โˆˆ โ„‚ )
286 285 abscld โŠข ( ( ( ( ๐œ‘ โˆง seq 1 ( + , ๐น ) โ‡ ๐‘ก ) โˆง ๐‘š โˆˆ ( ๐‘€ [,) +โˆž ) ) โˆง ๐‘– โˆˆ ( โ„คโ‰ฅ โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) ) โ†’ ( abs โ€˜ ( ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) โˆ’ ( seq 1 ( + , ๐น ) โ€˜ ๐‘– ) ) ) โˆˆ โ„ )
287 261 286 eqeltrd โŠข ( ( ( ( ๐œ‘ โˆง seq 1 ( + , ๐น ) โ‡ ๐‘ก ) โˆง ๐‘š โˆˆ ( ๐‘€ [,) +โˆž ) ) โˆง ๐‘– โˆˆ ( โ„คโ‰ฅ โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) ) โ†’ ( ( ๐‘˜ โˆˆ โ„• โ†ฆ ( abs โ€˜ ( ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) โˆ’ ( seq 1 ( + , ๐น ) โ€˜ ๐‘˜ ) ) ) ) โ€˜ ๐‘– ) โˆˆ โ„ )
288 ovex โŠข ( ( 2 ยท ๐‘… ) ยท โฆ‹ ๐‘š / ๐‘› โฆŒ ๐ด ) โˆˆ V
289 288 fvconst2 โŠข ( ๐‘– โˆˆ โ„• โ†’ ( ( โ„• ร— { ( ( 2 ยท ๐‘… ) ยท โฆ‹ ๐‘š / ๐‘› โฆŒ ๐ด ) } ) โ€˜ ๐‘– ) = ( ( 2 ยท ๐‘… ) ยท โฆ‹ ๐‘š / ๐‘› โฆŒ ๐ด ) )
290 237 289 syl โŠข ( ( ( ( ๐œ‘ โˆง seq 1 ( + , ๐น ) โ‡ ๐‘ก ) โˆง ๐‘š โˆˆ ( ๐‘€ [,) +โˆž ) ) โˆง ๐‘– โˆˆ ( โ„คโ‰ฅ โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) ) โ†’ ( ( โ„• ร— { ( ( 2 ยท ๐‘… ) ยท โฆ‹ ๐‘š / ๐‘› โฆŒ ๐ด ) } ) โ€˜ ๐‘– ) = ( ( 2 ยท ๐‘… ) ยท โฆ‹ ๐‘š / ๐‘› โฆŒ ๐ด ) )
291 279 adantr โŠข ( ( ( ( ๐œ‘ โˆง seq 1 ( + , ๐น ) โ‡ ๐‘ก ) โˆง ๐‘š โˆˆ ( ๐‘€ [,) +โˆž ) ) โˆง ๐‘– โˆˆ ( โ„คโ‰ฅ โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) ) โ†’ ( ( 2 ยท ๐‘… ) ยท โฆ‹ ๐‘š / ๐‘› โฆŒ ๐ด ) โˆˆ โ„ )
292 290 291 eqeltrd โŠข ( ( ( ( ๐œ‘ โˆง seq 1 ( + , ๐น ) โ‡ ๐‘ก ) โˆง ๐‘š โˆˆ ( ๐‘€ [,) +โˆž ) ) โˆง ๐‘– โˆˆ ( โ„คโ‰ฅ โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) ) โ†’ ( ( โ„• ร— { ( ( 2 ยท ๐‘… ) ยท โฆ‹ ๐‘š / ๐‘› โฆŒ ๐ด ) } ) โ€˜ ๐‘– ) โˆˆ โ„ )
293 simplll โŠข ( ( ( ( ๐œ‘ โˆง seq 1 ( + , ๐น ) โ‡ ๐‘ก ) โˆง ๐‘š โˆˆ ( ๐‘€ [,) +โˆž ) ) โˆง ๐‘– โˆˆ ( โ„คโ‰ฅ โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) ) โ†’ ๐œ‘ )
294 293 3 syl โŠข ( ( ( ( ๐œ‘ โˆง seq 1 ( + , ๐น ) โ‡ ๐‘ก ) โˆง ๐‘š โˆˆ ( ๐‘€ [,) +โˆž ) ) โˆง ๐‘– โˆˆ ( โ„คโ‰ฅ โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) ) โ†’ ๐‘ โˆˆ โ„• )
295 293 7 syl โŠข ( ( ( ( ๐œ‘ โˆง seq 1 ( + , ๐น ) โ‡ ๐‘ก ) โˆง ๐‘š โˆˆ ( ๐‘€ [,) +โˆž ) ) โˆง ๐‘– โˆˆ ( โ„คโ‰ฅ โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) ) โ†’ ๐‘‹ โˆˆ ๐ท )
296 293 8 syl โŠข ( ( ( ( ๐œ‘ โˆง seq 1 ( + , ๐น ) โ‡ ๐‘ก ) โˆง ๐‘š โˆˆ ( ๐‘€ [,) +โˆž ) ) โˆง ๐‘– โˆˆ ( โ„คโ‰ฅ โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) ) โ†’ ๐‘‹ โ‰  1 )
297 222 adantr โŠข ( ( ( ( ๐œ‘ โˆง seq 1 ( + , ๐น ) โ‡ ๐‘ก ) โˆง ๐‘š โˆˆ ( ๐‘€ [,) +โˆž ) ) โˆง ๐‘– โˆˆ ( โ„คโ‰ฅ โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) ) โ†’ ๐‘€ โˆˆ โ„• )
298 293 11 sylan โŠข ( ( ( ( ( ๐œ‘ โˆง seq 1 ( + , ๐น ) โ‡ ๐‘ก ) โˆง ๐‘š โˆˆ ( ๐‘€ [,) +โˆž ) ) โˆง ๐‘– โˆˆ ( โ„คโ‰ฅ โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) ) โˆง ๐‘› โˆˆ โ„+ ) โ†’ ๐ด โˆˆ โ„ )
299 293 12 syl3an1 โŠข ( ( ( ( ( ๐œ‘ โˆง seq 1 ( + , ๐น ) โ‡ ๐‘ก ) โˆง ๐‘š โˆˆ ( ๐‘€ [,) +โˆž ) ) โˆง ๐‘– โˆˆ ( โ„คโ‰ฅ โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) ) โˆง ( ๐‘› โˆˆ โ„+ โˆง ๐‘ฅ โˆˆ โ„+ ) โˆง ( ๐‘€ โ‰ค ๐‘› โˆง ๐‘› โ‰ค ๐‘ฅ ) ) โ†’ ๐ต โ‰ค ๐ด )
300 293 13 syl โŠข ( ( ( ( ๐œ‘ โˆง seq 1 ( + , ๐น ) โ‡ ๐‘ก ) โˆง ๐‘š โˆˆ ( ๐‘€ [,) +โˆž ) ) โˆง ๐‘– โˆˆ ( โ„คโ‰ฅ โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) ) โ†’ ( ๐‘› โˆˆ โ„+ โ†ฆ ๐ด ) โ‡๐‘Ÿ 0 )
301 293 15 syl โŠข ( ( ( ( ๐œ‘ โˆง seq 1 ( + , ๐น ) โ‡ ๐‘ก ) โˆง ๐‘š โˆˆ ( ๐‘€ [,) +โˆž ) ) โˆง ๐‘– โˆˆ ( โ„คโ‰ฅ โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) ) โ†’ ๐‘… โˆˆ โ„ )
302 293 16 syl โŠข ( ( ( ( ๐œ‘ โˆง seq 1 ( + , ๐น ) โ‡ ๐‘ก ) โˆง ๐‘š โˆˆ ( ๐‘€ [,) +โˆž ) ) โˆง ๐‘– โˆˆ ( โ„คโ‰ฅ โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) ) โ†’ โˆ€ ๐‘ข โˆˆ ( 0 ..^ ๐‘ ) ( abs โ€˜ ฮฃ ๐‘› โˆˆ ( 0 ..^ ๐‘ข ) ( ๐‘‹ โ€˜ ( ๐ฟ โ€˜ ๐‘› ) ) ) โ‰ค ๐‘… )
303 270 adantlr โŠข ( ( ( ๐œ‘ โˆง seq 1 ( + , ๐น ) โ‡ ๐‘ก ) โˆง ๐‘š โˆˆ ( ๐‘€ [,) +โˆž ) ) โ†’ ๐‘š โˆˆ โ„+ )
304 303 adantr โŠข ( ( ( ( ๐œ‘ โˆง seq 1 ( + , ๐น ) โ‡ ๐‘ก ) โˆง ๐‘š โˆˆ ( ๐‘€ [,) +โˆž ) ) โˆง ๐‘– โˆˆ ( โ„คโ‰ฅ โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) ) โ†’ ๐‘š โˆˆ โ„+ )
305 227 adantr โŠข ( ( ( ( ๐œ‘ โˆง seq 1 ( + , ๐น ) โ‡ ๐‘ก ) โˆง ๐‘š โˆˆ ( ๐‘€ [,) +โˆž ) ) โˆง ๐‘– โˆˆ ( โ„คโ‰ฅ โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) ) โ†’ ๐‘€ โ‰ค ๐‘š )
306 216 adantr โŠข ( ( ( ( ๐œ‘ โˆง seq 1 ( + , ๐น ) โ‡ ๐‘ก ) โˆง ๐‘š โˆˆ ( ๐‘€ [,) +โˆž ) ) โˆง ๐‘– โˆˆ ( โ„คโ‰ฅ โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) ) โ†’ ๐‘š โˆˆ โ„ )
307 reflcl โŠข ( ๐‘š โˆˆ โ„ โ†’ ( โŒŠ โ€˜ ๐‘š ) โˆˆ โ„ )
308 peano2re โŠข ( ( โŒŠ โ€˜ ๐‘š ) โˆˆ โ„ โ†’ ( ( โŒŠ โ€˜ ๐‘š ) + 1 ) โˆˆ โ„ )
309 306 307 308 3syl โŠข ( ( ( ( ๐œ‘ โˆง seq 1 ( + , ๐น ) โ‡ ๐‘ก ) โˆง ๐‘š โˆˆ ( ๐‘€ [,) +โˆž ) ) โˆง ๐‘– โˆˆ ( โ„คโ‰ฅ โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) ) โ†’ ( ( โŒŠ โ€˜ ๐‘š ) + 1 ) โˆˆ โ„ )
310 flltp1 โŠข ( ๐‘š โˆˆ โ„ โ†’ ๐‘š < ( ( โŒŠ โ€˜ ๐‘š ) + 1 ) )
311 306 310 syl โŠข ( ( ( ( ๐œ‘ โˆง seq 1 ( + , ๐น ) โ‡ ๐‘ก ) โˆง ๐‘š โˆˆ ( ๐‘€ [,) +โˆž ) ) โˆง ๐‘– โˆˆ ( โ„คโ‰ฅ โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) ) โ†’ ๐‘š < ( ( โŒŠ โ€˜ ๐‘š ) + 1 ) )
312 306 309 311 ltled โŠข ( ( ( ( ๐œ‘ โˆง seq 1 ( + , ๐น ) โ‡ ๐‘ก ) โˆง ๐‘š โˆˆ ( ๐‘€ [,) +โˆž ) ) โˆง ๐‘– โˆˆ ( โ„คโ‰ฅ โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) ) โ†’ ๐‘š โ‰ค ( ( โŒŠ โ€˜ ๐‘š ) + 1 ) )
313 230 adantr โŠข ( ( ( ( ๐œ‘ โˆง seq 1 ( + , ๐น ) โ‡ ๐‘ก ) โˆง ๐‘š โˆˆ ( ๐‘€ [,) +โˆž ) ) โˆง ๐‘– โˆˆ ( โ„คโ‰ฅ โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) ) โ†’ ( โŒŠ โ€˜ ๐‘š ) โˆˆ โ„• )
314 simpr โŠข ( ( ( ( ๐œ‘ โˆง seq 1 ( + , ๐น ) โ‡ ๐‘ก ) โˆง ๐‘š โˆˆ ( ๐‘€ [,) +โˆž ) ) โˆง ๐‘– โˆˆ ( โ„คโ‰ฅ โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) ) โ†’ ๐‘– โˆˆ ( โ„คโ‰ฅ โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) )
315 1 2 294 4 5 6 295 296 9 297 298 299 300 14 301 302 304 305 312 313 314 dchrisumlem2 โŠข ( ( ( ( ๐œ‘ โˆง seq 1 ( + , ๐น ) โ‡ ๐‘ก ) โˆง ๐‘š โˆˆ ( ๐‘€ [,) +โˆž ) ) โˆง ๐‘– โˆˆ ( โ„คโ‰ฅ โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) ) โ†’ ( abs โ€˜ ( ( seq 1 ( + , ๐น ) โ€˜ ๐‘– ) โˆ’ ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) ) ) โ‰ค ( ( 2 ยท ๐‘… ) ยท โฆ‹ ๐‘š / ๐‘› โฆŒ ๐ด ) )
316 253 238 abssubd โŠข ( ( ( ( ๐œ‘ โˆง seq 1 ( + , ๐น ) โ‡ ๐‘ก ) โˆง ๐‘š โˆˆ ( ๐‘€ [,) +โˆž ) ) โˆง ๐‘– โˆˆ ( โ„คโ‰ฅ โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) ) โ†’ ( abs โ€˜ ( ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) โˆ’ ( seq 1 ( + , ๐น ) โ€˜ ๐‘– ) ) ) = ( abs โ€˜ ( ( seq 1 ( + , ๐น ) โ€˜ ๐‘– ) โˆ’ ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) ) ) )
317 261 316 eqtrd โŠข ( ( ( ( ๐œ‘ โˆง seq 1 ( + , ๐น ) โ‡ ๐‘ก ) โˆง ๐‘š โˆˆ ( ๐‘€ [,) +โˆž ) ) โˆง ๐‘– โˆˆ ( โ„คโ‰ฅ โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) ) โ†’ ( ( ๐‘˜ โˆˆ โ„• โ†ฆ ( abs โ€˜ ( ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) โˆ’ ( seq 1 ( + , ๐น ) โ€˜ ๐‘˜ ) ) ) ) โ€˜ ๐‘– ) = ( abs โ€˜ ( ( seq 1 ( + , ๐น ) โ€˜ ๐‘– ) โˆ’ ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) ) ) )
318 315 317 290 3brtr4d โŠข ( ( ( ( ๐œ‘ โˆง seq 1 ( + , ๐น ) โ‡ ๐‘ก ) โˆง ๐‘š โˆˆ ( ๐‘€ [,) +โˆž ) ) โˆง ๐‘– โˆˆ ( โ„คโ‰ฅ โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) ) โ†’ ( ( ๐‘˜ โˆˆ โ„• โ†ฆ ( abs โ€˜ ( ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) โˆ’ ( seq 1 ( + , ๐น ) โ€˜ ๐‘˜ ) ) ) ) โ€˜ ๐‘– ) โ‰ค ( ( โ„• ร— { ( ( 2 ยท ๐‘… ) ยท โฆ‹ ๐‘š / ๐‘› โฆŒ ๐ด ) } ) โ€˜ ๐‘– ) )
319 211 217 264 284 287 292 318 climle โŠข ( ( ( ๐œ‘ โˆง seq 1 ( + , ๐น ) โ‡ ๐‘ก ) โˆง ๐‘š โˆˆ ( ๐‘€ [,) +โˆž ) ) โ†’ ( abs โ€˜ ( ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) โˆ’ ๐‘ก ) ) โ‰ค ( ( 2 ยท ๐‘… ) ยท โฆ‹ ๐‘š / ๐‘› โฆŒ ๐ด ) )
320 319 ralrimiva โŠข ( ( ๐œ‘ โˆง seq 1 ( + , ๐น ) โ‡ ๐‘ก ) โ†’ โˆ€ ๐‘š โˆˆ ( ๐‘€ [,) +โˆž ) ( abs โ€˜ ( ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) โˆ’ ๐‘ก ) ) โ‰ค ( ( 2 ยท ๐‘… ) ยท โฆ‹ ๐‘š / ๐‘› โฆŒ ๐ด ) )
321 oveq1 โŠข ( ๐‘ = ( 2 ยท ๐‘… ) โ†’ ( ๐‘ ยท ๐ต ) = ( ( 2 ยท ๐‘… ) ยท ๐ต ) )
322 321 breq2d โŠข ( ๐‘ = ( 2 ยท ๐‘… ) โ†’ ( ( abs โ€˜ ( ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ ๐‘ฅ ) ) โˆ’ ๐‘ก ) ) โ‰ค ( ๐‘ ยท ๐ต ) โ†” ( abs โ€˜ ( ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ ๐‘ฅ ) ) โˆ’ ๐‘ก ) ) โ‰ค ( ( 2 ยท ๐‘… ) ยท ๐ต ) ) )
323 322 ralbidv โŠข ( ๐‘ = ( 2 ยท ๐‘… ) โ†’ ( โˆ€ ๐‘ฅ โˆˆ ( ๐‘€ [,) +โˆž ) ( abs โ€˜ ( ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ ๐‘ฅ ) ) โˆ’ ๐‘ก ) ) โ‰ค ( ๐‘ ยท ๐ต ) โ†” โˆ€ ๐‘ฅ โˆˆ ( ๐‘€ [,) +โˆž ) ( abs โ€˜ ( ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ ๐‘ฅ ) ) โˆ’ ๐‘ก ) ) โ‰ค ( ( 2 ยท ๐‘… ) ยท ๐ต ) ) )
324 2fveq3 โŠข ( ๐‘š = ๐‘ฅ โ†’ ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) = ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ ๐‘ฅ ) ) )
325 324 fvoveq1d โŠข ( ๐‘š = ๐‘ฅ โ†’ ( abs โ€˜ ( ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) โˆ’ ๐‘ก ) ) = ( abs โ€˜ ( ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ ๐‘ฅ ) ) โˆ’ ๐‘ก ) ) )
326 vex โŠข ๐‘š โˆˆ V
327 326 a1i โŠข ( ๐‘š = ๐‘ฅ โ†’ ๐‘š โˆˆ V )
328 equequ2 โŠข ( ๐‘š = ๐‘ฅ โ†’ ( ๐‘› = ๐‘š โ†” ๐‘› = ๐‘ฅ ) )
329 328 biimpa โŠข ( ( ๐‘š = ๐‘ฅ โˆง ๐‘› = ๐‘š ) โ†’ ๐‘› = ๐‘ฅ )
330 329 9 syl โŠข ( ( ๐‘š = ๐‘ฅ โˆง ๐‘› = ๐‘š ) โ†’ ๐ด = ๐ต )
331 327 330 csbied โŠข ( ๐‘š = ๐‘ฅ โ†’ โฆ‹ ๐‘š / ๐‘› โฆŒ ๐ด = ๐ต )
332 331 oveq2d โŠข ( ๐‘š = ๐‘ฅ โ†’ ( ( 2 ยท ๐‘… ) ยท โฆ‹ ๐‘š / ๐‘› โฆŒ ๐ด ) = ( ( 2 ยท ๐‘… ) ยท ๐ต ) )
333 325 332 breq12d โŠข ( ๐‘š = ๐‘ฅ โ†’ ( ( abs โ€˜ ( ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) โˆ’ ๐‘ก ) ) โ‰ค ( ( 2 ยท ๐‘… ) ยท โฆ‹ ๐‘š / ๐‘› โฆŒ ๐ด ) โ†” ( abs โ€˜ ( ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ ๐‘ฅ ) ) โˆ’ ๐‘ก ) ) โ‰ค ( ( 2 ยท ๐‘… ) ยท ๐ต ) ) )
334 333 cbvralvw โŠข ( โˆ€ ๐‘š โˆˆ ( ๐‘€ [,) +โˆž ) ( abs โ€˜ ( ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) โˆ’ ๐‘ก ) ) โ‰ค ( ( 2 ยท ๐‘… ) ยท โฆ‹ ๐‘š / ๐‘› โฆŒ ๐ด ) โ†” โˆ€ ๐‘ฅ โˆˆ ( ๐‘€ [,) +โˆž ) ( abs โ€˜ ( ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ ๐‘ฅ ) ) โˆ’ ๐‘ก ) ) โ‰ค ( ( 2 ยท ๐‘… ) ยท ๐ต ) )
335 323 334 bitr4di โŠข ( ๐‘ = ( 2 ยท ๐‘… ) โ†’ ( โˆ€ ๐‘ฅ โˆˆ ( ๐‘€ [,) +โˆž ) ( abs โ€˜ ( ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ ๐‘ฅ ) ) โˆ’ ๐‘ก ) ) โ‰ค ( ๐‘ ยท ๐ต ) โ†” โˆ€ ๐‘š โˆˆ ( ๐‘€ [,) +โˆž ) ( abs โ€˜ ( ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) โˆ’ ๐‘ก ) ) โ‰ค ( ( 2 ยท ๐‘… ) ยท โฆ‹ ๐‘š / ๐‘› โฆŒ ๐ด ) ) )
336 335 rspcev โŠข ( ( ( 2 ยท ๐‘… ) โˆˆ ( 0 [,) +โˆž ) โˆง โˆ€ ๐‘š โˆˆ ( ๐‘€ [,) +โˆž ) ( abs โ€˜ ( ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ ๐‘š ) ) โˆ’ ๐‘ก ) ) โ‰ค ( ( 2 ยท ๐‘… ) ยท โฆ‹ ๐‘š / ๐‘› โฆŒ ๐ด ) ) โ†’ โˆƒ ๐‘ โˆˆ ( 0 [,) +โˆž ) โˆ€ ๐‘ฅ โˆˆ ( ๐‘€ [,) +โˆž ) ( abs โ€˜ ( ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ ๐‘ฅ ) ) โˆ’ ๐‘ก ) ) โ‰ค ( ๐‘ ยท ๐ต ) )
337 210 320 336 syl2anc โŠข ( ( ๐œ‘ โˆง seq 1 ( + , ๐น ) โ‡ ๐‘ก ) โ†’ โˆƒ ๐‘ โˆˆ ( 0 [,) +โˆž ) โˆ€ ๐‘ฅ โˆˆ ( ๐‘€ [,) +โˆž ) ( abs โ€˜ ( ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ ๐‘ฅ ) ) โˆ’ ๐‘ก ) ) โ‰ค ( ๐‘ ยท ๐ต ) )
338 r19.42v โŠข ( โˆƒ ๐‘ โˆˆ ( 0 [,) +โˆž ) ( seq 1 ( + , ๐น ) โ‡ ๐‘ก โˆง โˆ€ ๐‘ฅ โˆˆ ( ๐‘€ [,) +โˆž ) ( abs โ€˜ ( ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ ๐‘ฅ ) ) โˆ’ ๐‘ก ) ) โ‰ค ( ๐‘ ยท ๐ต ) ) โ†” ( seq 1 ( + , ๐น ) โ‡ ๐‘ก โˆง โˆƒ ๐‘ โˆˆ ( 0 [,) +โˆž ) โˆ€ ๐‘ฅ โˆˆ ( ๐‘€ [,) +โˆž ) ( abs โ€˜ ( ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ ๐‘ฅ ) ) โˆ’ ๐‘ก ) ) โ‰ค ( ๐‘ ยท ๐ต ) ) )
339 207 337 338 sylanbrc โŠข ( ( ๐œ‘ โˆง seq 1 ( + , ๐น ) โ‡ ๐‘ก ) โ†’ โˆƒ ๐‘ โˆˆ ( 0 [,) +โˆž ) ( seq 1 ( + , ๐น ) โ‡ ๐‘ก โˆง โˆ€ ๐‘ฅ โˆˆ ( ๐‘€ [,) +โˆž ) ( abs โ€˜ ( ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ ๐‘ฅ ) ) โˆ’ ๐‘ก ) ) โ‰ค ( ๐‘ ยท ๐ต ) ) )
340 339 ex โŠข ( ๐œ‘ โ†’ ( seq 1 ( + , ๐น ) โ‡ ๐‘ก โ†’ โˆƒ ๐‘ โˆˆ ( 0 [,) +โˆž ) ( seq 1 ( + , ๐น ) โ‡ ๐‘ก โˆง โˆ€ ๐‘ฅ โˆˆ ( ๐‘€ [,) +โˆž ) ( abs โ€˜ ( ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ ๐‘ฅ ) ) โˆ’ ๐‘ก ) ) โ‰ค ( ๐‘ ยท ๐ต ) ) ) )
341 340 eximdv โŠข ( ๐œ‘ โ†’ ( โˆƒ ๐‘ก seq 1 ( + , ๐น ) โ‡ ๐‘ก โ†’ โˆƒ ๐‘ก โˆƒ ๐‘ โˆˆ ( 0 [,) +โˆž ) ( seq 1 ( + , ๐น ) โ‡ ๐‘ก โˆง โˆ€ ๐‘ฅ โˆˆ ( ๐‘€ [,) +โˆž ) ( abs โ€˜ ( ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ ๐‘ฅ ) ) โˆ’ ๐‘ก ) ) โ‰ค ( ๐‘ ยท ๐ต ) ) ) )
342 206 341 mpd โŠข ( ๐œ‘ โ†’ โˆƒ ๐‘ก โˆƒ ๐‘ โˆˆ ( 0 [,) +โˆž ) ( seq 1 ( + , ๐น ) โ‡ ๐‘ก โˆง โˆ€ ๐‘ฅ โˆˆ ( ๐‘€ [,) +โˆž ) ( abs โ€˜ ( ( seq 1 ( + , ๐น ) โ€˜ ( โŒŠ โ€˜ ๐‘ฅ ) ) โˆ’ ๐‘ก ) ) โ‰ค ( ๐‘ ยท ๐ต ) ) )