aks5lem5a - Mathbox for metakunt

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

Theorem aks5lem5a 42561

Description: Lemma for AKS, section 5, connect to Theorem 6.1. (Contributed by metakunt, 17-Jun-2025.)

**Hypotheses**
Ref	Expression
aks5lema.1	⊢ (𝜑 → 𝐾 ∈ Field)
aks5lema.2	⊢ 𝑃 = (chr‘𝐾)
aks5lema.3	⊢ (𝜑 → (𝑃 ∈ ℙ ∧ 𝑁 ∈ ℕ ∧ 𝑃 ∥ 𝑁))
aks5lema.9	⊢ 𝐵 = (𝑆 /_s (𝑆 ~_QG 𝐿))
aks5lema.10	⊢ 𝐿 = ((RSpan‘𝑆)‘{((𝑅(._g‘(mulGrp‘𝑆))(var₁‘(ℤ/nℤ‘𝑁)))(-_g‘𝑆)(1_r‘𝑆))})
aks5lema.11	⊢ (𝜑 → 𝑅 ∈ ℕ)
aks5lema.14	⊢ ∼ = {⟨𝑒, 𝑓⟩ ∣ (𝑒 ∈ ℕ ∧ 𝑓 ∈ (Base‘(Poly₁‘𝐾)) ∧ ∀𝑦 ∈ ((mulGrp‘𝐾) PrimRoots 𝑅)(𝑒(._g‘(mulGrp‘𝐾))(((eval₁‘𝐾)‘𝑓)‘𝑦)) = (((eval₁‘𝐾)‘𝑓)‘(𝑒(._g‘(mulGrp‘𝐾))𝑦)))}
aks5lema.15	⊢ 𝑆 = (Poly₁‘(ℤ/nℤ‘𝑁))
aks5lem5a.13	⊢ (𝜑 → ∀𝑎 ∈ (1...𝐴)[(𝑁(._g‘(mulGrp‘𝑆))((var₁‘(ℤ/nℤ‘𝑁))(+_g‘𝑆)((ℤRHom‘𝑆)‘𝑎)))](𝑆 ~_QG 𝐿) = [((𝑁(._g‘(mulGrp‘𝑆))(var₁‘(ℤ/nℤ‘𝑁)))(+_g‘𝑆)((ℤRHom‘𝑆)‘𝑎))](𝑆 ~_QG 𝐿))

**Assertion**
Ref	Expression
aks5lem5a	⊢ (𝜑 → ∀𝑎 ∈ (1...𝐴)𝑁 ∼ ((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑎))))

Distinct variable groups: 𝑦,𝐴 𝐵,𝑒 𝑒,𝐾,𝑓,𝑦 𝑦,𝐿 𝑒,𝑁,𝑓,𝑦 𝑅,𝑒,𝑓 𝑦,𝑆 𝑒,𝑎,𝑓,𝑦 𝜑,𝑎,𝑦 Allowed substitution hints: 𝜑(𝑒,𝑓) 𝐴(𝑒,𝑓,𝑎) 𝐵(𝑦,𝑓,𝑎) 𝑃(𝑦,𝑒,𝑓,𝑎) ∼ (𝑦,𝑒,𝑓,𝑎) 𝑅(𝑦,𝑎) 𝑆(𝑒,𝑓,𝑎) 𝐾(𝑎) 𝐿(𝑒,𝑓,𝑎) 𝑁(𝑎)

