Step | Hyp | Ref
| Expression |
1 | | prod0 15883 |
. . . 4
β’
βπ β
β
π΅ =
1 |
2 | | fprodf1o.3 |
. . . . . . . . 9
β’ (π β πΉ:πΆβ1-1-ontoβπ΄) |
3 | 2 | adantr 481 |
. . . . . . . 8
β’ ((π β§ πΆ = β
) β πΉ:πΆβ1-1-ontoβπ΄) |
4 | | f1oeq2 6819 |
. . . . . . . . 9
β’ (πΆ = β
β (πΉ:πΆβ1-1-ontoβπ΄ β πΉ:β
β1-1-ontoβπ΄)) |
5 | 4 | adantl 482 |
. . . . . . . 8
β’ ((π β§ πΆ = β
) β (πΉ:πΆβ1-1-ontoβπ΄ β πΉ:β
β1-1-ontoβπ΄)) |
6 | 3, 5 | mpbid 231 |
. . . . . . 7
β’ ((π β§ πΆ = β
) β πΉ:β
β1-1-ontoβπ΄) |
7 | | f1ofo 6837 |
. . . . . . 7
β’ (πΉ:β
β1-1-ontoβπ΄ β πΉ:β
βontoβπ΄) |
8 | 6, 7 | syl 17 |
. . . . . 6
β’ ((π β§ πΆ = β
) β πΉ:β
βontoβπ΄) |
9 | | fo00 6866 |
. . . . . . 7
β’ (πΉ:β
βontoβπ΄ β (πΉ = β
β§ π΄ = β
)) |
10 | 9 | simprbi 497 |
. . . . . 6
β’ (πΉ:β
βontoβπ΄ β π΄ = β
) |
11 | 8, 10 | syl 17 |
. . . . 5
β’ ((π β§ πΆ = β
) β π΄ = β
) |
12 | 11 | prodeq1d 15861 |
. . . 4
β’ ((π β§ πΆ = β
) β βπ β π΄ π΅ = βπ β β
π΅) |
13 | | prodeq1 15849 |
. . . . . 6
β’ (πΆ = β
β βπ β πΆ π· = βπ β β
π·) |
14 | | prod0 15883 |
. . . . . 6
β’
βπ β
β
π· =
1 |
15 | 13, 14 | eqtrdi 2788 |
. . . . 5
β’ (πΆ = β
β βπ β πΆ π· = 1) |
16 | 15 | adantl 482 |
. . . 4
β’ ((π β§ πΆ = β
) β βπ β πΆ π· = 1) |
17 | 1, 12, 16 | 3eqtr4a 2798 |
. . 3
β’ ((π β§ πΆ = β
) β βπ β π΄ π΅ = βπ β πΆ π·) |
18 | 17 | ex 413 |
. 2
β’ (π β (πΆ = β
β βπ β π΄ π΅ = βπ β πΆ π·)) |
19 | | 2fveq3 6893 |
. . . . . . . 8
β’ (π = (πβπ) β ((π β π΄ β¦ π΅)β(πΉβπ)) = ((π β π΄ β¦ π΅)β(πΉβ(πβπ)))) |
20 | | simprl 769 |
. . . . . . . 8
β’ ((π β§ ((β―βπΆ) β β β§ π:(1...(β―βπΆ))β1-1-ontoβπΆ)) β (β―βπΆ) β
β) |
21 | | simprr 771 |
. . . . . . . 8
β’ ((π β§ ((β―βπΆ) β β β§ π:(1...(β―βπΆ))β1-1-ontoβπΆ)) β π:(1...(β―βπΆ))β1-1-ontoβπΆ) |
22 | | f1of 6830 |
. . . . . . . . . . . 12
β’ (πΉ:πΆβ1-1-ontoβπ΄ β πΉ:πΆβΆπ΄) |
23 | 2, 22 | syl 17 |
. . . . . . . . . . 11
β’ (π β πΉ:πΆβΆπ΄) |
24 | 23 | ffvelcdmda 7083 |
. . . . . . . . . 10
β’ ((π β§ π β πΆ) β (πΉβπ) β π΄) |
25 | | fprodf1o.5 |
. . . . . . . . . . . 12
β’ ((π β§ π β π΄) β π΅ β β) |
26 | 25 | fmpttd 7111 |
. . . . . . . . . . 11
β’ (π β (π β π΄ β¦ π΅):π΄βΆβ) |
27 | 26 | ffvelcdmda 7083 |
. . . . . . . . . 10
β’ ((π β§ (πΉβπ) β π΄) β ((π β π΄ β¦ π΅)β(πΉβπ)) β β) |
28 | 24, 27 | syldan 591 |
. . . . . . . . 9
β’ ((π β§ π β πΆ) β ((π β π΄ β¦ π΅)β(πΉβπ)) β β) |
29 | 28 | adantlr 713 |
. . . . . . . 8
β’ (((π β§ ((β―βπΆ) β β β§ π:(1...(β―βπΆ))β1-1-ontoβπΆ)) β§ π β πΆ) β ((π β π΄ β¦ π΅)β(πΉβπ)) β β) |
30 | | simpr 485 |
. . . . . . . . . . . 12
β’
(((β―βπΆ)
β β β§ π:(1...(β―βπΆ))β1-1-ontoβπΆ) β π:(1...(β―βπΆ))β1-1-ontoβπΆ) |
31 | | f1oco 6853 |
. . . . . . . . . . . 12
β’ ((πΉ:πΆβ1-1-ontoβπ΄ β§ π:(1...(β―βπΆ))β1-1-ontoβπΆ) β (πΉ β π):(1...(β―βπΆ))β1-1-ontoβπ΄) |
32 | 2, 30, 31 | syl2an 596 |
. . . . . . . . . . 11
β’ ((π β§ ((β―βπΆ) β β β§ π:(1...(β―βπΆ))β1-1-ontoβπΆ)) β (πΉ β π):(1...(β―βπΆ))β1-1-ontoβπ΄) |
33 | | f1of 6830 |
. . . . . . . . . . 11
β’ ((πΉ β π):(1...(β―βπΆ))β1-1-ontoβπ΄ β (πΉ β π):(1...(β―βπΆ))βΆπ΄) |
34 | 32, 33 | syl 17 |
. . . . . . . . . 10
β’ ((π β§ ((β―βπΆ) β β β§ π:(1...(β―βπΆ))β1-1-ontoβπΆ)) β (πΉ β π):(1...(β―βπΆ))βΆπ΄) |
35 | | fvco3 6987 |
. . . . . . . . . 10
β’ (((πΉ β π):(1...(β―βπΆ))βΆπ΄ β§ π β (1...(β―βπΆ))) β (((π β π΄ β¦ π΅) β (πΉ β π))βπ) = ((π β π΄ β¦ π΅)β((πΉ β π)βπ))) |
36 | 34, 35 | sylan 580 |
. . . . . . . . 9
β’ (((π β§ ((β―βπΆ) β β β§ π:(1...(β―βπΆ))β1-1-ontoβπΆ)) β§ π β (1...(β―βπΆ))) β (((π β π΄ β¦ π΅) β (πΉ β π))βπ) = ((π β π΄ β¦ π΅)β((πΉ β π)βπ))) |
37 | | f1of 6830 |
. . . . . . . . . . . . 13
β’ (π:(1...(β―βπΆ))β1-1-ontoβπΆ β π:(1...(β―βπΆ))βΆπΆ) |
38 | 37 | adantl 482 |
. . . . . . . . . . . 12
β’
(((β―βπΆ)
β β β§ π:(1...(β―βπΆ))β1-1-ontoβπΆ) β π:(1...(β―βπΆ))βΆπΆ) |
39 | 38 | adantl 482 |
. . . . . . . . . . 11
β’ ((π β§ ((β―βπΆ) β β β§ π:(1...(β―βπΆ))β1-1-ontoβπΆ)) β π:(1...(β―βπΆ))βΆπΆ) |
40 | | fvco3 6987 |
. . . . . . . . . . 11
β’ ((π:(1...(β―βπΆ))βΆπΆ β§ π β (1...(β―βπΆ))) β ((πΉ β π)βπ) = (πΉβ(πβπ))) |
41 | 39, 40 | sylan 580 |
. . . . . . . . . 10
β’ (((π β§ ((β―βπΆ) β β β§ π:(1...(β―βπΆ))β1-1-ontoβπΆ)) β§ π β (1...(β―βπΆ))) β ((πΉ β π)βπ) = (πΉβ(πβπ))) |
42 | 41 | fveq2d 6892 |
. . . . . . . . 9
β’ (((π β§ ((β―βπΆ) β β β§ π:(1...(β―βπΆ))β1-1-ontoβπΆ)) β§ π β (1...(β―βπΆ))) β ((π β π΄ β¦ π΅)β((πΉ β π)βπ)) = ((π β π΄ β¦ π΅)β(πΉβ(πβπ)))) |
43 | 36, 42 | eqtrd 2772 |
. . . . . . . 8
β’ (((π β§ ((β―βπΆ) β β β§ π:(1...(β―βπΆ))β1-1-ontoβπΆ)) β§ π β (1...(β―βπΆ))) β (((π β π΄ β¦ π΅) β (πΉ β π))βπ) = ((π β π΄ β¦ π΅)β(πΉβ(πβπ)))) |
44 | 19, 20, 21, 29, 43 | fprod 15881 |
. . . . . . 7
β’ ((π β§ ((β―βπΆ) β β β§ π:(1...(β―βπΆ))β1-1-ontoβπΆ)) β βπ β πΆ ((π β π΄ β¦ π΅)β(πΉβπ)) = (seq1( Β· , ((π β π΄ β¦ π΅) β (πΉ β π)))β(β―βπΆ))) |
45 | | fprodf1o.4 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β πΆ) β (πΉβπ) = πΊ) |
46 | 23 | ffvelcdmda 7083 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β πΆ) β (πΉβπ) β π΄) |
47 | 45, 46 | eqeltrrd 2834 |
. . . . . . . . . . . . 13
β’ ((π β§ π β πΆ) β πΊ β π΄) |
48 | | fprodf1o.1 |
. . . . . . . . . . . . . 14
β’ (π = πΊ β π΅ = π·) |
49 | | eqid 2732 |
. . . . . . . . . . . . . 14
β’ (π β π΄ β¦ π΅) = (π β π΄ β¦ π΅) |
50 | 48, 49 | fvmpti 6994 |
. . . . . . . . . . . . 13
β’ (πΊ β π΄ β ((π β π΄ β¦ π΅)βπΊ) = ( I βπ·)) |
51 | 47, 50 | syl 17 |
. . . . . . . . . . . 12
β’ ((π β§ π β πΆ) β ((π β π΄ β¦ π΅)βπΊ) = ( I βπ·)) |
52 | 45 | fveq2d 6892 |
. . . . . . . . . . . 12
β’ ((π β§ π β πΆ) β ((π β π΄ β¦ π΅)β(πΉβπ)) = ((π β π΄ β¦ π΅)βπΊ)) |
53 | | eqid 2732 |
. . . . . . . . . . . . . 14
β’ (π β πΆ β¦ π·) = (π β πΆ β¦ π·) |
54 | 53 | fvmpt2i 7005 |
. . . . . . . . . . . . 13
β’ (π β πΆ β ((π β πΆ β¦ π·)βπ) = ( I βπ·)) |
55 | 54 | adantl 482 |
. . . . . . . . . . . 12
β’ ((π β§ π β πΆ) β ((π β πΆ β¦ π·)βπ) = ( I βπ·)) |
56 | 51, 52, 55 | 3eqtr4rd 2783 |
. . . . . . . . . . 11
β’ ((π β§ π β πΆ) β ((π β πΆ β¦ π·)βπ) = ((π β π΄ β¦ π΅)β(πΉβπ))) |
57 | 56 | ralrimiva 3146 |
. . . . . . . . . 10
β’ (π β βπ β πΆ ((π β πΆ β¦ π·)βπ) = ((π β π΄ β¦ π΅)β(πΉβπ))) |
58 | | nffvmpt1 6899 |
. . . . . . . . . . . 12
β’
β²π((π β πΆ β¦ π·)βπ) |
59 | 58 | nfeq1 2918 |
. . . . . . . . . . 11
β’
β²π((π β πΆ β¦ π·)βπ) = ((π β π΄ β¦ π΅)β(πΉβπ)) |
60 | | fveq2 6888 |
. . . . . . . . . . . 12
β’ (π = π β ((π β πΆ β¦ π·)βπ) = ((π β πΆ β¦ π·)βπ)) |
61 | | 2fveq3 6893 |
. . . . . . . . . . . 12
β’ (π = π β ((π β π΄ β¦ π΅)β(πΉβπ)) = ((π β π΄ β¦ π΅)β(πΉβπ))) |
62 | 60, 61 | eqeq12d 2748 |
. . . . . . . . . . 11
β’ (π = π β (((π β πΆ β¦ π·)βπ) = ((π β π΄ β¦ π΅)β(πΉβπ)) β ((π β πΆ β¦ π·)βπ) = ((π β π΄ β¦ π΅)β(πΉβπ)))) |
63 | 59, 62 | rspc 3600 |
. . . . . . . . . 10
β’ (π β πΆ β (βπ β πΆ ((π β πΆ β¦ π·)βπ) = ((π β π΄ β¦ π΅)β(πΉβπ)) β ((π β πΆ β¦ π·)βπ) = ((π β π΄ β¦ π΅)β(πΉβπ)))) |
64 | 57, 63 | mpan9 507 |
. . . . . . . . 9
β’ ((π β§ π β πΆ) β ((π β πΆ β¦ π·)βπ) = ((π β π΄ β¦ π΅)β(πΉβπ))) |
65 | 64 | adantlr 713 |
. . . . . . . 8
β’ (((π β§ ((β―βπΆ) β β β§ π:(1...(β―βπΆ))β1-1-ontoβπΆ)) β§ π β πΆ) β ((π β πΆ β¦ π·)βπ) = ((π β π΄ β¦ π΅)β(πΉβπ))) |
66 | 65 | prodeq2dv 15863 |
. . . . . . 7
β’ ((π β§ ((β―βπΆ) β β β§ π:(1...(β―βπΆ))β1-1-ontoβπΆ)) β βπ β πΆ ((π β πΆ β¦ π·)βπ) = βπ β πΆ ((π β π΄ β¦ π΅)β(πΉβπ))) |
67 | | fveq2 6888 |
. . . . . . . 8
β’ (π = ((πΉ β π)βπ) β ((π β π΄ β¦ π΅)βπ) = ((π β π΄ β¦ π΅)β((πΉ β π)βπ))) |
68 | 26 | adantr 481 |
. . . . . . . . 9
β’ ((π β§ ((β―βπΆ) β β β§ π:(1...(β―βπΆ))β1-1-ontoβπΆ)) β (π β π΄ β¦ π΅):π΄βΆβ) |
69 | 68 | ffvelcdmda 7083 |
. . . . . . . 8
β’ (((π β§ ((β―βπΆ) β β β§ π:(1...(β―βπΆ))β1-1-ontoβπΆ)) β§ π β π΄) β ((π β π΄ β¦ π΅)βπ) β β) |
70 | 67, 20, 32, 69, 36 | fprod 15881 |
. . . . . . 7
β’ ((π β§ ((β―βπΆ) β β β§ π:(1...(β―βπΆ))β1-1-ontoβπΆ)) β βπ β π΄ ((π β π΄ β¦ π΅)βπ) = (seq1( Β· , ((π β π΄ β¦ π΅) β (πΉ β π)))β(β―βπΆ))) |
71 | 44, 66, 70 | 3eqtr4rd 2783 |
. . . . . 6
β’ ((π β§ ((β―βπΆ) β β β§ π:(1...(β―βπΆ))β1-1-ontoβπΆ)) β βπ β π΄ ((π β π΄ β¦ π΅)βπ) = βπ β πΆ ((π β πΆ β¦ π·)βπ)) |
72 | | prodfc 15885 |
. . . . . 6
β’
βπ β
π΄ ((π β π΄ β¦ π΅)βπ) = βπ β π΄ π΅ |
73 | | prodfc 15885 |
. . . . . 6
β’
βπ β
πΆ ((π β πΆ β¦ π·)βπ) = βπ β πΆ π· |
74 | 71, 72, 73 | 3eqtr3g 2795 |
. . . . 5
β’ ((π β§ ((β―βπΆ) β β β§ π:(1...(β―βπΆ))β1-1-ontoβπΆ)) β βπ β π΄ π΅ = βπ β πΆ π·) |
75 | 74 | expr 457 |
. . . 4
β’ ((π β§ (β―βπΆ) β β) β (π:(1...(β―βπΆ))β1-1-ontoβπΆ β βπ β π΄ π΅ = βπ β πΆ π·)) |
76 | 75 | exlimdv 1936 |
. . 3
β’ ((π β§ (β―βπΆ) β β) β
(βπ π:(1...(β―βπΆ))β1-1-ontoβπΆ β βπ β π΄ π΅ = βπ β πΆ π·)) |
77 | 76 | expimpd 454 |
. 2
β’ (π β (((β―βπΆ) β β β§
βπ π:(1...(β―βπΆ))β1-1-ontoβπΆ) β βπ β π΄ π΅ = βπ β πΆ π·)) |
78 | | fprodf1o.2 |
. . 3
β’ (π β πΆ β Fin) |
79 | | fz1f1o 15652 |
. . 3
β’ (πΆ β Fin β (πΆ = β
β¨
((β―βπΆ) β
β β§ βπ
π:(1...(β―βπΆ))β1-1-ontoβπΆ))) |
80 | 78, 79 | syl 17 |
. 2
β’ (π β (πΆ = β
β¨ ((β―βπΆ) β β β§
βπ π:(1...(β―βπΆ))β1-1-ontoβπΆ))) |
81 | 18, 77, 80 | mpjaod 858 |
1
β’ (π β βπ β π΄ π΅ = βπ β πΆ π·) |