aks6d1c1p5 - Mathbox for metakunt

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

Theorem aks6d1c1p5 42093

Description: The product of exponents is introspective. (Contributed by metakunt, 26-Apr-2025.)

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

**Assertion**
Ref	Expression
aks6d1c1p5	⊢ (𝜑 → (𝐷 · 𝐸) ∼ 𝐹)

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

Proof of Theorem aks6d1c1p5 Dummy variables 𝑖 𝑙 𝑧 𝑞 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		aks6d1c1p5.13	. . . . . . . . 9 ⊢ (𝜑 → 𝐾 ∈ Field)
2	1	fldcrngd 20662	. . . . . . . 8 ⊢ (𝜑 → 𝐾 ∈ CRing)
3		aks6d1c1p5.6	. . . . . . . . 9 ⊢ 𝑉 = (mulGrp‘𝐾)
4	3	crngmgp 20161	. . . . . . . 8 ⊢ (𝐾 ∈ CRing → 𝑉 ∈ CMnd)
5	2, 4	syl 17	. . . . . . 7 ⊢ (𝜑 → 𝑉 ∈ CMnd)
6	5	cmnmndd 19718	. . . . . 6 ⊢ (𝜑 → 𝑉 ∈ Mnd)
7	6	adantr 480	. . . . 5 ⊢ ((𝜑 ∧ 𝑦 ∈ (𝑉 PrimRoots 𝑅)) → 𝑉 ∈ Mnd)
8		aks6d1c1p5.1	. . . . . . . . . 10 ⊢ ∼ = {⟨𝑒, 𝑓⟩ ∣ (𝑒 ∈ ℕ ∧ 𝑓 ∈ 𝐵 ∧ ∀𝑦 ∈ (𝑉 PrimRoots 𝑅)(𝑒 ↑ ((𝑂‘𝑓)‘𝑦)) = ((𝑂‘𝑓)‘(𝑒 ↑ 𝑦)))}
9		aks6d1c1p5.18	. . . . . . . . . 10 ⊢ (𝜑 → 𝐷 ∼ 𝐹)
10	8, 9	aks6d1c1p1rcl 42089	. . . . . . . . 9 ⊢ (𝜑 → (𝐷 ∈ ℕ ∧ 𝐹 ∈ 𝐵))
11	10	simpld 494	. . . . . . . 8 ⊢ (𝜑 → 𝐷 ∈ ℕ)
12	11	nnnn0d 12479	. . . . . . 7 ⊢ (𝜑 → 𝐷 ∈ ℕ₀)
13	12	adantr 480	. . . . . 6 ⊢ ((𝜑 ∧ 𝑦 ∈ (𝑉 PrimRoots 𝑅)) → 𝐷 ∈ ℕ₀)
14		aks6d1c1p5.19	. . . . . . . . . 10 ⊢ (𝜑 → 𝐸 ∼ 𝐹)
15	8, 14	aks6d1c1p1rcl 42089	. . . . . . . . 9 ⊢ (𝜑 → (𝐸 ∈ ℕ ∧ 𝐹 ∈ 𝐵))
16	15	simpld 494	. . . . . . . 8 ⊢ (𝜑 → 𝐸 ∈ ℕ)
17	16	nnnn0d 12479	. . . . . . 7 ⊢ (𝜑 → 𝐸 ∈ ℕ₀)
18	17	adantr 480	. . . . . 6 ⊢ ((𝜑 ∧ 𝑦 ∈ (𝑉 PrimRoots 𝑅)) → 𝐸 ∈ ℕ₀)
19		aks6d1c1p5.11	. . . . . . . 8 ⊢ 𝑂 = (eval₁‘𝐾)
20		aks6d1c1p5.2	. . . . . . . 8 ⊢ 𝑆 = (Poly₁‘𝐾)
21		eqid 2729	. . . . . . . 8 ⊢ (Base‘𝐾) = (Base‘𝐾)
22		aks6d1c1p5.3	. . . . . . . 8 ⊢ 𝐵 = (Base‘𝑆)
23	2	adantr 480	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑦 ∈ (𝑉 PrimRoots 𝑅)) → 𝐾 ∈ CRing)
24		aks6d1c1p5.15	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝑅 ∈ ℕ)
25	24	nnnn0d 12479	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑅 ∈ ℕ₀)
26		aks6d1c1p5.7	. . . . . . . . . . . . 13 ⊢ ↑ = (._g‘𝑉)
27	5, 25, 26	isprimroot 42074	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑦 ∈ (𝑉 PrimRoots 𝑅) ↔ (𝑦 ∈ (Base‘𝑉) ∧ (𝑅 ↑ 𝑦) = (0_g‘𝑉) ∧ ∀𝑞 ∈ ℕ₀ ((𝑞 ↑ 𝑦) = (0_g‘𝑉) → 𝑅 ∥ 𝑞))))
28	27	biimpd 229	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑦 ∈ (𝑉 PrimRoots 𝑅) → (𝑦 ∈ (Base‘𝑉) ∧ (𝑅 ↑ 𝑦) = (0_g‘𝑉) ∧ ∀𝑞 ∈ ℕ₀ ((𝑞 ↑ 𝑦) = (0_g‘𝑉) → 𝑅 ∥ 𝑞))))
29	28	imp 406	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑦 ∈ (𝑉 PrimRoots 𝑅)) → (𝑦 ∈ (Base‘𝑉) ∧ (𝑅 ↑ 𝑦) = (0_g‘𝑉) ∧ ∀𝑞 ∈ ℕ₀ ((𝑞 ↑ 𝑦) = (0_g‘𝑉) → 𝑅 ∥ 𝑞)))
30	29	simp1d 1142	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑦 ∈ (𝑉 PrimRoots 𝑅)) → 𝑦 ∈ (Base‘𝑉))
31	3, 21	mgpbas 20065	. . . . . . . . . . . 12 ⊢ (Base‘𝐾) = (Base‘𝑉)
32	31	a1i 11	. . . . . . . . . . 11 ⊢ (𝜑 → (Base‘𝐾) = (Base‘𝑉))
33	32	eqcomd 2735	. . . . . . . . . 10 ⊢ (𝜑 → (Base‘𝑉) = (Base‘𝐾))
34	33	adantr 480	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑦 ∈ (𝑉 PrimRoots 𝑅)) → (Base‘𝑉) = (Base‘𝐾))
35	30, 34	eleqtrd 2830	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑦 ∈ (𝑉 PrimRoots 𝑅)) → 𝑦 ∈ (Base‘𝐾))
36	10	simprd 495	. . . . . . . . 9 ⊢ (𝜑 → 𝐹 ∈ 𝐵)
37	36	adantr 480	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑦 ∈ (𝑉 PrimRoots 𝑅)) → 𝐹 ∈ 𝐵)
38	19, 20, 21, 22, 23, 35, 37	fveval1fvcl 22253	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑦 ∈ (𝑉 PrimRoots 𝑅)) → ((𝑂‘𝐹)‘𝑦) ∈ (Base‘𝐾))
39	34	eleq2d 2814	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑦 ∈ (𝑉 PrimRoots 𝑅)) → (((𝑂‘𝐹)‘𝑦) ∈ (Base‘𝑉) ↔ ((𝑂‘𝐹)‘𝑦) ∈ (Base‘𝐾)))
40	38, 39	mpbird 257	. . . . . 6 ⊢ ((𝜑 ∧ 𝑦 ∈ (𝑉 PrimRoots 𝑅)) → ((𝑂‘𝐹)‘𝑦) ∈ (Base‘𝑉))
41	13, 18, 40	3jca 1128	. . . . 5 ⊢ ((𝜑 ∧ 𝑦 ∈ (𝑉 PrimRoots 𝑅)) → (𝐷 ∈ ℕ₀ ∧ 𝐸 ∈ ℕ₀ ∧ ((𝑂‘𝐹)‘𝑦) ∈ (Base‘𝑉)))
42		eqid 2729	. . . . . 6 ⊢ (Base‘𝑉) = (Base‘𝑉)
43	42, 26	mulgnn0ass 19024	. . . . 5 ⊢ ((𝑉 ∈ Mnd ∧ (𝐷 ∈ ℕ₀ ∧ 𝐸 ∈ ℕ₀ ∧ ((𝑂‘𝐹)‘𝑦) ∈ (Base‘𝑉))) → ((𝐷 · 𝐸) ↑ ((𝑂‘𝐹)‘𝑦)) = (𝐷 ↑ (𝐸 ↑ ((𝑂‘𝐹)‘𝑦))))
44	7, 41, 43	syl2anc 584	. . . 4 ⊢ ((𝜑 ∧ 𝑦 ∈ (𝑉 PrimRoots 𝑅)) → ((𝐷 · 𝐸) ↑ ((𝑂‘𝐹)‘𝑦)) = (𝐷 ↑ (𝐸 ↑ ((𝑂‘𝐹)‘𝑦))))
45		eqidd 2730	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑦 ∈ (𝑉 PrimRoots 𝑅)) → (𝑙 ∈ (𝑉 PrimRoots 𝑅) ↦ (𝐸 ↑ 𝑙)) = (𝑙 ∈ (𝑉 PrimRoots 𝑅) ↦ (𝐸 ↑ 𝑙)))
46		simpr 484	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑦 ∈ (𝑉 PrimRoots 𝑅)) ∧ 𝑙 = 𝑦) → 𝑙 = 𝑦)
47	46	oveq2d 7385	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑦 ∈ (𝑉 PrimRoots 𝑅)) ∧ 𝑙 = 𝑦) → (𝐸 ↑ 𝑙) = (𝐸 ↑ 𝑦))
48		simpr 484	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑦 ∈ (𝑉 PrimRoots 𝑅)) → 𝑦 ∈ (𝑉 PrimRoots 𝑅))
49	42, 26, 7, 18, 30	mulgnn0cld 19009	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑦 ∈ (𝑉 PrimRoots 𝑅)) → (𝐸 ↑ 𝑦) ∈ (Base‘𝑉))
50	45, 47, 48, 49	fvmptd 6957	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑦 ∈ (𝑉 PrimRoots 𝑅)) → ((𝑙 ∈ (𝑉 PrimRoots 𝑅) ↦ (𝐸 ↑ 𝑙))‘𝑦) = (𝐸 ↑ 𝑦))
51	50	fveq2d 6844	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑦 ∈ (𝑉 PrimRoots 𝑅)) → ((𝑂‘𝐹)‘((𝑙 ∈ (𝑉 PrimRoots 𝑅) ↦ (𝐸 ↑ 𝑙))‘𝑦)) = ((𝑂‘𝐹)‘(𝐸 ↑ 𝑦)))
52	51	oveq2d 7385	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑦 ∈ (𝑉 PrimRoots 𝑅)) → (𝐷 ↑ ((𝑂‘𝐹)‘((𝑙 ∈ (𝑉 PrimRoots 𝑅) ↦ (𝐸 ↑ 𝑙))‘𝑦))) = (𝐷 ↑ ((𝑂‘𝐹)‘(𝐸 ↑ 𝑦))))
53	52	eqcomd 2735	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑦 ∈ (𝑉 PrimRoots 𝑅)) → (𝐷 ↑ ((𝑂‘𝐹)‘(𝐸 ↑ 𝑦))) = (𝐷 ↑ ((𝑂‘𝐹)‘((𝑙 ∈ (𝑉 PrimRoots 𝑅) ↦ (𝐸 ↑ 𝑙))‘𝑦))))
54		2fveq3 6845	. . . . . . . . . . 11 ⊢ (𝑖 = 𝑦 → ((𝑂‘𝐹)‘((𝑙 ∈ (𝑉 PrimRoots 𝑅) ↦ (𝐸 ↑ 𝑙))‘𝑖)) = ((𝑂‘𝐹)‘((𝑙 ∈ (𝑉 PrimRoots 𝑅) ↦ (𝐸 ↑ 𝑙))‘𝑦)))
55	54	oveq2d 7385	. . . . . . . . . 10 ⊢ (𝑖 = 𝑦 → (𝐷 ↑ ((𝑂‘𝐹)‘((𝑙 ∈ (𝑉 PrimRoots 𝑅) ↦ (𝐸 ↑ 𝑙))‘𝑖))) = (𝐷 ↑ ((𝑂‘𝐹)‘((𝑙 ∈ (𝑉 PrimRoots 𝑅) ↦ (𝐸 ↑ 𝑙))‘𝑦))))
56		fveq2 6840	. . . . . . . . . . . 12 ⊢ (𝑖 = 𝑦 → ((𝑙 ∈ (𝑉 PrimRoots 𝑅) ↦ (𝐸 ↑ 𝑙))‘𝑖) = ((𝑙 ∈ (𝑉 PrimRoots 𝑅) ↦ (𝐸 ↑ 𝑙))‘𝑦))
57	56	oveq2d 7385	. . . . . . . . . . 11 ⊢ (𝑖 = 𝑦 → (𝐷 ↑ ((𝑙 ∈ (𝑉 PrimRoots 𝑅) ↦ (𝐸 ↑ 𝑙))‘𝑖)) = (𝐷 ↑ ((𝑙 ∈ (𝑉 PrimRoots 𝑅) ↦ (𝐸 ↑ 𝑙))‘𝑦)))
58	57	fveq2d 6844	. . . . . . . . . 10 ⊢ (𝑖 = 𝑦 → ((𝑂‘𝐹)‘(𝐷 ↑ ((𝑙 ∈ (𝑉 PrimRoots 𝑅) ↦ (𝐸 ↑ 𝑙))‘𝑖))) = ((𝑂‘𝐹)‘(𝐷 ↑ ((𝑙 ∈ (𝑉 PrimRoots 𝑅) ↦ (𝐸 ↑ 𝑙))‘𝑦))))
59	55, 58	eqeq12d 2745	. . . . . . . . 9 ⊢ (𝑖 = 𝑦 → ((𝐷 ↑ ((𝑂‘𝐹)‘((𝑙 ∈ (𝑉 PrimRoots 𝑅) ↦ (𝐸 ↑ 𝑙))‘𝑖))) = ((𝑂‘𝐹)‘(𝐷 ↑ ((𝑙 ∈ (𝑉 PrimRoots 𝑅) ↦ (𝐸 ↑ 𝑙))‘𝑖))) ↔ (𝐷 ↑ ((𝑂‘𝐹)‘((𝑙 ∈ (𝑉 PrimRoots 𝑅) ↦ (𝐸 ↑ 𝑙))‘𝑦))) = ((𝑂‘𝐹)‘(𝐷 ↑ ((𝑙 ∈ (𝑉 PrimRoots 𝑅) ↦ (𝐸 ↑ 𝑙))‘𝑦)))))
60	8, 36, 11	aks6d1c1p1 42088	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝐷 ∼ 𝐹 ↔ ∀𝑦 ∈ (𝑉 PrimRoots 𝑅)(𝐷 ↑ ((𝑂‘𝐹)‘𝑦)) = ((𝑂‘𝐹)‘(𝐷 ↑ 𝑦))))
61	60	biimpd 229	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝐷 ∼ 𝐹 → ∀𝑦 ∈ (𝑉 PrimRoots 𝑅)(𝐷 ↑ ((𝑂‘𝐹)‘𝑦)) = ((𝑂‘𝐹)‘(𝐷 ↑ 𝑦))))
62	9, 61	mpd 15	. . . . . . . . . . 11 ⊢ (𝜑 → ∀𝑦 ∈ (𝑉 PrimRoots 𝑅)(𝐷 ↑ ((𝑂‘𝐹)‘𝑦)) = ((𝑂‘𝐹)‘(𝐷 ↑ 𝑦)))
63	26	oveqi 7382	. . . . . . . . . . . . . . . 16 ⊢ (𝐸 ↑ 𝑙) = (𝐸(._g‘𝑉)𝑙)
64	63	a1i 11	. . . . . . . . . . . . . . 15 ⊢ (𝑙 ∈ (𝑉 PrimRoots 𝑅) → (𝐸 ↑ 𝑙) = (𝐸(._g‘𝑉)𝑙))
65	64	mpteq2ia 5197	. . . . . . . . . . . . . 14 ⊢ (𝑙 ∈ (𝑉 PrimRoots 𝑅) ↦ (𝐸 ↑ 𝑙)) = (𝑙 ∈ (𝑉 PrimRoots 𝑅) ↦ (𝐸(._g‘𝑉)𝑙))
66		aks6d1c1p5.16	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝐸 gcd 𝑅) = 1)
67	65, 5, 24, 16, 66	primrootscoprbij2 42084	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝑙 ∈ (𝑉 PrimRoots 𝑅) ↦ (𝐸 ↑ 𝑙)):(𝑉 PrimRoots 𝑅)–1-1-onto→(𝑉 PrimRoots 𝑅))
68		f1ofo 6789	. . . . . . . . . . . . 13 ⊢ ((𝑙 ∈ (𝑉 PrimRoots 𝑅) ↦ (𝐸 ↑ 𝑙)):(𝑉 PrimRoots 𝑅)–1-1-onto→(𝑉 PrimRoots 𝑅) → (𝑙 ∈ (𝑉 PrimRoots 𝑅) ↦ (𝐸 ↑ 𝑙)):(𝑉 PrimRoots 𝑅)–onto→(𝑉 PrimRoots 𝑅))
69	67, 68	syl 17	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑙 ∈ (𝑉 PrimRoots 𝑅) ↦ (𝐸 ↑ 𝑙)):(𝑉 PrimRoots 𝑅)–onto→(𝑉 PrimRoots 𝑅))
70		fveq2 6840	. . . . . . . . . . . . . . 15 ⊢ (((𝑙 ∈ (𝑉 PrimRoots 𝑅) ↦ (𝐸 ↑ 𝑙))‘𝑖) = 𝑦 → ((𝑂‘𝐹)‘((𝑙 ∈ (𝑉 PrimRoots 𝑅) ↦ (𝐸 ↑ 𝑙))‘𝑖)) = ((𝑂‘𝐹)‘𝑦))
71	70	oveq2d 7385	. . . . . . . . . . . . . 14 ⊢ (((𝑙 ∈ (𝑉 PrimRoots 𝑅) ↦ (𝐸 ↑ 𝑙))‘𝑖) = 𝑦 → (𝐷 ↑ ((𝑂‘𝐹)‘((𝑙 ∈ (𝑉 PrimRoots 𝑅) ↦ (𝐸 ↑ 𝑙))‘𝑖))) = (𝐷 ↑ ((𝑂‘𝐹)‘𝑦)))
72		oveq2 7377	. . . . . . . . . . . . . . 15 ⊢ (((𝑙 ∈ (𝑉 PrimRoots 𝑅) ↦ (𝐸 ↑ 𝑙))‘𝑖) = 𝑦 → (𝐷 ↑ ((𝑙 ∈ (𝑉 PrimRoots 𝑅) ↦ (𝐸 ↑ 𝑙))‘𝑖)) = (𝐷 ↑ 𝑦))
73	72	fveq2d 6844	. . . . . . . . . . . . . 14 ⊢ (((𝑙 ∈ (𝑉 PrimRoots 𝑅) ↦ (𝐸 ↑ 𝑙))‘𝑖) = 𝑦 → ((𝑂‘𝐹)‘(𝐷 ↑ ((𝑙 ∈ (𝑉 PrimRoots 𝑅) ↦ (𝐸 ↑ 𝑙))‘𝑖))) = ((𝑂‘𝐹)‘(𝐷 ↑ 𝑦)))
74	71, 73	eqeq12d 2745	. . . . . . . . . . . . 13 ⊢ (((𝑙 ∈ (𝑉 PrimRoots 𝑅) ↦ (𝐸 ↑ 𝑙))‘𝑖) = 𝑦 → ((𝐷 ↑ ((𝑂‘𝐹)‘((𝑙 ∈ (𝑉 PrimRoots 𝑅) ↦ (𝐸 ↑ 𝑙))‘𝑖))) = ((𝑂‘𝐹)‘(𝐷 ↑ ((𝑙 ∈ (𝑉 PrimRoots 𝑅) ↦ (𝐸 ↑ 𝑙))‘𝑖))) ↔ (𝐷 ↑ ((𝑂‘𝐹)‘𝑦)) = ((𝑂‘𝐹)‘(𝐷 ↑ 𝑦))))
75	74	cbvfo 7246	. . . . . . . . . . . 12 ⊢ ((𝑙 ∈ (𝑉 PrimRoots 𝑅) ↦ (𝐸 ↑ 𝑙)):(𝑉 PrimRoots 𝑅)–onto→(𝑉 PrimRoots 𝑅) → (∀𝑖 ∈ (𝑉 PrimRoots 𝑅)(𝐷 ↑ ((𝑂‘𝐹)‘((𝑙 ∈ (𝑉 PrimRoots 𝑅) ↦ (𝐸 ↑ 𝑙))‘𝑖))) = ((𝑂‘𝐹)‘(𝐷 ↑ ((𝑙 ∈ (𝑉 PrimRoots 𝑅) ↦ (𝐸 ↑ 𝑙))‘𝑖))) ↔ ∀𝑦 ∈ (𝑉 PrimRoots 𝑅)(𝐷 ↑ ((𝑂‘𝐹)‘𝑦)) = ((𝑂‘𝐹)‘(𝐷 ↑ 𝑦))))
76	69, 75	syl 17	. . . . . . . . . . 11 ⊢ (𝜑 → (∀𝑖 ∈ (𝑉 PrimRoots 𝑅)(𝐷 ↑ ((𝑂‘𝐹)‘((𝑙 ∈ (𝑉 PrimRoots 𝑅) ↦ (𝐸 ↑ 𝑙))‘𝑖))) = ((𝑂‘𝐹)‘(𝐷 ↑ ((𝑙 ∈ (𝑉 PrimRoots 𝑅) ↦ (𝐸 ↑ 𝑙))‘𝑖))) ↔ ∀𝑦 ∈ (𝑉 PrimRoots 𝑅)(𝐷 ↑ ((𝑂‘𝐹)‘𝑦)) = ((𝑂‘𝐹)‘(𝐷 ↑ 𝑦))))
77	62, 76	mpbird 257	. . . . . . . . . 10 ⊢ (𝜑 → ∀𝑖 ∈ (𝑉 PrimRoots 𝑅)(𝐷 ↑ ((𝑂‘𝐹)‘((𝑙 ∈ (𝑉 PrimRoots 𝑅) ↦ (𝐸 ↑ 𝑙))‘𝑖))) = ((𝑂‘𝐹)‘(𝐷 ↑ ((𝑙 ∈ (𝑉 PrimRoots 𝑅) ↦ (𝐸 ↑ 𝑙))‘𝑖))))
78	77	adantr 480	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑦 ∈ (𝑉 PrimRoots 𝑅)) → ∀𝑖 ∈ (𝑉 PrimRoots 𝑅)(𝐷 ↑ ((𝑂‘𝐹)‘((𝑙 ∈ (𝑉 PrimRoots 𝑅) ↦ (𝐸 ↑ 𝑙))‘𝑖))) = ((𝑂‘𝐹)‘(𝐷 ↑ ((𝑙 ∈ (𝑉 PrimRoots 𝑅) ↦ (𝐸 ↑ 𝑙))‘𝑖))))
79	59, 78, 48	rspcdva 3586	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑦 ∈ (𝑉 PrimRoots 𝑅)) → (𝐷 ↑ ((𝑂‘𝐹)‘((𝑙 ∈ (𝑉 PrimRoots 𝑅) ↦ (𝐸 ↑ 𝑙))‘𝑦))) = ((𝑂‘𝐹)‘(𝐷 ↑ ((𝑙 ∈ (𝑉 PrimRoots 𝑅) ↦ (𝐸 ↑ 𝑙))‘𝑦))))
80	50	oveq2d 7385	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑦 ∈ (𝑉 PrimRoots 𝑅)) → (𝐷 ↑ ((𝑙 ∈ (𝑉 PrimRoots 𝑅) ↦ (𝐸 ↑ 𝑙))‘𝑦)) = (𝐷 ↑ (𝐸 ↑ 𝑦)))
81	80	fveq2d 6844	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑦 ∈ (𝑉 PrimRoots 𝑅)) → ((𝑂‘𝐹)‘(𝐷 ↑ ((𝑙 ∈ (𝑉 PrimRoots 𝑅) ↦ (𝐸 ↑ 𝑙))‘𝑦))) = ((𝑂‘𝐹)‘(𝐷 ↑ (𝐸 ↑ 𝑦))))
82	79, 81	eqtrd 2764	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑦 ∈ (𝑉 PrimRoots 𝑅)) → (𝐷 ↑ ((𝑂‘𝐹)‘((𝑙 ∈ (𝑉 PrimRoots 𝑅) ↦ (𝐸 ↑ 𝑙))‘𝑦))) = ((𝑂‘𝐹)‘(𝐷 ↑ (𝐸 ↑ 𝑦))))
83	53, 82	eqtr2d 2765	. . . . . 6 ⊢ ((𝜑 ∧ 𝑦 ∈ (𝑉 PrimRoots 𝑅)) → ((𝑂‘𝐹)‘(𝐷 ↑ (𝐸 ↑ 𝑦))) = (𝐷 ↑ ((𝑂‘𝐹)‘(𝐸 ↑ 𝑦))))
84		fveq2 6840	. . . . . . . . . . 11 ⊢ (𝑧 = 𝑦 → ((𝑂‘𝐹)‘𝑧) = ((𝑂‘𝐹)‘𝑦))
85	84	oveq2d 7385	. . . . . . . . . 10 ⊢ (𝑧 = 𝑦 → (𝐸 ↑ ((𝑂‘𝐹)‘𝑧)) = (𝐸 ↑ ((𝑂‘𝐹)‘𝑦)))
86		oveq2 7377	. . . . . . . . . . 11 ⊢ (𝑧 = 𝑦 → (𝐸 ↑ 𝑧) = (𝐸 ↑ 𝑦))
87	86	fveq2d 6844	. . . . . . . . . 10 ⊢ (𝑧 = 𝑦 → ((𝑂‘𝐹)‘(𝐸 ↑ 𝑧)) = ((𝑂‘𝐹)‘(𝐸 ↑ 𝑦)))
88	85, 87	eqeq12d 2745	. . . . . . . . 9 ⊢ (𝑧 = 𝑦 → ((𝐸 ↑ ((𝑂‘𝐹)‘𝑧)) = ((𝑂‘𝐹)‘(𝐸 ↑ 𝑧)) ↔ (𝐸 ↑ ((𝑂‘𝐹)‘𝑦)) = ((𝑂‘𝐹)‘(𝐸 ↑ 𝑦))))
89	8, 36, 16	aks6d1c1p1 42088	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝐸 ∼ 𝐹 ↔ ∀𝑦 ∈ (𝑉 PrimRoots 𝑅)(𝐸 ↑ ((𝑂‘𝐹)‘𝑦)) = ((𝑂‘𝐹)‘(𝐸 ↑ 𝑦))))
90	89	biimpd 229	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝐸 ∼ 𝐹 → ∀𝑦 ∈ (𝑉 PrimRoots 𝑅)(𝐸 ↑ ((𝑂‘𝐹)‘𝑦)) = ((𝑂‘𝐹)‘(𝐸 ↑ 𝑦))))
91	14, 90	mpd 15	. . . . . . . . . . 11 ⊢ (𝜑 → ∀𝑦 ∈ (𝑉 PrimRoots 𝑅)(𝐸 ↑ ((𝑂‘𝐹)‘𝑦)) = ((𝑂‘𝐹)‘(𝐸 ↑ 𝑦)))
92		nfv 1914	. . . . . . . . . . . 12 ⊢ Ⅎ𝑦(𝐸 ↑ ((𝑂‘𝐹)‘𝑧)) = ((𝑂‘𝐹)‘(𝐸 ↑ 𝑧))
93		nfv 1914	. . . . . . . . . . . 12 ⊢ Ⅎ𝑧(𝐸 ↑ ((𝑂‘𝐹)‘𝑦)) = ((𝑂‘𝐹)‘(𝐸 ↑ 𝑦))
94	92, 93, 88	cbvralw 3278	. . . . . . . . . . 11 ⊢ (∀𝑧 ∈ (𝑉 PrimRoots 𝑅)(𝐸 ↑ ((𝑂‘𝐹)‘𝑧)) = ((𝑂‘𝐹)‘(𝐸 ↑ 𝑧)) ↔ ∀𝑦 ∈ (𝑉 PrimRoots 𝑅)(𝐸 ↑ ((𝑂‘𝐹)‘𝑦)) = ((𝑂‘𝐹)‘(𝐸 ↑ 𝑦)))
95	91, 94	sylibr 234	. . . . . . . . . 10 ⊢ (𝜑 → ∀𝑧 ∈ (𝑉 PrimRoots 𝑅)(𝐸 ↑ ((𝑂‘𝐹)‘𝑧)) = ((𝑂‘𝐹)‘(𝐸 ↑ 𝑧)))
96	95	adantr 480	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑦 ∈ (𝑉 PrimRoots 𝑅)) → ∀𝑧 ∈ (𝑉 PrimRoots 𝑅)(𝐸 ↑ ((𝑂‘𝐹)‘𝑧)) = ((𝑂‘𝐹)‘(𝐸 ↑ 𝑧)))
97	88, 96, 48	rspcdva 3586	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑦 ∈ (𝑉 PrimRoots 𝑅)) → (𝐸 ↑ ((𝑂‘𝐹)‘𝑦)) = ((𝑂‘𝐹)‘(𝐸 ↑ 𝑦)))
98	97	eqcomd 2735	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑦 ∈ (𝑉 PrimRoots 𝑅)) → ((𝑂‘𝐹)‘(𝐸 ↑ 𝑦)) = (𝐸 ↑ ((𝑂‘𝐹)‘𝑦)))
99	98	oveq2d 7385	. . . . . 6 ⊢ ((𝜑 ∧ 𝑦 ∈ (𝑉 PrimRoots 𝑅)) → (𝐷 ↑ ((𝑂‘𝐹)‘(𝐸 ↑ 𝑦))) = (𝐷 ↑ (𝐸 ↑ ((𝑂‘𝐹)‘𝑦))))
100	83, 99	eqtrd 2764	. . . . 5 ⊢ ((𝜑 ∧ 𝑦 ∈ (𝑉 PrimRoots 𝑅)) → ((𝑂‘𝐹)‘(𝐷 ↑ (𝐸 ↑ 𝑦))) = (𝐷 ↑ (𝐸 ↑ ((𝑂‘𝐹)‘𝑦))))
101	100	eqcomd 2735	. . . 4 ⊢ ((𝜑 ∧ 𝑦 ∈ (𝑉 PrimRoots 𝑅)) → (𝐷 ↑ (𝐸 ↑ ((𝑂‘𝐹)‘𝑦))) = ((𝑂‘𝐹)‘(𝐷 ↑ (𝐸 ↑ 𝑦))))
102	13, 18, 30	3jca 1128	. . . . . 6 ⊢ ((𝜑 ∧ 𝑦 ∈ (𝑉 PrimRoots 𝑅)) → (𝐷 ∈ ℕ₀ ∧ 𝐸 ∈ ℕ₀ ∧ 𝑦 ∈ (Base‘𝑉)))
103	42, 26	mulgnn0ass 19024	. . . . . . 7 ⊢ ((𝑉 ∈ Mnd ∧ (𝐷 ∈ ℕ₀ ∧ 𝐸 ∈ ℕ₀ ∧ 𝑦 ∈ (Base‘𝑉))) → ((𝐷 · 𝐸) ↑ 𝑦) = (𝐷 ↑ (𝐸 ↑ 𝑦)))
104	103	eqcomd 2735	. . . . . 6 ⊢ ((𝑉 ∈ Mnd ∧ (𝐷 ∈ ℕ₀ ∧ 𝐸 ∈ ℕ₀ ∧ 𝑦 ∈ (Base‘𝑉))) → (𝐷 ↑ (𝐸 ↑ 𝑦)) = ((𝐷 · 𝐸) ↑ 𝑦))
105	7, 102, 104	syl2anc 584	. . . . 5 ⊢ ((𝜑 ∧ 𝑦 ∈ (𝑉 PrimRoots 𝑅)) → (𝐷 ↑ (𝐸 ↑ 𝑦)) = ((𝐷 · 𝐸) ↑ 𝑦))
106	105	fveq2d 6844	. . . 4 ⊢ ((𝜑 ∧ 𝑦 ∈ (𝑉 PrimRoots 𝑅)) → ((𝑂‘𝐹)‘(𝐷 ↑ (𝐸 ↑ 𝑦))) = ((𝑂‘𝐹)‘((𝐷 · 𝐸) ↑ 𝑦)))
107	44, 101, 106	3eqtrd 2768	. . 3 ⊢ ((𝜑 ∧ 𝑦 ∈ (𝑉 PrimRoots 𝑅)) → ((𝐷 · 𝐸) ↑ ((𝑂‘𝐹)‘𝑦)) = ((𝑂‘𝐹)‘((𝐷 · 𝐸) ↑ 𝑦)))
108	107	ralrimiva 3125	. 2 ⊢ (𝜑 → ∀𝑦 ∈ (𝑉 PrimRoots 𝑅)((𝐷 · 𝐸) ↑ ((𝑂‘𝐹)‘𝑦)) = ((𝑂‘𝐹)‘((𝐷 · 𝐸) ↑ 𝑦)))
109	11, 16	nnmulcld 12215	. . 3 ⊢ (𝜑 → (𝐷 · 𝐸) ∈ ℕ)
110	8, 36, 109	aks6d1c1p1 42088	. 2 ⊢ (𝜑 → ((𝐷 · 𝐸) ∼ 𝐹 ↔ ∀𝑦 ∈ (𝑉 PrimRoots 𝑅)((𝐷 · 𝐸) ↑ ((𝑂‘𝐹)‘𝑦)) = ((𝑂‘𝐹)‘((𝐷 · 𝐸) ↑ 𝑦))))
111	108, 110	mpbird 257	1 ⊢ (𝜑 → (𝐷 · 𝐸) ∼ 𝐹)

