Step | Hyp | Ref
| Expression |
1 | | 0cn 11203 |
. . . . . . . 8
β’ 0 β
β |
2 | | fsumrelem.3 |
. . . . . . . . 9
β’ πΉ:ββΆβ |
3 | 2 | ffvelcdmi 7083 |
. . . . . . . 8
β’ (0 β
β β (πΉβ0)
β β) |
4 | 1, 3 | ax-mp 5 |
. . . . . . 7
β’ (πΉβ0) β
β |
5 | 4 | addridi 11398 |
. . . . . 6
β’ ((πΉβ0) + 0) = (πΉβ0) |
6 | | fvoveq1 7429 |
. . . . . . . . 9
β’ (π₯ = 0 β (πΉβ(π₯ + π¦)) = (πΉβ(0 + π¦))) |
7 | | fveq2 6889 |
. . . . . . . . . 10
β’ (π₯ = 0 β (πΉβπ₯) = (πΉβ0)) |
8 | 7 | oveq1d 7421 |
. . . . . . . . 9
β’ (π₯ = 0 β ((πΉβπ₯) + (πΉβπ¦)) = ((πΉβ0) + (πΉβπ¦))) |
9 | 6, 8 | eqeq12d 2749 |
. . . . . . . 8
β’ (π₯ = 0 β ((πΉβ(π₯ + π¦)) = ((πΉβπ₯) + (πΉβπ¦)) β (πΉβ(0 + π¦)) = ((πΉβ0) + (πΉβπ¦)))) |
10 | | oveq2 7414 |
. . . . . . . . . . 11
β’ (π¦ = 0 β (0 + π¦) = (0 + 0)) |
11 | | 00id 11386 |
. . . . . . . . . . 11
β’ (0 + 0) =
0 |
12 | 10, 11 | eqtrdi 2789 |
. . . . . . . . . 10
β’ (π¦ = 0 β (0 + π¦) = 0) |
13 | 12 | fveq2d 6893 |
. . . . . . . . 9
β’ (π¦ = 0 β (πΉβ(0 + π¦)) = (πΉβ0)) |
14 | | fveq2 6889 |
. . . . . . . . . 10
β’ (π¦ = 0 β (πΉβπ¦) = (πΉβ0)) |
15 | 14 | oveq2d 7422 |
. . . . . . . . 9
β’ (π¦ = 0 β ((πΉβ0) + (πΉβπ¦)) = ((πΉβ0) + (πΉβ0))) |
16 | 13, 15 | eqeq12d 2749 |
. . . . . . . 8
β’ (π¦ = 0 β ((πΉβ(0 + π¦)) = ((πΉβ0) + (πΉβπ¦)) β (πΉβ0) = ((πΉβ0) + (πΉβ0)))) |
17 | | fsumrelem.4 |
. . . . . . . 8
β’ ((π₯ β β β§ π¦ β β) β (πΉβ(π₯ + π¦)) = ((πΉβπ₯) + (πΉβπ¦))) |
18 | 9, 16, 17 | vtocl2ga 3567 |
. . . . . . 7
β’ ((0
β β β§ 0 β β) β (πΉβ0) = ((πΉβ0) + (πΉβ0))) |
19 | 1, 1, 18 | mp2an 691 |
. . . . . 6
β’ (πΉβ0) = ((πΉβ0) + (πΉβ0)) |
20 | 5, 19 | eqtr2i 2762 |
. . . . 5
β’ ((πΉβ0) + (πΉβ0)) = ((πΉβ0) + 0) |
21 | 4, 4, 1 | addcani 11404 |
. . . . 5
β’ (((πΉβ0) + (πΉβ0)) = ((πΉβ0) + 0) β (πΉβ0) = 0) |
22 | 20, 21 | mpbi 229 |
. . . 4
β’ (πΉβ0) = 0 |
23 | | sumeq1 15632 |
. . . . . 6
β’ (π΄ = β
β Ξ£π β π΄ π΅ = Ξ£π β β
π΅) |
24 | | sum0 15664 |
. . . . . 6
β’
Ξ£π β
β
π΅ =
0 |
25 | 23, 24 | eqtrdi 2789 |
. . . . 5
β’ (π΄ = β
β Ξ£π β π΄ π΅ = 0) |
26 | 25 | fveq2d 6893 |
. . . 4
β’ (π΄ = β
β (πΉβΞ£π β π΄ π΅) = (πΉβ0)) |
27 | | sumeq1 15632 |
. . . . 5
β’ (π΄ = β
β Ξ£π β π΄ (πΉβπ΅) = Ξ£π β β
(πΉβπ΅)) |
28 | | sum0 15664 |
. . . . 5
β’
Ξ£π β
β
(πΉβπ΅) = 0 |
29 | 27, 28 | eqtrdi 2789 |
. . . 4
β’ (π΄ = β
β Ξ£π β π΄ (πΉβπ΅) = 0) |
30 | 22, 26, 29 | 3eqtr4a 2799 |
. . 3
β’ (π΄ = β
β (πΉβΞ£π β π΄ π΅) = Ξ£π β π΄ (πΉβπ΅)) |
31 | 30 | a1i 11 |
. 2
β’ (π β (π΄ = β
β (πΉβΞ£π β π΄ π΅) = Ξ£π β π΄ (πΉβπ΅))) |
32 | | addcl 11189 |
. . . . . . . . 9
β’ ((π₯ β β β§ π¦ β β) β (π₯ + π¦) β β) |
33 | 32 | adantl 483 |
. . . . . . . 8
β’ (((π β§ ((β―βπ΄) β β β§ π:(1...(β―βπ΄))β1-1-ontoβπ΄)) β§ (π₯ β β β§ π¦ β β)) β (π₯ + π¦) β β) |
34 | | fsumre.2 |
. . . . . . . . . . . 12
β’ ((π β§ π β π΄) β π΅ β β) |
35 | 34 | fmpttd 7112 |
. . . . . . . . . . 11
β’ (π β (π β π΄ β¦ π΅):π΄βΆβ) |
36 | 35 | adantr 482 |
. . . . . . . . . 10
β’ ((π β§ ((β―βπ΄) β β β§ π:(1...(β―βπ΄))β1-1-ontoβπ΄)) β (π β π΄ β¦ π΅):π΄βΆβ) |
37 | | simprr 772 |
. . . . . . . . . . 11
β’ ((π β§ ((β―βπ΄) β β β§ π:(1...(β―βπ΄))β1-1-ontoβπ΄)) β π:(1...(β―βπ΄))β1-1-ontoβπ΄) |
38 | | f1of 6831 |
. . . . . . . . . . 11
β’ (π:(1...(β―βπ΄))β1-1-ontoβπ΄ β π:(1...(β―βπ΄))βΆπ΄) |
39 | 37, 38 | syl 17 |
. . . . . . . . . 10
β’ ((π β§ ((β―βπ΄) β β β§ π:(1...(β―βπ΄))β1-1-ontoβπ΄)) β π:(1...(β―βπ΄))βΆπ΄) |
40 | | fco 6739 |
. . . . . . . . . 10
β’ (((π β π΄ β¦ π΅):π΄βΆβ β§ π:(1...(β―βπ΄))βΆπ΄) β ((π β π΄ β¦ π΅) β π):(1...(β―βπ΄))βΆβ) |
41 | 36, 39, 40 | syl2anc 585 |
. . . . . . . . 9
β’ ((π β§ ((β―βπ΄) β β β§ π:(1...(β―βπ΄))β1-1-ontoβπ΄)) β ((π β π΄ β¦ π΅) β π):(1...(β―βπ΄))βΆβ) |
42 | 41 | ffvelcdmda 7084 |
. . . . . . . 8
β’ (((π β§ ((β―βπ΄) β β β§ π:(1...(β―βπ΄))β1-1-ontoβπ΄)) β§ π₯ β (1...(β―βπ΄))) β (((π β π΄ β¦ π΅) β π)βπ₯) β β) |
43 | | simprl 770 |
. . . . . . . . 9
β’ ((π β§ ((β―βπ΄) β β β§ π:(1...(β―βπ΄))β1-1-ontoβπ΄)) β (β―βπ΄) β
β) |
44 | | nnuz 12862 |
. . . . . . . . 9
β’ β =
(β€β₯β1) |
45 | 43, 44 | eleqtrdi 2844 |
. . . . . . . 8
β’ ((π β§ ((β―βπ΄) β β β§ π:(1...(β―βπ΄))β1-1-ontoβπ΄)) β (β―βπ΄) β
(β€β₯β1)) |
46 | 17 | adantl 483 |
. . . . . . . 8
β’ (((π β§ ((β―βπ΄) β β β§ π:(1...(β―βπ΄))β1-1-ontoβπ΄)) β§ (π₯ β β β§ π¦ β β)) β (πΉβ(π₯ + π¦)) = ((πΉβπ₯) + (πΉβπ¦))) |
47 | 39 | ffvelcdmda 7084 |
. . . . . . . . . 10
β’ (((π β§ ((β―βπ΄) β β β§ π:(1...(β―βπ΄))β1-1-ontoβπ΄)) β§ π₯ β (1...(β―βπ΄))) β (πβπ₯) β π΄) |
48 | | simpr 486 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π β π΄) β π β π΄) |
49 | | eqid 2733 |
. . . . . . . . . . . . . . . 16
β’ (π β π΄ β¦ π΅) = (π β π΄ β¦ π΅) |
50 | 49 | fvmpt2 7007 |
. . . . . . . . . . . . . . 15
β’ ((π β π΄ β§ π΅ β β) β ((π β π΄ β¦ π΅)βπ) = π΅) |
51 | 48, 34, 50 | syl2anc 585 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β π΄) β ((π β π΄ β¦ π΅)βπ) = π΅) |
52 | 51 | fveq2d 6893 |
. . . . . . . . . . . . 13
β’ ((π β§ π β π΄) β (πΉβ((π β π΄ β¦ π΅)βπ)) = (πΉβπ΅)) |
53 | | fvex 6902 |
. . . . . . . . . . . . . 14
β’ (πΉβπ΅) β V |
54 | | eqid 2733 |
. . . . . . . . . . . . . . 15
β’ (π β π΄ β¦ (πΉβπ΅)) = (π β π΄ β¦ (πΉβπ΅)) |
55 | 54 | fvmpt2 7007 |
. . . . . . . . . . . . . 14
β’ ((π β π΄ β§ (πΉβπ΅) β V) β ((π β π΄ β¦ (πΉβπ΅))βπ) = (πΉβπ΅)) |
56 | 48, 53, 55 | sylancl 587 |
. . . . . . . . . . . . 13
β’ ((π β§ π β π΄) β ((π β π΄ β¦ (πΉβπ΅))βπ) = (πΉβπ΅)) |
57 | 52, 56 | eqtr4d 2776 |
. . . . . . . . . . . 12
β’ ((π β§ π β π΄) β (πΉβ((π β π΄ β¦ π΅)βπ)) = ((π β π΄ β¦ (πΉβπ΅))βπ)) |
58 | 57 | ralrimiva 3147 |
. . . . . . . . . . 11
β’ (π β βπ β π΄ (πΉβ((π β π΄ β¦ π΅)βπ)) = ((π β π΄ β¦ (πΉβπ΅))βπ)) |
59 | 58 | ad2antrr 725 |
. . . . . . . . . 10
β’ (((π β§ ((β―βπ΄) β β β§ π:(1...(β―βπ΄))β1-1-ontoβπ΄)) β§ π₯ β (1...(β―βπ΄))) β βπ β π΄ (πΉβ((π β π΄ β¦ π΅)βπ)) = ((π β π΄ β¦ (πΉβπ΅))βπ)) |
60 | | nfcv 2904 |
. . . . . . . . . . . . 13
β’
β²ππΉ |
61 | | nffvmpt1 6900 |
. . . . . . . . . . . . 13
β’
β²π((π β π΄ β¦ π΅)β(πβπ₯)) |
62 | 60, 61 | nffv 6899 |
. . . . . . . . . . . 12
β’
β²π(πΉβ((π β π΄ β¦ π΅)β(πβπ₯))) |
63 | | nffvmpt1 6900 |
. . . . . . . . . . . 12
β’
β²π((π β π΄ β¦ (πΉβπ΅))β(πβπ₯)) |
64 | 62, 63 | nfeq 2917 |
. . . . . . . . . . 11
β’
β²π(πΉβ((π β π΄ β¦ π΅)β(πβπ₯))) = ((π β π΄ β¦ (πΉβπ΅))β(πβπ₯)) |
65 | | 2fveq3 6894 |
. . . . . . . . . . . 12
β’ (π = (πβπ₯) β (πΉβ((π β π΄ β¦ π΅)βπ)) = (πΉβ((π β π΄ β¦ π΅)β(πβπ₯)))) |
66 | | fveq2 6889 |
. . . . . . . . . . . 12
β’ (π = (πβπ₯) β ((π β π΄ β¦ (πΉβπ΅))βπ) = ((π β π΄ β¦ (πΉβπ΅))β(πβπ₯))) |
67 | 65, 66 | eqeq12d 2749 |
. . . . . . . . . . 11
β’ (π = (πβπ₯) β ((πΉβ((π β π΄ β¦ π΅)βπ)) = ((π β π΄ β¦ (πΉβπ΅))βπ) β (πΉβ((π β π΄ β¦ π΅)β(πβπ₯))) = ((π β π΄ β¦ (πΉβπ΅))β(πβπ₯)))) |
68 | 64, 67 | rspc 3601 |
. . . . . . . . . 10
β’ ((πβπ₯) β π΄ β (βπ β π΄ (πΉβ((π β π΄ β¦ π΅)βπ)) = ((π β π΄ β¦ (πΉβπ΅))βπ) β (πΉβ((π β π΄ β¦ π΅)β(πβπ₯))) = ((π β π΄ β¦ (πΉβπ΅))β(πβπ₯)))) |
69 | 47, 59, 68 | sylc 65 |
. . . . . . . . 9
β’ (((π β§ ((β―βπ΄) β β β§ π:(1...(β―βπ΄))β1-1-ontoβπ΄)) β§ π₯ β (1...(β―βπ΄))) β (πΉβ((π β π΄ β¦ π΅)β(πβπ₯))) = ((π β π΄ β¦ (πΉβπ΅))β(πβπ₯))) |
70 | | fvco3 6988 |
. . . . . . . . . . 11
β’ ((π:(1...(β―βπ΄))βΆπ΄ β§ π₯ β (1...(β―βπ΄))) β (((π β π΄ β¦ π΅) β π)βπ₯) = ((π β π΄ β¦ π΅)β(πβπ₯))) |
71 | 39, 70 | sylan 581 |
. . . . . . . . . 10
β’ (((π β§ ((β―βπ΄) β β β§ π:(1...(β―βπ΄))β1-1-ontoβπ΄)) β§ π₯ β (1...(β―βπ΄))) β (((π β π΄ β¦ π΅) β π)βπ₯) = ((π β π΄ β¦ π΅)β(πβπ₯))) |
72 | 71 | fveq2d 6893 |
. . . . . . . . 9
β’ (((π β§ ((β―βπ΄) β β β§ π:(1...(β―βπ΄))β1-1-ontoβπ΄)) β§ π₯ β (1...(β―βπ΄))) β (πΉβ(((π β π΄ β¦ π΅) β π)βπ₯)) = (πΉβ((π β π΄ β¦ π΅)β(πβπ₯)))) |
73 | | fvco3 6988 |
. . . . . . . . . 10
β’ ((π:(1...(β―βπ΄))βΆπ΄ β§ π₯ β (1...(β―βπ΄))) β (((π β π΄ β¦ (πΉβπ΅)) β π)βπ₯) = ((π β π΄ β¦ (πΉβπ΅))β(πβπ₯))) |
74 | 39, 73 | sylan 581 |
. . . . . . . . 9
β’ (((π β§ ((β―βπ΄) β β β§ π:(1...(β―βπ΄))β1-1-ontoβπ΄)) β§ π₯ β (1...(β―βπ΄))) β (((π β π΄ β¦ (πΉβπ΅)) β π)βπ₯) = ((π β π΄ β¦ (πΉβπ΅))β(πβπ₯))) |
75 | 69, 72, 74 | 3eqtr4d 2783 |
. . . . . . . 8
β’ (((π β§ ((β―βπ΄) β β β§ π:(1...(β―βπ΄))β1-1-ontoβπ΄)) β§ π₯ β (1...(β―βπ΄))) β (πΉβ(((π β π΄ β¦ π΅) β π)βπ₯)) = (((π β π΄ β¦ (πΉβπ΅)) β π)βπ₯)) |
76 | 33, 42, 45, 46, 75 | seqhomo 14012 |
. . . . . . 7
β’ ((π β§ ((β―βπ΄) β β β§ π:(1...(β―βπ΄))β1-1-ontoβπ΄)) β (πΉβ(seq1( + , ((π β π΄ β¦ π΅) β π))β(β―βπ΄))) = (seq1( + , ((π β π΄ β¦ (πΉβπ΅)) β π))β(β―βπ΄))) |
77 | | fveq2 6889 |
. . . . . . . . 9
β’ (π = (πβπ₯) β ((π β π΄ β¦ π΅)βπ) = ((π β π΄ β¦ π΅)β(πβπ₯))) |
78 | 36 | ffvelcdmda 7084 |
. . . . . . . . 9
β’ (((π β§ ((β―βπ΄) β β β§ π:(1...(β―βπ΄))β1-1-ontoβπ΄)) β§ π β π΄) β ((π β π΄ β¦ π΅)βπ) β β) |
79 | 77, 43, 37, 78, 71 | fsum 15663 |
. . . . . . . 8
β’ ((π β§ ((β―βπ΄) β β β§ π:(1...(β―βπ΄))β1-1-ontoβπ΄)) β Ξ£π β π΄ ((π β π΄ β¦ π΅)βπ) = (seq1( + , ((π β π΄ β¦ π΅) β π))β(β―βπ΄))) |
80 | 79 | fveq2d 6893 |
. . . . . . 7
β’ ((π β§ ((β―βπ΄) β β β§ π:(1...(β―βπ΄))β1-1-ontoβπ΄)) β (πΉβΞ£π β π΄ ((π β π΄ β¦ π΅)βπ)) = (πΉβ(seq1( + , ((π β π΄ β¦ π΅) β π))β(β―βπ΄)))) |
81 | | fveq2 6889 |
. . . . . . . 8
β’ (π = (πβπ₯) β ((π β π΄ β¦ (πΉβπ΅))βπ) = ((π β π΄ β¦ (πΉβπ΅))β(πβπ₯))) |
82 | 2 | ffvelcdmi 7083 |
. . . . . . . . . . . 12
β’ (π΅ β β β (πΉβπ΅) β β) |
83 | 34, 82 | syl 17 |
. . . . . . . . . . 11
β’ ((π β§ π β π΄) β (πΉβπ΅) β β) |
84 | 83 | fmpttd 7112 |
. . . . . . . . . 10
β’ (π β (π β π΄ β¦ (πΉβπ΅)):π΄βΆβ) |
85 | 84 | adantr 482 |
. . . . . . . . 9
β’ ((π β§ ((β―βπ΄) β β β§ π:(1...(β―βπ΄))β1-1-ontoβπ΄)) β (π β π΄ β¦ (πΉβπ΅)):π΄βΆβ) |
86 | 85 | ffvelcdmda 7084 |
. . . . . . . 8
β’ (((π β§ ((β―βπ΄) β β β§ π:(1...(β―βπ΄))β1-1-ontoβπ΄)) β§ π β π΄) β ((π β π΄ β¦ (πΉβπ΅))βπ) β β) |
87 | 81, 43, 37, 86, 74 | fsum 15663 |
. . . . . . 7
β’ ((π β§ ((β―βπ΄) β β β§ π:(1...(β―βπ΄))β1-1-ontoβπ΄)) β Ξ£π β π΄ ((π β π΄ β¦ (πΉβπ΅))βπ) = (seq1( + , ((π β π΄ β¦ (πΉβπ΅)) β π))β(β―βπ΄))) |
88 | 76, 80, 87 | 3eqtr4d 2783 |
. . . . . 6
β’ ((π β§ ((β―βπ΄) β β β§ π:(1...(β―βπ΄))β1-1-ontoβπ΄)) β (πΉβΞ£π β π΄ ((π β π΄ β¦ π΅)βπ)) = Ξ£π β π΄ ((π β π΄ β¦ (πΉβπ΅))βπ)) |
89 | | sumfc 15652 |
. . . . . . 7
β’
Ξ£π β
π΄ ((π β π΄ β¦ π΅)βπ) = Ξ£π β π΄ π΅ |
90 | 89 | fveq2i 6892 |
. . . . . 6
β’ (πΉβΞ£π β π΄ ((π β π΄ β¦ π΅)βπ)) = (πΉβΞ£π β π΄ π΅) |
91 | | sumfc 15652 |
. . . . . 6
β’
Ξ£π β
π΄ ((π β π΄ β¦ (πΉβπ΅))βπ) = Ξ£π β π΄ (πΉβπ΅) |
92 | 88, 90, 91 | 3eqtr3g 2796 |
. . . . 5
β’ ((π β§ ((β―βπ΄) β β β§ π:(1...(β―βπ΄))β1-1-ontoβπ΄)) β (πΉβΞ£π β π΄ π΅) = Ξ£π β π΄ (πΉβπ΅)) |
93 | 92 | expr 458 |
. . . 4
β’ ((π β§ (β―βπ΄) β β) β (π:(1...(β―βπ΄))β1-1-ontoβπ΄ β (πΉβΞ£π β π΄ π΅) = Ξ£π β π΄ (πΉβπ΅))) |
94 | 93 | exlimdv 1937 |
. . 3
β’ ((π β§ (β―βπ΄) β β) β
(βπ π:(1...(β―βπ΄))β1-1-ontoβπ΄ β (πΉβΞ£π β π΄ π΅) = Ξ£π β π΄ (πΉβπ΅))) |
95 | 94 | expimpd 455 |
. 2
β’ (π β (((β―βπ΄) β β β§
βπ π:(1...(β―βπ΄))β1-1-ontoβπ΄) β (πΉβΞ£π β π΄ π΅) = Ξ£π β π΄ (πΉβπ΅))) |
96 | | fsumre.1 |
. . 3
β’ (π β π΄ β Fin) |
97 | | fz1f1o 15653 |
. . 3
β’ (π΄ β Fin β (π΄ = β
β¨
((β―βπ΄) β
β β§ βπ
π:(1...(β―βπ΄))β1-1-ontoβπ΄))) |
98 | 96, 97 | syl 17 |
. 2
β’ (π β (π΄ = β
β¨ ((β―βπ΄) β β β§
βπ π:(1...(β―βπ΄))β1-1-ontoβπ΄))) |
99 | 31, 95, 98 | mpjaod 859 |
1
β’ (π β (πΉβΞ£π β π΄ π΅) = Ξ£π β π΄ (πΉβπ΅)) |