Step | Hyp | Ref
| Expression |
1 | | abelth.1 |
. . . . . . 7
β’ (π β π΄:β0βΆβ) |
2 | | 0nn0 12484 |
. . . . . . . 8
β’ 0 β
β0 |
3 | 2 | a1i 11 |
. . . . . . 7
β’ (π β β0
β 0 β β0) |
4 | | ffvelcdm 7081 |
. . . . . . 7
β’ ((π΄:β0βΆβ β§ 0
β β0) β (π΄β0) β β) |
5 | 1, 3, 4 | syl2an 597 |
. . . . . 6
β’ ((π β§ π β β0) β (π΄β0) β
β) |
6 | | nn0uz 12861 |
. . . . . . . 8
β’
β0 = (β€β₯β0) |
7 | | 0zd 12567 |
. . . . . . . 8
β’ (π β 0 β
β€) |
8 | | eqidd 2734 |
. . . . . . . 8
β’ ((π β§ π β β0) β (π΄βπ) = (π΄βπ)) |
9 | 1 | ffvelcdmda 7084 |
. . . . . . . 8
β’ ((π β§ π β β0) β (π΄βπ) β β) |
10 | | abelth.2 |
. . . . . . . 8
β’ (π β seq0( + , π΄) β dom β
) |
11 | 6, 7, 8, 9, 10 | isumcl 15704 |
. . . . . . 7
β’ (π β Ξ£π β β0 (π΄βπ) β β) |
12 | 11 | adantr 482 |
. . . . . 6
β’ ((π β§ π β β0) β
Ξ£π β
β0 (π΄βπ) β β) |
13 | 5, 12 | subcld 11568 |
. . . . 5
β’ ((π β§ π β β0) β ((π΄β0) β Ξ£π β β0
(π΄βπ)) β β) |
14 | 1 | ffvelcdmda 7084 |
. . . . 5
β’ ((π β§ π β β0) β (π΄βπ) β β) |
15 | 13, 14 | ifcld 4574 |
. . . 4
β’ ((π β§ π β β0) β if(π = 0, ((π΄β0) β Ξ£π β β0 (π΄βπ)), (π΄βπ)) β β) |
16 | 15 | fmpttd 7112 |
. . 3
β’ (π β (π β β0 β¦ if(π = 0, ((π΄β0) β Ξ£π β β0 (π΄βπ)), (π΄βπ))):β0βΆβ) |
17 | 2 | a1i 11 |
. . . . . 6
β’ (π β 0 β
β0) |
18 | 16 | ffvelcdmda 7084 |
. . . . . 6
β’ ((π β§ π β β0) β ((π β β0
β¦ if(π = 0, ((π΄β0) β Ξ£π β β0
(π΄βπ)), (π΄βπ)))βπ) β β) |
19 | | 1e0p1 12716 |
. . . . . . . . . 10
β’ 1 = (0 +
1) |
20 | | 1z 12589 |
. . . . . . . . . 10
β’ 1 β
β€ |
21 | 19, 20 | eqeltrri 2831 |
. . . . . . . . 9
β’ (0 + 1)
β β€ |
22 | 21 | a1i 11 |
. . . . . . . 8
β’ (π β (0 + 1) β
β€) |
23 | | nnuz 12862 |
. . . . . . . . . . 11
β’ β =
(β€β₯β1) |
24 | 19 | fveq2i 6892 |
. . . . . . . . . . 11
β’
(β€β₯β1) = (β€β₯β(0 +
1)) |
25 | 23, 24 | eqtri 2761 |
. . . . . . . . . 10
β’ β =
(β€β₯β(0 + 1)) |
26 | 25 | eleq2i 2826 |
. . . . . . . . 9
β’ (π β β β π β
(β€β₯β(0 + 1))) |
27 | | nnnn0 12476 |
. . . . . . . . . . . 12
β’ (π β β β π β
β0) |
28 | 27 | adantl 483 |
. . . . . . . . . . 11
β’ ((π β§ π β β) β π β β0) |
29 | | eqeq1 2737 |
. . . . . . . . . . . . 13
β’ (π = π β (π = 0 β π = 0)) |
30 | | fveq2 6889 |
. . . . . . . . . . . . 13
β’ (π = π β (π΄βπ) = (π΄βπ)) |
31 | 29, 30 | ifbieq2d 4554 |
. . . . . . . . . . . 12
β’ (π = π β if(π = 0, ((π΄β0) β Ξ£π β β0 (π΄βπ)), (π΄βπ)) = if(π = 0, ((π΄β0) β Ξ£π β β0 (π΄βπ)), (π΄βπ))) |
32 | | eqid 2733 |
. . . . . . . . . . . 12
β’ (π β β0
β¦ if(π = 0, ((π΄β0) β Ξ£π β β0
(π΄βπ)), (π΄βπ))) = (π β β0 β¦ if(π = 0, ((π΄β0) β Ξ£π β β0 (π΄βπ)), (π΄βπ))) |
33 | | ovex 7439 |
. . . . . . . . . . . . 13
β’ ((π΄β0) β Ξ£π β β0
(π΄βπ)) β V |
34 | | fvex 6902 |
. . . . . . . . . . . . 13
β’ (π΄βπ) β V |
35 | 33, 34 | ifex 4578 |
. . . . . . . . . . . 12
β’ if(π = 0, ((π΄β0) β Ξ£π β β0 (π΄βπ)), (π΄βπ)) β V |
36 | 31, 32, 35 | fvmpt 6996 |
. . . . . . . . . . 11
β’ (π β β0
β ((π β
β0 β¦ if(π = 0, ((π΄β0) β Ξ£π β β0 (π΄βπ)), (π΄βπ)))βπ) = if(π = 0, ((π΄β0) β Ξ£π β β0 (π΄βπ)), (π΄βπ))) |
37 | 28, 36 | syl 17 |
. . . . . . . . . 10
β’ ((π β§ π β β) β ((π β β0 β¦ if(π = 0, ((π΄β0) β Ξ£π β β0 (π΄βπ)), (π΄βπ)))βπ) = if(π = 0, ((π΄β0) β Ξ£π β β0 (π΄βπ)), (π΄βπ))) |
38 | | nnne0 12243 |
. . . . . . . . . . . . 13
β’ (π β β β π β 0) |
39 | 38 | adantl 483 |
. . . . . . . . . . . 12
β’ ((π β§ π β β) β π β 0) |
40 | 39 | neneqd 2946 |
. . . . . . . . . . 11
β’ ((π β§ π β β) β Β¬ π = 0) |
41 | 40 | iffalsed 4539 |
. . . . . . . . . 10
β’ ((π β§ π β β) β if(π = 0, ((π΄β0) β Ξ£π β β0 (π΄βπ)), (π΄βπ)) = (π΄βπ)) |
42 | 37, 41 | eqtrd 2773 |
. . . . . . . . 9
β’ ((π β§ π β β) β ((π β β0 β¦ if(π = 0, ((π΄β0) β Ξ£π β β0 (π΄βπ)), (π΄βπ)))βπ) = (π΄βπ)) |
43 | 26, 42 | sylan2br 596 |
. . . . . . . 8
β’ ((π β§ π β (β€β₯β(0 +
1))) β ((π β
β0 β¦ if(π = 0, ((π΄β0) β Ξ£π β β0 (π΄βπ)), (π΄βπ)))βπ) = (π΄βπ)) |
44 | 22, 43 | seqfeq 13990 |
. . . . . . 7
β’ (π β seq(0 + 1)( + , (π β β0
β¦ if(π = 0, ((π΄β0) β Ξ£π β β0
(π΄βπ)), (π΄βπ)))) = seq(0 + 1)( + , π΄)) |
45 | 6, 7, 8, 9, 10 | isumclim2 15701 |
. . . . . . . . 9
β’ (π β seq0( + , π΄) β Ξ£π β β0
(π΄βπ)) |
46 | 6, 17, 14, 45 | clim2ser 15598 |
. . . . . . . 8
β’ (π β seq(0 + 1)( + , π΄) β (Ξ£π β β0
(π΄βπ) β (seq0( + , π΄)β0))) |
47 | | 0z 12566 |
. . . . . . . . . 10
β’ 0 β
β€ |
48 | | seq1 13976 |
. . . . . . . . . 10
β’ (0 β
β€ β (seq0( + , π΄)β0) = (π΄β0)) |
49 | 47, 48 | ax-mp 5 |
. . . . . . . . 9
β’ (seq0( +
, π΄)β0) = (π΄β0) |
50 | 49 | oveq2i 7417 |
. . . . . . . 8
β’
(Ξ£π β
β0 (π΄βπ) β (seq0( + , π΄)β0)) = (Ξ£π β β0 (π΄βπ) β (π΄β0)) |
51 | 46, 50 | breqtrdi 5189 |
. . . . . . 7
β’ (π β seq(0 + 1)( + , π΄) β (Ξ£π β β0
(π΄βπ) β (π΄β0))) |
52 | 44, 51 | eqbrtrd 5170 |
. . . . . 6
β’ (π β seq(0 + 1)( + , (π β β0
β¦ if(π = 0, ((π΄β0) β Ξ£π β β0
(π΄βπ)), (π΄βπ)))) β (Ξ£π β β0 (π΄βπ) β (π΄β0))) |
53 | 6, 17, 18, 52 | clim2ser2 15599 |
. . . . 5
β’ (π β seq0( + , (π β β0
β¦ if(π = 0, ((π΄β0) β Ξ£π β β0
(π΄βπ)), (π΄βπ)))) β ((Ξ£π β β0 (π΄βπ) β (π΄β0)) + (seq0( + , (π β β0 β¦ if(π = 0, ((π΄β0) β Ξ£π β β0 (π΄βπ)), (π΄βπ))))β0))) |
54 | | seq1 13976 |
. . . . . . . . 9
β’ (0 β
β€ β (seq0( + , (π β β0 β¦ if(π = 0, ((π΄β0) β Ξ£π β β0 (π΄βπ)), (π΄βπ))))β0) = ((π β β0 β¦ if(π = 0, ((π΄β0) β Ξ£π β β0 (π΄βπ)), (π΄βπ)))β0)) |
55 | 47, 54 | ax-mp 5 |
. . . . . . . 8
β’ (seq0( +
, (π β
β0 β¦ if(π = 0, ((π΄β0) β Ξ£π β β0 (π΄βπ)), (π΄βπ))))β0) = ((π β β0 β¦ if(π = 0, ((π΄β0) β Ξ£π β β0 (π΄βπ)), (π΄βπ)))β0) |
56 | | iftrue 4534 |
. . . . . . . . . 10
β’ (π = 0 β if(π = 0, ((π΄β0) β Ξ£π β β0 (π΄βπ)), (π΄βπ)) = ((π΄β0) β Ξ£π β β0 (π΄βπ))) |
57 | 56, 32, 33 | fvmpt 6996 |
. . . . . . . . 9
β’ (0 β
β0 β ((π β β0 β¦ if(π = 0, ((π΄β0) β Ξ£π β β0 (π΄βπ)), (π΄βπ)))β0) = ((π΄β0) β Ξ£π β β0 (π΄βπ))) |
58 | 2, 57 | ax-mp 5 |
. . . . . . . 8
β’ ((π β β0
β¦ if(π = 0, ((π΄β0) β Ξ£π β β0
(π΄βπ)), (π΄βπ)))β0) = ((π΄β0) β Ξ£π β β0 (π΄βπ)) |
59 | 55, 58 | eqtri 2761 |
. . . . . . 7
β’ (seq0( +
, (π β
β0 β¦ if(π = 0, ((π΄β0) β Ξ£π β β0 (π΄βπ)), (π΄βπ))))β0) = ((π΄β0) β Ξ£π β β0 (π΄βπ)) |
60 | 59 | oveq2i 7417 |
. . . . . 6
β’
((Ξ£π β
β0 (π΄βπ) β (π΄β0)) + (seq0( + , (π β β0 β¦ if(π = 0, ((π΄β0) β Ξ£π β β0 (π΄βπ)), (π΄βπ))))β0)) = ((Ξ£π β β0 (π΄βπ) β (π΄β0)) + ((π΄β0) β Ξ£π β β0 (π΄βπ))) |
61 | 1, 2, 4 | sylancl 587 |
. . . . . . 7
β’ (π β (π΄β0) β β) |
62 | | npncan2 11484 |
. . . . . . 7
β’
((Ξ£π β
β0 (π΄βπ) β β β§ (π΄β0) β β) β
((Ξ£π β
β0 (π΄βπ) β (π΄β0)) + ((π΄β0) β Ξ£π β β0 (π΄βπ))) = 0) |
63 | 11, 61, 62 | syl2anc 585 |
. . . . . 6
β’ (π β ((Ξ£π β β0
(π΄βπ) β (π΄β0)) + ((π΄β0) β Ξ£π β β0 (π΄βπ))) = 0) |
64 | 60, 63 | eqtrid 2785 |
. . . . 5
β’ (π β ((Ξ£π β β0
(π΄βπ) β (π΄β0)) + (seq0( + , (π β β0 β¦ if(π = 0, ((π΄β0) β Ξ£π β β0 (π΄βπ)), (π΄βπ))))β0)) = 0) |
65 | 53, 64 | breqtrd 5174 |
. . . 4
β’ (π β seq0( + , (π β β0
β¦ if(π = 0, ((π΄β0) β Ξ£π β β0
(π΄βπ)), (π΄βπ)))) β 0) |
66 | | seqex 13965 |
. . . . 5
β’ seq0( + ,
(π β
β0 β¦ if(π = 0, ((π΄β0) β Ξ£π β β0 (π΄βπ)), (π΄βπ)))) β V |
67 | | c0ex 11205 |
. . . . 5
β’ 0 β
V |
68 | 66, 67 | breldm 5907 |
. . . 4
β’ (seq0( +
, (π β
β0 β¦ if(π = 0, ((π΄β0) β Ξ£π β β0 (π΄βπ)), (π΄βπ)))) β 0 β seq0( + , (π β β0
β¦ if(π = 0, ((π΄β0) β Ξ£π β β0
(π΄βπ)), (π΄βπ)))) β dom β ) |
69 | 65, 68 | syl 17 |
. . 3
β’ (π β seq0( + , (π β β0
β¦ if(π = 0, ((π΄β0) β Ξ£π β β0
(π΄βπ)), (π΄βπ)))) β dom β ) |
70 | | abelth.3 |
. . 3
β’ (π β π β β) |
71 | | abelth.4 |
. . 3
β’ (π β 0 β€ π) |
72 | | abelth.5 |
. . 3
β’ π = {π§ β β β£ (absβ(1 β
π§)) β€ (π Β· (1 β (absβπ§)))} |
73 | | eqid 2733 |
. . 3
β’ (π₯ β π β¦ Ξ£π β β0 (((π β β0
β¦ if(π = 0, ((π΄β0) β Ξ£π β β0
(π΄βπ)), (π΄βπ)))βπ) Β· (π₯βπ))) = (π₯ β π β¦ Ξ£π β β0 (((π β β0
β¦ if(π = 0, ((π΄β0) β Ξ£π β β0
(π΄βπ)), (π΄βπ)))βπ) Β· (π₯βπ))) |
74 | 16, 69, 70, 71, 72, 73, 65 | abelthlem8 25943 |
. 2
β’ ((π β§ π
β β+) β
βπ€ β
β+ βπ¦ β π ((absβ(1 β π¦)) < π€ β (absβ(((π₯ β π β¦ Ξ£π β β0 (((π β β0
β¦ if(π = 0, ((π΄β0) β Ξ£π β β0
(π΄βπ)), (π΄βπ)))βπ) Β· (π₯βπ)))β1) β ((π₯ β π β¦ Ξ£π β β0 (((π β β0
β¦ if(π = 0, ((π΄β0) β Ξ£π β β0
(π΄βπ)), (π΄βπ)))βπ) Β· (π₯βπ)))βπ¦))) < π
)) |
75 | 1, 10, 70, 71, 72 | abelthlem2 25936 |
. . . . . . . . . . . . . 14
β’ (π β (1 β π β§ (π β {1}) β (0(ballβ(abs
β β ))1))) |
76 | 75 | simpld 496 |
. . . . . . . . . . . . 13
β’ (π β 1 β π) |
77 | 76 | adantr 482 |
. . . . . . . . . . . 12
β’ ((π β§ π¦ β π) β 1 β π) |
78 | 36 | adantl 483 |
. . . . . . . . . . . . . . 15
β’ ((π₯ = 1 β§ π β β0) β ((π β β0
β¦ if(π = 0, ((π΄β0) β Ξ£π β β0
(π΄βπ)), (π΄βπ)))βπ) = if(π = 0, ((π΄β0) β Ξ£π β β0 (π΄βπ)), (π΄βπ))) |
79 | | oveq1 7413 |
. . . . . . . . . . . . . . . 16
β’ (π₯ = 1 β (π₯βπ) = (1βπ)) |
80 | | nn0z 12580 |
. . . . . . . . . . . . . . . . 17
β’ (π β β0
β π β
β€) |
81 | | 1exp 14054 |
. . . . . . . . . . . . . . . . 17
β’ (π β β€ β
(1βπ) =
1) |
82 | 80, 81 | syl 17 |
. . . . . . . . . . . . . . . 16
β’ (π β β0
β (1βπ) =
1) |
83 | 79, 82 | sylan9eq 2793 |
. . . . . . . . . . . . . . 15
β’ ((π₯ = 1 β§ π β β0) β (π₯βπ) = 1) |
84 | 78, 83 | oveq12d 7424 |
. . . . . . . . . . . . . 14
β’ ((π₯ = 1 β§ π β β0) β (((π β β0
β¦ if(π = 0, ((π΄β0) β Ξ£π β β0
(π΄βπ)), (π΄βπ)))βπ) Β· (π₯βπ)) = (if(π = 0, ((π΄β0) β Ξ£π β β0 (π΄βπ)), (π΄βπ)) Β· 1)) |
85 | 84 | sumeq2dv 15646 |
. . . . . . . . . . . . 13
β’ (π₯ = 1 β Ξ£π β β0
(((π β
β0 β¦ if(π = 0, ((π΄β0) β Ξ£π β β0 (π΄βπ)), (π΄βπ)))βπ) Β· (π₯βπ)) = Ξ£π β β0 (if(π = 0, ((π΄β0) β Ξ£π β β0 (π΄βπ)), (π΄βπ)) Β· 1)) |
86 | | sumex 15631 |
. . . . . . . . . . . . 13
β’
Ξ£π β
β0 (if(π =
0, ((π΄β0) β
Ξ£π β
β0 (π΄βπ)), (π΄βπ)) Β· 1) β V |
87 | 85, 73, 86 | fvmpt 6996 |
. . . . . . . . . . . 12
β’ (1 β
π β ((π₯ β π β¦ Ξ£π β β0 (((π β β0
β¦ if(π = 0, ((π΄β0) β Ξ£π β β0
(π΄βπ)), (π΄βπ)))βπ) Β· (π₯βπ)))β1) = Ξ£π β β0 (if(π = 0, ((π΄β0) β Ξ£π β β0 (π΄βπ)), (π΄βπ)) Β· 1)) |
88 | 77, 87 | syl 17 |
. . . . . . . . . . 11
β’ ((π β§ π¦ β π) β ((π₯ β π β¦ Ξ£π β β0 (((π β β0
β¦ if(π = 0, ((π΄β0) β Ξ£π β β0
(π΄βπ)), (π΄βπ)))βπ) Β· (π₯βπ)))β1) = Ξ£π β β0 (if(π = 0, ((π΄β0) β Ξ£π β β0 (π΄βπ)), (π΄βπ)) Β· 1)) |
89 | | 0zd 12567 |
. . . . . . . . . . . 12
β’ ((π β§ π¦ β π) β 0 β β€) |
90 | 36 | adantl 483 |
. . . . . . . . . . . . 13
β’ (((π β§ π¦ β π) β§ π β β0) β ((π β β0
β¦ if(π = 0, ((π΄β0) β Ξ£π β β0
(π΄βπ)), (π΄βπ)))βπ) = if(π = 0, ((π΄β0) β Ξ£π β β0 (π΄βπ)), (π΄βπ))) |
91 | 61, 11 | subcld 11568 |
. . . . . . . . . . . . . . . 16
β’ (π β ((π΄β0) β Ξ£π β β0 (π΄βπ)) β β) |
92 | 91 | ad2antrr 725 |
. . . . . . . . . . . . . . 15
β’ (((π β§ π¦ β π) β§ π β β0) β ((π΄β0) β Ξ£π β β0
(π΄βπ)) β β) |
93 | 1 | ffvelcdmda 7084 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β β0) β (π΄βπ) β β) |
94 | 93 | adantlr 714 |
. . . . . . . . . . . . . . 15
β’ (((π β§ π¦ β π) β§ π β β0) β (π΄βπ) β β) |
95 | 92, 94 | ifcld 4574 |
. . . . . . . . . . . . . 14
β’ (((π β§ π¦ β π) β§ π β β0) β if(π = 0, ((π΄β0) β Ξ£π β β0 (π΄βπ)), (π΄βπ)) β β) |
96 | 95 | mulridd 11228 |
. . . . . . . . . . . . 13
β’ (((π β§ π¦ β π) β§ π β β0) β (if(π = 0, ((π΄β0) β Ξ£π β β0 (π΄βπ)), (π΄βπ)) Β· 1) = if(π = 0, ((π΄β0) β Ξ£π β β0 (π΄βπ)), (π΄βπ))) |
97 | 90, 96 | eqtr4d 2776 |
. . . . . . . . . . . 12
β’ (((π β§ π¦ β π) β§ π β β0) β ((π β β0
β¦ if(π = 0, ((π΄β0) β Ξ£π β β0
(π΄βπ)), (π΄βπ)))βπ) = (if(π = 0, ((π΄β0) β Ξ£π β β0 (π΄βπ)), (π΄βπ)) Β· 1)) |
98 | 96, 95 | eqeltrd 2834 |
. . . . . . . . . . . 12
β’ (((π β§ π¦ β π) β§ π β β0) β (if(π = 0, ((π΄β0) β Ξ£π β β0 (π΄βπ)), (π΄βπ)) Β· 1) β
β) |
99 | | oveq1 7413 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ (π₯ = 1 β (π₯βπ) = (1βπ)) |
100 | | nn0z 12580 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ (π β β0
β π β
β€) |
101 | | 1exp 14054 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ (π β β€ β
(1βπ) =
1) |
102 | 100, 101 | syl 17 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ (π β β0
β (1βπ) =
1) |
103 | 99, 102 | sylan9eq 2793 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ ((π₯ = 1 β§ π β β0) β (π₯βπ) = 1) |
104 | 103 | oveq2d 7422 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((π₯ = 1 β§ π β β0) β ((π΄βπ) Β· (π₯βπ)) = ((π΄βπ) Β· 1)) |
105 | 104 | sumeq2dv 15646 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π₯ = 1 β Ξ£π β β0
((π΄βπ) Β· (π₯βπ)) = Ξ£π β β0 ((π΄βπ) Β· 1)) |
106 | | fveq2 6889 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (π = π β (π΄βπ) = (π΄βπ)) |
107 | 106 | oveq1d 7421 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (π = π β ((π΄βπ) Β· 1) = ((π΄βπ) Β· 1)) |
108 | 107 | cbvsumv 15639 |
. . . . . . . . . . . . . . . . . . . 20
β’
Ξ£π β
β0 ((π΄βπ) Β· 1) = Ξ£π β β0 ((π΄βπ) Β· 1) |
109 | 105, 108 | eqtrdi 2789 |
. . . . . . . . . . . . . . . . . . 19
β’ (π₯ = 1 β Ξ£π β β0
((π΄βπ) Β· (π₯βπ)) = Ξ£π β β0 ((π΄βπ) Β· 1)) |
110 | | abelth.6 |
. . . . . . . . . . . . . . . . . . 19
β’ πΉ = (π₯ β π β¦ Ξ£π β β0 ((π΄βπ) Β· (π₯βπ))) |
111 | | sumex 15631 |
. . . . . . . . . . . . . . . . . . 19
β’
Ξ£π β
β0 ((π΄βπ) Β· 1) β V |
112 | 109, 110,
111 | fvmpt 6996 |
. . . . . . . . . . . . . . . . . 18
β’ (1 β
π β (πΉβ1) = Ξ£π β β0 ((π΄βπ) Β· 1)) |
113 | 76, 112 | syl 17 |
. . . . . . . . . . . . . . . . 17
β’ (π β (πΉβ1) = Ξ£π β β0 ((π΄βπ) Β· 1)) |
114 | 9 | mulridd 11228 |
. . . . . . . . . . . . . . . . . 18
β’ ((π β§ π β β0) β ((π΄βπ) Β· 1) = (π΄βπ)) |
115 | 114 | sumeq2dv 15646 |
. . . . . . . . . . . . . . . . 17
β’ (π β Ξ£π β β0 ((π΄βπ) Β· 1) = Ξ£π β β0 (π΄βπ)) |
116 | 113, 115 | eqtrd 2773 |
. . . . . . . . . . . . . . . 16
β’ (π β (πΉβ1) = Ξ£π β β0 (π΄βπ)) |
117 | 116 | oveq1d 7421 |
. . . . . . . . . . . . . . 15
β’ (π β ((πΉβ1) β Ξ£π β β0 (π΄βπ)) = (Ξ£π β β0 (π΄βπ) β Ξ£π β β0 (π΄βπ))) |
118 | 11 | subidd 11556 |
. . . . . . . . . . . . . . 15
β’ (π β (Ξ£π β β0 (π΄βπ) β Ξ£π β β0 (π΄βπ)) = 0) |
119 | 117, 118 | eqtrd 2773 |
. . . . . . . . . . . . . 14
β’ (π β ((πΉβ1) β Ξ£π β β0 (π΄βπ)) = 0) |
120 | 65, 119 | breqtrrd 5176 |
. . . . . . . . . . . . 13
β’ (π β seq0( + , (π β β0
β¦ if(π = 0, ((π΄β0) β Ξ£π β β0
(π΄βπ)), (π΄βπ)))) β ((πΉβ1) β Ξ£π β β0 (π΄βπ))) |
121 | 120 | adantr 482 |
. . . . . . . . . . . 12
β’ ((π β§ π¦ β π) β seq0( + , (π β β0 β¦ if(π = 0, ((π΄β0) β Ξ£π β β0 (π΄βπ)), (π΄βπ)))) β ((πΉβ1) β Ξ£π β β0 (π΄βπ))) |
122 | 6, 89, 97, 98, 121 | isumclim 15700 |
. . . . . . . . . . 11
β’ ((π β§ π¦ β π) β Ξ£π β β0 (if(π = 0, ((π΄β0) β Ξ£π β β0 (π΄βπ)), (π΄βπ)) Β· 1) = ((πΉβ1) β Ξ£π β β0 (π΄βπ))) |
123 | 88, 122 | eqtrd 2773 |
. . . . . . . . . 10
β’ ((π β§ π¦ β π) β ((π₯ β π β¦ Ξ£π β β0 (((π β β0
β¦ if(π = 0, ((π΄β0) β Ξ£π β β0
(π΄βπ)), (π΄βπ)))βπ) Β· (π₯βπ)))β1) = ((πΉβ1) β Ξ£π β β0 (π΄βπ))) |
124 | | oveq1 7413 |
. . . . . . . . . . . . . . 15
β’ (π₯ = π¦ β (π₯βπ) = (π¦βπ)) |
125 | 36, 124 | oveqan12rd 7426 |
. . . . . . . . . . . . . 14
β’ ((π₯ = π¦ β§ π β β0) β (((π β β0
β¦ if(π = 0, ((π΄β0) β Ξ£π β β0
(π΄βπ)), (π΄βπ)))βπ) Β· (π₯βπ)) = (if(π = 0, ((π΄β0) β Ξ£π β β0 (π΄βπ)), (π΄βπ)) Β· (π¦βπ))) |
126 | 125 | sumeq2dv 15646 |
. . . . . . . . . . . . 13
β’ (π₯ = π¦ β Ξ£π β β0 (((π β β0
β¦ if(π = 0, ((π΄β0) β Ξ£π β β0
(π΄βπ)), (π΄βπ)))βπ) Β· (π₯βπ)) = Ξ£π β β0 (if(π = 0, ((π΄β0) β Ξ£π β β0 (π΄βπ)), (π΄βπ)) Β· (π¦βπ))) |
127 | | sumex 15631 |
. . . . . . . . . . . . 13
β’
Ξ£π β
β0 (if(π =
0, ((π΄β0) β
Ξ£π β
β0 (π΄βπ)), (π΄βπ)) Β· (π¦βπ)) β V |
128 | 126, 73, 127 | fvmpt 6996 |
. . . . . . . . . . . 12
β’ (π¦ β π β ((π₯ β π β¦ Ξ£π β β0 (((π β β0
β¦ if(π = 0, ((π΄β0) β Ξ£π β β0
(π΄βπ)), (π΄βπ)))βπ) Β· (π₯βπ)))βπ¦) = Ξ£π β β0 (if(π = 0, ((π΄β0) β Ξ£π β β0 (π΄βπ)), (π΄βπ)) Β· (π¦βπ))) |
129 | 128 | adantl 483 |
. . . . . . . . . . 11
β’ ((π β§ π¦ β π) β ((π₯ β π β¦ Ξ£π β β0 (((π β β0
β¦ if(π = 0, ((π΄β0) β Ξ£π β β0
(π΄βπ)), (π΄βπ)))βπ) Β· (π₯βπ)))βπ¦) = Ξ£π β β0 (if(π = 0, ((π΄β0) β Ξ£π β β0 (π΄βπ)), (π΄βπ)) Β· (π¦βπ))) |
130 | | oveq2 7414 |
. . . . . . . . . . . . . . 15
β’ (π = π β (π¦βπ) = (π¦βπ)) |
131 | 31, 130 | oveq12d 7424 |
. . . . . . . . . . . . . 14
β’ (π = π β (if(π = 0, ((π΄β0) β Ξ£π β β0 (π΄βπ)), (π΄βπ)) Β· (π¦βπ)) = (if(π = 0, ((π΄β0) β Ξ£π β β0 (π΄βπ)), (π΄βπ)) Β· (π¦βπ))) |
132 | | eqid 2733 |
. . . . . . . . . . . . . 14
β’ (π β β0
β¦ (if(π = 0, ((π΄β0) β Ξ£π β β0
(π΄βπ)), (π΄βπ)) Β· (π¦βπ))) = (π β β0 β¦ (if(π = 0, ((π΄β0) β Ξ£π β β0 (π΄βπ)), (π΄βπ)) Β· (π¦βπ))) |
133 | | ovex 7439 |
. . . . . . . . . . . . . 14
β’ (if(π = 0, ((π΄β0) β Ξ£π β β0 (π΄βπ)), (π΄βπ)) Β· (π¦βπ)) β V |
134 | 131, 132,
133 | fvmpt 6996 |
. . . . . . . . . . . . 13
β’ (π β β0
β ((π β
β0 β¦ (if(π = 0, ((π΄β0) β Ξ£π β β0 (π΄βπ)), (π΄βπ)) Β· (π¦βπ)))βπ) = (if(π = 0, ((π΄β0) β Ξ£π β β0 (π΄βπ)), (π΄βπ)) Β· (π¦βπ))) |
135 | 134 | adantl 483 |
. . . . . . . . . . . 12
β’ (((π β§ π¦ β π) β§ π β β0) β ((π β β0
β¦ (if(π = 0, ((π΄β0) β Ξ£π β β0
(π΄βπ)), (π΄βπ)) Β· (π¦βπ)))βπ) = (if(π = 0, ((π΄β0) β Ξ£π β β0 (π΄βπ)), (π΄βπ)) Β· (π¦βπ))) |
136 | 72 | ssrab3 4080 |
. . . . . . . . . . . . . . . 16
β’ π β
β |
137 | 136 | a1i 11 |
. . . . . . . . . . . . . . 15
β’ (π β π β β) |
138 | 137 | sselda 3982 |
. . . . . . . . . . . . . 14
β’ ((π β§ π¦ β π) β π¦ β β) |
139 | | expcl 14042 |
. . . . . . . . . . . . . 14
β’ ((π¦ β β β§ π β β0)
β (π¦βπ) β
β) |
140 | 138, 139 | sylan 581 |
. . . . . . . . . . . . 13
β’ (((π β§ π¦ β π) β§ π β β0) β (π¦βπ) β β) |
141 | 95, 140 | mulcld 11231 |
. . . . . . . . . . . 12
β’ (((π β§ π¦ β π) β§ π β β0) β (if(π = 0, ((π΄β0) β Ξ£π β β0 (π΄βπ)), (π΄βπ)) Β· (π¦βπ)) β β) |
142 | 2 | a1i 11 |
. . . . . . . . . . . . . 14
β’ ((π β§ π¦ β π) β 0 β
β0) |
143 | 15 | adantlr 714 |
. . . . . . . . . . . . . . . . 17
β’ (((π β§ π¦ β π) β§ π β β0) β if(π = 0, ((π΄β0) β Ξ£π β β0 (π΄βπ)), (π΄βπ)) β β) |
144 | | expcl 14042 |
. . . . . . . . . . . . . . . . . 18
β’ ((π¦ β β β§ π β β0)
β (π¦βπ) β
β) |
145 | 138, 144 | sylan 581 |
. . . . . . . . . . . . . . . . 17
β’ (((π β§ π¦ β π) β§ π β β0) β (π¦βπ) β β) |
146 | 143, 145 | mulcld 11231 |
. . . . . . . . . . . . . . . 16
β’ (((π β§ π¦ β π) β§ π β β0) β (if(π = 0, ((π΄β0) β Ξ£π β β0 (π΄βπ)), (π΄βπ)) Β· (π¦βπ)) β β) |
147 | 146 | fmpttd 7112 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π¦ β π) β (π β β0 β¦ (if(π = 0, ((π΄β0) β Ξ£π β β0 (π΄βπ)), (π΄βπ)) Β· (π¦βπ))):β0βΆβ) |
148 | 147 | ffvelcdmda 7084 |
. . . . . . . . . . . . . 14
β’ (((π β§ π¦ β π) β§ π β β0) β ((π β β0
β¦ (if(π = 0, ((π΄β0) β Ξ£π β β0
(π΄βπ)), (π΄βπ)) Β· (π¦βπ)))βπ) β β) |
149 | 41 | oveq1d 7421 |
. . . . . . . . . . . . . . . . . . 19
β’ ((π β§ π β β) β (if(π = 0, ((π΄β0) β Ξ£π β β0 (π΄βπ)), (π΄βπ)) Β· (π¦βπ)) = ((π΄βπ) Β· (π¦βπ))) |
150 | 28, 134 | syl 17 |
. . . . . . . . . . . . . . . . . . 19
β’ ((π β§ π β β) β ((π β β0 β¦ (if(π = 0, ((π΄β0) β Ξ£π β β0 (π΄βπ)), (π΄βπ)) Β· (π¦βπ)))βπ) = (if(π = 0, ((π΄β0) β Ξ£π β β0 (π΄βπ)), (π΄βπ)) Β· (π¦βπ))) |
151 | 30, 130 | oveq12d 7424 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (π = π β ((π΄βπ) Β· (π¦βπ)) = ((π΄βπ) Β· (π¦βπ))) |
152 | | eqid 2733 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (π β β0
β¦ ((π΄βπ) Β· (π¦βπ))) = (π β β0 β¦ ((π΄βπ) Β· (π¦βπ))) |
153 | | ovex 7439 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((π΄βπ) Β· (π¦βπ)) β V |
154 | 151, 152,
153 | fvmpt 6996 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π β β0
β ((π β
β0 β¦ ((π΄βπ) Β· (π¦βπ)))βπ) = ((π΄βπ) Β· (π¦βπ))) |
155 | 28, 154 | syl 17 |
. . . . . . . . . . . . . . . . . . 19
β’ ((π β§ π β β) β ((π β β0 β¦ ((π΄βπ) Β· (π¦βπ)))βπ) = ((π΄βπ) Β· (π¦βπ))) |
156 | 149, 150,
155 | 3eqtr4d 2783 |
. . . . . . . . . . . . . . . . . 18
β’ ((π β§ π β β) β ((π β β0 β¦ (if(π = 0, ((π΄β0) β Ξ£π β β0 (π΄βπ)), (π΄βπ)) Β· (π¦βπ)))βπ) = ((π β β0 β¦ ((π΄βπ) Β· (π¦βπ)))βπ)) |
157 | 26, 156 | sylan2br 596 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π β (β€β₯β(0 +
1))) β ((π β
β0 β¦ (if(π = 0, ((π΄β0) β Ξ£π β β0 (π΄βπ)), (π΄βπ)) Β· (π¦βπ)))βπ) = ((π β β0 β¦ ((π΄βπ) Β· (π¦βπ)))βπ)) |
158 | 22, 157 | seqfeq 13990 |
. . . . . . . . . . . . . . . 16
β’ (π β seq(0 + 1)( + , (π β β0
β¦ (if(π = 0, ((π΄β0) β Ξ£π β β0
(π΄βπ)), (π΄βπ)) Β· (π¦βπ)))) = seq(0 + 1)( + , (π β β0 β¦ ((π΄βπ) Β· (π¦βπ))))) |
159 | 158 | adantr 482 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π¦ β π) β seq(0 + 1)( + , (π β β0 β¦ (if(π = 0, ((π΄β0) β Ξ£π β β0 (π΄βπ)), (π΄βπ)) Β· (π¦βπ)))) = seq(0 + 1)( + , (π β β0 β¦ ((π΄βπ) Β· (π¦βπ))))) |
160 | 14 | adantlr 714 |
. . . . . . . . . . . . . . . . . . . 20
β’ (((π β§ π¦ β π) β§ π β β0) β (π΄βπ) β β) |
161 | 160, 145 | mulcld 11231 |
. . . . . . . . . . . . . . . . . . 19
β’ (((π β§ π¦ β π) β§ π β β0) β ((π΄βπ) Β· (π¦βπ)) β β) |
162 | 161 | fmpttd 7112 |
. . . . . . . . . . . . . . . . . 18
β’ ((π β§ π¦ β π) β (π β β0 β¦ ((π΄βπ) Β· (π¦βπ))):β0βΆβ) |
163 | 162 | ffvelcdmda 7084 |
. . . . . . . . . . . . . . . . 17
β’ (((π β§ π¦ β π) β§ π β β0) β ((π β β0
β¦ ((π΄βπ) Β· (π¦βπ)))βπ) β β) |
164 | 154 | adantl 483 |
. . . . . . . . . . . . . . . . . . 19
β’ (((π β§ π¦ β π) β§ π β β0) β ((π β β0
β¦ ((π΄βπ) Β· (π¦βπ)))βπ) = ((π΄βπ) Β· (π¦βπ))) |
165 | 94, 140 | mulcld 11231 |
. . . . . . . . . . . . . . . . . . 19
β’ (((π β§ π¦ β π) β§ π β β0) β ((π΄βπ) Β· (π¦βπ)) β β) |
166 | 1, 10, 70, 71, 72 | abelthlem3 25937 |
. . . . . . . . . . . . . . . . . . 19
β’ ((π β§ π¦ β π) β seq0( + , (π β β0 β¦ ((π΄βπ) Β· (π¦βπ)))) β dom β ) |
167 | 6, 89, 164, 165, 166 | isumclim2 15701 |
. . . . . . . . . . . . . . . . . 18
β’ ((π β§ π¦ β π) β seq0( + , (π β β0 β¦ ((π΄βπ) Β· (π¦βπ)))) β Ξ£π β β0 ((π΄βπ) Β· (π¦βπ))) |
168 | | fveq2 6889 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ (π = π β (π΄βπ) = (π΄βπ)) |
169 | | oveq2 7414 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ (π = π β (π₯βπ) = (π₯βπ)) |
170 | 168, 169 | oveq12d 7424 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (π = π β ((π΄βπ) Β· (π₯βπ)) = ((π΄βπ) Β· (π₯βπ))) |
171 | 170 | cbvsumv 15639 |
. . . . . . . . . . . . . . . . . . . . 21
β’
Ξ£π β
β0 ((π΄βπ) Β· (π₯βπ)) = Ξ£π β β0 ((π΄βπ) Β· (π₯βπ)) |
172 | 124 | oveq2d 7422 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (π₯ = π¦ β ((π΄βπ) Β· (π₯βπ)) = ((π΄βπ) Β· (π¦βπ))) |
173 | 172 | sumeq2sdv 15647 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (π₯ = π¦ β Ξ£π β β0 ((π΄βπ) Β· (π₯βπ)) = Ξ£π β β0 ((π΄βπ) Β· (π¦βπ))) |
174 | 171, 173 | eqtrid 2785 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π₯ = π¦ β Ξ£π β β0 ((π΄βπ) Β· (π₯βπ)) = Ξ£π β β0 ((π΄βπ) Β· (π¦βπ))) |
175 | | sumex 15631 |
. . . . . . . . . . . . . . . . . . . 20
β’
Ξ£π β
β0 ((π΄βπ) Β· (π¦βπ)) β V |
176 | 174, 110,
175 | fvmpt 6996 |
. . . . . . . . . . . . . . . . . . 19
β’ (π¦ β π β (πΉβπ¦) = Ξ£π β β0 ((π΄βπ) Β· (π¦βπ))) |
177 | 176 | adantl 483 |
. . . . . . . . . . . . . . . . . 18
β’ ((π β§ π¦ β π) β (πΉβπ¦) = Ξ£π β β0 ((π΄βπ) Β· (π¦βπ))) |
178 | 167, 177 | breqtrrd 5176 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π¦ β π) β seq0( + , (π β β0 β¦ ((π΄βπ) Β· (π¦βπ)))) β (πΉβπ¦)) |
179 | 6, 142, 163, 178 | clim2ser 15598 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π¦ β π) β seq(0 + 1)( + , (π β β0 β¦ ((π΄βπ) Β· (π¦βπ)))) β ((πΉβπ¦) β (seq0( + , (π β β0 β¦ ((π΄βπ) Β· (π¦βπ))))β0))) |
180 | | seq1 13976 |
. . . . . . . . . . . . . . . . . . . 20
β’ (0 β
β€ β (seq0( + , (π β β0 β¦ ((π΄βπ) Β· (π¦βπ))))β0) = ((π β β0 β¦ ((π΄βπ) Β· (π¦βπ)))β0)) |
181 | 47, 180 | ax-mp 5 |
. . . . . . . . . . . . . . . . . . 19
β’ (seq0( +
, (π β
β0 β¦ ((π΄βπ) Β· (π¦βπ))))β0) = ((π β β0 β¦ ((π΄βπ) Β· (π¦βπ)))β0) |
182 | | fveq2 6889 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (π = 0 β (π΄βπ) = (π΄β0)) |
183 | | oveq2 7414 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (π = 0 β (π¦βπ) = (π¦β0)) |
184 | 182, 183 | oveq12d 7424 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (π = 0 β ((π΄βπ) Β· (π¦βπ)) = ((π΄β0) Β· (π¦β0))) |
185 | | ovex 7439 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((π΄β0) Β· (π¦β0)) β
V |
186 | 184, 152,
185 | fvmpt 6996 |
. . . . . . . . . . . . . . . . . . . 20
β’ (0 β
β0 β ((π β β0 β¦ ((π΄βπ) Β· (π¦βπ)))β0) = ((π΄β0) Β· (π¦β0))) |
187 | 2, 186 | ax-mp 5 |
. . . . . . . . . . . . . . . . . . 19
β’ ((π β β0
β¦ ((π΄βπ) Β· (π¦βπ)))β0) = ((π΄β0) Β· (π¦β0)) |
188 | 181, 187 | eqtri 2761 |
. . . . . . . . . . . . . . . . . 18
β’ (seq0( +
, (π β
β0 β¦ ((π΄βπ) Β· (π¦βπ))))β0) = ((π΄β0) Β· (π¦β0)) |
189 | 138 | exp0d 14102 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((π β§ π¦ β π) β (π¦β0) = 1) |
190 | 189 | oveq2d 7422 |
. . . . . . . . . . . . . . . . . . 19
β’ ((π β§ π¦ β π) β ((π΄β0) Β· (π¦β0)) = ((π΄β0) Β· 1)) |
191 | 61 | adantr 482 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((π β§ π¦ β π) β (π΄β0) β β) |
192 | 191 | mulridd 11228 |
. . . . . . . . . . . . . . . . . . 19
β’ ((π β§ π¦ β π) β ((π΄β0) Β· 1) = (π΄β0)) |
193 | 190, 192 | eqtrd 2773 |
. . . . . . . . . . . . . . . . . 18
β’ ((π β§ π¦ β π) β ((π΄β0) Β· (π¦β0)) = (π΄β0)) |
194 | 188, 193 | eqtrid 2785 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π¦ β π) β (seq0( + , (π β β0 β¦ ((π΄βπ) Β· (π¦βπ))))β0) = (π΄β0)) |
195 | 194 | oveq2d 7422 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π¦ β π) β ((πΉβπ¦) β (seq0( + , (π β β0 β¦ ((π΄βπ) Β· (π¦βπ))))β0)) = ((πΉβπ¦) β (π΄β0))) |
196 | 179, 195 | breqtrd 5174 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π¦ β π) β seq(0 + 1)( + , (π β β0 β¦ ((π΄βπ) Β· (π¦βπ)))) β ((πΉβπ¦) β (π΄β0))) |
197 | 159, 196 | eqbrtrd 5170 |
. . . . . . . . . . . . . 14
β’ ((π β§ π¦ β π) β seq(0 + 1)( + , (π β β0 β¦ (if(π = 0, ((π΄β0) β Ξ£π β β0 (π΄βπ)), (π΄βπ)) Β· (π¦βπ)))) β ((πΉβπ¦) β (π΄β0))) |
198 | 6, 142, 148, 197 | clim2ser2 15599 |
. . . . . . . . . . . . 13
β’ ((π β§ π¦ β π) β seq0( + , (π β β0 β¦ (if(π = 0, ((π΄β0) β Ξ£π β β0 (π΄βπ)), (π΄βπ)) Β· (π¦βπ)))) β (((πΉβπ¦) β (π΄β0)) + (seq0( + , (π β β0 β¦ (if(π = 0, ((π΄β0) β Ξ£π β β0 (π΄βπ)), (π΄βπ)) Β· (π¦βπ))))β0))) |
199 | | seq1 13976 |
. . . . . . . . . . . . . . . . . 18
β’ (0 β
β€ β (seq0( + , (π β β0 β¦ (if(π = 0, ((π΄β0) β Ξ£π β β0 (π΄βπ)), (π΄βπ)) Β· (π¦βπ))))β0) = ((π β β0 β¦ (if(π = 0, ((π΄β0) β Ξ£π β β0 (π΄βπ)), (π΄βπ)) Β· (π¦βπ)))β0)) |
200 | 47, 199 | ax-mp 5 |
. . . . . . . . . . . . . . . . 17
β’ (seq0( +
, (π β
β0 β¦ (if(π = 0, ((π΄β0) β Ξ£π β β0 (π΄βπ)), (π΄βπ)) Β· (π¦βπ))))β0) = ((π β β0 β¦ (if(π = 0, ((π΄β0) β Ξ£π β β0 (π΄βπ)), (π΄βπ)) Β· (π¦βπ)))β0) |
201 | 56, 183 | oveq12d 7424 |
. . . . . . . . . . . . . . . . . . 19
β’ (π = 0 β (if(π = 0, ((π΄β0) β Ξ£π β β0 (π΄βπ)), (π΄βπ)) Β· (π¦βπ)) = (((π΄β0) β Ξ£π β β0 (π΄βπ)) Β· (π¦β0))) |
202 | | ovex 7439 |
. . . . . . . . . . . . . . . . . . 19
β’ (((π΄β0) β Ξ£π β β0
(π΄βπ)) Β· (π¦β0)) β V |
203 | 201, 132,
202 | fvmpt 6996 |
. . . . . . . . . . . . . . . . . 18
β’ (0 β
β0 β ((π β β0 β¦ (if(π = 0, ((π΄β0) β Ξ£π β β0 (π΄βπ)), (π΄βπ)) Β· (π¦βπ)))β0) = (((π΄β0) β Ξ£π β β0 (π΄βπ)) Β· (π¦β0))) |
204 | 2, 203 | ax-mp 5 |
. . . . . . . . . . . . . . . . 17
β’ ((π β β0
β¦ (if(π = 0, ((π΄β0) β Ξ£π β β0
(π΄βπ)), (π΄βπ)) Β· (π¦βπ)))β0) = (((π΄β0) β Ξ£π β β0 (π΄βπ)) Β· (π¦β0)) |
205 | 200, 204 | eqtri 2761 |
. . . . . . . . . . . . . . . 16
β’ (seq0( +
, (π β
β0 β¦ (if(π = 0, ((π΄β0) β Ξ£π β β0 (π΄βπ)), (π΄βπ)) Β· (π¦βπ))))β0) = (((π΄β0) β Ξ£π β β0 (π΄βπ)) Β· (π¦β0)) |
206 | 189 | oveq2d 7422 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π¦ β π) β (((π΄β0) β Ξ£π β β0 (π΄βπ)) Β· (π¦β0)) = (((π΄β0) β Ξ£π β β0 (π΄βπ)) Β· 1)) |
207 | 11 | adantr 482 |
. . . . . . . . . . . . . . . . . . 19
β’ ((π β§ π¦ β π) β Ξ£π β β0 (π΄βπ) β β) |
208 | 191, 207 | subcld 11568 |
. . . . . . . . . . . . . . . . . 18
β’ ((π β§ π¦ β π) β ((π΄β0) β Ξ£π β β0 (π΄βπ)) β β) |
209 | 208 | mulridd 11228 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π¦ β π) β (((π΄β0) β Ξ£π β β0 (π΄βπ)) Β· 1) = ((π΄β0) β Ξ£π β β0 (π΄βπ))) |
210 | 206, 209 | eqtrd 2773 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π¦ β π) β (((π΄β0) β Ξ£π β β0 (π΄βπ)) Β· (π¦β0)) = ((π΄β0) β Ξ£π β β0 (π΄βπ))) |
211 | 205, 210 | eqtrid 2785 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π¦ β π) β (seq0( + , (π β β0 β¦ (if(π = 0, ((π΄β0) β Ξ£π β β0 (π΄βπ)), (π΄βπ)) Β· (π¦βπ))))β0) = ((π΄β0) β Ξ£π β β0 (π΄βπ))) |
212 | 211 | oveq2d 7422 |
. . . . . . . . . . . . . 14
β’ ((π β§ π¦ β π) β (((πΉβπ¦) β (π΄β0)) + (seq0( + , (π β β0 β¦ (if(π = 0, ((π΄β0) β Ξ£π β β0 (π΄βπ)), (π΄βπ)) Β· (π¦βπ))))β0)) = (((πΉβπ¦) β (π΄β0)) + ((π΄β0) β Ξ£π β β0 (π΄βπ)))) |
213 | 1, 10, 70, 71, 72, 110 | abelthlem4 25938 |
. . . . . . . . . . . . . . . 16
β’ (π β πΉ:πβΆβ) |
214 | 213 | ffvelcdmda 7084 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π¦ β π) β (πΉβπ¦) β β) |
215 | 214, 191,
207 | npncand 11592 |
. . . . . . . . . . . . . 14
β’ ((π β§ π¦ β π) β (((πΉβπ¦) β (π΄β0)) + ((π΄β0) β Ξ£π β β0 (π΄βπ))) = ((πΉβπ¦) β Ξ£π β β0 (π΄βπ))) |
216 | 212, 215 | eqtrd 2773 |
. . . . . . . . . . . . 13
β’ ((π β§ π¦ β π) β (((πΉβπ¦) β (π΄β0)) + (seq0( + , (π β β0 β¦ (if(π = 0, ((π΄β0) β Ξ£π β β0 (π΄βπ)), (π΄βπ)) Β· (π¦βπ))))β0)) = ((πΉβπ¦) β Ξ£π β β0 (π΄βπ))) |
217 | 198, 216 | breqtrd 5174 |
. . . . . . . . . . . 12
β’ ((π β§ π¦ β π) β seq0( + , (π β β0 β¦ (if(π = 0, ((π΄β0) β Ξ£π β β0 (π΄βπ)), (π΄βπ)) Β· (π¦βπ)))) β ((πΉβπ¦) β Ξ£π β β0 (π΄βπ))) |
218 | 6, 89, 135, 141, 217 | isumclim 15700 |
. . . . . . . . . . 11
β’ ((π β§ π¦ β π) β Ξ£π β β0 (if(π = 0, ((π΄β0) β Ξ£π β β0 (π΄βπ)), (π΄βπ)) Β· (π¦βπ)) = ((πΉβπ¦) β Ξ£π β β0 (π΄βπ))) |
219 | 129, 218 | eqtrd 2773 |
. . . . . . . . . 10
β’ ((π β§ π¦ β π) β ((π₯ β π β¦ Ξ£π β β0 (((π β β0
β¦ if(π = 0, ((π΄β0) β Ξ£π β β0
(π΄βπ)), (π΄βπ)))βπ) Β· (π₯βπ)))βπ¦) = ((πΉβπ¦) β Ξ£π β β0 (π΄βπ))) |
220 | 123, 219 | oveq12d 7424 |
. . . . . . . . 9
β’ ((π β§ π¦ β π) β (((π₯ β π β¦ Ξ£π β β0 (((π β β0
β¦ if(π = 0, ((π΄β0) β Ξ£π β β0
(π΄βπ)), (π΄βπ)))βπ) Β· (π₯βπ)))β1) β ((π₯ β π β¦ Ξ£π β β0 (((π β β0
β¦ if(π = 0, ((π΄β0) β Ξ£π β β0
(π΄βπ)), (π΄βπ)))βπ) Β· (π₯βπ)))βπ¦)) = (((πΉβ1) β Ξ£π β β0 (π΄βπ)) β ((πΉβπ¦) β Ξ£π β β0 (π΄βπ)))) |
221 | 213 | adantr 482 |
. . . . . . . . . . 11
β’ ((π β§ π¦ β π) β πΉ:πβΆβ) |
222 | 221, 77 | ffvelcdmd 7085 |
. . . . . . . . . 10
β’ ((π β§ π¦ β π) β (πΉβ1) β β) |
223 | 222, 214,
207 | nnncan2d 11603 |
. . . . . . . . 9
β’ ((π β§ π¦ β π) β (((πΉβ1) β Ξ£π β β0 (π΄βπ)) β ((πΉβπ¦) β Ξ£π β β0 (π΄βπ))) = ((πΉβ1) β (πΉβπ¦))) |
224 | 220, 223 | eqtrd 2773 |
. . . . . . . 8
β’ ((π β§ π¦ β π) β (((π₯ β π β¦ Ξ£π β β0 (((π β β0
β¦ if(π = 0, ((π΄β0) β Ξ£π β β0
(π΄βπ)), (π΄βπ)))βπ) Β· (π₯βπ)))β1) β ((π₯ β π β¦ Ξ£π β β0 (((π β β0
β¦ if(π = 0, ((π΄β0) β Ξ£π β β0
(π΄βπ)), (π΄βπ)))βπ) Β· (π₯βπ)))βπ¦)) = ((πΉβ1) β (πΉβπ¦))) |
225 | 224 | fveq2d 6893 |
. . . . . . 7
β’ ((π β§ π¦ β π) β (absβ(((π₯ β π β¦ Ξ£π β β0 (((π β β0
β¦ if(π = 0, ((π΄β0) β Ξ£π β β0
(π΄βπ)), (π΄βπ)))βπ) Β· (π₯βπ)))β1) β ((π₯ β π β¦ Ξ£π β β0 (((π β β0
β¦ if(π = 0, ((π΄β0) β Ξ£π β β0
(π΄βπ)), (π΄βπ)))βπ) Β· (π₯βπ)))βπ¦))) = (absβ((πΉβ1) β (πΉβπ¦)))) |
226 | 225 | breq1d 5158 |
. . . . . 6
β’ ((π β§ π¦ β π) β ((absβ(((π₯ β π β¦ Ξ£π β β0 (((π β β0
β¦ if(π = 0, ((π΄β0) β Ξ£π β β0
(π΄βπ)), (π΄βπ)))βπ) Β· (π₯βπ)))β1) β ((π₯ β π β¦ Ξ£π β β0 (((π β β0
β¦ if(π = 0, ((π΄β0) β Ξ£π β β0
(π΄βπ)), (π΄βπ)))βπ) Β· (π₯βπ)))βπ¦))) < π
β (absβ((πΉβ1) β (πΉβπ¦))) < π
)) |
227 | 226 | imbi2d 341 |
. . . . 5
β’ ((π β§ π¦ β π) β (((absβ(1 β π¦)) < π€ β (absβ(((π₯ β π β¦ Ξ£π β β0 (((π β β0
β¦ if(π = 0, ((π΄β0) β Ξ£π β β0
(π΄βπ)), (π΄βπ)))βπ) Β· (π₯βπ)))β1) β ((π₯ β π β¦ Ξ£π β β0 (((π β β0
β¦ if(π = 0, ((π΄β0) β Ξ£π β β0
(π΄βπ)), (π΄βπ)))βπ) Β· (π₯βπ)))βπ¦))) < π
) β ((absβ(1 β π¦)) < π€ β (absβ((πΉβ1) β (πΉβπ¦))) < π
))) |
228 | 227 | ralbidva 3176 |
. . . 4
β’ (π β (βπ¦ β π ((absβ(1 β π¦)) < π€ β (absβ(((π₯ β π β¦ Ξ£π β β0 (((π β β0
β¦ if(π = 0, ((π΄β0) β Ξ£π β β0
(π΄βπ)), (π΄βπ)))βπ) Β· (π₯βπ)))β1) β ((π₯ β π β¦ Ξ£π β β0 (((π β β0
β¦ if(π = 0, ((π΄β0) β Ξ£π β β0
(π΄βπ)), (π΄βπ)))βπ) Β· (π₯βπ)))βπ¦))) < π
) β βπ¦ β π ((absβ(1 β π¦)) < π€ β (absβ((πΉβ1) β (πΉβπ¦))) < π
))) |
229 | 228 | rexbidv 3179 |
. . 3
β’ (π β (βπ€ β β+ βπ¦ β π ((absβ(1 β π¦)) < π€ β (absβ(((π₯ β π β¦ Ξ£π β β0 (((π β β0
β¦ if(π = 0, ((π΄β0) β Ξ£π β β0
(π΄βπ)), (π΄βπ)))βπ) Β· (π₯βπ)))β1) β ((π₯ β π β¦ Ξ£π β β0 (((π β β0
β¦ if(π = 0, ((π΄β0) β Ξ£π β β0
(π΄βπ)), (π΄βπ)))βπ) Β· (π₯βπ)))βπ¦))) < π
) β βπ€ β β+ βπ¦ β π ((absβ(1 β π¦)) < π€ β (absβ((πΉβ1) β (πΉβπ¦))) < π
))) |
230 | 229 | adantr 482 |
. 2
β’ ((π β§ π
β β+) β
(βπ€ β
β+ βπ¦ β π ((absβ(1 β π¦)) < π€ β (absβ(((π₯ β π β¦ Ξ£π β β0 (((π β β0
β¦ if(π = 0, ((π΄β0) β Ξ£π β β0
(π΄βπ)), (π΄βπ)))βπ) Β· (π₯βπ)))β1) β ((π₯ β π β¦ Ξ£π β β0 (((π β β0
β¦ if(π = 0, ((π΄β0) β Ξ£π β β0
(π΄βπ)), (π΄βπ)))βπ) Β· (π₯βπ)))βπ¦))) < π
) β βπ€ β β+ βπ¦ β π ((absβ(1 β π¦)) < π€ β (absβ((πΉβ1) β (πΉβπ¦))) < π
))) |
231 | 74, 230 | mpbid 231 |
1
β’ ((π β§ π
β β+) β
βπ€ β
β+ βπ¦ β π ((absβ(1 β π¦)) < π€ β (absβ((πΉβ1) β (πΉβπ¦))) < π
)) |