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 26106

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 2733	. . 3 ⊢ (Poly₁‘𝑅) = (Poly₁‘𝑅)
2		eqid 2733	. . 3 ⊢ (Base‘(Poly₁‘𝑅)) = (Base‘(Poly₁‘𝑅))
3		eqid 2733	. . 3 ⊢ (deg₁‘𝑅) = (deg₁‘𝑅)
4		eqid 2733	. . 3 ⊢ (eval₁‘𝑅) = (eval₁‘𝑅)
5		eqid 2733	. . 3 ⊢ (0_g‘𝑅) = (0_g‘𝑅)
6		eqid 2733	. . 3 ⊢ (0_g‘(Poly₁‘𝑅)) = (0_g‘(Poly₁‘𝑅))
7		simp1 1136	. . 3 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → 𝑅 ∈ IDomn)
8		isidom 20642	. . . . . . . . 9 ⊢ (𝑅 ∈ IDomn ↔ (𝑅 ∈ CRing ∧ 𝑅 ∈ Domn))
9	8	simplbi 497	. . . . . . . 8 ⊢ (𝑅 ∈ IDomn → 𝑅 ∈ CRing)
10	7, 9	syl 17	. . . . . . 7 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → 𝑅 ∈ CRing)
11		crngring 20165	. . . . . . 7 ⊢ (𝑅 ∈ CRing → 𝑅 ∈ Ring)
12	10, 11	syl 17	. . . . . 6 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → 𝑅 ∈ Ring)
13	1	ply1ring 22161	. . . . . 6 ⊢ (𝑅 ∈ Ring → (Poly₁‘𝑅) ∈ Ring)
14	12, 13	syl 17	. . . . 5 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → (Poly₁‘𝑅) ∈ Ring)
15		ringgrp 20158	. . . . 5 ⊢ ((Poly₁‘𝑅) ∈ Ring → (Poly₁‘𝑅) ∈ Grp)
16	14, 15	syl 17	. . . 4 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → (Poly₁‘𝑅) ∈ Grp)
17		eqid 2733	. . . . . . . 8 ⊢ (mulGrp‘(Poly₁‘𝑅)) = (mulGrp‘(Poly₁‘𝑅))
18	17	ringmgp 20159	. . . . . . 7 ⊢ ((Poly₁‘𝑅) ∈ Ring → (mulGrp‘(Poly₁‘𝑅)) ∈ Mnd)
19	14, 18	syl 17	. . . . . 6 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → (mulGrp‘(Poly₁‘𝑅)) ∈ Mnd)
20		mndmgm 18651	. . . . . 6 ⊢ ((mulGrp‘(Poly₁‘𝑅)) ∈ Mnd → (mulGrp‘(Poly₁‘𝑅)) ∈ Mgm)
21	19, 20	syl 17	. . . . 5 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → (mulGrp‘(Poly₁‘𝑅)) ∈ Mgm)
22		simp3 1138	. . . . 5 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → 𝑁 ∈ ℕ)
23		eqid 2733	. . . . . . 7 ⊢ (var₁‘𝑅) = (var₁‘𝑅)
24	23, 1, 2	vr1cl 22131	. . . . . 6 ⊢ (𝑅 ∈ Ring → (var₁‘𝑅) ∈ (Base‘(Poly₁‘𝑅)))
25	12, 24	syl 17	. . . . 5 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → (var₁‘𝑅) ∈ (Base‘(Poly₁‘𝑅)))
26	17, 2	mgpbas 20065	. . . . . 6 ⊢ (Base‘(Poly₁‘𝑅)) = (Base‘(mulGrp‘(Poly₁‘𝑅)))
27		eqid 2733	. . . . . 6 ⊢ (._g‘(mulGrp‘(Poly₁‘𝑅))) = (._g‘(mulGrp‘(Poly₁‘𝑅)))
28	26, 27	mulgnncl 19004	. . . . 5 ⊢ (((mulGrp‘(Poly₁‘𝑅)) ∈ Mgm ∧ 𝑁 ∈ ℕ ∧ (var₁‘𝑅) ∈ (Base‘(Poly₁‘𝑅))) → (𝑁(._g‘(mulGrp‘(Poly₁‘𝑅)))(var₁‘𝑅)) ∈ (Base‘(Poly₁‘𝑅)))
29	21, 22, 25, 28	syl3anc 1373	. . . 4 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → (𝑁(._g‘(mulGrp‘(Poly₁‘𝑅)))(var₁‘𝑅)) ∈ (Base‘(Poly₁‘𝑅)))
30		eqid 2733	. . . . . . 7 ⊢ (algSc‘(Poly₁‘𝑅)) = (algSc‘(Poly₁‘𝑅))
31		idomrootle.b	. . . . . . 7 ⊢ 𝐵 = (Base‘𝑅)
32	1, 30, 31, 2	ply1sclf 22200	. . . . . 6 ⊢ (𝑅 ∈ Ring → (algSc‘(Poly₁‘𝑅)):𝐵⟶(Base‘(Poly₁‘𝑅)))
33	12, 32	syl 17	. . . . 5 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → (algSc‘(Poly₁‘𝑅)):𝐵⟶(Base‘(Poly₁‘𝑅)))
34		simp2 1137	. . . . 5 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → 𝑋 ∈ 𝐵)
35	33, 34	ffvelcdmd 7024	. . . 4 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → ((algSc‘(Poly₁‘𝑅))‘𝑋) ∈ (Base‘(Poly₁‘𝑅)))
36		eqid 2733	. . . . 5 ⊢ (-_g‘(Poly₁‘𝑅)) = (-_g‘(Poly₁‘𝑅))
37	2, 36	grpsubcl 18935	. . . 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 1373	. . 3 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → ((𝑁(._g‘(mulGrp‘(Poly₁‘𝑅)))(var₁‘𝑅))(-_g‘(Poly₁‘𝑅))((algSc‘(Poly₁‘𝑅))‘𝑋)) ∈ (Base‘(Poly₁‘𝑅)))
39	3, 1, 2	deg1xrcl 26015	. . . . . . . . . 10 ⊢ (((algSc‘(Poly₁‘𝑅))‘𝑋) ∈ (Base‘(Poly₁‘𝑅)) → ((deg₁‘𝑅)‘((algSc‘(Poly₁‘𝑅))‘𝑋)) ∈ ℝ^*)
40	35, 39	syl 17	. . . . . . . . 9 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → ((deg₁‘𝑅)‘((algSc‘(Poly₁‘𝑅))‘𝑋)) ∈ ℝ^*)
41		0xr 11166	. . . . . . . . . 10 ⊢ 0 ∈ ℝ^*
42	41	a1i 11	. . . . . . . . 9 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → 0 ∈ ℝ^*)
43		nnre 12139	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ ℝ)
44	43	rexrd 11169	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ ℝ^*)
45	44	3ad2ant3 1135	. . . . . . . . 9 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → 𝑁 ∈ ℝ^*)
46	3, 1, 31, 30	deg1sclle 26045	. . . . . . . . . 10 ⊢ ((𝑅 ∈ Ring ∧ 𝑋 ∈ 𝐵) → ((deg₁‘𝑅)‘((algSc‘(Poly₁‘𝑅))‘𝑋)) ≤ 0)
47	12, 34, 46	syl2anc 584	. . . . . . . . 9 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → ((deg₁‘𝑅)‘((algSc‘(Poly₁‘𝑅))‘𝑋)) ≤ 0)
48		nngt0 12163	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → 0 < 𝑁)
49	48	3ad2ant3 1135	. . . . . . . . 9 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → 0 < 𝑁)
50	40, 42, 45, 47, 49	xrlelttrd 13061	. . . . . . . 8 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → ((deg₁‘𝑅)‘((algSc‘(Poly₁‘𝑅))‘𝑋)) < 𝑁)
51	8	simprbi 496	. . . . . . . . . . 11 ⊢ (𝑅 ∈ IDomn → 𝑅 ∈ Domn)
52		domnnzr 20623	. . . . . . . . . . 11 ⊢ (𝑅 ∈ Domn → 𝑅 ∈ NzRing)
53	51, 52	syl 17	. . . . . . . . . 10 ⊢ (𝑅 ∈ IDomn → 𝑅 ∈ NzRing)
54	7, 53	syl 17	. . . . . . . . 9 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → 𝑅 ∈ NzRing)
55		nnnn0 12395	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ ℕ₀)
56	55	3ad2ant3 1135	. . . . . . . . 9 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → 𝑁 ∈ ℕ₀)
57	3, 1, 23, 17, 27	deg1pw 26054	. . . . . . . . 9 ⊢ ((𝑅 ∈ NzRing ∧ 𝑁 ∈ ℕ₀) → ((deg₁‘𝑅)‘(𝑁(._g‘(mulGrp‘(Poly₁‘𝑅)))(var₁‘𝑅))) = 𝑁)
58	54, 56, 57	syl2anc 584	. . . . . . . 8 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → ((deg₁‘𝑅)‘(𝑁(._g‘(mulGrp‘(Poly₁‘𝑅)))(var₁‘𝑅))) = 𝑁)
59	50, 58	breqtrrd 5121	. . . . . . 7 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → ((deg₁‘𝑅)‘((algSc‘(Poly₁‘𝑅))‘𝑋)) < ((deg₁‘𝑅)‘(𝑁(._g‘(mulGrp‘(Poly₁‘𝑅)))(var₁‘𝑅))))
60	1, 3, 12, 2, 36, 29, 35, 59	deg1sub 26041	. . . . . 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 2833	. . . 4 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → ((deg₁‘𝑅)‘((𝑁(._g‘(mulGrp‘(Poly₁‘𝑅)))(var₁‘𝑅))(-_g‘(Poly₁‘𝑅))((algSc‘(Poly₁‘𝑅))‘𝑋))) ∈ ℕ₀)
63	3, 1, 6, 2	deg1nn0clb 26023	. . . . 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 584	. . . 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 26103	. 2 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → (♯‘(^◡((eval₁‘𝑅)‘((𝑁(._g‘(mulGrp‘(Poly₁‘𝑅)))(var₁‘𝑅))(-_g‘(Poly₁‘𝑅))((algSc‘(Poly₁‘𝑅))‘𝑋))) “ {(0_g‘𝑅)})) ≤ ((deg₁‘𝑅)‘((𝑁(._g‘(mulGrp‘(Poly₁‘𝑅)))(var₁‘𝑅))(-_g‘(Poly₁‘𝑅))((algSc‘(Poly₁‘𝑅))‘𝑋))))
67		eqid 2733	. . . . . . 7 ⊢ (𝑅 ↑_s 𝐵) = (𝑅 ↑_s 𝐵)
68		eqid 2733	. . . . . . 7 ⊢ (Base‘(𝑅 ↑_s 𝐵)) = (Base‘(𝑅 ↑_s 𝐵))
69	31	fvexi 6842	. . . . . . . 8 ⊢ 𝐵 ∈ V
70	69	a1i 11	. . . . . . 7 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → 𝐵 ∈ V)
71	4, 1, 67, 31	evl1rhm 22248	. . . . . . . . . 10 ⊢ (𝑅 ∈ CRing → (eval₁‘𝑅) ∈ ((Poly₁‘𝑅) RingHom (𝑅 ↑_s 𝐵)))
72	10, 71	syl 17	. . . . . . . . 9 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → (eval₁‘𝑅) ∈ ((Poly₁‘𝑅) RingHom (𝑅 ↑_s 𝐵)))
73	2, 68	rhmf 20404	. . . . . . . . 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 7024	. . . . . . 7 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → ((eval₁‘𝑅)‘((𝑁(._g‘(mulGrp‘(Poly₁‘𝑅)))(var₁‘𝑅))(-_g‘(Poly₁‘𝑅))((algSc‘(Poly₁‘𝑅))‘𝑋))) ∈ (Base‘(𝑅 ↑_s 𝐵)))
76	67, 31, 68, 7, 70, 75	pwselbas 17395	. . . . . 6 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → ((eval₁‘𝑅)‘((𝑁(._g‘(mulGrp‘(Poly₁‘𝑅)))(var₁‘𝑅))(-_g‘(Poly₁‘𝑅))((algSc‘(Poly₁‘𝑅))‘𝑋))):𝐵⟶𝐵)
77	76	ffnd 6657	. . . . 5 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → ((eval₁‘𝑅)‘((𝑁(._g‘(mulGrp‘(Poly₁‘𝑅)))(var₁‘𝑅))(-_g‘(Poly₁‘𝑅))((algSc‘(Poly₁‘𝑅))‘𝑋))) Fn 𝐵)
78		fniniseg2 7001	. . . . 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 22253	. . . . . . . . . 10 ⊢ (((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) ∧ 𝑦 ∈ 𝐵) → ((var₁‘𝑅) ∈ (Base‘(Poly₁‘𝑅)) ∧ (((eval₁‘𝑅)‘(var₁‘𝑅))‘𝑦) = 𝑦))
83		idomrootle.e	. . . . . . . . . 10 ⊢ ↑ = (._g‘(mulGrp‘𝑅))
84		simpl3 1194	. . . . . . . . . . 11 ⊢ (((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) ∧ 𝑦 ∈ 𝐵) → 𝑁 ∈ ℕ)
85	84, 55	syl 17	. . . . . . . . . 10 ⊢ (((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) ∧ 𝑦 ∈ 𝐵) → 𝑁 ∈ ℕ₀)
86	4, 1, 31, 2, 80, 81, 82, 27, 83, 85	evl1expd 22261	. . . . . . . . 9 ⊢ (((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) ∧ 𝑦 ∈ 𝐵) → ((𝑁(._g‘(mulGrp‘(Poly₁‘𝑅)))(var₁‘𝑅)) ∈ (Base‘(Poly₁‘𝑅)) ∧ (((eval₁‘𝑅)‘(𝑁(._g‘(mulGrp‘(Poly₁‘𝑅)))(var₁‘𝑅)))‘𝑦) = (𝑁 ↑ 𝑦)))
87		simpl2 1193	. . . . . . . . . 10 ⊢ (((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) ∧ 𝑦 ∈ 𝐵) → 𝑋 ∈ 𝐵)
88	4, 1, 31, 30, 2, 80, 87, 81	evl1scad 22251	. . . . . . . . 9 ⊢ (((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) ∧ 𝑦 ∈ 𝐵) → (((algSc‘(Poly₁‘𝑅))‘𝑋) ∈ (Base‘(Poly₁‘𝑅)) ∧ (((eval₁‘𝑅)‘((algSc‘(Poly₁‘𝑅))‘𝑋))‘𝑦) = 𝑋))
89		eqid 2733	. . . . . . . . 9 ⊢ (-_g‘𝑅) = (-_g‘𝑅)
90	4, 1, 31, 2, 80, 81, 86, 88, 36, 89	evl1subd 22258	. . . . . . . 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 2735	. . . . . 6 ⊢ (((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) ∧ 𝑦 ∈ 𝐵) → ((((eval₁‘𝑅)‘((𝑁(._g‘(mulGrp‘(Poly₁‘𝑅)))(var₁‘𝑅))(-_g‘(Poly₁‘𝑅))((algSc‘(Poly₁‘𝑅))‘𝑋)))‘𝑦) = (0_g‘𝑅) ↔ ((𝑁 ↑ 𝑦)(-_g‘𝑅)𝑋) = (0_g‘𝑅)))
93		ringgrp 20158	. . . . . . . . 9 ⊢ (𝑅 ∈ Ring → 𝑅 ∈ Grp)
94	12, 93	syl 17	. . . . . . . 8 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → 𝑅 ∈ Grp)
95	94	adantr 480	. . . . . . 7 ⊢ (((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) ∧ 𝑦 ∈ 𝐵) → 𝑅 ∈ Grp)
96		eqid 2733	. . . . . . . . . . . 12 ⊢ (mulGrp‘𝑅) = (mulGrp‘𝑅)
97	96	ringmgp 20159	. . . . . . . . . . 11 ⊢ (𝑅 ∈ Ring → (mulGrp‘𝑅) ∈ Mnd)
98	12, 97	syl 17	. . . . . . . . . 10 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → (mulGrp‘𝑅) ∈ Mnd)
99	98	adantr 480	. . . . . . . . 9 ⊢ (((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) ∧ 𝑦 ∈ 𝐵) → (mulGrp‘𝑅) ∈ Mnd)
100		mndmgm 18651	. . . . . . . . 9 ⊢ ((mulGrp‘𝑅) ∈ Mnd → (mulGrp‘𝑅) ∈ Mgm)
101	99, 100	syl 17	. . . . . . . 8 ⊢ (((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) ∧ 𝑦 ∈ 𝐵) → (mulGrp‘𝑅) ∈ Mgm)
102	96, 31	mgpbas 20065	. . . . . . . . 9 ⊢ 𝐵 = (Base‘(mulGrp‘𝑅))
103	102, 83	mulgnncl 19004	. . . . . . . 8 ⊢ (((mulGrp‘𝑅) ∈ Mgm ∧ 𝑁 ∈ ℕ ∧ 𝑦 ∈ 𝐵) → (𝑁 ↑ 𝑦) ∈ 𝐵)
104	101, 84, 81, 103	syl3anc 1373	. . . . . . 7 ⊢ (((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) ∧ 𝑦 ∈ 𝐵) → (𝑁 ↑ 𝑦) ∈ 𝐵)
105	31, 5, 89	grpsubeq0 18941	. . . . . . 7 ⊢ ((𝑅 ∈ Grp ∧ (𝑁 ↑ 𝑦) ∈ 𝐵 ∧ 𝑋 ∈ 𝐵) → (((𝑁 ↑ 𝑦)(-_g‘𝑅)𝑋) = (0_g‘𝑅) ↔ (𝑁 ↑ 𝑦) = 𝑋))
106	95, 104, 87, 105	syl3anc 1373	. . . . . 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 3402	. . . 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 6832	. 2 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → (♯‘(^◡((eval₁‘𝑅)‘((𝑁(._g‘(mulGrp‘(Poly₁‘𝑅)))(var₁‘𝑅))(-_g‘(Poly₁‘𝑅))((algSc‘(Poly₁‘𝑅))‘𝑋))) “ {(0_g‘𝑅)})) = (♯‘{𝑦 ∈ 𝐵 ∣ (𝑁 ↑ 𝑦) = 𝑋}))
111	66, 110, 61	3brtr3d 5124	1 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → (♯‘{𝑦 ∈ 𝐵 ∣ (𝑁 ↑ 𝑦) = 𝑋}) ≤ 𝑁)

