aks6d1c1p2 - Mathbox for metakunt

	Mathbox for metakunt		< Previous Next > Nearby theorems
Mirrors > Home > MPE Home > Th. List > Mathboxes > aks6d1c1p2		Structured version Visualization version GIF version

Theorem aks6d1c1p2 42904

Description: 𝑃 and linear factors are introspective. (Contributed by metakunt, 25-Apr-2025.)

**Hypotheses**
Ref	Expression
aks6d1c1p2.1	⊢ ∼ = {⟨𝑒, 𝑓⟩ ∣ (𝑒 ∈ ℕ ∧ 𝑓 ∈ 𝐵 ∧ ∀𝑦 ∈ (𝑉 PrimRoots 𝑅)(𝑒 ↑ ((𝑂‘𝑓)‘𝑦)) = ((𝑂‘𝑓)‘(𝑒 ↑ 𝑦)))}
aks6d1c1p2.2	⊢ 𝑆 = (Poly₁‘𝐾)
aks6d1c1p2.3	⊢ 𝐵 = (Base‘𝑆)
aks6d1c1p2.4	⊢ 𝑋 = (var₁‘𝐾)
aks6d1c1p2.5	⊢ 𝑊 = (mulGrp‘𝑆)
aks6d1c1p2.6	⊢ 𝑉 = (mulGrp‘𝐾)
aks6d1c1p2.7	⊢ ↑ = (._g‘𝑉)
aks6d1c1p2.8	⊢ 𝐶 = (algSc‘𝑆)
aks6d1c1p2.9	⊢ 𝐷 = (._g‘𝑊)
aks6d1c1p2.10	⊢ 𝑃 = (chr‘𝐾)
aks6d1c1p2.11	⊢ 𝑂 = (eval₁‘𝐾)
aks6d1c1p2.12	⊢ + = (+_g‘𝑆)
aks6d1c1p2.13	⊢ (𝜑 → 𝐾 ∈ Field)
aks6d1c1p2.14	⊢ (𝜑 → 𝑃 ∈ ℙ)
aks6d1c1p2.15	⊢ (𝜑 → 𝑅 ∈ ℕ)
aks6d1c1p2.16	⊢ (𝜑 → (𝑁 gcd 𝑅) = 1)
aks6d1c1p2.17	⊢ (𝜑 → 𝑃 ∥ 𝑁)
aks6d1c1p2.18	⊢ 𝐹 = (𝑋 + (𝐶‘((ℤRHom‘𝐾)‘𝐴)))
aks6d1c1p2.19	⊢ (𝜑 → 𝐴 ∈ ℤ)

**Assertion**
Ref	Expression
aks6d1c1p2	⊢ (𝜑 → 𝑃 ∼ 𝐹)

Distinct variable groups: ↑ ,𝑒,𝑓 𝐵,𝑒,𝑓 𝑒,𝐹,𝑓,𝑦 𝑒,𝑂,𝑓 𝑃,𝑒,𝑓,𝑦 𝑅,𝑒,𝑓 𝑒,𝑉,𝑓 𝜑,𝑦 Allowed substitution hints: 𝜑(𝑒, 𝑓) 𝐴(𝑦, 𝑒, 𝑓) 𝐵(𝑦) 𝐶(𝑦, 𝑒, 𝑓) 𝐷(𝑦, 𝑒, 𝑓) + (𝑦, 𝑒, 𝑓) ∼ (𝑦, 𝑒, 𝑓) 𝑅(𝑦) 𝑆(𝑦, 𝑒, 𝑓) ↑ (𝑦) 𝐾(𝑦, 𝑒, 𝑓) 𝑁(𝑦, 𝑒, 𝑓) 𝑂(𝑦) 𝑉(𝑦) 𝑊(𝑦, 𝑒, 𝑓) 𝑋(𝑦, 𝑒, 𝑓)

