Theorem isprimroot 42722

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 42721	. . . . . 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 782	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑟 = 𝑅 ∧ 𝑘 = 𝐾)) → 𝑟 = 𝑅)
4	3	fveq2d 6875	. . . . . 6 ⊢ ((𝜑 ∧ (𝑟 = 𝑅 ∧ 𝑘 = 𝐾)) → (Base‘𝑟) = (Base‘𝑅))
5		simplrl 788	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑟 = 𝑅 ∧ 𝑘 = 𝐾)) ∧ 𝑥 ∈ 𝑏) → 𝑟 = 𝑅)
6	5	fveq2d 6875	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑟 = 𝑅 ∧ 𝑘 = 𝐾)) ∧ 𝑥 ∈ 𝑏) → (.g‘𝑟) = (.g‘𝑅))
7		simplrr 789	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑟 = 𝑅 ∧ 𝑘 = 𝐾)) ∧ 𝑥 ∈ 𝑏) → 𝑘 = 𝐾)
8		eqidd 2766	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑟 = 𝑅 ∧ 𝑘 = 𝐾)) ∧ 𝑥 ∈ 𝑏) → 𝑥 = 𝑥)
9	6, 7, 8	oveq123d 7421	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑟 = 𝑅 ∧ 𝑘 = 𝐾)) ∧ 𝑥 ∈ 𝑏) → (𝑘(.g‘𝑟)𝑥) = (𝐾(.g‘𝑅)𝑥))
10	5	fveq2d 6875	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑟 = 𝑅 ∧ 𝑘 = 𝐾)) ∧ 𝑥 ∈ 𝑏) → (0g‘𝑟) = (0g‘𝑅))
11	9, 10	eqeq12d 2781	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑟 = 𝑅 ∧ 𝑘 = 𝐾)) ∧ 𝑥 ∈ 𝑏) → ((𝑘(.g‘𝑟)𝑥) = (0g‘𝑟) ↔ (𝐾(.g‘𝑅)𝑥) = (0g‘𝑅)))
12	3	fveq2d 6875	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑟 = 𝑅 ∧ 𝑘 = 𝐾)) → (.g‘𝑟) = (.g‘𝑅))
13	12	oveqdr 7428	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑟 = 𝑅 ∧ 𝑘 = 𝐾)) ∧ 𝑥 ∈ 𝑏) → (𝑙(.g‘𝑟)𝑥) = (𝑙(.g‘𝑅)𝑥))
14	13, 10	eqeq12d 2781	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑟 = 𝑅 ∧ 𝑘 = 𝐾)) ∧ 𝑥 ∈ 𝑏) → ((𝑙(.g‘𝑟)𝑥) = (0g‘𝑟) ↔ (𝑙(.g‘𝑅)𝑥) = (0g‘𝑅)))
15	7	breq1d 5115	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑟 = 𝑅 ∧ 𝑘 = 𝐾)) ∧ 𝑥 ∈ 𝑏) → (𝑘 ∥ 𝑙 ↔ 𝐾 ∥ 𝑙))
16	14, 15	imbi12d 347	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑟 = 𝑅 ∧ 𝑘 = 𝐾)) ∧ 𝑥 ∈ 𝑏) → (((𝑙(.g‘𝑟)𝑥) = (0g‘𝑟) → 𝑘 ∥ 𝑙) ↔ ((𝑙(.g‘𝑅)𝑥) = (0g‘𝑅) → 𝐾 ∥ 𝑙)))
17	16	ralbidv 3188	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑟 = 𝑅 ∧ 𝑘 = 𝐾)) ∧ 𝑥 ∈ 𝑏) → (∀𝑙 ∈ ℕ0 ((𝑙(.g‘𝑟)𝑥) = (0g‘𝑟) → 𝑘 ∥ 𝑙) ↔ ∀𝑙 ∈ ℕ0 ((𝑙(.g‘𝑅)𝑥) = (0g‘𝑅) → 𝐾 ∥ 𝑙)))
18	11, 17	anbi12d 643	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑟 = 𝑅 ∧ 𝑘 = 𝐾)) ∧ 𝑥 ∈ 𝑏) → (((𝑘(.g‘𝑟)𝑥) = (0g‘𝑟) ∧ ∀𝑙 ∈ ℕ0 ((𝑙(.g‘𝑟)𝑥) = (0g‘𝑟) → 𝑘 ∥ 𝑙)) ↔ ((𝐾(.g‘𝑅)𝑥) = (0g‘𝑅) ∧ ∀𝑙 ∈ ℕ0 ((𝑙(.g‘𝑅)𝑥) = (0g‘𝑅) → 𝐾 ∥ 𝑙))))
19	18	rabbidva 3423	. . . . . 6 ⊢ ((𝜑 ∧ (𝑟 = 𝑅 ∧ 𝑘 = 𝐾)) → {𝑥 ∈ 𝑏 ∣ ((𝑘(.g‘𝑟)𝑥) = (0g‘𝑟) ∧ ∀𝑙 ∈ ℕ0 ((𝑙(.g‘𝑟)𝑥) = (0g‘𝑟) → 𝑘 ∥ 𝑙))} = {𝑥 ∈ 𝑏 ∣ ((𝐾(.g‘𝑅)𝑥) = (0g‘𝑅) ∧ ∀𝑙 ∈ ℕ0 ((𝑙(.g‘𝑅)𝑥) = (0g‘𝑅) → 𝐾 ∥ 𝑙))})
20	4, 19	csbeq12dv 3864	. . . . 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 2765	. . . . . . 7 ⊢ {𝑥 ∈ (Base‘𝑅) ∣ ((𝐾(.g‘𝑅)𝑥) = (0g‘𝑅) ∧ ∀𝑙 ∈ ℕ0 ((𝑙(.g‘𝑅)𝑥) = (0g‘𝑅) → 𝐾 ∥ 𝑙))} = {𝑥 ∈ (Base‘𝑅) ∣ ((𝐾(.g‘𝑅)𝑥) = (0g‘𝑅) ∧ ∀𝑙 ∈ ℕ0 ((𝑙(.g‘𝑅)𝑥) = (0g‘𝑅) → 𝐾 ∥ 𝑙))}
24		fvexd 6886	. . . . . . 7 ⊢ (𝜑 → (Base‘𝑅) ∈ V)
25	23, 24	rabexd 5301	. . . . . 6 ⊢ (𝜑 → {𝑥 ∈ (Base‘𝑅) ∣ ((𝐾(.g‘𝑅)𝑥) = (0g‘𝑅) ∧ ∀𝑙 ∈ ℕ0 ((𝑙(.g‘𝑅)𝑥) = (0g‘𝑅) → 𝐾 ∥ 𝑙))} ∈ V)
26		simpr 489	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑏 = (Base‘𝑅)) → 𝑏 = (Base‘𝑅))
27	26	rabeqdv 3432	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑏 = (Base‘𝑅)) → {𝑥 ∈ 𝑏 ∣ ((𝐾(.g‘𝑅)𝑥) = (0g‘𝑅) ∧ ∀𝑙 ∈ ℕ0 ((𝑙(.g‘𝑅)𝑥) = (0g‘𝑅) → 𝐾 ∥ 𝑙))} = {𝑥 ∈ (Base‘𝑅) ∣ ((𝐾(.g‘𝑅)𝑥) = (0g‘𝑅) ∧ ∀𝑙 ∈ ℕ0 ((𝑙(.g‘𝑅)𝑥) = (0g‘𝑅) → 𝐾 ∥ 𝑙))})
28	24, 27	csbied 3891	. . . . . . 7 ⊢ (𝜑 → ⦋(Base‘𝑅) / 𝑏⦌{𝑥 ∈ 𝑏 ∣ ((𝐾(.g‘𝑅)𝑥) = (0g‘𝑅) ∧ ∀𝑙 ∈ ℕ0 ((𝑙(.g‘𝑅)𝑥) = (0g‘𝑅) → 𝐾 ∥ 𝑙))} = {𝑥 ∈ (Base‘𝑅) ∣ ((𝐾(.g‘𝑅)𝑥) = (0g‘𝑅) ∧ ∀𝑙 ∈ ℕ0 ((𝑙(.g‘𝑅)𝑥) = (0g‘𝑅) → 𝐾 ∥ 𝑙))})
29	28	eleq1d 2850	. . . . . 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 7552	. . . 4 ⊢ (𝜑 → (𝑅 PrimRoots 𝐾) = ⦋(Base‘𝑅) / 𝑏⦌{𝑥 ∈ 𝑏 ∣ ((𝐾(.g‘𝑅)𝑥) = (0g‘𝑅) ∧ ∀𝑙 ∈ ℕ0 ((𝑙(.g‘𝑅)𝑥) = (0g‘𝑅) → 𝐾 ∥ 𝑙))})
32	31, 28	eqtrd 2800	. . 3 ⊢ (𝜑 → (𝑅 PrimRoots 𝐾) = {𝑥 ∈ (Base‘𝑅) ∣ ((𝐾(.g‘𝑅)𝑥) = (0g‘𝑅) ∧ ∀𝑙 ∈ ℕ0 ((𝑙(.g‘𝑅)𝑥) = (0g‘𝑅) → 𝐾 ∥ 𝑙))})
33	32	eleq2d 2851	. 2 ⊢ (𝜑 → (𝑀 ∈ (𝑅 PrimRoots 𝐾) ↔ 𝑀 ∈ {𝑥 ∈ (Base‘𝑅) ∣ ((𝐾(.g‘𝑅)𝑥) = (0g‘𝑅) ∧ ∀𝑙 ∈ ℕ0 ((𝑙(.g‘𝑅)𝑥) = (0g‘𝑅) → 𝐾 ∥ 𝑙))}))
34		oveq2 7408	. . . . . . 7 ⊢ (𝑥 = 𝑀 → (𝐾(.g‘𝑅)𝑥) = (𝐾(.g‘𝑅)𝑀))
35	34	eqeq1d 2767	. . . . . 6 ⊢ (𝑥 = 𝑀 → ((𝐾(.g‘𝑅)𝑥) = (0g‘𝑅) ↔ (𝐾(.g‘𝑅)𝑀) = (0g‘𝑅)))
36		oveq2 7408	. . . . . . . . 9 ⊢ (𝑥 = 𝑀 → (𝑙(.g‘𝑅)𝑥) = (𝑙(.g‘𝑅)𝑀))
37	36	eqeq1d 2767	. . . . . . . 8 ⊢ (𝑥 = 𝑀 → ((𝑙(.g‘𝑅)𝑥) = (0g‘𝑅) ↔ (𝑙(.g‘𝑅)𝑀) = (0g‘𝑅)))
38	37	imbi1d 344	. . . . . . 7 ⊢ (𝑥 = 𝑀 → (((𝑙(.g‘𝑅)𝑥) = (0g‘𝑅) → 𝐾 ∥ 𝑙) ↔ ((𝑙(.g‘𝑅)𝑀) = (0g‘𝑅) → 𝐾 ∥ 𝑙)))
39	38	ralbidv 3188	. . . . . 6 ⊢ (𝑥 = 𝑀 → (∀𝑙 ∈ ℕ0 ((𝑙(.g‘𝑅)𝑥) = (0g‘𝑅) → 𝐾 ∥ 𝑙) ↔ ∀𝑙 ∈ ℕ0 ((𝑙(.g‘𝑅)𝑀) = (0g‘𝑅) → 𝐾 ∥ 𝑙)))
40	35, 39	anbi12d 643	. . . . 5 ⊢ (𝑥 = 𝑀 → (((𝐾(.g‘𝑅)𝑥) = (0g‘𝑅) ∧ ∀𝑙 ∈ ℕ0 ((𝑙(.g‘𝑅)𝑥) = (0g‘𝑅) → 𝐾 ∥ 𝑙)) ↔ ((𝐾(.g‘𝑅)𝑀) = (0g‘𝑅) ∧ ∀𝑙 ∈ ℕ0 ((𝑙(.g‘𝑅)𝑀) = (0g‘𝑅) → 𝐾 ∥ 𝑙))))
41	40	elrab 3653	. . . 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 1109	. . . . . 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 2774	. . . . . . . 8 ⊢ (.g‘𝑅) = ↑
49	48	a1i 11	. . . . . . 7 ⊢ (𝜑 → (.g‘𝑅) = ↑ )
50	49	oveqd 7417	. . . . . 6 ⊢ (𝜑 → (𝐾(.g‘𝑅)𝑀) = (𝐾 ↑ 𝑀))
51	50	eqeq1d 2767	. . . . 5 ⊢ (𝜑 → ((𝐾(.g‘𝑅)𝑀) = (0g‘𝑅) ↔ (𝐾 ↑ 𝑀) = (0g‘𝑅)))
52	49	oveqd 7417	. . . . . . . 8 ⊢ (𝜑 → (𝑙(.g‘𝑅)𝑀) = (𝑙 ↑ 𝑀))
53	52	eqeq1d 2767	. . . . . . 7 ⊢ (𝜑 → ((𝑙(.g‘𝑅)𝑀) = (0g‘𝑅) ↔ (𝑙 ↑ 𝑀) = (0g‘𝑅)))
54	53	imbi1d 344	. . . . . 6 ⊢ (𝜑 → (((𝑙(.g‘𝑅)𝑀) = (0g‘𝑅) → 𝐾 ∥ 𝑙) ↔ ((𝑙 ↑ 𝑀) = (0g‘𝑅) → 𝐾 ∥ 𝑙)))
55	54	ralbidv 3188	. . . . 5 ⊢ (𝜑 → (∀𝑙 ∈ ℕ0 ((𝑙(.g‘𝑅)𝑀) = (0g‘𝑅) → 𝐾 ∥ 𝑙) ↔ ∀𝑙 ∈ ℕ0 ((𝑙 ↑ 𝑀) = (0g‘𝑅) → 𝐾 ∥ 𝑙)))
56	46, 51, 55	3anbi123d 1460	. . . 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‘𝑅) → 𝐾 ∥ 𝑙))))

