Step | Hyp | Ref
| Expression |
1 | | elex 2750 |
. . . 4
β’ (πΉ β π β πΉ β V) |
2 | 1 | adantr 276 |
. . 3
β’ ((πΉ β π β§ π
β π) β πΉ β V) |
3 | | elex 2750 |
. . . 4
β’ (π
β π β π
β V) |
4 | 3 | adantl 277 |
. . 3
β’ ((πΉ β π β§ π
β π) β π
β V) |
5 | | basfn 12522 |
. . . . . 6
β’ Base Fn
V |
6 | | funfvex 5534 |
. . . . . . 7
β’ ((Fun
Base β§ π
β dom
Base) β (Baseβπ
)
β V) |
7 | 6 | funfni 5318 |
. . . . . 6
β’ ((Base Fn
V β§ π
β V) β
(Baseβπ
) β
V) |
8 | 5, 3, 7 | sylancr 414 |
. . . . 5
β’ (π
β π β (Baseβπ
) β V) |
9 | 8 | adantl 277 |
. . . 4
β’ ((πΉ β π β§ π
β π) β (Baseβπ
) β V) |
10 | | basendxnn 12520 |
. . . . . . 7
β’
(Baseβndx) β β |
11 | | rnexg 4894 |
. . . . . . . 8
β’ (πΉ β π β ran πΉ β V) |
12 | 11 | adantr 276 |
. . . . . . 7
β’ ((πΉ β π β§ π
β π) β ran πΉ β V) |
13 | | opexg 4230 |
. . . . . . 7
β’
(((Baseβndx) β β β§ ran πΉ β V) β β¨(Baseβndx),
ran πΉβ© β
V) |
14 | 10, 12, 13 | sylancr 414 |
. . . . . 6
β’ ((πΉ β π β§ π
β π) β β¨(Baseβndx), ran πΉβ© β
V) |
15 | | plusgndxnn 12572 |
. . . . . . 7
β’
(+gβndx) β β |
16 | | vex 2742 |
. . . . . . . 8
β’ π£ β V |
17 | | vex 2742 |
. . . . . . . . . . . . . . . 16
β’ π β V |
18 | 17 | a1i 9 |
. . . . . . . . . . . . . . 15
β’ ((πΉ β π β§ π
β π) β π β V) |
19 | | fvexg 5536 |
. . . . . . . . . . . . . . 15
β’ ((πΉ β π β§ π β V) β (πΉβπ) β V) |
20 | 18, 19 | syldan 282 |
. . . . . . . . . . . . . 14
β’ ((πΉ β π β§ π
β π) β (πΉβπ) β V) |
21 | | vex 2742 |
. . . . . . . . . . . . . . . 16
β’ π β V |
22 | 21 | a1i 9 |
. . . . . . . . . . . . . . 15
β’ ((πΉ β π β§ π
β π) β π β V) |
23 | | fvexg 5536 |
. . . . . . . . . . . . . . 15
β’ ((πΉ β π β§ π β V) β (πΉβπ) β V) |
24 | 22, 23 | syldan 282 |
. . . . . . . . . . . . . 14
β’ ((πΉ β π β§ π
β π) β (πΉβπ) β V) |
25 | | opexg 4230 |
. . . . . . . . . . . . . 14
β’ (((πΉβπ) β V β§ (πΉβπ) β V) β β¨(πΉβπ), (πΉβπ)β© β V) |
26 | 20, 24, 25 | syl2anc 411 |
. . . . . . . . . . . . 13
β’ ((πΉ β π β§ π
β π) β β¨(πΉβπ), (πΉβπ)β© β V) |
27 | | plusgslid 12573 |
. . . . . . . . . . . . . . . . 17
β’
(+g = Slot (+gβndx) β§
(+gβndx) β β) |
28 | 27 | slotex 12491 |
. . . . . . . . . . . . . . . 16
β’ (π
β π β (+gβπ
) β V) |
29 | 28 | adantl 277 |
. . . . . . . . . . . . . . 15
β’ ((πΉ β π β§ π
β π) β (+gβπ
) β V) |
30 | | ovexg 5911 |
. . . . . . . . . . . . . . 15
β’ ((π β V β§
(+gβπ
)
β V β§ π β V)
β (π(+gβπ
)π) β V) |
31 | 18, 29, 22, 30 | syl3anc 1238 |
. . . . . . . . . . . . . 14
β’ ((πΉ β π β§ π
β π) β (π(+gβπ
)π) β V) |
32 | | fvexg 5536 |
. . . . . . . . . . . . . 14
β’ ((πΉ β π β§ (π(+gβπ
)π) β V) β (πΉβ(π(+gβπ
)π)) β V) |
33 | 31, 32 | syldan 282 |
. . . . . . . . . . . . 13
β’ ((πΉ β π β§ π
β π) β (πΉβ(π(+gβπ
)π)) β V) |
34 | | opexg 4230 |
. . . . . . . . . . . . 13
β’
((β¨(πΉβπ), (πΉβπ)β© β V β§ (πΉβ(π(+gβπ
)π)) β V) β β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(+gβπ
)π))β© β V) |
35 | 26, 33, 34 | syl2anc 411 |
. . . . . . . . . . . 12
β’ ((πΉ β π β§ π
β π) β β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(+gβπ
)π))β© β V) |
36 | | snexg 4186 |
. . . . . . . . . . . 12
β’
(β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(+gβπ
)π))β© β V β {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(+gβπ
)π))β©} β V) |
37 | 35, 36 | syl 14 |
. . . . . . . . . . 11
β’ ((πΉ β π β§ π
β π) β {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(+gβπ
)π))β©} β V) |
38 | 37 | ralrimivw 2551 |
. . . . . . . . . 10
β’ ((πΉ β π β§ π
β π) β βπ β π£ {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(+gβπ
)π))β©} β V) |
39 | | iunexg 6122 |
. . . . . . . . . 10
β’ ((π£ β V β§ βπ β π£ {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(+gβπ
)π))β©} β V) β βͺ π β π£ {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(+gβπ
)π))β©} β V) |
40 | 16, 38, 39 | sylancr 414 |
. . . . . . . . 9
β’ ((πΉ β π β§ π
β π) β βͺ
π β π£ {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(+gβπ
)π))β©} β V) |
41 | 40 | ralrimivw 2551 |
. . . . . . . 8
β’ ((πΉ β π β§ π
β π) β βπ β π£ βͺ π β π£ {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(+gβπ
)π))β©} β V) |
42 | | iunexg 6122 |
. . . . . . . 8
β’ ((π£ β V β§ βπ β π£ βͺ π β π£ {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(+gβπ
)π))β©} β V) β βͺ π β π£ βͺ π β π£ {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(+gβπ
)π))β©} β V) |
43 | 16, 41, 42 | sylancr 414 |
. . . . . . 7
β’ ((πΉ β π β§ π
β π) β βͺ
π β π£ βͺ π β π£ {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(+gβπ
)π))β©} β V) |
44 | | opexg 4230 |
. . . . . . 7
β’
(((+gβndx) β β β§ βͺ π β π£ βͺ π β π£ {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(+gβπ
)π))β©} β V) β
β¨(+gβndx), βͺ π β π£ βͺ π β π£ {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(+gβπ
)π))β©}β© β V) |
45 | 15, 43, 44 | sylancr 414 |
. . . . . 6
β’ ((πΉ β π β§ π
β π) β β¨(+gβndx),
βͺ π β π£ βͺ π β π£ {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(+gβπ
)π))β©}β© β V) |
46 | | mulrslid 12592 |
. . . . . . . 8
β’
(.r = Slot (.rβndx) β§
(.rβndx) β β) |
47 | 46 | simpri 113 |
. . . . . . 7
β’
(.rβndx) β β |
48 | 46 | slotex 12491 |
. . . . . . . . . . . . . . . 16
β’ (π
β π β (.rβπ
) β V) |
49 | 48 | adantl 277 |
. . . . . . . . . . . . . . 15
β’ ((πΉ β π β§ π
β π) β (.rβπ
) β V) |
50 | | ovexg 5911 |
. . . . . . . . . . . . . . 15
β’ ((π β V β§
(.rβπ
)
β V β§ π β V)
β (π(.rβπ
)π) β V) |
51 | 18, 49, 22, 50 | syl3anc 1238 |
. . . . . . . . . . . . . 14
β’ ((πΉ β π β§ π
β π) β (π(.rβπ
)π) β V) |
52 | | fvexg 5536 |
. . . . . . . . . . . . . 14
β’ ((πΉ β π β§ (π(.rβπ
)π) β V) β (πΉβ(π(.rβπ
)π)) β V) |
53 | 51, 52 | syldan 282 |
. . . . . . . . . . . . 13
β’ ((πΉ β π β§ π
β π) β (πΉβ(π(.rβπ
)π)) β V) |
54 | | opexg 4230 |
. . . . . . . . . . . . 13
β’
((β¨(πΉβπ), (πΉβπ)β© β V β§ (πΉβ(π(.rβπ
)π)) β V) β β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(.rβπ
)π))β© β V) |
55 | 26, 53, 54 | syl2anc 411 |
. . . . . . . . . . . 12
β’ ((πΉ β π β§ π
β π) β β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(.rβπ
)π))β© β V) |
56 | | snexg 4186 |
. . . . . . . . . . . 12
β’
(β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(.rβπ
)π))β© β V β {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(.rβπ
)π))β©} β V) |
57 | 55, 56 | syl 14 |
. . . . . . . . . . 11
β’ ((πΉ β π β§ π
β π) β {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(.rβπ
)π))β©} β V) |
58 | 57 | ralrimivw 2551 |
. . . . . . . . . 10
β’ ((πΉ β π β§ π
β π) β βπ β π£ {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(.rβπ
)π))β©} β V) |
59 | | iunexg 6122 |
. . . . . . . . . 10
β’ ((π£ β V β§ βπ β π£ {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(.rβπ
)π))β©} β V) β βͺ π β π£ {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(.rβπ
)π))β©} β V) |
60 | 16, 58, 59 | sylancr 414 |
. . . . . . . . 9
β’ ((πΉ β π β§ π
β π) β βͺ
π β π£ {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(.rβπ
)π))β©} β V) |
61 | 60 | ralrimivw 2551 |
. . . . . . . 8
β’ ((πΉ β π β§ π
β π) β βπ β π£ βͺ π β π£ {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(.rβπ
)π))β©} β V) |
62 | | iunexg 6122 |
. . . . . . . 8
β’ ((π£ β V β§ βπ β π£ βͺ π β π£ {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(.rβπ
)π))β©} β V) β βͺ π β π£ βͺ π β π£ {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(.rβπ
)π))β©} β V) |
63 | 16, 61, 62 | sylancr 414 |
. . . . . . 7
β’ ((πΉ β π β§ π
β π) β βͺ
π β π£ βͺ π β π£ {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(.rβπ
)π))β©} β V) |
64 | | opexg 4230 |
. . . . . . 7
β’
(((.rβndx) β β β§ βͺ π β π£ βͺ π β π£ {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(.rβπ
)π))β©} β V) β
β¨(.rβndx), βͺ π β π£ βͺ π β π£ {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(.rβπ
)π))β©}β© β V) |
65 | 47, 63, 64 | sylancr 414 |
. . . . . 6
β’ ((πΉ β π β§ π
β π) β β¨(.rβndx),
βͺ π β π£ βͺ π β π£ {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(.rβπ
)π))β©}β© β V) |
66 | | tpexg 4446 |
. . . . . 6
β’
((β¨(Baseβndx), ran πΉβ© β V β§
β¨(+gβndx), βͺ π β π£ βͺ π β π£ {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(+gβπ
)π))β©}β© β V β§
β¨(.rβndx), βͺ π β π£ βͺ π β π£ {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(.rβπ
)π))β©}β© β V) β
{β¨(Baseβndx), ran πΉβ©, β¨(+gβndx),
βͺ π β π£ βͺ π β π£ {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(+gβπ
)π))β©}β©,
β¨(.rβndx), βͺ π β π£ βͺ π β π£ {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(.rβπ
)π))β©}β©} β V) |
67 | 14, 45, 65, 66 | syl3anc 1238 |
. . . . 5
β’ ((πΉ β π β§ π
β π) β {β¨(Baseβndx), ran πΉβ©,
β¨(+gβndx), βͺ π β π£ βͺ π β π£ {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(+gβπ
)π))β©}β©,
β¨(.rβndx), βͺ π β π£ βͺ π β π£ {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(.rβπ
)π))β©}β©} β V) |
68 | 67 | alrimiv 1874 |
. . . 4
β’ ((πΉ β π β§ π
β π) β βπ£{β¨(Baseβndx), ran πΉβ©,
β¨(+gβndx), βͺ π β π£ βͺ π β π£ {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(+gβπ
)π))β©}β©,
β¨(.rβndx), βͺ π β π£ βͺ π β π£ {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(.rβπ
)π))β©}β©} β V) |
69 | | csbexga 4133 |
. . . 4
β’
(((Baseβπ
)
β V β§ βπ£{β¨(Baseβndx), ran πΉβ©,
β¨(+gβndx), βͺ π β π£ βͺ π β π£ {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(+gβπ
)π))β©}β©,
β¨(.rβndx), βͺ π β π£ βͺ π β π£ {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(.rβπ
)π))β©}β©} β V) β
β¦(Baseβπ
) / π£β¦{β¨(Baseβndx), ran
πΉβ©,
β¨(+gβndx), βͺ π β π£ βͺ π β π£ {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(+gβπ
)π))β©}β©,
β¨(.rβndx), βͺ π β π£ βͺ π β π£ {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(.rβπ
)π))β©}β©} β V) |
70 | 9, 68, 69 | syl2anc 411 |
. . 3
β’ ((πΉ β π β§ π
β π) β β¦(Baseβπ
) / π£β¦{β¨(Baseβndx), ran
πΉβ©,
β¨(+gβndx), βͺ π β π£ βͺ π β π£ {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(+gβπ
)π))β©}β©,
β¨(.rβndx), βͺ π β π£ βͺ π β π£ {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(.rβπ
)π))β©}β©} β V) |
71 | | rneq 4856 |
. . . . . . 7
β’ (π = πΉ β ran π = ran πΉ) |
72 | 71 | opeq2d 3787 |
. . . . . 6
β’ (π = πΉ β β¨(Baseβndx), ran πβ© = β¨(Baseβndx),
ran πΉβ©) |
73 | | fveq1 5516 |
. . . . . . . . . . . 12
β’ (π = πΉ β (πβπ) = (πΉβπ)) |
74 | | fveq1 5516 |
. . . . . . . . . . . 12
β’ (π = πΉ β (πβπ) = (πΉβπ)) |
75 | 73, 74 | opeq12d 3788 |
. . . . . . . . . . 11
β’ (π = πΉ β β¨(πβπ), (πβπ)β© = β¨(πΉβπ), (πΉβπ)β©) |
76 | | fveq1 5516 |
. . . . . . . . . . 11
β’ (π = πΉ β (πβ(π(+gβπ)π)) = (πΉβ(π(+gβπ)π))) |
77 | 75, 76 | opeq12d 3788 |
. . . . . . . . . 10
β’ (π = πΉ β β¨β¨(πβπ), (πβπ)β©, (πβ(π(+gβπ)π))β© = β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(+gβπ)π))β©) |
78 | 77 | sneqd 3607 |
. . . . . . . . 9
β’ (π = πΉ β {β¨β¨(πβπ), (πβπ)β©, (πβ(π(+gβπ)π))β©} = {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(+gβπ)π))β©}) |
79 | 78 | iuneq2d 3913 |
. . . . . . . 8
β’ (π = πΉ β βͺ
π β π£ {β¨β¨(πβπ), (πβπ)β©, (πβ(π(+gβπ)π))β©} = βͺ π β π£ {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(+gβπ)π))β©}) |
80 | 79 | iuneq2d 3913 |
. . . . . . 7
β’ (π = πΉ β βͺ
π β π£ βͺ π β π£ {β¨β¨(πβπ), (πβπ)β©, (πβ(π(+gβπ)π))β©} = βͺ π β π£ βͺ π β π£ {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(+gβπ)π))β©}) |
81 | 80 | opeq2d 3787 |
. . . . . 6
β’ (π = πΉ β β¨(+gβndx),
βͺ π β π£ βͺ π β π£ {β¨β¨(πβπ), (πβπ)β©, (πβ(π(+gβπ)π))β©}β© =
β¨(+gβndx), βͺ π β π£ βͺ π β π£ {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(+gβπ)π))β©}β©) |
82 | | fveq1 5516 |
. . . . . . . . . . 11
β’ (π = πΉ β (πβ(π(.rβπ)π)) = (πΉβ(π(.rβπ)π))) |
83 | 75, 82 | opeq12d 3788 |
. . . . . . . . . 10
β’ (π = πΉ β β¨β¨(πβπ), (πβπ)β©, (πβ(π(.rβπ)π))β© = β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(.rβπ)π))β©) |
84 | 83 | sneqd 3607 |
. . . . . . . . 9
β’ (π = πΉ β {β¨β¨(πβπ), (πβπ)β©, (πβ(π(.rβπ)π))β©} = {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(.rβπ)π))β©}) |
85 | 84 | iuneq2d 3913 |
. . . . . . . 8
β’ (π = πΉ β βͺ
π β π£ {β¨β¨(πβπ), (πβπ)β©, (πβ(π(.rβπ)π))β©} = βͺ π β π£ {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(.rβπ)π))β©}) |
86 | 85 | iuneq2d 3913 |
. . . . . . 7
β’ (π = πΉ β βͺ
π β π£ βͺ π β π£ {β¨β¨(πβπ), (πβπ)β©, (πβ(π(.rβπ)π))β©} = βͺ π β π£ βͺ π β π£ {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(.rβπ)π))β©}) |
87 | 86 | opeq2d 3787 |
. . . . . 6
β’ (π = πΉ β β¨(.rβndx),
βͺ π β π£ βͺ π β π£ {β¨β¨(πβπ), (πβπ)β©, (πβ(π(.rβπ)π))β©}β© =
β¨(.rβndx), βͺ π β π£ βͺ π β π£ {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(.rβπ)π))β©}β©) |
88 | 72, 81, 87 | tpeq123d 3686 |
. . . . 5
β’ (π = πΉ β {β¨(Baseβndx), ran πβ©,
β¨(+gβndx), βͺ π β π£ βͺ π β π£ {β¨β¨(πβπ), (πβπ)β©, (πβ(π(+gβπ)π))β©}β©,
β¨(.rβndx), βͺ π β π£ βͺ π β π£ {β¨β¨(πβπ), (πβπ)β©, (πβ(π(.rβπ)π))β©}β©} = {β¨(Baseβndx),
ran πΉβ©,
β¨(+gβndx), βͺ π β π£ βͺ π β π£ {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(+gβπ)π))β©}β©,
β¨(.rβndx), βͺ π β π£ βͺ π β π£ {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(.rβπ)π))β©}β©}) |
89 | 88 | csbeq2dv 3085 |
. . . 4
β’ (π = πΉ β β¦(Baseβπ) / π£β¦{β¨(Baseβndx), ran
πβ©,
β¨(+gβndx), βͺ π β π£ βͺ π β π£ {β¨β¨(πβπ), (πβπ)β©, (πβ(π(+gβπ)π))β©}β©,
β¨(.rβndx), βͺ π β π£ βͺ π β π£ {β¨β¨(πβπ), (πβπ)β©, (πβ(π(.rβπ)π))β©}β©} =
β¦(Baseβπ) / π£β¦{β¨(Baseβndx), ran
πΉβ©,
β¨(+gβndx), βͺ π β π£ βͺ π β π£ {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(+gβπ)π))β©}β©,
β¨(.rβndx), βͺ π β π£ βͺ π β π£ {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(.rβπ)π))β©}β©}) |
90 | | fveq2 5517 |
. . . . . 6
β’ (π = π
β (Baseβπ) = (Baseβπ
)) |
91 | 90 | csbeq1d 3066 |
. . . . 5
β’ (π = π
β β¦(Baseβπ) / π£β¦{β¨(Baseβndx), ran
πΉβ©,
β¨(+gβndx), βͺ π β π£ βͺ π β π£ {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(+gβπ)π))β©}β©,
β¨(.rβndx), βͺ π β π£ βͺ π β π£ {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(.rβπ)π))β©}β©} =
β¦(Baseβπ
) / π£β¦{β¨(Baseβndx), ran
πΉβ©,
β¨(+gβndx), βͺ π β π£ βͺ π β π£ {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(+gβπ)π))β©}β©,
β¨(.rβndx), βͺ π β π£ βͺ π β π£ {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(.rβπ)π))β©}β©}) |
92 | | eqidd 2178 |
. . . . . . 7
β’ (π = π
β β¨(Baseβndx), ran πΉβ© = β¨(Baseβndx),
ran πΉβ©) |
93 | | fveq2 5517 |
. . . . . . . . . . . . . 14
β’ (π = π
β (+gβπ) = (+gβπ
)) |
94 | 93 | oveqd 5894 |
. . . . . . . . . . . . 13
β’ (π = π
β (π(+gβπ)π) = (π(+gβπ
)π)) |
95 | 94 | fveq2d 5521 |
. . . . . . . . . . . 12
β’ (π = π
β (πΉβ(π(+gβπ)π)) = (πΉβ(π(+gβπ
)π))) |
96 | 95 | opeq2d 3787 |
. . . . . . . . . . 11
β’ (π = π
β β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(+gβπ)π))β© = β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(+gβπ
)π))β©) |
97 | 96 | sneqd 3607 |
. . . . . . . . . 10
β’ (π = π
β {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(+gβπ)π))β©} = {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(+gβπ
)π))β©}) |
98 | 97 | iuneq2d 3913 |
. . . . . . . . 9
β’ (π = π
β βͺ
π β π£ {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(+gβπ)π))β©} = βͺ π β π£ {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(+gβπ
)π))β©}) |
99 | 98 | iuneq2d 3913 |
. . . . . . . 8
β’ (π = π
β βͺ
π β π£ βͺ π β π£ {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(+gβπ)π))β©} = βͺ π β π£ βͺ π β π£ {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(+gβπ
)π))β©}) |
100 | 99 | opeq2d 3787 |
. . . . . . 7
β’ (π = π
β β¨(+gβndx),
βͺ π β π£ βͺ π β π£ {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(+gβπ)π))β©}β© =
β¨(+gβndx), βͺ π β π£ βͺ π β π£ {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(+gβπ
)π))β©}β©) |
101 | | fveq2 5517 |
. . . . . . . . . . . . . 14
β’ (π = π
β (.rβπ) = (.rβπ
)) |
102 | 101 | oveqd 5894 |
. . . . . . . . . . . . 13
β’ (π = π
β (π(.rβπ)π) = (π(.rβπ
)π)) |
103 | 102 | fveq2d 5521 |
. . . . . . . . . . . 12
β’ (π = π
β (πΉβ(π(.rβπ)π)) = (πΉβ(π(.rβπ
)π))) |
104 | 103 | opeq2d 3787 |
. . . . . . . . . . 11
β’ (π = π
β β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(.rβπ)π))β© = β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(.rβπ
)π))β©) |
105 | 104 | sneqd 3607 |
. . . . . . . . . 10
β’ (π = π
β {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(.rβπ)π))β©} = {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(.rβπ
)π))β©}) |
106 | 105 | iuneq2d 3913 |
. . . . . . . . 9
β’ (π = π
β βͺ
π β π£ {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(.rβπ)π))β©} = βͺ π β π£ {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(.rβπ
)π))β©}) |
107 | 106 | iuneq2d 3913 |
. . . . . . . 8
β’ (π = π
β βͺ
π β π£ βͺ π β π£ {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(.rβπ)π))β©} = βͺ π β π£ βͺ π β π£ {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(.rβπ
)π))β©}) |
108 | 107 | opeq2d 3787 |
. . . . . . 7
β’ (π = π
β β¨(.rβndx),
βͺ π β π£ βͺ π β π£ {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(.rβπ)π))β©}β© =
β¨(.rβndx), βͺ π β π£ βͺ π β π£ {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(.rβπ
)π))β©}β©) |
109 | 92, 100, 108 | tpeq123d 3686 |
. . . . . 6
β’ (π = π
β {β¨(Baseβndx), ran πΉβ©,
β¨(+gβndx), βͺ π β π£ βͺ π β π£ {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(+gβπ)π))β©}β©,
β¨(.rβndx), βͺ π β π£ βͺ π β π£ {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(.rβπ)π))β©}β©} = {β¨(Baseβndx),
ran πΉβ©,
β¨(+gβndx), βͺ π β π£ βͺ π β π£ {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(+gβπ
)π))β©}β©,
β¨(.rβndx), βͺ π β π£ βͺ π β π£ {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(.rβπ
)π))β©}β©}) |
110 | 109 | csbeq2dv 3085 |
. . . . 5
β’ (π = π
β β¦(Baseβπ
) / π£β¦{β¨(Baseβndx), ran
πΉβ©,
β¨(+gβndx), βͺ π β π£ βͺ π β π£ {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(+gβπ)π))β©}β©,
β¨(.rβndx), βͺ π β π£ βͺ π β π£ {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(.rβπ)π))β©}β©} =
β¦(Baseβπ
) / π£β¦{β¨(Baseβndx), ran
πΉβ©,
β¨(+gβndx), βͺ π β π£ βͺ π β π£ {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(+gβπ
)π))β©}β©,
β¨(.rβndx), βͺ π β π£ βͺ π β π£ {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(.rβπ
)π))β©}β©}) |
111 | 91, 110 | eqtrd 2210 |
. . . 4
β’ (π = π
β β¦(Baseβπ) / π£β¦{β¨(Baseβndx), ran
πΉβ©,
β¨(+gβndx), βͺ π β π£ βͺ π β π£ {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(+gβπ)π))β©}β©,
β¨(.rβndx), βͺ π β π£ βͺ π β π£ {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(.rβπ)π))β©}β©} =
β¦(Baseβπ
) / π£β¦{β¨(Baseβndx), ran
πΉβ©,
β¨(+gβndx), βͺ π β π£ βͺ π β π£ {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(+gβπ
)π))β©}β©,
β¨(.rβndx), βͺ π β π£ βͺ π β π£ {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(.rβπ
)π))β©}β©}) |
112 | | df-iimas 12728 |
. . . 4
β’
βs = (π β V, π β V β¦
β¦(Baseβπ) / π£β¦{β¨(Baseβndx), ran
πβ©,
β¨(+gβndx), βͺ π β π£ βͺ π β π£ {β¨β¨(πβπ), (πβπ)β©, (πβ(π(+gβπ)π))β©}β©,
β¨(.rβndx), βͺ π β π£ βͺ π β π£ {β¨β¨(πβπ), (πβπ)β©, (πβ(π(.rβπ)π))β©}β©}) |
113 | 89, 111, 112 | ovmpog 6011 |
. . 3
β’ ((πΉ β V β§ π
β V β§
β¦(Baseβπ
) / π£β¦{β¨(Baseβndx), ran
πΉβ©,
β¨(+gβndx), βͺ π β π£ βͺ π β π£ {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(+gβπ
)π))β©}β©,
β¨(.rβndx), βͺ π β π£ βͺ π β π£ {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(.rβπ
)π))β©}β©} β V) β (πΉ βs
π
) =
β¦(Baseβπ
) / π£β¦{β¨(Baseβndx), ran
πΉβ©,
β¨(+gβndx), βͺ π β π£ βͺ π β π£ {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(+gβπ
)π))β©}β©,
β¨(.rβndx), βͺ π β π£ βͺ π β π£ {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(.rβπ
)π))β©}β©}) |
114 | 2, 4, 70, 113 | syl3anc 1238 |
. 2
β’ ((πΉ β π β§ π
β π) β (πΉ βs π
) =
β¦(Baseβπ
) / π£β¦{β¨(Baseβndx), ran
πΉβ©,
β¨(+gβndx), βͺ π β π£ βͺ π β π£ {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(+gβπ
)π))β©}β©,
β¨(.rβndx), βͺ π β π£ βͺ π β π£ {β¨β¨(πΉβπ), (πΉβπ)β©, (πΉβ(π(.rβπ
)π))β©}β©}) |
115 | 114, 70 | eqeltrd 2254 |
1
β’ ((πΉ β π β§ π
β π) β (πΉ βs π
) β V) |