Colors of variables: wff setvar class

Syntax hints: → wi 4 ↔ wb 206 ∧ wa 395 ∧ w3a 1086 = wceq 1540 ∈ wcel 2109 ∀wral 3044 class class class wbr 5102 {copab 5164 ↦ cmpt 5183 –onto→wfo 6497 –1-1-onto→wf1o 6498 ‘cfv 6499 (class class class)co 7369 1c1 11045 · cmul 11049 ℕcn 12162 ℕ₀cn0 12418 ∥ cdvds 16198 gcd cgcd 16440 ℙcprime 16617 Basecbs 17155 +_gcplusg 17196 0_gc0g 17378 Mndcmnd 18643 ._gcmg 18981 CMndccmn 19694 mulGrpcmgp 20060 CRingccrg 20154 Fieldcfield 20650 chrcchr 21443 algSccascl 21794 var₁cv1 22093 Poly₁cpl1 22094 eval₁ce1 22234 PrimRoots cprimroots 42072

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1795 ax-4 1809 ax-5 1910 ax-6 1967 ax-7 2008 ax-8 2111 ax-9 2119 ax-10 2142 ax-11 2158 ax-12 2178 ax-ext 2701 ax-rep 5229 ax-sep 5246 ax-nul 5256 ax-pow 5315 ax-pr 5382 ax-un 7691 ax-cnex 11100 ax-resscn 11101 ax-1cn 11102 ax-icn 11103 ax-addcl 11104 ax-addrcl 11105 ax-mulcl 11106 ax-mulrcl 11107 ax-mulcom 11108 ax-addass 11109 ax-mulass 11110 ax-distr 11111 ax-i2m1 11112 ax-1ne0 11113 ax-1rid 11114 ax-rnegex 11115 ax-rrecex 11116 ax-cnre 11117 ax-pre-lttri 11118 ax-pre-lttrn 11119 ax-pre-ltadd 11120 ax-pre-mulgt0 11121 ax-pre-sup 11122

This theorem depends on definitions: df-bi 207 df-an 396 df-or 848 df-3or 1087 df-3an 1088 df-tru 1543 df-fal 1553 df-ex 1780 df-nf 1784 df-sb 2066 df-mo 2533 df-eu 2562 df-clab 2708 df-cleq 2721 df-clel 2803 df-nfc 2878 df-ne 2926 df-nel 3030 df-ral 3045 df-rex 3054 df-rmo 3351 df-reu 3352 df-rab 3403 df-v 3446 df-sbc 3751 df-csb 3860 df-dif 3914 df-un 3916 df-in 3918 df-ss 3928 df-pss 3931 df-nul 4293 df-if 4485 df-pw 4561 df-sn 4586 df-pr 4588 df-tp 4590 df-op 4592 df-uni 4868 df-int 4907 df-iun 4953 df-iin 4954 df-br 5103 df-opab 5165 df-mpt 5184 df-tr 5210 df-id 5526 df-eprel 5531 df-po 5539 df-so 5540 df-fr 5584 df-se 5585 df-we 5586 df-xp 5637 df-rel 5638 df-cnv 5639 df-co 5640 df-dm 5641 df-rn 5642 df-res 5643 df-ima 5644 df-pred 6262 df-ord 6323 df-on 6324 df-lim 6325 df-suc 6326 df-iota 6452 df-fun 6501 df-fn 6502 df-f 6503 df-f1 6504 df-fo 6505 df-f1o 6506 df-fv 6507 df-isom 6508 df-riota 7326 df-ov 7372 df-oprab 7373 df-mpo 7374 df-of 7633 df-ofr 7634 df-om 7823 df-1st 7947 df-2nd 7948 df-supp 8117 df-frecs 8237 df-wrecs 8268 df-recs 8317 df-rdg 8355 df-1o 8411 df-2o 8412 df-er 8648 df-map 8778 df-pm 8779 df-ixp 8848 df-en 8896 df-dom 8897 df-sdom 8898 df-fin 8899 df-fsupp 9289 df-sup 9369 df-inf 9370 df-oi 9439 df-card 9868 df-pnf 11186 df-mnf 11187 df-xr 11188 df-ltxr 11189 df-le 11190 df-sub 11383 df-neg 11384 df-div 11812 df-nn 12163 df-2 12225 df-3 12226 df-4 12227 df-5 12228 df-6 12229 df-7 12230 df-8 12231 df-9 12232 df-n0 12419 df-z 12506 df-dec 12626 df-uz 12770 df-rp 12928 df-fz 13445 df-fzo 13592 df-fl 13730 df-mod 13808 df-seq 13943 df-exp 14003 df-hash 14272 df-cj 15041 df-re 15042 df-im 15043 df-sqrt 15177 df-abs 15178 df-dvds 16199 df-gcd 16441 df-struct 17093 df-sets 17110 df-slot 17128 df-ndx 17140 df-base 17156 df-ress 17177 df-plusg 17209 df-mulr 17210 df-sca 17212 df-vsca 17213 df-ip 17214 df-tset 17215 df-ple 17216 df-ds 17218 df-hom 17220 df-cco 17221 df-0g 17380 df-gsum 17381 df-prds 17386 df-pws 17388 df-mre 17523 df-mrc 17524 df-acs 17526 df-mgm 18549 df-sgrp 18628 df-mnd 18644 df-mhm 18692 df-submnd 18693 df-grp 18850 df-minusg 18851 df-sbg 18852 df-mulg 18982 df-subg 19037 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-rhm 20392 df-subrng 20466 df-subrg 20490 df-field 20652 df-lmod 20800 df-lss 20870 df-lsp 20910 df-assa 21795 df-asp 21796 df-ascl 21797 df-psr 21851 df-mvr 21852 df-mpl 21853 df-opsr 21855 df-evls 22014 df-evl 22015 df-psr1 22097 df-ply1 22099 df-evl1 22236 df-primroots 42073

This theorem is referenced by: aks6d1c1p8 42096 aks6d1c1 42097

W3C validator