**Proof of Theorem aks5lem5a**
Step	Hyp	Ref	Expression
1		aks5lem5a.13	. 2 ⊢ (𝜑 → ∀𝑎 ∈ (1...𝐴)[(𝑁(._g‘(mulGrp‘𝑆))((var₁‘(ℤ/nℤ‘𝑁))(+_g‘𝑆)((ℤRHom‘𝑆)‘𝑎)))](𝑆 ~_QG 𝐿) = [((𝑁(._g‘(mulGrp‘𝑆))(var₁‘(ℤ/nℤ‘𝑁)))(+_g‘𝑆)((ℤRHom‘𝑆)‘𝑎))](𝑆 ~_QG 𝐿))
2		aks5lema.1	. . . . . . . 8 ⊢ (𝜑 → 𝐾 ∈ Field)
3	2	ad3antrrr 731	. . . . . . 7 ⊢ ((((𝜑 ∧ 𝑎 ∈ (1...𝐴)) ∧ [(𝑁(._g‘(mulGrp‘𝑆))((var₁‘(ℤ/nℤ‘𝑁))(+_g‘𝑆)((ℤRHom‘𝑆)‘𝑎)))](𝑆 ~_QG 𝐿) = [((𝑁(._g‘(mulGrp‘𝑆))(var₁‘(ℤ/nℤ‘𝑁)))(+_g‘𝑆)((ℤRHom‘𝑆)‘𝑎))](𝑆 ~_QG 𝐿)) ∧ 𝑦 ∈ ((mulGrp‘𝐾) PrimRoots 𝑅)) → 𝐾 ∈ Field)
4		aks5lema.2	. . . . . . 7 ⊢ 𝑃 = (chr‘𝐾)
5		aks5lema.3	. . . . . . . 8 ⊢ (𝜑 → (𝑃 ∈ ℙ ∧ 𝑁 ∈ ℕ ∧ 𝑃 ∥ 𝑁))
6	5	ad3antrrr 731	. . . . . . 7 ⊢ ((((𝜑 ∧ 𝑎 ∈ (1...𝐴)) ∧ [(𝑁(._g‘(mulGrp‘𝑆))((var₁‘(ℤ/nℤ‘𝑁))(+_g‘𝑆)((ℤRHom‘𝑆)‘𝑎)))](𝑆 ~_QG 𝐿) = [((𝑁(._g‘(mulGrp‘𝑆))(var₁‘(ℤ/nℤ‘𝑁)))(+_g‘𝑆)((ℤRHom‘𝑆)‘𝑎))](𝑆 ~_QG 𝐿)) ∧ 𝑦 ∈ ((mulGrp‘𝐾) PrimRoots 𝑅)) → (𝑃 ∈ ℙ ∧ 𝑁 ∈ ℕ ∧ 𝑃 ∥ 𝑁))
7		aks5lema.9	. . . . . . 7 ⊢ 𝐵 = (𝑆 /_s (𝑆 ~_QG 𝐿))
8		aks5lema.10	. . . . . . 7 ⊢ 𝐿 = ((RSpan‘𝑆)‘{((𝑅(._g‘(mulGrp‘𝑆))(var₁‘(ℤ/nℤ‘𝑁)))(-_g‘𝑆)(1_r‘𝑆))})
9		aks5lema.11	. . . . . . . 8 ⊢ (𝜑 → 𝑅 ∈ ℕ)
10	9	ad3antrrr 731	. . . . . . 7 ⊢ ((((𝜑 ∧ 𝑎 ∈ (1...𝐴)) ∧ [(𝑁(._g‘(mulGrp‘𝑆))((var₁‘(ℤ/nℤ‘𝑁))(+_g‘𝑆)((ℤRHom‘𝑆)‘𝑎)))](𝑆 ~_QG 𝐿) = [((𝑁(._g‘(mulGrp‘𝑆))(var₁‘(ℤ/nℤ‘𝑁)))(+_g‘𝑆)((ℤRHom‘𝑆)‘𝑎))](𝑆 ~_QG 𝐿)) ∧ 𝑦 ∈ ((mulGrp‘𝐾) PrimRoots 𝑅)) → 𝑅 ∈ ℕ)
11		aks5lema.14	. . . . . . 7 ⊢ ∼ = {⟨𝑒, 𝑓⟩ ∣ (𝑒 ∈ ℕ ∧ 𝑓 ∈ (Base‘(Poly₁‘𝐾)) ∧ ∀𝑦 ∈ ((mulGrp‘𝐾) PrimRoots 𝑅)(𝑒(._g‘(mulGrp‘𝐾))(((eval₁‘𝐾)‘𝑓)‘𝑦)) = (((eval₁‘𝐾)‘𝑓)‘(𝑒(._g‘(mulGrp‘𝐾))𝑦)))}
12		aks5lema.15	. . . . . . 7 ⊢ 𝑆 = (Poly₁‘(ℤ/nℤ‘𝑁))
13		simpr 484	. . . . . . 7 ⊢ ((((𝜑 ∧ 𝑎 ∈ (1...𝐴)) ∧ [(𝑁(._g‘(mulGrp‘𝑆))((var₁‘(ℤ/nℤ‘𝑁))(+_g‘𝑆)((ℤRHom‘𝑆)‘𝑎)))](𝑆 ~_QG 𝐿) = [((𝑁(._g‘(mulGrp‘𝑆))(var₁‘(ℤ/nℤ‘𝑁)))(+_g‘𝑆)((ℤRHom‘𝑆)‘𝑎))](𝑆 ~_QG 𝐿)) ∧ 𝑦 ∈ ((mulGrp‘𝐾) PrimRoots 𝑅)) → 𝑦 ∈ ((mulGrp‘𝐾) PrimRoots 𝑅))
14		elfzelz 13452	. . . . . . . . . 10 ⊢ (𝑎 ∈ (1...𝐴) → 𝑎 ∈ ℤ)
15	14	adantl 481	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑎 ∈ (1...𝐴)) → 𝑎 ∈ ℤ)
16	15	adantr 480	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑎 ∈ (1...𝐴)) ∧ [(𝑁(._g‘(mulGrp‘𝑆))((var₁‘(ℤ/nℤ‘𝑁))(+_g‘𝑆)((ℤRHom‘𝑆)‘𝑎)))](𝑆 ~_QG 𝐿) = [((𝑁(._g‘(mulGrp‘𝑆))(var₁‘(ℤ/nℤ‘𝑁)))(+_g‘𝑆)((ℤRHom‘𝑆)‘𝑎))](𝑆 ~_QG 𝐿)) → 𝑎 ∈ ℤ)
17	16	adantr 480	. . . . . . 7 ⊢ ((((𝜑 ∧ 𝑎 ∈ (1...𝐴)) ∧ [(𝑁(._g‘(mulGrp‘𝑆))((var₁‘(ℤ/nℤ‘𝑁))(+_g‘𝑆)((ℤRHom‘𝑆)‘𝑎)))](𝑆 ~_QG 𝐿) = [((𝑁(._g‘(mulGrp‘𝑆))(var₁‘(ℤ/nℤ‘𝑁)))(+_g‘𝑆)((ℤRHom‘𝑆)‘𝑎))](𝑆 ~_QG 𝐿)) ∧ 𝑦 ∈ ((mulGrp‘𝐾) PrimRoots 𝑅)) → 𝑎 ∈ ℤ)
18		eqid 2737	. . . . . . . . . . . . . 14 ⊢ (algSc‘𝑆) = (algSc‘𝑆)
19		eqid 2737	. . . . . . . . . . . . . 14 ⊢ (ℤRHom‘𝑆) = (ℤRHom‘𝑆)
20		eqid 2737	. . . . . . . . . . . . . 14 ⊢ (ℤRHom‘(ℤ/nℤ‘𝑁)) = (ℤRHom‘(ℤ/nℤ‘𝑁))
21	5	simp2d 1144	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 𝑁 ∈ ℕ)
22	21	adantr 480	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑎 ∈ (1...𝐴)) → 𝑁 ∈ ℕ)
23	22	nnnn0d 12474	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑎 ∈ (1...𝐴)) → 𝑁 ∈ ℕ₀)
24		eqid 2737	. . . . . . . . . . . . . . . 16 ⊢ (ℤ/nℤ‘𝑁) = (ℤ/nℤ‘𝑁)
25	24	zncrng 21511	. . . . . . . . . . . . . . 15 ⊢ (𝑁 ∈ ℕ₀ → (ℤ/nℤ‘𝑁) ∈ CRing)
26	23, 25	syl 17	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑎 ∈ (1...𝐴)) → (ℤ/nℤ‘𝑁) ∈ CRing)
27	12, 18, 19, 20, 26, 15	ply1asclzrhval 42558	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑎 ∈ (1...𝐴)) → ((algSc‘𝑆)‘((ℤRHom‘(ℤ/nℤ‘𝑁))‘𝑎)) = ((ℤRHom‘𝑆)‘𝑎))
28	27	oveq2d 7384	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑎 ∈ (1...𝐴)) → ((var₁‘(ℤ/nℤ‘𝑁))(+_g‘𝑆)((algSc‘𝑆)‘((ℤRHom‘(ℤ/nℤ‘𝑁))‘𝑎))) = ((var₁‘(ℤ/nℤ‘𝑁))(+_g‘𝑆)((ℤRHom‘𝑆)‘𝑎)))
29	28	oveq2d 7384	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑎 ∈ (1...𝐴)) → (𝑁(._g‘(mulGrp‘𝑆))((var₁‘(ℤ/nℤ‘𝑁))(+_g‘𝑆)((algSc‘𝑆)‘((ℤRHom‘(ℤ/nℤ‘𝑁))‘𝑎)))) = (𝑁(._g‘(mulGrp‘𝑆))((var₁‘(ℤ/nℤ‘𝑁))(+_g‘𝑆)((ℤRHom‘𝑆)‘𝑎))))
30	29	eceq1d 8686	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑎 ∈ (1...𝐴)) → [(𝑁(._g‘(mulGrp‘𝑆))((var₁‘(ℤ/nℤ‘𝑁))(+_g‘𝑆)((algSc‘𝑆)‘((ℤRHom‘(ℤ/nℤ‘𝑁))‘𝑎))))](𝑆 ~_QG 𝐿) = [(𝑁(._g‘(mulGrp‘𝑆))((var₁‘(ℤ/nℤ‘𝑁))(+_g‘𝑆)((ℤRHom‘𝑆)‘𝑎)))](𝑆 ~_QG 𝐿))
31	30	adantr 480	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑎 ∈ (1...𝐴)) ∧ [(𝑁(._g‘(mulGrp‘𝑆))((var₁‘(ℤ/nℤ‘𝑁))(+_g‘𝑆)((ℤRHom‘𝑆)‘𝑎)))](𝑆 ~_QG 𝐿) = [((𝑁(._g‘(mulGrp‘𝑆))(var₁‘(ℤ/nℤ‘𝑁)))(+_g‘𝑆)((ℤRHom‘𝑆)‘𝑎))](𝑆 ~_QG 𝐿)) → [(𝑁(._g‘(mulGrp‘𝑆))((var₁‘(ℤ/nℤ‘𝑁))(+_g‘𝑆)((algSc‘𝑆)‘((ℤRHom‘(ℤ/nℤ‘𝑁))‘𝑎))))](𝑆 ~_QG 𝐿) = [(𝑁(._g‘(mulGrp‘𝑆))((var₁‘(ℤ/nℤ‘𝑁))(+_g‘𝑆)((ℤRHom‘𝑆)‘𝑎)))](𝑆 ~_QG 𝐿))
32		simpr 484	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑎 ∈ (1...𝐴)) ∧ [(𝑁(._g‘(mulGrp‘𝑆))((var₁‘(ℤ/nℤ‘𝑁))(+_g‘𝑆)((ℤRHom‘𝑆)‘𝑎)))](𝑆 ~_QG 𝐿) = [((𝑁(._g‘(mulGrp‘𝑆))(var₁‘(ℤ/nℤ‘𝑁)))(+_g‘𝑆)((ℤRHom‘𝑆)‘𝑎))](𝑆 ~_QG 𝐿)) → [(𝑁(._g‘(mulGrp‘𝑆))((var₁‘(ℤ/nℤ‘𝑁))(+_g‘𝑆)((ℤRHom‘𝑆)‘𝑎)))](𝑆 ~_QG 𝐿) = [((𝑁(._g‘(mulGrp‘𝑆))(var₁‘(ℤ/nℤ‘𝑁)))(+_g‘𝑆)((ℤRHom‘𝑆)‘𝑎))](𝑆 ~_QG 𝐿))
33	27	eqcomd 2743	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑎 ∈ (1...𝐴)) → ((ℤRHom‘𝑆)‘𝑎) = ((algSc‘𝑆)‘((ℤRHom‘(ℤ/nℤ‘𝑁))‘𝑎)))
34	33	oveq2d 7384	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑎 ∈ (1...𝐴)) → ((𝑁(._g‘(mulGrp‘𝑆))(var₁‘(ℤ/nℤ‘𝑁)))(+_g‘𝑆)((ℤRHom‘𝑆)‘𝑎)) = ((𝑁(._g‘(mulGrp‘𝑆))(var₁‘(ℤ/nℤ‘𝑁)))(+_g‘𝑆)((algSc‘𝑆)‘((ℤRHom‘(ℤ/nℤ‘𝑁))‘𝑎))))
35	34	eceq1d 8686	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑎 ∈ (1...𝐴)) → [((𝑁(._g‘(mulGrp‘𝑆))(var₁‘(ℤ/nℤ‘𝑁)))(+_g‘𝑆)((ℤRHom‘𝑆)‘𝑎))](𝑆 ~_QG 𝐿) = [((𝑁(._g‘(mulGrp‘𝑆))(var₁‘(ℤ/nℤ‘𝑁)))(+_g‘𝑆)((algSc‘𝑆)‘((ℤRHom‘(ℤ/nℤ‘𝑁))‘𝑎)))](𝑆 ~_QG 𝐿))
36	35	adantr 480	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑎 ∈ (1...𝐴)) ∧ [(𝑁(._g‘(mulGrp‘𝑆))((var₁‘(ℤ/nℤ‘𝑁))(+_g‘𝑆)((ℤRHom‘𝑆)‘𝑎)))](𝑆 ~_QG 𝐿) = [((𝑁(._g‘(mulGrp‘𝑆))(var₁‘(ℤ/nℤ‘𝑁)))(+_g‘𝑆)((ℤRHom‘𝑆)‘𝑎))](𝑆 ~_QG 𝐿)) → [((𝑁(._g‘(mulGrp‘𝑆))(var₁‘(ℤ/nℤ‘𝑁)))(+_g‘𝑆)((ℤRHom‘𝑆)‘𝑎))](𝑆 ~_QG 𝐿) = [((𝑁(._g‘(mulGrp‘𝑆))(var₁‘(ℤ/nℤ‘𝑁)))(+_g‘𝑆)((algSc‘𝑆)‘((ℤRHom‘(ℤ/nℤ‘𝑁))‘𝑎)))](𝑆 ~_QG 𝐿))
37	31, 32, 36	3eqtrd 2776	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑎 ∈ (1...𝐴)) ∧ [(𝑁(._g‘(mulGrp‘𝑆))((var₁‘(ℤ/nℤ‘𝑁))(+_g‘𝑆)((ℤRHom‘𝑆)‘𝑎)))](𝑆 ~_QG 𝐿) = [((𝑁(._g‘(mulGrp‘𝑆))(var₁‘(ℤ/nℤ‘𝑁)))(+_g‘𝑆)((ℤRHom‘𝑆)‘𝑎))](𝑆 ~_QG 𝐿)) → [(𝑁(._g‘(mulGrp‘𝑆))((var₁‘(ℤ/nℤ‘𝑁))(+_g‘𝑆)((algSc‘𝑆)‘((ℤRHom‘(ℤ/nℤ‘𝑁))‘𝑎))))](𝑆 ~_QG 𝐿) = [((𝑁(._g‘(mulGrp‘𝑆))(var₁‘(ℤ/nℤ‘𝑁)))(+_g‘𝑆)((algSc‘𝑆)‘((ℤRHom‘(ℤ/nℤ‘𝑁))‘𝑎)))](𝑆 ~_QG 𝐿))
38	37	adantr 480	. . . . . . 7 ⊢ ((((𝜑 ∧ 𝑎 ∈ (1...𝐴)) ∧ [(𝑁(._g‘(mulGrp‘𝑆))((var₁‘(ℤ/nℤ‘𝑁))(+_g‘𝑆)((ℤRHom‘𝑆)‘𝑎)))](𝑆 ~_QG 𝐿) = [((𝑁(._g‘(mulGrp‘𝑆))(var₁‘(ℤ/nℤ‘𝑁)))(+_g‘𝑆)((ℤRHom‘𝑆)‘𝑎))](𝑆 ~_QG 𝐿)) ∧ 𝑦 ∈ ((mulGrp‘𝐾) PrimRoots 𝑅)) → [(𝑁(._g‘(mulGrp‘𝑆))((var₁‘(ℤ/nℤ‘𝑁))(+_g‘𝑆)((algSc‘𝑆)‘((ℤRHom‘(ℤ/nℤ‘𝑁))‘𝑎))))](𝑆 ~_QG 𝐿) = [((𝑁(._g‘(mulGrp‘𝑆))(var₁‘(ℤ/nℤ‘𝑁)))(+_g‘𝑆)((algSc‘𝑆)‘((ℤRHom‘(ℤ/nℤ‘𝑁))‘𝑎)))](𝑆 ~_QG 𝐿))
39	3, 4, 6, 7, 8, 10, 11, 12, 13, 17, 38	aks5lem4a 42560	. . . . . 6 ⊢ ((((𝜑 ∧ 𝑎 ∈ (1...𝐴)) ∧ [(𝑁(._g‘(mulGrp‘𝑆))((var₁‘(ℤ/nℤ‘𝑁))(+_g‘𝑆)((ℤRHom‘𝑆)‘𝑎)))](𝑆 ~_QG 𝐿) = [((𝑁(._g‘(mulGrp‘𝑆))(var₁‘(ℤ/nℤ‘𝑁)))(+_g‘𝑆)((ℤRHom‘𝑆)‘𝑎))](𝑆 ~_QG 𝐿)) ∧ 𝑦 ∈ ((mulGrp‘𝐾) PrimRoots 𝑅)) → (𝑁(._g‘(mulGrp‘𝐾))(((eval₁‘𝐾)‘((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑎))))‘𝑦)) = (((eval₁‘𝐾)‘((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑎))))‘(𝑁(._g‘(mulGrp‘𝐾))𝑦)))
40	39	ralrimiva 3130	. . . . 5 ⊢ (((𝜑 ∧ 𝑎 ∈ (1...𝐴)) ∧ [(𝑁(._g‘(mulGrp‘𝑆))((var₁‘(ℤ/nℤ‘𝑁))(+_g‘𝑆)((ℤRHom‘𝑆)‘𝑎)))](𝑆 ~_QG 𝐿) = [((𝑁(._g‘(mulGrp‘𝑆))(var₁‘(ℤ/nℤ‘𝑁)))(+_g‘𝑆)((ℤRHom‘𝑆)‘𝑎))](𝑆 ~_QG 𝐿)) → ∀𝑦 ∈ ((mulGrp‘𝐾) PrimRoots 𝑅)(𝑁(._g‘(mulGrp‘𝐾))(((eval₁‘𝐾)‘((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑎))))‘𝑦)) = (((eval₁‘𝐾)‘((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑎))))‘(𝑁(._g‘(mulGrp‘𝐾))𝑦)))
41		eqid 2737	. . . . . . . . . 10 ⊢ (Poly₁‘𝐾) = (Poly₁‘𝐾)
42		eqid 2737	. . . . . . . . . 10 ⊢ (algSc‘(Poly₁‘𝐾)) = (algSc‘(Poly₁‘𝐾))
43		eqid 2737	. . . . . . . . . 10 ⊢ (ℤRHom‘(Poly₁‘𝐾)) = (ℤRHom‘(Poly₁‘𝐾))
44		eqid 2737	. . . . . . . . . 10 ⊢ (ℤRHom‘𝐾) = (ℤRHom‘𝐾)
45	2	fldcrngd 20687	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐾 ∈ CRing)
46	45	adantr 480	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑎 ∈ (1...𝐴)) → 𝐾 ∈ CRing)
47	41, 42, 43, 44, 46, 15	ply1asclzrhval 42558	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑎 ∈ (1...𝐴)) → ((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑎)) = ((ℤRHom‘(Poly₁‘𝐾))‘𝑎))
48	47	oveq2d 7384	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑎 ∈ (1...𝐴)) → ((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑎))) = ((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((ℤRHom‘(Poly₁‘𝐾))‘𝑎)))
49		eqid 2737	. . . . . . . . 9 ⊢ (Base‘(Poly₁‘𝐾)) = (Base‘(Poly₁‘𝐾))
50		eqid 2737	. . . . . . . . 9 ⊢ (+_g‘(Poly₁‘𝐾)) = (+_g‘(Poly₁‘𝐾))
51	41	ply1crng 22151	. . . . . . . . . . . . 13 ⊢ (𝐾 ∈ CRing → (Poly₁‘𝐾) ∈ CRing)
52	45, 51	syl 17	. . . . . . . . . . . 12 ⊢ (𝜑 → (Poly₁‘𝐾) ∈ CRing)
53	52	adantr 480	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑎 ∈ (1...𝐴)) → (Poly₁‘𝐾) ∈ CRing)
54		crngring 20192	. . . . . . . . . . 11 ⊢ ((Poly₁‘𝐾) ∈ CRing → (Poly₁‘𝐾) ∈ Ring)
55	53, 54	syl 17	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑎 ∈ (1...𝐴)) → (Poly₁‘𝐾) ∈ Ring)
56	55	ringgrpd 20189	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑎 ∈ (1...𝐴)) → (Poly₁‘𝐾) ∈ Grp)
57	46	crngringd 20193	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑎 ∈ (1...𝐴)) → 𝐾 ∈ Ring)
58		eqid 2737	. . . . . . . . . . 11 ⊢ (var₁‘𝐾) = (var₁‘𝐾)
59	58, 41, 49	vr1cl 22170	. . . . . . . . . 10 ⊢ (𝐾 ∈ Ring → (var₁‘𝐾) ∈ (Base‘(Poly₁‘𝐾)))
60	57, 59	syl 17	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑎 ∈ (1...𝐴)) → (var₁‘𝐾) ∈ (Base‘(Poly₁‘𝐾)))
61	43	zrhrhm 21478	. . . . . . . . . . . 12 ⊢ ((Poly₁‘𝐾) ∈ Ring → (ℤRHom‘(Poly₁‘𝐾)) ∈ (ℤ_ring RingHom (Poly₁‘𝐾)))
62	55, 61	syl 17	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑎 ∈ (1...𝐴)) → (ℤRHom‘(Poly₁‘𝐾)) ∈ (ℤ_ring RingHom (Poly₁‘𝐾)))
63		zringbas 21420	. . . . . . . . . . . 12 ⊢ ℤ = (Base‘ℤ_ring)
64	63, 49	rhmf 20432	. . . . . . . . . . 11 ⊢ ((ℤRHom‘(Poly₁‘𝐾)) ∈ (ℤ_ring RingHom (Poly₁‘𝐾)) → (ℤRHom‘(Poly₁‘𝐾)):ℤ⟶(Base‘(Poly₁‘𝐾)))
65	62, 64	syl 17	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑎 ∈ (1...𝐴)) → (ℤRHom‘(Poly₁‘𝐾)):ℤ⟶(Base‘(Poly₁‘𝐾)))
66	65, 15	ffvelcdmd 7039	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑎 ∈ (1...𝐴)) → ((ℤRHom‘(Poly₁‘𝐾))‘𝑎) ∈ (Base‘(Poly₁‘𝐾)))
67	49, 50, 56, 60, 66	grpcld 18889	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑎 ∈ (1...𝐴)) → ((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((ℤRHom‘(Poly₁‘𝐾))‘𝑎)) ∈ (Base‘(Poly₁‘𝐾)))
68	48, 67	eqeltrd 2837	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑎 ∈ (1...𝐴)) → ((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑎))) ∈ (Base‘(Poly₁‘𝐾)))
69	68	adantr 480	. . . . . 6 ⊢ (((𝜑 ∧ 𝑎 ∈ (1...𝐴)) ∧ [(𝑁(._g‘(mulGrp‘𝑆))((var₁‘(ℤ/nℤ‘𝑁))(+_g‘𝑆)((ℤRHom‘𝑆)‘𝑎)))](𝑆 ~_QG 𝐿) = [((𝑁(._g‘(mulGrp‘𝑆))(var₁‘(ℤ/nℤ‘𝑁)))(+_g‘𝑆)((ℤRHom‘𝑆)‘𝑎))](𝑆 ~_QG 𝐿)) → ((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑎))) ∈ (Base‘(Poly₁‘𝐾)))
70	22	adantr 480	. . . . . 6 ⊢ (((𝜑 ∧ 𝑎 ∈ (1...𝐴)) ∧ [(𝑁(._g‘(mulGrp‘𝑆))((var₁‘(ℤ/nℤ‘𝑁))(+_g‘𝑆)((ℤRHom‘𝑆)‘𝑎)))](𝑆 ~_QG 𝐿) = [((𝑁(._g‘(mulGrp‘𝑆))(var₁‘(ℤ/nℤ‘𝑁)))(+_g‘𝑆)((ℤRHom‘𝑆)‘𝑎))](𝑆 ~_QG 𝐿)) → 𝑁 ∈ ℕ)
71	11, 69, 70	aks6d1c1p1 42477	. . . . 5 ⊢ (((𝜑 ∧ 𝑎 ∈ (1...𝐴)) ∧ [(𝑁(._g‘(mulGrp‘𝑆))((var₁‘(ℤ/nℤ‘𝑁))(+_g‘𝑆)((ℤRHom‘𝑆)‘𝑎)))](𝑆 ~_QG 𝐿) = [((𝑁(._g‘(mulGrp‘𝑆))(var₁‘(ℤ/nℤ‘𝑁)))(+_g‘𝑆)((ℤRHom‘𝑆)‘𝑎))](𝑆 ~_QG 𝐿)) → (𝑁 ∼ ((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑎))) ↔ ∀𝑦 ∈ ((mulGrp‘𝐾) PrimRoots 𝑅)(𝑁(._g‘(mulGrp‘𝐾))(((eval₁‘𝐾)‘((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑎))))‘𝑦)) = (((eval₁‘𝐾)‘((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑎))))‘(𝑁(._g‘(mulGrp‘𝐾))𝑦))))
72	40, 71	mpbird 257	. . . 4 ⊢ (((𝜑 ∧ 𝑎 ∈ (1...𝐴)) ∧ [(𝑁(._g‘(mulGrp‘𝑆))((var₁‘(ℤ/nℤ‘𝑁))(+_g‘𝑆)((ℤRHom‘𝑆)‘𝑎)))](𝑆 ~_QG 𝐿) = [((𝑁(._g‘(mulGrp‘𝑆))(var₁‘(ℤ/nℤ‘𝑁)))(+_g‘𝑆)((ℤRHom‘𝑆)‘𝑎))](𝑆 ~_QG 𝐿)) → 𝑁 ∼ ((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑎))))
73	72	ex 412	. . 3 ⊢ ((𝜑 ∧ 𝑎 ∈ (1...𝐴)) → ([(𝑁(._g‘(mulGrp‘𝑆))((var₁‘(ℤ/nℤ‘𝑁))(+_g‘𝑆)((ℤRHom‘𝑆)‘𝑎)))](𝑆 ~_QG 𝐿) = [((𝑁(._g‘(mulGrp‘𝑆))(var₁‘(ℤ/nℤ‘𝑁)))(+_g‘𝑆)((ℤRHom‘𝑆)‘𝑎))](𝑆 ~_QG 𝐿) → 𝑁 ∼ ((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑎)))))
74	73	ralimdva 3150	. 2 ⊢ (𝜑 → (∀𝑎 ∈ (1...𝐴)[(𝑁(._g‘(mulGrp‘𝑆))((var₁‘(ℤ/nℤ‘𝑁))(+_g‘𝑆)((ℤRHom‘𝑆)‘𝑎)))](𝑆 ~_QG 𝐿) = [((𝑁(._g‘(mulGrp‘𝑆))(var₁‘(ℤ/nℤ‘𝑁)))(+_g‘𝑆)((ℤRHom‘𝑆)‘𝑎))](𝑆 ~_QG 𝐿) → ∀𝑎 ∈ (1...𝐴)𝑁 ∼ ((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑎)))))
75	1, 74	mpd 15	1 ⊢ (𝜑 → ∀𝑎 ∈ (1...𝐴)𝑁 ∼ ((var₁‘𝐾)(+_g‘(Poly₁‘𝐾))((algSc‘(Poly₁‘𝐾))‘((ℤRHom‘𝐾)‘𝑎))))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ∧ wa 395 ∧ w3a 1087 = wceq 1542 ∈ wcel 2114 ∀wral 3052 {csn 4582 class class class wbr 5100 {copab 5162 ⟶wf 6496 ‘cfv 6500 (class class class)co 7368 [cec 8643 1c1 11039 ℕcn 12157 ℕ₀cn0 12413 ℤcz 12500 ...cfz 13435 ∥ cdvds 16191 ℙcprime 16610 Basecbs 17148 +_gcplusg 17189 /_s cqus 17438 -_gcsg 18877 ._gcmg 19009 ~_QG cqg 19064 mulGrpcmgp 20087 1_rcur 20128 Ringcrg 20180 CRingccrg 20181 RingHom crh 20417 Fieldcfield 20675 RSpancrsp 21174 ℤ_ringczring 21413 ℤRHomczrh 21466 chrcchr 21468 ℤ/nℤczn 21469 algSccascl 21819 var₁cv1 22128 Poly₁cpl1 22129 eval₁ce1 22270 PrimRoots cprimroots 42461

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1797 ax-4 1811 ax-5 1912 ax-6 1969 ax-7 2010 ax-8 2116 ax-9 2124 ax-10 2147 ax-11 2163 ax-12 2185 ax-ext 2709 ax-rep 5226 ax-sep 5243 ax-nul 5253 ax-pow 5312 ax-pr 5379 ax-un 7690 ax-cnex 11094 ax-resscn 11095 ax-1cn 11096 ax-icn 11097 ax-addcl 11098 ax-addrcl 11099 ax-mulcl 11100 ax-mulrcl 11101 ax-mulcom 11102 ax-addass 11103 ax-mulass 11104 ax-distr 11105 ax-i2m1 11106 ax-1ne0 11107 ax-1rid 11108 ax-rnegex 11109 ax-rrecex 11110 ax-cnre 11111 ax-pre-lttri 11112 ax-pre-lttrn 11113 ax-pre-ltadd 11114 ax-pre-mulgt0 11115 ax-pre-sup 11116 ax-addf 11117 ax-mulf 11118

This theorem depends on definitions: df-bi 207 df-an 396 df-or 849 df-3or 1088 df-3an 1089 df-tru 1545 df-fal 1555 df-ex 1782 df-nf 1786 df-sb 2069 df-mo 2540 df-eu 2570 df-clab 2716 df-cleq 2729 df-clel 2812 df-nfc 2886 df-ne 2934 df-nel 3038 df-ral 3053 df-rex 3063 df-rmo 3352 df-reu 3353 df-rab 3402 df-v 3444 df-sbc 3743 df-csb 3852 df-dif 3906 df-un 3908 df-in 3910 df-ss 3920 df-pss 3923 df-nul 4288 df-if 4482 df-pw 4558 df-sn 4583 df-pr 4585 df-tp 4587 df-op 4589 df-uni 4866 df-int 4905 df-iun 4950 df-iin 4951 df-br 5101 df-opab 5163 df-mpt 5182 df-tr 5208 df-id 5527 df-eprel 5532 df-po 5540 df-so 5541 df-fr 5585 df-se 5586 df-we 5587 df-xp 5638 df-rel 5639 df-cnv 5640 df-co 5641 df-dm 5642 df-rn 5643 df-res 5644 df-ima 5645 df-pred 6267 df-ord 6328 df-on 6329 df-lim 6330 df-suc 6331 df-iota 6456 df-fun 6502 df-fn 6503 df-f 6504 df-f1 6505 df-fo 6506 df-f1o 6507 df-fv 6508 df-isom 6509 df-riota 7325 df-ov 7371 df-oprab 7372 df-mpo 7373 df-of 7632 df-ofr 7633 df-om 7819 df-1st 7943 df-2nd 7944 df-supp 8113 df-tpos 8178 df-frecs 8233 df-wrecs 8264 df-recs 8313 df-rdg 8351 df-1o 8407 df-2o 8408 df-er 8645 df-ec 8647 df-qs 8651 df-map 8777 df-pm 8778 df-ixp 8848 df-en 8896 df-dom 8897 df-sdom 8898 df-fin 8899 df-fsupp 9277 df-sup 9357 df-inf 9358 df-oi 9427 df-card 9863 df-pnf 11180 df-mnf 11181 df-xr 11182 df-ltxr 11183 df-le 11184 df-sub 11378 df-neg 11379 df-div 11807 df-nn 12158 df-2 12220 df-3 12221 df-4 12222 df-5 12223 df-6 12224 df-7 12225 df-8 12226 df-9 12227 df-n0 12414 df-z 12501 df-dec 12620 df-uz 12764 df-rp 12918 df-fz 13436 df-fzo 13583 df-fl 13724 df-mod 13802 df-seq 13937 df-exp 13997 df-hash 14266 df-cj 15034 df-re 15035 df-im 15036 df-sqrt 15170 df-abs 15171 df-dvds 16192 df-prm 16611 df-struct 17086 df-sets 17103 df-slot 17121 df-ndx 17133 df-base 17149 df-ress 17170 df-plusg 17202 df-mulr 17203 df-starv 17204 df-sca 17205 df-vsca 17206 df-ip 17207 df-tset 17208 df-ple 17209 df-ds 17211 df-unif 17212 df-hom 17213 df-cco 17214 df-0g 17373 df-gsum 17374 df-prds 17379 df-pws 17381 df-imas 17441 df-qus 17442 df-mre 17517 df-mrc 17518 df-acs 17520 df-mgm 18577 df-sgrp 18656 df-mnd 18672 df-mhm 18720 df-submnd 18721 df-grp 18878 df-minusg 18879 df-sbg 18880 df-mulg 19010 df-subg 19065 df-nsg 19066 df-eqg 19067 df-ghm 19154 df-cntz 19258 df-od 19469 df-cmn 19723 df-abl 19724 df-mgp 20088 df-rng 20100 df-ur 20129 df-srg 20134 df-ring 20182 df-cring 20183 df-oppr 20285 df-dvdsr 20305 df-rhm 20420 df-subrng 20491 df-subrg 20515 df-field 20677 df-lmod 20825 df-lss 20895 df-lsp 20935 df-sra 21137 df-rgmod 21138 df-lidl 21175 df-rsp 21176 df-2idl 21217 df-cnfld 21322 df-zring 21414 df-zrh 21470 df-chr 21472 df-zn 21473 df-assa 21820 df-asp 21821 df-ascl 21822 df-psr 21877 df-mvr 21878 df-mpl 21879 df-opsr 21881 df-evls 22041 df-evl 22042 df-psr1 22132 df-vr1 22133 df-ply1 22134 df-coe1 22135 df-evls1 22271 df-evl1 22272 df-primroots 42462

This theorem is referenced by: aks5lem6 42562

W3C validator