Proof of Theorem aks6d1c1p2 Dummy variable 𝑙 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		aks6d1c1p2.13	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝐾 ∈ Field)
2		isfld 20849	. . . . . . . . . . . . . 14 ⊢ (𝐾 ∈ Field ↔ (𝐾 ∈ DivRing ∧ 𝐾 ∈ CRing))
3	1, 2	sylib 221	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝐾 ∈ DivRing ∧ 𝐾 ∈ CRing))
4	3	simprd 500	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐾 ∈ CRing)
5		aks6d1c1p2.6	. . . . . . . . . . . . 13 ⊢ 𝑉 = (mulGrp‘𝐾)
6	5	crngmgp 20327	. . . . . . . . . . . 12 ⊢ (𝐾 ∈ CRing → 𝑉 ∈ CMnd)
7	4, 6	syl 18	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑉 ∈ CMnd)
8		aks6d1c1p2.15	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑅 ∈ ℕ)
9	8	nnnn0d 12569	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑅 ∈ ℕ₀)
10		aks6d1c1p2.7	. . . . . . . . . . 11 ⊢ ↑ = (._g‘𝑉)
11	7, 9, 10	isprimroot 42888	. . . . . . . . . 10 ⊢ (𝜑 → (𝑦 ∈ (𝑉 PrimRoots 𝑅) ↔ (𝑦 ∈ (Base‘𝑉) ∧ (𝑅 ↑ 𝑦) = (0_g‘𝑉) ∧ ∀𝑙 ∈ ℕ₀ ((𝑙 ↑ 𝑦) = (0_g‘𝑉) → 𝑅 ∥ 𝑙))))
12	11	biimpd 232	. . . . . . . . 9 ⊢ (𝜑 → (𝑦 ∈ (𝑉 PrimRoots 𝑅) → (𝑦 ∈ (Base‘𝑉) ∧ (𝑅 ↑ 𝑦) = (0_g‘𝑉) ∧ ∀𝑙 ∈ ℕ₀ ((𝑙 ↑ 𝑦) = (0_g‘𝑉) → 𝑅 ∥ 𝑙))))
13	12	imp 411	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑦 ∈ (𝑉 PrimRoots 𝑅)) → (𝑦 ∈ (Base‘𝑉) ∧ (𝑅 ↑ 𝑦) = (0_g‘𝑉) ∧ ∀𝑙 ∈ ℕ₀ ((𝑙 ↑ 𝑦) = (0_g‘𝑉) → 𝑅 ∥ 𝑙)))
14	13	simp1d 1160	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑦 ∈ (𝑉 PrimRoots 𝑅)) → 𝑦 ∈ (Base‘𝑉))
15		eqid 2763	. . . . . . . . . . . 12 ⊢ (Base‘𝐾) = (Base‘𝐾)
16	5, 15	mgpbas 20225	. . . . . . . . . . 11 ⊢ (Base‘𝐾) = (Base‘𝑉)
17	16	eqcomi 2772	. . . . . . . . . 10 ⊢ (Base‘𝑉) = (Base‘𝐾)
18	17	a1i 11	. . . . . . . . 9 ⊢ (𝜑 → (Base‘𝑉) = (Base‘𝐾))
19	18	adantr 485	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑦 ∈ (𝑉 PrimRoots 𝑅)) → (Base‘𝑉) = (Base‘𝐾))
20	19	eleq2d 2849	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑦 ∈ (𝑉 PrimRoots 𝑅)) → (𝑦 ∈ (Base‘𝑉) ↔ 𝑦 ∈ (Base‘𝐾)))
21	14, 20	mpbid 235	. . . . . 6 ⊢ ((𝜑 ∧ 𝑦 ∈ (𝑉 PrimRoots 𝑅)) → 𝑦 ∈ (Base‘𝐾))
22	21	ex 417	. . . . 5 ⊢ (𝜑 → (𝑦 ∈ (𝑉 PrimRoots 𝑅) → 𝑦 ∈ (Base‘𝐾)))
23		aks6d1c1p2.18	. . . . . . . . . . . . . 14 ⊢ 𝐹 = (𝑋 + (𝐶‘((ℤRHom‘𝐾)‘𝐴)))
24	23	a1i 11	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑦 ∈ (Base‘𝐾)) → 𝐹 = (𝑋 + (𝐶‘((ℤRHom‘𝐾)‘𝐴))))
25	24	fveq2d 6885	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑦 ∈ (Base‘𝐾)) → (𝑂‘𝐹) = (𝑂‘(𝑋 + (𝐶‘((ℤRHom‘𝐾)‘𝐴)))))
26	25	fveq1d 6883	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑦 ∈ (Base‘𝐾)) → ((𝑂‘𝐹)‘𝑦) = ((𝑂‘(𝑋 + (𝐶‘((ℤRHom‘𝐾)‘𝐴))))‘𝑦))
27	26	oveq2d 7426	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑦 ∈ (Base‘𝐾)) → (𝑃 ↑ ((𝑂‘𝐹)‘𝑦)) = (𝑃 ↑ ((𝑂‘(𝑋 + (𝐶‘((ℤRHom‘𝐾)‘𝐴))))‘𝑦)))
28		aks6d1c1p2.11	. . . . . . . . . . . . 13 ⊢ 𝑂 = (eval₁‘𝐾)
29		aks6d1c1p2.2	. . . . . . . . . . . . 13 ⊢ 𝑆 = (Poly₁‘𝐾)
30		aks6d1c1p2.3	. . . . . . . . . . . . 13 ⊢ 𝐵 = (Base‘𝑆)
31	4	adantr 485	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑦 ∈ (Base‘𝐾)) → 𝐾 ∈ CRing)
32		simpr 489	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑦 ∈ (Base‘𝐾)) → 𝑦 ∈ (Base‘𝐾))
33		crngring 20331	. . . . . . . . . . . . . . 15 ⊢ (𝐾 ∈ CRing → 𝐾 ∈ Ring)
34		aks6d1c1p2.4	. . . . . . . . . . . . . . . 16 ⊢ 𝑋 = (var₁‘𝐾)
35	34, 29, 30	vr1cl 22386	. . . . . . . . . . . . . . 15 ⊢ (𝐾 ∈ Ring → 𝑋 ∈ 𝐵)
36	31, 33, 35	3syl 19	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑦 ∈ (Base‘𝐾)) → 𝑋 ∈ 𝐵)
37	28, 34, 15, 29, 30, 31, 32	evl1vard 22506	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑦 ∈ (Base‘𝐾)) → (𝑋 ∈ 𝐵 ∧ ((𝑂‘𝑋)‘𝑦) = 𝑦))
38	37	simprd 500	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑦 ∈ (Base‘𝐾)) → ((𝑂‘𝑋)‘𝑦) = 𝑦)
39	36, 38	jca 520	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑦 ∈ (Base‘𝐾)) → (𝑋 ∈ 𝐵 ∧ ((𝑂‘𝑋)‘𝑦) = 𝑦))
40	4, 33	syl 18	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝐾 ∈ Ring)
41	4	crngringd 20332	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → 𝐾 ∈ Ring)
42		eqid 2763	. . . . . . . . . . . . . . . . . . 19 ⊢ (ℤRHom‘𝐾) = (ℤRHom‘𝐾)
43	42	zrhrhm 21670	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐾 ∈ Ring → (ℤRHom‘𝐾) ∈ (ℤ_ring RingHom 𝐾))
44		rhmghm 20571	. . . . . . . . . . . . . . . . . 18 ⊢ ((ℤRHom‘𝐾) ∈ (ℤ_ring RingHom 𝐾) → (ℤRHom‘𝐾) ∈ (ℤ_ring GrpHom 𝐾))
45		zringbas 21612	. . . . . . . . . . . . . . . . . . 19 ⊢ ℤ = (Base‘ℤ_ring)
46	45, 15	ghmf 19294	. . . . . . . . . . . . . . . . . 18 ⊢ ((ℤRHom‘𝐾) ∈ (ℤ_ring GrpHom 𝐾) → (ℤRHom‘𝐾):ℤ⟶(Base‘𝐾))
47	41, 43, 44, 46	4syl 20	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (ℤRHom‘𝐾):ℤ⟶(Base‘𝐾))
48		aks6d1c1p2.19	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 𝐴 ∈ ℤ)
49	47, 48	ffvelcdmd 7080	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((ℤRHom‘𝐾)‘𝐴) ∈ (Base‘𝐾))
50		aks6d1c1p2.8	. . . . . . . . . . . . . . . . 17 ⊢ 𝐶 = (algSc‘𝑆)
51	29, 50, 15, 30	ply1sclcl 22456	. . . . . . . . . . . . . . . 16 ⊢ ((𝐾 ∈ Ring ∧ ((ℤRHom‘𝐾)‘𝐴) ∈ (Base‘𝐾)) → (𝐶‘((ℤRHom‘𝐾)‘𝐴)) ∈ 𝐵)
52	40, 49, 51	syl2anc 595	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝐶‘((ℤRHom‘𝐾)‘𝐴)) ∈ 𝐵)
53	52	adantr 485	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑦 ∈ (Base‘𝐾)) → (𝐶‘((ℤRHom‘𝐾)‘𝐴)) ∈ 𝐵)
54	49	adantr 485	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑦 ∈ (Base‘𝐾)) → ((ℤRHom‘𝐾)‘𝐴) ∈ (Base‘𝐾))
55	28, 29, 15, 50, 30, 31, 54, 32	evl1scad 22504	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑦 ∈ (Base‘𝐾)) → ((𝐶‘((ℤRHom‘𝐾)‘𝐴)) ∈ 𝐵 ∧ ((𝑂‘(𝐶‘((ℤRHom‘𝐾)‘𝐴)))‘𝑦) = ((ℤRHom‘𝐾)‘𝐴)))
56	55	simprd 500	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑦 ∈ (Base‘𝐾)) → ((𝑂‘(𝐶‘((ℤRHom‘𝐾)‘𝐴)))‘𝑦) = ((ℤRHom‘𝐾)‘𝐴))
57	53, 56	jca 520	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑦 ∈ (Base‘𝐾)) → ((𝐶‘((ℤRHom‘𝐾)‘𝐴)) ∈ 𝐵 ∧ ((𝑂‘(𝐶‘((ℤRHom‘𝐾)‘𝐴)))‘𝑦) = ((ℤRHom‘𝐾)‘𝐴)))
58		aks6d1c1p2.12	. . . . . . . . . . . . 13 ⊢ + = (+_g‘𝑆)
59		eqid 2763	. . . . . . . . . . . . 13 ⊢ (+_g‘𝐾) = (+_g‘𝐾)
60	28, 29, 15, 30, 31, 32, 39, 57, 58, 59	evl1addd 22510	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑦 ∈ (Base‘𝐾)) → ((𝑋 + (𝐶‘((ℤRHom‘𝐾)‘𝐴))) ∈ 𝐵 ∧ ((𝑂‘(𝑋 + (𝐶‘((ℤRHom‘𝐾)‘𝐴))))‘𝑦) = (𝑦(+_g‘𝐾)((ℤRHom‘𝐾)‘𝐴))))
61	60	simprd 500	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑦 ∈ (Base‘𝐾)) → ((𝑂‘(𝑋 + (𝐶‘((ℤRHom‘𝐾)‘𝐴))))‘𝑦) = (𝑦(+_g‘𝐾)((ℤRHom‘𝐾)‘𝐴)))
62	61	oveq2d 7426	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑦 ∈ (Base‘𝐾)) → (𝑃 ↑ ((𝑂‘(𝑋 + (𝐶‘((ℤRHom‘𝐾)‘𝐴))))‘𝑦)) = (𝑃 ↑ (𝑦(+_g‘𝐾)((ℤRHom‘𝐾)‘𝐴))))
63	27, 62	eqtrd 2798	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑦 ∈ (Base‘𝐾)) → (𝑃 ↑ ((𝑂‘𝐹)‘𝑦)) = (𝑃 ↑ (𝑦(+_g‘𝐾)((ℤRHom‘𝐾)‘𝐴))))
64	25	fveq1d 6883	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑦 ∈ (Base‘𝐾)) → ((𝑂‘𝐹)‘(𝑃 ↑ 𝑦)) = ((𝑂‘(𝑋 + (𝐶‘((ℤRHom‘𝐾)‘𝐴))))‘(𝑃 ↑ 𝑦)))
65		eqid 2763	. . . . . . . . . . . . . . . 16 ⊢ (Base‘𝑉) = (Base‘𝑉)
66	5	ringmgp 20325	. . . . . . . . . . . . . . . . 17 ⊢ (𝐾 ∈ Ring → 𝑉 ∈ Mnd)
67	31, 33, 66	3syl 19	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑦 ∈ (Base‘𝐾)) → 𝑉 ∈ Mnd)
68		aks6d1c1p2.14	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → 𝑃 ∈ ℙ)
69		prmnn 16736	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑃 ∈ ℙ → 𝑃 ∈ ℕ)
70	68, 69	syl 18	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → 𝑃 ∈ ℕ)
71	70	nnnn0d 12569	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 𝑃 ∈ ℕ₀)
72	71	adantr 485	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑦 ∈ (Base‘𝐾)) → 𝑃 ∈ ℕ₀)
73	32, 16	eleqtrdi 2873	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑦 ∈ (Base‘𝐾)) → 𝑦 ∈ (Base‘𝑉))
74	65, 10, 67, 72, 73	mulgnn0cld 19165	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑦 ∈ (Base‘𝐾)) → (𝑃 ↑ 𝑦) ∈ (Base‘𝑉))
75	74, 17	eleqtrdi 2873	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑦 ∈ (Base‘𝐾)) → (𝑃 ↑ 𝑦) ∈ (Base‘𝐾))
76	28, 34, 15, 29, 30, 31, 75	evl1vard 22506	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑦 ∈ (Base‘𝐾)) → (𝑋 ∈ 𝐵 ∧ ((𝑂‘𝑋)‘(𝑃 ↑ 𝑦)) = (𝑃 ↑ 𝑦)))
77	28, 29, 15, 50, 30, 31, 54, 75	evl1scad 22504	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑦 ∈ (Base‘𝐾)) → ((𝐶‘((ℤRHom‘𝐾)‘𝐴)) ∈ 𝐵 ∧ ((𝑂‘(𝐶‘((ℤRHom‘𝐾)‘𝐴)))‘(𝑃 ↑ 𝑦)) = ((ℤRHom‘𝐾)‘𝐴)))
78	77	simprd 500	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑦 ∈ (Base‘𝐾)) → ((𝑂‘(𝐶‘((ℤRHom‘𝐾)‘𝐴)))‘(𝑃 ↑ 𝑦)) = ((ℤRHom‘𝐾)‘𝐴))
79	53, 78	jca 520	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑦 ∈ (Base‘𝐾)) → ((𝐶‘((ℤRHom‘𝐾)‘𝐴)) ∈ 𝐵 ∧ ((𝑂‘(𝐶‘((ℤRHom‘𝐾)‘𝐴)))‘(𝑃 ↑ 𝑦)) = ((ℤRHom‘𝐾)‘𝐴)))
80	28, 29, 15, 30, 31, 75, 76, 79, 58, 59	evl1addd 22510	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑦 ∈ (Base‘𝐾)) → ((𝑋 + (𝐶‘((ℤRHom‘𝐾)‘𝐴))) ∈ 𝐵 ∧ ((𝑂‘(𝑋 + (𝐶‘((ℤRHom‘𝐾)‘𝐴))))‘(𝑃 ↑ 𝑦)) = ((𝑃 ↑ 𝑦)(+_g‘𝐾)((ℤRHom‘𝐾)‘𝐴))))
81	80	simprd 500	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑦 ∈ (Base‘𝐾)) → ((𝑂‘(𝑋 + (𝐶‘((ℤRHom‘𝐾)‘𝐴))))‘(𝑃 ↑ 𝑦)) = ((𝑃 ↑ 𝑦)(+_g‘𝐾)((ℤRHom‘𝐾)‘𝐴)))
82	64, 81	eqtrd 2798	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑦 ∈ (Base‘𝐾)) → ((𝑂‘𝐹)‘(𝑃 ↑ 𝑦)) = ((𝑃 ↑ 𝑦)(+_g‘𝐾)((ℤRHom‘𝐾)‘𝐴)))
83		aks6d1c1p2.9	. . . . . . . . . . . . . . . . . 18 ⊢ 𝐷 = (._g‘𝑊)
84		aks6d1c1p2.5	. . . . . . . . . . . . . . . . . . 19 ⊢ 𝑊 = (mulGrp‘𝑆)
85	84	fveq2i 6884	. . . . . . . . . . . . . . . . . 18 ⊢ (._g‘𝑊) = (._g‘(mulGrp‘𝑆))
86	83, 85	eqtri 2786	. . . . . . . . . . . . . . . . 17 ⊢ 𝐷 = (._g‘(mulGrp‘𝑆))
87	5	fveq2i 6884	. . . . . . . . . . . . . . . . . 18 ⊢ (._g‘𝑉) = (._g‘(mulGrp‘𝐾))
88	10, 87	eqtri 2786	. . . . . . . . . . . . . . . . 17 ⊢ ↑ = (._g‘(mulGrp‘𝐾))
89	28, 29, 15, 30, 31, 32, 37, 86, 88, 72	evl1expd 22514	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑦 ∈ (Base‘𝐾)) → ((𝑃𝐷𝑋) ∈ 𝐵 ∧ ((𝑂‘(𝑃𝐷𝑋))‘𝑦) = (𝑃 ↑ 𝑦)))
90		eqid 2763	. . . . . . . . . . . . . . . 16 ⊢ (+_g‘𝑆) = (+_g‘𝑆)
91	28, 29, 15, 30, 31, 32, 89, 57, 90, 59	evl1addd 22510	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑦 ∈ (Base‘𝐾)) → (((𝑃𝐷𝑋)(+_g‘𝑆)(𝐶‘((ℤRHom‘𝐾)‘𝐴))) ∈ 𝐵 ∧ ((𝑂‘((𝑃𝐷𝑋)(+_g‘𝑆)(𝐶‘((ℤRHom‘𝐾)‘𝐴))))‘𝑦) = ((𝑃 ↑ 𝑦)(+_g‘𝐾)((ℤRHom‘𝐾)‘𝐴))))
92	91	simprd 500	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑦 ∈ (Base‘𝐾)) → ((𝑂‘((𝑃𝐷𝑋)(+_g‘𝑆)(𝐶‘((ℤRHom‘𝐾)‘𝐴))))‘𝑦) = ((𝑃 ↑ 𝑦)(+_g‘𝐾)((ℤRHom‘𝐾)‘𝐴)))
93		eqidd 2764	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑦 ∈ (Base‘𝐾)) → ((𝑃 ↑ 𝑦)(+_g‘𝐾)((ℤRHom‘𝐾)‘𝐴)) = ((𝑃 ↑ 𝑦)(+_g‘𝐾)((ℤRHom‘𝐾)‘𝐴)))
94	92, 93	eqtrd 2798	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑦 ∈ (Base‘𝐾)) → ((𝑂‘((𝑃𝐷𝑋)(+_g‘𝑆)(𝐶‘((ℤRHom‘𝐾)‘𝐴))))‘𝑦) = ((𝑃 ↑ 𝑦)(+_g‘𝐾)((ℤRHom‘𝐾)‘𝐴)))
95	94	eqcomd 2769	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑦 ∈ (Base‘𝐾)) → ((𝑃 ↑ 𝑦)(+_g‘𝐾)((ℤRHom‘𝐾)‘𝐴)) = ((𝑂‘((𝑃𝐷𝑋)(+_g‘𝑆)(𝐶‘((ℤRHom‘𝐾)‘𝐴))))‘𝑦))
96		eqid 2763	. . . . . . . . . . . . . . . . 17 ⊢ (𝐶‘((ℤRHom‘𝐾)‘𝐴)) = (𝐶‘((ℤRHom‘𝐾)‘𝐴))
97		aks6d1c1p2.10	. . . . . . . . . . . . . . . . 17 ⊢ 𝑃 = (chr‘𝐾)
98	29, 34, 90, 84, 83, 50, 96, 97, 4, 68, 48	ply1fermltlchr 22481	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (𝑃𝐷(𝑋(+_g‘𝑆)(𝐶‘((ℤRHom‘𝐾)‘𝐴)))) = ((𝑃𝐷𝑋)(+_g‘𝑆)(𝐶‘((ℤRHom‘𝐾)‘𝐴))))
99	98	fveq2d 6885	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝑂‘(𝑃𝐷(𝑋(+_g‘𝑆)(𝐶‘((ℤRHom‘𝐾)‘𝐴))))) = (𝑂‘((𝑃𝐷𝑋)(+_g‘𝑆)(𝐶‘((ℤRHom‘𝐾)‘𝐴)))))
100	99	fveq1d 6883	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((𝑂‘(𝑃𝐷(𝑋(+_g‘𝑆)(𝐶‘((ℤRHom‘𝐾)‘𝐴)))))‘𝑦) = ((𝑂‘((𝑃𝐷𝑋)(+_g‘𝑆)(𝐶‘((ℤRHom‘𝐾)‘𝐴))))‘𝑦))
101	100	eqcomd 2769	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((𝑂‘((𝑃𝐷𝑋)(+_g‘𝑆)(𝐶‘((ℤRHom‘𝐾)‘𝐴))))‘𝑦) = ((𝑂‘(𝑃𝐷(𝑋(+_g‘𝑆)(𝐶‘((ℤRHom‘𝐾)‘𝐴)))))‘𝑦))
102	101	adantr 485	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑦 ∈ (Base‘𝐾)) → ((𝑂‘((𝑃𝐷𝑋)(+_g‘𝑆)(𝐶‘((ℤRHom‘𝐾)‘𝐴))))‘𝑦) = ((𝑂‘(𝑃𝐷(𝑋(+_g‘𝑆)(𝐶‘((ℤRHom‘𝐾)‘𝐴)))))‘𝑦))
103	28, 29, 15, 30, 31, 32, 37, 55, 90, 59	evl1addd 22510	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑦 ∈ (Base‘𝐾)) → ((𝑋(+_g‘𝑆)(𝐶‘((ℤRHom‘𝐾)‘𝐴))) ∈ 𝐵 ∧ ((𝑂‘(𝑋(+_g‘𝑆)(𝐶‘((ℤRHom‘𝐾)‘𝐴))))‘𝑦) = (𝑦(+_g‘𝐾)((ℤRHom‘𝐾)‘𝐴))))
104	28, 29, 15, 30, 31, 32, 103, 86, 88, 72	evl1expd 22514	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑦 ∈ (Base‘𝐾)) → ((𝑃𝐷(𝑋(+_g‘𝑆)(𝐶‘((ℤRHom‘𝐾)‘𝐴)))) ∈ 𝐵 ∧ ((𝑂‘(𝑃𝐷(𝑋(+_g‘𝑆)(𝐶‘((ℤRHom‘𝐾)‘𝐴)))))‘𝑦) = (𝑃 ↑ (𝑦(+_g‘𝐾)((ℤRHom‘𝐾)‘𝐴)))))
105	104	simprd 500	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑦 ∈ (Base‘𝐾)) → ((𝑂‘(𝑃𝐷(𝑋(+_g‘𝑆)(𝐶‘((ℤRHom‘𝐾)‘𝐴)))))‘𝑦) = (𝑃 ↑ (𝑦(+_g‘𝐾)((ℤRHom‘𝐾)‘𝐴))))
106	95, 102, 105	3eqtrd 2802	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑦 ∈ (Base‘𝐾)) → ((𝑃 ↑ 𝑦)(+_g‘𝐾)((ℤRHom‘𝐾)‘𝐴)) = (𝑃 ↑ (𝑦(+_g‘𝐾)((ℤRHom‘𝐾)‘𝐴))))
107	82, 106	eqtrd 2798	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑦 ∈ (Base‘𝐾)) → ((𝑂‘𝐹)‘(𝑃 ↑ 𝑦)) = (𝑃 ↑ (𝑦(+_g‘𝐾)((ℤRHom‘𝐾)‘𝐴))))
108	107	eqcomd 2769	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑦 ∈ (Base‘𝐾)) → (𝑃 ↑ (𝑦(+_g‘𝐾)((ℤRHom‘𝐾)‘𝐴))) = ((𝑂‘𝐹)‘(𝑃 ↑ 𝑦)))
109	63, 108	eqtrd 2798	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑦 ∈ (Base‘𝐾)) → (𝑃 ↑ ((𝑂‘𝐹)‘𝑦)) = ((𝑂‘𝐹)‘(𝑃 ↑ 𝑦)))
110	109	adantlr 727	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑦 ∈ (𝑉 PrimRoots 𝑅)) ∧ 𝑦 ∈ (Base‘𝐾)) → (𝑃 ↑ ((𝑂‘𝐹)‘𝑦)) = ((𝑂‘𝐹)‘(𝑃 ↑ 𝑦)))
111	110	ex 417	. . . . . 6 ⊢ ((𝜑 ∧ 𝑦 ∈ (𝑉 PrimRoots 𝑅)) → (𝑦 ∈ (Base‘𝐾) → (𝑃 ↑ ((𝑂‘𝐹)‘𝑦)) = ((𝑂‘𝐹)‘(𝑃 ↑ 𝑦))))
112	111	ex 417	. . . . 5 ⊢ (𝜑 → (𝑦 ∈ (𝑉 PrimRoots 𝑅) → (𝑦 ∈ (Base‘𝐾) → (𝑃 ↑ ((𝑂‘𝐹)‘𝑦)) = ((𝑂‘𝐹)‘(𝑃 ↑ 𝑦)))))
113	22, 112	mpdd 44	. . . 4 ⊢ (𝜑 → (𝑦 ∈ (𝑉 PrimRoots 𝑅) → (𝑃 ↑ ((𝑂‘𝐹)‘𝑦)) = ((𝑂‘𝐹)‘(𝑃 ↑ 𝑦))))
114	113	imp 411	. . 3 ⊢ ((𝜑 ∧ 𝑦 ∈ (𝑉 PrimRoots 𝑅)) → (𝑃 ↑ ((𝑂‘𝐹)‘𝑦)) = ((𝑂‘𝐹)‘(𝑃 ↑ 𝑦)))
115	114	ralrimiva 3157	. 2 ⊢ (𝜑 → ∀𝑦 ∈ (𝑉 PrimRoots 𝑅)(𝑃 ↑ ((𝑂‘𝐹)‘𝑦)) = ((𝑂‘𝐹)‘(𝑃 ↑ 𝑦)))
116		aks6d1c1p2.1	. . 3 ⊢ ∼ = {⟨𝑒, 𝑓⟩ ∣ (𝑒 ∈ ℕ ∧ 𝑓 ∈ 𝐵 ∧ ∀𝑦 ∈ (𝑉 PrimRoots 𝑅)(𝑒 ↑ ((𝑂‘𝑓)‘𝑦)) = ((𝑂‘𝑓)‘(𝑒 ↑ 𝑦)))}
117	29	ply1crng 22367	. . . . . . . . 9 ⊢ (𝐾 ∈ CRing → 𝑆 ∈ CRing)
118	4, 117	syl 18	. . . . . . . 8 ⊢ (𝜑 → 𝑆 ∈ CRing)
119		crngring 20331	. . . . . . . 8 ⊢ (𝑆 ∈ CRing → 𝑆 ∈ Ring)
120	118, 119	syl 18	. . . . . . 7 ⊢ (𝜑 → 𝑆 ∈ Ring)
121	120	ringgrpd 20328	. . . . . 6 ⊢ (𝜑 → 𝑆 ∈ Grp)
122	41, 35	syl 18	. . . . . 6 ⊢ (𝜑 → 𝑋 ∈ 𝐵)
123	121, 122, 52	3jca 1146	. . . . 5 ⊢ (𝜑 → (𝑆 ∈ Grp ∧ 𝑋 ∈ 𝐵 ∧ (𝐶‘((ℤRHom‘𝐾)‘𝐴)) ∈ 𝐵))
124	30, 58	grpcl 19012	. . . . 5 ⊢ ((𝑆 ∈ Grp ∧ 𝑋 ∈ 𝐵 ∧ (𝐶‘((ℤRHom‘𝐾)‘𝐴)) ∈ 𝐵) → (𝑋 + (𝐶‘((ℤRHom‘𝐾)‘𝐴))) ∈ 𝐵)
125	123, 124	syl 18	. . . 4 ⊢ (𝜑 → (𝑋 + (𝐶‘((ℤRHom‘𝐾)‘𝐴))) ∈ 𝐵)
126	23	a1i 11	. . . . 5 ⊢ (𝜑 → 𝐹 = (𝑋 + (𝐶‘((ℤRHom‘𝐾)‘𝐴))))
127	126	eleq1d 2848	. . . 4 ⊢ (𝜑 → (𝐹 ∈ 𝐵 ↔ (𝑋 + (𝐶‘((ℤRHom‘𝐾)‘𝐴))) ∈ 𝐵))
128	125, 127	mpbird 260	. . 3 ⊢ (𝜑 → 𝐹 ∈ 𝐵)
129	116, 128, 70	aks6d1c1p1 42902	. 2 ⊢ (𝜑 → (𝑃 ∼ 𝐹 ↔ ∀𝑦 ∈ (𝑉 PrimRoots 𝑅)(𝑃 ↑ ((𝑂‘𝐹)‘𝑦)) = ((𝑂‘𝐹)‘(𝑃 ↑ 𝑦))))
130	115, 129	mpbird 260	1 ⊢ (𝜑 → 𝑃 ∼ 𝐹)

