MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  idomrootle Structured version   Visualization version   GIF version

Theorem idomrootle 26101
Description: No element of an integral domain can have more than 𝑁 𝑁-th roots. (Contributed by Stefan O'Rear, 11-Sep-2015.)
Hypotheses
Ref Expression
idomrootle.b 𝐵 = (Base‘𝑅)
idomrootle.e = (.g‘(mulGrp‘𝑅))
Assertion
Ref Expression
idomrootle ((𝑅 ∈ IDomn ∧ 𝑋𝐵𝑁 ∈ ℕ) → (♯‘{𝑦𝐵 ∣ (𝑁 𝑦) = 𝑋}) ≤ 𝑁)
Distinct variable groups:   𝑦,𝐵   𝑦,𝑁   𝑦,𝑅   𝑦,𝑋
Allowed substitution hint:   (𝑦)

Proof of Theorem idomrootle
StepHypRef Expression
1 eqid 2728 . . 3 (Poly1𝑅) = (Poly1𝑅)
2 eqid 2728 . . 3 (Base‘(Poly1𝑅)) = (Base‘(Poly1𝑅))
3 eqid 2728 . . 3 ( deg1𝑅) = ( deg1𝑅)
4 eqid 2728 . . 3 (eval1𝑅) = (eval1𝑅)
5 eqid 2728 . . 3 (0g𝑅) = (0g𝑅)
6 eqid 2728 . . 3 (0g‘(Poly1𝑅)) = (0g‘(Poly1𝑅))
7 simp1 1134 . . 3 ((𝑅 ∈ IDomn ∧ 𝑋𝐵𝑁 ∈ ℕ) → 𝑅 ∈ IDomn)
8 isidom 21248 . . . . . . . . 9 (𝑅 ∈ IDomn ↔ (𝑅 ∈ CRing ∧ 𝑅 ∈ Domn))
98simplbi 497 . . . . . . . 8 (𝑅 ∈ IDomn → 𝑅 ∈ CRing)
107, 9syl 17 . . . . . . 7 ((𝑅 ∈ IDomn ∧ 𝑋𝐵𝑁 ∈ ℕ) → 𝑅 ∈ CRing)
11 crngring 20179 . . . . . . 7 (𝑅 ∈ CRing → 𝑅 ∈ Ring)
1210, 11syl 17 . . . . . 6 ((𝑅 ∈ IDomn ∧ 𝑋𝐵𝑁 ∈ ℕ) → 𝑅 ∈ Ring)
131ply1ring 22160 . . . . . 6 (𝑅 ∈ Ring → (Poly1𝑅) ∈ Ring)
1412, 13syl 17 . . . . 5 ((𝑅 ∈ IDomn ∧ 𝑋𝐵𝑁 ∈ ℕ) → (Poly1𝑅) ∈ Ring)
15 ringgrp 20172 . . . . 5 ((Poly1𝑅) ∈ Ring → (Poly1𝑅) ∈ Grp)
1614, 15syl 17 . . . 4 ((𝑅 ∈ IDomn ∧ 𝑋𝐵𝑁 ∈ ℕ) → (Poly1𝑅) ∈ Grp)
17 eqid 2728 . . . . . . . 8 (mulGrp‘(Poly1𝑅)) = (mulGrp‘(Poly1𝑅))
1817ringmgp 20173 . . . . . . 7 ((Poly1𝑅) ∈ Ring → (mulGrp‘(Poly1𝑅)) ∈ Mnd)
1914, 18syl 17 . . . . . 6 ((𝑅 ∈ IDomn ∧ 𝑋𝐵𝑁 ∈ ℕ) → (mulGrp‘(Poly1𝑅)) ∈ Mnd)
20 mndmgm 18695 . . . . . 6 ((mulGrp‘(Poly1𝑅)) ∈ Mnd → (mulGrp‘(Poly1𝑅)) ∈ Mgm)
2119, 20syl 17 . . . . 5 ((𝑅 ∈ IDomn ∧ 𝑋𝐵𝑁 ∈ ℕ) → (mulGrp‘(Poly1𝑅)) ∈ Mgm)
22 simp3 1136 . . . . 5 ((𝑅 ∈ IDomn ∧ 𝑋𝐵𝑁 ∈ ℕ) → 𝑁 ∈ ℕ)
23 eqid 2728 . . . . . . 7 (var1𝑅) = (var1𝑅)
2423, 1, 2vr1cl 22130 . . . . . 6 (𝑅 ∈ Ring → (var1𝑅) ∈ (Base‘(Poly1𝑅)))
2512, 24syl 17 . . . . 5 ((𝑅 ∈ IDomn ∧ 𝑋𝐵𝑁 ∈ ℕ) → (var1𝑅) ∈ (Base‘(Poly1𝑅)))
2617, 2mgpbas 20074 . . . . . 6 (Base‘(Poly1𝑅)) = (Base‘(mulGrp‘(Poly1𝑅)))
27 eqid 2728 . . . . . 6 (.g‘(mulGrp‘(Poly1𝑅))) = (.g‘(mulGrp‘(Poly1𝑅)))
2826, 27mulgnncl 19038 . . . . 5 (((mulGrp‘(Poly1𝑅)) ∈ Mgm ∧ 𝑁 ∈ ℕ ∧ (var1𝑅) ∈ (Base‘(Poly1𝑅))) → (𝑁(.g‘(mulGrp‘(Poly1𝑅)))(var1𝑅)) ∈ (Base‘(Poly1𝑅)))
2921, 22, 25, 28syl3anc 1369 . . . 4 ((𝑅 ∈ IDomn ∧ 𝑋𝐵𝑁 ∈ ℕ) → (𝑁(.g‘(mulGrp‘(Poly1𝑅)))(var1𝑅)) ∈ (Base‘(Poly1𝑅)))
30 eqid 2728 . . . . . . 7 (algSc‘(Poly1𝑅)) = (algSc‘(Poly1𝑅))
31 idomrootle.b . . . . . . 7 𝐵 = (Base‘𝑅)
321, 30, 31, 2ply1sclf 22198 . . . . . 6 (𝑅 ∈ Ring → (algSc‘(Poly1𝑅)):𝐵⟶(Base‘(Poly1𝑅)))
3312, 32syl 17 . . . . 5 ((𝑅 ∈ IDomn ∧ 𝑋𝐵𝑁 ∈ ℕ) → (algSc‘(Poly1𝑅)):𝐵⟶(Base‘(Poly1𝑅)))
34 simp2 1135 . . . . 5 ((𝑅 ∈ IDomn ∧ 𝑋𝐵𝑁 ∈ ℕ) → 𝑋𝐵)
3533, 34ffvelcdmd 7090 . . . 4 ((𝑅 ∈ IDomn ∧ 𝑋𝐵𝑁 ∈ ℕ) → ((algSc‘(Poly1𝑅))‘𝑋) ∈ (Base‘(Poly1𝑅)))
36 eqid 2728 . . . . 5 (-g‘(Poly1𝑅)) = (-g‘(Poly1𝑅))
372, 36grpsubcl 18970 . . . 4 (((Poly1𝑅) ∈ Grp ∧ (𝑁(.g‘(mulGrp‘(Poly1𝑅)))(var1𝑅)) ∈ (Base‘(Poly1𝑅)) ∧ ((algSc‘(Poly1𝑅))‘𝑋) ∈ (Base‘(Poly1𝑅))) → ((𝑁(.g‘(mulGrp‘(Poly1𝑅)))(var1𝑅))(-g‘(Poly1𝑅))((algSc‘(Poly1𝑅))‘𝑋)) ∈ (Base‘(Poly1𝑅)))
3816, 29, 35, 37syl3anc 1369 . . 3 ((𝑅 ∈ IDomn ∧ 𝑋𝐵𝑁 ∈ ℕ) → ((𝑁(.g‘(mulGrp‘(Poly1𝑅)))(var1𝑅))(-g‘(Poly1𝑅))((algSc‘(Poly1𝑅))‘𝑋)) ∈ (Base‘(Poly1𝑅)))
393, 1, 2deg1xrcl 26012 . . . . . . . . . 10 (((algSc‘(Poly1𝑅))‘𝑋) ∈ (Base‘(Poly1𝑅)) → (( deg1𝑅)‘((algSc‘(Poly1𝑅))‘𝑋)) ∈ ℝ*)
4035, 39syl 17 . . . . . . . . 9 ((𝑅 ∈ IDomn ∧ 𝑋𝐵𝑁 ∈ ℕ) → (( deg1𝑅)‘((algSc‘(Poly1𝑅))‘𝑋)) ∈ ℝ*)
41 0xr 11286 . . . . . . . . . 10 0 ∈ ℝ*
4241a1i 11 . . . . . . . . 9 ((𝑅 ∈ IDomn ∧ 𝑋𝐵𝑁 ∈ ℕ) → 0 ∈ ℝ*)
43 nnre 12244 . . . . . . . . . . 11 (𝑁 ∈ ℕ → 𝑁 ∈ ℝ)
4443rexrd 11289 . . . . . . . . . 10 (𝑁 ∈ ℕ → 𝑁 ∈ ℝ*)
45443ad2ant3 1133 . . . . . . . . 9 ((𝑅 ∈ IDomn ∧ 𝑋𝐵𝑁 ∈ ℕ) → 𝑁 ∈ ℝ*)
463, 1, 31, 30deg1sclle 26042 . . . . . . . . . 10 ((𝑅 ∈ Ring ∧ 𝑋𝐵) → (( deg1𝑅)‘((algSc‘(Poly1𝑅))‘𝑋)) ≤ 0)
4712, 34, 46syl2anc 583 . . . . . . . . 9 ((𝑅 ∈ IDomn ∧ 𝑋𝐵𝑁 ∈ ℕ) → (( deg1𝑅)‘((algSc‘(Poly1𝑅))‘𝑋)) ≤ 0)
48 nngt0 12268 . . . . . . . . . 10 (𝑁 ∈ ℕ → 0 < 𝑁)
49483ad2ant3 1133 . . . . . . . . 9 ((𝑅 ∈ IDomn ∧ 𝑋𝐵𝑁 ∈ ℕ) → 0 < 𝑁)
5040, 42, 45, 47, 49xrlelttrd 13166 . . . . . . . 8 ((𝑅 ∈ IDomn ∧ 𝑋𝐵𝑁 ∈ ℕ) → (( deg1𝑅)‘((algSc‘(Poly1𝑅))‘𝑋)) < 𝑁)
518simprbi 496 . . . . . . . . . . 11 (𝑅 ∈ IDomn → 𝑅 ∈ Domn)
52 domnnzr 21236 . . . . . . . . . . 11 (𝑅 ∈ Domn → 𝑅 ∈ NzRing)
5351, 52syl 17 . . . . . . . . . 10 (𝑅 ∈ IDomn → 𝑅 ∈ NzRing)
547, 53syl 17 . . . . . . . . 9 ((𝑅 ∈ IDomn ∧ 𝑋𝐵𝑁 ∈ ℕ) → 𝑅 ∈ NzRing)
55 nnnn0 12504 . . . . . . . . . 10 (𝑁 ∈ ℕ → 𝑁 ∈ ℕ0)
56553ad2ant3 1133 . . . . . . . . 9 ((𝑅 ∈ IDomn ∧ 𝑋𝐵𝑁 ∈ ℕ) → 𝑁 ∈ ℕ0)
573, 1, 23, 17, 27deg1pw 26050 . . . . . . . . 9 ((𝑅 ∈ NzRing ∧ 𝑁 ∈ ℕ0) → (( deg1𝑅)‘(𝑁(.g‘(mulGrp‘(Poly1𝑅)))(var1𝑅))) = 𝑁)
5854, 56, 57syl2anc 583 . . . . . . . 8 ((𝑅 ∈ IDomn ∧ 𝑋𝐵𝑁 ∈ ℕ) → (( deg1𝑅)‘(𝑁(.g‘(mulGrp‘(Poly1𝑅)))(var1𝑅))) = 𝑁)
5950, 58breqtrrd 5171 . . . . . . 7 ((𝑅 ∈ IDomn ∧ 𝑋𝐵𝑁 ∈ ℕ) → (( deg1𝑅)‘((algSc‘(Poly1𝑅))‘𝑋)) < (( deg1𝑅)‘(𝑁(.g‘(mulGrp‘(Poly1𝑅)))(var1𝑅))))
601, 3, 12, 2, 36, 29, 35, 59deg1sub 26038 . . . . . 6 ((𝑅 ∈ IDomn ∧ 𝑋𝐵𝑁 ∈ ℕ) → (( deg1𝑅)‘((𝑁(.g‘(mulGrp‘(Poly1𝑅)))(var1𝑅))(-g‘(Poly1𝑅))((algSc‘(Poly1𝑅))‘𝑋))) = (( deg1𝑅)‘(𝑁(.g‘(mulGrp‘(Poly1𝑅)))(var1𝑅))))
6160, 58eqtrd 2768 . . . . 5 ((𝑅 ∈ IDomn ∧ 𝑋𝐵𝑁 ∈ ℕ) → (( deg1𝑅)‘((𝑁(.g‘(mulGrp‘(Poly1𝑅)))(var1𝑅))(-g‘(Poly1𝑅))((algSc‘(Poly1𝑅))‘𝑋))) = 𝑁)
6261, 56eqeltrd 2829 . . . 4 ((𝑅 ∈ IDomn ∧ 𝑋𝐵𝑁 ∈ ℕ) → (( deg1𝑅)‘((𝑁(.g‘(mulGrp‘(Poly1𝑅)))(var1𝑅))(-g‘(Poly1𝑅))((algSc‘(Poly1𝑅))‘𝑋))) ∈ ℕ0)
633, 1, 6, 2deg1nn0clb 26020 . . . . 5 ((𝑅 ∈ Ring ∧ ((𝑁(.g‘(mulGrp‘(Poly1𝑅)))(var1𝑅))(-g‘(Poly1𝑅))((algSc‘(Poly1𝑅))‘𝑋)) ∈ (Base‘(Poly1𝑅))) → (((𝑁(.g‘(mulGrp‘(Poly1𝑅)))(var1𝑅))(-g‘(Poly1𝑅))((algSc‘(Poly1𝑅))‘𝑋)) ≠ (0g‘(Poly1𝑅)) ↔ (( deg1𝑅)‘((𝑁(.g‘(mulGrp‘(Poly1𝑅)))(var1𝑅))(-g‘(Poly1𝑅))((algSc‘(Poly1𝑅))‘𝑋))) ∈ ℕ0))
6412, 38, 63syl2anc 583 . . . 4 ((𝑅 ∈ IDomn ∧ 𝑋𝐵𝑁 ∈ ℕ) → (((𝑁(.g‘(mulGrp‘(Poly1𝑅)))(var1𝑅))(-g‘(Poly1𝑅))((algSc‘(Poly1𝑅))‘𝑋)) ≠ (0g‘(Poly1𝑅)) ↔ (( deg1𝑅)‘((𝑁(.g‘(mulGrp‘(Poly1𝑅)))(var1𝑅))(-g‘(Poly1𝑅))((algSc‘(Poly1𝑅))‘𝑋))) ∈ ℕ0))
6562, 64mpbird 257 . . 3 ((𝑅 ∈ IDomn ∧ 𝑋𝐵𝑁 ∈ ℕ) → ((𝑁(.g‘(mulGrp‘(Poly1𝑅)))(var1𝑅))(-g‘(Poly1𝑅))((algSc‘(Poly1𝑅))‘𝑋)) ≠ (0g‘(Poly1𝑅)))
661, 2, 3, 4, 5, 6, 7, 38, 65fta1g 26098 . 2 ((𝑅 ∈ IDomn ∧ 𝑋𝐵𝑁 ∈ ℕ) → (♯‘(((eval1𝑅)‘((𝑁(.g‘(mulGrp‘(Poly1𝑅)))(var1𝑅))(-g‘(Poly1𝑅))((algSc‘(Poly1𝑅))‘𝑋))) “ {(0g𝑅)})) ≤ (( deg1𝑅)‘((𝑁(.g‘(mulGrp‘(Poly1𝑅)))(var1𝑅))(-g‘(Poly1𝑅))((algSc‘(Poly1𝑅))‘𝑋))))
67 eqid 2728 . . . . . . 7 (𝑅s 𝐵) = (𝑅s 𝐵)
68 eqid 2728 . . . . . . 7 (Base‘(𝑅s 𝐵)) = (Base‘(𝑅s 𝐵))
6931fvexi 6906 . . . . . . . 8 𝐵 ∈ V
7069a1i 11 . . . . . . 7 ((𝑅 ∈ IDomn ∧ 𝑋𝐵𝑁 ∈ ℕ) → 𝐵 ∈ V)
714, 1, 67, 31evl1rhm 22245 . . . . . . . . . 10 (𝑅 ∈ CRing → (eval1𝑅) ∈ ((Poly1𝑅) RingHom (𝑅s 𝐵)))
7210, 71syl 17 . . . . . . . . 9 ((𝑅 ∈ IDomn ∧ 𝑋𝐵𝑁 ∈ ℕ) → (eval1𝑅) ∈ ((Poly1𝑅) RingHom (𝑅s 𝐵)))
732, 68rhmf 20418 . . . . . . . . 9 ((eval1𝑅) ∈ ((Poly1𝑅) RingHom (𝑅s 𝐵)) → (eval1𝑅):(Base‘(Poly1𝑅))⟶(Base‘(𝑅s 𝐵)))
7472, 73syl 17 . . . . . . . 8 ((𝑅 ∈ IDomn ∧ 𝑋𝐵𝑁 ∈ ℕ) → (eval1𝑅):(Base‘(Poly1𝑅))⟶(Base‘(𝑅s 𝐵)))
7574, 38ffvelcdmd 7090 . . . . . . 7 ((𝑅 ∈ IDomn ∧ 𝑋𝐵𝑁 ∈ ℕ) → ((eval1𝑅)‘((𝑁(.g‘(mulGrp‘(Poly1𝑅)))(var1𝑅))(-g‘(Poly1𝑅))((algSc‘(Poly1𝑅))‘𝑋))) ∈ (Base‘(𝑅s 𝐵)))
7667, 31, 68, 7, 70, 75pwselbas 17465 . . . . . 6 ((𝑅 ∈ IDomn ∧ 𝑋𝐵𝑁 ∈ ℕ) → ((eval1𝑅)‘((𝑁(.g‘(mulGrp‘(Poly1𝑅)))(var1𝑅))(-g‘(Poly1𝑅))((algSc‘(Poly1𝑅))‘𝑋))):𝐵𝐵)
7776ffnd 6718 . . . . 5 ((𝑅 ∈ IDomn ∧ 𝑋𝐵𝑁 ∈ ℕ) → ((eval1𝑅)‘((𝑁(.g‘(mulGrp‘(Poly1𝑅)))(var1𝑅))(-g‘(Poly1𝑅))((algSc‘(Poly1𝑅))‘𝑋))) Fn 𝐵)
78 fniniseg2 7066 . . . . 5 (((eval1𝑅)‘((𝑁(.g‘(mulGrp‘(Poly1𝑅)))(var1𝑅))(-g‘(Poly1𝑅))((algSc‘(Poly1𝑅))‘𝑋))) Fn 𝐵 → (((eval1𝑅)‘((𝑁(.g‘(mulGrp‘(Poly1𝑅)))(var1𝑅))(-g‘(Poly1𝑅))((algSc‘(Poly1𝑅))‘𝑋))) “ {(0g𝑅)}) = {𝑦𝐵 ∣ (((eval1𝑅)‘((𝑁(.g‘(mulGrp‘(Poly1𝑅)))(var1𝑅))(-g‘(Poly1𝑅))((algSc‘(Poly1𝑅))‘𝑋)))‘𝑦) = (0g𝑅)})
7977, 78syl 17 . . . 4 ((𝑅 ∈ IDomn ∧ 𝑋𝐵𝑁 ∈ ℕ) → (((eval1𝑅)‘((𝑁(.g‘(mulGrp‘(Poly1𝑅)))(var1𝑅))(-g‘(Poly1𝑅))((algSc‘(Poly1𝑅))‘𝑋))) “ {(0g𝑅)}) = {𝑦𝐵 ∣ (((eval1𝑅)‘((𝑁(.g‘(mulGrp‘(Poly1𝑅)))(var1𝑅))(-g‘(Poly1𝑅))((algSc‘(Poly1𝑅))‘𝑋)))‘𝑦) = (0g𝑅)})
8010adantr 480 . . . . . . . . 9 (((𝑅 ∈ IDomn ∧ 𝑋𝐵𝑁 ∈ ℕ) ∧ 𝑦𝐵) → 𝑅 ∈ CRing)
81 simpr 484 . . . . . . . . 9 (((𝑅 ∈ IDomn ∧ 𝑋𝐵𝑁 ∈ ℕ) ∧ 𝑦𝐵) → 𝑦𝐵)
824, 23, 31, 1, 2, 80, 81evl1vard 22250 . . . . . . . . . 10 (((𝑅 ∈ IDomn ∧ 𝑋𝐵𝑁 ∈ ℕ) ∧ 𝑦𝐵) → ((var1𝑅) ∈ (Base‘(Poly1𝑅)) ∧ (((eval1𝑅)‘(var1𝑅))‘𝑦) = 𝑦))
83 idomrootle.e . . . . . . . . . 10 = (.g‘(mulGrp‘𝑅))
84 simpl3 1191 . . . . . . . . . . 11 (((𝑅 ∈ IDomn ∧ 𝑋𝐵𝑁 ∈ ℕ) ∧ 𝑦𝐵) → 𝑁 ∈ ℕ)
8584, 55syl 17 . . . . . . . . . 10 (((𝑅 ∈ IDomn ∧ 𝑋𝐵𝑁 ∈ ℕ) ∧ 𝑦𝐵) → 𝑁 ∈ ℕ0)
864, 1, 31, 2, 80, 81, 82, 27, 83, 85evl1expd 22258 . . . . . . . . 9 (((𝑅 ∈ IDomn ∧ 𝑋𝐵𝑁 ∈ ℕ) ∧ 𝑦𝐵) → ((𝑁(.g‘(mulGrp‘(Poly1𝑅)))(var1𝑅)) ∈ (Base‘(Poly1𝑅)) ∧ (((eval1𝑅)‘(𝑁(.g‘(mulGrp‘(Poly1𝑅)))(var1𝑅)))‘𝑦) = (𝑁 𝑦)))
87 simpl2 1190 . . . . . . . . . 10 (((𝑅 ∈ IDomn ∧ 𝑋𝐵𝑁 ∈ ℕ) ∧ 𝑦𝐵) → 𝑋𝐵)
884, 1, 31, 30, 2, 80, 87, 81evl1scad 22248 . . . . . . . . 9 (((𝑅 ∈ IDomn ∧ 𝑋𝐵𝑁 ∈ ℕ) ∧ 𝑦𝐵) → (((algSc‘(Poly1𝑅))‘𝑋) ∈ (Base‘(Poly1𝑅)) ∧ (((eval1𝑅)‘((algSc‘(Poly1𝑅))‘𝑋))‘𝑦) = 𝑋))
89 eqid 2728 . . . . . . . . 9 (-g𝑅) = (-g𝑅)
904, 1, 31, 2, 80, 81, 86, 88, 36, 89evl1subd 22255 . . . . . . . 8 (((𝑅 ∈ IDomn ∧ 𝑋𝐵𝑁 ∈ ℕ) ∧ 𝑦𝐵) → (((𝑁(.g‘(mulGrp‘(Poly1𝑅)))(var1𝑅))(-g‘(Poly1𝑅))((algSc‘(Poly1𝑅))‘𝑋)) ∈ (Base‘(Poly1𝑅)) ∧ (((eval1𝑅)‘((𝑁(.g‘(mulGrp‘(Poly1𝑅)))(var1𝑅))(-g‘(Poly1𝑅))((algSc‘(Poly1𝑅))‘𝑋)))‘𝑦) = ((𝑁 𝑦)(-g𝑅)𝑋)))
9190simprd 495 . . . . . . 7 (((𝑅 ∈ IDomn ∧ 𝑋𝐵𝑁 ∈ ℕ) ∧ 𝑦𝐵) → (((eval1𝑅)‘((𝑁(.g‘(mulGrp‘(Poly1𝑅)))(var1𝑅))(-g‘(Poly1𝑅))((algSc‘(Poly1𝑅))‘𝑋)))‘𝑦) = ((𝑁 𝑦)(-g𝑅)𝑋))
9291eqeq1d 2730 . . . . . 6 (((𝑅 ∈ IDomn ∧ 𝑋𝐵𝑁 ∈ ℕ) ∧ 𝑦𝐵) → ((((eval1𝑅)‘((𝑁(.g‘(mulGrp‘(Poly1𝑅)))(var1𝑅))(-g‘(Poly1𝑅))((algSc‘(Poly1𝑅))‘𝑋)))‘𝑦) = (0g𝑅) ↔ ((𝑁 𝑦)(-g𝑅)𝑋) = (0g𝑅)))
93 ringgrp 20172 . . . . . . . . 9 (𝑅 ∈ Ring → 𝑅 ∈ Grp)
9412, 93syl 17 . . . . . . . 8 ((𝑅 ∈ IDomn ∧ 𝑋𝐵𝑁 ∈ ℕ) → 𝑅 ∈ Grp)
9594adantr 480 . . . . . . 7 (((𝑅 ∈ IDomn ∧ 𝑋𝐵𝑁 ∈ ℕ) ∧ 𝑦𝐵) → 𝑅 ∈ Grp)
96 eqid 2728 . . . . . . . . . . . 12 (mulGrp‘𝑅) = (mulGrp‘𝑅)
9796ringmgp 20173 . . . . . . . . . . 11 (𝑅 ∈ Ring → (mulGrp‘𝑅) ∈ Mnd)
9812, 97syl 17 . . . . . . . . . 10 ((𝑅 ∈ IDomn ∧ 𝑋𝐵𝑁 ∈ ℕ) → (mulGrp‘𝑅) ∈ Mnd)
9998adantr 480 . . . . . . . . 9 (((𝑅 ∈ IDomn ∧ 𝑋𝐵𝑁 ∈ ℕ) ∧ 𝑦𝐵) → (mulGrp‘𝑅) ∈ Mnd)
100 mndmgm 18695 . . . . . . . . 9 ((mulGrp‘𝑅) ∈ Mnd → (mulGrp‘𝑅) ∈ Mgm)
10199, 100syl 17 . . . . . . . 8 (((𝑅 ∈ IDomn ∧ 𝑋𝐵𝑁 ∈ ℕ) ∧ 𝑦𝐵) → (mulGrp‘𝑅) ∈ Mgm)
10296, 31mgpbas 20074 . . . . . . . . 9 𝐵 = (Base‘(mulGrp‘𝑅))
103102, 83mulgnncl 19038 . . . . . . . 8 (((mulGrp‘𝑅) ∈ Mgm ∧ 𝑁 ∈ ℕ ∧ 𝑦𝐵) → (𝑁 𝑦) ∈ 𝐵)
104101, 84, 81, 103syl3anc 1369 . . . . . . 7 (((𝑅 ∈ IDomn ∧ 𝑋𝐵𝑁 ∈ ℕ) ∧ 𝑦𝐵) → (𝑁 𝑦) ∈ 𝐵)
10531, 5, 89grpsubeq0 18976 . . . . . . 7 ((𝑅 ∈ Grp ∧ (𝑁 𝑦) ∈ 𝐵𝑋𝐵) → (((𝑁 𝑦)(-g𝑅)𝑋) = (0g𝑅) ↔ (𝑁 𝑦) = 𝑋))
10695, 104, 87, 105syl3anc 1369 . . . . . 6 (((𝑅 ∈ IDomn ∧ 𝑋𝐵𝑁 ∈ ℕ) ∧ 𝑦𝐵) → (((𝑁 𝑦)(-g𝑅)𝑋) = (0g𝑅) ↔ (𝑁 𝑦) = 𝑋))
10792, 106bitrd 279 . . . . 5 (((𝑅 ∈ IDomn ∧ 𝑋𝐵𝑁 ∈ ℕ) ∧ 𝑦𝐵) → ((((eval1𝑅)‘((𝑁(.g‘(mulGrp‘(Poly1𝑅)))(var1𝑅))(-g‘(Poly1𝑅))((algSc‘(Poly1𝑅))‘𝑋)))‘𝑦) = (0g𝑅) ↔ (𝑁 𝑦) = 𝑋))
108107rabbidva 3435 . . . 4 ((𝑅 ∈ IDomn ∧ 𝑋𝐵𝑁 ∈ ℕ) → {𝑦𝐵 ∣ (((eval1𝑅)‘((𝑁(.g‘(mulGrp‘(Poly1𝑅)))(var1𝑅))(-g‘(Poly1𝑅))((algSc‘(Poly1𝑅))‘𝑋)))‘𝑦) = (0g𝑅)} = {𝑦𝐵 ∣ (𝑁 𝑦) = 𝑋})
10979, 108eqtrd 2768 . . 3 ((𝑅 ∈ IDomn ∧ 𝑋𝐵𝑁 ∈ ℕ) → (((eval1𝑅)‘((𝑁(.g‘(mulGrp‘(Poly1𝑅)))(var1𝑅))(-g‘(Poly1𝑅))((algSc‘(Poly1𝑅))‘𝑋))) “ {(0g𝑅)}) = {𝑦𝐵 ∣ (𝑁 𝑦) = 𝑋})
110109fveq2d 6896 . 2 ((𝑅 ∈ IDomn ∧ 𝑋𝐵𝑁 ∈ ℕ) → (♯‘(((eval1𝑅)‘((𝑁(.g‘(mulGrp‘(Poly1𝑅)))(var1𝑅))(-g‘(Poly1𝑅))((algSc‘(Poly1𝑅))‘𝑋))) “ {(0g𝑅)})) = (♯‘{𝑦𝐵 ∣ (𝑁 𝑦) = 𝑋}))
11166, 110, 613brtr3d 5174 1 ((𝑅 ∈ IDomn ∧ 𝑋𝐵𝑁 ∈ ℕ) → (♯‘{𝑦𝐵 ∣ (𝑁 𝑦) = 𝑋}) ≤ 𝑁)
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 205  wa 395  w3a 1085   = wceq 1534  wcel 2099  wne 2936  {crab 3428  Vcvv 3470  {csn 4625   class class class wbr 5143  ccnv 5672  cima 5676   Fn wfn 6538  wf 6539  cfv 6543  (class class class)co 7415  0cc0 11133  *cxr 11272   < clt 11273  cle 11274  cn 12237  0cn0 12497  chash 14316  Basecbs 17174  0gc0g 17415  s cpws 17422  Mgmcmgm 18592  Mndcmnd 18688  Grpcgrp 18884  -gcsg 18886  .gcmg 19017  mulGrpcmgp 20068  Ringcrg 20167  CRingccrg 20168   RingHom crh 20402  NzRingcnzr 20445  Domncdomn 21221  IDomncidom 21222  algSccascl 21780  var1cv1 22089  Poly1cpl1 22090  eval1ce1 22227   deg1 cdg1 25981
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1790  ax-4 1804  ax-5 1906  ax-6 1964  ax-7 2004  ax-8 2101  ax-9 2109  ax-10 2130  ax-11 2147  ax-12 2167  ax-ext 2699  ax-rep 5280  ax-sep 5294  ax-nul 5301  ax-pow 5360  ax-pr 5424  ax-un 7735  ax-cnex 11189  ax-resscn 11190  ax-1cn 11191  ax-icn 11192  ax-addcl 11193  ax-addrcl 11194  ax-mulcl 11195  ax-mulrcl 11196  ax-mulcom 11197  ax-addass 11198  ax-mulass 11199  ax-distr 11200  ax-i2m1 11201  ax-1ne0 11202  ax-1rid 11203  ax-rnegex 11204  ax-rrecex 11205  ax-cnre 11206  ax-pre-lttri 11207  ax-pre-lttrn 11208  ax-pre-ltadd 11209  ax-pre-mulgt0 11210  ax-pre-sup 11211  ax-addf 11212
This theorem depends on definitions:  df-bi 206  df-an 396  df-or 847  df-3or 1086  df-3an 1087  df-tru 1537  df-fal 1547  df-ex 1775  df-nf 1779  df-sb 2061  df-mo 2530  df-eu 2559  df-clab 2706  df-cleq 2720  df-clel 2806  df-nfc 2881  df-ne 2937  df-nel 3043  df-ral 3058  df-rex 3067  df-rmo 3372  df-reu 3373  df-rab 3429  df-v 3472  df-sbc 3776  df-csb 3891  df-dif 3948  df-un 3950  df-in 3952  df-ss 3962  df-pss 3964  df-nul 4320  df-if 4526  df-pw 4601  df-sn 4626  df-pr 4628  df-tp 4630  df-op 4632  df-uni 4905  df-int 4946  df-iun 4994  df-iin 4995  df-br 5144  df-opab 5206  df-mpt 5227  df-tr 5261  df-id 5571  df-eprel 5577  df-po 5585  df-so 5586  df-fr 5628  df-se 5629  df-we 5630  df-xp 5679  df-rel 5680  df-cnv 5681  df-co 5682  df-dm 5683  df-rn 5684  df-res 5685  df-ima 5686  df-pred 6300  df-ord 6367  df-on 6368  df-lim 6369  df-suc 6370  df-iota 6495  df-fun 6545  df-fn 6546  df-f 6547  df-f1 6548  df-fo 6549  df-f1o 6550  df-fv 6551  df-isom 6552  df-riota 7371  df-ov 7418  df-oprab 7419  df-mpo 7420  df-of 7680  df-ofr 7681  df-om 7866  df-1st 7988  df-2nd 7989  df-supp 8161  df-tpos 8226  df-frecs 8281  df-wrecs 8312  df-recs 8386  df-rdg 8425  df-1o 8481  df-oadd 8485  df-er 8719  df-map 8841  df-pm 8842  df-ixp 8911  df-en 8959  df-dom 8960  df-sdom 8961  df-fin 8962  df-fsupp 9381  df-sup 9460  df-oi 9528  df-dju 9919  df-card 9957  df-pnf 11275  df-mnf 11276  df-xr 11277  df-ltxr 11278  df-le 11279  df-sub 11471  df-neg 11472  df-nn 12238  df-2 12300  df-3 12301  df-4 12302  df-5 12303  df-6 12304  df-7 12305  df-8 12306  df-9 12307  df-n0 12498  df-xnn0 12570  df-z 12584  df-dec 12703  df-uz 12848  df-fz 13512  df-fzo 13655  df-seq 13994  df-hash 14317  df-struct 17110  df-sets 17127  df-slot 17145  df-ndx 17157  df-base 17175  df-ress 17204  df-plusg 17240  df-mulr 17241  df-starv 17242  df-sca 17243  df-vsca 17244  df-ip 17245  df-tset 17246  df-ple 17247  df-ds 17249  df-unif 17250  df-hom 17251  df-cco 17252  df-0g 17417  df-gsum 17418  df-prds 17423  df-pws 17425  df-mre 17560  df-mrc 17561  df-acs 17563  df-mgm 18594  df-sgrp 18673  df-mnd 18689  df-mhm 18734  df-submnd 18735  df-grp 18887  df-minusg 18888  df-sbg 18889  df-mulg 19018  df-subg 19072  df-ghm 19162  df-cntz 19262  df-cmn 19731  df-abl 19732  df-mgp 20069  df-rng 20087  df-ur 20116  df-srg 20121  df-ring 20169  df-cring 20170  df-oppr 20267  df-dvdsr 20290  df-unit 20291  df-invr 20321  df-rhm 20405  df-nzr 20446  df-subrng 20477  df-subrg 20502  df-lmod 20739  df-lss 20810  df-lsp 20850  df-rlreg 21224  df-domn 21225  df-idom 21226  df-cnfld 21274  df-assa 21781  df-asp 21782  df-ascl 21783  df-psr 21836  df-mvr 21837  df-mpl 21838  df-opsr 21840  df-evls 22012  df-evl 22013  df-psr1 22093  df-vr1 22094  df-ply1 22095  df-coe1 22096  df-evl1 22229  df-mdeg 25982  df-deg1 25983  df-mon1 26060  df-uc1p 26061  df-q1p 26062  df-r1p 26063
This theorem is referenced by:  idomodle  42610
  Copyright terms: Public domain W3C validator