idomrootle - Metamath Proof Explorer

	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**
Step	Hyp	Ref	Expression
1		eqid 2728	. . 3 ⊢ (Poly₁‘𝑅) = (Poly₁‘𝑅)
2		eqid 2728	. . 3 ⊢ (Base‘(Poly₁‘𝑅)) = (Base‘(Poly₁‘𝑅))
3		eqid 2728	. . 3 ⊢ ( deg₁ ‘𝑅) = ( deg₁ ‘𝑅)
4		eqid 2728	. . 3 ⊢ (eval₁‘𝑅) = (eval₁‘𝑅)
5		eqid 2728	. . 3 ⊢ (0_g‘𝑅) = (0_g‘𝑅)
6		eqid 2728	. . 3 ⊢ (0_g‘(Poly₁‘𝑅)) = (0_g‘(Poly₁‘𝑅))
7		simp1 1134	. . 3 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → 𝑅 ∈ IDomn)
8		isidom 21248	. . . . . . . . 9 ⊢ (𝑅 ∈ IDomn ↔ (𝑅 ∈ CRing ∧ 𝑅 ∈ Domn))
9	8	simplbi 497	. . . . . . . 8 ⊢ (𝑅 ∈ IDomn → 𝑅 ∈ CRing)
10	7, 9	syl 17	. . . . . . 7 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → 𝑅 ∈ CRing)
11		crngring 20179	. . . . . . 7 ⊢ (𝑅 ∈ CRing → 𝑅 ∈ Ring)
12	10, 11	syl 17	. . . . . 6 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → 𝑅 ∈ Ring)
13	1	ply1ring 22160	. . . . . 6 ⊢ (𝑅 ∈ Ring → (Poly₁‘𝑅) ∈ Ring)
14	12, 13	syl 17	. . . . 5 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → (Poly₁‘𝑅) ∈ Ring)
15		ringgrp 20172	. . . . 5 ⊢ ((Poly₁‘𝑅) ∈ Ring → (Poly₁‘𝑅) ∈ Grp)
16	14, 15	syl 17	. . . 4 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → (Poly₁‘𝑅) ∈ Grp)
17		eqid 2728	. . . . . . . 8 ⊢ (mulGrp‘(Poly₁‘𝑅)) = (mulGrp‘(Poly₁‘𝑅))
18	17	ringmgp 20173	. . . . . . 7 ⊢ ((Poly₁‘𝑅) ∈ Ring → (mulGrp‘(Poly₁‘𝑅)) ∈ Mnd)
19	14, 18	syl 17	. . . . . 6 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → (mulGrp‘(Poly₁‘𝑅)) ∈ Mnd)
20		mndmgm 18695	. . . . . 6 ⊢ ((mulGrp‘(Poly₁‘𝑅)) ∈ Mnd → (mulGrp‘(Poly₁‘𝑅)) ∈ Mgm)
21	19, 20	syl 17	. . . . 5 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → (mulGrp‘(Poly₁‘𝑅)) ∈ Mgm)
22		simp3 1136	. . . . 5 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → 𝑁 ∈ ℕ)
23		eqid 2728	. . . . . . 7 ⊢ (var₁‘𝑅) = (var₁‘𝑅)
24	23, 1, 2	vr1cl 22130	. . . . . 6 ⊢ (𝑅 ∈ Ring → (var₁‘𝑅) ∈ (Base‘(Poly₁‘𝑅)))
25	12, 24	syl 17	. . . . 5 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → (var₁‘𝑅) ∈ (Base‘(Poly₁‘𝑅)))
26	17, 2	mgpbas 20074	. . . . . 6 ⊢ (Base‘(Poly₁‘𝑅)) = (Base‘(mulGrp‘(Poly₁‘𝑅)))
27		eqid 2728	. . . . . 6 ⊢ (._g‘(mulGrp‘(Poly₁‘𝑅))) = (._g‘(mulGrp‘(Poly₁‘𝑅)))
28	26, 27	mulgnncl 19038	. . . . 5 ⊢ (((mulGrp‘(Poly₁‘𝑅)) ∈ Mgm ∧ 𝑁 ∈ ℕ ∧ (var₁‘𝑅) ∈ (Base‘(Poly₁‘𝑅))) → (𝑁(._g‘(mulGrp‘(Poly₁‘𝑅)))(var₁‘𝑅)) ∈ (Base‘(Poly₁‘𝑅)))
29	21, 22, 25, 28	syl3anc 1369	. . . 4 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → (𝑁(._g‘(mulGrp‘(Poly₁‘𝑅)))(var₁‘𝑅)) ∈ (Base‘(Poly₁‘𝑅)))
30		eqid 2728	. . . . . . 7 ⊢ (algSc‘(Poly₁‘𝑅)) = (algSc‘(Poly₁‘𝑅))
31		idomrootle.b	. . . . . . 7 ⊢ 𝐵 = (Base‘𝑅)
32	1, 30, 31, 2	ply1sclf 22198	. . . . . 6 ⊢ (𝑅 ∈ Ring → (algSc‘(Poly₁‘𝑅)):𝐵⟶(Base‘(Poly₁‘𝑅)))
33	12, 32	syl 17	. . . . 5 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → (algSc‘(Poly₁‘𝑅)):𝐵⟶(Base‘(Poly₁‘𝑅)))
34		simp2 1135	. . . . 5 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → 𝑋 ∈ 𝐵)
35	33, 34	ffvelcdmd 7090	. . . 4 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → ((algSc‘(Poly₁‘𝑅))‘𝑋) ∈ (Base‘(Poly₁‘𝑅)))
36		eqid 2728	. . . . 5 ⊢ (-_g‘(Poly₁‘𝑅)) = (-_g‘(Poly₁‘𝑅))
37	2, 36	grpsubcl 18970	. . . 4 ⊢ (((Poly₁‘𝑅) ∈ Grp ∧ (𝑁(._g‘(mulGrp‘(Poly₁‘𝑅)))(var₁‘𝑅)) ∈ (Base‘(Poly₁‘𝑅)) ∧ ((algSc‘(Poly₁‘𝑅))‘𝑋) ∈ (Base‘(Poly₁‘𝑅))) → ((𝑁(._g‘(mulGrp‘(Poly₁‘𝑅)))(var₁‘𝑅))(-_g‘(Poly₁‘𝑅))((algSc‘(Poly₁‘𝑅))‘𝑋)) ∈ (Base‘(Poly₁‘𝑅)))
38	16, 29, 35, 37	syl3anc 1369	. . 3 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → ((𝑁(._g‘(mulGrp‘(Poly₁‘𝑅)))(var₁‘𝑅))(-_g‘(Poly₁‘𝑅))((algSc‘(Poly₁‘𝑅))‘𝑋)) ∈ (Base‘(Poly₁‘𝑅)))
39	3, 1, 2	deg1xrcl 26012	. . . . . . . . . 10 ⊢ (((algSc‘(Poly₁‘𝑅))‘𝑋) ∈ (Base‘(Poly₁‘𝑅)) → (( deg₁ ‘𝑅)‘((algSc‘(Poly₁‘𝑅))‘𝑋)) ∈ ℝ^*)
40	35, 39	syl 17	. . . . . . . . 9 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → (( deg₁ ‘𝑅)‘((algSc‘(Poly₁‘𝑅))‘𝑋)) ∈ ℝ^*)
41		0xr 11286	. . . . . . . . . 10 ⊢ 0 ∈ ℝ^*
42	41	a1i 11	. . . . . . . . 9 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → 0 ∈ ℝ^*)
43		nnre 12244	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ ℝ)
44	43	rexrd 11289	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ ℝ^*)
45	44	3ad2ant3 1133	. . . . . . . . 9 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → 𝑁 ∈ ℝ^*)
46	3, 1, 31, 30	deg1sclle 26042	. . . . . . . . . 10 ⊢ ((𝑅 ∈ Ring ∧ 𝑋 ∈ 𝐵) → (( deg₁ ‘𝑅)‘((algSc‘(Poly₁‘𝑅))‘𝑋)) ≤ 0)
47	12, 34, 46	syl2anc 583	. . . . . . . . 9 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → (( deg₁ ‘𝑅)‘((algSc‘(Poly₁‘𝑅))‘𝑋)) ≤ 0)
48		nngt0 12268	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → 0 < 𝑁)
49	48	3ad2ant3 1133	. . . . . . . . 9 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → 0 < 𝑁)
50	40, 42, 45, 47, 49	xrlelttrd 13166	. . . . . . . 8 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → (( deg₁ ‘𝑅)‘((algSc‘(Poly₁‘𝑅))‘𝑋)) < 𝑁)
51	8	simprbi 496	. . . . . . . . . . 11 ⊢ (𝑅 ∈ IDomn → 𝑅 ∈ Domn)
52		domnnzr 21236	. . . . . . . . . . 11 ⊢ (𝑅 ∈ Domn → 𝑅 ∈ NzRing)
53	51, 52	syl 17	. . . . . . . . . 10 ⊢ (𝑅 ∈ IDomn → 𝑅 ∈ NzRing)
54	7, 53	syl 17	. . . . . . . . 9 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → 𝑅 ∈ NzRing)
55		nnnn0 12504	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ ℕ₀)
56	55	3ad2ant3 1133	. . . . . . . . 9 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → 𝑁 ∈ ℕ₀)
57	3, 1, 23, 17, 27	deg1pw 26050	. . . . . . . . 9 ⊢ ((𝑅 ∈ NzRing ∧ 𝑁 ∈ ℕ₀) → (( deg₁ ‘𝑅)‘(𝑁(._g‘(mulGrp‘(Poly₁‘𝑅)))(var₁‘𝑅))) = 𝑁)
58	54, 56, 57	syl2anc 583	. . . . . . . 8 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → (( deg₁ ‘𝑅)‘(𝑁(._g‘(mulGrp‘(Poly₁‘𝑅)))(var₁‘𝑅))) = 𝑁)
59	50, 58	breqtrrd 5171	. . . . . . 7 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → (( deg₁ ‘𝑅)‘((algSc‘(Poly₁‘𝑅))‘𝑋)) < (( deg₁ ‘𝑅)‘(𝑁(._g‘(mulGrp‘(Poly₁‘𝑅)))(var₁‘𝑅))))
60	1, 3, 12, 2, 36, 29, 35, 59	deg1sub 26038	. . . . . 6 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → (( deg₁ ‘𝑅)‘((𝑁(._g‘(mulGrp‘(Poly₁‘𝑅)))(var₁‘𝑅))(-_g‘(Poly₁‘𝑅))((algSc‘(Poly₁‘𝑅))‘𝑋))) = (( deg₁ ‘𝑅)‘(𝑁(._g‘(mulGrp‘(Poly₁‘𝑅)))(var₁‘𝑅))))
61	60, 58	eqtrd 2768	. . . . 5 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → (( deg₁ ‘𝑅)‘((𝑁(._g‘(mulGrp‘(Poly₁‘𝑅)))(var₁‘𝑅))(-_g‘(Poly₁‘𝑅))((algSc‘(Poly₁‘𝑅))‘𝑋))) = 𝑁)
62	61, 56	eqeltrd 2829	. . . 4 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → (( deg₁ ‘𝑅)‘((𝑁(._g‘(mulGrp‘(Poly₁‘𝑅)))(var₁‘𝑅))(-_g‘(Poly₁‘𝑅))((algSc‘(Poly₁‘𝑅))‘𝑋))) ∈ ℕ₀)
63	3, 1, 6, 2	deg1nn0clb 26020	. . . . 5 ⊢ ((𝑅 ∈ Ring ∧ ((𝑁(._g‘(mulGrp‘(Poly₁‘𝑅)))(var₁‘𝑅))(-_g‘(Poly₁‘𝑅))((algSc‘(Poly₁‘𝑅))‘𝑋)) ∈ (Base‘(Poly₁‘𝑅))) → (((𝑁(._g‘(mulGrp‘(Poly₁‘𝑅)))(var₁‘𝑅))(-_g‘(Poly₁‘𝑅))((algSc‘(Poly₁‘𝑅))‘𝑋)) ≠ (0_g‘(Poly₁‘𝑅)) ↔ (( deg₁ ‘𝑅)‘((𝑁(._g‘(mulGrp‘(Poly₁‘𝑅)))(var₁‘𝑅))(-_g‘(Poly₁‘𝑅))((algSc‘(Poly₁‘𝑅))‘𝑋))) ∈ ℕ₀))
64	12, 38, 63	syl2anc 583	. . . 4 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → (((𝑁(._g‘(mulGrp‘(Poly₁‘𝑅)))(var₁‘𝑅))(-_g‘(Poly₁‘𝑅))((algSc‘(Poly₁‘𝑅))‘𝑋)) ≠ (0_g‘(Poly₁‘𝑅)) ↔ (( deg₁ ‘𝑅)‘((𝑁(._g‘(mulGrp‘(Poly₁‘𝑅)))(var₁‘𝑅))(-_g‘(Poly₁‘𝑅))((algSc‘(Poly₁‘𝑅))‘𝑋))) ∈ ℕ₀))
65	62, 64	mpbird 257	. . 3 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → ((𝑁(._g‘(mulGrp‘(Poly₁‘𝑅)))(var₁‘𝑅))(-_g‘(Poly₁‘𝑅))((algSc‘(Poly₁‘𝑅))‘𝑋)) ≠ (0_g‘(Poly₁‘𝑅)))
66	1, 2, 3, 4, 5, 6, 7, 38, 65	fta1g 26098	. 2 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → (♯‘(^◡((eval₁‘𝑅)‘((𝑁(._g‘(mulGrp‘(Poly₁‘𝑅)))(var₁‘𝑅))(-_g‘(Poly₁‘𝑅))((algSc‘(Poly₁‘𝑅))‘𝑋))) “ {(0_g‘𝑅)})) ≤ (( deg₁ ‘𝑅)‘((𝑁(._g‘(mulGrp‘(Poly₁‘𝑅)))(var₁‘𝑅))(-_g‘(Poly₁‘𝑅))((algSc‘(Poly₁‘𝑅))‘𝑋))))
67		eqid 2728	. . . . . . 7 ⊢ (𝑅 ↑_s 𝐵) = (𝑅 ↑_s 𝐵)
68		eqid 2728	. . . . . . 7 ⊢ (Base‘(𝑅 ↑_s 𝐵)) = (Base‘(𝑅 ↑_s 𝐵))
69	31	fvexi 6906	. . . . . . . 8 ⊢ 𝐵 ∈ V
70	69	a1i 11	. . . . . . 7 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → 𝐵 ∈ V)
71	4, 1, 67, 31	evl1rhm 22245	. . . . . . . . . 10 ⊢ (𝑅 ∈ CRing → (eval₁‘𝑅) ∈ ((Poly₁‘𝑅) RingHom (𝑅 ↑_s 𝐵)))
72	10, 71	syl 17	. . . . . . . . 9 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → (eval₁‘𝑅) ∈ ((Poly₁‘𝑅) RingHom (𝑅 ↑_s 𝐵)))
73	2, 68	rhmf 20418	. . . . . . . . 9 ⊢ ((eval₁‘𝑅) ∈ ((Poly₁‘𝑅) RingHom (𝑅 ↑_s 𝐵)) → (eval₁‘𝑅):(Base‘(Poly₁‘𝑅))⟶(Base‘(𝑅 ↑_s 𝐵)))
74	72, 73	syl 17	. . . . . . . 8 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → (eval₁‘𝑅):(Base‘(Poly₁‘𝑅))⟶(Base‘(𝑅 ↑_s 𝐵)))
75	74, 38	ffvelcdmd 7090	. . . . . . 7 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → ((eval₁‘𝑅)‘((𝑁(._g‘(mulGrp‘(Poly₁‘𝑅)))(var₁‘𝑅))(-_g‘(Poly₁‘𝑅))((algSc‘(Poly₁‘𝑅))‘𝑋))) ∈ (Base‘(𝑅 ↑_s 𝐵)))
76	67, 31, 68, 7, 70, 75	pwselbas 17465	. . . . . 6 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → ((eval₁‘𝑅)‘((𝑁(._g‘(mulGrp‘(Poly₁‘𝑅)))(var₁‘𝑅))(-_g‘(Poly₁‘𝑅))((algSc‘(Poly₁‘𝑅))‘𝑋))):𝐵⟶𝐵)
77	76	ffnd 6718	. . . . 5 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → ((eval₁‘𝑅)‘((𝑁(._g‘(mulGrp‘(Poly₁‘𝑅)))(var₁‘𝑅))(-_g‘(Poly₁‘𝑅))((algSc‘(Poly₁‘𝑅))‘𝑋))) Fn 𝐵)
78		fniniseg2 7066	. . . . 5 ⊢ (((eval₁‘𝑅)‘((𝑁(._g‘(mulGrp‘(Poly₁‘𝑅)))(var₁‘𝑅))(-_g‘(Poly₁‘𝑅))((algSc‘(Poly₁‘𝑅))‘𝑋))) Fn 𝐵 → (^◡((eval₁‘𝑅)‘((𝑁(._g‘(mulGrp‘(Poly₁‘𝑅)))(var₁‘𝑅))(-_g‘(Poly₁‘𝑅))((algSc‘(Poly₁‘𝑅))‘𝑋))) “ {(0_g‘𝑅)}) = {𝑦 ∈ 𝐵 ∣ (((eval₁‘𝑅)‘((𝑁(._g‘(mulGrp‘(Poly₁‘𝑅)))(var₁‘𝑅))(-_g‘(Poly₁‘𝑅))((algSc‘(Poly₁‘𝑅))‘𝑋)))‘𝑦) = (0_g‘𝑅)})
79	77, 78	syl 17	. . . 4 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → (^◡((eval₁‘𝑅)‘((𝑁(._g‘(mulGrp‘(Poly₁‘𝑅)))(var₁‘𝑅))(-_g‘(Poly₁‘𝑅))((algSc‘(Poly₁‘𝑅))‘𝑋))) “ {(0_g‘𝑅)}) = {𝑦 ∈ 𝐵 ∣ (((eval₁‘𝑅)‘((𝑁(._g‘(mulGrp‘(Poly₁‘𝑅)))(var₁‘𝑅))(-_g‘(Poly₁‘𝑅))((algSc‘(Poly₁‘𝑅))‘𝑋)))‘𝑦) = (0_g‘𝑅)})
80	10	adantr 480	. . . . . . . . 9 ⊢ (((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) ∧ 𝑦 ∈ 𝐵) → 𝑅 ∈ CRing)
81		simpr 484	. . . . . . . . 9 ⊢ (((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) ∧ 𝑦 ∈ 𝐵) → 𝑦 ∈ 𝐵)
82	4, 23, 31, 1, 2, 80, 81	evl1vard 22250	. . . . . . . . . 10 ⊢ (((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) ∧ 𝑦 ∈ 𝐵) → ((var₁‘𝑅) ∈ (Base‘(Poly₁‘𝑅)) ∧ (((eval₁‘𝑅)‘(var₁‘𝑅))‘𝑦) = 𝑦))
83		idomrootle.e	. . . . . . . . . 10 ⊢ ↑ = (._g‘(mulGrp‘𝑅))
84		simpl3 1191	. . . . . . . . . . 11 ⊢ (((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) ∧ 𝑦 ∈ 𝐵) → 𝑁 ∈ ℕ)
85	84, 55	syl 17	. . . . . . . . . 10 ⊢ (((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) ∧ 𝑦 ∈ 𝐵) → 𝑁 ∈ ℕ₀)
86	4, 1, 31, 2, 80, 81, 82, 27, 83, 85	evl1expd 22258	. . . . . . . . 9 ⊢ (((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) ∧ 𝑦 ∈ 𝐵) → ((𝑁(._g‘(mulGrp‘(Poly₁‘𝑅)))(var₁‘𝑅)) ∈ (Base‘(Poly₁‘𝑅)) ∧ (((eval₁‘𝑅)‘(𝑁(._g‘(mulGrp‘(Poly₁‘𝑅)))(var₁‘𝑅)))‘𝑦) = (𝑁 ↑ 𝑦)))
87		simpl2 1190	. . . . . . . . . 10 ⊢ (((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) ∧ 𝑦 ∈ 𝐵) → 𝑋 ∈ 𝐵)
88	4, 1, 31, 30, 2, 80, 87, 81	evl1scad 22248	. . . . . . . . 9 ⊢ (((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) ∧ 𝑦 ∈ 𝐵) → (((algSc‘(Poly₁‘𝑅))‘𝑋) ∈ (Base‘(Poly₁‘𝑅)) ∧ (((eval₁‘𝑅)‘((algSc‘(Poly₁‘𝑅))‘𝑋))‘𝑦) = 𝑋))
89		eqid 2728	. . . . . . . . 9 ⊢ (-_g‘𝑅) = (-_g‘𝑅)
90	4, 1, 31, 2, 80, 81, 86, 88, 36, 89	evl1subd 22255	. . . . . . . 8 ⊢ (((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) ∧ 𝑦 ∈ 𝐵) → (((𝑁(._g‘(mulGrp‘(Poly₁‘𝑅)))(var₁‘𝑅))(-_g‘(Poly₁‘𝑅))((algSc‘(Poly₁‘𝑅))‘𝑋)) ∈ (Base‘(Poly₁‘𝑅)) ∧ (((eval₁‘𝑅)‘((𝑁(._g‘(mulGrp‘(Poly₁‘𝑅)))(var₁‘𝑅))(-_g‘(Poly₁‘𝑅))((algSc‘(Poly₁‘𝑅))‘𝑋)))‘𝑦) = ((𝑁 ↑ 𝑦)(-_g‘𝑅)𝑋)))
91	90	simprd 495	. . . . . . 7 ⊢ (((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) ∧ 𝑦 ∈ 𝐵) → (((eval₁‘𝑅)‘((𝑁(._g‘(mulGrp‘(Poly₁‘𝑅)))(var₁‘𝑅))(-_g‘(Poly₁‘𝑅))((algSc‘(Poly₁‘𝑅))‘𝑋)))‘𝑦) = ((𝑁 ↑ 𝑦)(-_g‘𝑅)𝑋))
92	91	eqeq1d 2730	. . . . . 6 ⊢ (((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) ∧ 𝑦 ∈ 𝐵) → ((((eval₁‘𝑅)‘((𝑁(._g‘(mulGrp‘(Poly₁‘𝑅)))(var₁‘𝑅))(-_g‘(Poly₁‘𝑅))((algSc‘(Poly₁‘𝑅))‘𝑋)))‘𝑦) = (0_g‘𝑅) ↔ ((𝑁 ↑ 𝑦)(-_g‘𝑅)𝑋) = (0_g‘𝑅)))
93		ringgrp 20172	. . . . . . . . 9 ⊢ (𝑅 ∈ Ring → 𝑅 ∈ Grp)
94	12, 93	syl 17	. . . . . . . 8 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → 𝑅 ∈ Grp)
95	94	adantr 480	. . . . . . 7 ⊢ (((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) ∧ 𝑦 ∈ 𝐵) → 𝑅 ∈ Grp)
96		eqid 2728	. . . . . . . . . . . 12 ⊢ (mulGrp‘𝑅) = (mulGrp‘𝑅)
97	96	ringmgp 20173	. . . . . . . . . . 11 ⊢ (𝑅 ∈ Ring → (mulGrp‘𝑅) ∈ Mnd)
98	12, 97	syl 17	. . . . . . . . . 10 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → (mulGrp‘𝑅) ∈ Mnd)
99	98	adantr 480	. . . . . . . . 9 ⊢ (((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) ∧ 𝑦 ∈ 𝐵) → (mulGrp‘𝑅) ∈ Mnd)
100		mndmgm 18695	. . . . . . . . 9 ⊢ ((mulGrp‘𝑅) ∈ Mnd → (mulGrp‘𝑅) ∈ Mgm)
101	99, 100	syl 17	. . . . . . . 8 ⊢ (((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) ∧ 𝑦 ∈ 𝐵) → (mulGrp‘𝑅) ∈ Mgm)
102	96, 31	mgpbas 20074	. . . . . . . . 9 ⊢ 𝐵 = (Base‘(mulGrp‘𝑅))
103	102, 83	mulgnncl 19038	. . . . . . . 8 ⊢ (((mulGrp‘𝑅) ∈ Mgm ∧ 𝑁 ∈ ℕ ∧ 𝑦 ∈ 𝐵) → (𝑁 ↑ 𝑦) ∈ 𝐵)
104	101, 84, 81, 103	syl3anc 1369	. . . . . . 7 ⊢ (((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) ∧ 𝑦 ∈ 𝐵) → (𝑁 ↑ 𝑦) ∈ 𝐵)
105	31, 5, 89	grpsubeq0 18976	. . . . . . 7 ⊢ ((𝑅 ∈ Grp ∧ (𝑁 ↑ 𝑦) ∈ 𝐵 ∧ 𝑋 ∈ 𝐵) → (((𝑁 ↑ 𝑦)(-_g‘𝑅)𝑋) = (0_g‘𝑅) ↔ (𝑁 ↑ 𝑦) = 𝑋))
106	95, 104, 87, 105	syl3anc 1369	. . . . . 6 ⊢ (((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) ∧ 𝑦 ∈ 𝐵) → (((𝑁 ↑ 𝑦)(-_g‘𝑅)𝑋) = (0_g‘𝑅) ↔ (𝑁 ↑ 𝑦) = 𝑋))
107	92, 106	bitrd 279	. . . . 5 ⊢ (((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) ∧ 𝑦 ∈ 𝐵) → ((((eval₁‘𝑅)‘((𝑁(._g‘(mulGrp‘(Poly₁‘𝑅)))(var₁‘𝑅))(-_g‘(Poly₁‘𝑅))((algSc‘(Poly₁‘𝑅))‘𝑋)))‘𝑦) = (0_g‘𝑅) ↔ (𝑁 ↑ 𝑦) = 𝑋))
108	107	rabbidva 3435	. . . 4 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → {𝑦 ∈ 𝐵 ∣ (((eval₁‘𝑅)‘((𝑁(._g‘(mulGrp‘(Poly₁‘𝑅)))(var₁‘𝑅))(-_g‘(Poly₁‘𝑅))((algSc‘(Poly₁‘𝑅))‘𝑋)))‘𝑦) = (0_g‘𝑅)} = {𝑦 ∈ 𝐵 ∣ (𝑁 ↑ 𝑦) = 𝑋})
109	79, 108	eqtrd 2768	. . 3 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → (^◡((eval₁‘𝑅)‘((𝑁(._g‘(mulGrp‘(Poly₁‘𝑅)))(var₁‘𝑅))(-_g‘(Poly₁‘𝑅))((algSc‘(Poly₁‘𝑅))‘𝑋))) “ {(0_g‘𝑅)}) = {𝑦 ∈ 𝐵 ∣ (𝑁 ↑ 𝑦) = 𝑋})
110	109	fveq2d 6896	. 2 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → (♯‘(^◡((eval₁‘𝑅)‘((𝑁(._g‘(mulGrp‘(Poly₁‘𝑅)))(var₁‘𝑅))(-_g‘(Poly₁‘𝑅))((algSc‘(Poly₁‘𝑅))‘𝑋))) “ {(0_g‘𝑅)})) = (♯‘{𝑦 ∈ 𝐵 ∣ (𝑁 ↑ 𝑦) = 𝑋}))
111	66, 110, 61	3brtr3d 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 ℕ₀cn0 12497 ♯chash 14316 Basecbs 17174 0_gc0g 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 var₁cv1 22089 Poly₁cpl1 22090 eval₁ce1 22227 deg₁ 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

W3C validator