Step | Hyp | Ref
| Expression |
1 | | fzfid 13935 |
. . . 4
β’ (((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β (((ββπ₯)
+ 1)...(ββ((π₯β2) / π))) β Fin) |
2 | | ssun2 4173 |
. . . . . . 7
β’
(((ββπ₯)
+ 1)...(ββ((π₯β2) / π))) β ((1...(ββπ₯)) βͺ (((ββπ₯) + 1)...(ββ((π₯β2) / π)))) |
3 | | simpr 486 |
. . . . . . . . . . . . 13
β’ ((π β§ π₯ β β+) β π₯ β
β+) |
4 | 3 | rprege0d 13020 |
. . . . . . . . . . . 12
β’ ((π β§ π₯ β β+) β (π₯ β β β§ 0 β€
π₯)) |
5 | | flge0nn0 13782 |
. . . . . . . . . . . 12
β’ ((π₯ β β β§ 0 β€
π₯) β
(ββπ₯) β
β0) |
6 | 4, 5 | syl 17 |
. . . . . . . . . . 11
β’ ((π β§ π₯ β β+) β
(ββπ₯) β
β0) |
7 | | nn0p1nn 12508 |
. . . . . . . . . . 11
β’
((ββπ₯)
β β0 β ((ββπ₯) + 1) β β) |
8 | 6, 7 | syl 17 |
. . . . . . . . . 10
β’ ((π β§ π₯ β β+) β
((ββπ₯) + 1)
β β) |
9 | 8 | adantr 482 |
. . . . . . . . 9
β’ (((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β ((ββπ₯) +
1) β β) |
10 | | nnuz 12862 |
. . . . . . . . 9
β’ β =
(β€β₯β1) |
11 | 9, 10 | eleqtrdi 2844 |
. . . . . . . 8
β’ (((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β ((ββπ₯) +
1) β (β€β₯β1)) |
12 | | dchrisum0lem1a 26979 |
. . . . . . . . 9
β’ (((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β (π₯ β€ ((π₯β2) / π) β§ (ββ((π₯β2) / π)) β
(β€β₯β(ββπ₯)))) |
13 | 12 | simprd 497 |
. . . . . . . 8
β’ (((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β (ββ((π₯β2) / π)) β
(β€β₯β(ββπ₯))) |
14 | | fzsplit2 13523 |
. . . . . . . 8
β’
((((ββπ₯)
+ 1) β (β€β₯β1) β§ (ββ((π₯β2) / π)) β
(β€β₯β(ββπ₯))) β (1...(ββ((π₯β2) / π))) = ((1...(ββπ₯)) βͺ (((ββπ₯) + 1)...(ββ((π₯β2) / π))))) |
15 | 11, 13, 14 | syl2anc 585 |
. . . . . . 7
β’ (((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β (1...(ββ((π₯β2) / π))) = ((1...(ββπ₯)) βͺ (((ββπ₯) + 1)...(ββ((π₯β2) / π))))) |
16 | 2, 15 | sseqtrrid 4035 |
. . . . . 6
β’ (((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β (((ββπ₯)
+ 1)...(ββ((π₯β2) / π))) β (1...(ββ((π₯β2) / π)))) |
17 | 16 | sselda 3982 |
. . . . 5
β’ ((((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β§ π β
(((ββπ₯) +
1)...(ββ((π₯β2) / π)))) β π β (1...(ββ((π₯β2) / π)))) |
18 | | rpvmasum2.g |
. . . . . . 7
β’ πΊ = (DChrβπ) |
19 | | rpvmasum.z |
. . . . . . 7
β’ π =
(β€/nβ€βπ) |
20 | | rpvmasum2.d |
. . . . . . 7
β’ π· = (BaseβπΊ) |
21 | | rpvmasum.l |
. . . . . . 7
β’ πΏ = (β€RHomβπ) |
22 | | rpvmasum2.w |
. . . . . . . . . . 11
β’ π = {π¦ β (π· β { 1 }) β£ Ξ£π β β ((π¦β(πΏβπ)) / π) = 0} |
23 | 22 | ssrab3 4080 |
. . . . . . . . . 10
β’ π β (π· β { 1 }) |
24 | | dchrisum0.b |
. . . . . . . . . 10
β’ (π β π β π) |
25 | 23, 24 | sselid 3980 |
. . . . . . . . 9
β’ (π β π β (π· β { 1 })) |
26 | 25 | eldifad 3960 |
. . . . . . . 8
β’ (π β π β π·) |
27 | 26 | ad3antrrr 729 |
. . . . . . 7
β’ ((((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β§ π β
(1...(ββ((π₯β2) / π)))) β π β π·) |
28 | | elfzelz 13498 |
. . . . . . . 8
β’ (π β
(1...(ββ((π₯β2) / π))) β π β β€) |
29 | 28 | adantl 483 |
. . . . . . 7
β’ ((((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β§ π β
(1...(ββ((π₯β2) / π)))) β π β β€) |
30 | 18, 19, 20, 21, 27, 29 | dchrzrhcl 26738 |
. . . . . 6
β’ ((((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β§ π β
(1...(ββ((π₯β2) / π)))) β (πβ(πΏβπ)) β β) |
31 | | elfznn 13527 |
. . . . . . . . . 10
β’ (π β
(1...(ββ((π₯β2) / π))) β π β β) |
32 | 31 | adantl 483 |
. . . . . . . . 9
β’ ((((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β§ π β
(1...(ββ((π₯β2) / π)))) β π β β) |
33 | 32 | nnrpd 13011 |
. . . . . . . 8
β’ ((((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β§ π β
(1...(ββ((π₯β2) / π)))) β π β β+) |
34 | 33 | rpsqrtcld 15355 |
. . . . . . 7
β’ ((((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β§ π β
(1...(ββ((π₯β2) / π)))) β (ββπ) β
β+) |
35 | 34 | rpcnd 13015 |
. . . . . 6
β’ ((((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β§ π β
(1...(ββ((π₯β2) / π)))) β (ββπ) β β) |
36 | 34 | rpne0d 13018 |
. . . . . 6
β’ ((((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β§ π β
(1...(ββ((π₯β2) / π)))) β (ββπ) β 0) |
37 | 30, 35, 36 | divcld 11987 |
. . . . 5
β’ ((((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β§ π β
(1...(ββ((π₯β2) / π)))) β ((πβ(πΏβπ)) / (ββπ)) β β) |
38 | 17, 37 | syldan 592 |
. . . 4
β’ ((((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β§ π β
(((ββπ₯) +
1)...(ββ((π₯β2) / π)))) β ((πβ(πΏβπ)) / (ββπ)) β β) |
39 | 1, 38 | fsumcl 15676 |
. . 3
β’ (((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β Ξ£π β
(((ββπ₯) +
1)...(ββ((π₯β2) / π)))((πβ(πΏβπ)) / (ββπ)) β β) |
40 | 39 | abscld 15380 |
. 2
β’ (((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β (absβΞ£π
β (((ββπ₯)
+ 1)...(ββ((π₯β2) / π)))((πβ(πΏβπ)) / (ββπ))) β β) |
41 | | 1zzd 12590 |
. . . . . . . 8
β’ (π β 1 β
β€) |
42 | 26 | adantr 482 |
. . . . . . . . . . . 12
β’ ((π β§ π β β) β π β π·) |
43 | | nnz 12576 |
. . . . . . . . . . . . 13
β’ (π β β β π β
β€) |
44 | 43 | adantl 483 |
. . . . . . . . . . . 12
β’ ((π β§ π β β) β π β β€) |
45 | 18, 19, 20, 21, 42, 44 | dchrzrhcl 26738 |
. . . . . . . . . . 11
β’ ((π β§ π β β) β (πβ(πΏβπ)) β β) |
46 | | nnrp 12982 |
. . . . . . . . . . . . . 14
β’ (π β β β π β
β+) |
47 | 46 | adantl 483 |
. . . . . . . . . . . . 13
β’ ((π β§ π β β) β π β β+) |
48 | 47 | rpsqrtcld 15355 |
. . . . . . . . . . . 12
β’ ((π β§ π β β) β (ββπ) β
β+) |
49 | 48 | rpcnd 13015 |
. . . . . . . . . . 11
β’ ((π β§ π β β) β (ββπ) β
β) |
50 | 48 | rpne0d 13018 |
. . . . . . . . . . 11
β’ ((π β§ π β β) β (ββπ) β 0) |
51 | 45, 49, 50 | divcld 11987 |
. . . . . . . . . 10
β’ ((π β§ π β β) β ((πβ(πΏβπ)) / (ββπ)) β β) |
52 | | dchrisum0lem1.f |
. . . . . . . . . . 11
β’ πΉ = (π β β β¦ ((πβ(πΏβπ)) / (ββπ))) |
53 | | 2fveq3 6894 |
. . . . . . . . . . . . 13
β’ (π = π β (πβ(πΏβπ)) = (πβ(πΏβπ))) |
54 | | fveq2 6889 |
. . . . . . . . . . . . 13
β’ (π = π β (ββπ) = (ββπ)) |
55 | 53, 54 | oveq12d 7424 |
. . . . . . . . . . . 12
β’ (π = π β ((πβ(πΏβπ)) / (ββπ)) = ((πβ(πΏβπ)) / (ββπ))) |
56 | 55 | cbvmptv 5261 |
. . . . . . . . . . 11
β’ (π β β β¦ ((πβ(πΏβπ)) / (ββπ))) = (π β β β¦ ((πβ(πΏβπ)) / (ββπ))) |
57 | 52, 56 | eqtri 2761 |
. . . . . . . . . 10
β’ πΉ = (π β β β¦ ((πβ(πΏβπ)) / (ββπ))) |
58 | 51, 57 | fmptd 7111 |
. . . . . . . . 9
β’ (π β πΉ:ββΆβ) |
59 | 58 | ffvelcdmda 7084 |
. . . . . . . 8
β’ ((π β§ π β β) β (πΉβπ) β β) |
60 | 10, 41, 59 | serf 13993 |
. . . . . . 7
β’ (π β seq1( + , πΉ):ββΆβ) |
61 | 60 | ad2antrr 725 |
. . . . . 6
β’ (((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β seq1( + , πΉ):ββΆβ) |
62 | 3 | rpregt0d 13019 |
. . . . . . . . . 10
β’ ((π β§ π₯ β β+) β (π₯ β β β§ 0 <
π₯)) |
63 | 62 | adantr 482 |
. . . . . . . . 9
β’ (((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β (π₯ β β
β§ 0 < π₯)) |
64 | 63 | simpld 496 |
. . . . . . . 8
β’ (((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β π₯ β
β) |
65 | | 1red 11212 |
. . . . . . . . 9
β’ (((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β 1 β β) |
66 | | elfznn 13527 |
. . . . . . . . . . 11
β’ (π β
(1...(ββπ₯))
β π β
β) |
67 | 66 | adantl 483 |
. . . . . . . . . 10
β’ (((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β π β
β) |
68 | 67 | nnred 12224 |
. . . . . . . . 9
β’ (((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β π β
β) |
69 | 67 | nnge1d 12257 |
. . . . . . . . 9
β’ (((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β 1 β€ π) |
70 | 3 | rpred 13013 |
. . . . . . . . . . 11
β’ ((π β§ π₯ β β+) β π₯ β
β) |
71 | | fznnfl 13824 |
. . . . . . . . . . 11
β’ (π₯ β β β (π β
(1...(ββπ₯))
β (π β β
β§ π β€ π₯))) |
72 | 70, 71 | syl 17 |
. . . . . . . . . 10
β’ ((π β§ π₯ β β+) β (π β
(1...(ββπ₯))
β (π β β
β§ π β€ π₯))) |
73 | 72 | simplbda 501 |
. . . . . . . . 9
β’ (((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β π β€ π₯) |
74 | 65, 68, 64, 69, 73 | letrd 11368 |
. . . . . . . 8
β’ (((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β 1 β€ π₯) |
75 | | flge1nn 13783 |
. . . . . . . 8
β’ ((π₯ β β β§ 1 β€
π₯) β
(ββπ₯) β
β) |
76 | 64, 74, 75 | syl2anc 585 |
. . . . . . 7
β’ (((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β (ββπ₯)
β β) |
77 | | eluznn 12899 |
. . . . . . 7
β’
(((ββπ₯)
β β β§ (ββ((π₯β2) / π)) β
(β€β₯β(ββπ₯))) β (ββ((π₯β2) / π)) β β) |
78 | 76, 13, 77 | syl2anc 585 |
. . . . . 6
β’ (((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β (ββ((π₯β2) / π)) β β) |
79 | 61, 78 | ffvelcdmd 7085 |
. . . . 5
β’ (((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β (seq1( + , πΉ)β(ββ((π₯β2) / π))) β β) |
80 | | dchrisum0.s |
. . . . . . 7
β’ (π β seq1( + , πΉ) β π) |
81 | | climcl 15440 |
. . . . . . 7
β’ (seq1( +
, πΉ) β π β π β β) |
82 | 80, 81 | syl 17 |
. . . . . 6
β’ (π β π β β) |
83 | 82 | ad2antrr 725 |
. . . . 5
β’ (((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β π β
β) |
84 | 79, 83 | subcld 11568 |
. . . 4
β’ (((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β ((seq1( + , πΉ)β(ββ((π₯β2) / π))) β π) β β) |
85 | 84 | abscld 15380 |
. . 3
β’ (((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β (absβ((seq1( + , πΉ)β(ββ((π₯β2) / π))) β π)) β β) |
86 | 61, 76 | ffvelcdmd 7085 |
. . . . 5
β’ (((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β (seq1( + , πΉ)β(ββπ₯)) β β) |
87 | 83, 86 | subcld 11568 |
. . . 4
β’ (((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β (π β (seq1( +
, πΉ)β(ββπ₯))) β β) |
88 | 87 | abscld 15380 |
. . 3
β’ (((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β (absβ(π
β (seq1( + , πΉ)β(ββπ₯)))) β β) |
89 | 85, 88 | readdcld 11240 |
. 2
β’ (((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β ((absβ((seq1( + , πΉ)β(ββ((π₯β2) / π))) β π)) + (absβ(π β (seq1( + , πΉ)β(ββπ₯))))) β β) |
90 | | 2re 12283 |
. . . . . 6
β’ 2 β
β |
91 | | dchrisum0.c |
. . . . . . . 8
β’ (π β πΆ β (0[,)+β)) |
92 | | elrege0 13428 |
. . . . . . . 8
β’ (πΆ β (0[,)+β) β
(πΆ β β β§ 0
β€ πΆ)) |
93 | 91, 92 | sylib 217 |
. . . . . . 7
β’ (π β (πΆ β β β§ 0 β€ πΆ)) |
94 | 93 | simpld 496 |
. . . . . 6
β’ (π β πΆ β β) |
95 | | remulcl 11192 |
. . . . . 6
β’ ((2
β β β§ πΆ
β β) β (2 Β· πΆ) β β) |
96 | 90, 94, 95 | sylancr 588 |
. . . . 5
β’ (π β (2 Β· πΆ) β
β) |
97 | 96 | adantr 482 |
. . . 4
β’ ((π β§ π₯ β β+) β (2
Β· πΆ) β
β) |
98 | 3 | rpsqrtcld 15355 |
. . . 4
β’ ((π β§ π₯ β β+) β
(ββπ₯) β
β+) |
99 | 97, 98 | rerpdivcld 13044 |
. . 3
β’ ((π β§ π₯ β β+) β ((2
Β· πΆ) /
(ββπ₯)) β
β) |
100 | 99 | adantr 482 |
. 2
β’ (((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β ((2 Β· πΆ) /
(ββπ₯)) β
β) |
101 | | ssun1 4172 |
. . . . . . . . . . 11
β’
(1...(ββπ₯)) β ((1...(ββπ₯)) βͺ (((ββπ₯) + 1)...(ββ((π₯β2) / π)))) |
102 | 101, 15 | sseqtrrid 4035 |
. . . . . . . . . 10
β’ (((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β (1...(ββπ₯)) β (1...(ββ((π₯β2) / π)))) |
103 | 102 | sselda 3982 |
. . . . . . . . 9
β’ ((((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β§ π β
(1...(ββπ₯)))
β π β
(1...(ββ((π₯β2) / π)))) |
104 | | ovex 7439 |
. . . . . . . . . . 11
β’ ((πβ(πΏβπ)) / (ββπ)) β V |
105 | 55, 52, 104 | fvmpt3i 7001 |
. . . . . . . . . 10
β’ (π β β β (πΉβπ) = ((πβ(πΏβπ)) / (ββπ))) |
106 | 32, 105 | syl 17 |
. . . . . . . . 9
β’ ((((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β§ π β
(1...(ββ((π₯β2) / π)))) β (πΉβπ) = ((πβ(πΏβπ)) / (ββπ))) |
107 | 103, 106 | syldan 592 |
. . . . . . . 8
β’ ((((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β§ π β
(1...(ββπ₯)))
β (πΉβπ) = ((πβ(πΏβπ)) / (ββπ))) |
108 | 76, 10 | eleqtrdi 2844 |
. . . . . . . 8
β’ (((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β (ββπ₯)
β (β€β₯β1)) |
109 | 103, 37 | syldan 592 |
. . . . . . . 8
β’ ((((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β§ π β
(1...(ββπ₯)))
β ((πβ(πΏβπ)) / (ββπ)) β β) |
110 | 107, 108,
109 | fsumser 15673 |
. . . . . . 7
β’ (((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β Ξ£π β
(1...(ββπ₯))((πβ(πΏβπ)) / (ββπ)) = (seq1( + , πΉ)β(ββπ₯))) |
111 | 110, 86 | eqeltrd 2834 |
. . . . . 6
β’ (((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β Ξ£π β
(1...(ββπ₯))((πβ(πΏβπ)) / (ββπ)) β β) |
112 | 111, 39 | pncan2d 11570 |
. . . . 5
β’ (((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β ((Ξ£π β
(1...(ββπ₯))((πβ(πΏβπ)) / (ββπ)) + Ξ£π β (((ββπ₯) + 1)...(ββ((π₯β2) / π)))((πβ(πΏβπ)) / (ββπ))) β Ξ£π β (1...(ββπ₯))((πβ(πΏβπ)) / (ββπ))) = Ξ£π β (((ββπ₯) + 1)...(ββ((π₯β2) / π)))((πβ(πΏβπ)) / (ββπ))) |
113 | | reflcl 13758 |
. . . . . . . . . . 11
β’ (π₯ β β β
(ββπ₯) β
β) |
114 | 64, 113 | syl 17 |
. . . . . . . . . 10
β’ (((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β (ββπ₯)
β β) |
115 | 114 | ltp1d 12141 |
. . . . . . . . 9
β’ (((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β (ββπ₯)
< ((ββπ₯) +
1)) |
116 | | fzdisj 13525 |
. . . . . . . . 9
β’
((ββπ₯)
< ((ββπ₯) +
1) β ((1...(ββπ₯)) β© (((ββπ₯) + 1)...(ββ((π₯β2) / π)))) = β
) |
117 | 115, 116 | syl 17 |
. . . . . . . 8
β’ (((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β ((1...(ββπ₯)) β© (((ββπ₯) + 1)...(ββ((π₯β2) / π)))) = β
) |
118 | | fzfid 13935 |
. . . . . . . 8
β’ (((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β (1...(ββ((π₯β2) / π))) β Fin) |
119 | 117, 15, 118, 37 | fsumsplit 15684 |
. . . . . . 7
β’ (((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β Ξ£π β
(1...(ββ((π₯β2) / π)))((πβ(πΏβπ)) / (ββπ)) = (Ξ£π β (1...(ββπ₯))((πβ(πΏβπ)) / (ββπ)) + Ξ£π β (((ββπ₯) + 1)...(ββ((π₯β2) / π)))((πβ(πΏβπ)) / (ββπ)))) |
120 | 78, 10 | eleqtrdi 2844 |
. . . . . . . 8
β’ (((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β (ββ((π₯β2) / π)) β
(β€β₯β1)) |
121 | 106, 120,
37 | fsumser 15673 |
. . . . . . 7
β’ (((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β Ξ£π β
(1...(ββ((π₯β2) / π)))((πβ(πΏβπ)) / (ββπ)) = (seq1( + , πΉ)β(ββ((π₯β2) / π)))) |
122 | 119, 121 | eqtr3d 2775 |
. . . . . 6
β’ (((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β (Ξ£π β
(1...(ββπ₯))((πβ(πΏβπ)) / (ββπ)) + Ξ£π β (((ββπ₯) + 1)...(ββ((π₯β2) / π)))((πβ(πΏβπ)) / (ββπ))) = (seq1( + , πΉ)β(ββ((π₯β2) / π)))) |
123 | 122, 110 | oveq12d 7424 |
. . . . 5
β’ (((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β ((Ξ£π β
(1...(ββπ₯))((πβ(πΏβπ)) / (ββπ)) + Ξ£π β (((ββπ₯) + 1)...(ββ((π₯β2) / π)))((πβ(πΏβπ)) / (ββπ))) β Ξ£π β (1...(ββπ₯))((πβ(πΏβπ)) / (ββπ))) = ((seq1( + , πΉ)β(ββ((π₯β2) / π))) β (seq1( + , πΉ)β(ββπ₯)))) |
124 | 112, 123 | eqtr3d 2775 |
. . . 4
β’ (((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β Ξ£π β
(((ββπ₯) +
1)...(ββ((π₯β2) / π)))((πβ(πΏβπ)) / (ββπ)) = ((seq1( + , πΉ)β(ββ((π₯β2) / π))) β (seq1( + , πΉ)β(ββπ₯)))) |
125 | 124 | fveq2d 6893 |
. . 3
β’ (((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β (absβΞ£π
β (((ββπ₯)
+ 1)...(ββ((π₯β2) / π)))((πβ(πΏβπ)) / (ββπ))) = (absβ((seq1( + , πΉ)β(ββ((π₯β2) / π))) β (seq1( + , πΉ)β(ββπ₯))))) |
126 | 79, 86, 83 | abs3difd 15404 |
. . 3
β’ (((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β (absβ((seq1( + , πΉ)β(ββ((π₯β2) / π))) β (seq1( + , πΉ)β(ββπ₯)))) β€ ((absβ((seq1( + , πΉ)β(ββ((π₯β2) / π))) β π)) + (absβ(π β (seq1( + , πΉ)β(ββπ₯)))))) |
127 | 125, 126 | eqbrtrd 5170 |
. 2
β’ (((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β (absβΞ£π
β (((ββπ₯)
+ 1)...(ββ((π₯β2) / π)))((πβ(πΏβπ)) / (ββπ))) β€ ((absβ((seq1( + , πΉ)β(ββ((π₯β2) / π))) β π)) + (absβ(π β (seq1( + , πΉ)β(ββπ₯)))))) |
128 | 94 | ad2antrr 725 |
. . . . 5
β’ (((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β πΆ β
β) |
129 | | simplr 768 |
. . . . . 6
β’ (((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β π₯ β
β+) |
130 | 129 | rpsqrtcld 15355 |
. . . . 5
β’ (((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β (ββπ₯)
β β+) |
131 | 128, 130 | rerpdivcld 13044 |
. . . 4
β’ (((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β (πΆ /
(ββπ₯)) β
β) |
132 | | 2z 12591 |
. . . . . . . . . 10
β’ 2 β
β€ |
133 | | rpexpcl 14043 |
. . . . . . . . . 10
β’ ((π₯ β β+
β§ 2 β β€) β (π₯β2) β
β+) |
134 | 3, 132, 133 | sylancl 587 |
. . . . . . . . 9
β’ ((π β§ π₯ β β+) β (π₯β2) β
β+) |
135 | 134 | adantr 482 |
. . . . . . . 8
β’ (((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β (π₯β2) β
β+) |
136 | 67 | nnrpd 13011 |
. . . . . . . 8
β’ (((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β π β
β+) |
137 | 135, 136 | rpdivcld 13030 |
. . . . . . 7
β’ (((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β ((π₯β2) / π) β
β+) |
138 | 137 | rpsqrtcld 15355 |
. . . . . 6
β’ (((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β (ββ((π₯β2) / π)) β
β+) |
139 | 128, 138 | rerpdivcld 13044 |
. . . . 5
β’ (((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β (πΆ /
(ββ((π₯β2)
/ π))) β
β) |
140 | | 2fveq3 6894 |
. . . . . . . 8
β’ (π¦ = ((π₯β2) / π) β (seq1( + , πΉ)β(ββπ¦)) = (seq1( + , πΉ)β(ββ((π₯β2) / π)))) |
141 | 140 | fvoveq1d 7428 |
. . . . . . 7
β’ (π¦ = ((π₯β2) / π) β (absβ((seq1( + , πΉ)β(ββπ¦)) β π)) = (absβ((seq1( + , πΉ)β(ββ((π₯β2) / π))) β π))) |
142 | | fveq2 6889 |
. . . . . . . 8
β’ (π¦ = ((π₯β2) / π) β (ββπ¦) = (ββ((π₯β2) / π))) |
143 | 142 | oveq2d 7422 |
. . . . . . 7
β’ (π¦ = ((π₯β2) / π) β (πΆ / (ββπ¦)) = (πΆ / (ββ((π₯β2) / π)))) |
144 | 141, 143 | breq12d 5161 |
. . . . . 6
β’ (π¦ = ((π₯β2) / π) β ((absβ((seq1( + , πΉ)β(ββπ¦)) β π)) β€ (πΆ / (ββπ¦)) β (absβ((seq1( + , πΉ)β(ββ((π₯β2) / π))) β π)) β€ (πΆ / (ββ((π₯β2) / π))))) |
145 | | dchrisum0.1 |
. . . . . . 7
β’ (π β βπ¦ β (1[,)+β)(absβ((seq1( + ,
πΉ)β(ββπ¦)) β π)) β€ (πΆ / (ββπ¦))) |
146 | 145 | ad2antrr 725 |
. . . . . 6
β’ (((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β βπ¦ β
(1[,)+β)(absβ((seq1( + , πΉ)β(ββπ¦)) β π)) β€ (πΆ / (ββπ¦))) |
147 | 134 | rpred 13013 |
. . . . . . . 8
β’ ((π β§ π₯ β β+) β (π₯β2) β
β) |
148 | | nndivre 12250 |
. . . . . . . 8
β’ (((π₯β2) β β β§
π β β) β
((π₯β2) / π) β
β) |
149 | 147, 66, 148 | syl2an 597 |
. . . . . . 7
β’ (((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β ((π₯β2) / π) β
β) |
150 | 12 | simpld 496 |
. . . . . . . 8
β’ (((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β π₯ β€ ((π₯β2) / π)) |
151 | 65, 64, 149, 74, 150 | letrd 11368 |
. . . . . . 7
β’ (((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β 1 β€ ((π₯β2) /
π)) |
152 | | 1re 11211 |
. . . . . . . 8
β’ 1 β
β |
153 | | elicopnf 13419 |
. . . . . . . 8
β’ (1 β
β β (((π₯β2)
/ π) β (1[,)+β)
β (((π₯β2) / π) β β β§ 1 β€
((π₯β2) / π)))) |
154 | 152, 153 | ax-mp 5 |
. . . . . . 7
β’ (((π₯β2) / π) β (1[,)+β) β (((π₯β2) / π) β β β§ 1 β€ ((π₯β2) / π))) |
155 | 149, 151,
154 | sylanbrc 584 |
. . . . . 6
β’ (((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β ((π₯β2) / π) β
(1[,)+β)) |
156 | 144, 146,
155 | rspcdva 3614 |
. . . . 5
β’ (((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β (absβ((seq1( + , πΉ)β(ββ((π₯β2) / π))) β π)) β€ (πΆ / (ββ((π₯β2) / π)))) |
157 | 130 | rpregt0d 13019 |
. . . . . 6
β’ (((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β ((ββπ₯)
β β β§ 0 < (ββπ₯))) |
158 | 138 | rpregt0d 13019 |
. . . . . 6
β’ (((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β ((ββ((π₯β2) / π)) β β β§ 0 <
(ββ((π₯β2)
/ π)))) |
159 | 93 | ad2antrr 725 |
. . . . . 6
β’ (((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β (πΆ β β
β§ 0 β€ πΆ)) |
160 | 129 | rprege0d 13020 |
. . . . . . . 8
β’ (((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β (π₯ β β
β§ 0 β€ π₯)) |
161 | 137 | rprege0d 13020 |
. . . . . . . 8
β’ (((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β (((π₯β2) / π) β β β§ 0 β€
((π₯β2) / π))) |
162 | | sqrtle 15204 |
. . . . . . . 8
β’ (((π₯ β β β§ 0 β€
π₯) β§ (((π₯β2) / π) β β β§ 0 β€ ((π₯β2) / π))) β (π₯ β€ ((π₯β2) / π) β (ββπ₯) β€ (ββ((π₯β2) / π)))) |
163 | 160, 161,
162 | syl2anc 585 |
. . . . . . 7
β’ (((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β (π₯ β€ ((π₯β2) / π) β (ββπ₯) β€ (ββ((π₯β2) / π)))) |
164 | 150, 163 | mpbid 231 |
. . . . . 6
β’ (((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β (ββπ₯)
β€ (ββ((π₯β2) / π))) |
165 | | lediv2a 12105 |
. . . . . 6
β’
(((((ββπ₯) β β β§ 0 <
(ββπ₯)) β§
((ββ((π₯β2)
/ π)) β β β§
0 < (ββ((π₯β2) / π))) β§ (πΆ β β β§ 0 β€ πΆ)) β§ (ββπ₯) β€ (ββ((π₯β2) / π))) β (πΆ / (ββ((π₯β2) / π))) β€ (πΆ / (ββπ₯))) |
166 | 157, 158,
159, 164, 165 | syl31anc 1374 |
. . . . 5
β’ (((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β (πΆ /
(ββ((π₯β2)
/ π))) β€ (πΆ / (ββπ₯))) |
167 | 85, 139, 131, 156, 166 | letrd 11368 |
. . . 4
β’ (((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β (absβ((seq1( + , πΉ)β(ββ((π₯β2) / π))) β π)) β€ (πΆ / (ββπ₯))) |
168 | 83, 86 | abssubd 15397 |
. . . . 5
β’ (((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β (absβ(π
β (seq1( + , πΉ)β(ββπ₯)))) = (absβ((seq1( + , πΉ)β(ββπ₯)) β π))) |
169 | | 2fveq3 6894 |
. . . . . . . 8
β’ (π¦ = π₯ β (seq1( + , πΉ)β(ββπ¦)) = (seq1( + , πΉ)β(ββπ₯))) |
170 | 169 | fvoveq1d 7428 |
. . . . . . 7
β’ (π¦ = π₯ β (absβ((seq1( + , πΉ)β(ββπ¦)) β π)) = (absβ((seq1( + , πΉ)β(ββπ₯)) β π))) |
171 | | fveq2 6889 |
. . . . . . . 8
β’ (π¦ = π₯ β (ββπ¦) = (ββπ₯)) |
172 | 171 | oveq2d 7422 |
. . . . . . 7
β’ (π¦ = π₯ β (πΆ / (ββπ¦)) = (πΆ / (ββπ₯))) |
173 | 170, 172 | breq12d 5161 |
. . . . . 6
β’ (π¦ = π₯ β ((absβ((seq1( + , πΉ)β(ββπ¦)) β π)) β€ (πΆ / (ββπ¦)) β (absβ((seq1( + , πΉ)β(ββπ₯)) β π)) β€ (πΆ / (ββπ₯)))) |
174 | | elicopnf 13419 |
. . . . . . . 8
β’ (1 β
β β (π₯ β
(1[,)+β) β (π₯
β β β§ 1 β€ π₯))) |
175 | 152, 174 | ax-mp 5 |
. . . . . . 7
β’ (π₯ β (1[,)+β) β
(π₯ β β β§ 1
β€ π₯)) |
176 | 64, 74, 175 | sylanbrc 584 |
. . . . . 6
β’ (((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β π₯ β
(1[,)+β)) |
177 | 173, 146,
176 | rspcdva 3614 |
. . . . 5
β’ (((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β (absβ((seq1( + , πΉ)β(ββπ₯)) β π)) β€ (πΆ / (ββπ₯))) |
178 | 168, 177 | eqbrtrd 5170 |
. . . 4
β’ (((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β (absβ(π
β (seq1( + , πΉ)β(ββπ₯)))) β€ (πΆ / (ββπ₯))) |
179 | 85, 88, 131, 131, 167, 178 | le2addd 11830 |
. . 3
β’ (((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β ((absβ((seq1( + , πΉ)β(ββ((π₯β2) / π))) β π)) + (absβ(π β (seq1( + , πΉ)β(ββπ₯))))) β€ ((πΆ / (ββπ₯)) + (πΆ / (ββπ₯)))) |
180 | | 2cnd 12287 |
. . . . 5
β’ (((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β 2 β β) |
181 | 94 | adantr 482 |
. . . . . . 7
β’ ((π β§ π₯ β β+) β πΆ β
β) |
182 | 181 | recnd 11239 |
. . . . . 6
β’ ((π β§ π₯ β β+) β πΆ β
β) |
183 | 182 | adantr 482 |
. . . . 5
β’ (((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β πΆ β
β) |
184 | 98 | rpcnne0d 13022 |
. . . . . 6
β’ ((π β§ π₯ β β+) β
((ββπ₯) β
β β§ (ββπ₯) β 0)) |
185 | 184 | adantr 482 |
. . . . 5
β’ (((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β ((ββπ₯)
β β β§ (ββπ₯) β 0)) |
186 | | divass 11887 |
. . . . 5
β’ ((2
β β β§ πΆ
β β β§ ((ββπ₯) β β β§ (ββπ₯) β 0)) β ((2 Β·
πΆ) / (ββπ₯)) = (2 Β· (πΆ / (ββπ₯)))) |
187 | 180, 183,
185, 186 | syl3anc 1372 |
. . . 4
β’ (((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β ((2 Β· πΆ) /
(ββπ₯)) = (2
Β· (πΆ /
(ββπ₯)))) |
188 | 131 | recnd 11239 |
. . . . 5
β’ (((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β (πΆ /
(ββπ₯)) β
β) |
189 | 188 | 2timesd 12452 |
. . . 4
β’ (((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β (2 Β· (πΆ /
(ββπ₯))) =
((πΆ / (ββπ₯)) + (πΆ / (ββπ₯)))) |
190 | 187, 189 | eqtrd 2773 |
. . 3
β’ (((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β ((2 Β· πΆ) /
(ββπ₯)) =
((πΆ / (ββπ₯)) + (πΆ / (ββπ₯)))) |
191 | 179, 190 | breqtrrd 5176 |
. 2
β’ (((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β ((absβ((seq1( + , πΉ)β(ββ((π₯β2) / π))) β π)) + (absβ(π β (seq1( + , πΉ)β(ββπ₯))))) β€ ((2 Β· πΆ) / (ββπ₯))) |
192 | 40, 89, 100, 127, 191 | letrd 11368 |
1
β’ (((π β§ π₯ β β+) β§ π β
(1...(ββπ₯)))
β (absβΞ£π
β (((ββπ₯)
+ 1)...(ββ((π₯β2) / π)))((πβ(πΏβπ)) / (ββπ))) β€ ((2 Β· πΆ) / (ββπ₯))) |