Step | Hyp | Ref
| Expression |
1 | | nn0uz 12861 |
. 2
β’
β0 = (β€β₯β0) |
2 | | cnelprrecn 11200 |
. . 3
β’ β
β {β, β} |
3 | 2 | a1i 11 |
. 2
β’ ((π β§ π β π) β β β {β,
β}) |
4 | | 0zd 12567 |
. 2
β’ ((π β§ π β π) β 0 β β€) |
5 | | fzfid 13935 |
. . . . . 6
β’ ((((π β§ π β π) β§ π β β0) β§ π¦ β π΅) β (0...π) β Fin) |
6 | | pserf.g |
. . . . . . . 8
β’ πΊ = (π₯ β β β¦ (π β β0 β¦ ((π΄βπ) Β· (π₯βπ)))) |
7 | | pserf.a |
. . . . . . . . 9
β’ (π β π΄:β0βΆβ) |
8 | 7 | ad3antrrr 729 |
. . . . . . . 8
β’ ((((π β§ π β π) β§ π β β0) β§ π¦ β π΅) β π΄:β0βΆβ) |
9 | | pserdv.b |
. . . . . . . . . . 11
β’ π΅ = (0(ballβ(abs β
β ))(((absβπ) +
π) / 2)) |
10 | | cnxmet 24281 |
. . . . . . . . . . . 12
β’ (abs
β β ) β (βMetββ) |
11 | | 0cnd 11204 |
. . . . . . . . . . . 12
β’ ((π β§ π β π) β 0 β β) |
12 | | pserf.f |
. . . . . . . . . . . . . . 15
β’ πΉ = (π¦ β π β¦ Ξ£π β β0 ((πΊβπ¦)βπ)) |
13 | | pserf.r |
. . . . . . . . . . . . . . 15
β’ π
= sup({π β β β£ seq0( + , (πΊβπ)) β dom β }, β*,
< ) |
14 | | psercn.s |
. . . . . . . . . . . . . . 15
β’ π = (β‘abs β (0[,)π
)) |
15 | | psercn.m |
. . . . . . . . . . . . . . 15
β’ π = if(π
β β, (((absβπ) + π
) / 2), ((absβπ) + 1)) |
16 | 6, 12, 7, 13, 14, 15 | pserdvlem1 25931 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β π) β ((((absβπ) + π) / 2) β β+ β§
(absβπ) <
(((absβπ) + π) / 2) β§ (((absβπ) + π) / 2) < π
)) |
17 | 16 | simp1d 1143 |
. . . . . . . . . . . . 13
β’ ((π β§ π β π) β (((absβπ) + π) / 2) β
β+) |
18 | 17 | rpxrd 13014 |
. . . . . . . . . . . 12
β’ ((π β§ π β π) β (((absβπ) + π) / 2) β
β*) |
19 | | blssm 23916 |
. . . . . . . . . . . 12
β’ (((abs
β β ) β (βMetββ) β§ 0 β β
β§ (((absβπ) +
π) / 2) β
β*) β (0(ballβ(abs β β
))(((absβπ) + π) / 2)) β
β) |
20 | 10, 11, 18, 19 | mp3an2i 1467 |
. . . . . . . . . . 11
β’ ((π β§ π β π) β (0(ballβ(abs β β
))(((absβπ) + π) / 2)) β
β) |
21 | 9, 20 | eqsstrid 4030 |
. . . . . . . . . 10
β’ ((π β§ π β π) β π΅ β β) |
22 | 21 | adantr 482 |
. . . . . . . . 9
β’ (((π β§ π β π) β§ π β β0) β π΅ β
β) |
23 | 22 | sselda 3982 |
. . . . . . . 8
β’ ((((π β§ π β π) β§ π β β0) β§ π¦ β π΅) β π¦ β β) |
24 | 6, 8, 23 | psergf 25916 |
. . . . . . 7
β’ ((((π β§ π β π) β§ π β β0) β§ π¦ β π΅) β (πΊβπ¦):β0βΆβ) |
25 | | elfznn0 13591 |
. . . . . . 7
β’ (π β (0...π) β π β β0) |
26 | | ffvelcdm 7081 |
. . . . . . 7
β’ (((πΊβπ¦):β0βΆβ β§
π β
β0) β ((πΊβπ¦)βπ) β β) |
27 | 24, 25, 26 | syl2an 597 |
. . . . . 6
β’
(((((π β§ π β π) β§ π β β0) β§ π¦ β π΅) β§ π β (0...π)) β ((πΊβπ¦)βπ) β β) |
28 | 5, 27 | fsumcl 15676 |
. . . . 5
β’ ((((π β§ π β π) β§ π β β0) β§ π¦ β π΅) β Ξ£π β (0...π)((πΊβπ¦)βπ) β β) |
29 | 28 | fmpttd 7112 |
. . . 4
β’ (((π β§ π β π) β§ π β β0) β (π¦ β π΅ β¦ Ξ£π β (0...π)((πΊβπ¦)βπ)):π΅βΆβ) |
30 | | cnex 11188 |
. . . . 5
β’ β
β V |
31 | 9 | ovexi 7440 |
. . . . 5
β’ π΅ β V |
32 | 30, 31 | elmap 8862 |
. . . 4
β’ ((π¦ β π΅ β¦ Ξ£π β (0...π)((πΊβπ¦)βπ)) β (β βm π΅) β (π¦ β π΅ β¦ Ξ£π β (0...π)((πΊβπ¦)βπ)):π΅βΆβ) |
33 | 29, 32 | sylibr 233 |
. . 3
β’ (((π β§ π β π) β§ π β β0) β (π¦ β π΅ β¦ Ξ£π β (0...π)((πΊβπ¦)βπ)) β (β βm π΅)) |
34 | 33 | fmpttd 7112 |
. 2
β’ ((π β§ π β π) β (π β β0 β¦ (π¦ β π΅ β¦ Ξ£π β (0...π)((πΊβπ¦)βπ))):β0βΆ(β
βm π΅)) |
35 | 6, 12, 7, 13, 14, 15 | psercn 25930 |
. . . . 5
β’ (π β πΉ β (πβcnββ)) |
36 | | cncff 24401 |
. . . . 5
β’ (πΉ β (πβcnββ) β πΉ:πβΆβ) |
37 | 35, 36 | syl 17 |
. . . 4
β’ (π β πΉ:πβΆβ) |
38 | 37 | adantr 482 |
. . 3
β’ ((π β§ π β π) β πΉ:πβΆβ) |
39 | 6, 12, 7, 13, 14, 16 | psercnlem2 25928 |
. . . . . 6
β’ ((π β§ π β π) β (π β (0(ballβ(abs β β
))(((absβπ) + π) / 2)) β§ (0(ballβ(abs
β β ))(((absβπ) + π) / 2)) β (β‘abs β (0[,](((absβπ) + π) / 2))) β§ (β‘abs β (0[,](((absβπ) + π) / 2))) β π)) |
40 | 39 | simp2d 1144 |
. . . . 5
β’ ((π β§ π β π) β (0(ballβ(abs β β
))(((absβπ) + π) / 2)) β (β‘abs β (0[,](((absβπ) + π) / 2)))) |
41 | 9, 40 | eqsstrid 4030 |
. . . 4
β’ ((π β§ π β π) β π΅ β (β‘abs β (0[,](((absβπ) + π) / 2)))) |
42 | 39 | simp3d 1145 |
. . . 4
β’ ((π β§ π β π) β (β‘abs β (0[,](((absβπ) + π) / 2))) β π) |
43 | 41, 42 | sstrd 3992 |
. . 3
β’ ((π β§ π β π) β π΅ β π) |
44 | 38, 43 | fssresd 6756 |
. 2
β’ ((π β§ π β π) β (πΉ βΎ π΅):π΅βΆβ) |
45 | | 0zd 12567 |
. . . . 5
β’ (((π β§ π β π) β§ π§ β π΅) β 0 β β€) |
46 | | eqidd 2734 |
. . . . 5
β’ ((((π β§ π β π) β§ π§ β π΅) β§ π β β0) β ((πΊβπ§)βπ) = ((πΊβπ§)βπ)) |
47 | 7 | ad2antrr 725 |
. . . . . . 7
β’ (((π β§ π β π) β§ π§ β π΅) β π΄:β0βΆβ) |
48 | 21 | sselda 3982 |
. . . . . . 7
β’ (((π β§ π β π) β§ π§ β π΅) β π§ β β) |
49 | 6, 47, 48 | psergf 25916 |
. . . . . 6
β’ (((π β§ π β π) β§ π§ β π΅) β (πΊβπ§):β0βΆβ) |
50 | 49 | ffvelcdmda 7084 |
. . . . 5
β’ ((((π β§ π β π) β§ π§ β π΅) β§ π β β0) β ((πΊβπ§)βπ) β β) |
51 | 48 | abscld 15380 |
. . . . . . . 8
β’ (((π β§ π β π) β§ π§ β π΅) β (absβπ§) β β) |
52 | 51 | rexrd 11261 |
. . . . . . 7
β’ (((π β§ π β π) β§ π§ β π΅) β (absβπ§) β
β*) |
53 | 18 | adantr 482 |
. . . . . . 7
β’ (((π β§ π β π) β§ π§ β π΅) β (((absβπ) + π) / 2) β
β*) |
54 | | iccssxr 13404 |
. . . . . . . . 9
β’
(0[,]+β) β β* |
55 | 6, 7, 13 | radcnvcl 25921 |
. . . . . . . . 9
β’ (π β π
β (0[,]+β)) |
56 | 54, 55 | sselid 3980 |
. . . . . . . 8
β’ (π β π
β
β*) |
57 | 56 | ad2antrr 725 |
. . . . . . 7
β’ (((π β§ π β π) β§ π§ β π΅) β π
β
β*) |
58 | | 0cn 11203 |
. . . . . . . . . 10
β’ 0 β
β |
59 | | eqid 2733 |
. . . . . . . . . . 11
β’ (abs
β β ) = (abs β β ) |
60 | 59 | cnmetdval 24279 |
. . . . . . . . . 10
β’ ((π§ β β β§ 0 β
β) β (π§(abs
β β )0) = (absβ(π§ β 0))) |
61 | 48, 58, 60 | sylancl 587 |
. . . . . . . . 9
β’ (((π β§ π β π) β§ π§ β π΅) β (π§(abs β β )0) = (absβ(π§ β 0))) |
62 | 48 | subid1d 11557 |
. . . . . . . . . 10
β’ (((π β§ π β π) β§ π§ β π΅) β (π§ β 0) = π§) |
63 | 62 | fveq2d 6893 |
. . . . . . . . 9
β’ (((π β§ π β π) β§ π§ β π΅) β (absβ(π§ β 0)) = (absβπ§)) |
64 | 61, 63 | eqtrd 2773 |
. . . . . . . 8
β’ (((π β§ π β π) β§ π§ β π΅) β (π§(abs β β )0) = (absβπ§)) |
65 | | simpr 486 |
. . . . . . . . . 10
β’ (((π β§ π β π) β§ π§ β π΅) β π§ β π΅) |
66 | 65, 9 | eleqtrdi 2844 |
. . . . . . . . 9
β’ (((π β§ π β π) β§ π§ β π΅) β π§ β (0(ballβ(abs β β
))(((absβπ) + π) / 2))) |
67 | 10 | a1i 11 |
. . . . . . . . . 10
β’ (((π β§ π β π) β§ π§ β π΅) β (abs β β ) β
(βMetββ)) |
68 | | 0cnd 11204 |
. . . . . . . . . 10
β’ (((π β§ π β π) β§ π§ β π΅) β 0 β β) |
69 | | elbl3 23890 |
. . . . . . . . . 10
β’ ((((abs
β β ) β (βMetββ) β§ (((absβπ) + π) / 2) β β*) β§ (0
β β β§ π§
β β)) β (π§
β (0(ballβ(abs β β ))(((absβπ) + π) / 2)) β (π§(abs β β )0) <
(((absβπ) + π) / 2))) |
70 | 67, 53, 68, 48, 69 | syl22anc 838 |
. . . . . . . . 9
β’ (((π β§ π β π) β§ π§ β π΅) β (π§ β (0(ballβ(abs β β
))(((absβπ) + π) / 2)) β (π§(abs β β )0) <
(((absβπ) + π) / 2))) |
71 | 66, 70 | mpbid 231 |
. . . . . . . 8
β’ (((π β§ π β π) β§ π§ β π΅) β (π§(abs β β )0) <
(((absβπ) + π) / 2)) |
72 | 64, 71 | eqbrtrrd 5172 |
. . . . . . 7
β’ (((π β§ π β π) β§ π§ β π΅) β (absβπ§) < (((absβπ) + π) / 2)) |
73 | 16 | simp3d 1145 |
. . . . . . . 8
β’ ((π β§ π β π) β (((absβπ) + π) / 2) < π
) |
74 | 73 | adantr 482 |
. . . . . . 7
β’ (((π β§ π β π) β§ π§ β π΅) β (((absβπ) + π) / 2) < π
) |
75 | 52, 53, 57, 72, 74 | xrlttrd 13135 |
. . . . . 6
β’ (((π β§ π β π) β§ π§ β π΅) β (absβπ§) < π
) |
76 | 6, 47, 13, 48, 75 | radcnvlt2 25923 |
. . . . 5
β’ (((π β§ π β π) β§ π§ β π΅) β seq0( + , (πΊβπ§)) β dom β ) |
77 | 1, 45, 46, 50, 76 | isumclim2 15701 |
. . . 4
β’ (((π β§ π β π) β§ π§ β π΅) β seq0( + , (πΊβπ§)) β Ξ£π β β0 ((πΊβπ§)βπ)) |
78 | 43 | sselda 3982 |
. . . . 5
β’ (((π β§ π β π) β§ π§ β π΅) β π§ β π) |
79 | | fveq2 6889 |
. . . . . . . 8
β’ (π¦ = π§ β (πΊβπ¦) = (πΊβπ§)) |
80 | 79 | fveq1d 6891 |
. . . . . . 7
β’ (π¦ = π§ β ((πΊβπ¦)βπ) = ((πΊβπ§)βπ)) |
81 | 80 | sumeq2sdv 15647 |
. . . . . 6
β’ (π¦ = π§ β Ξ£π β β0 ((πΊβπ¦)βπ) = Ξ£π β β0 ((πΊβπ§)βπ)) |
82 | | sumex 15631 |
. . . . . 6
β’
Ξ£π β
β0 ((πΊβπ§)βπ) β V |
83 | 81, 12, 82 | fvmpt 6996 |
. . . . 5
β’ (π§ β π β (πΉβπ§) = Ξ£π β β0 ((πΊβπ§)βπ)) |
84 | 78, 83 | syl 17 |
. . . 4
β’ (((π β§ π β π) β§ π§ β π΅) β (πΉβπ§) = Ξ£π β β0 ((πΊβπ§)βπ)) |
85 | 77, 84 | breqtrrd 5176 |
. . 3
β’ (((π β§ π β π) β§ π§ β π΅) β seq0( + , (πΊβπ§)) β (πΉβπ§)) |
86 | | oveq2 7414 |
. . . . . . . . . . 11
β’ (π = π β (0...π) = (0...π)) |
87 | 86 | sumeq1d 15644 |
. . . . . . . . . 10
β’ (π = π β Ξ£π β (0...π)((πΊβπ¦)βπ) = Ξ£π β (0...π)((πΊβπ¦)βπ)) |
88 | 87 | mpteq2dv 5250 |
. . . . . . . . 9
β’ (π = π β (π¦ β π΅ β¦ Ξ£π β (0...π)((πΊβπ¦)βπ)) = (π¦ β π΅ β¦ Ξ£π β (0...π)((πΊβπ¦)βπ))) |
89 | | eqid 2733 |
. . . . . . . . 9
β’ (π β β0
β¦ (π¦ β π΅ β¦ Ξ£π β (0...π)((πΊβπ¦)βπ))) = (π β β0 β¦ (π¦ β π΅ β¦ Ξ£π β (0...π)((πΊβπ¦)βπ))) |
90 | 31 | mptex 7222 |
. . . . . . . . 9
β’ (π¦ β π΅ β¦ Ξ£π β (0...π)((πΊβπ¦)βπ)) β V |
91 | 88, 89, 90 | fvmpt 6996 |
. . . . . . . 8
β’ (π β β0
β ((π β
β0 β¦ (π¦ β π΅ β¦ Ξ£π β (0...π)((πΊβπ¦)βπ)))βπ) = (π¦ β π΅ β¦ Ξ£π β (0...π)((πΊβπ¦)βπ))) |
92 | 91 | adantl 483 |
. . . . . . 7
β’ ((((π β§ π β π) β§ π§ β π΅) β§ π β β0) β ((π β β0
β¦ (π¦ β π΅ β¦ Ξ£π β (0...π)((πΊβπ¦)βπ)))βπ) = (π¦ β π΅ β¦ Ξ£π β (0...π)((πΊβπ¦)βπ))) |
93 | 92 | fveq1d 6891 |
. . . . . 6
β’ ((((π β§ π β π) β§ π§ β π΅) β§ π β β0) β (((π β β0
β¦ (π¦ β π΅ β¦ Ξ£π β (0...π)((πΊβπ¦)βπ)))βπ)βπ§) = ((π¦ β π΅ β¦ Ξ£π β (0...π)((πΊβπ¦)βπ))βπ§)) |
94 | 79 | fveq1d 6891 |
. . . . . . . . 9
β’ (π¦ = π§ β ((πΊβπ¦)βπ) = ((πΊβπ§)βπ)) |
95 | 94 | sumeq2sdv 15647 |
. . . . . . . 8
β’ (π¦ = π§ β Ξ£π β (0...π)((πΊβπ¦)βπ) = Ξ£π β (0...π)((πΊβπ§)βπ)) |
96 | | eqid 2733 |
. . . . . . . 8
β’ (π¦ β π΅ β¦ Ξ£π β (0...π)((πΊβπ¦)βπ)) = (π¦ β π΅ β¦ Ξ£π β (0...π)((πΊβπ¦)βπ)) |
97 | | sumex 15631 |
. . . . . . . 8
β’
Ξ£π β
(0...π)((πΊβπ§)βπ) β V |
98 | 95, 96, 97 | fvmpt 6996 |
. . . . . . 7
β’ (π§ β π΅ β ((π¦ β π΅ β¦ Ξ£π β (0...π)((πΊβπ¦)βπ))βπ§) = Ξ£π β (0...π)((πΊβπ§)βπ)) |
99 | 98 | ad2antlr 726 |
. . . . . 6
β’ ((((π β§ π β π) β§ π§ β π΅) β§ π β β0) β ((π¦ β π΅ β¦ Ξ£π β (0...π)((πΊβπ¦)βπ))βπ§) = Ξ£π β (0...π)((πΊβπ§)βπ)) |
100 | | eqidd 2734 |
. . . . . . 7
β’
(((((π β§ π β π) β§ π§ β π΅) β§ π β β0) β§ π β (0...π)) β ((πΊβπ§)βπ) = ((πΊβπ§)βπ)) |
101 | | simpr 486 |
. . . . . . . 8
β’ ((((π β§ π β π) β§ π§ β π΅) β§ π β β0) β π β
β0) |
102 | 101, 1 | eleqtrdi 2844 |
. . . . . . 7
β’ ((((π β§ π β π) β§ π§ β π΅) β§ π β β0) β π β
(β€β₯β0)) |
103 | 49 | adantr 482 |
. . . . . . . 8
β’ ((((π β§ π β π) β§ π§ β π΅) β§ π β β0) β (πΊβπ§):β0βΆβ) |
104 | | elfznn0 13591 |
. . . . . . . 8
β’ (π β (0...π) β π β β0) |
105 | | ffvelcdm 7081 |
. . . . . . . 8
β’ (((πΊβπ§):β0βΆβ β§
π β
β0) β ((πΊβπ§)βπ) β β) |
106 | 103, 104,
105 | syl2an 597 |
. . . . . . 7
β’
(((((π β§ π β π) β§ π§ β π΅) β§ π β β0) β§ π β (0...π)) β ((πΊβπ§)βπ) β β) |
107 | 100, 102,
106 | fsumser 15673 |
. . . . . 6
β’ ((((π β§ π β π) β§ π§ β π΅) β§ π β β0) β
Ξ£π β (0...π)((πΊβπ§)βπ) = (seq0( + , (πΊβπ§))βπ)) |
108 | 93, 99, 107 | 3eqtrd 2777 |
. . . . 5
β’ ((((π β§ π β π) β§ π§ β π΅) β§ π β β0) β (((π β β0
β¦ (π¦ β π΅ β¦ Ξ£π β (0...π)((πΊβπ¦)βπ)))βπ)βπ§) = (seq0( + , (πΊβπ§))βπ)) |
109 | 108 | mpteq2dva 5248 |
. . . 4
β’ (((π β§ π β π) β§ π§ β π΅) β (π β β0 β¦ (((π β β0
β¦ (π¦ β π΅ β¦ Ξ£π β (0...π)((πΊβπ¦)βπ)))βπ)βπ§)) = (π β β0 β¦ (seq0( +
, (πΊβπ§))βπ))) |
110 | | 0z 12566 |
. . . . . . 7
β’ 0 β
β€ |
111 | | seqfn 13975 |
. . . . . . 7
β’ (0 β
β€ β seq0( + , (πΊβπ§)) Fn
(β€β₯β0)) |
112 | 110, 111 | ax-mp 5 |
. . . . . 6
β’ seq0( + ,
(πΊβπ§)) Fn
(β€β₯β0) |
113 | 1 | fneq2i 6645 |
. . . . . 6
β’ (seq0( +
, (πΊβπ§)) Fn β0 β
seq0( + , (πΊβπ§)) Fn
(β€β₯β0)) |
114 | 112, 113 | mpbir 230 |
. . . . 5
β’ seq0( + ,
(πΊβπ§)) Fn β0 |
115 | | dffn5 6948 |
. . . . 5
β’ (seq0( +
, (πΊβπ§)) Fn β0 β
seq0( + , (πΊβπ§)) = (π β β0 β¦ (seq0( +
, (πΊβπ§))βπ))) |
116 | 114, 115 | mpbi 229 |
. . . 4
β’ seq0( + ,
(πΊβπ§)) = (π β β0 β¦ (seq0( +
, (πΊβπ§))βπ)) |
117 | 109, 116 | eqtr4di 2791 |
. . 3
β’ (((π β§ π β π) β§ π§ β π΅) β (π β β0 β¦ (((π β β0
β¦ (π¦ β π΅ β¦ Ξ£π β (0...π)((πΊβπ¦)βπ)))βπ)βπ§)) = seq0( + , (πΊβπ§))) |
118 | | fvres 6908 |
. . . 4
β’ (π§ β π΅ β ((πΉ βΎ π΅)βπ§) = (πΉβπ§)) |
119 | 118 | adantl 483 |
. . 3
β’ (((π β§ π β π) β§ π§ β π΅) β ((πΉ βΎ π΅)βπ§) = (πΉβπ§)) |
120 | 85, 117, 119 | 3brtr4d 5180 |
. 2
β’ (((π β§ π β π) β§ π§ β π΅) β (π β β0 β¦ (((π β β0
β¦ (π¦ β π΅ β¦ Ξ£π β (0...π)((πΊβπ¦)βπ)))βπ)βπ§)) β ((πΉ βΎ π΅)βπ§)) |
121 | 91 | adantl 483 |
. . . . . 6
β’ (((π β§ π β π) β§ π β β0) β ((π β β0
β¦ (π¦ β π΅ β¦ Ξ£π β (0...π)((πΊβπ¦)βπ)))βπ) = (π¦ β π΅ β¦ Ξ£π β (0...π)((πΊβπ¦)βπ))) |
122 | 121 | oveq2d 7422 |
. . . . 5
β’ (((π β§ π β π) β§ π β β0) β (β
D ((π β
β0 β¦ (π¦ β π΅ β¦ Ξ£π β (0...π)((πΊβπ¦)βπ)))βπ)) = (β D (π¦ β π΅ β¦ Ξ£π β (0...π)((πΊβπ¦)βπ)))) |
123 | | eqid 2733 |
. . . . . . . 8
β’
(TopOpenββfld) =
(TopOpenββfld) |
124 | 123 | cnfldtopon 24291 |
. . . . . . 7
β’
(TopOpenββfld) β
(TopOnββ) |
125 | 124 | toponrestid 22415 |
. . . . . 6
β’
(TopOpenββfld) =
((TopOpenββfld) βΎt
β) |
126 | 2 | a1i 11 |
. . . . . 6
β’ (((π β§ π β π) β§ π β β0) β β
β {β, β}) |
127 | 123 | cnfldtopn 24290 |
. . . . . . . . . 10
β’
(TopOpenββfld) = (MetOpenβ(abs β
β )) |
128 | 127 | blopn 24001 |
. . . . . . . . 9
β’ (((abs
β β ) β (βMetββ) β§ 0 β β
β§ (((absβπ) +
π) / 2) β
β*) β (0(ballβ(abs β β
))(((absβπ) + π) / 2)) β
(TopOpenββfld)) |
129 | 10, 11, 18, 128 | mp3an2i 1467 |
. . . . . . . 8
β’ ((π β§ π β π) β (0(ballβ(abs β β
))(((absβπ) + π) / 2)) β
(TopOpenββfld)) |
130 | 9, 129 | eqeltrid 2838 |
. . . . . . 7
β’ ((π β§ π β π) β π΅ β
(TopOpenββfld)) |
131 | 130 | adantr 482 |
. . . . . 6
β’ (((π β§ π β π) β§ π β β0) β π΅ β
(TopOpenββfld)) |
132 | | fzfid 13935 |
. . . . . 6
β’ (((π β§ π β π) β§ π β β0) β
(0...π) β
Fin) |
133 | 7 | ad2antrr 725 |
. . . . . . . . 9
β’ (((π β§ π β π) β§ π β β0) β π΄:β0βΆβ) |
134 | 133 | 3ad2ant1 1134 |
. . . . . . . 8
β’ ((((π β§ π β π) β§ π β β0) β§ π β (0...π) β§ π¦ β π΅) β π΄:β0βΆβ) |
135 | 21 | adantr 482 |
. . . . . . . . . 10
β’ (((π β§ π β π) β§ π β β0) β π΅ β
β) |
136 | 135 | sselda 3982 |
. . . . . . . . 9
β’ ((((π β§ π β π) β§ π β β0) β§ π¦ β π΅) β π¦ β β) |
137 | 136 | 3adant2 1132 |
. . . . . . . 8
β’ ((((π β§ π β π) β§ π β β0) β§ π β (0...π) β§ π¦ β π΅) β π¦ β β) |
138 | 6, 134, 137 | psergf 25916 |
. . . . . . 7
β’ ((((π β§ π β π) β§ π β β0) β§ π β (0...π) β§ π¦ β π΅) β (πΊβπ¦):β0βΆβ) |
139 | 104 | 3ad2ant2 1135 |
. . . . . . 7
β’ ((((π β§ π β π) β§ π β β0) β§ π β (0...π) β§ π¦ β π΅) β π β β0) |
140 | 138, 139 | ffvelcdmd 7085 |
. . . . . 6
β’ ((((π β§ π β π) β§ π β β0) β§ π β (0...π) β§ π¦ β π΅) β ((πΊβπ¦)βπ) β β) |
141 | 2 | a1i 11 |
. . . . . . . 8
β’ ((((π β§ π β π) β§ π β β0) β§ π β (0...π)) β β β {β,
β}) |
142 | | ffvelcdm 7081 |
. . . . . . . . . . 11
β’ ((π΄:β0βΆβ β§
π β
β0) β (π΄βπ) β β) |
143 | 133, 104,
142 | syl2an 597 |
. . . . . . . . . 10
β’ ((((π β§ π β π) β§ π β β0) β§ π β (0...π)) β (π΄βπ) β β) |
144 | 143 | adantr 482 |
. . . . . . . . 9
β’
(((((π β§ π β π) β§ π β β0) β§ π β (0...π)) β§ π¦ β π΅) β (π΄βπ) β β) |
145 | 136 | adantlr 714 |
. . . . . . . . . 10
β’
(((((π β§ π β π) β§ π β β0) β§ π β (0...π)) β§ π¦ β π΅) β π¦ β β) |
146 | | id 22 |
. . . . . . . . . . 11
β’ (π¦ β β β π¦ β
β) |
147 | 104 | adantl 483 |
. . . . . . . . . . 11
β’ ((((π β§ π β π) β§ π β β0) β§ π β (0...π)) β π β β0) |
148 | | expcl 14042 |
. . . . . . . . . . 11
β’ ((π¦ β β β§ π β β0)
β (π¦βπ) β
β) |
149 | 146, 147,
148 | syl2anr 598 |
. . . . . . . . . 10
β’
(((((π β§ π β π) β§ π β β0) β§ π β (0...π)) β§ π¦ β β) β (π¦βπ) β β) |
150 | 145, 149 | syldan 592 |
. . . . . . . . 9
β’
(((((π β§ π β π) β§ π β β0) β§ π β (0...π)) β§ π¦ β π΅) β (π¦βπ) β β) |
151 | 144, 150 | mulcld 11231 |
. . . . . . . 8
β’
(((((π β§ π β π) β§ π β β0) β§ π β (0...π)) β§ π¦ β π΅) β ((π΄βπ) Β· (π¦βπ)) β β) |
152 | | ovexd 7441 |
. . . . . . . 8
β’
(((((π β§ π β π) β§ π β β0) β§ π β (0...π)) β§ π¦ β π΅) β ((π΄βπ) Β· if(π = 0, 0, (π Β· (π¦β(π β 1))))) β V) |
153 | | c0ex 11205 |
. . . . . . . . . . 11
β’ 0 β
V |
154 | | ovex 7439 |
. . . . . . . . . . 11
β’ (π Β· (π¦β(π β 1))) β V |
155 | 153, 154 | ifex 4578 |
. . . . . . . . . 10
β’ if(π = 0, 0, (π Β· (π¦β(π β 1)))) β V |
156 | 155 | a1i 11 |
. . . . . . . . 9
β’
(((((π β§ π β π) β§ π β β0) β§ π β (0...π)) β§ π¦ β π΅) β if(π = 0, 0, (π Β· (π¦β(π β 1)))) β V) |
157 | 155 | a1i 11 |
. . . . . . . . . 10
β’
(((((π β§ π β π) β§ π β β0) β§ π β (0...π)) β§ π¦ β β) β if(π = 0, 0, (π Β· (π¦β(π β 1)))) β V) |
158 | | dvexp2 25463 |
. . . . . . . . . . 11
β’ (π β β0
β (β D (π¦ β
β β¦ (π¦βπ))) = (π¦ β β β¦ if(π = 0, 0, (π Β· (π¦β(π β 1)))))) |
159 | 147, 158 | syl 17 |
. . . . . . . . . 10
β’ ((((π β§ π β π) β§ π β β0) β§ π β (0...π)) β (β D (π¦ β β β¦ (π¦βπ))) = (π¦ β β β¦ if(π = 0, 0, (π Β· (π¦β(π β 1)))))) |
160 | 21 | ad2antrr 725 |
. . . . . . . . . 10
β’ ((((π β§ π β π) β§ π β β0) β§ π β (0...π)) β π΅ β β) |
161 | 130 | ad2antrr 725 |
. . . . . . . . . 10
β’ ((((π β§ π β π) β§ π β β0) β§ π β (0...π)) β π΅ β
(TopOpenββfld)) |
162 | 141, 149,
157, 159, 160, 125, 123, 161 | dvmptres 25472 |
. . . . . . . . 9
β’ ((((π β§ π β π) β§ π β β0) β§ π β (0...π)) β (β D (π¦ β π΅ β¦ (π¦βπ))) = (π¦ β π΅ β¦ if(π = 0, 0, (π Β· (π¦β(π β 1)))))) |
163 | 141, 150,
156, 162, 143 | dvmptcmul 25473 |
. . . . . . . 8
β’ ((((π β§ π β π) β§ π β β0) β§ π β (0...π)) β (β D (π¦ β π΅ β¦ ((π΄βπ) Β· (π¦βπ)))) = (π¦ β π΅ β¦ ((π΄βπ) Β· if(π = 0, 0, (π Β· (π¦β(π β 1))))))) |
164 | 141, 151,
152, 163 | dvmptcl 25468 |
. . . . . . 7
β’
(((((π β§ π β π) β§ π β β0) β§ π β (0...π)) β§ π¦ β π΅) β ((π΄βπ) Β· if(π = 0, 0, (π Β· (π¦β(π β 1))))) β
β) |
165 | 164 | 3impa 1111 |
. . . . . 6
β’ ((((π β§ π β π) β§ π β β0) β§ π β (0...π) β§ π¦ β π΅) β ((π΄βπ) Β· if(π = 0, 0, (π Β· (π¦β(π β 1))))) β
β) |
166 | 104 | ad2antlr 726 |
. . . . . . . . . 10
β’
(((((π β§ π β π) β§ π β β0) β§ π β (0...π)) β§ π¦ β π΅) β π β β0) |
167 | 6 | pserval2 25915 |
. . . . . . . . . 10
β’ ((π¦ β β β§ π β β0)
β ((πΊβπ¦)βπ) = ((π΄βπ) Β· (π¦βπ))) |
168 | 145, 166,
167 | syl2anc 585 |
. . . . . . . . 9
β’
(((((π β§ π β π) β§ π β β0) β§ π β (0...π)) β§ π¦ β π΅) β ((πΊβπ¦)βπ) = ((π΄βπ) Β· (π¦βπ))) |
169 | 168 | mpteq2dva 5248 |
. . . . . . . 8
β’ ((((π β§ π β π) β§ π β β0) β§ π β (0...π)) β (π¦ β π΅ β¦ ((πΊβπ¦)βπ)) = (π¦ β π΅ β¦ ((π΄βπ) Β· (π¦βπ)))) |
170 | 169 | oveq2d 7422 |
. . . . . . 7
β’ ((((π β§ π β π) β§ π β β0) β§ π β (0...π)) β (β D (π¦ β π΅ β¦ ((πΊβπ¦)βπ))) = (β D (π¦ β π΅ β¦ ((π΄βπ) Β· (π¦βπ))))) |
171 | 170, 163 | eqtrd 2773 |
. . . . . 6
β’ ((((π β§ π β π) β§ π β β0) β§ π β (0...π)) β (β D (π¦ β π΅ β¦ ((πΊβπ¦)βπ))) = (π¦ β π΅ β¦ ((π΄βπ) Β· if(π = 0, 0, (π Β· (π¦β(π β 1))))))) |
172 | 125, 123,
126, 131, 132, 140, 165, 171 | dvmptfsum 25484 |
. . . . 5
β’ (((π β§ π β π) β§ π β β0) β (β
D (π¦ β π΅ β¦ Ξ£π β (0...π)((πΊβπ¦)βπ))) = (π¦ β π΅ β¦ Ξ£π β (0...π)((π΄βπ) Β· if(π = 0, 0, (π Β· (π¦β(π β 1))))))) |
173 | 122, 172 | eqtrd 2773 |
. . . 4
β’ (((π β§ π β π) β§ π β β0) β (β
D ((π β
β0 β¦ (π¦ β π΅ β¦ Ξ£π β (0...π)((πΊβπ¦)βπ)))βπ)) = (π¦ β π΅ β¦ Ξ£π β (0...π)((π΄βπ) Β· if(π = 0, 0, (π Β· (π¦β(π β 1))))))) |
174 | 173 | mpteq2dva 5248 |
. . 3
β’ ((π β§ π β π) β (π β β0 β¦ (β
D ((π β
β0 β¦ (π¦ β π΅ β¦ Ξ£π β (0...π)((πΊβπ¦)βπ)))βπ))) = (π β β0 β¦ (π¦ β π΅ β¦ Ξ£π β (0...π)((π΄βπ) Β· if(π = 0, 0, (π Β· (π¦β(π β 1)))))))) |
175 | | nnssnn0 12472 |
. . . . . 6
β’ β
β β0 |
176 | | resmpt 6036 |
. . . . . 6
β’ (β
β β0 β ((π β β0 β¦ (π¦ β π΅ β¦ Ξ£π β (0...π)((π΄βπ) Β· if(π = 0, 0, (π Β· (π¦β(π β 1))))))) βΎ β) = (π β β β¦ (π¦ β π΅ β¦ Ξ£π β (0...π)((π΄βπ) Β· if(π = 0, 0, (π Β· (π¦β(π β 1)))))))) |
177 | 175, 176 | ax-mp 5 |
. . . . 5
β’ ((π β β0
β¦ (π¦ β π΅ β¦ Ξ£π β (0...π)((π΄βπ) Β· if(π = 0, 0, (π Β· (π¦β(π β 1))))))) βΎ β) = (π β β β¦ (π¦ β π΅ β¦ Ξ£π β (0...π)((π΄βπ) Β· if(π = 0, 0, (π Β· (π¦β(π β 1))))))) |
178 | | oveq1 7413 |
. . . . . . . . . . . 12
β’ (π = π₯ β (πβπ) = (π₯βπ)) |
179 | 178 | oveq2d 7422 |
. . . . . . . . . . 11
β’ (π = π₯ β (((π + 1) Β· (π΄β(π + 1))) Β· (πβπ)) = (((π + 1) Β· (π΄β(π + 1))) Β· (π₯βπ))) |
180 | 179 | mpteq2dv 5250 |
. . . . . . . . . 10
β’ (π = π₯ β (π β β0 β¦ (((π + 1) Β· (π΄β(π + 1))) Β· (πβπ))) = (π β β0 β¦ (((π + 1) Β· (π΄β(π + 1))) Β· (π₯βπ)))) |
181 | | oveq1 7413 |
. . . . . . . . . . . . . 14
β’ (π = π β (π + 1) = (π + 1)) |
182 | | fvoveq1 7429 |
. . . . . . . . . . . . . 14
β’ (π = π β (π΄β(π + 1)) = (π΄β(π + 1))) |
183 | 181, 182 | oveq12d 7424 |
. . . . . . . . . . . . 13
β’ (π = π β ((π + 1) Β· (π΄β(π + 1))) = ((π + 1) Β· (π΄β(π + 1)))) |
184 | | oveq2 7414 |
. . . . . . . . . . . . 13
β’ (π = π β (π₯βπ) = (π₯βπ)) |
185 | 183, 184 | oveq12d 7424 |
. . . . . . . . . . . 12
β’ (π = π β (((π + 1) Β· (π΄β(π + 1))) Β· (π₯βπ)) = (((π + 1) Β· (π΄β(π + 1))) Β· (π₯βπ))) |
186 | 185 | cbvmptv 5261 |
. . . . . . . . . . 11
β’ (π β β0
β¦ (((π + 1) Β·
(π΄β(π + 1))) Β· (π₯βπ))) = (π β β0 β¦ (((π + 1) Β· (π΄β(π + 1))) Β· (π₯βπ))) |
187 | | oveq1 7413 |
. . . . . . . . . . . . . . 15
β’ (π = π β (π + 1) = (π + 1)) |
188 | | fvoveq1 7429 |
. . . . . . . . . . . . . . 15
β’ (π = π β (π΄β(π + 1)) = (π΄β(π + 1))) |
189 | 187, 188 | oveq12d 7424 |
. . . . . . . . . . . . . 14
β’ (π = π β ((π + 1) Β· (π΄β(π + 1))) = ((π + 1) Β· (π΄β(π + 1)))) |
190 | | eqid 2733 |
. . . . . . . . . . . . . 14
β’ (π β β0
β¦ ((π + 1) Β·
(π΄β(π + 1)))) = (π β β0 β¦ ((π + 1) Β· (π΄β(π + 1)))) |
191 | | ovex 7439 |
. . . . . . . . . . . . . 14
β’ ((π + 1) Β· (π΄β(π + 1))) β V |
192 | 189, 190,
191 | fvmpt 6996 |
. . . . . . . . . . . . 13
β’ (π β β0
β ((π β
β0 β¦ ((π + 1) Β· (π΄β(π + 1))))βπ) = ((π + 1) Β· (π΄β(π + 1)))) |
193 | 192 | oveq1d 7421 |
. . . . . . . . . . . 12
β’ (π β β0
β (((π β
β0 β¦ ((π + 1) Β· (π΄β(π + 1))))βπ) Β· (π₯βπ)) = (((π + 1) Β· (π΄β(π + 1))) Β· (π₯βπ))) |
194 | 193 | mpteq2ia 5251 |
. . . . . . . . . . 11
β’ (π β β0
β¦ (((π β
β0 β¦ ((π + 1) Β· (π΄β(π + 1))))βπ) Β· (π₯βπ))) = (π β β0 β¦ (((π + 1) Β· (π΄β(π + 1))) Β· (π₯βπ))) |
195 | 186, 194 | eqtr4i 2764 |
. . . . . . . . . 10
β’ (π β β0
β¦ (((π + 1) Β·
(π΄β(π + 1))) Β· (π₯βπ))) = (π β β0 β¦ (((π β β0
β¦ ((π + 1) Β·
(π΄β(π + 1))))βπ) Β· (π₯βπ))) |
196 | 180, 195 | eqtrdi 2789 |
. . . . . . . . 9
β’ (π = π₯ β (π β β0 β¦ (((π + 1) Β· (π΄β(π + 1))) Β· (πβπ))) = (π β β0 β¦ (((π β β0
β¦ ((π + 1) Β·
(π΄β(π + 1))))βπ) Β· (π₯βπ)))) |
197 | 196 | cbvmptv 5261 |
. . . . . . . 8
β’ (π β β β¦ (π β β0
β¦ (((π + 1) Β·
(π΄β(π + 1))) Β· (πβπ)))) = (π₯ β β β¦ (π β β0 β¦ (((π β β0
β¦ ((π + 1) Β·
(π΄β(π + 1))))βπ) Β· (π₯βπ)))) |
198 | | fveq2 6889 |
. . . . . . . . . . 11
β’ (π¦ = π§ β ((π β β β¦ (π β β0 β¦ (((π + 1) Β· (π΄β(π + 1))) Β· (πβπ))))βπ¦) = ((π β β β¦ (π β β0 β¦ (((π + 1) Β· (π΄β(π + 1))) Β· (πβπ))))βπ§)) |
199 | 198 | fveq1d 6891 |
. . . . . . . . . 10
β’ (π¦ = π§ β (((π β β β¦ (π β β0 β¦ (((π + 1) Β· (π΄β(π + 1))) Β· (πβπ))))βπ¦)βπ) = (((π β β β¦ (π β β0 β¦ (((π + 1) Β· (π΄β(π + 1))) Β· (πβπ))))βπ§)βπ)) |
200 | 199 | sumeq2sdv 15647 |
. . . . . . . . 9
β’ (π¦ = π§ β Ξ£π β β0 (((π β β β¦ (π β β0
β¦ (((π + 1) Β·
(π΄β(π + 1))) Β· (πβπ))))βπ¦)βπ) = Ξ£π β β0 (((π β β β¦ (π β β0
β¦ (((π + 1) Β·
(π΄β(π + 1))) Β· (πβπ))))βπ§)βπ)) |
201 | 200 | cbvmptv 5261 |
. . . . . . . 8
β’ (π¦ β π΅ β¦ Ξ£π β β0 (((π β β β¦ (π β β0
β¦ (((π + 1) Β·
(π΄β(π + 1))) Β· (πβπ))))βπ¦)βπ)) = (π§ β π΅ β¦ Ξ£π β β0 (((π β β β¦ (π β β0
β¦ (((π + 1) Β·
(π΄β(π + 1))) Β· (πβπ))))βπ§)βπ)) |
202 | | peano2nn0 12509 |
. . . . . . . . . . . 12
β’ (π β β0
β (π + 1) β
β0) |
203 | 202 | adantl 483 |
. . . . . . . . . . 11
β’ (((π β§ π β π) β§ π β β0) β (π + 1) β
β0) |
204 | 203 | nn0cnd 12531 |
. . . . . . . . . 10
β’ (((π β§ π β π) β§ π β β0) β (π + 1) β
β) |
205 | 133, 203 | ffvelcdmd 7085 |
. . . . . . . . . 10
β’ (((π β§ π β π) β§ π β β0) β (π΄β(π + 1)) β β) |
206 | 204, 205 | mulcld 11231 |
. . . . . . . . 9
β’ (((π β§ π β π) β§ π β β0) β ((π + 1) Β· (π΄β(π + 1))) β β) |
207 | 206 | fmpttd 7112 |
. . . . . . . 8
β’ ((π β§ π β π) β (π β β0 β¦ ((π + 1) Β· (π΄β(π +
1)))):β0βΆβ) |
208 | | fveq2 6889 |
. . . . . . . . . . . 12
β’ (π = π β ((π β β β¦ (π β β0 β¦ (((π + 1) Β· (π΄β(π + 1))) Β· (πβπ))))βπ) = ((π β β β¦ (π β β0 β¦ (((π + 1) Β· (π΄β(π + 1))) Β· (πβπ))))βπ)) |
209 | 208 | seqeq3d 13971 |
. . . . . . . . . . 11
β’ (π = π β seq0( + , ((π β β β¦ (π β β0 β¦ (((π + 1) Β· (π΄β(π + 1))) Β· (πβπ))))βπ)) = seq0( + , ((π β β β¦ (π β β0 β¦ (((π + 1) Β· (π΄β(π + 1))) Β· (πβπ))))βπ))) |
210 | 209 | eleq1d 2819 |
. . . . . . . . . 10
β’ (π = π β (seq0( + , ((π β β β¦ (π β β0 β¦ (((π + 1) Β· (π΄β(π + 1))) Β· (πβπ))))βπ)) β dom β β seq0( + ,
((π β β β¦
(π β
β0 β¦ (((π + 1) Β· (π΄β(π + 1))) Β· (πβπ))))βπ)) β dom β )) |
211 | 210 | cbvrabv 3443 |
. . . . . . . . 9
β’ {π β β β£ seq0( +
, ((π β β
β¦ (π β
β0 β¦ (((π + 1) Β· (π΄β(π + 1))) Β· (πβπ))))βπ)) β dom β } = {π β β β£ seq0( + , ((π β β β¦ (π β β0
β¦ (((π + 1) Β·
(π΄β(π + 1))) Β· (πβπ))))βπ)) β dom β } |
212 | 211 | supeq1i 9439 |
. . . . . . . 8
β’
sup({π β
β β£ seq0( + , ((π β β β¦ (π β β0 β¦ (((π + 1) Β· (π΄β(π + 1))) Β· (πβπ))))βπ)) β dom β }, β*,
< ) = sup({π β
β β£ seq0( + , ((π β β β¦ (π β β0 β¦ (((π + 1) Β· (π΄β(π + 1))) Β· (πβπ))))βπ)) β dom β }, β*,
< ) |
213 | 198 | seqeq3d 13971 |
. . . . . . . . . . . 12
β’ (π¦ = π§ β seq0( + , ((π β β β¦ (π β β0 β¦ (((π + 1) Β· (π΄β(π + 1))) Β· (πβπ))))βπ¦)) = seq0( + , ((π β β β¦ (π β β0 β¦ (((π + 1) Β· (π΄β(π + 1))) Β· (πβπ))))βπ§))) |
214 | 213 | fveq1d 6891 |
. . . . . . . . . . 11
β’ (π¦ = π§ β (seq0( + , ((π β β β¦ (π β β0 β¦ (((π + 1) Β· (π΄β(π + 1))) Β· (πβπ))))βπ¦))βπ) = (seq0( + , ((π β β β¦ (π β β0 β¦ (((π + 1) Β· (π΄β(π + 1))) Β· (πβπ))))βπ§))βπ)) |
215 | 214 | cbvmptv 5261 |
. . . . . . . . . 10
β’ (π¦ β π΅ β¦ (seq0( + , ((π β β β¦ (π β β0 β¦ (((π + 1) Β· (π΄β(π + 1))) Β· (πβπ))))βπ¦))βπ)) = (π§ β π΅ β¦ (seq0( + , ((π β β β¦ (π β β0 β¦ (((π + 1) Β· (π΄β(π + 1))) Β· (πβπ))))βπ§))βπ)) |
216 | | fveq2 6889 |
. . . . . . . . . . 11
β’ (π = π β (seq0( + , ((π β β β¦ (π β β0 β¦ (((π + 1) Β· (π΄β(π + 1))) Β· (πβπ))))βπ§))βπ) = (seq0( + , ((π β β β¦ (π β β0 β¦ (((π + 1) Β· (π΄β(π + 1))) Β· (πβπ))))βπ§))βπ)) |
217 | 216 | mpteq2dv 5250 |
. . . . . . . . . 10
β’ (π = π β (π§ β π΅ β¦ (seq0( + , ((π β β β¦ (π β β0 β¦ (((π + 1) Β· (π΄β(π + 1))) Β· (πβπ))))βπ§))βπ)) = (π§ β π΅ β¦ (seq0( + , ((π β β β¦ (π β β0 β¦ (((π + 1) Β· (π΄β(π + 1))) Β· (πβπ))))βπ§))βπ))) |
218 | 215, 217 | eqtrid 2785 |
. . . . . . . . 9
β’ (π = π β (π¦ β π΅ β¦ (seq0( + , ((π β β β¦ (π β β0 β¦ (((π + 1) Β· (π΄β(π + 1))) Β· (πβπ))))βπ¦))βπ)) = (π§ β π΅ β¦ (seq0( + , ((π β β β¦ (π β β0 β¦ (((π + 1) Β· (π΄β(π + 1))) Β· (πβπ))))βπ§))βπ))) |
219 | 218 | cbvmptv 5261 |
. . . . . . . 8
β’ (π β β0
β¦ (π¦ β π΅ β¦ (seq0( + , ((π β β β¦ (π β β0
β¦ (((π + 1) Β·
(π΄β(π + 1))) Β· (πβπ))))βπ¦))βπ))) = (π β β0 β¦ (π§ β π΅ β¦ (seq0( + , ((π β β β¦ (π β β0 β¦ (((π + 1) Β· (π΄β(π + 1))) Β· (πβπ))))βπ§))βπ))) |
220 | 17 | rpred 13013 |
. . . . . . . 8
β’ ((π β§ π β π) β (((absβπ) + π) / 2) β β) |
221 | 6, 12, 7, 13, 14, 15 | psercnlem1 25929 |
. . . . . . . . . . 11
β’ ((π β§ π β π) β (π β β+ β§
(absβπ) < π β§ π < π
)) |
222 | 221 | simp1d 1143 |
. . . . . . . . . 10
β’ ((π β§ π β π) β π β
β+) |
223 | 222 | rpxrd 13014 |
. . . . . . . . 9
β’ ((π β§ π β π) β π β
β*) |
224 | 197, 207,
212 | radcnvcl 25921 |
. . . . . . . . . 10
β’ ((π β§ π β π) β sup({π β β β£ seq0( + , ((π β β β¦ (π β β0
β¦ (((π + 1) Β·
(π΄β(π + 1))) Β· (πβπ))))βπ)) β dom β }, β*,
< ) β (0[,]+β)) |
225 | 54, 224 | sselid 3980 |
. . . . . . . . 9
β’ ((π β§ π β π) β sup({π β β β£ seq0( + , ((π β β β¦ (π β β0
β¦ (((π + 1) Β·
(π΄β(π + 1))) Β· (πβπ))))βπ)) β dom β }, β*,
< ) β β*) |
226 | 221 | simp2d 1144 |
. . . . . . . . . 10
β’ ((π β§ π β π) β (absβπ) < π) |
227 | | cnvimass 6078 |
. . . . . . . . . . . . . . . 16
β’ (β‘abs β (0[,)π
)) β dom abs |
228 | | absf 15281 |
. . . . . . . . . . . . . . . . 17
β’
abs:ββΆβ |
229 | 228 | fdmi 6727 |
. . . . . . . . . . . . . . . 16
β’ dom abs =
β |
230 | 227, 229 | sseqtri 4018 |
. . . . . . . . . . . . . . 15
β’ (β‘abs β (0[,)π
)) β β |
231 | 14, 230 | eqsstri 4016 |
. . . . . . . . . . . . . 14
β’ π β
β |
232 | 231 | a1i 11 |
. . . . . . . . . . . . 13
β’ (π β π β β) |
233 | 232 | sselda 3982 |
. . . . . . . . . . . 12
β’ ((π β§ π β π) β π β β) |
234 | 233 | abscld 15380 |
. . . . . . . . . . 11
β’ ((π β§ π β π) β (absβπ) β β) |
235 | 222 | rpred 13013 |
. . . . . . . . . . 11
β’ ((π β§ π β π) β π β β) |
236 | | avglt2 12448 |
. . . . . . . . . . 11
β’
(((absβπ)
β β β§ π
β β) β ((absβπ) < π β (((absβπ) + π) / 2) < π)) |
237 | 234, 235,
236 | syl2anc 585 |
. . . . . . . . . 10
β’ ((π β§ π β π) β ((absβπ) < π β (((absβπ) + π) / 2) < π)) |
238 | 226, 237 | mpbid 231 |
. . . . . . . . 9
β’ ((π β§ π β π) β (((absβπ) + π) / 2) < π) |
239 | 222 | rpge0d 13017 |
. . . . . . . . . . 11
β’ ((π β§ π β π) β 0 β€ π) |
240 | 235, 239 | absidd 15366 |
. . . . . . . . . 10
β’ ((π β§ π β π) β (absβπ) = π) |
241 | 222 | rpcnd 13015 |
. . . . . . . . . . 11
β’ ((π β§ π β π) β π β β) |
242 | | oveq1 7413 |
. . . . . . . . . . . . . . . . 17
β’ (π€ = π β (π€βπ) = (πβπ)) |
243 | 242 | oveq2d 7422 |
. . . . . . . . . . . . . . . 16
β’ (π€ = π β (((π + 1) Β· (π΄β(π + 1))) Β· (π€βπ)) = (((π + 1) Β· (π΄β(π + 1))) Β· (πβπ))) |
244 | 243 | mpteq2dv 5250 |
. . . . . . . . . . . . . . 15
β’ (π€ = π β (π β β0 β¦ (((π + 1) Β· (π΄β(π + 1))) Β· (π€βπ))) = (π β β0 β¦ (((π + 1) Β· (π΄β(π + 1))) Β· (πβπ)))) |
245 | | oveq1 7413 |
. . . . . . . . . . . . . . . . . 18
β’ (π = π€ β (πβπ) = (π€βπ)) |
246 | 245 | oveq2d 7422 |
. . . . . . . . . . . . . . . . 17
β’ (π = π€ β (((π + 1) Β· (π΄β(π + 1))) Β· (πβπ)) = (((π + 1) Β· (π΄β(π + 1))) Β· (π€βπ))) |
247 | 246 | mpteq2dv 5250 |
. . . . . . . . . . . . . . . 16
β’ (π = π€ β (π β β0 β¦ (((π + 1) Β· (π΄β(π + 1))) Β· (πβπ))) = (π β β0 β¦ (((π + 1) Β· (π΄β(π + 1))) Β· (π€βπ)))) |
248 | 247 | cbvmptv 5261 |
. . . . . . . . . . . . . . 15
β’ (π β β β¦ (π β β0
β¦ (((π + 1) Β·
(π΄β(π + 1))) Β· (πβπ)))) = (π€ β β β¦ (π β β0 β¦ (((π + 1) Β· (π΄β(π + 1))) Β· (π€βπ)))) |
249 | | nn0ex 12475 |
. . . . . . . . . . . . . . . 16
β’
β0 β V |
250 | 249 | mptex 7222 |
. . . . . . . . . . . . . . 15
β’ (π β β0
β¦ (((π + 1) Β·
(π΄β(π + 1))) Β· (πβπ))) β V |
251 | 244, 248,
250 | fvmpt 6996 |
. . . . . . . . . . . . . 14
β’ (π β β β ((π β β β¦ (π β β0
β¦ (((π + 1) Β·
(π΄β(π + 1))) Β· (πβπ))))βπ) = (π β β0 β¦ (((π + 1) Β· (π΄β(π + 1))) Β· (πβπ)))) |
252 | 241, 251 | syl 17 |
. . . . . . . . . . . . 13
β’ ((π β§ π β π) β ((π β β β¦ (π β β0 β¦ (((π + 1) Β· (π΄β(π + 1))) Β· (πβπ))))βπ) = (π β β0 β¦ (((π + 1) Β· (π΄β(π + 1))) Β· (πβπ)))) |
253 | 252 | seqeq3d 13971 |
. . . . . . . . . . . 12
β’ ((π β§ π β π) β seq0( + , ((π β β β¦ (π β β0 β¦ (((π + 1) Β· (π΄β(π + 1))) Β· (πβπ))))βπ)) = seq0( + , (π β β0 β¦ (((π + 1) Β· (π΄β(π + 1))) Β· (πβπ))))) |
254 | | fveq2 6889 |
. . . . . . . . . . . . . . . . . 18
β’ (π = π β (π΄βπ) = (π΄βπ)) |
255 | | oveq2 7414 |
. . . . . . . . . . . . . . . . . 18
β’ (π = π β (π₯βπ) = (π₯βπ)) |
256 | 254, 255 | oveq12d 7424 |
. . . . . . . . . . . . . . . . 17
β’ (π = π β ((π΄βπ) Β· (π₯βπ)) = ((π΄βπ) Β· (π₯βπ))) |
257 | 256 | cbvmptv 5261 |
. . . . . . . . . . . . . . . 16
β’ (π β β0
β¦ ((π΄βπ) Β· (π₯βπ))) = (π β β0 β¦ ((π΄βπ) Β· (π₯βπ))) |
258 | | oveq1 7413 |
. . . . . . . . . . . . . . . . . 18
β’ (π₯ = π¦ β (π₯βπ) = (π¦βπ)) |
259 | 258 | oveq2d 7422 |
. . . . . . . . . . . . . . . . 17
β’ (π₯ = π¦ β ((π΄βπ) Β· (π₯βπ)) = ((π΄βπ) Β· (π¦βπ))) |
260 | 259 | mpteq2dv 5250 |
. . . . . . . . . . . . . . . 16
β’ (π₯ = π¦ β (π β β0 β¦ ((π΄βπ) Β· (π₯βπ))) = (π β β0 β¦ ((π΄βπ) Β· (π¦βπ)))) |
261 | 257, 260 | eqtrid 2785 |
. . . . . . . . . . . . . . 15
β’ (π₯ = π¦ β (π β β0 β¦ ((π΄βπ) Β· (π₯βπ))) = (π β β0 β¦ ((π΄βπ) Β· (π¦βπ)))) |
262 | 261 | cbvmptv 5261 |
. . . . . . . . . . . . . 14
β’ (π₯ β β β¦ (π β β0
β¦ ((π΄βπ) Β· (π₯βπ)))) = (π¦ β β β¦ (π β β0 β¦ ((π΄βπ) Β· (π¦βπ)))) |
263 | 6, 262 | eqtri 2761 |
. . . . . . . . . . . . 13
β’ πΊ = (π¦ β β β¦ (π β β0 β¦ ((π΄βπ) Β· (π¦βπ)))) |
264 | | fveq2 6889 |
. . . . . . . . . . . . . . . . . 18
β’ (π = π β (πΊβπ) = (πΊβπ )) |
265 | 264 | seqeq3d 13971 |
. . . . . . . . . . . . . . . . 17
β’ (π = π β seq0( + , (πΊβπ)) = seq0( + , (πΊβπ ))) |
266 | 265 | eleq1d 2819 |
. . . . . . . . . . . . . . . 16
β’ (π = π β (seq0( + , (πΊβπ)) β dom β β seq0( + , (πΊβπ )) β dom β )) |
267 | 266 | cbvrabv 3443 |
. . . . . . . . . . . . . . 15
β’ {π β β β£ seq0( +
, (πΊβπ)) β dom β } = {π β β β£ seq0( +
, (πΊβπ )) β dom β
} |
268 | 267 | supeq1i 9439 |
. . . . . . . . . . . . . 14
β’
sup({π β
β β£ seq0( + , (πΊβπ)) β dom β }, β*,
< ) = sup({π β
β β£ seq0( + , (πΊβπ )) β dom β }, β*,
< ) |
269 | 13, 268 | eqtri 2761 |
. . . . . . . . . . . . 13
β’ π
= sup({π β β β£ seq0( + , (πΊβπ )) β dom β }, β*,
< ) |
270 | | eqid 2733 |
. . . . . . . . . . . . 13
β’ (π β β0
β¦ (((π + 1) Β·
(π΄β(π + 1))) Β· (πβπ))) = (π β β0 β¦ (((π + 1) Β· (π΄β(π + 1))) Β· (πβπ))) |
271 | 7 | adantr 482 |
. . . . . . . . . . . . 13
β’ ((π β§ π β π) β π΄:β0βΆβ) |
272 | 221 | simp3d 1145 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β π) β π < π
) |
273 | 240, 272 | eqbrtrd 5170 |
. . . . . . . . . . . . 13
β’ ((π β§ π β π) β (absβπ) < π
) |
274 | 263, 269,
270, 271, 241, 273 | dvradcnv 25925 |
. . . . . . . . . . . 12
β’ ((π β§ π β π) β seq0( + , (π β β0 β¦ (((π + 1) Β· (π΄β(π + 1))) Β· (πβπ)))) β dom β ) |
275 | 253, 274 | eqeltrd 2834 |
. . . . . . . . . . 11
β’ ((π β§ π β π) β seq0( + , ((π β β β¦ (π β β0 β¦ (((π + 1) Β· (π΄β(π + 1))) Β· (πβπ))))βπ)) β dom β ) |
276 | 197, 207,
212, 241, 275 | radcnvle 25924 |
. . . . . . . . . 10
β’ ((π β§ π β π) β (absβπ) β€ sup({π β β β£ seq0( + , ((π β β β¦ (π β β0
β¦ (((π + 1) Β·
(π΄β(π + 1))) Β· (πβπ))))βπ)) β dom β }, β*,
< )) |
277 | 240, 276 | eqbrtrrd 5172 |
. . . . . . . . 9
β’ ((π β§ π β π) β π β€ sup({π β β β£ seq0( + , ((π β β β¦ (π β β0
β¦ (((π + 1) Β·
(π΄β(π + 1))) Β· (πβπ))))βπ)) β dom β }, β*,
< )) |
278 | 18, 223, 225, 238, 277 | xrltletrd 13137 |
. . . . . . . 8
β’ ((π β§ π β π) β (((absβπ) + π) / 2) < sup({π β β β£ seq0( + , ((π β β β¦ (π β β0
β¦ (((π + 1) Β·
(π΄β(π + 1))) Β· (πβπ))))βπ)) β dom β }, β*,
< )) |
279 | 197, 201,
207, 212, 219, 220, 278, 41 | pserulm 25926 |
. . . . . . 7
β’ ((π β§ π β π) β (π β β0 β¦ (π¦ β π΅ β¦ (seq0( + , ((π β β β¦ (π β β0 β¦ (((π + 1) Β· (π΄β(π + 1))) Β· (πβπ))))βπ¦))βπ)))(βπ’βπ΅)(π¦ β π΅ β¦ Ξ£π β β0 (((π β β β¦ (π β β0
β¦ (((π + 1) Β·
(π΄β(π + 1))) Β· (πβπ))))βπ¦)βπ))) |
280 | 21 | sselda 3982 |
. . . . . . . . . . . . 13
β’ (((π β§ π β π) β§ π¦ β π΅) β π¦ β β) |
281 | | oveq1 7413 |
. . . . . . . . . . . . . . . 16
β’ (π = π¦ β (πβπ) = (π¦βπ)) |
282 | 281 | oveq2d 7422 |
. . . . . . . . . . . . . . 15
β’ (π = π¦ β (((π + 1) Β· (π΄β(π + 1))) Β· (πβπ)) = (((π + 1) Β· (π΄β(π + 1))) Β· (π¦βπ))) |
283 | 282 | mpteq2dv 5250 |
. . . . . . . . . . . . . 14
β’ (π = π¦ β (π β β0 β¦ (((π + 1) Β· (π΄β(π + 1))) Β· (πβπ))) = (π β β0 β¦ (((π + 1) Β· (π΄β(π + 1))) Β· (π¦βπ)))) |
284 | | eqid 2733 |
. . . . . . . . . . . . . 14
β’ (π β β β¦ (π β β0
β¦ (((π + 1) Β·
(π΄β(π + 1))) Β· (πβπ)))) = (π β β β¦ (π β β0 β¦ (((π + 1) Β· (π΄β(π + 1))) Β· (πβπ)))) |
285 | 249 | mptex 7222 |
. . . . . . . . . . . . . 14
β’ (π β β0
β¦ (((π + 1) Β·
(π΄β(π + 1))) Β· (π¦βπ))) β V |
286 | 283, 284,
285 | fvmpt 6996 |
. . . . . . . . . . . . 13
β’ (π¦ β β β ((π β β β¦ (π β β0
β¦ (((π + 1) Β·
(π΄β(π + 1))) Β· (πβπ))))βπ¦) = (π β β0 β¦ (((π + 1) Β· (π΄β(π + 1))) Β· (π¦βπ)))) |
287 | 280, 286 | syl 17 |
. . . . . . . . . . . 12
β’ (((π β§ π β π) β§ π¦ β π΅) β ((π β β β¦ (π β β0 β¦ (((π + 1) Β· (π΄β(π + 1))) Β· (πβπ))))βπ¦) = (π β β0 β¦ (((π + 1) Β· (π΄β(π + 1))) Β· (π¦βπ)))) |
288 | 287 | adantr 482 |
. . . . . . . . . . 11
β’ ((((π β§ π β π) β§ π¦ β π΅) β§ π β β0) β ((π β β β¦ (π β β0
β¦ (((π + 1) Β·
(π΄β(π + 1))) Β· (πβπ))))βπ¦) = (π β β0 β¦ (((π + 1) Β· (π΄β(π + 1))) Β· (π¦βπ)))) |
289 | 288 | fveq1d 6891 |
. . . . . . . . . 10
β’ ((((π β§ π β π) β§ π¦ β π΅) β§ π β β0) β (((π β β β¦ (π β β0
β¦ (((π + 1) Β·
(π΄β(π + 1))) Β· (πβπ))))βπ¦)βπ) = ((π β β0 β¦ (((π + 1) Β· (π΄β(π + 1))) Β· (π¦βπ)))βπ)) |
290 | | oveq1 7413 |
. . . . . . . . . . . . . 14
β’ (π = π β (π + 1) = (π + 1)) |
291 | | fvoveq1 7429 |
. . . . . . . . . . . . . 14
β’ (π = π β (π΄β(π + 1)) = (π΄β(π + 1))) |
292 | 290, 291 | oveq12d 7424 |
. . . . . . . . . . . . 13
β’ (π = π β ((π + 1) Β· (π΄β(π + 1))) = ((π + 1) Β· (π΄β(π + 1)))) |
293 | | oveq2 7414 |
. . . . . . . . . . . . 13
β’ (π = π β (π¦βπ) = (π¦βπ)) |
294 | 292, 293 | oveq12d 7424 |
. . . . . . . . . . . 12
β’ (π = π β (((π + 1) Β· (π΄β(π + 1))) Β· (π¦βπ)) = (((π + 1) Β· (π΄β(π + 1))) Β· (π¦βπ))) |
295 | | eqid 2733 |
. . . . . . . . . . . 12
β’ (π β β0
β¦ (((π + 1) Β·
(π΄β(π + 1))) Β· (π¦βπ))) = (π β β0 β¦ (((π + 1) Β· (π΄β(π + 1))) Β· (π¦βπ))) |
296 | | ovex 7439 |
. . . . . . . . . . . 12
β’ (((π + 1) Β· (π΄β(π + 1))) Β· (π¦βπ)) β V |
297 | 294, 295,
296 | fvmpt 6996 |
. . . . . . . . . . 11
β’ (π β β0
β ((π β
β0 β¦ (((π + 1) Β· (π΄β(π + 1))) Β· (π¦βπ)))βπ) = (((π + 1) Β· (π΄β(π + 1))) Β· (π¦βπ))) |
298 | 297 | adantl 483 |
. . . . . . . . . 10
β’ ((((π β§ π β π) β§ π¦ β π΅) β§ π β β0) β ((π β β0
β¦ (((π + 1) Β·
(π΄β(π + 1))) Β· (π¦βπ)))βπ) = (((π + 1) Β· (π΄β(π + 1))) Β· (π¦βπ))) |
299 | 289, 298 | eqtrd 2773 |
. . . . . . . . 9
β’ ((((π β§ π β π) β§ π¦ β π΅) β§ π β β0) β (((π β β β¦ (π β β0
β¦ (((π + 1) Β·
(π΄β(π + 1))) Β· (πβπ))))βπ¦)βπ) = (((π + 1) Β· (π΄β(π + 1))) Β· (π¦βπ))) |
300 | 299 | sumeq2dv 15646 |
. . . . . . . 8
β’ (((π β§ π β π) β§ π¦ β π΅) β Ξ£π β β0 (((π β β β¦ (π β β0
β¦ (((π + 1) Β·
(π΄β(π + 1))) Β· (πβπ))))βπ¦)βπ) = Ξ£π β β0 (((π + 1) Β· (π΄β(π + 1))) Β· (π¦βπ))) |
301 | 300 | mpteq2dva 5248 |
. . . . . . 7
β’ ((π β§ π β π) β (π¦ β π΅ β¦ Ξ£π β β0 (((π β β β¦ (π β β0
β¦ (((π + 1) Β·
(π΄β(π + 1))) Β· (πβπ))))βπ¦)βπ)) = (π¦ β π΅ β¦ Ξ£π β β0 (((π + 1) Β· (π΄β(π + 1))) Β· (π¦βπ)))) |
302 | 279, 301 | breqtrd 5174 |
. . . . . 6
β’ ((π β§ π β π) β (π β β0 β¦ (π¦ β π΅ β¦ (seq0( + , ((π β β β¦ (π β β0 β¦ (((π + 1) Β· (π΄β(π + 1))) Β· (πβπ))))βπ¦))βπ)))(βπ’βπ΅)(π¦ β π΅ β¦ Ξ£π β β0 (((π + 1) Β· (π΄β(π + 1))) Β· (π¦βπ)))) |
303 | | nnuz 12862 |
. . . . . . . 8
β’ β =
(β€β₯β1) |
304 | | 1e0p1 12716 |
. . . . . . . . 9
β’ 1 = (0 +
1) |
305 | 304 | fveq2i 6892 |
. . . . . . . 8
β’
(β€β₯β1) = (β€β₯β(0 +
1)) |
306 | 303, 305 | eqtri 2761 |
. . . . . . 7
β’ β =
(β€β₯β(0 + 1)) |
307 | | 1zzd 12590 |
. . . . . . 7
β’ ((π β§ π β π) β 1 β β€) |
308 | | 0zd 12567 |
. . . . . . . . . . . . 13
β’ (((π β§ π β π) β§ π¦ β π΅) β 0 β β€) |
309 | | peano2nn0 12509 |
. . . . . . . . . . . . . . . . . . 19
β’ (π β β0
β (π + 1) β
β0) |
310 | 309 | nn0cnd 12531 |
. . . . . . . . . . . . . . . . . 18
β’ (π β β0
β (π + 1) β
β) |
311 | 310 | adantl 483 |
. . . . . . . . . . . . . . . . 17
β’ ((((π β§ π β π) β§ π¦ β π΅) β§ π β β0) β (π + 1) β
β) |
312 | 7 | ad2antrr 725 |
. . . . . . . . . . . . . . . . . 18
β’ (((π β§ π β π) β§ π¦ β π΅) β π΄:β0βΆβ) |
313 | | ffvelcdm 7081 |
. . . . . . . . . . . . . . . . . 18
β’ ((π΄:β0βΆβ β§
(π + 1) β
β0) β (π΄β(π + 1)) β β) |
314 | 312, 309,
313 | syl2an 597 |
. . . . . . . . . . . . . . . . 17
β’ ((((π β§ π β π) β§ π¦ β π΅) β§ π β β0) β (π΄β(π + 1)) β β) |
315 | 311, 314 | mulcld 11231 |
. . . . . . . . . . . . . . . 16
β’ ((((π β§ π β π) β§ π¦ β π΅) β§ π β β0) β ((π + 1) Β· (π΄β(π + 1))) β β) |
316 | 280, 148 | sylan 581 |
. . . . . . . . . . . . . . . 16
β’ ((((π β§ π β π) β§ π¦ β π΅) β§ π β β0) β (π¦βπ) β β) |
317 | 315, 316 | mulcld 11231 |
. . . . . . . . . . . . . . 15
β’ ((((π β§ π β π) β§ π¦ β π΅) β§ π β β0) β (((π + 1) Β· (π΄β(π + 1))) Β· (π¦βπ)) β β) |
318 | 287, 317 | fmpt3d 7113 |
. . . . . . . . . . . . . 14
β’ (((π β§ π β π) β§ π¦ β π΅) β ((π β β β¦ (π β β0 β¦ (((π + 1) Β· (π΄β(π + 1))) Β· (πβπ))))βπ¦):β0βΆβ) |
319 | 318 | ffvelcdmda 7084 |
. . . . . . . . . . . . 13
β’ ((((π β§ π β π) β§ π¦ β π΅) β§ π β β0) β (((π β β β¦ (π β β0
β¦ (((π + 1) Β·
(π΄β(π + 1))) Β· (πβπ))))βπ¦)βπ) β β) |
320 | 1, 308, 319 | serf 13993 |
. . . . . . . . . . . 12
β’ (((π β§ π β π) β§ π¦ β π΅) β seq0( + , ((π β β β¦ (π β β0 β¦ (((π + 1) Β· (π΄β(π + 1))) Β· (πβπ))))βπ¦)):β0βΆβ) |
321 | 320 | ffvelcdmda 7084 |
. . . . . . . . . . 11
β’ ((((π β§ π β π) β§ π¦ β π΅) β§ π β β0) β (seq0( +
, ((π β β
β¦ (π β
β0 β¦ (((π + 1) Β· (π΄β(π + 1))) Β· (πβπ))))βπ¦))βπ) β β) |
322 | 321 | an32s 651 |
. . . . . . . . . 10
β’ ((((π β§ π β π) β§ π β β0) β§ π¦ β π΅) β (seq0( + , ((π β β β¦ (π β β0 β¦ (((π + 1) Β· (π΄β(π + 1))) Β· (πβπ))))βπ¦))βπ) β β) |
323 | 322 | fmpttd 7112 |
. . . . . . . . 9
β’ (((π β§ π β π) β§ π β β0) β (π¦ β π΅ β¦ (seq0( + , ((π β β β¦ (π β β0 β¦ (((π + 1) Β· (π΄β(π + 1))) Β· (πβπ))))βπ¦))βπ)):π΅βΆβ) |
324 | 30, 31 | elmap 8862 |
. . . . . . . . 9
β’ ((π¦ β π΅ β¦ (seq0( + , ((π β β β¦ (π β β0 β¦ (((π + 1) Β· (π΄β(π + 1))) Β· (πβπ))))βπ¦))βπ)) β (β βm π΅) β (π¦ β π΅ β¦ (seq0( + , ((π β β β¦ (π β β0 β¦ (((π + 1) Β· (π΄β(π + 1))) Β· (πβπ))))βπ¦))βπ)):π΅βΆβ) |
325 | 323, 324 | sylibr 233 |
. . . . . . . 8
β’ (((π β§ π β π) β§ π β β0) β (π¦ β π΅ β¦ (seq0( + , ((π β β β¦ (π β β0 β¦ (((π + 1) Β· (π΄β(π + 1))) Β· (πβπ))))βπ¦))βπ)) β (β βm π΅)) |
326 | 325 | fmpttd 7112 |
. . . . . . 7
β’ ((π β§ π β π) β (π β β0 β¦ (π¦ β π΅ β¦ (seq0( + , ((π β β β¦ (π β β0 β¦ (((π + 1) Β· (π΄β(π + 1))) Β· (πβπ))))βπ¦))βπ))):β0βΆ(β
βm π΅)) |
327 | | elfznn 13527 |
. . . . . . . . . . . . . . . . 17
β’ (π β (1...π) β π β β) |
328 | 327 | nnne0d 12259 |
. . . . . . . . . . . . . . . 16
β’ (π β (1...π) β π β 0) |
329 | 328 | neneqd 2946 |
. . . . . . . . . . . . . . 15
β’ (π β (1...π) β Β¬ π = 0) |
330 | 329 | iffalsed 4539 |
. . . . . . . . . . . . . 14
β’ (π β (1...π) β if(π = 0, 0, (π Β· (π¦β(π β 1)))) = (π Β· (π¦β(π β 1)))) |
331 | 330 | oveq2d 7422 |
. . . . . . . . . . . . 13
β’ (π β (1...π) β ((π΄βπ) Β· if(π = 0, 0, (π Β· (π¦β(π β 1))))) = ((π΄βπ) Β· (π Β· (π¦β(π β 1))))) |
332 | 331 | sumeq2i 15642 |
. . . . . . . . . . . 12
β’
Ξ£π β
(1...π)((π΄βπ) Β· if(π = 0, 0, (π Β· (π¦β(π β 1))))) = Ξ£π β (1...π)((π΄βπ) Β· (π Β· (π¦β(π β 1)))) |
333 | | 1zzd 12590 |
. . . . . . . . . . . . 13
β’ ((((π β§ π β π) β§ π β β) β§ π¦ β π΅) β 1 β β€) |
334 | | nnz 12576 |
. . . . . . . . . . . . . 14
β’ (π β β β π β
β€) |
335 | 334 | ad2antlr 726 |
. . . . . . . . . . . . 13
β’ ((((π β§ π β π) β§ π β β) β§ π¦ β π΅) β π β β€) |
336 | 271 | ad2antrr 725 |
. . . . . . . . . . . . . . 15
β’ ((((π β§ π β π) β§ π β β) β§ π¦ β π΅) β π΄:β0βΆβ) |
337 | 327 | nnnn0d 12529 |
. . . . . . . . . . . . . . 15
β’ (π β (1...π) β π β β0) |
338 | 336, 337,
142 | syl2an 597 |
. . . . . . . . . . . . . 14
β’
(((((π β§ π β π) β§ π β β) β§ π¦ β π΅) β§ π β (1...π)) β (π΄βπ) β β) |
339 | 327 | adantl 483 |
. . . . . . . . . . . . . . . 16
β’
(((((π β§ π β π) β§ π β β) β§ π¦ β π΅) β§ π β (1...π)) β π β β) |
340 | 339 | nncnd 12225 |
. . . . . . . . . . . . . . 15
β’
(((((π β§ π β π) β§ π β β) β§ π¦ β π΅) β§ π β (1...π)) β π β β) |
341 | 280 | adantlr 714 |
. . . . . . . . . . . . . . . 16
β’ ((((π β§ π β π) β§ π β β) β§ π¦ β π΅) β π¦ β β) |
342 | | nnm1nn0 12510 |
. . . . . . . . . . . . . . . . 17
β’ (π β β β (π β 1) β
β0) |
343 | 327, 342 | syl 17 |
. . . . . . . . . . . . . . . 16
β’ (π β (1...π) β (π β 1) β
β0) |
344 | | expcl 14042 |
. . . . . . . . . . . . . . . 16
β’ ((π¦ β β β§ (π β 1) β
β0) β (π¦β(π β 1)) β β) |
345 | 341, 343,
344 | syl2an 597 |
. . . . . . . . . . . . . . 15
β’
(((((π β§ π β π) β§ π β β) β§ π¦ β π΅) β§ π β (1...π)) β (π¦β(π β 1)) β β) |
346 | 340, 345 | mulcld 11231 |
. . . . . . . . . . . . . 14
β’
(((((π β§ π β π) β§ π β β) β§ π¦ β π΅) β§ π β (1...π)) β (π Β· (π¦β(π β 1))) β
β) |
347 | 338, 346 | mulcld 11231 |
. . . . . . . . . . . . 13
β’
(((((π β§ π β π) β§ π β β) β§ π¦ β π΅) β§ π β (1...π)) β ((π΄βπ) Β· (π Β· (π¦β(π β 1)))) β
β) |
348 | | fveq2 6889 |
. . . . . . . . . . . . . 14
β’ (π = (π + 1) β (π΄βπ) = (π΄β(π + 1))) |
349 | | id 22 |
. . . . . . . . . . . . . . 15
β’ (π = (π + 1) β π = (π + 1)) |
350 | | oveq1 7413 |
. . . . . . . . . . . . . . . 16
β’ (π = (π + 1) β (π β 1) = ((π + 1) β 1)) |
351 | 350 | oveq2d 7422 |
. . . . . . . . . . . . . . 15
β’ (π = (π + 1) β (π¦β(π β 1)) = (π¦β((π + 1) β 1))) |
352 | 349, 351 | oveq12d 7424 |
. . . . . . . . . . . . . 14
β’ (π = (π + 1) β (π Β· (π¦β(π β 1))) = ((π + 1) Β· (π¦β((π + 1) β 1)))) |
353 | 348, 352 | oveq12d 7424 |
. . . . . . . . . . . . 13
β’ (π = (π + 1) β ((π΄βπ) Β· (π Β· (π¦β(π β 1)))) = ((π΄β(π + 1)) Β· ((π + 1) Β· (π¦β((π + 1) β 1))))) |
354 | 333, 333,
335, 347, 353 | fsumshftm 15724 |
. . . . . . . . . . . 12
β’ ((((π β§ π β π) β§ π β β) β§ π¦ β π΅) β Ξ£π β (1...π)((π΄βπ) Β· (π Β· (π¦β(π β 1)))) = Ξ£π β ((1 β 1)...(π β 1))((π΄β(π + 1)) Β· ((π + 1) Β· (π¦β((π + 1) β 1))))) |
355 | 332, 354 | eqtrid 2785 |
. . . . . . . . . . 11
β’ ((((π β§ π β π) β§ π β β) β§ π¦ β π΅) β Ξ£π β (1...π)((π΄βπ) Β· if(π = 0, 0, (π Β· (π¦β(π β 1))))) = Ξ£π β ((1 β 1)...(π β 1))((π΄β(π + 1)) Β· ((π + 1) Β· (π¦β((π + 1) β 1))))) |
356 | | fz1ssfz0 13594 |
. . . . . . . . . . . . 13
β’
(1...π) β
(0...π) |
357 | 356 | a1i 11 |
. . . . . . . . . . . 12
β’ ((((π β§ π β π) β§ π β β) β§ π¦ β π΅) β (1...π) β (0...π)) |
358 | 331 | adantl 483 |
. . . . . . . . . . . . 13
β’
(((((π β§ π β π) β§ π β β) β§ π¦ β π΅) β§ π β (1...π)) β ((π΄βπ) Β· if(π = 0, 0, (π Β· (π¦β(π β 1))))) = ((π΄βπ) Β· (π Β· (π¦β(π β 1))))) |
359 | 358, 347 | eqeltrd 2834 |
. . . . . . . . . . . 12
β’
(((((π β§ π β π) β§ π β β) β§ π¦ β π΅) β§ π β (1...π)) β ((π΄βπ) Β· if(π = 0, 0, (π Β· (π¦β(π β 1))))) β
β) |
360 | | eldif 3958 |
. . . . . . . . . . . . . . . . . 18
β’ (π β ((0...π) β ((0 + 1)...π)) β (π β (0...π) β§ Β¬ π β ((0 + 1)...π))) |
361 | | elfzuz2 13503 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ (π β (0...π) β π β
(β€β₯β0)) |
362 | | elfzp12 13577 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ (π β
(β€β₯β0) β (π β (0...π) β (π = 0 β¨ π β ((0 + 1)...π)))) |
363 | 361, 362 | syl 17 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (π β (0...π) β (π β (0...π) β (π = 0 β¨ π β ((0 + 1)...π)))) |
364 | 363 | ibi 267 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (π β (0...π) β (π = 0 β¨ π β ((0 + 1)...π))) |
365 | 364 | ord 863 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π β (0...π) β (Β¬ π = 0 β π β ((0 + 1)...π))) |
366 | 365 | con1d 145 |
. . . . . . . . . . . . . . . . . . 19
β’ (π β (0...π) β (Β¬ π β ((0 + 1)...π) β π = 0)) |
367 | 366 | imp 408 |
. . . . . . . . . . . . . . . . . 18
β’ ((π β (0...π) β§ Β¬ π β ((0 + 1)...π)) β π = 0) |
368 | 360, 367 | sylbi 216 |
. . . . . . . . . . . . . . . . 17
β’ (π β ((0...π) β ((0 + 1)...π)) β π = 0) |
369 | 304 | oveq1i 7416 |
. . . . . . . . . . . . . . . . . 18
β’
(1...π) = ((0 +
1)...π) |
370 | 369 | difeq2i 4119 |
. . . . . . . . . . . . . . . . 17
β’
((0...π) β
(1...π)) = ((0...π) β ((0 + 1)...π)) |
371 | 368, 370 | eleq2s 2852 |
. . . . . . . . . . . . . . . 16
β’ (π β ((0...π) β (1...π)) β π = 0) |
372 | 371 | adantl 483 |
. . . . . . . . . . . . . . 15
β’
(((((π β§ π β π) β§ π β β) β§ π¦ β π΅) β§ π β ((0...π) β (1...π))) β π = 0) |
373 | 372 | iftrued 4536 |
. . . . . . . . . . . . . 14
β’
(((((π β§ π β π) β§ π β β) β§ π¦ β π΅) β§ π β ((0...π) β (1...π))) β if(π = 0, 0, (π Β· (π¦β(π β 1)))) = 0) |
374 | 373 | oveq2d 7422 |
. . . . . . . . . . . . 13
β’
(((((π β§ π β π) β§ π β β) β§ π¦ β π΅) β§ π β ((0...π) β (1...π))) β ((π΄βπ) Β· if(π = 0, 0, (π Β· (π¦β(π β 1))))) = ((π΄βπ) Β· 0)) |
375 | | eldifi 4126 |
. . . . . . . . . . . . . . . 16
β’ (π β ((0...π) β (1...π)) β π β (0...π)) |
376 | 375, 104 | syl 17 |
. . . . . . . . . . . . . . 15
β’ (π β ((0...π) β (1...π)) β π β β0) |
377 | 336, 376,
142 | syl2an 597 |
. . . . . . . . . . . . . 14
β’
(((((π β§ π β π) β§ π β β) β§ π¦ β π΅) β§ π β ((0...π) β (1...π))) β (π΄βπ) β β) |
378 | 377 | mul01d 11410 |
. . . . . . . . . . . . 13
β’
(((((π β§ π β π) β§ π β β) β§ π¦ β π΅) β§ π β ((0...π) β (1...π))) β ((π΄βπ) Β· 0) = 0) |
379 | 374, 378 | eqtrd 2773 |
. . . . . . . . . . . 12
β’
(((((π β§ π β π) β§ π β β) β§ π¦ β π΅) β§ π β ((0...π) β (1...π))) β ((π΄βπ) Β· if(π = 0, 0, (π Β· (π¦β(π β 1))))) = 0) |
380 | | fzfid 13935 |
. . . . . . . . . . . 12
β’ ((((π β§ π β π) β§ π β β) β§ π¦ β π΅) β (0...π) β Fin) |
381 | 357, 359,
379, 380 | fsumss 15668 |
. . . . . . . . . . 11
β’ ((((π β§ π β π) β§ π β β) β§ π¦ β π΅) β Ξ£π β (1...π)((π΄βπ) Β· if(π = 0, 0, (π Β· (π¦β(π β 1))))) = Ξ£π β (0...π)((π΄βπ) Β· if(π = 0, 0, (π Β· (π¦β(π β 1)))))) |
382 | | 1m1e0 12281 |
. . . . . . . . . . . . . 14
β’ (1
β 1) = 0 |
383 | 382 | oveq1i 7416 |
. . . . . . . . . . . . 13
β’ ((1
β 1)...(π β 1))
= (0...(π β
1)) |
384 | 383 | sumeq1i 15641 |
. . . . . . . . . . . 12
β’
Ξ£π β ((1
β 1)...(π β
1))((π΄β(π + 1)) Β· ((π + 1) Β· (π¦β((π + 1) β 1)))) = Ξ£π β (0...(π β 1))((π΄β(π + 1)) Β· ((π + 1) Β· (π¦β((π + 1) β 1)))) |
385 | | elfznn0 13591 |
. . . . . . . . . . . . . . . 16
β’ (π β (0...(π β 1)) β π β β0) |
386 | 385 | adantl 483 |
. . . . . . . . . . . . . . 15
β’
(((((π β§ π β π) β§ π β β) β§ π¦ β π΅) β§ π β (0...(π β 1))) β π β β0) |
387 | 386, 297 | syl 17 |
. . . . . . . . . . . . . 14
β’
(((((π β§ π β π) β§ π β β) β§ π¦ β π΅) β§ π β (0...(π β 1))) β ((π β β0 β¦ (((π + 1) Β· (π΄β(π + 1))) Β· (π¦βπ)))βπ) = (((π + 1) Β· (π΄β(π + 1))) Β· (π¦βπ))) |
388 | 341 | adantr 482 |
. . . . . . . . . . . . . . . 16
β’
(((((π β§ π β π) β§ π β β) β§ π¦ β π΅) β§ π β (0...(π β 1))) β π¦ β β) |
389 | 388, 286 | syl 17 |
. . . . . . . . . . . . . . 15
β’
(((((π β§ π β π) β§ π β β) β§ π¦ β π΅) β§ π β (0...(π β 1))) β ((π β β β¦ (π β β0 β¦ (((π + 1) Β· (π΄β(π + 1))) Β· (πβπ))))βπ¦) = (π β β0 β¦ (((π + 1) Β· (π΄β(π + 1))) Β· (π¦βπ)))) |
390 | 389 | fveq1d 6891 |
. . . . . . . . . . . . . 14
β’
(((((π β§ π β π) β§ π β β) β§ π¦ β π΅) β§ π β (0...(π β 1))) β (((π β β β¦ (π β β0 β¦ (((π + 1) Β· (π΄β(π + 1))) Β· (πβπ))))βπ¦)βπ) = ((π β β0 β¦ (((π + 1) Β· (π΄β(π + 1))) Β· (π¦βπ)))βπ)) |
391 | 336 | adantr 482 |
. . . . . . . . . . . . . . . . 17
β’
(((((π β§ π β π) β§ π β β) β§ π¦ β π΅) β§ π β (0...(π β 1))) β π΄:β0βΆβ) |
392 | | peano2nn0 12509 |
. . . . . . . . . . . . . . . . . 18
β’ (π β β0
β (π + 1) β
β0) |
393 | 386, 392 | syl 17 |
. . . . . . . . . . . . . . . . 17
β’
(((((π β§ π β π) β§ π β β) β§ π¦ β π΅) β§ π β (0...(π β 1))) β (π + 1) β
β0) |
394 | 391, 393 | ffvelcdmd 7085 |
. . . . . . . . . . . . . . . 16
β’
(((((π β§ π β π) β§ π β β) β§ π¦ β π΅) β§ π β (0...(π β 1))) β (π΄β(π + 1)) β β) |
395 | 393 | nn0cnd 12531 |
. . . . . . . . . . . . . . . 16
β’
(((((π β§ π β π) β§ π β β) β§ π¦ β π΅) β§ π β (0...(π β 1))) β (π + 1) β β) |
396 | | expcl 14042 |
. . . . . . . . . . . . . . . . 17
β’ ((π¦ β β β§ π β β0)
β (π¦βπ) β
β) |
397 | 341, 385,
396 | syl2an 597 |
. . . . . . . . . . . . . . . 16
β’
(((((π β§ π β π) β§ π β β) β§ π¦ β π΅) β§ π β (0...(π β 1))) β (π¦βπ) β β) |
398 | 394, 395,
397 | mul12d 11420 |
. . . . . . . . . . . . . . 15
β’
(((((π β§ π β π) β§ π β β) β§ π¦ β π΅) β§ π β (0...(π β 1))) β ((π΄β(π + 1)) Β· ((π + 1) Β· (π¦βπ))) = ((π + 1) Β· ((π΄β(π + 1)) Β· (π¦βπ)))) |
399 | 386 | nn0cnd 12531 |
. . . . . . . . . . . . . . . . . . 19
β’
(((((π β§ π β π) β§ π β β) β§ π¦ β π΅) β§ π β (0...(π β 1))) β π β β) |
400 | | ax-1cn 11165 |
. . . . . . . . . . . . . . . . . . 19
β’ 1 β
β |
401 | | pncan 11463 |
. . . . . . . . . . . . . . . . . . 19
β’ ((π β β β§ 1 β
β) β ((π + 1)
β 1) = π) |
402 | 399, 400,
401 | sylancl 587 |
. . . . . . . . . . . . . . . . . 18
β’
(((((π β§ π β π) β§ π β β) β§ π¦ β π΅) β§ π β (0...(π β 1))) β ((π + 1) β 1) = π) |
403 | 402 | oveq2d 7422 |
. . . . . . . . . . . . . . . . 17
β’
(((((π β§ π β π) β§ π β β) β§ π¦ β π΅) β§ π β (0...(π β 1))) β (π¦β((π + 1) β 1)) = (π¦βπ)) |
404 | 403 | oveq2d 7422 |
. . . . . . . . . . . . . . . 16
β’
(((((π β§ π β π) β§ π β β) β§ π¦ β π΅) β§ π β (0...(π β 1))) β ((π + 1) Β· (π¦β((π + 1) β 1))) = ((π + 1) Β· (π¦βπ))) |
405 | 404 | oveq2d 7422 |
. . . . . . . . . . . . . . 15
β’
(((((π β§ π β π) β§ π β β) β§ π¦ β π΅) β§ π β (0...(π β 1))) β ((π΄β(π + 1)) Β· ((π + 1) Β· (π¦β((π + 1) β 1)))) = ((π΄β(π + 1)) Β· ((π + 1) Β· (π¦βπ)))) |
406 | 395, 394,
397 | mulassd 11234 |
. . . . . . . . . . . . . . 15
β’
(((((π β§ π β π) β§ π β β) β§ π¦ β π΅) β§ π β (0...(π β 1))) β (((π + 1) Β· (π΄β(π + 1))) Β· (π¦βπ)) = ((π + 1) Β· ((π΄β(π + 1)) Β· (π¦βπ)))) |
407 | 398, 405,
406 | 3eqtr4d 2783 |
. . . . . . . . . . . . . 14
β’
(((((π β§ π β π) β§ π β β) β§ π¦ β π΅) β§ π β (0...(π β 1))) β ((π΄β(π + 1)) Β· ((π + 1) Β· (π¦β((π + 1) β 1)))) = (((π + 1) Β· (π΄β(π + 1))) Β· (π¦βπ))) |
408 | 387, 390,
407 | 3eqtr4d 2783 |
. . . . . . . . . . . . 13
β’
(((((π β§ π β π) β§ π β β) β§ π¦ β π΅) β§ π β (0...(π β 1))) β (((π β β β¦ (π β β0 β¦ (((π + 1) Β· (π΄β(π + 1))) Β· (πβπ))))βπ¦)βπ) = ((π΄β(π + 1)) Β· ((π + 1) Β· (π¦β((π + 1) β 1))))) |
409 | | nnm1nn0 12510 |
. . . . . . . . . . . . . . . 16
β’ (π β β β (π β 1) β
β0) |
410 | 409 | adantl 483 |
. . . . . . . . . . . . . . 15
β’ (((π β§ π β π) β§ π β β) β (π β 1) β
β0) |
411 | 410 | adantr 482 |
. . . . . . . . . . . . . 14
β’ ((((π β§ π β π) β§ π β β) β§ π¦ β π΅) β (π β 1) β
β0) |
412 | 411, 1 | eleqtrdi 2844 |
. . . . . . . . . . . . 13
β’ ((((π β§ π β π) β§ π β β) β§ π¦ β π΅) β (π β 1) β
(β€β₯β0)) |
413 | 403, 397 | eqeltrd 2834 |
. . . . . . . . . . . . . . 15
β’
(((((π β§ π β π) β§ π β β) β§ π¦ β π΅) β§ π β (0...(π β 1))) β (π¦β((π + 1) β 1)) β
β) |
414 | 395, 413 | mulcld 11231 |
. . . . . . . . . . . . . 14
β’
(((((π β§ π β π) β§ π β β) β§ π¦ β π΅) β§ π β (0...(π β 1))) β ((π + 1) Β· (π¦β((π + 1) β 1))) β
β) |
415 | 394, 414 | mulcld 11231 |
. . . . . . . . . . . . 13
β’
(((((π β§ π β π) β§ π β β) β§ π¦ β π΅) β§ π β (0...(π β 1))) β ((π΄β(π + 1)) Β· ((π + 1) Β· (π¦β((π + 1) β 1)))) β
β) |
416 | 408, 412,
415 | fsumser 15673 |
. . . . . . . . . . . 12
β’ ((((π β§ π β π) β§ π β β) β§ π¦ β π΅) β Ξ£π β (0...(π β 1))((π΄β(π + 1)) Β· ((π + 1) Β· (π¦β((π + 1) β 1)))) = (seq0( + , ((π β β β¦ (π β β0
β¦ (((π + 1) Β·
(π΄β(π + 1))) Β· (πβπ))))βπ¦))β(π β 1))) |
417 | 384, 416 | eqtrid 2785 |
. . . . . . . . . . 11
β’ ((((π β§ π β π) β§ π β β) β§ π¦ β π΅) β Ξ£π β ((1 β 1)...(π β 1))((π΄β(π + 1)) Β· ((π + 1) Β· (π¦β((π + 1) β 1)))) = (seq0( + , ((π β β β¦ (π β β0
β¦ (((π + 1) Β·
(π΄β(π + 1))) Β· (πβπ))))βπ¦))β(π β 1))) |
418 | 355, 381,
417 | 3eqtr3d 2781 |
. . . . . . . . . 10
β’ ((((π β§ π β π) β§ π β β) β§ π¦ β π΅) β Ξ£π β (0...π)((π΄βπ) Β· if(π = 0, 0, (π Β· (π¦β(π β 1))))) = (seq0( + , ((π β β β¦ (π β β0
β¦ (((π + 1) Β·
(π΄β(π + 1))) Β· (πβπ))))βπ¦))β(π β 1))) |
419 | 418 | mpteq2dva 5248 |
. . . . . . . . 9
β’ (((π β§ π β π) β§ π β β) β (π¦ β π΅ β¦ Ξ£π β (0...π)((π΄βπ) Β· if(π = 0, 0, (π Β· (π¦β(π β 1)))))) = (π¦ β π΅ β¦ (seq0( + , ((π β β β¦ (π β β0 β¦ (((π + 1) Β· (π΄β(π + 1))) Β· (πβπ))))βπ¦))β(π β 1)))) |
420 | | fveq2 6889 |
. . . . . . . . . . . 12
β’ (π = (π β 1) β (seq0( + , ((π β β β¦ (π β β0
β¦ (((π + 1) Β·
(π΄β(π + 1))) Β· (πβπ))))βπ¦))βπ) = (seq0( + , ((π β β β¦ (π β β0 β¦ (((π + 1) Β· (π΄β(π + 1))) Β· (πβπ))))βπ¦))β(π β 1))) |
421 | 420 | mpteq2dv 5250 |
. . . . . . . . . . 11
β’ (π = (π β 1) β (π¦ β π΅ β¦ (seq0( + , ((π β β β¦ (π β β0 β¦ (((π + 1) Β· (π΄β(π + 1))) Β· (πβπ))))βπ¦))βπ)) = (π¦ β π΅ β¦ (seq0( + , ((π β β β¦ (π β β0 β¦ (((π + 1) Β· (π΄β(π + 1))) Β· (πβπ))))βπ¦))β(π β 1)))) |
422 | | eqid 2733 |
. . . . . . . . . . 11
β’ (π β β0
β¦ (π¦ β π΅ β¦ (seq0( + , ((π β β β¦ (π β β0
β¦ (((π + 1) Β·
(π΄β(π + 1))) Β· (πβπ))))βπ¦))βπ))) = (π β β0 β¦ (π¦ β π΅ β¦ (seq0( + , ((π β β β¦ (π β β0 β¦ (((π + 1) Β· (π΄β(π + 1))) Β· (πβπ))))βπ¦))βπ))) |
423 | 31 | mptex 7222 |
. . . . . . . . . . 11
β’ (π¦ β π΅ β¦ (seq0( + , ((π β β β¦ (π β β0 β¦ (((π + 1) Β· (π΄β(π + 1))) Β· (πβπ))))βπ¦))β(π β 1))) β V |
424 | 421, 422,
423 | fvmpt 6996 |
. . . . . . . . . 10
β’ ((π β 1) β
β0 β ((π β β0 β¦ (π¦ β π΅ β¦ (seq0( + , ((π β β β¦ (π β β0 β¦ (((π + 1) Β· (π΄β(π + 1))) Β· (πβπ))))βπ¦))βπ)))β(π β 1)) = (π¦ β π΅ β¦ (seq0( + , ((π β β β¦ (π β β0 β¦ (((π + 1) Β· (π΄β(π + 1))) Β· (πβπ))))βπ¦))β(π β 1)))) |
425 | 410, 424 | syl 17 |
. . . . . . . . 9
β’ (((π β§ π β π) β§ π β β) β ((π β β0 β¦ (π¦ β π΅ β¦ (seq0( + , ((π β β β¦ (π β β0 β¦ (((π + 1) Β· (π΄β(π + 1))) Β· (πβπ))))βπ¦))βπ)))β(π β 1)) = (π¦ β π΅ β¦ (seq0( + , ((π β β β¦ (π β β0 β¦ (((π + 1) Β· (π΄β(π + 1))) Β· (πβπ))))βπ¦))β(π β 1)))) |
426 | 419, 425 | eqtr4d 2776 |
. . . . . . . 8
β’ (((π β§ π β π) β§ π β β) β (π¦ β π΅ β¦ Ξ£π β (0...π)((π΄βπ) Β· if(π = 0, 0, (π Β· (π¦β(π β 1)))))) = ((π β β0 β¦ (π¦ β π΅ β¦ (seq0( + , ((π β β β¦ (π β β0 β¦ (((π + 1) Β· (π΄β(π + 1))) Β· (πβπ))))βπ¦))βπ)))β(π β 1))) |
427 | 426 | mpteq2dva 5248 |
. . . . . . 7
β’ ((π β§ π β π) β (π β β β¦ (π¦ β π΅ β¦ Ξ£π β (0...π)((π΄βπ) Β· if(π = 0, 0, (π Β· (π¦β(π β 1))))))) = (π β β β¦ ((π β β0 β¦ (π¦ β π΅ β¦ (seq0( + , ((π β β β¦ (π β β0 β¦ (((π + 1) Β· (π΄β(π + 1))) Β· (πβπ))))βπ¦))βπ)))β(π β 1)))) |
428 | 1, 306, 4, 307, 326, 427 | ulmshft 25894 |
. . . . . 6
β’ ((π β§ π β π) β ((π β β0 β¦ (π¦ β π΅ β¦ (seq0( + , ((π β β β¦ (π β β0 β¦ (((π + 1) Β· (π΄β(π + 1))) Β· (πβπ))))βπ¦))βπ)))(βπ’βπ΅)(π¦ β π΅ β¦ Ξ£π β β0 (((π + 1) Β· (π΄β(π + 1))) Β· (π¦βπ))) β (π β β β¦ (π¦ β π΅ β¦ Ξ£π β (0...π)((π΄βπ) Β· if(π = 0, 0, (π Β· (π¦β(π β
1)))))))(βπ’βπ΅)(π¦ β π΅ β¦ Ξ£π β β0 (((π + 1) Β· (π΄β(π + 1))) Β· (π¦βπ))))) |
429 | 302, 428 | mpbid 231 |
. . . . 5
β’ ((π β§ π β π) β (π β β β¦ (π¦ β π΅ β¦ Ξ£π β (0...π)((π΄βπ) Β· if(π = 0, 0, (π Β· (π¦β(π β
1)))))))(βπ’βπ΅)(π¦ β π΅ β¦ Ξ£π β β0 (((π + 1) Β· (π΄β(π + 1))) Β· (π¦βπ)))) |
430 | 177, 429 | eqbrtrid 5183 |
. . . 4
β’ ((π β§ π β π) β ((π β β0 β¦ (π¦ β π΅ β¦ Ξ£π β (0...π)((π΄βπ) Β· if(π = 0, 0, (π Β· (π¦β(π β 1))))))) βΎ
β)(βπ’βπ΅)(π¦ β π΅ β¦ Ξ£π β β0 (((π + 1) Β· (π΄β(π + 1))) Β· (π¦βπ)))) |
431 | | 1nn0 12485 |
. . . . . 6
β’ 1 β
β0 |
432 | 431 | a1i 11 |
. . . . 5
β’ ((π β§ π β π) β 1 β
β0) |
433 | | fzfid 13935 |
. . . . . . . . 9
β’ ((((π β§ π β π) β§ π β β0) β§ π¦ β π΅) β (0...π) β Fin) |
434 | 164 | an32s 651 |
. . . . . . . . 9
β’
(((((π β§ π β π) β§ π β β0) β§ π¦ β π΅) β§ π β (0...π)) β ((π΄βπ) Β· if(π = 0, 0, (π Β· (π¦β(π β 1))))) β
β) |
435 | 433, 434 | fsumcl 15676 |
. . . . . . . 8
β’ ((((π β§ π β π) β§ π β β0) β§ π¦ β π΅) β Ξ£π β (0...π)((π΄βπ) Β· if(π = 0, 0, (π Β· (π¦β(π β 1))))) β
β) |
436 | 435 | fmpttd 7112 |
. . . . . . 7
β’ (((π β§ π β π) β§ π β β0) β (π¦ β π΅ β¦ Ξ£π β (0...π)((π΄βπ) Β· if(π = 0, 0, (π Β· (π¦β(π β 1)))))):π΅βΆβ) |
437 | 30, 31 | elmap 8862 |
. . . . . . 7
β’ ((π¦ β π΅ β¦ Ξ£π β (0...π)((π΄βπ) Β· if(π = 0, 0, (π Β· (π¦β(π β 1)))))) β (β
βm π΅)
β (π¦ β π΅ β¦ Ξ£π β (0...π)((π΄βπ) Β· if(π = 0, 0, (π Β· (π¦β(π β 1)))))):π΅βΆβ) |
438 | 436, 437 | sylibr 233 |
. . . . . 6
β’ (((π β§ π β π) β§ π β β0) β (π¦ β π΅ β¦ Ξ£π β (0...π)((π΄βπ) Β· if(π = 0, 0, (π Β· (π¦β(π β 1)))))) β (β
βm π΅)) |
439 | 438 | fmpttd 7112 |
. . . . 5
β’ ((π β§ π β π) β (π β β0 β¦ (π¦ β π΅ β¦ Ξ£π β (0...π)((π΄βπ) Β· if(π = 0, 0, (π Β· (π¦β(π β
1))))))):β0βΆ(β βm π΅)) |
440 | 1, 303, 432, 439 | ulmres 25892 |
. . . 4
β’ ((π β§ π β π) β ((π β β0 β¦ (π¦ β π΅ β¦ Ξ£π β (0...π)((π΄βπ) Β· if(π = 0, 0, (π Β· (π¦β(π β
1)))))))(βπ’βπ΅)(π¦ β π΅ β¦ Ξ£π β β0 (((π + 1) Β· (π΄β(π + 1))) Β· (π¦βπ))) β ((π β β0 β¦ (π¦ β π΅ β¦ Ξ£π β (0...π)((π΄βπ) Β· if(π = 0, 0, (π Β· (π¦β(π β 1))))))) βΎ
β)(βπ’βπ΅)(π¦ β π΅ β¦ Ξ£π β β0 (((π + 1) Β· (π΄β(π + 1))) Β· (π¦βπ))))) |
441 | 430, 440 | mpbird 257 |
. . 3
β’ ((π β§ π β π) β (π β β0 β¦ (π¦ β π΅ β¦ Ξ£π β (0...π)((π΄βπ) Β· if(π = 0, 0, (π Β· (π¦β(π β
1)))))))(βπ’βπ΅)(π¦ β π΅ β¦ Ξ£π β β0 (((π + 1) Β· (π΄β(π + 1))) Β· (π¦βπ)))) |
442 | 174, 441 | eqbrtrd 5170 |
. 2
β’ ((π β§ π β π) β (π β β0 β¦ (β
D ((π β
β0 β¦ (π¦ β π΅ β¦ Ξ£π β (0...π)((πΊβπ¦)βπ)))βπ)))(βπ’βπ΅)(π¦ β π΅ β¦ Ξ£π β β0 (((π + 1) Β· (π΄β(π + 1))) Β· (π¦βπ)))) |
443 | 1, 3, 4, 34, 44, 120, 442 | ulmdv 25907 |
1
β’ ((π β§ π β π) β (β D (πΉ βΎ π΅)) = (π¦ β π΅ β¦ Ξ£π β β0 (((π + 1) Β· (π΄β(π + 1))) Β· (π¦βπ)))) |