Step | Hyp | Ref
| Expression |
1 | | fvexd 6896 |
. . 3
β’ (π β (Baseβπ
) β V) |
2 | | ovex 7434 |
. . . . 5
β’
(β0 βm πΌ) β V |
3 | 2 | rabex 5322 |
. . . 4
β’ {β β (β0
βm πΌ)
β£ (β‘β β β) β Fin} β
V |
4 | 3 | a1i 11 |
. . 3
β’ (π β {β β (β0
βm πΌ)
β£ (β‘β β β) β Fin} β
V) |
5 | | psdcl.r |
. . . . . 6
β’ (π β π
β Mgm) |
6 | 5 | adantr 480 |
. . . . 5
β’ ((π β§ π β {β β (β0
βm πΌ)
β£ (β‘β β β) β Fin}) β π
β Mgm) |
7 | | eqid 2724 |
. . . . . . . . 9
β’ {β β (β0
βm πΌ)
β£ (β‘β β β) β Fin} = {β β (β0
βm πΌ)
β£ (β‘β β β) β Fin} |
8 | 7 | psrbagf 21780 |
. . . . . . . 8
β’ (π β {β β (β0
βm πΌ)
β£ (β‘β β β) β Fin} β π:πΌβΆβ0) |
9 | 8 | adantl 481 |
. . . . . . 7
β’ ((π β§ π β {β β (β0
βm πΌ)
β£ (β‘β β β) β Fin}) β π:πΌβΆβ0) |
10 | | psdcl.x |
. . . . . . . 8
β’ (π β π β πΌ) |
11 | 10 | adantr 480 |
. . . . . . 7
β’ ((π β§ π β {β β (β0
βm πΌ)
β£ (β‘β β β) β Fin}) β π β πΌ) |
12 | 9, 11 | ffvelcdmd 7077 |
. . . . . 6
β’ ((π β§ π β {β β (β0
βm πΌ)
β£ (β‘β β β) β Fin}) β (πβπ) β
β0) |
13 | | nn0p1nn 12508 |
. . . . . 6
β’ ((πβπ) β β0 β ((πβπ) + 1) β β) |
14 | 12, 13 | syl 17 |
. . . . 5
β’ ((π β§ π β {β β (β0
βm πΌ)
β£ (β‘β β β) β Fin}) β ((πβπ) + 1) β β) |
15 | | psdcl.s |
. . . . . . . 8
β’ π = (πΌ mPwSer π
) |
16 | | eqid 2724 |
. . . . . . . 8
β’
(Baseβπ
) =
(Baseβπ
) |
17 | | psdcl.b |
. . . . . . . 8
β’ π΅ = (Baseβπ) |
18 | | psdcl.f |
. . . . . . . 8
β’ (π β πΉ β π΅) |
19 | 15, 16, 7, 17, 18 | psrelbas 21807 |
. . . . . . 7
β’ (π β πΉ:{β β (β0
βm πΌ)
β£ (β‘β β β) β
Fin}βΆ(Baseβπ
)) |
20 | 19 | adantr 480 |
. . . . . 6
β’ ((π β§ π β {β β (β0
βm πΌ)
β£ (β‘β β β) β Fin}) β πΉ:{β β (β0
βm πΌ)
β£ (β‘β β β) β
Fin}βΆ(Baseβπ
)) |
21 | | simpr 484 |
. . . . . . 7
β’ ((π β§ π β {β β (β0
βm πΌ)
β£ (β‘β β β) β Fin}) β π β {β β (β0
βm πΌ)
β£ (β‘β β β) β
Fin}) |
22 | | psdcl.i |
. . . . . . . . 9
β’ (π β πΌ β π) |
23 | | 1nn0 12485 |
. . . . . . . . 9
β’ 1 β
β0 |
24 | 7 | snifpsrbag 21784 |
. . . . . . . . 9
β’ ((πΌ β π β§ 1 β β0) β
(π¦ β πΌ β¦ if(π¦ = π, 1, 0)) β {β β (β0
βm πΌ)
β£ (β‘β β β) β
Fin}) |
25 | 22, 23, 24 | sylancl 585 |
. . . . . . . 8
β’ (π β (π¦ β πΌ β¦ if(π¦ = π, 1, 0)) β {β β (β0
βm πΌ)
β£ (β‘β β β) β
Fin}) |
26 | 25 | adantr 480 |
. . . . . . 7
β’ ((π β§ π β {β β (β0
βm πΌ)
β£ (β‘β β β) β Fin}) β (π¦ β πΌ β¦ if(π¦ = π, 1, 0)) β {β β (β0
βm πΌ)
β£ (β‘β β β) β
Fin}) |
27 | 7 | psrbagaddcl 21790 |
. . . . . . 7
β’ ((π β {β β (β0
βm πΌ)
β£ (β‘β β β) β Fin} β§ (π¦ β πΌ β¦ if(π¦ = π, 1, 0)) β {β β (β0
βm πΌ)
β£ (β‘β β β) β Fin}) β (π βf + (π¦ β πΌ β¦ if(π¦ = π, 1, 0))) β {β β (β0
βm πΌ)
β£ (β‘β β β) β
Fin}) |
28 | 21, 26, 27 | syl2anc 583 |
. . . . . 6
β’ ((π β§ π β {β β (β0
βm πΌ)
β£ (β‘β β β) β Fin}) β (π βf + (π¦ β πΌ β¦ if(π¦ = π, 1, 0))) β {β β (β0
βm πΌ)
β£ (β‘β β β) β
Fin}) |
29 | 20, 28 | ffvelcdmd 7077 |
. . . . 5
β’ ((π β§ π β {β β (β0
βm πΌ)
β£ (β‘β β β) β Fin}) β (πΉβ(π βf + (π¦ β πΌ β¦ if(π¦ = π, 1, 0)))) β (Baseβπ
)) |
30 | | eqid 2724 |
. . . . . 6
β’
(.gβπ
) = (.gβπ
) |
31 | 16, 30 | mulgnncl 19006 |
. . . . 5
β’ ((π
β Mgm β§ ((πβπ) + 1) β β β§ (πΉβ(π βf + (π¦ β πΌ β¦ if(π¦ = π, 1, 0)))) β (Baseβπ
)) β (((πβπ) + 1)(.gβπ
)(πΉβ(π βf + (π¦ β πΌ β¦ if(π¦ = π, 1, 0))))) β (Baseβπ
)) |
32 | 6, 14, 29, 31 | syl3anc 1368 |
. . . 4
β’ ((π β§ π β {β β (β0
βm πΌ)
β£ (β‘β β β) β Fin}) β (((πβπ) + 1)(.gβπ
)(πΉβ(π βf + (π¦ β πΌ β¦ if(π¦ = π, 1, 0))))) β (Baseβπ
)) |
33 | 32 | fmpttd 7106 |
. . 3
β’ (π β (π β {β β (β0
βm πΌ)
β£ (β‘β β β) β Fin} β¦ (((πβπ) + 1)(.gβπ
)(πΉβ(π βf + (π¦ β πΌ β¦ if(π¦ = π, 1, 0)))))):{β β (β0
βm πΌ)
β£ (β‘β β β) β
Fin}βΆ(Baseβπ
)) |
34 | 1, 4, 33 | elmapdd 8831 |
. 2
β’ (π β (π β {β β (β0
βm πΌ)
β£ (β‘β β β) β Fin} β¦ (((πβπ) + 1)(.gβπ
)(πΉβ(π βf + (π¦ β πΌ β¦ if(π¦ = π, 1, 0)))))) β ((Baseβπ
) βm {β β (β0
βm πΌ)
β£ (β‘β β β) β
Fin})) |
35 | 15, 17, 7, 22, 5, 10, 18 | psdval 22010 |
. 2
β’ (π β (((πΌ mPSDer π
)βπ)βπΉ) = (π β {β β (β0
βm πΌ)
β£ (β‘β β β) β Fin} β¦ (((πβπ) + 1)(.gβπ
)(πΉβ(π βf + (π¦ β πΌ β¦ if(π¦ = π, 1, 0))))))) |
36 | 15, 16, 7, 17, 22 | psrbas 21806 |
. 2
β’ (π β π΅ = ((Baseβπ
) βm {β β (β0
βm πΌ)
β£ (β‘β β β) β
Fin})) |
37 | 34, 35, 36 | 3eltr4d 2840 |
1
β’ (π β (((πΌ mPSDer π
)βπ)βπΉ) β π΅) |