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 26103

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 2731	. . 3 ⊢ (Poly₁‘𝑅) = (Poly₁‘𝑅)
2		eqid 2731	. . 3 ⊢ (Base‘(Poly₁‘𝑅)) = (Base‘(Poly₁‘𝑅))
3		eqid 2731	. . 3 ⊢ (deg₁‘𝑅) = (deg₁‘𝑅)
4		eqid 2731	. . 3 ⊢ (eval₁‘𝑅) = (eval₁‘𝑅)
5		eqid 2731	. . 3 ⊢ (0_g‘𝑅) = (0_g‘𝑅)
6		eqid 2731	. . 3 ⊢ (0_g‘(Poly₁‘𝑅)) = (0_g‘(Poly₁‘𝑅))
7		simp1 1136	. . 3 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → 𝑅 ∈ IDomn)
8		isidom 20638	. . . . . . . . 9 ⊢ (𝑅 ∈ IDomn ↔ (𝑅 ∈ CRing ∧ 𝑅 ∈ Domn))
9	8	simplbi 497	. . . . . . . 8 ⊢ (𝑅 ∈ IDomn → 𝑅 ∈ CRing)
10	7, 9	syl 17	. . . . . . 7 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → 𝑅 ∈ CRing)
11		crngring 20161	. . . . . . 7 ⊢ (𝑅 ∈ CRing → 𝑅 ∈ Ring)
12	10, 11	syl 17	. . . . . 6 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → 𝑅 ∈ Ring)
13	1	ply1ring 22158	. . . . . 6 ⊢ (𝑅 ∈ Ring → (Poly₁‘𝑅) ∈ Ring)
14	12, 13	syl 17	. . . . 5 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → (Poly₁‘𝑅) ∈ Ring)
15		ringgrp 20154	. . . . 5 ⊢ ((Poly₁‘𝑅) ∈ Ring → (Poly₁‘𝑅) ∈ Grp)
16	14, 15	syl 17	. . . 4 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → (Poly₁‘𝑅) ∈ Grp)
17		eqid 2731	. . . . . . . 8 ⊢ (mulGrp‘(Poly₁‘𝑅)) = (mulGrp‘(Poly₁‘𝑅))
18	17	ringmgp 20155	. . . . . . 7 ⊢ ((Poly₁‘𝑅) ∈ Ring → (mulGrp‘(Poly₁‘𝑅)) ∈ Mnd)
19	14, 18	syl 17	. . . . . 6 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → (mulGrp‘(Poly₁‘𝑅)) ∈ Mnd)
20		mndmgm 18646	. . . . . 6 ⊢ ((mulGrp‘(Poly₁‘𝑅)) ∈ Mnd → (mulGrp‘(Poly₁‘𝑅)) ∈ Mgm)
21	19, 20	syl 17	. . . . 5 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → (mulGrp‘(Poly₁‘𝑅)) ∈ Mgm)
22		simp3 1138	. . . . 5 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → 𝑁 ∈ ℕ)
23		eqid 2731	. . . . . . 7 ⊢ (var₁‘𝑅) = (var₁‘𝑅)
24	23, 1, 2	vr1cl 22128	. . . . . 6 ⊢ (𝑅 ∈ Ring → (var₁‘𝑅) ∈ (Base‘(Poly₁‘𝑅)))
25	12, 24	syl 17	. . . . 5 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → (var₁‘𝑅) ∈ (Base‘(Poly₁‘𝑅)))
26	17, 2	mgpbas 20061	. . . . . 6 ⊢ (Base‘(Poly₁‘𝑅)) = (Base‘(mulGrp‘(Poly₁‘𝑅)))
27		eqid 2731	. . . . . 6 ⊢ (._g‘(mulGrp‘(Poly₁‘𝑅))) = (._g‘(mulGrp‘(Poly₁‘𝑅)))
28	26, 27	mulgnncl 18999	. . . . 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 2731	. . . . . . 7 ⊢ (algSc‘(Poly₁‘𝑅)) = (algSc‘(Poly₁‘𝑅))
31		idomrootle.b	. . . . . . 7 ⊢ 𝐵 = (Base‘𝑅)
32	1, 30, 31, 2	ply1sclf 22197	. . . . . 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 7018	. . . 4 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → ((algSc‘(Poly₁‘𝑅))‘𝑋) ∈ (Base‘(Poly₁‘𝑅)))
36		eqid 2731	. . . . 5 ⊢ (-_g‘(Poly₁‘𝑅)) = (-_g‘(Poly₁‘𝑅))
37	2, 36	grpsubcl 18930	. . . 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 26012	. . . . . . . . . 10 ⊢ (((algSc‘(Poly₁‘𝑅))‘𝑋) ∈ (Base‘(Poly₁‘𝑅)) → ((deg₁‘𝑅)‘((algSc‘(Poly₁‘𝑅))‘𝑋)) ∈ ℝ^*)
40	35, 39	syl 17	. . . . . . . . 9 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → ((deg₁‘𝑅)‘((algSc‘(Poly₁‘𝑅))‘𝑋)) ∈ ℝ^*)
41		0xr 11156	. . . . . . . . . 10 ⊢ 0 ∈ ℝ^*
42	41	a1i 11	. . . . . . . . 9 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → 0 ∈ ℝ^*)
43		nnre 12129	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ ℝ)
44	43	rexrd 11159	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ ℝ^*)
45	44	3ad2ant3 1135	. . . . . . . . 9 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → 𝑁 ∈ ℝ^*)
46	3, 1, 31, 30	deg1sclle 26042	. . . . . . . . . 10 ⊢ ((𝑅 ∈ Ring ∧ 𝑋 ∈ 𝐵) → ((deg₁‘𝑅)‘((algSc‘(Poly₁‘𝑅))‘𝑋)) ≤ 0)
47	12, 34, 46	syl2anc 584	. . . . . . . . 9 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → ((deg₁‘𝑅)‘((algSc‘(Poly₁‘𝑅))‘𝑋)) ≤ 0)
48		nngt0 12153	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → 0 < 𝑁)
49	48	3ad2ant3 1135	. . . . . . . . 9 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → 0 < 𝑁)
50	40, 42, 45, 47, 49	xrlelttrd 13056	. . . . . . . 8 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → ((deg₁‘𝑅)‘((algSc‘(Poly₁‘𝑅))‘𝑋)) < 𝑁)
51	8	simprbi 496	. . . . . . . . . . 11 ⊢ (𝑅 ∈ IDomn → 𝑅 ∈ Domn)
52		domnnzr 20619	. . . . . . . . . . 11 ⊢ (𝑅 ∈ Domn → 𝑅 ∈ NzRing)
53	51, 52	syl 17	. . . . . . . . . 10 ⊢ (𝑅 ∈ IDomn → 𝑅 ∈ NzRing)
54	7, 53	syl 17	. . . . . . . . 9 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → 𝑅 ∈ NzRing)
55		nnnn0 12385	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ ℕ₀)
56	55	3ad2ant3 1135	. . . . . . . . 9 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → 𝑁 ∈ ℕ₀)
57	3, 1, 23, 17, 27	deg1pw 26051	. . . . . . . . 9 ⊢ ((𝑅 ∈ NzRing ∧ 𝑁 ∈ ℕ₀) → ((deg₁‘𝑅)‘(𝑁(._g‘(mulGrp‘(Poly₁‘𝑅)))(var₁‘𝑅))) = 𝑁)
58	54, 56, 57	syl2anc 584	. . . . . . . 8 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → ((deg₁‘𝑅)‘(𝑁(._g‘(mulGrp‘(Poly₁‘𝑅)))(var₁‘𝑅))) = 𝑁)
59	50, 58	breqtrrd 5119	. . . . . . 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 2766	. . . . 5 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → ((deg₁‘𝑅)‘((𝑁(._g‘(mulGrp‘(Poly₁‘𝑅)))(var₁‘𝑅))(-_g‘(Poly₁‘𝑅))((algSc‘(Poly₁‘𝑅))‘𝑋))) = 𝑁)
62	61, 56	eqeltrd 2831	. . . 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 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 26100	. 2 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → (♯‘(^◡((eval₁‘𝑅)‘((𝑁(._g‘(mulGrp‘(Poly₁‘𝑅)))(var₁‘𝑅))(-_g‘(Poly₁‘𝑅))((algSc‘(Poly₁‘𝑅))‘𝑋))) “ {(0_g‘𝑅)})) ≤ ((deg₁‘𝑅)‘((𝑁(._g‘(mulGrp‘(Poly₁‘𝑅)))(var₁‘𝑅))(-_g‘(Poly₁‘𝑅))((algSc‘(Poly₁‘𝑅))‘𝑋))))
67		eqid 2731	. . . . . . 7 ⊢ (𝑅 ↑_s 𝐵) = (𝑅 ↑_s 𝐵)
68		eqid 2731	. . . . . . 7 ⊢ (Base‘(𝑅 ↑_s 𝐵)) = (Base‘(𝑅 ↑_s 𝐵))
69	31	fvexi 6836	. . . . . . . 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 20400	. . . . . . . . 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 7018	. . . . . . 7 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → ((eval₁‘𝑅)‘((𝑁(._g‘(mulGrp‘(Poly₁‘𝑅)))(var₁‘𝑅))(-_g‘(Poly₁‘𝑅))((algSc‘(Poly₁‘𝑅))‘𝑋))) ∈ (Base‘(𝑅 ↑_s 𝐵)))
76	67, 31, 68, 7, 70, 75	pwselbas 17390	. . . . . 6 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → ((eval₁‘𝑅)‘((𝑁(._g‘(mulGrp‘(Poly₁‘𝑅)))(var₁‘𝑅))(-_g‘(Poly₁‘𝑅))((algSc‘(Poly₁‘𝑅))‘𝑋))):𝐵⟶𝐵)
77	76	ffnd 6652	. . . . 5 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → ((eval₁‘𝑅)‘((𝑁(._g‘(mulGrp‘(Poly₁‘𝑅)))(var₁‘𝑅))(-_g‘(Poly₁‘𝑅))((algSc‘(Poly₁‘𝑅))‘𝑋))) Fn 𝐵)
78		fniniseg2 6995	. . . . 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 1194	. . . . . . . . . . 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 1193	. . . . . . . . . 10 ⊢ (((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) ∧ 𝑦 ∈ 𝐵) → 𝑋 ∈ 𝐵)
88	4, 1, 31, 30, 2, 80, 87, 81	evl1scad 22248	. . . . . . . . 9 ⊢ (((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) ∧ 𝑦 ∈ 𝐵) → (((algSc‘(Poly₁‘𝑅))‘𝑋) ∈ (Base‘(Poly₁‘𝑅)) ∧ (((eval₁‘𝑅)‘((algSc‘(Poly₁‘𝑅))‘𝑋))‘𝑦) = 𝑋))
89		eqid 2731	. . . . . . . . 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 2733	. . . . . 6 ⊢ (((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) ∧ 𝑦 ∈ 𝐵) → ((((eval₁‘𝑅)‘((𝑁(._g‘(mulGrp‘(Poly₁‘𝑅)))(var₁‘𝑅))(-_g‘(Poly₁‘𝑅))((algSc‘(Poly₁‘𝑅))‘𝑋)))‘𝑦) = (0_g‘𝑅) ↔ ((𝑁 ↑ 𝑦)(-_g‘𝑅)𝑋) = (0_g‘𝑅)))
93		ringgrp 20154	. . . . . . . . 9 ⊢ (𝑅 ∈ Ring → 𝑅 ∈ Grp)
94	12, 93	syl 17	. . . . . . . 8 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → 𝑅 ∈ Grp)
95	94	adantr 480	. . . . . . 7 ⊢ (((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) ∧ 𝑦 ∈ 𝐵) → 𝑅 ∈ Grp)
96		eqid 2731	. . . . . . . . . . . 12 ⊢ (mulGrp‘𝑅) = (mulGrp‘𝑅)
97	96	ringmgp 20155	. . . . . . . . . . 11 ⊢ (𝑅 ∈ Ring → (mulGrp‘𝑅) ∈ Mnd)
98	12, 97	syl 17	. . . . . . . . . 10 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → (mulGrp‘𝑅) ∈ Mnd)
99	98	adantr 480	. . . . . . . . 9 ⊢ (((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) ∧ 𝑦 ∈ 𝐵) → (mulGrp‘𝑅) ∈ Mnd)
100		mndmgm 18646	. . . . . . . . 9 ⊢ ((mulGrp‘𝑅) ∈ Mnd → (mulGrp‘𝑅) ∈ Mgm)
101	99, 100	syl 17	. . . . . . . 8 ⊢ (((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) ∧ 𝑦 ∈ 𝐵) → (mulGrp‘𝑅) ∈ Mgm)
102	96, 31	mgpbas 20061	. . . . . . . . 9 ⊢ 𝐵 = (Base‘(mulGrp‘𝑅))
103	102, 83	mulgnncl 18999	. . . . . . . 8 ⊢ (((mulGrp‘𝑅) ∈ Mgm ∧ 𝑁 ∈ ℕ ∧ 𝑦 ∈ 𝐵) → (𝑁 ↑ 𝑦) ∈ 𝐵)
104	101, 84, 81, 103	syl3anc 1373	. . . . . . 7 ⊢ (((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) ∧ 𝑦 ∈ 𝐵) → (𝑁 ↑ 𝑦) ∈ 𝐵)
105	31, 5, 89	grpsubeq0 18936	. . . . . . 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 3401	. . . 4 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → {𝑦 ∈ 𝐵 ∣ (((eval₁‘𝑅)‘((𝑁(._g‘(mulGrp‘(Poly₁‘𝑅)))(var₁‘𝑅))(-_g‘(Poly₁‘𝑅))((algSc‘(Poly₁‘𝑅))‘𝑋)))‘𝑦) = (0_g‘𝑅)} = {𝑦 ∈ 𝐵 ∣ (𝑁 ↑ 𝑦) = 𝑋})
109	79, 108	eqtrd 2766	. . 3 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → (^◡((eval₁‘𝑅)‘((𝑁(._g‘(mulGrp‘(Poly₁‘𝑅)))(var₁‘𝑅))(-_g‘(Poly₁‘𝑅))((algSc‘(Poly₁‘𝑅))‘𝑋))) “ {(0_g‘𝑅)}) = {𝑦 ∈ 𝐵 ∣ (𝑁 ↑ 𝑦) = 𝑋})
110	109	fveq2d 6826	. 2 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → (♯‘(^◡((eval₁‘𝑅)‘((𝑁(._g‘(mulGrp‘(Poly₁‘𝑅)))(var₁‘𝑅))(-_g‘(Poly₁‘𝑅))((algSc‘(Poly₁‘𝑅))‘𝑋))) “ {(0_g‘𝑅)})) = (♯‘{𝑦 ∈ 𝐵 ∣ (𝑁 ↑ 𝑦) = 𝑋}))
111	66, 110, 61	3brtr3d 5122	1 ⊢ ((𝑅 ∈ IDomn ∧ 𝑋 ∈ 𝐵 ∧ 𝑁 ∈ ℕ) → (♯‘{𝑦 ∈ 𝐵 ∣ (𝑁 ↑ 𝑦) = 𝑋}) ≤ 𝑁)

