Step | Hyp | Ref
| Expression |
1 | | rhmsubcrngc.c |
. . . 4
β’ πΆ = (RngCatβπ) |
2 | | rhmsubcrngc.u |
. . . 4
β’ (π β π β π) |
3 | | eqidd 2734 |
. . . 4
β’ (π β (π β© Rng) = (π β© Rng)) |
4 | | eqidd 2734 |
. . . 4
β’ (π β ( RngHomo βΎ ((π β© Rng) Γ (π β© Rng))) = ( RngHomo
βΎ ((π β© Rng)
Γ (π β©
Rng)))) |
5 | | eqidd 2734 |
. . . 4
β’ (π β
(compβ(ExtStrCatβπ)) = (compβ(ExtStrCatβπ))) |
6 | 1, 2, 3, 4, 5 | dfrngc2 46824 |
. . 3
β’ (π β πΆ = {β¨(Baseβndx), (π β© Rng)β©, β¨(Hom
βndx), ( RngHomo βΎ ((π β© Rng) Γ (π β© Rng)))β©, β¨(compβndx),
(compβ(ExtStrCatβπ))β©}) |
7 | | inex1g 5319 |
. . . 4
β’ (π β π β (π β© Rng) β V) |
8 | 2, 7 | syl 17 |
. . 3
β’ (π β (π β© Rng) β V) |
9 | | rnghmfn 46674 |
. . . . 5
β’ RngHomo
Fn (Rng Γ Rng) |
10 | | fnfun 6647 |
. . . . 5
β’ ( RngHomo
Fn (Rng Γ Rng) β Fun RngHomo ) |
11 | 9, 10 | mp1i 13 |
. . . 4
β’ (π β Fun RngHomo
) |
12 | | sqxpexg 7739 |
. . . . 5
β’ ((π β© Rng) β V β
((π β© Rng) Γ
(π β© Rng)) β
V) |
13 | 8, 12 | syl 17 |
. . . 4
β’ (π β ((π β© Rng) Γ (π β© Rng)) β V) |
14 | | resfunexg 7214 |
. . . 4
β’ ((Fun
RngHomo β§ ((π β©
Rng) Γ (π β© Rng))
β V) β ( RngHomo βΎ ((π β© Rng) Γ (π β© Rng))) β V) |
15 | 11, 13, 14 | syl2anc 585 |
. . 3
β’ (π β ( RngHomo βΎ ((π β© Rng) Γ (π β© Rng))) β
V) |
16 | | fvexd 6904 |
. . 3
β’ (π β
(compβ(ExtStrCatβπ)) β V) |
17 | | rhmsubcrngc.h |
. . . 4
β’ (π β π» = ( RingHom βΎ (π΅ Γ π΅))) |
18 | | rhmfn 46706 |
. . . . . 6
β’ RingHom
Fn (Ring Γ Ring) |
19 | | fnfun 6647 |
. . . . . 6
β’ ( RingHom
Fn (Ring Γ Ring) β Fun RingHom ) |
20 | 18, 19 | mp1i 13 |
. . . . 5
β’ (π β Fun RingHom
) |
21 | | rhmsubcrngc.b |
. . . . . . . 8
β’ (π β π΅ = (Ring β© π)) |
22 | | incom 4201 |
. . . . . . . 8
β’ (Ring
β© π) = (π β© Ring) |
23 | 21, 22 | eqtrdi 2789 |
. . . . . . 7
β’ (π β π΅ = (π β© Ring)) |
24 | | inex1g 5319 |
. . . . . . . 8
β’ (π β π β (π β© Ring) β V) |
25 | 2, 24 | syl 17 |
. . . . . . 7
β’ (π β (π β© Ring) β V) |
26 | 23, 25 | eqeltrd 2834 |
. . . . . 6
β’ (π β π΅ β V) |
27 | | sqxpexg 7739 |
. . . . . 6
β’ (π΅ β V β (π΅ Γ π΅) β V) |
28 | 26, 27 | syl 17 |
. . . . 5
β’ (π β (π΅ Γ π΅) β V) |
29 | | resfunexg 7214 |
. . . . 5
β’ ((Fun
RingHom β§ (π΅ Γ
π΅) β V) β (
RingHom βΎ (π΅ Γ
π΅)) β
V) |
30 | 20, 28, 29 | syl2anc 585 |
. . . 4
β’ (π β ( RingHom βΎ (π΅ Γ π΅)) β V) |
31 | 17, 30 | eqeltrd 2834 |
. . 3
β’ (π β π» β V) |
32 | | ringrng 46642 |
. . . . . . 7
β’ (π β Ring β π β Rng) |
33 | 32 | a1i 11 |
. . . . . 6
β’ (π β (π β Ring β π β Rng)) |
34 | 33 | ssrdv 3988 |
. . . . 5
β’ (π β Ring β
Rng) |
35 | 34 | ssrind 4235 |
. . . 4
β’ (π β (Ring β© π) β (Rng β© π)) |
36 | | incom 4201 |
. . . . 5
β’ (π β© Rng) = (Rng β© π) |
37 | 36 | a1i 11 |
. . . 4
β’ (π β (π β© Rng) = (Rng β© π)) |
38 | 35, 21, 37 | 3sstr4d 4029 |
. . 3
β’ (π β π΅ β (π β© Rng)) |
39 | 6, 8, 15, 16, 31, 38 | estrres 18088 |
. 2
β’ (π β ((πΆ βΎs π΅) sSet β¨(Hom βndx), π»β©) =
{β¨(Baseβndx), π΅β©, β¨(Hom βndx), π»β©, β¨(compβndx),
(compβ(ExtStrCatβπ))β©}) |
40 | | eqid 2733 |
. . 3
β’ (πΆ βΎcat π») = (πΆ βΎcat π») |
41 | | fvexd 6904 |
. . . 4
β’ (π β (RngCatβπ) β V) |
42 | 1, 41 | eqeltrid 2838 |
. . 3
β’ (π β πΆ β V) |
43 | 23, 17 | rhmresfn 46861 |
. . 3
β’ (π β π» Fn (π΅ Γ π΅)) |
44 | 40, 42, 26, 43 | rescval2 17772 |
. 2
β’ (π β (πΆ βΎcat π») = ((πΆ βΎs π΅) sSet β¨(Hom βndx), π»β©)) |
45 | | eqid 2733 |
. . 3
β’
(RingCatβπ) =
(RingCatβπ) |
46 | 45, 2, 23, 17, 5 | dfringc2 46870 |
. 2
β’ (π β (RingCatβπ) = {β¨(Baseβndx),
π΅β©, β¨(Hom
βndx), π»β©,
β¨(compβndx), (compβ(ExtStrCatβπ))β©}) |
47 | 39, 44, 46 | 3eqtr4d 2783 |
1
β’ (π β (πΆ βΎcat π») = (RingCatβπ)) |