Step | Hyp | Ref
| Expression |
1 | | 2fveq3 6893 |
. . . . 5
β’ (π = (πβπ) β (πΏβ(πβπ)) = (πΏβ(πβ(πβπ)))) |
2 | | tpfi 9319 |
. . . . . 6
β’ {0, 1, 2}
β Fin |
3 | 2 | a1i 11 |
. . . . 5
β’ (π β {0, 1, 2} β
Fin) |
4 | | hgt750lemg.t |
. . . . . 6
β’ (π β π:(0..^3)β1-1-ontoβ(0..^3)) |
5 | | fzo0to3tp 13714 |
. . . . . . 7
β’ (0..^3) =
{0, 1, 2} |
6 | | f1oeq23 6821 |
. . . . . . 7
β’ (((0..^3)
= {0, 1, 2} β§ (0..^3) = {0, 1, 2}) β (π:(0..^3)β1-1-ontoβ(0..^3) β π:{0, 1, 2}β1-1-ontoβ{0,
1, 2})) |
7 | 5, 5, 6 | mp2an 691 |
. . . . . 6
β’ (π:(0..^3)β1-1-ontoβ(0..^3) β π:{0, 1, 2}β1-1-ontoβ{0,
1, 2}) |
8 | 4, 7 | sylib 217 |
. . . . 5
β’ (π β π:{0, 1, 2}β1-1-ontoβ{0,
1, 2}) |
9 | | eqidd 2734 |
. . . . 5
β’ ((π β§ π β {0, 1, 2}) β (πβπ) = (πβπ)) |
10 | | hgt750lemg.l |
. . . . . . . 8
β’ (π β πΏ:ββΆβ) |
11 | 10 | adantr 482 |
. . . . . . 7
β’ ((π β§ π β {0, 1, 2}) β πΏ:ββΆβ) |
12 | | hgt750lemg.n |
. . . . . . . . 9
β’ (π β π:(0..^3)βΆβ) |
13 | 12 | adantr 482 |
. . . . . . . 8
β’ ((π β§ π β {0, 1, 2}) β π:(0..^3)βΆβ) |
14 | | simpr 486 |
. . . . . . . . 9
β’ ((π β§ π β {0, 1, 2}) β π β {0, 1, 2}) |
15 | 14, 5 | eleqtrrdi 2845 |
. . . . . . . 8
β’ ((π β§ π β {0, 1, 2}) β π β (0..^3)) |
16 | 13, 15 | ffvelcdmd 7083 |
. . . . . . 7
β’ ((π β§ π β {0, 1, 2}) β (πβπ) β β) |
17 | 11, 16 | ffvelcdmd 7083 |
. . . . . 6
β’ ((π β§ π β {0, 1, 2}) β (πΏβ(πβπ)) β β) |
18 | 17 | recnd 11238 |
. . . . 5
β’ ((π β§ π β {0, 1, 2}) β (πΏβ(πβπ)) β β) |
19 | 1, 3, 8, 9, 18 | fprodf1o 15886 |
. . . 4
β’ (π β βπ β {0, 1, 2} (πΏβ(πβπ)) = βπ β {0, 1, 2} (πΏβ(πβ(πβπ)))) |
20 | | hgt750lemg.f |
. . . . . . . . . . 11
β’ πΉ = (π β π
β¦ (π β π)) |
21 | 20 | a1i 11 |
. . . . . . . . . 10
β’ (π β πΉ = (π β π
β¦ (π β π))) |
22 | | simpr 486 |
. . . . . . . . . . 11
β’ ((π β§ π = π) β π = π) |
23 | 22 | coeq1d 5859 |
. . . . . . . . . 10
β’ ((π β§ π = π) β (π β π) = (π β π)) |
24 | | hgt750lemg.1 |
. . . . . . . . . 10
β’ (π β π β π
) |
25 | | f1of 6830 |
. . . . . . . . . . . . 13
β’ (π:(0..^3)β1-1-ontoβ(0..^3) β π:(0..^3)βΆ(0..^3)) |
26 | 4, 25 | syl 17 |
. . . . . . . . . . . 12
β’ (π β π:(0..^3)βΆ(0..^3)) |
27 | | ovexd 7439 |
. . . . . . . . . . . 12
β’ (π β (0..^3) β
V) |
28 | 26, 27 | fexd 7224 |
. . . . . . . . . . 11
β’ (π β π β V) |
29 | | coexg 7915 |
. . . . . . . . . . 11
β’ ((π β π
β§ π β V) β (π β π) β V) |
30 | 24, 28, 29 | syl2anc 585 |
. . . . . . . . . 10
β’ (π β (π β π) β V) |
31 | 21, 23, 24, 30 | fvmptd 7001 |
. . . . . . . . 9
β’ (π β (πΉβπ) = (π β π)) |
32 | 31 | adantr 482 |
. . . . . . . 8
β’ ((π β§ π β {0, 1, 2}) β (πΉβπ) = (π β π)) |
33 | 32 | fveq1d 6890 |
. . . . . . 7
β’ ((π β§ π β {0, 1, 2}) β ((πΉβπ)βπ) = ((π β π)βπ)) |
34 | | f1ofun 6832 |
. . . . . . . . . 10
β’ (π:(0..^3)β1-1-ontoβ(0..^3) β Fun π) |
35 | 4, 34 | syl 17 |
. . . . . . . . 9
β’ (π β Fun π) |
36 | 35 | adantr 482 |
. . . . . . . 8
β’ ((π β§ π β {0, 1, 2}) β Fun π) |
37 | | f1odm 6834 |
. . . . . . . . . . 11
β’ (π:{0, 1, 2}β1-1-ontoβ{0,
1, 2} β dom π = {0, 1,
2}) |
38 | 8, 37 | syl 17 |
. . . . . . . . . 10
β’ (π β dom π = {0, 1, 2}) |
39 | 38 | eleq2d 2820 |
. . . . . . . . 9
β’ (π β (π β dom π β π β {0, 1, 2})) |
40 | 39 | biimpar 479 |
. . . . . . . 8
β’ ((π β§ π β {0, 1, 2}) β π β dom π) |
41 | | fvco 6985 |
. . . . . . . 8
β’ ((Fun
π β§ π β dom π) β ((π β π)βπ) = (πβ(πβπ))) |
42 | 36, 40, 41 | syl2anc 585 |
. . . . . . 7
β’ ((π β§ π β {0, 1, 2}) β ((π β π)βπ) = (πβ(πβπ))) |
43 | 33, 42 | eqtr2d 2774 |
. . . . . 6
β’ ((π β§ π β {0, 1, 2}) β (πβ(πβπ)) = ((πΉβπ)βπ)) |
44 | 43 | fveq2d 6892 |
. . . . 5
β’ ((π β§ π β {0, 1, 2}) β (πΏβ(πβ(πβπ))) = (πΏβ((πΉβπ)βπ))) |
45 | 44 | prodeq2dv 15863 |
. . . 4
β’ (π β βπ β {0, 1, 2} (πΏβ(πβ(πβπ))) = βπ β {0, 1, 2} (πΏβ((πΉβπ)βπ))) |
46 | 19, 45 | eqtr2d 2774 |
. . 3
β’ (π β βπ β {0, 1, 2} (πΏβ((πΉβπ)βπ)) = βπ β {0, 1, 2} (πΏβ(πβπ))) |
47 | | 2fveq3 6893 |
. . . 4
β’ (π = 0 β (πΏβ((πΉβπ)βπ)) = (πΏβ((πΉβπ)β0))) |
48 | | 2fveq3 6893 |
. . . 4
β’ (π = 1 β (πΏβ((πΉβπ)βπ)) = (πΏβ((πΉβπ)β1))) |
49 | | c0ex 11204 |
. . . . 5
β’ 0 β
V |
50 | 49 | a1i 11 |
. . . 4
β’ (π β 0 β
V) |
51 | | 1ex 11206 |
. . . . 5
β’ 1 β
V |
52 | 51 | a1i 11 |
. . . 4
β’ (π β 1 β
V) |
53 | 31 | fveq1d 6890 |
. . . . . . . 8
β’ (π β ((πΉβπ)β0) = ((π β π)β0)) |
54 | 49 | tpid1 4771 |
. . . . . . . . . 10
β’ 0 β
{0, 1, 2} |
55 | 54, 38 | eleqtrrid 2841 |
. . . . . . . . 9
β’ (π β 0 β dom π) |
56 | | fvco 6985 |
. . . . . . . . 9
β’ ((Fun
π β§ 0 β dom π) β ((π β π)β0) = (πβ(πβ0))) |
57 | 35, 55, 56 | syl2anc 585 |
. . . . . . . 8
β’ (π β ((π β π)β0) = (πβ(πβ0))) |
58 | 53, 57 | eqtrd 2773 |
. . . . . . 7
β’ (π β ((πΉβπ)β0) = (πβ(πβ0))) |
59 | 54, 5 | eleqtrri 2833 |
. . . . . . . . . 10
β’ 0 β
(0..^3) |
60 | 59 | a1i 11 |
. . . . . . . . 9
β’ (π β 0 β
(0..^3)) |
61 | 26, 60 | ffvelcdmd 7083 |
. . . . . . . 8
β’ (π β (πβ0) β (0..^3)) |
62 | 12, 61 | ffvelcdmd 7083 |
. . . . . . 7
β’ (π β (πβ(πβ0)) β β) |
63 | 58, 62 | eqeltrd 2834 |
. . . . . 6
β’ (π β ((πΉβπ)β0) β β) |
64 | 10, 63 | ffvelcdmd 7083 |
. . . . 5
β’ (π β (πΏβ((πΉβπ)β0)) β β) |
65 | 64 | recnd 11238 |
. . . 4
β’ (π β (πΏβ((πΉβπ)β0)) β β) |
66 | 31 | fveq1d 6890 |
. . . . . . . 8
β’ (π β ((πΉβπ)β1) = ((π β π)β1)) |
67 | 51 | tpid2 4773 |
. . . . . . . . . 10
β’ 1 β
{0, 1, 2} |
68 | 67, 38 | eleqtrrid 2841 |
. . . . . . . . 9
β’ (π β 1 β dom π) |
69 | | fvco 6985 |
. . . . . . . . 9
β’ ((Fun
π β§ 1 β dom π) β ((π β π)β1) = (πβ(πβ1))) |
70 | 35, 68, 69 | syl2anc 585 |
. . . . . . . 8
β’ (π β ((π β π)β1) = (πβ(πβ1))) |
71 | 66, 70 | eqtrd 2773 |
. . . . . . 7
β’ (π β ((πΉβπ)β1) = (πβ(πβ1))) |
72 | 67, 5 | eleqtrri 2833 |
. . . . . . . . . 10
β’ 1 β
(0..^3) |
73 | 72 | a1i 11 |
. . . . . . . . 9
β’ (π β 1 β
(0..^3)) |
74 | 26, 73 | ffvelcdmd 7083 |
. . . . . . . 8
β’ (π β (πβ1) β (0..^3)) |
75 | 12, 74 | ffvelcdmd 7083 |
. . . . . . 7
β’ (π β (πβ(πβ1)) β β) |
76 | 71, 75 | eqeltrd 2834 |
. . . . . 6
β’ (π β ((πΉβπ)β1) β β) |
77 | 10, 76 | ffvelcdmd 7083 |
. . . . 5
β’ (π β (πΏβ((πΉβπ)β1)) β β) |
78 | 77 | recnd 11238 |
. . . 4
β’ (π β (πΏβ((πΉβπ)β1)) β β) |
79 | | 0ne1 12279 |
. . . . 5
β’ 0 β
1 |
80 | 79 | a1i 11 |
. . . 4
β’ (π β 0 β 1) |
81 | | 2fveq3 6893 |
. . . 4
β’ (π = 2 β (πΏβ((πΉβπ)βπ)) = (πΏβ((πΉβπ)β2))) |
82 | | 2ex 12285 |
. . . . 5
β’ 2 β
V |
83 | 82 | a1i 11 |
. . . 4
β’ (π β 2 β
V) |
84 | 31 | fveq1d 6890 |
. . . . . . . 8
β’ (π β ((πΉβπ)β2) = ((π β π)β2)) |
85 | 82 | tpid3 4776 |
. . . . . . . . . 10
β’ 2 β
{0, 1, 2} |
86 | 85, 38 | eleqtrrid 2841 |
. . . . . . . . 9
β’ (π β 2 β dom π) |
87 | | fvco 6985 |
. . . . . . . . 9
β’ ((Fun
π β§ 2 β dom π) β ((π β π)β2) = (πβ(πβ2))) |
88 | 35, 86, 87 | syl2anc 585 |
. . . . . . . 8
β’ (π β ((π β π)β2) = (πβ(πβ2))) |
89 | 84, 88 | eqtrd 2773 |
. . . . . . 7
β’ (π β ((πΉβπ)β2) = (πβ(πβ2))) |
90 | 85, 5 | eleqtrri 2833 |
. . . . . . . . . 10
β’ 2 β
(0..^3) |
91 | 90 | a1i 11 |
. . . . . . . . 9
β’ (π β 2 β
(0..^3)) |
92 | 26, 91 | ffvelcdmd 7083 |
. . . . . . . 8
β’ (π β (πβ2) β (0..^3)) |
93 | 12, 92 | ffvelcdmd 7083 |
. . . . . . 7
β’ (π β (πβ(πβ2)) β β) |
94 | 89, 93 | eqeltrd 2834 |
. . . . . 6
β’ (π β ((πΉβπ)β2) β β) |
95 | 10, 94 | ffvelcdmd 7083 |
. . . . 5
β’ (π β (πΏβ((πΉβπ)β2)) β β) |
96 | 95 | recnd 11238 |
. . . 4
β’ (π β (πΏβ((πΉβπ)β2)) β β) |
97 | | 0ne2 12415 |
. . . . 5
β’ 0 β
2 |
98 | 97 | a1i 11 |
. . . 4
β’ (π β 0 β 2) |
99 | | 1ne2 12416 |
. . . . 5
β’ 1 β
2 |
100 | 99 | a1i 11 |
. . . 4
β’ (π β 1 β 2) |
101 | 47, 48, 50, 52, 65, 78, 80, 81, 83, 96, 98, 100 | prodtp 32011 |
. . 3
β’ (π β βπ β {0, 1, 2} (πΏβ((πΉβπ)βπ)) = (((πΏβ((πΉβπ)β0)) Β· (πΏβ((πΉβπ)β1))) Β· (πΏβ((πΉβπ)β2)))) |
102 | | 2fveq3 6893 |
. . . 4
β’ (π = 0 β (πΏβ(πβπ)) = (πΏβ(πβ0))) |
103 | | 2fveq3 6893 |
. . . 4
β’ (π = 1 β (πΏβ(πβπ)) = (πΏβ(πβ1))) |
104 | 12, 60 | ffvelcdmd 7083 |
. . . . . 6
β’ (π β (πβ0) β β) |
105 | 10, 104 | ffvelcdmd 7083 |
. . . . 5
β’ (π β (πΏβ(πβ0)) β β) |
106 | 105 | recnd 11238 |
. . . 4
β’ (π β (πΏβ(πβ0)) β β) |
107 | 12, 73 | ffvelcdmd 7083 |
. . . . . 6
β’ (π β (πβ1) β β) |
108 | 10, 107 | ffvelcdmd 7083 |
. . . . 5
β’ (π β (πΏβ(πβ1)) β β) |
109 | 108 | recnd 11238 |
. . . 4
β’ (π β (πΏβ(πβ1)) β β) |
110 | | 2fveq3 6893 |
. . . 4
β’ (π = 2 β (πΏβ(πβπ)) = (πΏβ(πβ2))) |
111 | 12, 91 | ffvelcdmd 7083 |
. . . . . 6
β’ (π β (πβ2) β β) |
112 | 10, 111 | ffvelcdmd 7083 |
. . . . 5
β’ (π β (πΏβ(πβ2)) β β) |
113 | 112 | recnd 11238 |
. . . 4
β’ (π β (πΏβ(πβ2)) β β) |
114 | 102, 103,
50, 52, 106, 109, 80, 110, 83, 113, 98, 100 | prodtp 32011 |
. . 3
β’ (π β βπ β {0, 1, 2} (πΏβ(πβπ)) = (((πΏβ(πβ0)) Β· (πΏβ(πβ1))) Β· (πΏβ(πβ2)))) |
115 | 46, 101, 114 | 3eqtr3d 2781 |
. 2
β’ (π β (((πΏβ((πΉβπ)β0)) Β· (πΏβ((πΉβπ)β1))) Β· (πΏβ((πΉβπ)β2))) = (((πΏβ(πβ0)) Β· (πΏβ(πβ1))) Β· (πΏβ(πβ2)))) |
116 | 65, 78, 96 | mulassd 11233 |
. 2
β’ (π β (((πΏβ((πΉβπ)β0)) Β· (πΏβ((πΉβπ)β1))) Β· (πΏβ((πΉβπ)β2))) = ((πΏβ((πΉβπ)β0)) Β· ((πΏβ((πΉβπ)β1)) Β· (πΏβ((πΉβπ)β2))))) |
117 | 106, 109,
113 | mulassd 11233 |
. 2
β’ (π β (((πΏβ(πβ0)) Β· (πΏβ(πβ1))) Β· (πΏβ(πβ2))) = ((πΏβ(πβ0)) Β· ((πΏβ(πβ1)) Β· (πΏβ(πβ2))))) |
118 | 115, 116,
117 | 3eqtr3d 2781 |
1
β’ (π β ((πΏβ((πΉβπ)β0)) Β· ((πΏβ((πΉβπ)β1)) Β· (πΏβ((πΉβπ)β2)))) = ((πΏβ(πβ0)) Β· ((πΏβ(πβ1)) Β· (πΏβ(πβ2))))) |