Step | Hyp | Ref
| Expression |
1 | | irngnzply1.o |
. . . . . . . 8
β’ π = (πΈ evalSub1 πΉ) |
2 | | eqid 2731 |
. . . . . . . 8
β’ (πΈ βΎs πΉ) = (πΈ βΎs πΉ) |
3 | | eqid 2731 |
. . . . . . . 8
β’
(BaseβπΈ) =
(BaseβπΈ) |
4 | | irngnzply1.1 |
. . . . . . . 8
β’ 0 =
(0gβπΈ) |
5 | | irngnzply1.e |
. . . . . . . . 9
β’ (π β πΈ β Field) |
6 | 5 | fldcrngd 20274 |
. . . . . . . 8
β’ (π β πΈ β CRing) |
7 | | irngnzply1.f |
. . . . . . . . . 10
β’ (π β πΉ β (SubDRingβπΈ)) |
8 | | issdrg 20348 |
. . . . . . . . . 10
β’ (πΉ β (SubDRingβπΈ) β (πΈ β DivRing β§ πΉ β (SubRingβπΈ) β§ (πΈ βΎs πΉ) β DivRing)) |
9 | 7, 8 | sylib 217 |
. . . . . . . . 9
β’ (π β (πΈ β DivRing β§ πΉ β (SubRingβπΈ) β§ (πΈ βΎs πΉ) β DivRing)) |
10 | 9 | simp2d 1143 |
. . . . . . . 8
β’ (π β πΉ β (SubRingβπΈ)) |
11 | 1, 2, 3, 4, 6, 10 | elirng 32572 |
. . . . . . 7
β’ (π β (π₯ β (πΈ IntgRing πΉ) β (π₯ β (BaseβπΈ) β§ βπ β (Monic1pβ(πΈ βΎs πΉ))((πβπ)βπ₯) = 0 ))) |
12 | 11 | biimpa 477 |
. . . . . 6
β’ ((π β§ π₯ β (πΈ IntgRing πΉ)) β (π₯ β (BaseβπΈ) β§ βπ β (Monic1pβ(πΈ βΎs πΉ))((πβπ)βπ₯) = 0 )) |
13 | 12 | simprd 496 |
. . . . 5
β’ ((π β§ π₯ β (πΈ IntgRing πΉ)) β βπ β (Monic1pβ(πΈ βΎs πΉ))((πβπ)βπ₯) = 0 ) |
14 | | eqid 2731 |
. . . . . . . . . 10
β’
(Poly1β(πΈ βΎs πΉ)) = (Poly1β(πΈ βΎs πΉ)) |
15 | | eqid 2731 |
. . . . . . . . . 10
β’
(Baseβ(Poly1β(πΈ βΎs πΉ))) =
(Baseβ(Poly1β(πΈ βΎs πΉ))) |
16 | | eqid 2731 |
. . . . . . . . . 10
β’
(Monic1pβ(πΈ βΎs πΉ)) = (Monic1pβ(πΈ βΎs πΉ)) |
17 | 14, 15, 16 | mon1pcl 25586 |
. . . . . . . . 9
β’ (π β
(Monic1pβ(πΈ βΎs πΉ)) β π β
(Baseβ(Poly1β(πΈ βΎs πΉ)))) |
18 | 17 | adantl 482 |
. . . . . . . 8
β’ ((π β§ π β (Monic1pβ(πΈ βΎs πΉ))) β π β
(Baseβ(Poly1β(πΈ βΎs πΉ)))) |
19 | | eqid 2731 |
. . . . . . . . . . . . 13
β’ (πΈ βs
(BaseβπΈ)) = (πΈ βs
(BaseβπΈ)) |
20 | 1, 3, 19, 2, 14 | evls1rhm 21765 |
. . . . . . . . . . . 12
β’ ((πΈ β CRing β§ πΉ β (SubRingβπΈ)) β π β ((Poly1β(πΈ βΎs πΉ)) RingHom (πΈ βs (BaseβπΈ)))) |
21 | 6, 10, 20 | syl2anc 584 |
. . . . . . . . . . 11
β’ (π β π β ((Poly1β(πΈ βΎs πΉ)) RingHom (πΈ βs (BaseβπΈ)))) |
22 | | eqid 2731 |
. . . . . . . . . . . 12
β’
(Baseβ(πΈ
βs (BaseβπΈ))) = (Baseβ(πΈ βs (BaseβπΈ))) |
23 | 15, 22 | rhmf 20210 |
. . . . . . . . . . 11
β’ (π β
((Poly1β(πΈ
βΎs πΉ))
RingHom (πΈ
βs (BaseβπΈ))) β π:(Baseβ(Poly1β(πΈ βΎs πΉ)))βΆ(Baseβ(πΈ βs
(BaseβπΈ)))) |
24 | 21, 23 | syl 17 |
. . . . . . . . . 10
β’ (π β π:(Baseβ(Poly1β(πΈ βΎs πΉ)))βΆ(Baseβ(πΈ βs
(BaseβπΈ)))) |
25 | 24 | fdmd 6712 |
. . . . . . . . 9
β’ (π β dom π =
(Baseβ(Poly1β(πΈ βΎs πΉ)))) |
26 | 25 | adantr 481 |
. . . . . . . 8
β’ ((π β§ π β (Monic1pβ(πΈ βΎs πΉ))) β dom π =
(Baseβ(Poly1β(πΈ βΎs πΉ)))) |
27 | 18, 26 | eleqtrrd 2835 |
. . . . . . 7
β’ ((π β§ π β (Monic1pβ(πΈ βΎs πΉ))) β π β dom π) |
28 | | eqid 2731 |
. . . . . . . . . 10
β’
(0gβ(Poly1β(πΈ βΎs πΉ))) =
(0gβ(Poly1β(πΈ βΎs πΉ))) |
29 | 14, 28, 16 | mon1pn0 25588 |
. . . . . . . . 9
β’ (π β
(Monic1pβ(πΈ βΎs πΉ)) β π β
(0gβ(Poly1β(πΈ βΎs πΉ)))) |
30 | 29 | adantl 482 |
. . . . . . . 8
β’ ((π β§ π β (Monic1pβ(πΈ βΎs πΉ))) β π β
(0gβ(Poly1β(πΈ βΎs πΉ)))) |
31 | | eqid 2731 |
. . . . . . . . . 10
β’
(Poly1βπΈ) = (Poly1βπΈ) |
32 | | irngnzply1.z |
. . . . . . . . . 10
β’ π =
(0gβ(Poly1βπΈ)) |
33 | 31, 2, 14, 15, 10, 32 | ressply10g 32480 |
. . . . . . . . 9
β’ (π β π =
(0gβ(Poly1β(πΈ βΎs πΉ)))) |
34 | 33 | adantr 481 |
. . . . . . . 8
β’ ((π β§ π β (Monic1pβ(πΈ βΎs πΉ))) β π =
(0gβ(Poly1β(πΈ βΎs πΉ)))) |
35 | 30, 34 | neeqtrrd 3014 |
. . . . . . 7
β’ ((π β§ π β (Monic1pβ(πΈ βΎs πΉ))) β π β π) |
36 | | eldifsn 4780 |
. . . . . . 7
β’ (π β (dom π β {π}) β (π β dom π β§ π β π)) |
37 | 27, 35, 36 | sylanbrc 583 |
. . . . . 6
β’ ((π β§ π β (Monic1pβ(πΈ βΎs πΉ))) β π β (dom π β {π})) |
38 | 37 | ad2ant2r 745 |
. . . . 5
β’ (((π β§ π₯ β (πΈ IntgRing πΉ)) β§ (π β (Monic1pβ(πΈ βΎs πΉ)) β§ ((πβπ)βπ₯) = 0 )) β π β (dom π β {π})) |
39 | 5 | ad2antrr 724 |
. . . . . . . 8
β’ (((π β§ π₯ β (πΈ IntgRing πΉ)) β§ (π β (Monic1pβ(πΈ βΎs πΉ)) β§ ((πβπ)βπ₯) = 0 )) β πΈ β Field) |
40 | | fvexd 6890 |
. . . . . . . 8
β’ (((π β§ π₯ β (πΈ IntgRing πΉ)) β§ (π β (Monic1pβ(πΈ βΎs πΉ)) β§ ((πβπ)βπ₯) = 0 )) β
(BaseβπΈ) β
V) |
41 | 24 | ad2antrr 724 |
. . . . . . . . 9
β’ (((π β§ π₯ β (πΈ IntgRing πΉ)) β§ (π β (Monic1pβ(πΈ βΎs πΉ)) β§ ((πβπ)βπ₯) = 0 )) β π:(Baseβ(Poly1β(πΈ βΎs πΉ)))βΆ(Baseβ(πΈ βs
(BaseβπΈ)))) |
42 | 17 | ad2antrl 726 |
. . . . . . . . 9
β’ (((π β§ π₯ β (πΈ IntgRing πΉ)) β§ (π β (Monic1pβ(πΈ βΎs πΉ)) β§ ((πβπ)βπ₯) = 0 )) β π β
(Baseβ(Poly1β(πΈ βΎs πΉ)))) |
43 | 41, 42 | ffvelcdmd 7069 |
. . . . . . . 8
β’ (((π β§ π₯ β (πΈ IntgRing πΉ)) β§ (π β (Monic1pβ(πΈ βΎs πΉ)) β§ ((πβπ)βπ₯) = 0 )) β (πβπ) β (Baseβ(πΈ βs (BaseβπΈ)))) |
44 | 19, 3, 22, 39, 40, 43 | pwselbas 17414 |
. . . . . . 7
β’ (((π β§ π₯ β (πΈ IntgRing πΉ)) β§ (π β (Monic1pβ(πΈ βΎs πΉ)) β§ ((πβπ)βπ₯) = 0 )) β (πβπ):(BaseβπΈ)βΆ(BaseβπΈ)) |
45 | 44 | ffnd 6702 |
. . . . . 6
β’ (((π β§ π₯ β (πΈ IntgRing πΉ)) β§ (π β (Monic1pβ(πΈ βΎs πΉ)) β§ ((πβπ)βπ₯) = 0 )) β (πβπ) Fn (BaseβπΈ)) |
46 | 12 | simpld 495 |
. . . . . . 7
β’ ((π β§ π₯ β (πΈ IntgRing πΉ)) β π₯ β (BaseβπΈ)) |
47 | 46 | adantr 481 |
. . . . . 6
β’ (((π β§ π₯ β (πΈ IntgRing πΉ)) β§ (π β (Monic1pβ(πΈ βΎs πΉ)) β§ ((πβπ)βπ₯) = 0 )) β π₯ β (BaseβπΈ)) |
48 | | simprr 771 |
. . . . . 6
β’ (((π β§ π₯ β (πΈ IntgRing πΉ)) β§ (π β (Monic1pβ(πΈ βΎs πΉ)) β§ ((πβπ)βπ₯) = 0 )) β ((πβπ)βπ₯) = 0 ) |
49 | | fniniseg 7043 |
. . . . . . 7
β’ ((πβπ) Fn (BaseβπΈ) β (π₯ β (β‘(πβπ) β { 0 }) β (π₯ β (BaseβπΈ) β§ ((πβπ)βπ₯) = 0 ))) |
50 | 49 | biimpar 478 |
. . . . . 6
β’ (((πβπ) Fn (BaseβπΈ) β§ (π₯ β (BaseβπΈ) β§ ((πβπ)βπ₯) = 0 )) β π₯ β (β‘(πβπ) β { 0 })) |
51 | 45, 47, 48, 50 | syl12anc 835 |
. . . . 5
β’ (((π β§ π₯ β (πΈ IntgRing πΉ)) β§ (π β (Monic1pβ(πΈ βΎs πΉ)) β§ ((πβπ)βπ₯) = 0 )) β π₯ β (β‘(πβπ) β { 0 })) |
52 | 13, 38, 51 | reximssdv 3171 |
. . . 4
β’ ((π β§ π₯ β (πΈ IntgRing πΉ)) β βπ β (dom π β {π})π₯ β (β‘(πβπ) β { 0 })) |
53 | | eliun 4991 |
. . . 4
β’ (π₯ β βͺ π β (dom π β {π})(β‘(πβπ) β { 0 }) β βπ β (dom π β {π})π₯ β (β‘(πβπ) β { 0 })) |
54 | 52, 53 | sylibr 233 |
. . 3
β’ ((π β§ π₯ β (πΈ IntgRing πΉ)) β π₯ β βͺ
π β (dom π β {π})(β‘(πβπ) β { 0 })) |
55 | | nfv 1917 |
. . . . 5
β’
β²ππ |
56 | | nfiu1 5021 |
. . . . . 6
β’
β²πβͺ π β (dom π β {π})(β‘(πβπ) β { 0 }) |
57 | 56 | nfcri 2889 |
. . . . 5
β’
β²π π₯ β βͺ π β (dom π β {π})(β‘(πβπ) β { 0 }) |
58 | 55, 57 | nfan 1902 |
. . . 4
β’
β²π(π β§ π₯ β βͺ
π β (dom π β {π})(β‘(πβπ) β { 0 })) |
59 | 5 | ad2antrr 724 |
. . . . . 6
β’ (((π β§ π β (dom π β {π})) β§ π₯ β (β‘(πβπ) β { 0 })) β πΈ β Field) |
60 | 7 | ad2antrr 724 |
. . . . . 6
β’ (((π β§ π β (dom π β {π})) β§ π₯ β (β‘(πβπ) β { 0 })) β πΉ β (SubDRingβπΈ)) |
61 | | eldifi 4119 |
. . . . . . . 8
β’ (π β (dom π β {π}) β π β dom π) |
62 | 61 | adantl 482 |
. . . . . . 7
β’ ((π β§ π β (dom π β {π})) β π β dom π) |
63 | 62 | adantr 481 |
. . . . . 6
β’ (((π β§ π β (dom π β {π})) β§ π₯ β (β‘(πβπ) β { 0 })) β π β dom π) |
64 | | eldifsni 4783 |
. . . . . . . 8
β’ (π β (dom π β {π}) β π β π) |
65 | 64 | adantl 482 |
. . . . . . 7
β’ ((π β§ π β (dom π β {π})) β π β π) |
66 | 65 | adantr 481 |
. . . . . 6
β’ (((π β§ π β (dom π β {π})) β§ π₯ β (β‘(πβπ) β { 0 })) β π β π) |
67 | 5 | adantr 481 |
. . . . . . . . . 10
β’ ((π β§ π β (dom π β {π})) β πΈ β Field) |
68 | | fvexd 6890 |
. . . . . . . . . 10
β’ ((π β§ π β (dom π β {π})) β (BaseβπΈ) β V) |
69 | 24 | adantr 481 |
. . . . . . . . . . 11
β’ ((π β§ π β (dom π β {π})) β π:(Baseβ(Poly1β(πΈ βΎs πΉ)))βΆ(Baseβ(πΈ βs
(BaseβπΈ)))) |
70 | 25 | adantr 481 |
. . . . . . . . . . . 12
β’ ((π β§ π β (dom π β {π})) β dom π =
(Baseβ(Poly1β(πΈ βΎs πΉ)))) |
71 | 62, 70 | eleqtrd 2834 |
. . . . . . . . . . 11
β’ ((π β§ π β (dom π β {π})) β π β
(Baseβ(Poly1β(πΈ βΎs πΉ)))) |
72 | 69, 71 | ffvelcdmd 7069 |
. . . . . . . . . 10
β’ ((π β§ π β (dom π β {π})) β (πβπ) β (Baseβ(πΈ βs (BaseβπΈ)))) |
73 | 19, 3, 22, 67, 68, 72 | pwselbas 17414 |
. . . . . . . . 9
β’ ((π β§ π β (dom π β {π})) β (πβπ):(BaseβπΈ)βΆ(BaseβπΈ)) |
74 | 73 | ffnd 6702 |
. . . . . . . 8
β’ ((π β§ π β (dom π β {π})) β (πβπ) Fn (BaseβπΈ)) |
75 | 49 | biimpa 477 |
. . . . . . . 8
β’ (((πβπ) Fn (BaseβπΈ) β§ π₯ β (β‘(πβπ) β { 0 })) β (π₯ β (BaseβπΈ) β§ ((πβπ)βπ₯) = 0 )) |
76 | 74, 75 | sylan 580 |
. . . . . . 7
β’ (((π β§ π β (dom π β {π})) β§ π₯ β (β‘(πβπ) β { 0 })) β (π₯ β (BaseβπΈ) β§ ((πβπ)βπ₯) = 0 )) |
77 | 76 | simprd 496 |
. . . . . 6
β’ (((π β§ π β (dom π β {π})) β§ π₯ β (β‘(πβπ) β { 0 })) β ((πβπ)βπ₯) = 0 ) |
78 | 76 | simpld 495 |
. . . . . 6
β’ (((π β§ π β (dom π β {π})) β§ π₯ β (β‘(πβπ) β { 0 })) β π₯ β (BaseβπΈ)) |
79 | 1, 32, 4, 59, 60, 3, 63, 66, 77, 78 | irngnzply1lem 32576 |
. . . . 5
β’ (((π β§ π β (dom π β {π})) β§ π₯ β (β‘(πβπ) β { 0 })) β π₯ β (πΈ IntgRing πΉ)) |
80 | 79 | adantllr 717 |
. . . 4
β’ ((((π β§ π₯ β βͺ
π β (dom π β {π})(β‘(πβπ) β { 0 })) β§ π β (dom π β {π})) β§ π₯ β (β‘(πβπ) β { 0 })) β π₯ β (πΈ IntgRing πΉ)) |
81 | 53 | biimpi 215 |
. . . . 5
β’ (π₯ β βͺ π β (dom π β {π})(β‘(πβπ) β { 0 }) β βπ β (dom π β {π})π₯ β (β‘(πβπ) β { 0 })) |
82 | 81 | adantl 482 |
. . . 4
β’ ((π β§ π₯ β βͺ
π β (dom π β {π})(β‘(πβπ) β { 0 })) β βπ β (dom π β {π})π₯ β (β‘(πβπ) β { 0 })) |
83 | 58, 80, 82 | r19.29af 3264 |
. . 3
β’ ((π β§ π₯ β βͺ
π β (dom π β {π})(β‘(πβπ) β { 0 })) β π₯ β (πΈ IntgRing πΉ)) |
84 | 54, 83 | impbida 799 |
. 2
β’ (π β (π₯ β (πΈ IntgRing πΉ) β π₯ β βͺ
π β (dom π β {π})(β‘(πβπ) β { 0 }))) |
85 | 84 | eqrdv 2729 |
1
β’ (π β (πΈ IntgRing πΉ) = βͺ
π β (dom π β {π})(β‘(πβπ) β { 0 })) |