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 26213

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 2761	. . 3 ⊢ (Poly₁‘𝑅) = (Poly₁‘𝑅)
2		eqid 2761	. . 3 ⊢ (Base‘(Poly₁‘𝑅)) = (Base‘(Poly₁‘𝑅))
3		eqid 2761	. . 3 ⊢ (deg₁‘𝑅) = (deg₁‘𝑅)
4		eqid 2761	. . 3 ⊢ (eval₁‘𝑅) = (eval₁‘𝑅)
5		eqid 2761	. . 3 ⊢ (0_g‘𝑅) = (0_g‘𝑅)
6		eqid 2761	. . 3 ⊢ (0_g‘(Poly₁‘𝑅)) = (0_g‘(Poly₁‘𝑅))
7		simp1 1148	. . 3 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → 𝑅 ∈ IDomn)
8		isidom 20754	. . . . . . . . 9 ⊢ (𝑅 ∈ IDomn ↔ (𝑅 ∈ CRing ∧ 𝑅 ∈ Domn))
9	8	simplbi 500	. . . . . . . 8 ⊢ (𝑅 ∈ IDomn → 𝑅 ∈ CRing)
10	7, 9	syl 17	. . . . . . 7 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → 𝑅 ∈ CRing)
11		crngring 20274	. . . . . . 7 ⊢ (𝑅 ∈ CRing → 𝑅 ∈ Ring)
12	10, 11	syl 17	. . . . . 6 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → 𝑅 ∈ Ring)
13	1	ply1ring 22289	. . . . . 6 ⊢ (𝑅 ∈ Ring → (Poly₁‘𝑅) ∈ Ring)
14	12, 13	syl 17	. . . . 5 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → (Poly₁‘𝑅) ∈ Ring)
15		ringgrp 20267	. . . . 5 ⊢ ((Poly₁‘𝑅) ∈ Ring → (Poly₁‘𝑅) ∈ Grp)
16	14, 15	syl 17	. . . 4 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → (Poly₁‘𝑅) ∈ Grp)
17		eqid 2761	. . . . . . . 8 ⊢ (mulGrp‘(Poly₁‘𝑅)) = (mulGrp‘(Poly₁‘𝑅))
18	17	ringmgp 20268	. . . . . . 7 ⊢ ((Poly₁‘𝑅) ∈ Ring → (mulGrp‘(Poly₁‘𝑅)) ∈ Mnd)
19	14, 18	syl 17	. . . . . 6 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → (mulGrp‘(Poly₁‘𝑅)) ∈ Mnd)
20		mndmgm 18758	. . . . . 6 ⊢ ((mulGrp‘(Poly₁‘𝑅)) ∈ Mnd → (mulGrp‘(Poly₁‘𝑅)) ∈ Mgm)
21	19, 20	syl 17	. . . . 5 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → (mulGrp‘(Poly₁‘𝑅)) ∈ Mgm)
22		simp3 1150	. . . . 5 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → 𝑁 ∈ ℕ)
23		eqid 2761	. . . . . . 7 ⊢ (var₁‘𝑅) = (var₁‘𝑅)
24	23, 1, 2	vr1cl 22259	. . . . . 6 ⊢ (𝑅 ∈ Ring → (var₁‘𝑅) ∈ (Base‘(Poly₁‘𝑅)))
25	12, 24	syl 17	. . . . 5 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → (var₁‘𝑅) ∈ (Base‘(Poly₁‘𝑅)))
26	17, 2	mgpbas 20174	. . . . . 6 ⊢ (Base‘(Poly₁‘𝑅)) = (Base‘(mulGrp‘(Poly₁‘𝑅)))
27		eqid 2761	. . . . . 6 ⊢ (._g‘(mulGrp‘(Poly₁‘𝑅))) = (._g‘(mulGrp‘(Poly₁‘𝑅)))
28	26, 27	mulgnncl 19114	. . . . 5 ⊢ (((mulGrp‘(Poly₁‘𝑅)) ∈ Mgm ∧ 𝑁 ∈ ℕ ∧ (var₁‘𝑅) ∈ (Base‘(Poly₁‘𝑅))) → (𝑁(._g‘(mulGrp‘(Poly₁‘𝑅)))(var₁‘𝑅)) ∈ (Base‘(Poly₁‘𝑅)))
29	21, 22, 25, 28	syl3anc 1389	. . . 4 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → (𝑁(._g‘(mulGrp‘(Poly₁‘𝑅)))(var₁‘𝑅)) ∈ (Base‘(Poly₁‘𝑅)))
30		eqid 2761	. . . . . . 7 ⊢ (algSc‘(Poly₁‘𝑅)) = (algSc‘(Poly₁‘𝑅))
31		idomrootle.b	. . . . . . 7 ⊢ 𝐵 = (Base‘𝑅)
32	1, 30, 31, 2	ply1sclf 22328	. . . . . 6 ⊢ (𝑅 ∈ Ring → (algSc‘(Poly₁‘𝑅)):𝐵⟶(Base‘(Poly₁‘𝑅)))
33	12, 32	syl 17	. . . . 5 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → (algSc‘(Poly₁‘𝑅)):𝐵⟶(Base‘(Poly₁‘𝑅)))
34		simp2 1149	. . . . 5 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → 𝑋 ∈ 𝐵)
35	33, 34	ffvelcdmd 7062	. . . 4 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → ((algSc‘(Poly₁‘𝑅))‘𝑋) ∈ (Base‘(Poly₁‘𝑅)))
36		eqid 2761	. . . . 5 ⊢ (-_g‘(Poly₁‘𝑅)) = (-_g‘(Poly₁‘𝑅))
37	2, 36	grpsubcl 19045	. . . 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 1389	. . 3 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → ((𝑁(._g‘(mulGrp‘(Poly₁‘𝑅)))(var₁‘𝑅))(-_g‘(Poly₁‘𝑅))((algSc‘(Poly₁‘𝑅))‘𝑋)) ∈ (Base‘(Poly₁‘𝑅)))
39	3, 1, 2	deg1xrcl 26122	. . . . . . . . . 10 ⊢ (((algSc‘(Poly₁‘𝑅))‘𝑋) ∈ (Base‘(Poly₁‘𝑅)) → ((deg₁‘𝑅)‘((algSc‘(Poly₁‘𝑅))‘𝑋)) ∈ ℝ^*)
40	35, 39	syl 17	. . . . . . . . 9 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → ((deg₁‘𝑅)‘((algSc‘(Poly₁‘𝑅))‘𝑋)) ∈ ℝ^*)
41		0xr 11226	. . . . . . . . . 10 ⊢ 0 ∈ ℝ^*
42	41	a1i 11	. . . . . . . . 9 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → 0 ∈ ℝ^*)
43		nnre 12214	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ ℝ)
44	43	rexrd 11229	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ ℝ^*)
45	44	3ad2ant3 1147	. . . . . . . . 9 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → 𝑁 ∈ ℝ^*)
46	3, 1, 31, 30	deg1sclle 26152	. . . . . . . . . 10 ⊢ ((𝑅 ∈ Ring ∧ 𝑋 ∈ 𝐵) → ((deg₁‘𝑅)‘((algSc‘(Poly₁‘𝑅))‘𝑋)) ≤ 0)
47	12, 34, 46	syl2anc 593	. . . . . . . . 9 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → ((deg₁‘𝑅)‘((algSc‘(Poly₁‘𝑅))‘𝑋)) ≤ 0)
48		nngt0 12241	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → 0 < 𝑁)
49	48	3ad2ant3 1147	. . . . . . . . 9 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → 0 < 𝑁)
50	40, 42, 45, 47, 49	xrlelttrd 13159	. . . . . . . 8 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → ((deg₁‘𝑅)‘((algSc‘(Poly₁‘𝑅))‘𝑋)) < 𝑁)
51	8	simprbi 501	. . . . . . . . . . 11 ⊢ (𝑅 ∈ IDomn → 𝑅 ∈ Domn)
52		domnnzr 20735	. . . . . . . . . . 11 ⊢ (𝑅 ∈ Domn → 𝑅 ∈ NzRing)
53	51, 52	syl 17	. . . . . . . . . 10 ⊢ (𝑅 ∈ IDomn → 𝑅 ∈ NzRing)
54	7, 53	syl 17	. . . . . . . . 9 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → 𝑅 ∈ NzRing)
55		nnnn0 12485	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ ℕ₀)
56	55	3ad2ant3 1147	. . . . . . . . 9 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → 𝑁 ∈ ℕ₀)
57	3, 1, 23, 17, 27	deg1pw 26161	. . . . . . . . 9 ⊢ ((𝑅 ∈ NzRing ∧ 𝑁 ∈ ℕ₀) → ((deg₁‘𝑅)‘(𝑁(._g‘(mulGrp‘(Poly₁‘𝑅)))(var₁‘𝑅))) = 𝑁)
58	54, 56, 57	syl2anc 593	. . . . . . . 8 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → ((deg₁‘𝑅)‘(𝑁(._g‘(mulGrp‘(Poly₁‘𝑅)))(var₁‘𝑅))) = 𝑁)
59	50, 58	breqtrrd 5127	. . . . . . 7 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → ((deg₁‘𝑅)‘((algSc‘(Poly₁‘𝑅))‘𝑋)) < ((deg₁‘𝑅)‘(𝑁(._g‘(mulGrp‘(Poly₁‘𝑅)))(var₁‘𝑅))))
60	1, 3, 12, 2, 36, 29, 35, 59	deg1sub 26148	. . . . . 6 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → ((deg₁‘𝑅)‘((𝑁(._g‘(mulGrp‘(Poly₁‘𝑅)))(var₁‘𝑅))(-_g‘(Poly₁‘𝑅))((algSc‘(Poly₁‘𝑅))‘𝑋))) = ((deg₁‘𝑅)‘(𝑁(._g‘(mulGrp‘(Poly₁‘𝑅)))(var₁‘𝑅))))
61	60, 58	eqtrd 2796	. . . . 5 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → ((deg₁‘𝑅)‘((𝑁(._g‘(mulGrp‘(Poly₁‘𝑅)))(var₁‘𝑅))(-_g‘(Poly₁‘𝑅))((algSc‘(Poly₁‘𝑅))‘𝑋))) = 𝑁)
62	61, 56	eqeltrd 2861	. . . 4 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → ((deg₁‘𝑅)‘((𝑁(._g‘(mulGrp‘(Poly₁‘𝑅)))(var₁‘𝑅))(-_g‘(Poly₁‘𝑅))((algSc‘(Poly₁‘𝑅))‘𝑋))) ∈ ℕ₀)
63	3, 1, 6, 2	deg1nn0clb 26130	. . . . 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 593	. . . 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 259	. . 3 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → ((𝑁(._g‘(mulGrp‘(Poly₁‘𝑅)))(var₁‘𝑅))(-_g‘(Poly₁‘𝑅))((algSc‘(Poly₁‘𝑅))‘𝑋)) ≠ (0_g‘(Poly₁‘𝑅)))
66	1, 2, 3, 4, 5, 6, 7, 38, 65	fta1g 26210	. 2 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → (♯‘(^◡((eval₁‘𝑅)‘((𝑁(._g‘(mulGrp‘(Poly₁‘𝑅)))(var₁‘𝑅))(-_g‘(Poly₁‘𝑅))((algSc‘(Poly₁‘𝑅))‘𝑋))) “ {(0_g‘𝑅)})) ≤ ((deg₁‘𝑅)‘((𝑁(._g‘(mulGrp‘(Poly₁‘𝑅)))(var₁‘𝑅))(-_g‘(Poly₁‘𝑅))((algSc‘(Poly₁‘𝑅))‘𝑋))))
67		eqid 2761	. . . . . . 7 ⊢ (𝑅 ↑_s 𝐵) = (𝑅 ↑_s 𝐵)
68		eqid 2761	. . . . . . 7 ⊢ (Base‘(𝑅 ↑_s 𝐵)) = (Base‘(𝑅 ↑_s 𝐵))
69	31	fvexi 6877	. . . . . . . 8 ⊢ 𝐵 ∈ V
70	69	a1i 11	. . . . . . 7 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → 𝐵 ∈ V)
71	4, 1, 67, 31	evl1rhm 22375	. . . . . . . . . 10 ⊢ (𝑅 ∈ CRing → (eval₁‘𝑅) ∈ ((Poly₁‘𝑅) RingHom (𝑅 ↑_s 𝐵)))
72	10, 71	syl 17	. . . . . . . . 9 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → (eval₁‘𝑅) ∈ ((Poly₁‘𝑅) RingHom (𝑅 ↑_s 𝐵)))
73	2, 68	rhmf 20512	. . . . . . . . 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 7062	. . . . . . 7 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → ((eval₁‘𝑅)‘((𝑁(._g‘(mulGrp‘(Poly₁‘𝑅)))(var₁‘𝑅))(-_g‘(Poly₁‘𝑅))((algSc‘(Poly₁‘𝑅))‘𝑋))) ∈ (Base‘(𝑅 ↑_s 𝐵)))
76	67, 31, 68, 7, 70, 75	pwselbas 17501	. . . . . 6 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → ((eval₁‘𝑅)‘((𝑁(._g‘(mulGrp‘(Poly₁‘𝑅)))(var₁‘𝑅))(-_g‘(Poly₁‘𝑅))((algSc‘(Poly₁‘𝑅))‘𝑋))):𝐵⟶𝐵)
77	76	ffnd 6688	. . . . 5 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → ((eval₁‘𝑅)‘((𝑁(._g‘(mulGrp‘(Poly₁‘𝑅)))(var₁‘𝑅))(-_g‘(Poly₁‘𝑅))((algSc‘(Poly₁‘𝑅))‘𝑋))) Fn 𝐵)
78		fniniseg2 7039	. . . . 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 484	. . . . . . . . 9 ⊢ (((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) ∧ 𝑦 ∈ 𝐵) → 𝑅 ∈ CRing)
81		simpr 488	. . . . . . . . 9 ⊢ (((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) ∧ 𝑦 ∈ 𝐵) → 𝑦 ∈ 𝐵)
82	4, 23, 31, 1, 2, 80, 81	evl1vard 22380	. . . . . . . . . 10 ⊢ (((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) ∧ 𝑦 ∈ 𝐵) → ((var₁‘𝑅) ∈ (Base‘(Poly₁‘𝑅)) ∧ (((eval₁‘𝑅)‘(var₁‘𝑅))‘𝑦) = 𝑦))
83		idomrootle.e	. . . . . . . . . 10 ⊢ ↑ = (._g‘(mulGrp‘𝑅))
84		simpl3 1206	. . . . . . . . . . 11 ⊢ (((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) ∧ 𝑦 ∈ 𝐵) → 𝑁 ∈ ℕ)
85	84, 55	syl 17	. . . . . . . . . 10 ⊢ (((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) ∧ 𝑦 ∈ 𝐵) → 𝑁 ∈ ℕ₀)
86	4, 1, 31, 2, 80, 81, 82, 27, 83, 85	evl1expd 22388	. . . . . . . . 9 ⊢ (((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) ∧ 𝑦 ∈ 𝐵) → ((𝑁(._g‘(mulGrp‘(Poly₁‘𝑅)))(var₁‘𝑅)) ∈ (Base‘(Poly₁‘𝑅)) ∧ (((eval₁‘𝑅)‘(𝑁(._g‘(mulGrp‘(Poly₁‘𝑅)))(var₁‘𝑅)))‘𝑦) = (𝑁 ↑ 𝑦)))
87		simpl2 1205	. . . . . . . . . 10 ⊢ (((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) ∧ 𝑦 ∈ 𝐵) → 𝑋 ∈ 𝐵)
88	4, 1, 31, 30, 2, 80, 87, 81	evl1scad 22378	. . . . . . . . 9 ⊢ (((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) ∧ 𝑦 ∈ 𝐵) → (((algSc‘(Poly₁‘𝑅))‘𝑋) ∈ (Base‘(Poly₁‘𝑅)) ∧ (((eval₁‘𝑅)‘((algSc‘(Poly₁‘𝑅))‘𝑋))‘𝑦) = 𝑋))
89		eqid 2761	. . . . . . . . 9 ⊢ (-_g‘𝑅) = (-_g‘𝑅)
90	4, 1, 31, 2, 80, 81, 86, 88, 36, 89	evl1subd 22385	. . . . . . . 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 499	. . . . . . 7 ⊢ (((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) ∧ 𝑦 ∈ 𝐵) → (((eval₁‘𝑅)‘((𝑁(._g‘(mulGrp‘(Poly₁‘𝑅)))(var₁‘𝑅))(-_g‘(Poly₁‘𝑅))((algSc‘(Poly₁‘𝑅))‘𝑋)))‘𝑦) = ((𝑁 ↑ 𝑦)(-_g‘𝑅)𝑋))
92	91	eqeq1d 2763	. . . . . 6 ⊢ (((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) ∧ 𝑦 ∈ 𝐵) → ((((eval₁‘𝑅)‘((𝑁(._g‘(mulGrp‘(Poly₁‘𝑅)))(var₁‘𝑅))(-_g‘(Poly₁‘𝑅))((algSc‘(Poly₁‘𝑅))‘𝑋)))‘𝑦) = (0_g‘𝑅) ↔ ((𝑁 ↑ 𝑦)(-_g‘𝑅)𝑋) = (0_g‘𝑅)))
93		ringgrp 20267	. . . . . . . . 9 ⊢ (𝑅 ∈ Ring → 𝑅 ∈ Grp)
94	12, 93	syl 17	. . . . . . . 8 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → 𝑅 ∈ Grp)
95	94	adantr 484	. . . . . . 7 ⊢ (((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) ∧ 𝑦 ∈ 𝐵) → 𝑅 ∈ Grp)
96		eqid 2761	. . . . . . . . . . . 12 ⊢ (mulGrp‘𝑅) = (mulGrp‘𝑅)
97	96	ringmgp 20268	. . . . . . . . . . 11 ⊢ (𝑅 ∈ Ring → (mulGrp‘𝑅) ∈ Mnd)
98	12, 97	syl 17	. . . . . . . . . 10 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → (mulGrp‘𝑅) ∈ Mnd)
99	98	adantr 484	. . . . . . . . 9 ⊢ (((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) ∧ 𝑦 ∈ 𝐵) → (mulGrp‘𝑅) ∈ Mnd)
100		mndmgm 18758	. . . . . . . . 9 ⊢ ((mulGrp‘𝑅) ∈ Mnd → (mulGrp‘𝑅) ∈ Mgm)
101	99, 100	syl 17	. . . . . . . 8 ⊢ (((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) ∧ 𝑦 ∈ 𝐵) → (mulGrp‘𝑅) ∈ Mgm)
102	96, 31	mgpbas 20174	. . . . . . . . 9 ⊢ 𝐵 = (Base‘(mulGrp‘𝑅))
103	102, 83	mulgnncl 19114	. . . . . . . 8 ⊢ (((mulGrp‘𝑅) ∈ Mgm ∧ 𝑁 ∈ ℕ ∧ 𝑦 ∈ 𝐵) → (𝑁 ↑ 𝑦) ∈ 𝐵)
104	101, 84, 81, 103	syl3anc 1389	. . . . . . 7 ⊢ (((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) ∧ 𝑦 ∈ 𝐵) → (𝑁 ↑ 𝑦) ∈ 𝐵)
105	31, 5, 89	grpsubeq0 19051	. . . . . . 7 ⊢ ((𝑅 ∈ Grp ∧ (𝑁 ↑ 𝑦) ∈ 𝐵 ∧ 𝑋 ∈ 𝐵) → (((𝑁 ↑ 𝑦)(-_g‘𝑅)𝑋) = (0_g‘𝑅) ↔ (𝑁 ↑ 𝑦) = 𝑋))
106	95, 104, 87, 105	syl3anc 1389	. . . . . 6 ⊢ (((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) ∧ 𝑦 ∈ 𝐵) → (((𝑁 ↑ 𝑦)(-_g‘𝑅)𝑋) = (0_g‘𝑅) ↔ (𝑁 ↑ 𝑦) = 𝑋))
107	92, 106	bitrd 281	. . . . 5 ⊢ (((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) ∧ 𝑦 ∈ 𝐵) → ((((eval₁‘𝑅)‘((𝑁(._g‘(mulGrp‘(Poly₁‘𝑅)))(var₁‘𝑅))(-_g‘(Poly₁‘𝑅))((algSc‘(Poly₁‘𝑅))‘𝑋)))‘𝑦) = (0_g‘𝑅) ↔ (𝑁 ↑ 𝑦) = 𝑋))
108	107	rabbidva 3419	. . . 4 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → {𝑦 ∈ 𝐵 ∣ (((eval₁‘𝑅)‘((𝑁(._g‘(mulGrp‘(Poly₁‘𝑅)))(var₁‘𝑅))(-_g‘(Poly₁‘𝑅))((algSc‘(Poly₁‘𝑅))‘𝑋)))‘𝑦) = (0_g‘𝑅)} = {𝑦 ∈ 𝐵 ∣ (𝑁 ↑ 𝑦) = 𝑋})
109	79, 108	eqtrd 2796	. . 3 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → (^◡((eval₁‘𝑅)‘((𝑁(._g‘(mulGrp‘(Poly₁‘𝑅)))(var₁‘𝑅))(-_g‘(Poly₁‘𝑅))((algSc‘(Poly₁‘𝑅))‘𝑋))) “ {(0_g‘𝑅)}) = {𝑦 ∈ 𝐵 ∣ (𝑁 ↑ 𝑦) = 𝑋})
110	109	fveq2d 6867	. 2 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → (♯‘(^◡((eval₁‘𝑅)‘((𝑁(._g‘(mulGrp‘(Poly₁‘𝑅)))(var₁‘𝑅))(-_g‘(Poly₁‘𝑅))((algSc‘(Poly₁‘𝑅))‘𝑋))) “ {(0_g‘𝑅)})) = (♯‘{𝑦 ∈ 𝐵 ∣ (𝑁 ↑ 𝑦) = 𝑋}))
111	66, 110, 61	3brtr3d 5130	1 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → (♯‘{𝑦 ∈ 𝐵 ∣ (𝑁 ↑ 𝑦) = 𝑋}) ≤ 𝑁)

