Theorem isprimroot 43111

Description: The value of a primitive root. (Contributed by metakunt, 25-Apr-2025.)

Hypotheses

Ref	Expression
isprimroot.1	⊢ (𝜑 → 𝑅 ∈ CMnd)
isprimroot.2	⊢ (𝜑 → 𝐾 ∈ ℕ0)
isprimroot.3	⊢ ↑ = (.g‘𝑅)

Assertion

Ref	Expression
isprimroot	⊢ (𝜑 → (𝑀 ∈ (𝑅 PrimRoots 𝐾) ↔ (𝑀 ∈ (Base‘𝑅) ∧ (𝐾 ↑ 𝑀) = (0g‘𝑅) ∧ ∀𝑙 ∈ ℕ0 ((𝑙 ↑ 𝑀) = (0g‘𝑅) → 𝐾 ∥ 𝑙))))

Distinct variable groups:   𝐾,𝑙   𝑀,𝑙   𝑅,𝑙   𝜑,𝑙

Allowed substitution hint:   ↑ (𝑙)

Proof of Theorem isprimroot

Dummy variables 𝑏 𝑘 𝑟 𝑥 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		df-primroots 43110	. . . . . 6 ⊢ PrimRoots = (𝑟 ∈ CMnd, 𝑘 ∈ ℕ0 ↦ ⦋(Base‘𝑟) / 𝑏⦌{𝑥 ∈ 𝑏 ∣ ((𝑘(.g‘𝑟)𝑥) = (0g‘𝑟) ∧ ∀𝑙 ∈ ℕ0 ((𝑙(.g‘𝑟)𝑥) = (0g‘𝑟) → 𝑘 ∥ 𝑙))})
2	1	a1i 11	. . . . 5 ⊢ (𝜑 → PrimRoots = (𝑟 ∈ CMnd, 𝑘 ∈ ℕ0 ↦ ⦋(Base‘𝑟) / 𝑏⦌{𝑥 ∈ 𝑏 ∣ ((𝑘(.g‘𝑟)𝑥) = (0g‘𝑟) ∧ ∀𝑙 ∈ ℕ0 ((𝑙(.g‘𝑟)𝑥) = (0g‘𝑟) → 𝑘 ∥ 𝑙))}))
3		simprl 783	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑟 = 𝑅 ∧ 𝑘 = 𝐾)) → 𝑟 = 𝑅)
4	3	fveq2d 6881	. . . . . 6 ⊢ ((𝜑 ∧ (𝑟 = 𝑅 ∧ 𝑘 = 𝐾)) → (Base‘𝑟) = (Base‘𝑅))
5		simplrl 789	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑟 = 𝑅 ∧ 𝑘 = 𝐾)) ∧ 𝑥 ∈ 𝑏) → 𝑟 = 𝑅)
6	5	fveq2d 6881	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑟 = 𝑅 ∧ 𝑘 = 𝐾)) ∧ 𝑥 ∈ 𝑏) → (.g‘𝑟) = (.g‘𝑅))
7		simplrr 790	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑟 = 𝑅 ∧ 𝑘 = 𝐾)) ∧ 𝑥 ∈ 𝑏) → 𝑘 = 𝐾)
8		eqidd 2762	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑟 = 𝑅 ∧ 𝑘 = 𝐾)) ∧ 𝑥 ∈ 𝑏) → 𝑥 = 𝑥)
9	6, 7, 8	oveq123d 7433	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑟 = 𝑅 ∧ 𝑘 = 𝐾)) ∧ 𝑥 ∈ 𝑏) → (𝑘(.g‘𝑟)𝑥) = (𝐾(.g‘𝑅)𝑥))
10	5	fveq2d 6881	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑟 = 𝑅 ∧ 𝑘 = 𝐾)) ∧ 𝑥 ∈ 𝑏) → (0g‘𝑟) = (0g‘𝑅))
11	9, 10	eqeq12d 2777	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑟 = 𝑅 ∧ 𝑘 = 𝐾)) ∧ 𝑥 ∈ 𝑏) → ((𝑘(.g‘𝑟)𝑥) = (0g‘𝑟) ↔ (𝐾(.g‘𝑅)𝑥) = (0g‘𝑅)))
12	3	fveq2d 6881	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑟 = 𝑅 ∧ 𝑘 = 𝐾)) → (.g‘𝑟) = (.g‘𝑅))
13	12	oveqdr 7440	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑟 = 𝑅 ∧ 𝑘 = 𝐾)) ∧ 𝑥 ∈ 𝑏) → (𝑙(.g‘𝑟)𝑥) = (𝑙(.g‘𝑅)𝑥))
14	13, 10	eqeq12d 2777	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑟 = 𝑅 ∧ 𝑘 = 𝐾)) ∧ 𝑥 ∈ 𝑏) → ((𝑙(.g‘𝑟)𝑥) = (0g‘𝑟) ↔ (𝑙(.g‘𝑅)𝑥) = (0g‘𝑅)))
15	7	breq1d 5113	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑟 = 𝑅 ∧ 𝑘 = 𝐾)) ∧ 𝑥 ∈ 𝑏) → (𝑘 ∥ 𝑙 ↔ 𝐾 ∥ 𝑙))
16	14, 15	imbi12d 347	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑟 = 𝑅 ∧ 𝑘 = 𝐾)) ∧ 𝑥 ∈ 𝑏) → (((𝑙(.g‘𝑟)𝑥) = (0g‘𝑟) → 𝑘 ∥ 𝑙) ↔ ((𝑙(.g‘𝑅)𝑥) = (0g‘𝑅) → 𝐾 ∥ 𝑙)))
17	16	ralbidv 3186	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑟 = 𝑅 ∧ 𝑘 = 𝐾)) ∧ 𝑥 ∈ 𝑏) → (∀𝑙 ∈ ℕ0 ((𝑙(.g‘𝑟)𝑥) = (0g‘𝑟) → 𝑘 ∥ 𝑙) ↔ ∀𝑙 ∈ ℕ0 ((𝑙(.g‘𝑅)𝑥) = (0g‘𝑅) → 𝐾 ∥ 𝑙)))
18	11, 17	anbi12d 644	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑟 = 𝑅 ∧ 𝑘 = 𝐾)) ∧ 𝑥 ∈ 𝑏) → (((𝑘(.g‘𝑟)𝑥) = (0g‘𝑟) ∧ ∀𝑙 ∈ ℕ0 ((𝑙(.g‘𝑟)𝑥) = (0g‘𝑟) → 𝑘 ∥ 𝑙)) ↔ ((𝐾(.g‘𝑅)𝑥) = (0g‘𝑅) ∧ ∀𝑙 ∈ ℕ0 ((𝑙(.g‘𝑅)𝑥) = (0g‘𝑅) → 𝐾 ∥ 𝑙))))
19	18	rabbidva 3419	. . . . . 6 ⊢ ((𝜑 ∧ (𝑟 = 𝑅 ∧ 𝑘 = 𝐾)) → {𝑥 ∈ 𝑏 ∣ ((𝑘(.g‘𝑟)𝑥) = (0g‘𝑟) ∧ ∀𝑙 ∈ ℕ0 ((𝑙(.g‘𝑟)𝑥) = (0g‘𝑟) → 𝑘 ∥ 𝑙))} = {𝑥 ∈ 𝑏 ∣ ((𝐾(.g‘𝑅)𝑥) = (0g‘𝑅) ∧ ∀𝑙 ∈ ℕ0 ((𝑙(.g‘𝑅)𝑥) = (0g‘𝑅) → 𝐾 ∥ 𝑙))})
20	4, 19	csbeq12dv 3856	. . . . 5 ⊢ ((𝜑 ∧ (𝑟 = 𝑅 ∧ 𝑘 = 𝐾)) → ⦋(Base‘𝑟) / 𝑏⦌{𝑥 ∈ 𝑏 ∣ ((𝑘(.g‘𝑟)𝑥) = (0g‘𝑟) ∧ ∀𝑙 ∈ ℕ0 ((𝑙(.g‘𝑟)𝑥) = (0g‘𝑟) → 𝑘 ∥ 𝑙))} = ⦋(Base‘𝑅) / 𝑏⦌{𝑥 ∈ 𝑏 ∣ ((𝐾(.g‘𝑅)𝑥) = (0g‘𝑅) ∧ ∀𝑙 ∈ ℕ0 ((𝑙(.g‘𝑅)𝑥) = (0g‘𝑅) → 𝐾 ∥ 𝑙))})
21		isprimroot.1	. . . . 5 ⊢ (𝜑 → 𝑅 ∈ CMnd)
22		isprimroot.2	. . . . 5 ⊢ (𝜑 → 𝐾 ∈ ℕ0)
23		eqid 2761	. . . . . . 7 ⊢ {𝑥 ∈ (Base‘𝑅) ∣ ((𝐾(.g‘𝑅)𝑥) = (0g‘𝑅) ∧ ∀𝑙 ∈ ℕ0 ((𝑙(.g‘𝑅)𝑥) = (0g‘𝑅) → 𝐾 ∥ 𝑙))} = {𝑥 ∈ (Base‘𝑅) ∣ ((𝐾(.g‘𝑅)𝑥) = (0g‘𝑅) ∧ ∀𝑙 ∈ ℕ0 ((𝑙(.g‘𝑅)𝑥) = (0g‘𝑅) → 𝐾 ∥ 𝑙))}
24		fvexd 6892	. . . . . . 7 ⊢ (𝜑 → (Base‘𝑅) ∈ V)
25	23, 24	rabexd 5301	. . . . . 6 ⊢ (𝜑 → {𝑥 ∈ (Base‘𝑅) ∣ ((𝐾(.g‘𝑅)𝑥) = (0g‘𝑅) ∧ ∀𝑙 ∈ ℕ0 ((𝑙(.g‘𝑅)𝑥) = (0g‘𝑅) → 𝐾 ∥ 𝑙))} ∈ V)
26		simpr 490	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑏 = (Base‘𝑅)) → 𝑏 = (Base‘𝑅))
27	26	rabeqdv 3428	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑏 = (Base‘𝑅)) → {𝑥 ∈ 𝑏 ∣ ((𝐾(.g‘𝑅)𝑥) = (0g‘𝑅) ∧ ∀𝑙 ∈ ℕ0 ((𝑙(.g‘𝑅)𝑥) = (0g‘𝑅) → 𝐾 ∥ 𝑙))} = {𝑥 ∈ (Base‘𝑅) ∣ ((𝐾(.g‘𝑅)𝑥) = (0g‘𝑅) ∧ ∀𝑙 ∈ ℕ0 ((𝑙(.g‘𝑅)𝑥) = (0g‘𝑅) → 𝐾 ∥ 𝑙))})
28	24, 27	csbied 3883	. . . . . . 7 ⊢ (𝜑 → ⦋(Base‘𝑅) / 𝑏⦌{𝑥 ∈ 𝑏 ∣ ((𝐾(.g‘𝑅)𝑥) = (0g‘𝑅) ∧ ∀𝑙 ∈ ℕ0 ((𝑙(.g‘𝑅)𝑥) = (0g‘𝑅) → 𝐾 ∥ 𝑙))} = {𝑥 ∈ (Base‘𝑅) ∣ ((𝐾(.g‘𝑅)𝑥) = (0g‘𝑅) ∧ ∀𝑙 ∈ ℕ0 ((𝑙(.g‘𝑅)𝑥) = (0g‘𝑅) → 𝐾 ∥ 𝑙))})
29	28	eleq1d 2846	. . . . . 6 ⊢ (𝜑 → (⦋(Base‘𝑅) / 𝑏⦌{𝑥 ∈ 𝑏 ∣ ((𝐾(.g‘𝑅)𝑥) = (0g‘𝑅) ∧ ∀𝑙 ∈ ℕ0 ((𝑙(.g‘𝑅)𝑥) = (0g‘𝑅) → 𝐾 ∥ 𝑙))} ∈ V ↔ {𝑥 ∈ (Base‘𝑅) ∣ ((𝐾(.g‘𝑅)𝑥) = (0g‘𝑅) ∧ ∀𝑙 ∈ ℕ0 ((𝑙(.g‘𝑅)𝑥) = (0g‘𝑅) → 𝐾 ∥ 𝑙))} ∈ V))
30	25, 29	mpbird 260	. . . . 5 ⊢ (𝜑 → ⦋(Base‘𝑅) / 𝑏⦌{𝑥 ∈ 𝑏 ∣ ((𝐾(.g‘𝑅)𝑥) = (0g‘𝑅) ∧ ∀𝑙 ∈ ℕ0 ((𝑙(.g‘𝑅)𝑥) = (0g‘𝑅) → 𝐾 ∥ 𝑙))} ∈ V)
31	2, 20, 21, 22, 30	ovmpod 7564	. . . 4 ⊢ (𝜑 → (𝑅 PrimRoots 𝐾) = ⦋(Base‘𝑅) / 𝑏⦌{𝑥 ∈ 𝑏 ∣ ((𝐾(.g‘𝑅)𝑥) = (0g‘𝑅) ∧ ∀𝑙 ∈ ℕ0 ((𝑙(.g‘𝑅)𝑥) = (0g‘𝑅) → 𝐾 ∥ 𝑙))})
32	31, 28	eqtrd 2796	. . 3 ⊢ (𝜑 → (𝑅 PrimRoots 𝐾) = {𝑥 ∈ (Base‘𝑅) ∣ ((𝐾(.g‘𝑅)𝑥) = (0g‘𝑅) ∧ ∀𝑙 ∈ ℕ0 ((𝑙(.g‘𝑅)𝑥) = (0g‘𝑅) → 𝐾 ∥ 𝑙))})
33	32	eleq2d 2847	. 2 ⊢ (𝜑 → (𝑀 ∈ (𝑅 PrimRoots 𝐾) ↔ 𝑀 ∈ {𝑥 ∈ (Base‘𝑅) ∣ ((𝐾(.g‘𝑅)𝑥) = (0g‘𝑅) ∧ ∀𝑙 ∈ ℕ0 ((𝑙(.g‘𝑅)𝑥) = (0g‘𝑅) → 𝐾 ∥ 𝑙))}))
34		oveq2 7420	. . . . . . 7 ⊢ (𝑥 = 𝑀 → (𝐾(.g‘𝑅)𝑥) = (𝐾(.g‘𝑅)𝑀))
35	34	eqeq1d 2763	. . . . . 6 ⊢ (𝑥 = 𝑀 → ((𝐾(.g‘𝑅)𝑥) = (0g‘𝑅) ↔ (𝐾(.g‘𝑅)𝑀) = (0g‘𝑅)))
36		oveq2 7420	. . . . . . . . 9 ⊢ (𝑥 = 𝑀 → (𝑙(.g‘𝑅)𝑥) = (𝑙(.g‘𝑅)𝑀))
37	36	eqeq1d 2763	. . . . . . . 8 ⊢ (𝑥 = 𝑀 → ((𝑙(.g‘𝑅)𝑥) = (0g‘𝑅) ↔ (𝑙(.g‘𝑅)𝑀) = (0g‘𝑅)))
38	37	imbi1d 344	. . . . . . 7 ⊢ (𝑥 = 𝑀 → (((𝑙(.g‘𝑅)𝑥) = (0g‘𝑅) → 𝐾 ∥ 𝑙) ↔ ((𝑙(.g‘𝑅)𝑀) = (0g‘𝑅) → 𝐾 ∥ 𝑙)))
39	38	ralbidv 3186	. . . . . 6 ⊢ (𝑥 = 𝑀 → (∀𝑙 ∈ ℕ0 ((𝑙(.g‘𝑅)𝑥) = (0g‘𝑅) → 𝐾 ∥ 𝑙) ↔ ∀𝑙 ∈ ℕ0 ((𝑙(.g‘𝑅)𝑀) = (0g‘𝑅) → 𝐾 ∥ 𝑙)))
40	35, 39	anbi12d 644	. . . . 5 ⊢ (𝑥 = 𝑀 → (((𝐾(.g‘𝑅)𝑥) = (0g‘𝑅) ∧ ∀𝑙 ∈ ℕ0 ((𝑙(.g‘𝑅)𝑥) = (0g‘𝑅) → 𝐾 ∥ 𝑙)) ↔ ((𝐾(.g‘𝑅)𝑀) = (0g‘𝑅) ∧ ∀𝑙 ∈ ℕ0 ((𝑙(.g‘𝑅)𝑀) = (0g‘𝑅) → 𝐾 ∥ 𝑙))))
41	40	elrab 3645	. . . 4 ⊢ (𝑀 ∈ {𝑥 ∈ (Base‘𝑅) ∣ ((𝐾(.g‘𝑅)𝑥) = (0g‘𝑅) ∧ ∀𝑙 ∈ ℕ0 ((𝑙(.g‘𝑅)𝑥) = (0g‘𝑅) → 𝐾 ∥ 𝑙))} ↔ (𝑀 ∈ (Base‘𝑅) ∧ ((𝐾(.g‘𝑅)𝑀) = (0g‘𝑅) ∧ ∀𝑙 ∈ ℕ0 ((𝑙(.g‘𝑅)𝑀) = (0g‘𝑅) → 𝐾 ∥ 𝑙))))
42	41	a1i 11	. . 3 ⊢ (𝜑 → (𝑀 ∈ {𝑥 ∈ (Base‘𝑅) ∣ ((𝐾(.g‘𝑅)𝑥) = (0g‘𝑅) ∧ ∀𝑙 ∈ ℕ0 ((𝑙(.g‘𝑅)𝑥) = (0g‘𝑅) → 𝐾 ∥ 𝑙))} ↔ (𝑀 ∈ (Base‘𝑅) ∧ ((𝐾(.g‘𝑅)𝑀) = (0g‘𝑅) ∧ ∀𝑙 ∈ ℕ0 ((𝑙(.g‘𝑅)𝑀) = (0g‘𝑅) → 𝐾 ∥ 𝑙)))))
43		3anass 1111	. . . . . 6 ⊢ ((𝑀 ∈ (Base‘𝑅) ∧ (𝐾(.g‘𝑅)𝑀) = (0g‘𝑅) ∧ ∀𝑙 ∈ ℕ0 ((𝑙(.g‘𝑅)𝑀) = (0g‘𝑅) → 𝐾 ∥ 𝑙)) ↔ (𝑀 ∈ (Base‘𝑅) ∧ ((𝐾(.g‘𝑅)𝑀) = (0g‘𝑅) ∧ ∀𝑙 ∈ ℕ0 ((𝑙(.g‘𝑅)𝑀) = (0g‘𝑅) → 𝐾 ∥ 𝑙))))
44	43	bicomi 227	. . . . 5 ⊢ ((𝑀 ∈ (Base‘𝑅) ∧ ((𝐾(.g‘𝑅)𝑀) = (0g‘𝑅) ∧ ∀𝑙 ∈ ℕ0 ((𝑙(.g‘𝑅)𝑀) = (0g‘𝑅) → 𝐾 ∥ 𝑙))) ↔ (𝑀 ∈ (Base‘𝑅) ∧ (𝐾(.g‘𝑅)𝑀) = (0g‘𝑅) ∧ ∀𝑙 ∈ ℕ0 ((𝑙(.g‘𝑅)𝑀) = (0g‘𝑅) → 𝐾 ∥ 𝑙)))
45	44	a1i 11	. . . 4 ⊢ (𝜑 → ((𝑀 ∈ (Base‘𝑅) ∧ ((𝐾(.g‘𝑅)𝑀) = (0g‘𝑅) ∧ ∀𝑙 ∈ ℕ0 ((𝑙(.g‘𝑅)𝑀) = (0g‘𝑅) → 𝐾 ∥ 𝑙))) ↔ (𝑀 ∈ (Base‘𝑅) ∧ (𝐾(.g‘𝑅)𝑀) = (0g‘𝑅) ∧ ∀𝑙 ∈ ℕ0 ((𝑙(.g‘𝑅)𝑀) = (0g‘𝑅) → 𝐾 ∥ 𝑙))))
46		biidd 265	. . . . 5 ⊢ (𝜑 → (𝑀 ∈ (Base‘𝑅) ↔ 𝑀 ∈ (Base‘𝑅)))
47		isprimroot.3	. . . . . . . . 9 ⊢ ↑ = (.g‘𝑅)
48	47	eqcomi 2770	. . . . . . . 8 ⊢ (.g‘𝑅) = ↑
49	48	a1i 11	. . . . . . 7 ⊢ (𝜑 → (.g‘𝑅) = ↑ )
50	49	oveqd 7429	. . . . . 6 ⊢ (𝜑 → (𝐾(.g‘𝑅)𝑀) = (𝐾 ↑ 𝑀))
51	50	eqeq1d 2763	. . . . 5 ⊢ (𝜑 → ((𝐾(.g‘𝑅)𝑀) = (0g‘𝑅) ↔ (𝐾 ↑ 𝑀) = (0g‘𝑅)))
52	49	oveqd 7429	. . . . . . . 8 ⊢ (𝜑 → (𝑙(.g‘𝑅)𝑀) = (𝑙 ↑ 𝑀))
53	52	eqeq1d 2763	. . . . . . 7 ⊢ (𝜑 → ((𝑙(.g‘𝑅)𝑀) = (0g‘𝑅) ↔ (𝑙 ↑ 𝑀) = (0g‘𝑅)))
54	53	imbi1d 344	. . . . . 6 ⊢ (𝜑 → (((𝑙(.g‘𝑅)𝑀) = (0g‘𝑅) → 𝐾 ∥ 𝑙) ↔ ((𝑙 ↑ 𝑀) = (0g‘𝑅) → 𝐾 ∥ 𝑙)))
55	54	ralbidv 3186	. . . . 5 ⊢ (𝜑 → (∀𝑙 ∈ ℕ0 ((𝑙(.g‘𝑅)𝑀) = (0g‘𝑅) → 𝐾 ∥ 𝑙) ↔ ∀𝑙 ∈ ℕ0 ((𝑙 ↑ 𝑀) = (0g‘𝑅) → 𝐾 ∥ 𝑙)))
56	46, 51, 55	3anbi123d 1464	. . . 4 ⊢ (𝜑 → ((𝑀 ∈ (Base‘𝑅) ∧ (𝐾(.g‘𝑅)𝑀) = (0g‘𝑅) ∧ ∀𝑙 ∈ ℕ0 ((𝑙(.g‘𝑅)𝑀) = (0g‘𝑅) → 𝐾 ∥ 𝑙)) ↔ (𝑀 ∈ (Base‘𝑅) ∧ (𝐾 ↑ 𝑀) = (0g‘𝑅) ∧ ∀𝑙 ∈ ℕ0 ((𝑙 ↑ 𝑀) = (0g‘𝑅) → 𝐾 ∥ 𝑙))))
57	45, 56	bitrd 282	. . 3 ⊢ (𝜑 → ((𝑀 ∈ (Base‘𝑅) ∧ ((𝐾(.g‘𝑅)𝑀) = (0g‘𝑅) ∧ ∀𝑙 ∈ ℕ0 ((𝑙(.g‘𝑅)𝑀) = (0g‘𝑅) → 𝐾 ∥ 𝑙))) ↔ (𝑀 ∈ (Base‘𝑅) ∧ (𝐾 ↑ 𝑀) = (0g‘𝑅) ∧ ∀𝑙 ∈ ℕ0 ((𝑙 ↑ 𝑀) = (0g‘𝑅) → 𝐾 ∥ 𝑙))))
58	42, 57	bitrd 282	. 2 ⊢ (𝜑 → (𝑀 ∈ {𝑥 ∈ (Base‘𝑅) ∣ ((𝐾(.g‘𝑅)𝑥) = (0g‘𝑅) ∧ ∀𝑙 ∈ ℕ0 ((𝑙(.g‘𝑅)𝑥) = (0g‘𝑅) → 𝐾 ∥ 𝑙))} ↔ (𝑀 ∈ (Base‘𝑅) ∧ (𝐾 ↑ 𝑀) = (0g‘𝑅) ∧ ∀𝑙 ∈ ℕ0 ((𝑙 ↑ 𝑀) = (0g‘𝑅) → 𝐾 ∥ 𝑙))))
59	33, 58	bitrd 282	1 ⊢ (𝜑 → (𝑀 ∈ (𝑅 PrimRoots 𝐾) ↔ (𝑀 ∈ (Base‘𝑅) ∧ (𝐾 ↑ 𝑀) = (0g‘𝑅) ∧ ∀𝑙 ∈ ℕ0 ((𝑙 ↑ 𝑀) = (0g‘𝑅) → 𝐾 ∥ 𝑙))))