Colors of variables: wff setvar class

Syntax hints: → wi 4 ↔ wb 206 ∧ wa 395 ∧ w3a 1086 = wceq 1541 ∈ wcel 2111 ≠ wne 2928 {crab 3395 Vcvv 3436 {csn 4576 class class class wbr 5091 ^◡ccnv 5615 “ cima 5619 Fn wfn 6476 ⟶wf 6477 ‘cfv 6481 (class class class)co 7346 0cc0 11003 ℝ^*cxr 11142 < clt 11143 ≤ cle 11144 ℕcn 12122 ℕ₀cn0 12378 ♯chash 14234 Basecbs 17117 0_gc0g 17340 ↑_s cpws 17347 Mgmcmgm 18543 Mndcmnd 18639 Grpcgrp 18843 -_gcsg 18845 ._gcmg 18977 mulGrpcmgp 20056 Ringcrg 20149 CRingccrg 20150 RingHom crh 20385 NzRingcnzr 20425 Domncdomn 20605 IDomncidom 20606 algSccascl 21787 var₁cv1 22086 Poly₁cpl1 22087 eval₁ce1 22227 deg₁cdg1 25984

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 2113 ax-9 2121 ax-10 2144 ax-11 2160 ax-12 2180 ax-ext 2703 ax-rep 5217 ax-sep 5234 ax-nul 5244 ax-pow 5303 ax-pr 5370 ax-un 7668 ax-cnex 11059 ax-resscn 11060 ax-1cn 11061 ax-icn 11062 ax-addcl 11063 ax-addrcl 11064 ax-mulcl 11065 ax-mulrcl 11066 ax-mulcom 11067 ax-addass 11068 ax-mulass 11069 ax-distr 11070 ax-i2m1 11071 ax-1ne0 11072 ax-1rid 11073 ax-rnegex 11074 ax-rrecex 11075 ax-cnre 11076 ax-pre-lttri 11077 ax-pre-lttrn 11078 ax-pre-ltadd 11079 ax-pre-mulgt0 11080 ax-pre-sup 11081 ax-addf 11082

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 2535 df-eu 2564 df-clab 2710 df-cleq 2723 df-clel 2806 df-nfc 2881 df-ne 2929 df-nel 3033 df-ral 3048 df-rex 3057 df-rmo 3346 df-reu 3347 df-rab 3396 df-v 3438 df-sbc 3742 df-csb 3851 df-dif 3905 df-un 3907 df-in 3909 df-ss 3919 df-pss 3922 df-nul 4284 df-if 4476 df-pw 4552 df-sn 4577 df-pr 4579 df-tp 4581 df-op 4583 df-uni 4860 df-int 4898 df-iun 4943 df-iin 4944 df-br 5092 df-opab 5154 df-mpt 5173 df-tr 5199 df-id 5511 df-eprel 5516 df-po 5524 df-so 5525 df-fr 5569 df-se 5570 df-we 5571 df-xp 5622 df-rel 5623 df-cnv 5624 df-co 5625 df-dm 5626 df-rn 5627 df-res 5628 df-ima 5629 df-pred 6248 df-ord 6309 df-on 6310 df-lim 6311 df-suc 6312 df-iota 6437 df-fun 6483 df-fn 6484 df-f 6485 df-f1 6486 df-fo 6487 df-f1o 6488 df-fv 6489 df-isom 6490 df-riota 7303 df-ov 7349 df-oprab 7350 df-mpo 7351 df-of 7610 df-ofr 7611 df-om 7797 df-1st 7921 df-2nd 7922 df-supp 8091 df-tpos 8156 df-frecs 8211 df-wrecs 8242 df-recs 8291 df-rdg 8329 df-1o 8385 df-2o 8386 df-oadd 8389 df-er 8622 df-map 8752 df-pm 8753 df-ixp 8822 df-en 8870 df-dom 8871 df-sdom 8872 df-fin 8873 df-fsupp 9246 df-sup 9326 df-oi 9396 df-dju 9791 df-card 9829 df-pnf 11145 df-mnf 11146 df-xr 11147 df-ltxr 11148 df-le 11149 df-sub 11343 df-neg 11344 df-nn 12123 df-2 12185 df-3 12186 df-4 12187 df-5 12188 df-6 12189 df-7 12190 df-8 12191 df-9 12192 df-n0 12379 df-xnn0 12452 df-z 12466 df-dec 12586 df-uz 12730 df-fz 13405 df-fzo 13552 df-seq 13906 df-hash 14235 df-struct 17055 df-sets 17072 df-slot 17090 df-ndx 17102 df-base 17118 df-ress 17139 df-plusg 17171 df-mulr 17172 df-starv 17173 df-sca 17174 df-vsca 17175 df-ip 17176 df-tset 17177 df-ple 17178 df-ds 17180 df-unif 17181 df-hom 17182 df-cco 17183 df-0g 17342 df-gsum 17343 df-prds 17348 df-pws 17350 df-mre 17485 df-mrc 17486 df-acs 17488 df-mgm 18545 df-sgrp 18624 df-mnd 18640 df-mhm 18688 df-submnd 18689 df-grp 18846 df-minusg 18847 df-sbg 18848 df-mulg 18978 df-subg 19033 df-ghm 19123 df-cntz 19227 df-cmn 19692 df-abl 19693 df-mgp 20057 df-rng 20069 df-ur 20098 df-srg 20103 df-ring 20151 df-cring 20152 df-oppr 20253 df-dvdsr 20273 df-unit 20274 df-invr 20304 df-rhm 20388 df-nzr 20426 df-subrng 20459 df-subrg 20483 df-rlreg 20607 df-domn 20608 df-idom 20609 df-lmod 20793 df-lss 20863 df-lsp 20903 df-cnfld 21290 df-assa 21788 df-asp 21789 df-ascl 21790 df-psr 21844 df-mvr 21845 df-mpl 21846 df-opsr 21848 df-evls 22007 df-evl 22008 df-psr1 22090 df-vr1 22091 df-ply1 22092 df-coe1 22093 df-evl1 22229 df-mdeg 25985 df-deg1 25986 df-mon1 26061 df-uc1p 26062 df-q1p 26063 df-r1p 26064

This theorem is referenced by: unitscyglem5 42231 idomodle 43223

W3C validator