Step | Hyp | Ref
| Expression |
1 | | rngcrescrhmALTV.r |
. . . . . 6
β’ (π β π
= (Ring β© π)) |
2 | 1 | eleq2d 2819 |
. . . . 5
β’ (π β (π₯ β π
β π₯ β (Ring β© π))) |
3 | | elinel1 4195 |
. . . . 5
β’ (π₯ β (Ring β© π) β π₯ β Ring) |
4 | 2, 3 | syl6bi 252 |
. . . 4
β’ (π β (π₯ β π
β π₯ β Ring)) |
5 | 4 | imp 407 |
. . 3
β’ ((π β§ π₯ β π
) β π₯ β Ring) |
6 | | eqid 2732 |
. . . 4
β’
(Baseβπ₯) =
(Baseβπ₯) |
7 | 6 | idrhm 20267 |
. . 3
β’ (π₯ β Ring β ( I βΎ
(Baseβπ₯)) β
(π₯ RingHom π₯)) |
8 | 5, 7 | syl 17 |
. 2
β’ ((π β§ π₯ β π
) β ( I βΎ (Baseβπ₯)) β (π₯ RingHom π₯)) |
9 | | rngcrescrhmALTV.u |
. . . . 5
β’ (π β π β π) |
10 | 9 | adantr 481 |
. . . 4
β’ ((π β§ π₯ β π
) β π β π) |
11 | | eqid 2732 |
. . . . 5
β’
(RngCatALTVβπ)
= (RngCatALTVβπ) |
12 | | eqid 2732 |
. . . . 5
β’
(Baseβ(RngCatALTVβπ)) = (Baseβ(RngCatALTVβπ)) |
13 | 11, 12 | rngccatidALTV 46877 |
. . . 4
β’ (π β π β ((RngCatALTVβπ) β Cat β§
(Idβ(RngCatALTVβπ)) = (π¦ β (Baseβ(RngCatALTVβπ)) β¦ ( I βΎ
(Baseβπ¦))))) |
14 | | simpr 485 |
. . . 4
β’
(((RngCatALTVβπ) β Cat β§
(Idβ(RngCatALTVβπ)) = (π¦ β (Baseβ(RngCatALTVβπ)) β¦ ( I βΎ
(Baseβπ¦)))) β
(Idβ(RngCatALTVβπ)) = (π¦ β (Baseβ(RngCatALTVβπ)) β¦ ( I βΎ
(Baseβπ¦)))) |
15 | 10, 13, 14 | 3syl 18 |
. . 3
β’ ((π β§ π₯ β π
) β (Idβ(RngCatALTVβπ)) = (π¦ β (Baseβ(RngCatALTVβπ)) β¦ ( I βΎ
(Baseβπ¦)))) |
16 | | fveq2 6891 |
. . . . 5
β’ (π¦ = π₯ β (Baseβπ¦) = (Baseβπ₯)) |
17 | 16 | reseq2d 5981 |
. . . 4
β’ (π¦ = π₯ β ( I βΎ (Baseβπ¦)) = ( I βΎ
(Baseβπ₯))) |
18 | 17 | adantl 482 |
. . 3
β’ (((π β§ π₯ β π
) β§ π¦ = π₯) β ( I βΎ (Baseβπ¦)) = ( I βΎ
(Baseβπ₯))) |
19 | | incom 4201 |
. . . . . . . 8
β’ (Ring
β© π) = (π β© Ring) |
20 | 1, 19 | eqtrdi 2788 |
. . . . . . 7
β’ (π β π
= (π β© Ring)) |
21 | 20 | eleq2d 2819 |
. . . . . 6
β’ (π β (π₯ β π
β π₯ β (π β© Ring))) |
22 | | ringrng 46645 |
. . . . . . . 8
β’ (π₯ β Ring β π₯ β Rng) |
23 | 22 | anim2i 617 |
. . . . . . 7
β’ ((π₯ β π β§ π₯ β Ring) β (π₯ β π β§ π₯ β Rng)) |
24 | | elin 3964 |
. . . . . . 7
β’ (π₯ β (π β© Ring) β (π₯ β π β§ π₯ β Ring)) |
25 | | elin 3964 |
. . . . . . 7
β’ (π₯ β (π β© Rng) β (π₯ β π β§ π₯ β Rng)) |
26 | 23, 24, 25 | 3imtr4i 291 |
. . . . . 6
β’ (π₯ β (π β© Ring) β π₯ β (π β© Rng)) |
27 | 21, 26 | syl6bi 252 |
. . . . 5
β’ (π β (π₯ β π
β π₯ β (π β© Rng))) |
28 | 27 | imp 407 |
. . . 4
β’ ((π β§ π₯ β π
) β π₯ β (π β© Rng)) |
29 | | rngcrescrhmALTV.c |
. . . . . 6
β’ πΆ = (RngCatALTVβπ) |
30 | 29 | eqcomi 2741 |
. . . . . . 7
β’
(RngCatALTVβπ)
= πΆ |
31 | 30 | fveq2i 6894 |
. . . . . 6
β’
(Baseβ(RngCatALTVβπ)) = (BaseβπΆ) |
32 | 29, 31, 9 | rngcbasALTV 46871 |
. . . . 5
β’ (π β
(Baseβ(RngCatALTVβπ)) = (π β© Rng)) |
33 | 32 | adantr 481 |
. . . 4
β’ ((π β§ π₯ β π
) β (Baseβ(RngCatALTVβπ)) = (π β© Rng)) |
34 | 28, 33 | eleqtrrd 2836 |
. . 3
β’ ((π β§ π₯ β π
) β π₯ β (Baseβ(RngCatALTVβπ))) |
35 | | fvexd 6906 |
. . . 4
β’ ((π β§ π₯ β π
) β (Baseβπ₯) β V) |
36 | 35 | resiexd 7217 |
. . 3
β’ ((π β§ π₯ β π
) β ( I βΎ (Baseβπ₯)) β V) |
37 | 15, 18, 34, 36 | fvmptd 7005 |
. 2
β’ ((π β§ π₯ β π
) β ((Idβ(RngCatALTVβπ))βπ₯) = ( I βΎ (Baseβπ₯))) |
38 | | rngcrescrhmALTV.h |
. . . 4
β’ π» = ( RingHom βΎ (π
Γ π
)) |
39 | 9, 29, 1, 38 | rhmsubcALTVlem2 46993 |
. . 3
β’ ((π β§ π₯ β π
β§ π₯ β π
) β (π₯π»π₯) = (π₯ RingHom π₯)) |
40 | 39 | 3anidm23 1421 |
. 2
β’ ((π β§ π₯ β π
) β (π₯π»π₯) = (π₯ RingHom π₯)) |
41 | 8, 37, 40 | 3eltr4d 2848 |
1
β’ ((π β§ π₯ β π
) β ((Idβ(RngCatALTVβπ))βπ₯) β (π₯π»π₯)) |