Colors of variables: wff setvar class

Syntax hints: → wi 4 ↔ wb 206 ∧ wa 395 ∧ w3a 1086 = wceq 1541 ∈ wcel 2113 ≠ wne 2929 {crab 3396 Vcvv 3437 {csn 4575 class class class wbr 5093 ^◡ccnv 5618 “ cima 5622 Fn wfn 6481 ⟶wf 6482 ‘cfv 6486 (class class class)co 7352 0cc0 11013 ℝ^*cxr 11152 < clt 11153 ≤ cle 11154 ℕcn 12132 ℕ₀cn0 12388 ♯chash 14239 Basecbs 17122 0_gc0g 17345 ↑_s cpws 17352 Mgmcmgm 18548 Mndcmnd 18644 Grpcgrp 18848 -_gcsg 18850 ._gcmg 18982 mulGrpcmgp 20060 Ringcrg 20153 CRingccrg 20154 RingHom crh 20389 NzRingcnzr 20429 Domncdomn 20609 IDomncidom 20610 algSccascl 21791 var₁cv1 22089 Poly₁cpl1 22090 eval₁ce1 22230 deg₁cdg1 25987

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1796 ax-4 1810 ax-5 1911 ax-6 1968 ax-7 2009 ax-8 2115 ax-9 2123 ax-10 2146 ax-11 2162 ax-12 2182 ax-ext 2705 ax-rep 5219 ax-sep 5236 ax-nul 5246 ax-pow 5305 ax-pr 5372 ax-un 7674 ax-cnex 11069 ax-resscn 11070 ax-1cn 11071 ax-icn 11072 ax-addcl 11073 ax-addrcl 11074 ax-mulcl 11075 ax-mulrcl 11076 ax-mulcom 11077 ax-addass 11078 ax-mulass 11079 ax-distr 11080 ax-i2m1 11081 ax-1ne0 11082 ax-1rid 11083 ax-rnegex 11084 ax-rrecex 11085 ax-cnre 11086 ax-pre-lttri 11087 ax-pre-lttrn 11088 ax-pre-ltadd 11089 ax-pre-mulgt0 11090 ax-pre-sup 11091 ax-addf 11092

This theorem depends on definitions: df-bi 207 df-an 396 df-or 848 df-3or 1087 df-3an 1088 df-tru 1544 df-fal 1554 df-ex 1781 df-nf 1785 df-sb 2068 df-mo 2537 df-eu 2566 df-clab 2712 df-cleq 2725 df-clel 2808 df-nfc 2882 df-ne 2930 df-nel 3034 df-ral 3049 df-rex 3058 df-rmo 3347 df-reu 3348 df-rab 3397 df-v 3439 df-sbc 3738 df-csb 3847 df-dif 3901 df-un 3903 df-in 3905 df-ss 3915 df-pss 3918 df-nul 4283 df-if 4475 df-pw 4551 df-sn 4576 df-pr 4578 df-tp 4580 df-op 4582 df-uni 4859 df-int 4898 df-iun 4943 df-iin 4944 df-br 5094 df-opab 5156 df-mpt 5175 df-tr 5201 df-id 5514 df-eprel 5519 df-po 5527 df-so 5528 df-fr 5572 df-se 5573 df-we 5574 df-xp 5625 df-rel 5626 df-cnv 5627 df-co 5628 df-dm 5629 df-rn 5630 df-res 5631 df-ima 5632 df-pred 6253 df-ord 6314 df-on 6315 df-lim 6316 df-suc 6317 df-iota 6442 df-fun 6488 df-fn 6489 df-f 6490 df-f1 6491 df-fo 6492 df-f1o 6493 df-fv 6494 df-isom 6495 df-riota 7309 df-ov 7355 df-oprab 7356 df-mpo 7357 df-of 7616 df-ofr 7617 df-om 7803 df-1st 7927 df-2nd 7928 df-supp 8097 df-tpos 8162 df-frecs 8217 df-wrecs 8248 df-recs 8297 df-rdg 8335 df-1o 8391 df-2o 8392 df-oadd 8395 df-er 8628 df-map 8758 df-pm 8759 df-ixp 8828 df-en 8876 df-dom 8877 df-sdom 8878 df-fin 8879 df-fsupp 9253 df-sup 9333 df-oi 9403 df-dju 9801 df-card 9839 df-pnf 11155 df-mnf 11156 df-xr 11157 df-ltxr 11158 df-le 11159 df-sub 11353 df-neg 11354 df-nn 12133 df-2 12195 df-3 12196 df-4 12197 df-5 12198 df-6 12199 df-7 12200 df-8 12201 df-9 12202 df-n0 12389 df-xnn0 12462 df-z 12476 df-dec 12595 df-uz 12739 df-fz 13410 df-fzo 13557 df-seq 13911 df-hash 14240 df-struct 17060 df-sets 17077 df-slot 17095 df-ndx 17107 df-base 17123 df-ress 17144 df-plusg 17176 df-mulr 17177 df-starv 17178 df-sca 17179 df-vsca 17180 df-ip 17181 df-tset 17182 df-ple 17183 df-ds 17185 df-unif 17186 df-hom 17187 df-cco 17188 df-0g 17347 df-gsum 17348 df-prds 17353 df-pws 17355 df-mre 17490 df-mrc 17491 df-acs 17493 df-mgm 18550 df-sgrp 18629 df-mnd 18645 df-mhm 18693 df-submnd 18694 df-grp 18851 df-minusg 18852 df-sbg 18853 df-mulg 18983 df-subg 19038 df-ghm 19127 df-cntz 19231 df-cmn 19696 df-abl 19697 df-mgp 20061 df-rng 20073 df-ur 20102 df-srg 20107 df-ring 20155 df-cring 20156 df-oppr 20257 df-dvdsr 20277 df-unit 20278 df-invr 20308 df-rhm 20392 df-nzr 20430 df-subrng 20463 df-subrg 20487 df-rlreg 20611 df-domn 20612 df-idom 20613 df-lmod 20797 df-lss 20867 df-lsp 20907 df-cnfld 21294 df-assa 21792 df-asp 21793 df-ascl 21794 df-psr 21848 df-mvr 21849 df-mpl 21850 df-opsr 21852 df-evls 22010 df-evl 22011 df-psr1 22093 df-vr1 22094 df-ply1 22095 df-coe1 22096 df-evl1 22232 df-mdeg 25988 df-deg1 25989 df-mon1 26064 df-uc1p 26065 df-q1p 26066 df-r1p 26067

This theorem is referenced by: unitscyglem5 42313 idomodle 43309

W3C validator