Colors of variables: wff setvar class

Syntax hints: → wi 4 ↔ wb 208 ∧ wa 399 ∧ w3a 1097 = wceq 1559 ∈ wcel 2141 ≠ wne 2956 {crab 3413 Vcvv 3453 {csn 4581 class class class wbr 5099 ^◡ccnv 5644 “ cima 5648 Fn wfn 6512 ⟶wf 6513 ‘cfv 6517 (class class class)co 7392 0cc0 11070 ℝ^*cxr 11212 < clt 11213 ≤ cle 11214 ℕcn 12207 ℕ₀cn0 12478 ♯chash 14340 Basecbs 17228 0_gc0g 17451 ↑_s cpws 17458 Mgmcmgm 18655 Mndcmnd 18751 Grpcgrp 18958 -_gcsg 18960 ._gcmg 19092 mulGrpcmgp 20169 Ringcrg 20262 CRingccrg 20263 RingHom crh 20497 NzRingcnzr 20541 Domncdomn 20721 IDomncidom 20722 algSccascl 21884 var₁cv1 22218 Poly₁cpl1 22219 eval₁ce1 22357 deg₁cdg1 26094

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1814 ax-4 1828 ax-5 1929 ax-6 1986 ax-7 2027 ax-8 2143 ax-9 2151 ax-10 2174 ax-11 2190 ax-12 2211 ax-ext 2733 ax-rep 5226 ax-sep 5245 ax-nul 5255 ax-pow 5321 ax-pr 5389 ax-un 7714 ax-cnex 11126 ax-resscn 11127 ax-1cn 11128 ax-icn 11129 ax-addcl 11130 ax-addrcl 11131 ax-mulcl 11132 ax-mulrcl 11133 ax-mulcom 11134 ax-addass 11135 ax-mulass 11136 ax-distr 11137 ax-i2m1 11138 ax-1ne0 11139 ax-1rid 11140 ax-rnegex 11141 ax-rrecex 11142 ax-cnre 11143 ax-pre-lttri 11144 ax-pre-lttrn 11145 ax-pre-ltadd 11146 ax-pre-mulgt0 11147 ax-pre-sup 11148 ax-addf 11149

This theorem depends on definitions: df-bi 209 df-an 400 df-or 859 df-3or 1098 df-3an 1099 df-tru 1562 df-fal 1572 df-ex 1799 df-nf 1803 df-sb 2090 df-mo 2565 df-eu 2595 df-clab 2740 df-cleq 2753 df-clel 2836 df-nfc 2910 df-ne 2957 df-nel 3061 df-ral 3076 df-rex 3086 df-rmo 3366 df-reu 3367 df-rab 3414 df-v 3455 df-sbc 3745 df-csb 3853 df-dif 3907 df-un 3909 df-in 3911 df-ss 3921 df-pss 3924 df-nul 4286 df-if 4480 df-pw 4556 df-sn 4582 df-pr 4584 df-tp 4586 df-op 4588 df-uni 4865 df-int 4905 df-iun 4950 df-iin 4951 df-br 5100 df-opab 5162 df-mpt 5181 df-tr 5207 df-id 5540 df-eprel 5545 df-po 5553 df-so 5554 df-fr 5598 df-se 5599 df-we 5600 df-xp 5651 df-rel 5652 df-cnv 5653 df-co 5654 df-dm 5655 df-rn 5656 df-res 5657 df-ima 5658 df-pred 6284 df-ord 6345 df-on 6346 df-lim 6347 df-suc 6348 df-iota 6473 df-fun 6519 df-fn 6520 df-f 6521 df-f1 6522 df-fo 6523 df-f1o 6524 df-fv 6525 df-isom 6526 df-riota 7349 df-ov 7395 df-oprab 7396 df-mpo 7397 df-of 7656 df-ofr 7657 df-om 7843 df-1st 7966 df-2nd 7967 df-supp 8136 df-tpos 8201 df-frecs 8257 df-wrecs 8288 df-recs 8337 df-rdg 8376 df-1o 8432 df-2o 8433 df-oadd 8436 df-er 8673 df-map 8805 df-pm 8806 df-ixp 8876 df-en 8924 df-dom 8925 df-sdom 8926 df-fin 8927 df-fsupp 9305 df-sup 9385 df-oi 9455 df-dju 9856 df-card 9894 df-pnf 11215 df-mnf 11216 df-xr 11217 df-ltxr 11218 df-le 11219 df-sub 11413 df-neg 11414 df-nn 12208 df-2 12277 df-3 12278 df-4 12279 df-5 12280 df-6 12281 df-7 12282 df-8 12283 df-9 12284 df-n0 12479 df-xnn0 12552 df-z 12566 df-dec 12686 df-uz 12837 df-fz 13510 df-fzo 13657 df-seq 14012 df-hash 14341 df-struct 17166 df-sets 17183 df-slot 17201 df-ndx 17213 df-base 17229 df-ress 17250 df-plusg 17282 df-mulr 17283 df-starv 17284 df-sca 17285 df-vsca 17286 df-ip 17287 df-tset 17288 df-ple 17289 df-ds 17291 df-unif 17292 df-hom 17293 df-cco 17294 df-0g 17453 df-gsum 17454 df-prds 17459 df-pws 17461 df-mre 17597 df-mrc 17598 df-acs 17600 df-mgm 18657 df-sgrp 18736 df-mnd 18752 df-mhm 18800 df-submnd 18801 df-grp 18961 df-minusg 18962 df-sbg 18963 df-mulg 19093 df-subg 19148 df-ghm 19237 df-cntz 19340 df-cmn 19805 df-abl 19806 df-mgp 20170 df-rng 20182 df-ur 20211 df-srg 20216 df-ring 20264 df-cring 20265 df-oppr 20365 df-dvdsr 20385 df-unit 20386 df-invr 20416 df-rhm 20500 df-nzr 20542 df-subrng 20575 df-subrg 20599 df-rlreg 20723 df-domn 20724 df-idom 20725 df-lmod 20909 df-lss 20979 df-lsp 21019 df-cnfld 21405 df-assa 21885 df-asp 21886 df-ascl 21887 df-psr 21941 df-mvr 21942 df-mpl 21943 df-opsr 21945 df-evls 22107 df-evl 22108 df-psr1 22222 df-vr1 22223 df-ply1 22224 df-coe1 22225 df-evl1 22359 df-mdeg 26095 df-deg1 26096 df-mon1 26171 df-uc1p 26172 df-q1p 26173 df-r1p 26174

This theorem is referenced by: unitscyglem5 42780 idomodle 43732

W3C validator