Syntax hints:   → wi 4   ↔ wb 209   ∧ wa 400   ∧ w3a 1101   = wceq 1563   ∈ wcel 2145  ∀wral 3079  {crab 3417  Vcvv 3457  ⦋csb 3855   class class class wbr 5105  ‘cfv 6525  (class class class)co 7400   ∈ cmpo 7402  ℕ₀cn0 12495   ∥ cdvds 16300  Basecbs 17259  0_gc0g 17482  ._gcmg 19124  CMndccmn 19841   PrimRoots cprimroots 42720

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1818  ax-4 1832  ax-5 1933  ax-6 1990  ax-7 2031  ax-8 2147  ax-9 2155  ax-10 2178  ax-11 2194  ax-12 2215  ax-ext 2737  ax-sep 5251  ax-nul 5261  ax-pr 5395

This theorem depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3an 1103  df-tru 1566  df-fal 1576  df-ex 1803  df-nf 1807  df-sb 2094  df-mo 2569  df-eu 2599  df-clab 2744  df-cleq 2757  df-clel 2840  df-nfc 2914  df-ne 2961  df-ral 3080  df-rex 3090  df-rab 3418  df-v 3459  df-sbc 3748  df-csb 3856  df-dif 3910  df-un 3912  df-in 3914  df-ss 3924  df-nul 4289  df-if 4484  df-pw 4560  df-sn 4586  df-pr 4588  df-op 4592  df-uni 4869  df-br 5106  df-opab 5168  df-id 5547  df-xp 5658  df-rel 5659  df-cnv 5660  df-co 5661  df-dm 5662  df-iota 6481  df-fun 6527  df-fv 6533  df-ov 7403  df-oprab 7404  df-mpo 7405  df-primroots 42721

This theorem is referenced by:  isprimroot2  42723  primrootsunit1  42726  primrootscoprmpow  42728  primrootscoprbij  42731  primrootlekpowne0  42734  primrootspoweq0  42735  aks6d1c1p2  42738  aks6d1c1p3  42739  aks6d1c1p4  42740  aks6d1c1p5  42741  aks6d1c1p7  42742  aks6d1c1p6  42743  aks6d1c1p8  42744  aks6d1c2lem3  42755  aks6d1c2lem4  42756  aks6d1c6lem2  42800  aks6d1c6lem3  42801  aks6d1c6lem4  42802  aks6d1c6isolem1  42803  aks6d1c6isolem2  42804  aks6d1c6lem5  42806  aks5lem2  42816  aks5lem3a  42818