Step | Hyp | Ref
| Expression |
1 | | sticksstones17.4 |
. . . . . . . . . . . . . . . 16
β’ π΅ = {β β£ (β:πβΆβ0 β§
Ξ£π β π (ββπ) = π)} |
2 | 1 | eqimssi 4041 |
. . . . . . . . . . . . . . 15
β’ π΅ β {β β£ (β:πβΆβ0 β§
Ξ£π β π (ββπ) = π)} |
3 | 2 | a1i 11 |
. . . . . . . . . . . . . 14
β’ (π β π΅ β {β β£ (β:πβΆβ0 β§
Ξ£π β π (ββπ) = π)}) |
4 | 3 | sseld 3980 |
. . . . . . . . . . . . 13
β’ (π β (π β π΅ β π β {β β£ (β:πβΆβ0 β§
Ξ£π β π (ββπ) = π)})) |
5 | 4 | imp 407 |
. . . . . . . . . . . 12
β’ ((π β§ π β π΅) β π β {β β£ (β:πβΆβ0 β§
Ξ£π β π (ββπ) = π)}) |
6 | | vex 3478 |
. . . . . . . . . . . . 13
β’ π β V |
7 | | feq1 6695 |
. . . . . . . . . . . . . 14
β’ (β = π β (β:πβΆβ0 β π:πβΆβ0)) |
8 | | simpl 483 |
. . . . . . . . . . . . . . . . 17
β’ ((β = π β§ π β π) β β = π) |
9 | 8 | fveq1d 6890 |
. . . . . . . . . . . . . . . 16
β’ ((β = π β§ π β π) β (ββπ) = (πβπ)) |
10 | 9 | sumeq2dv 15645 |
. . . . . . . . . . . . . . 15
β’ (β = π β Ξ£π β π (ββπ) = Ξ£π β π (πβπ)) |
11 | 10 | eqeq1d 2734 |
. . . . . . . . . . . . . 14
β’ (β = π β (Ξ£π β π (ββπ) = π β Ξ£π β π (πβπ) = π)) |
12 | 7, 11 | anbi12d 631 |
. . . . . . . . . . . . 13
β’ (β = π β ((β:πβΆβ0 β§
Ξ£π β π (ββπ) = π) β (π:πβΆβ0 β§
Ξ£π β π (πβπ) = π))) |
13 | 6, 12 | elab 3667 |
. . . . . . . . . . . 12
β’ (π β {β β£ (β:πβΆβ0 β§
Ξ£π β π (ββπ) = π)} β (π:πβΆβ0 β§
Ξ£π β π (πβπ) = π)) |
14 | 5, 13 | sylib 217 |
. . . . . . . . . . 11
β’ ((π β§ π β π΅) β (π:πβΆβ0 β§
Ξ£π β π (πβπ) = π)) |
15 | 14 | simpld 495 |
. . . . . . . . . 10
β’ ((π β§ π β π΅) β π:πβΆβ0) |
16 | 15 | adantr 481 |
. . . . . . . . 9
β’ (((π β§ π β π΅) β§ π¦ β (1...πΎ)) β π:πβΆβ0) |
17 | 16 | 3impa 1110 |
. . . . . . . 8
β’ ((π β§ π β π΅ β§ π¦ β (1...πΎ)) β π:πβΆβ0) |
18 | | sticksstones17.5 |
. . . . . . . . . . . . 13
β’ (π β π:(1...πΎ)β1-1-ontoβπ) |
19 | | f1of 6830 |
. . . . . . . . . . . . 13
β’ (π:(1...πΎ)β1-1-ontoβπ β π:(1...πΎ)βΆπ) |
20 | 18, 19 | syl 17 |
. . . . . . . . . . . 12
β’ (π β π:(1...πΎ)βΆπ) |
21 | 20 | adantr 481 |
. . . . . . . . . . 11
β’ ((π β§ π β π΅) β π:(1...πΎ)βΆπ) |
22 | 21 | adantr 481 |
. . . . . . . . . 10
β’ (((π β§ π β π΅) β§ π¦ β (1...πΎ)) β π:(1...πΎ)βΆπ) |
23 | 22 | 3impa 1110 |
. . . . . . . . 9
β’ ((π β§ π β π΅ β§ π¦ β (1...πΎ)) β π:(1...πΎ)βΆπ) |
24 | | simp3 1138 |
. . . . . . . . 9
β’ ((π β§ π β π΅ β§ π¦ β (1...πΎ)) β π¦ β (1...πΎ)) |
25 | 23, 24 | ffvelcdmd 7084 |
. . . . . . . 8
β’ ((π β§ π β π΅ β§ π¦ β (1...πΎ)) β (πβπ¦) β π) |
26 | 17, 25 | ffvelcdmd 7084 |
. . . . . . 7
β’ ((π β§ π β π΅ β§ π¦ β (1...πΎ)) β (πβ(πβπ¦)) β
β0) |
27 | 26 | 3expa 1118 |
. . . . . 6
β’ (((π β§ π β π΅) β§ π¦ β (1...πΎ)) β (πβ(πβπ¦)) β
β0) |
28 | 27 | fmpttd 7111 |
. . . . 5
β’ ((π β§ π β π΅) β (π¦ β (1...πΎ) β¦ (πβ(πβπ¦))):(1...πΎ)βΆβ0) |
29 | | eqidd 2733 |
. . . . . . . 8
β’ (((π β§ π β π΅) β§ π β (1...πΎ)) β (π¦ β (1...πΎ) β¦ (πβ(πβπ¦))) = (π¦ β (1...πΎ) β¦ (πβ(πβπ¦)))) |
30 | | simpr 485 |
. . . . . . . . . 10
β’ ((((π β§ π β π΅) β§ π β (1...πΎ)) β§ π¦ = π) β π¦ = π) |
31 | 30 | fveq2d 6892 |
. . . . . . . . 9
β’ ((((π β§ π β π΅) β§ π β (1...πΎ)) β§ π¦ = π) β (πβπ¦) = (πβπ)) |
32 | 31 | fveq2d 6892 |
. . . . . . . 8
β’ ((((π β§ π β π΅) β§ π β (1...πΎ)) β§ π¦ = π) β (πβ(πβπ¦)) = (πβ(πβπ))) |
33 | | simpr 485 |
. . . . . . . 8
β’ (((π β§ π β π΅) β§ π β (1...πΎ)) β π β (1...πΎ)) |
34 | | fvexd 6903 |
. . . . . . . 8
β’ (((π β§ π β π΅) β§ π β (1...πΎ)) β (πβ(πβπ)) β V) |
35 | 29, 32, 33, 34 | fvmptd 7002 |
. . . . . . 7
β’ (((π β§ π β π΅) β§ π β (1...πΎ)) β ((π¦ β (1...πΎ) β¦ (πβ(πβπ¦)))βπ) = (πβ(πβπ))) |
36 | 35 | sumeq2dv 15645 |
. . . . . 6
β’ ((π β§ π β π΅) β Ξ£π β (1...πΎ)((π¦ β (1...πΎ) β¦ (πβ(πβπ¦)))βπ) = Ξ£π β (1...πΎ)(πβ(πβπ))) |
37 | | fveq2 6888 |
. . . . . . . . 9
β’ (π = (πβπ) β (πβπ ) = (πβ(πβπ))) |
38 | | fzfi 13933 |
. . . . . . . . . 10
β’
(1...πΎ) β
Fin |
39 | 38 | a1i 11 |
. . . . . . . . 9
β’ ((π β§ π β π΅) β (1...πΎ) β Fin) |
40 | 18 | adantr 481 |
. . . . . . . . 9
β’ ((π β§ π β π΅) β π:(1...πΎ)β1-1-ontoβπ) |
41 | | eqidd 2733 |
. . . . . . . . 9
β’ (((π β§ π β π΅) β§ π β (1...πΎ)) β (πβπ) = (πβπ)) |
42 | | nn0sscn 12473 |
. . . . . . . . . . . 12
β’
β0 β β |
43 | 42 | a1i 11 |
. . . . . . . . . . 11
β’ ((π β§ π β π΅) β β0 β
β) |
44 | | fss 6731 |
. . . . . . . . . . 11
β’ ((π:πβΆβ0 β§
β0 β β) β π:πβΆβ) |
45 | 15, 43, 44 | syl2anc 584 |
. . . . . . . . . 10
β’ ((π β§ π β π΅) β π:πβΆβ) |
46 | 45 | ffvelcdmda 7083 |
. . . . . . . . 9
β’ (((π β§ π β π΅) β§ π β π) β (πβπ ) β β) |
47 | 37, 39, 40, 41, 46 | fsumf1o 15665 |
. . . . . . . 8
β’ ((π β§ π β π΅) β Ξ£π β π (πβπ ) = Ξ£π β (1...πΎ)(πβ(πβπ))) |
48 | 47 | eqcomd 2738 |
. . . . . . 7
β’ ((π β§ π β π΅) β Ξ£π β (1...πΎ)(πβ(πβπ)) = Ξ£π β π (πβπ )) |
49 | | fveq2 6888 |
. . . . . . . . . 10
β’ (π = π β (πβπ ) = (πβπ)) |
50 | 49 | cbvsumv 15638 |
. . . . . . . . 9
β’
Ξ£π β
π (πβπ ) = Ξ£π β π (πβπ) |
51 | 50 | a1i 11 |
. . . . . . . 8
β’ ((π β§ π β π΅) β Ξ£π β π (πβπ ) = Ξ£π β π (πβπ)) |
52 | 14 | simprd 496 |
. . . . . . . 8
β’ ((π β§ π β π΅) β Ξ£π β π (πβπ) = π) |
53 | 51, 52 | eqtrd 2772 |
. . . . . . 7
β’ ((π β§ π β π΅) β Ξ£π β π (πβπ ) = π) |
54 | 48, 53 | eqtrd 2772 |
. . . . . 6
β’ ((π β§ π β π΅) β Ξ£π β (1...πΎ)(πβ(πβπ)) = π) |
55 | 36, 54 | eqtrd 2772 |
. . . . 5
β’ ((π β§ π β π΅) β Ξ£π β (1...πΎ)((π¦ β (1...πΎ) β¦ (πβ(πβπ¦)))βπ) = π) |
56 | 28, 55 | jca 512 |
. . . 4
β’ ((π β§ π β π΅) β ((π¦ β (1...πΎ) β¦ (πβ(πβπ¦))):(1...πΎ)βΆβ0 β§
Ξ£π β (1...πΎ)((π¦ β (1...πΎ) β¦ (πβ(πβπ¦)))βπ) = π)) |
57 | | fzfid 13934 |
. . . . . 6
β’ ((π β§ π β π΅) β (1...πΎ) β Fin) |
58 | 57 | mptexd 7222 |
. . . . 5
β’ ((π β§ π β π΅) β (π¦ β (1...πΎ) β¦ (πβ(πβπ¦))) β V) |
59 | | feq1 6695 |
. . . . . . 7
β’ (π = (π¦ β (1...πΎ) β¦ (πβ(πβπ¦))) β (π:(1...πΎ)βΆβ0 β (π¦ β (1...πΎ) β¦ (πβ(πβπ¦))):(1...πΎ)βΆβ0)) |
60 | | simpl 483 |
. . . . . . . . . 10
β’ ((π = (π¦ β (1...πΎ) β¦ (πβ(πβπ¦))) β§ π β (1...πΎ)) β π = (π¦ β (1...πΎ) β¦ (πβ(πβπ¦)))) |
61 | 60 | fveq1d 6890 |
. . . . . . . . 9
β’ ((π = (π¦ β (1...πΎ) β¦ (πβ(πβπ¦))) β§ π β (1...πΎ)) β (πβπ) = ((π¦ β (1...πΎ) β¦ (πβ(πβπ¦)))βπ)) |
62 | 61 | sumeq2dv 15645 |
. . . . . . . 8
β’ (π = (π¦ β (1...πΎ) β¦ (πβ(πβπ¦))) β Ξ£π β (1...πΎ)(πβπ) = Ξ£π β (1...πΎ)((π¦ β (1...πΎ) β¦ (πβ(πβπ¦)))βπ)) |
63 | 62 | eqeq1d 2734 |
. . . . . . 7
β’ (π = (π¦ β (1...πΎ) β¦ (πβ(πβπ¦))) β (Ξ£π β (1...πΎ)(πβπ) = π β Ξ£π β (1...πΎ)((π¦ β (1...πΎ) β¦ (πβ(πβπ¦)))βπ) = π)) |
64 | 59, 63 | anbi12d 631 |
. . . . . 6
β’ (π = (π¦ β (1...πΎ) β¦ (πβ(πβπ¦))) β ((π:(1...πΎ)βΆβ0 β§
Ξ£π β (1...πΎ)(πβπ) = π) β ((π¦ β (1...πΎ) β¦ (πβ(πβπ¦))):(1...πΎ)βΆβ0 β§
Ξ£π β (1...πΎ)((π¦ β (1...πΎ) β¦ (πβ(πβπ¦)))βπ) = π))) |
65 | 64 | elabg 3665 |
. . . . 5
β’ ((π¦ β (1...πΎ) β¦ (πβ(πβπ¦))) β V β ((π¦ β (1...πΎ) β¦ (πβ(πβπ¦))) β {π β£ (π:(1...πΎ)βΆβ0 β§
Ξ£π β (1...πΎ)(πβπ) = π)} β ((π¦ β (1...πΎ) β¦ (πβ(πβπ¦))):(1...πΎ)βΆβ0 β§
Ξ£π β (1...πΎ)((π¦ β (1...πΎ) β¦ (πβ(πβπ¦)))βπ) = π))) |
66 | 58, 65 | syl 17 |
. . . 4
β’ ((π β§ π β π΅) β ((π¦ β (1...πΎ) β¦ (πβ(πβπ¦))) β {π β£ (π:(1...πΎ)βΆβ0 β§
Ξ£π β (1...πΎ)(πβπ) = π)} β ((π¦ β (1...πΎ) β¦ (πβ(πβπ¦))):(1...πΎ)βΆβ0 β§
Ξ£π β (1...πΎ)((π¦ β (1...πΎ) β¦ (πβ(πβπ¦)))βπ) = π))) |
67 | 56, 66 | mpbird 256 |
. . 3
β’ ((π β§ π β π΅) β (π¦ β (1...πΎ) β¦ (πβ(πβπ¦))) β {π β£ (π:(1...πΎ)βΆβ0 β§
Ξ£π β (1...πΎ)(πβπ) = π)}) |
68 | | sticksstones17.3 |
. . . 4
β’ π΄ = {π β£ (π:(1...πΎ)βΆβ0 β§
Ξ£π β (1...πΎ)(πβπ) = π)} |
69 | 68 | a1i 11 |
. . 3
β’ ((π β§ π β π΅) β π΄ = {π β£ (π:(1...πΎ)βΆβ0 β§
Ξ£π β (1...πΎ)(πβπ) = π)}) |
70 | 67, 69 | eleqtrrd 2836 |
. 2
β’ ((π β§ π β π΅) β (π¦ β (1...πΎ) β¦ (πβ(πβπ¦))) β π΄) |
71 | | sticksstones17.6 |
. 2
β’ πΊ = (π β π΅ β¦ (π¦ β (1...πΎ) β¦ (πβ(πβπ¦)))) |
72 | 70, 71 | fmptd 7110 |
1
β’ (π β πΊ:π΅βΆπ΄) |