Colors of variables: wff setvar class

This proof depends on syntax axioms: → wi 4 ∧ wa 400 ∧ w3a 1103 = wceq 1570 ∈ wcel 2143 ∀wral 3079 class class class wbr 5109 {copab 5173 ⟶wf 6532 ‘cfv 6536 (class class class)co 7410 1c1 11105 ℕcn 12237 ℕ₀cn0 12508 ℤcz 12595 ∥ cdvds 16314 gcd cgcd 16556 ℙcprime 16733 Basecbs 17273 +_gcplusg 17314 0_gc0g 17496 Mndcmnd 18796 Grpcgrp 19004 ._gcmg 19137 GrpHom cghm 19287 CMndccmn 19854 mulGrpcmgp 20220 Ringcrg 20319 CRingccrg 20320 RingHom crh 20556 DivRingcdr 20836 Fieldcfield 20837 ℤ_ringczring 21605 ℤRHomczrh 21658 chrcchr 21660 algSccascl 22011 var₁cv1 22345 Poly₁cpl1 22346 eval₁ce1 22483 PrimRoots cprimroots 42886

This proof depends on axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1825 ax-4 1839 ax-5 1940 ax-6 1997 ax-7 2038 ax-8 2145 ax-9 2153 ax-10 2176 ax-11 2192 ax-12 2213 ax-ext 2735 ax-rep 5238 ax-sep 5257 ax-nul 5269 ax-pow 5336 ax-pr 5404 ax-un 7732 ax-cnex 11160 ax-resscn 11161 ax-1cn 11162 ax-icn 11163 ax-addcl 11164 ax-addrcl 11165 ax-mulcl 11166 ax-mulrcl 11167 ax-mulcom 11168 ax-addass 11169 ax-mulass 11170 ax-distr 11171 ax-i2m1 11172 ax-1ne0 11173 ax-1rid 11174 ax-rnegex 11175 ax-rrecex 11176 ax-cnre 11177 ax-pre-lttri 11178 ax-pre-lttrn 11179 ax-pre-ltadd 11180 ax-pre-mulgt0 11181 ax-pre-sup 11182 ax-addf 11183 ax-mulf 11184

This proof depends on definitions: df-bi 210 df-an 401 df-or 861 df-3or 1104 df-3an 1105 df-tru 1573 df-fal 1583 df-ex 1810 df-nf 1814 df-sb 2097 df-mo 2567 df-eu 2597 df-clab 2742 df-cleq 2755 df-clel 2838 df-nfc 2912 df-ne 2959 df-nel 3065 df-ral 3080 df-rex 3090 df-rmo 3369 df-reu 3370 df-rab 3417 df-v 3457 df-sbc 3745 df-csb 3854 df-dif 3908 df-un 3910 df-in 3912 df-ss 3922 df-pss 3925 df-nul 4287 df-if 4488 df-pw 4564 df-sn 4590 df-pr 4592 df-tp 4594 df-op 4596 df-uni 4873 df-int 4913 df-iun 4958 df-iin 4959 df-br 5110 df-opab 5174 df-mpt 5193 df-tr 5219 df-id 5556 df-eprel 5561 df-po 5569 df-so 5570 df-fr 5614 df-se 5615 df-we 5616 df-xp 5667 df-rel 5668 df-cnv 5669 df-co 5670 df-dm 5671 df-rn 5672 df-res 5673 df-ima 5674 df-pred 6302 df-ord 6363 df-on 6364 df-lim 6365 df-suc 6366 df-iota 6492 df-fun 6538 df-fn 6539 df-f 6540 df-f1 6541 df-fo 6542 df-f1o 6543 df-fv 6544 df-isom 6545 df-riota 7367 df-ov 7413 df-oprab 7414 df-mpo 7415 df-of 7674 df-ofr 7675 df-om 7859 df-1st 7982 df-2nd 7983 df-supp 8153 df-tpos 8218 df-frecs 8274 df-wrecs 8305 df-recs 8354 df-rdg 8393 df-1o 8449 df-2o 8450 df-oadd 8453 df-er 8690 df-map 8822 df-pm 8823 df-ixp 8892 df-en 8940 df-dom 8941 df-sdom 8942 df-fin 8943 df-fsupp 9318 df-sup 9398 df-inf 9399 df-oi 9468 df-dju 9892 df-card 9930 df-pnf 11249 df-mnf 11250 df-xr 11251 df-ltxr 11252 df-le 11253 df-sub 11447 df-neg 11448 df-div 11876 df-nn 12238 df-2 12307 df-3 12308 df-4 12309 df-5 12310 df-6 12311 df-7 12312 df-8 12313 df-9 12314 df-n0 12509 df-xnn0 12582 df-z 12596 df-dec 12716 df-uz 12867 df-rp 13021 df-fz 13540 df-fzo 13688 df-fl 13830 df-mod 13908 df-seq 14043 df-exp 14103 df-fac 14315 df-bc 14344 df-hash 14372 df-cj 15155 df-re 15156 df-im 15157 df-sqrt 15291 df-abs 15292 df-dvds 16315 df-gcd 16557 df-prm 16734 df-phi 16829 df-struct 17211 df-sets 17228 df-slot 17246 df-ndx 17258 df-base 17274 df-ress 17295 df-plusg 17327 df-mulr 17328 df-starv 17329 df-sca 17330 df-vsca 17331 df-ip 17332 df-tset 17333 df-ple 17334 df-ds 17336 df-unif 17337 df-hom 17338 df-cco 17339 df-0g 17498 df-gsum 17499 df-prds 17504 df-pws 17506 df-mre 17642 df-mrc 17643 df-acs 17645 df-mgm 18702 df-sgrp 18781 df-mnd 18797 df-mhm 18845 df-submnd 18846 df-grp 19007 df-minusg 19008 df-sbg 19009 df-mulg 19138 df-subg 19193 df-ghm 19288 df-cntz 19391 df-od 19602 df-cmn 19856 df-abl 19857 df-mgp 20221 df-rng 20235 df-ur 20268 df-srg 20273 df-ring 20321 df-cring 20322 df-oppr 20424 df-dvdsr 20444 df-unit 20445 df-invr 20475 df-dvr 20488 df-rhm 20559 df-subrng 20654 df-subrg 20678 df-drng 20838 df-field 20839 df-lmod 20992 df-lss 21062 df-lsp 21102 df-cnfld 21532 df-zring 21606 df-zrh 21662 df-chr 21664 df-assa 22012 df-asp 22013 df-ascl 22014 df-psr 22068 df-mvr 22069 df-mpl 22070 df-opsr 22072 df-evls 22234 df-evl 22235 df-psr1 22349 df-vr1 22350 df-ply1 22351 df-coe1 22352 df-evl1 22485 df-primroots 42887

This theorem is used by: aks6d1c1 42911

W3C validator