This proof depends on syntax axioms:   → wi 4   ↔ wb 209   ∧ wa 401   ∧ w3a 1103   = wceq 1570   ∈ wcel 2145  ∀wral 3077  {crab 3413  Vcvv 3451  ⦋csb 3847   class class class wbr 5103  ‘cfv 6531  (class class class)co 7412   ∈ cmpo 7414  ℕ₀cn0 12587   ∥ cdvds 16402  Basecbs 17367  0_gc0g 17590  ._gcmg 19257  CMndccmn 19974   PrimRoots cprimroots 43109

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1943  ax-6 2000  ax-7 2041  ax-8 2147  ax-9 2155  ax-10 2178  ax-11 2194  ax-12 2213  ax-ext 2733  ax-sep 5249  ax-nul 5260  ax-pr 5391

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2100  df-mo 2565  df-eu 2595  df-clab 2740  df-cleq 2753  df-clel 2836  df-nfc 2910  df-ne 2957  df-ral 3078  df-rex 3088  df-rab 3414  df-v 3453  df-sbc 3740  df-csb 3848  df-dif 3902  df-un 3904  df-in 3906  df-ss 3916  df-nul 4280  df-if 4483  df-pw 4559  df-sn 4585  df-pr 4587  df-op 4591  df-uni 4868  df-br 5104  df-opab 5168  df-id 5546  df-xp 5657  df-rel 5658  df-cnv 5659  df-co 5660  df-dm 5661  df-iota 6487  df-fun 6533  df-fv 6539  df-ov 7415  df-oprab 7416  df-mpo 7417  df-primroots 43110

This theorem is used by:  isprimroot2  43112  primrootsunit1  43115  primrootscoprmpow  43117  primrootscoprbij  43120  primrootlekpowne0  43123  primrootspoweq0  43124  aks6d1c1p2  43127  aks6d1c1p3  43128  aks6d1c1p4  43129  aks6d1c1p5  43130  aks6d1c1p7  43131  aks6d1c1p6  43132  aks6d1c1p8  43133  aks6d1c2lem3  43144  aks6d1c2lem4  43145  aks6d1c6lem2  43189  aks6d1c6lem3  43190  aks6d1c6lem4  43191  aks6d1c6isolem1  43192  aks6d1c6isolem2  43193  aks6d1c6lem5  43195  aks5lem2  43205  aks5lem3a  43207