Step | Hyp | Ref
| Expression |
1 | | imasbas.u |
. . . 4
β’ (π β π = (πΉ βs π
)) |
2 | | imasbas.v |
. . . 4
β’ (π β π = (Baseβπ
)) |
3 | | eqid 2177 |
. . . 4
β’
(+gβπ
) = (+gβπ
) |
4 | | eqid 2177 |
. . . 4
β’
(.rβπ
) = (.rβπ
) |
5 | | eqid 2177 |
. . . 4
β’ (
Β·π βπ
) = ( Β·π
βπ
) |
6 | | eqidd 2178 |
. . . 4
β’ (π β βͺ π β π βͺ π β π {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(+gβπ
)π))β©} = βͺ π β π βͺ π β π {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(+gβπ
)π))β©}) |
7 | | eqidd 2178 |
. . . 4
β’ (π β βͺ π β π βͺ π β π {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(.rβπ
)π))β©} = βͺ π β π βͺ π β π {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(.rβπ
)π))β©}) |
8 | | imasbas.f |
. . . 4
β’ (π β πΉ:πβontoβπ΅) |
9 | | imasbas.r |
. . . 4
β’ (π β π
β π) |
10 | 1, 2, 3, 4, 5, 6, 7, 8, 9 | imasival 12732 |
. . 3
β’ (π β π = {β¨(Baseβndx), π΅β©,
β¨(+gβndx), βͺ π β π βͺ π β π {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(+gβπ
)π))β©}β©,
β¨(.rβndx), βͺ π β π βͺ π β π {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(.rβπ
)π))β©}β©}) |
11 | 10 | fveq1d 5519 |
. 2
β’ (π β (πβ(Baseβndx)) =
({β¨(Baseβndx), π΅β©, β¨(+gβndx),
βͺ π β π βͺ π β π {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(+gβπ
)π))β©}β©,
β¨(.rβndx), βͺ π β π βͺ π β π {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(.rβπ
)π))β©}β©}β(Baseβndx))) |
12 | | basendxnn 12520 |
. . . . . 6
β’
(Baseβndx) β β |
13 | | basfn 12522 |
. . . . . . . . 9
β’ Base Fn
V |
14 | 9 | elexd 2752 |
. . . . . . . . 9
β’ (π β π
β V) |
15 | | funfvex 5534 |
. . . . . . . . . 10
β’ ((Fun
Base β§ π
β dom
Base) β (Baseβπ
)
β V) |
16 | 15 | funfni 5318 |
. . . . . . . . 9
β’ ((Base Fn
V β§ π
β V) β
(Baseβπ
) β
V) |
17 | 13, 14, 16 | sylancr 414 |
. . . . . . . 8
β’ (π β (Baseβπ
) β V) |
18 | 2, 17 | eqeltrd 2254 |
. . . . . . 7
β’ (π β π β V) |
19 | | focdmex 6118 |
. . . . . . 7
β’ (π β V β (πΉ:πβontoβπ΅ β π΅ β V)) |
20 | 18, 8, 19 | sylc 62 |
. . . . . 6
β’ (π β π΅ β V) |
21 | | opexg 4230 |
. . . . . 6
β’
(((Baseβndx) β β β§ π΅ β V) β β¨(Baseβndx),
π΅β© β
V) |
22 | 12, 20, 21 | sylancr 414 |
. . . . 5
β’ (π β β¨(Baseβndx),
π΅β© β
V) |
23 | | plusgndxnn 12572 |
. . . . . 6
β’
(+gβndx) β β |
24 | | fof 5440 |
. . . . . . . . . . . . . . . 16
β’ (πΉ:πβontoβπ΅ β πΉ:πβΆπ΅) |
25 | 8, 24 | syl 14 |
. . . . . . . . . . . . . . 15
β’ (π β πΉ:πβΆπ΅) |
26 | 25, 18 | fexd 5748 |
. . . . . . . . . . . . . 14
β’ (π β πΉ β V) |
27 | | vex 2742 |
. . . . . . . . . . . . . 14
β’ π β V |
28 | | fvexg 5536 |
. . . . . . . . . . . . . 14
β’ ((πΉ β V β§ π β V) β (πΉβπ) β V) |
29 | 26, 27, 28 | sylancl 413 |
. . . . . . . . . . . . 13
β’ (π β (πΉβπ) β V) |
30 | | vex 2742 |
. . . . . . . . . . . . . 14
β’ π β V |
31 | | fvexg 5536 |
. . . . . . . . . . . . . 14
β’ ((πΉ β V β§ π β V) β (πΉβπ) β V) |
32 | 26, 30, 31 | sylancl 413 |
. . . . . . . . . . . . 13
β’ (π β (πΉβπ) β V) |
33 | | opexg 4230 |
. . . . . . . . . . . . 13
β’ (((πΉβπ) β V β§ (πΉβπ) β V) β β¨(πΉβπ), (πΉβπ)β© β V) |
34 | 29, 32, 33 | syl2anc 411 |
. . . . . . . . . . . 12
β’ (π β β¨(πΉβπ), (πΉβπ)β© β V) |
35 | 27 | a1i 9 |
. . . . . . . . . . . . . 14
β’ (π β π β V) |
36 | | plusgslid 12573 |
. . . . . . . . . . . . . . . 16
β’
(+g = Slot (+gβndx) β§
(+gβndx) β β) |
37 | 36 | slotex 12491 |
. . . . . . . . . . . . . . 15
β’ (π
β π β (+gβπ
) β V) |
38 | 9, 37 | syl 14 |
. . . . . . . . . . . . . 14
β’ (π β (+gβπ
) β V) |
39 | 30 | a1i 9 |
. . . . . . . . . . . . . 14
β’ (π β π β V) |
40 | | ovexg 5911 |
. . . . . . . . . . . . . 14
β’ ((π β V β§
(+gβπ
)
β V β§ π β V)
β (π(+gβπ
)π) β V) |
41 | 35, 38, 39, 40 | syl3anc 1238 |
. . . . . . . . . . . . 13
β’ (π β (π(+gβπ
)π) β V) |
42 | | fvexg 5536 |
. . . . . . . . . . . . 13
β’ ((πΉ β V β§ (π(+gβπ
)π) β V) β (πΉβ(π(+gβπ
)π)) β V) |
43 | 26, 41, 42 | syl2anc 411 |
. . . . . . . . . . . 12
β’ (π β (πΉβ(π(+gβπ
)π)) β V) |
44 | | opexg 4230 |
. . . . . . . . . . . 12
β’
((β¨(πΉβπ), (πΉβπ)β© β V β§ (πΉβ(π(+gβπ
)π)) β V) β β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(+gβπ
)π))β© β V) |
45 | 34, 43, 44 | syl2anc 411 |
. . . . . . . . . . 11
β’ (π β β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(+gβπ
)π))β© β V) |
46 | | snexg 4186 |
. . . . . . . . . . 11
β’
(β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(+gβπ
)π))β© β V β {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(+gβπ
)π))β©} β V) |
47 | 45, 46 | syl 14 |
. . . . . . . . . 10
β’ (π β {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(+gβπ
)π))β©} β V) |
48 | 47 | ralrimivw 2551 |
. . . . . . . . 9
β’ (π β βπ β π {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(+gβπ
)π))β©} β V) |
49 | | iunexg 6122 |
. . . . . . . . 9
β’ ((π β V β§ βπ β π {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(+gβπ
)π))β©} β V) β βͺ π β π {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(+gβπ
)π))β©} β V) |
50 | 18, 48, 49 | syl2anc 411 |
. . . . . . . 8
β’ (π β βͺ π β π {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(+gβπ
)π))β©} β V) |
51 | 50 | ralrimivw 2551 |
. . . . . . 7
β’ (π β βπ β π βͺ π β π {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(+gβπ
)π))β©} β V) |
52 | | iunexg 6122 |
. . . . . . 7
β’ ((π β V β§ βπ β π βͺ π β π {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(+gβπ
)π))β©} β V) β βͺ π β π βͺ π β π {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(+gβπ
)π))β©} β V) |
53 | 18, 51, 52 | syl2anc 411 |
. . . . . 6
β’ (π β βͺ π β π βͺ π β π {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(+gβπ
)π))β©} β V) |
54 | | opexg 4230 |
. . . . . 6
β’
(((+gβndx) β β β§ βͺ π β π βͺ π β π {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(+gβπ
)π))β©} β V) β
β¨(+gβndx), βͺ π β π βͺ π β π {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(+gβπ
)π))β©}β© β V) |
55 | 23, 53, 54 | sylancr 414 |
. . . . 5
β’ (π β
β¨(+gβndx), βͺ π β π βͺ π β π {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(+gβπ
)π))β©}β© β V) |
56 | | mulrslid 12592 |
. . . . . . 7
β’
(.r = Slot (.rβndx) β§
(.rβndx) β β) |
57 | 56 | simpri 113 |
. . . . . 6
β’
(.rβndx) β β |
58 | 56 | slotex 12491 |
. . . . . . . . . . . . . . 15
β’ (π
β π β (.rβπ
) β V) |
59 | 9, 58 | syl 14 |
. . . . . . . . . . . . . 14
β’ (π β (.rβπ
) β V) |
60 | | ovexg 5911 |
. . . . . . . . . . . . . 14
β’ ((π β V β§
(.rβπ
)
β V β§ π β V)
β (π(.rβπ
)π) β V) |
61 | 35, 59, 39, 60 | syl3anc 1238 |
. . . . . . . . . . . . 13
β’ (π β (π(.rβπ
)π) β V) |
62 | | fvexg 5536 |
. . . . . . . . . . . . 13
β’ ((πΉ β V β§ (π(.rβπ
)π) β V) β (πΉβ(π(.rβπ
)π)) β V) |
63 | 26, 61, 62 | syl2anc 411 |
. . . . . . . . . . . 12
β’ (π β (πΉβ(π(.rβπ
)π)) β V) |
64 | | opexg 4230 |
. . . . . . . . . . . 12
β’
((β¨(πΉβπ), (πΉβπ)β© β V β§ (πΉβ(π(.rβπ
)π)) β V) β β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(.rβπ
)π))β© β V) |
65 | 34, 63, 64 | syl2anc 411 |
. . . . . . . . . . 11
β’ (π β β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(.rβπ
)π))β© β V) |
66 | | snexg 4186 |
. . . . . . . . . . 11
β’
(β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(.rβπ
)π))β© β V β {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(.rβπ
)π))β©} β V) |
67 | 65, 66 | syl 14 |
. . . . . . . . . 10
β’ (π β {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(.rβπ
)π))β©} β V) |
68 | 67 | ralrimivw 2551 |
. . . . . . . . 9
β’ (π β βπ β π {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(.rβπ
)π))β©} β V) |
69 | | iunexg 6122 |
. . . . . . . . 9
β’ ((π β V β§ βπ β π {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(.rβπ
)π))β©} β V) β βͺ π β π {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(.rβπ
)π))β©} β V) |
70 | 18, 68, 69 | syl2anc 411 |
. . . . . . . 8
β’ (π β βͺ π β π {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(.rβπ
)π))β©} β V) |
71 | 70 | ralrimivw 2551 |
. . . . . . 7
β’ (π β βπ β π βͺ π β π {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(.rβπ
)π))β©} β V) |
72 | | iunexg 6122 |
. . . . . . 7
β’ ((π β V β§ βπ β π βͺ π β π {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(.rβπ
)π))β©} β V) β βͺ π β π βͺ π β π {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(.rβπ
)π))β©} β V) |
73 | 18, 71, 72 | syl2anc 411 |
. . . . . 6
β’ (π β βͺ π β π βͺ π β π {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(.rβπ
)π))β©} β V) |
74 | | opexg 4230 |
. . . . . 6
β’
(((.rβndx) β β β§ βͺ π β π βͺ π β π {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(.rβπ
)π))β©} β V) β
β¨(.rβndx), βͺ π β π βͺ π β π {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(.rβπ
)π))β©}β© β V) |
75 | 57, 73, 74 | sylancr 414 |
. . . . 5
β’ (π β
β¨(.rβndx), βͺ π β π βͺ π β π {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(.rβπ
)π))β©}β© β V) |
76 | | tpexg 4446 |
. . . . 5
β’
((β¨(Baseβndx), π΅β© β V β§
β¨(+gβndx), βͺ π β π βͺ π β π {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(+gβπ
)π))β©}β© β V β§
β¨(.rβndx), βͺ π β π βͺ π β π {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(.rβπ
)π))β©}β© β V) β
{β¨(Baseβndx), π΅β©, β¨(+gβndx),
βͺ π β π βͺ π β π {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(+gβπ
)π))β©}β©,
β¨(.rβndx), βͺ π β π βͺ π β π {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(.rβπ
)π))β©}β©} β V) |
77 | 22, 55, 75, 76 | syl3anc 1238 |
. . . 4
β’ (π β {β¨(Baseβndx),
π΅β©,
β¨(+gβndx), βͺ π β π βͺ π β π {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(+gβπ
)π))β©}β©,
β¨(.rβndx), βͺ π β π βͺ π β π {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(.rβπ
)π))β©}β©} β V) |
78 | 10, 77 | eqeltrd 2254 |
. . 3
β’ (π β π β V) |
79 | | baseid 12518 |
. . 3
β’ Base =
Slot (Baseβndx) |
80 | 78, 79, 12 | strndxid 12492 |
. 2
β’ (π β (πβ(Baseβndx)) = (Baseβπ)) |
81 | 12 | a1i 9 |
. . 3
β’ (π β (Baseβndx) β
β) |
82 | | basendxnplusgndx 12585 |
. . . 4
β’
(Baseβndx) β (+gβndx) |
83 | 82 | a1i 9 |
. . 3
β’ (π β (Baseβndx) β
(+gβndx)) |
84 | | basendxnmulrndx 12594 |
. . . 4
β’
(Baseβndx) β (.rβndx) |
85 | 84 | a1i 9 |
. . 3
β’ (π β (Baseβndx) β
(.rβndx)) |
86 | | fvtp1g 5726 |
. . 3
β’
((((Baseβndx) β β β§ π΅ β V) β§ ((Baseβndx) β
(+gβndx) β§ (Baseβndx) β
(.rβndx))) β ({β¨(Baseβndx), π΅β©, β¨(+gβndx),
βͺ π β π βͺ π β π {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(+gβπ
)π))β©}β©,
β¨(.rβndx), βͺ π β π βͺ π β π {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(.rβπ
)π))β©}β©}β(Baseβndx)) =
π΅) |
87 | 81, 20, 83, 85, 86 | syl22anc 1239 |
. 2
β’ (π β ({β¨(Baseβndx),
π΅β©,
β¨(+gβndx), βͺ π β π βͺ π β π {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(+gβπ
)π))β©}β©,
β¨(.rβndx), βͺ π β π βͺ π β π {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(.rβπ
)π))β©}β©}β(Baseβndx)) =
π΅) |
88 | 11, 80, 87 | 3eqtr3rd 2219 |
1
β’ (π β π΅ = (Baseβπ)) |