Theorem unitscyglem5 42156

Description: Lemma for unitscyg (Contributed by metakunt, 9-Aug-2025.)

Hypotheses

Ref	Expression
unitscyglem5.1	⊢ 𝐺 = ((mulGrp‘𝑅) ↾s (Unit‘𝑅))
unitscyglem5.2	⊢ (𝜑 → 𝑅 ∈ IDomn)
unitscyglem5.3	⊢ (𝜑 → (Base‘𝑅) ∈ Fin)
unitscyglem5.4	⊢ (𝜑 → 𝐷 ∈ ℕ)
unitscyglem5.5	⊢ (𝜑 → 𝐷 ∥ (♯‘(Base‘𝐺)))

Assertion

Ref	Expression
unitscyglem5	⊢ (𝜑 → ((mulGrp‘𝑅) PrimRoots 𝐷) ≠ ∅)

Proof of Theorem unitscyglem5

Dummy variables 𝑚 𝑜 𝑤 𝑧 𝑦 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		unitscyglem5.4	. . . . . . . 8 ⊢ (𝜑 → 𝐷 ∈ ℕ)
2	1	phicld 16819	. . . . . . 7 ⊢ (𝜑 → (ϕ‘𝐷) ∈ ℕ)
3		eqid 2740	. . . . . . . . 9 ⊢ (Base‘𝐺) = (Base‘𝐺)
4		eqid 2740	. . . . . . . . 9 ⊢ (.g‘𝐺) = (.g‘𝐺)
5		unitscyglem5.2	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑅 ∈ IDomn)
6	5	idomringd 20750	. . . . . . . . . 10 ⊢ (𝜑 → 𝑅 ∈ Ring)
7		eqid 2740	. . . . . . . . . . 11 ⊢ (Unit‘𝑅) = (Unit‘𝑅)
8		unitscyglem5.1	. . . . . . . . . . 11 ⊢ 𝐺 = ((mulGrp‘𝑅) ↾s (Unit‘𝑅))
9	7, 8	unitgrp 20409	. . . . . . . . . 10 ⊢ (𝑅 ∈ Ring → 𝐺 ∈ Grp)
10	6, 9	syl 17	. . . . . . . . 9 ⊢ (𝜑 → 𝐺 ∈ Grp)
11		unitscyglem5.3	. . . . . . . . . 10 ⊢ (𝜑 → (Base‘𝑅) ∈ Fin)
12		eqid 2740	. . . . . . . . . . . . 13 ⊢ (Base‘(mulGrp‘𝑅)) = (Base‘(mulGrp‘𝑅))
13	8, 12	ressbasss 17297	. . . . . . . . . . . 12 ⊢ (Base‘𝐺) ⊆ (Base‘(mulGrp‘𝑅))
14	13	a1i 11	. . . . . . . . . . 11 ⊢ (𝜑 → (Base‘𝐺) ⊆ (Base‘(mulGrp‘𝑅)))
15		eqid 2740	. . . . . . . . . . . . . 14 ⊢ (mulGrp‘𝑅) = (mulGrp‘𝑅)
16		eqid 2740	. . . . . . . . . . . . . 14 ⊢ (Base‘𝑅) = (Base‘𝑅)
17	15, 16	mgpbas 20167	. . . . . . . . . . . . 13 ⊢ (Base‘𝑅) = (Base‘(mulGrp‘𝑅))
18	17	a1i 11	. . . . . . . . . . . 12 ⊢ (𝜑 → (Base‘𝑅) = (Base‘(mulGrp‘𝑅)))
19	18	eqimsscd 4066	. . . . . . . . . . 11 ⊢ (𝜑 → (Base‘(mulGrp‘𝑅)) ⊆ (Base‘𝑅))
20	14, 19	sstrd 4019	. . . . . . . . . 10 ⊢ (𝜑 → (Base‘𝐺) ⊆ (Base‘𝑅))
21	11, 20	ssfid 9329	. . . . . . . . 9 ⊢ (𝜑 → (Base‘𝐺) ∈ Fin)
22	17	eqcomi 2749	. . . . . . . . . . . . . . . . . . 19 ⊢ (Base‘(mulGrp‘𝑅)) = (Base‘𝑅)
23	22, 7	unitss 20402	. . . . . . . . . . . . . . . . . 18 ⊢ (Unit‘𝑅) ⊆ (Base‘(mulGrp‘𝑅))
24	23	a1i 11	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (Unit‘𝑅) ⊆ (Base‘(mulGrp‘𝑅)))
25	24	adantr 480	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑦 ∈ ℕ) → (Unit‘𝑅) ⊆ (Base‘(mulGrp‘𝑅)))
26	25	adantr 480	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑦 ∈ ℕ) ∧ 𝑧 ∈ (Base‘𝐺)) → (Unit‘𝑅) ⊆ (Base‘(mulGrp‘𝑅)))
27	8, 12	ressbasssg 17295	. . . . . . . . . . . . . . . . . . . 20 ⊢ (Base‘𝐺) ⊆ ((Unit‘𝑅) ∩ (Base‘(mulGrp‘𝑅)))
28	27	a1i 11	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (Base‘𝐺) ⊆ ((Unit‘𝑅) ∩ (Base‘(mulGrp‘𝑅))))
29		inss1 4258	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((Unit‘𝑅) ∩ (Base‘(mulGrp‘𝑅))) ⊆ (Unit‘𝑅)
30	29	a1i 11	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → ((Unit‘𝑅) ∩ (Base‘(mulGrp‘𝑅))) ⊆ (Unit‘𝑅))
31	28, 30	sstrd 4019	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (Base‘𝐺) ⊆ (Unit‘𝑅))
32	31	adantr 480	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑦 ∈ ℕ) → (Base‘𝐺) ⊆ (Unit‘𝑅))
33	32	sseld 4007	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑦 ∈ ℕ) → (𝑧 ∈ (Base‘𝐺) → 𝑧 ∈ (Unit‘𝑅)))
34	33	imp 406	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑦 ∈ ℕ) ∧ 𝑧 ∈ (Base‘𝐺)) → 𝑧 ∈ (Unit‘𝑅))
35		simpr 484	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑦 ∈ ℕ) → 𝑦 ∈ ℕ)
36	35	adantr 480	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑦 ∈ ℕ) ∧ 𝑧 ∈ (Base‘𝐺)) → 𝑦 ∈ ℕ)
37	8, 26, 34, 36	ressmulgnnd 19118	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑦 ∈ ℕ) ∧ 𝑧 ∈ (Base‘𝐺)) → (𝑦(.g‘𝐺)𝑧) = (𝑦(.g‘(mulGrp‘𝑅))𝑧))
38	37	eqeq1d 2742	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑦 ∈ ℕ) ∧ 𝑧 ∈ (Base‘𝐺)) → ((𝑦(.g‘𝐺)𝑧) = (0g‘𝐺) ↔ (𝑦(.g‘(mulGrp‘𝑅))𝑧) = (0g‘𝐺)))
39	38	rabbidva 3450	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑦 ∈ ℕ) → {𝑧 ∈ (Base‘𝐺) ∣ (𝑦(.g‘𝐺)𝑧) = (0g‘𝐺)} = {𝑧 ∈ (Base‘𝐺) ∣ (𝑦(.g‘(mulGrp‘𝑅))𝑧) = (0g‘𝐺)})
40	39	fveq2d 6924	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑦 ∈ ℕ) → (♯‘{𝑧 ∈ (Base‘𝐺) ∣ (𝑦(.g‘𝐺)𝑧) = (0g‘𝐺)}) = (♯‘{𝑧 ∈ (Base‘𝐺) ∣ (𝑦(.g‘(mulGrp‘𝑅))𝑧) = (0g‘𝐺)}))
41		fvex 6933	. . . . . . . . . . . . . . . 16 ⊢ (Base‘𝐺) ∈ V
42	41	rabex 5357	. . . . . . . . . . . . . . 15 ⊢ {𝑧 ∈ (Base‘𝐺) ∣ (𝑦(.g‘𝐺)𝑧) = (0g‘𝐺)} ∈ V
43	42	a1i 11	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑦 ∈ ℕ) → {𝑧 ∈ (Base‘𝐺) ∣ (𝑦(.g‘𝐺)𝑧) = (0g‘𝐺)} ∈ V)
44		hashxrcl 14406	. . . . . . . . . . . . . 14 ⊢ ({𝑧 ∈ (Base‘𝐺) ∣ (𝑦(.g‘𝐺)𝑧) = (0g‘𝐺)} ∈ V → (♯‘{𝑧 ∈ (Base‘𝐺) ∣ (𝑦(.g‘𝐺)𝑧) = (0g‘𝐺)}) ∈ ℝ*)
45	43, 44	syl 17	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑦 ∈ ℕ) → (♯‘{𝑧 ∈ (Base‘𝐺) ∣ (𝑦(.g‘𝐺)𝑧) = (0g‘𝐺)}) ∈ ℝ*)
46	40, 45	eqeltrrd 2845	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑦 ∈ ℕ) → (♯‘{𝑧 ∈ (Base‘𝐺) ∣ (𝑦(.g‘(mulGrp‘𝑅))𝑧) = (0g‘𝐺)}) ∈ ℝ*)
47		fvex 6933	. . . . . . . . . . . . . . 15 ⊢ (Base‘𝑅) ∈ V
48	47	rabex 5357	. . . . . . . . . . . . . 14 ⊢ {𝑧 ∈ (Base‘𝑅) ∣ (𝑦(.g‘(mulGrp‘𝑅))𝑧) = (0g‘𝐺)} ∈ V
49	48	a1i 11	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑦 ∈ ℕ) → {𝑧 ∈ (Base‘𝑅) ∣ (𝑦(.g‘(mulGrp‘𝑅))𝑧) = (0g‘𝐺)} ∈ V)
50		hashxrcl 14406	. . . . . . . . . . . . 13 ⊢ ({𝑧 ∈ (Base‘𝑅) ∣ (𝑦(.g‘(mulGrp‘𝑅))𝑧) = (0g‘𝐺)} ∈ V → (♯‘{𝑧 ∈ (Base‘𝑅) ∣ (𝑦(.g‘(mulGrp‘𝑅))𝑧) = (0g‘𝐺)}) ∈ ℝ*)
51	49, 50	syl 17	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑦 ∈ ℕ) → (♯‘{𝑧 ∈ (Base‘𝑅) ∣ (𝑦(.g‘(mulGrp‘𝑅))𝑧) = (0g‘𝐺)}) ∈ ℝ*)
52		nnre 12300	. . . . . . . . . . . . . 14 ⊢ (𝑦 ∈ ℕ → 𝑦 ∈ ℝ)
53	52	adantl 481	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑦 ∈ ℕ) → 𝑦 ∈ ℝ)
54	53	rexrd 11340	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑦 ∈ ℕ) → 𝑦 ∈ ℝ*)
55		simprl 770	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑦 ∈ ℕ) ∧ (𝑧 ∈ (Base‘𝐺) ∧ (𝑦(.g‘(mulGrp‘𝑅))𝑧) = (0g‘𝐺))) → 𝑧 ∈ (Base‘𝐺))
56	20	ad2antrr 725	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑦 ∈ ℕ) ∧ (𝑧 ∈ (Base‘𝐺) ∧ (𝑦(.g‘(mulGrp‘𝑅))𝑧) = (0g‘𝐺))) → (Base‘𝐺) ⊆ (Base‘𝑅))
57	56	sseld 4007	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑦 ∈ ℕ) ∧ (𝑧 ∈ (Base‘𝐺) ∧ (𝑦(.g‘(mulGrp‘𝑅))𝑧) = (0g‘𝐺))) → (𝑧 ∈ (Base‘𝐺) → 𝑧 ∈ (Base‘𝑅)))
58	55, 57	mpd 15	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑦 ∈ ℕ) ∧ (𝑧 ∈ (Base‘𝐺) ∧ (𝑦(.g‘(mulGrp‘𝑅))𝑧) = (0g‘𝐺))) → 𝑧 ∈ (Base‘𝑅))
59	58	rabss3d 4104	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑦 ∈ ℕ) → {𝑧 ∈ (Base‘𝐺) ∣ (𝑦(.g‘(mulGrp‘𝑅))𝑧) = (0g‘𝐺)} ⊆ {𝑧 ∈ (Base‘𝑅) ∣ (𝑦(.g‘(mulGrp‘𝑅))𝑧) = (0g‘𝐺)})
60	49, 59	jca 511	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑦 ∈ ℕ) → ({𝑧 ∈ (Base‘𝑅) ∣ (𝑦(.g‘(mulGrp‘𝑅))𝑧) = (0g‘𝐺)} ∈ V ∧ {𝑧 ∈ (Base‘𝐺) ∣ (𝑦(.g‘(mulGrp‘𝑅))𝑧) = (0g‘𝐺)} ⊆ {𝑧 ∈ (Base‘𝑅) ∣ (𝑦(.g‘(mulGrp‘𝑅))𝑧) = (0g‘𝐺)}))
61		hashss 14458	. . . . . . . . . . . . 13 ⊢ (({𝑧 ∈ (Base‘𝑅) ∣ (𝑦(.g‘(mulGrp‘𝑅))𝑧) = (0g‘𝐺)} ∈ V ∧ {𝑧 ∈ (Base‘𝐺) ∣ (𝑦(.g‘(mulGrp‘𝑅))𝑧) = (0g‘𝐺)} ⊆ {𝑧 ∈ (Base‘𝑅) ∣ (𝑦(.g‘(mulGrp‘𝑅))𝑧) = (0g‘𝐺)}) → (♯‘{𝑧 ∈ (Base‘𝐺) ∣ (𝑦(.g‘(mulGrp‘𝑅))𝑧) = (0g‘𝐺)}) ≤ (♯‘{𝑧 ∈ (Base‘𝑅) ∣ (𝑦(.g‘(mulGrp‘𝑅))𝑧) = (0g‘𝐺)}))
62	60, 61	syl 17	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑦 ∈ ℕ) → (♯‘{𝑧 ∈ (Base‘𝐺) ∣ (𝑦(.g‘(mulGrp‘𝑅))𝑧) = (0g‘𝐺)}) ≤ (♯‘{𝑧 ∈ (Base‘𝑅) ∣ (𝑦(.g‘(mulGrp‘𝑅))𝑧) = (0g‘𝐺)}))
63	5	adantr 480	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑦 ∈ ℕ) → 𝑅 ∈ IDomn)
64		eqid 2740	. . . . . . . . . . . . . . . . . 18 ⊢ (1r‘𝑅) = (1r‘𝑅)
65	7, 8, 64	unitgrpid 20411	. . . . . . . . . . . . . . . . 17 ⊢ (𝑅 ∈ Ring → (1r‘𝑅) = (0g‘𝐺))
66	6, 65	syl 17	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (1r‘𝑅) = (0g‘𝐺))
67	66	eqcomd 2746	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (0g‘𝐺) = (1r‘𝑅))
68	16, 64	ringidcl 20289	. . . . . . . . . . . . . . . 16 ⊢ (𝑅 ∈ Ring → (1r‘𝑅) ∈ (Base‘𝑅))
69	6, 68	syl 17	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (1r‘𝑅) ∈ (Base‘𝑅))
70	67, 69	eqeltrd 2844	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (0g‘𝐺) ∈ (Base‘𝑅))
71	70	adantr 480	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑦 ∈ ℕ) → (0g‘𝐺) ∈ (Base‘𝑅))
72		eqid 2740	. . . . . . . . . . . . . 14 ⊢ (.g‘(mulGrp‘𝑅)) = (.g‘(mulGrp‘𝑅))
73	16, 72	idomrootle 26232	. . . . . . . . . . . . 13 ⊢ ((𝑅 ∈ IDomn ∧ (0g‘𝐺) ∈ (Base‘𝑅) ∧ 𝑦 ∈ ℕ) → (♯‘{𝑧 ∈ (Base‘𝑅) ∣ (𝑦(.g‘(mulGrp‘𝑅))𝑧) = (0g‘𝐺)}) ≤ 𝑦)
74	63, 71, 35, 73	syl3anc 1371	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑦 ∈ ℕ) → (♯‘{𝑧 ∈ (Base‘𝑅) ∣ (𝑦(.g‘(mulGrp‘𝑅))𝑧) = (0g‘𝐺)}) ≤ 𝑦)
75	46, 51, 54, 62, 74	xrletrd 13224	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑦 ∈ ℕ) → (♯‘{𝑧 ∈ (Base‘𝐺) ∣ (𝑦(.g‘(mulGrp‘𝑅))𝑧) = (0g‘𝐺)}) ≤ 𝑦)
76	40, 75	eqbrtrd 5188	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑦 ∈ ℕ) → (♯‘{𝑧 ∈ (Base‘𝐺) ∣ (𝑦(.g‘𝐺)𝑧) = (0g‘𝐺)}) ≤ 𝑦)
77	76	ralrimiva 3152	. . . . . . . . 9 ⊢ (𝜑 → ∀𝑦 ∈ ℕ (♯‘{𝑧 ∈ (Base‘𝐺) ∣ (𝑦(.g‘𝐺)𝑧) = (0g‘𝐺)}) ≤ 𝑦)
78		unitscyglem5.5	. . . . . . . . 9 ⊢ (𝜑 → 𝐷 ∥ (♯‘(Base‘𝐺)))
79	3, 4, 10, 21, 77, 1, 78	unitscyglem4 42155	. . . . . . . 8 ⊢ (𝜑 → (♯‘{𝑤 ∈ (Base‘𝐺) ∣ ((od‘𝐺)‘𝑤) = 𝐷}) = (ϕ‘𝐷))
80	79	eleq1d 2829	. . . . . . 7 ⊢ (𝜑 → ((♯‘{𝑤 ∈ (Base‘𝐺) ∣ ((od‘𝐺)‘𝑤) = 𝐷}) ∈ ℕ ↔ (ϕ‘𝐷) ∈ ℕ))
81	2, 80	mpbird 257	. . . . . 6 ⊢ (𝜑 → (♯‘{𝑤 ∈ (Base‘𝐺) ∣ ((od‘𝐺)‘𝑤) = 𝐷}) ∈ ℕ)
82	81	nngt0d 12342	. . . . 5 ⊢ (𝜑 → 0 < (♯‘{𝑤 ∈ (Base‘𝐺) ∣ ((od‘𝐺)‘𝑤) = 𝐷}))
83	41	rabex 5357	. . . . . . 7 ⊢ {𝑤 ∈ (Base‘𝐺) ∣ ((od‘𝐺)‘𝑤) = 𝐷} ∈ V
84	83	a1i 11	. . . . . 6 ⊢ (𝜑 → {𝑤 ∈ (Base‘𝐺) ∣ ((od‘𝐺)‘𝑤) = 𝐷} ∈ V)
85		hashneq0 14413	. . . . . 6 ⊢ ({𝑤 ∈ (Base‘𝐺) ∣ ((od‘𝐺)‘𝑤) = 𝐷} ∈ V → (0 < (♯‘{𝑤 ∈ (Base‘𝐺) ∣ ((od‘𝐺)‘𝑤) = 𝐷}) ↔ {𝑤 ∈ (Base‘𝐺) ∣ ((od‘𝐺)‘𝑤) = 𝐷} ≠ ∅))
86	84, 85	syl 17	. . . . 5 ⊢ (𝜑 → (0 < (♯‘{𝑤 ∈ (Base‘𝐺) ∣ ((od‘𝐺)‘𝑤) = 𝐷}) ↔ {𝑤 ∈ (Base‘𝐺) ∣ ((od‘𝐺)‘𝑤) = 𝐷} ≠ ∅))
87	82, 86	mpbid 232	. . . 4 ⊢ (𝜑 → {𝑤 ∈ (Base‘𝐺) ∣ ((od‘𝐺)‘𝑤) = 𝐷} ≠ ∅)
88		n0 4376	. . . 4 ⊢ ({𝑤 ∈ (Base‘𝐺) ∣ ((od‘𝐺)‘𝑤) = 𝐷} ≠ ∅ ↔ ∃𝑚 𝑚 ∈ {𝑤 ∈ (Base‘𝐺) ∣ ((od‘𝐺)‘𝑤) = 𝐷})
89	87, 88	sylib 218	. . 3 ⊢ (𝜑 → ∃𝑚 𝑚 ∈ {𝑤 ∈ (Base‘𝐺) ∣ ((od‘𝐺)‘𝑤) = 𝐷})
90		nfv 1913	. . . 4 ⊢ Ⅎ𝑚𝜑
91		fveqeq2 6929	. . . . . . . . 9 ⊢ (𝑤 = 𝑚 → (((od‘𝐺)‘𝑤) = 𝐷 ↔ ((od‘𝐺)‘𝑚) = 𝐷))
92	91	elrab 3708	. . . . . . . 8 ⊢ (𝑚 ∈ {𝑤 ∈ (Base‘𝐺) ∣ ((od‘𝐺)‘𝑤) = 𝐷} ↔ (𝑚 ∈ (Base‘𝐺) ∧ ((od‘𝐺)‘𝑚) = 𝐷))
93	92	biimpi 216	. . . . . . 7 ⊢ (𝑚 ∈ {𝑤 ∈ (Base‘𝐺) ∣ ((od‘𝐺)‘𝑤) = 𝐷} → (𝑚 ∈ (Base‘𝐺) ∧ ((od‘𝐺)‘𝑚) = 𝐷))
94	93	adantl 481	. . . . . 6 ⊢ ((𝜑 ∧ 𝑚 ∈ {𝑤 ∈ (Base‘𝐺) ∣ ((od‘𝐺)‘𝑤) = 𝐷}) → (𝑚 ∈ (Base‘𝐺) ∧ ((od‘𝐺)‘𝑚) = 𝐷))
95		simpll 766	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑚 ∈ {𝑤 ∈ (Base‘𝐺) ∣ ((od‘𝐺)‘𝑤) = 𝐷}) ∧ (𝑚 ∈ (Base‘𝐺) ∧ ((od‘𝐺)‘𝑚) = 𝐷)) → 𝜑)
96		simprl 770	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑚 ∈ {𝑤 ∈ (Base‘𝐺) ∣ ((od‘𝐺)‘𝑤) = 𝐷}) ∧ (𝑚 ∈ (Base‘𝐺) ∧ ((od‘𝐺)‘𝑚) = 𝐷)) → 𝑚 ∈ (Base‘𝐺))
97		simprr 772	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑚 ∈ {𝑤 ∈ (Base‘𝐺) ∣ ((od‘𝐺)‘𝑤) = 𝐷}) ∧ (𝑚 ∈ (Base‘𝐺) ∧ ((od‘𝐺)‘𝑚) = 𝐷)) → ((od‘𝐺)‘𝑚) = 𝐷)
98	95, 96, 97	jca31 514	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑚 ∈ {𝑤 ∈ (Base‘𝐺) ∣ ((od‘𝐺)‘𝑤) = 𝐷}) ∧ (𝑚 ∈ (Base‘𝐺) ∧ ((od‘𝐺)‘𝑚) = 𝐷)) → ((𝜑 ∧ 𝑚 ∈ (Base‘𝐺)) ∧ ((od‘𝐺)‘𝑚) = 𝐷))
99	5	idomcringd 20749	. . . . . . . . . 10 ⊢ (𝜑 → 𝑅 ∈ CRing)
100	15	crngmgp 20268	. . . . . . . . . 10 ⊢ (𝑅 ∈ CRing → (mulGrp‘𝑅) ∈ CMnd)
101	99, 100	syl 17	. . . . . . . . 9 ⊢ (𝜑 → (mulGrp‘𝑅) ∈ CMnd)
102	101	ad2antrr 725	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑚 ∈ (Base‘𝐺)) ∧ ((od‘𝐺)‘𝑚) = 𝐷) → (mulGrp‘𝑅) ∈ CMnd)
103	1	ad2antrr 725	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑚 ∈ (Base‘𝐺)) ∧ ((od‘𝐺)‘𝑚) = 𝐷) → 𝐷 ∈ ℕ)
104	14	sselda 4008	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑚 ∈ (Base‘𝐺)) → 𝑚 ∈ (Base‘(mulGrp‘𝑅)))
105	104	adantr 480	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑚 ∈ (Base‘𝐺)) ∧ ((od‘𝐺)‘𝑚) = 𝐷) → 𝑚 ∈ (Base‘(mulGrp‘𝑅)))
106	6	ad2antrr 725	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑚 ∈ (Base‘𝐺)) ∧ ((od‘𝐺)‘𝑚) = 𝐷) → 𝑅 ∈ Ring)
107	7, 15	unitsubm 20412	. . . . . . . . . . 11 ⊢ (𝑅 ∈ Ring → (Unit‘𝑅) ∈ (SubMnd‘(mulGrp‘𝑅)))
108	106, 107	syl 17	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑚 ∈ (Base‘𝐺)) ∧ ((od‘𝐺)‘𝑚) = 𝐷) → (Unit‘𝑅) ∈ (SubMnd‘(mulGrp‘𝑅)))
109	105, 22	eleqtrdi 2854	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑚 ∈ (Base‘𝐺)) ∧ ((od‘𝐺)‘𝑚) = 𝐷) → 𝑚 ∈ (Base‘𝑅))
110	102	cmnmndd 19846	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑚 ∈ (Base‘𝐺)) ∧ ((od‘𝐺)‘𝑚) = 𝐷) → (mulGrp‘𝑅) ∈ Mnd)
111	1	nnzd 12666	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → 𝐷 ∈ ℤ)
112		1zzd 12674	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → 1 ∈ ℤ)
113	111, 112	zsubcld 12752	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (𝐷 − 1) ∈ ℤ)
114		1cnd 11285	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → 1 ∈ ℂ)
115	114	addridd 11490	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → (1 + 0) = 1)
116	1	nnge1d 12341	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → 1 ≤ 𝐷)
117	115, 116	eqbrtrd 5188	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (1 + 0) ≤ 𝐷)
118		1red 11291	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → 1 ∈ ℝ)
119		0red 11293	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → 0 ∈ ℝ)
120	1	nnred 12308	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → 𝐷 ∈ ℝ)
121	118, 119, 120	leaddsub2d 11892	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → ((1 + 0) ≤ 𝐷 ↔ 0 ≤ (𝐷 − 1)))
122	117, 121	mpbid 232	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → 0 ≤ (𝐷 − 1))
123	113, 122	jca 511	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ((𝐷 − 1) ∈ ℤ ∧ 0 ≤ (𝐷 − 1)))
124		elnn0z 12652	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝐷 − 1) ∈ ℕ0 ↔ ((𝐷 − 1) ∈ ℤ ∧ 0 ≤ (𝐷 − 1)))
125	123, 124	sylibr 234	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (𝐷 − 1) ∈ ℕ0)
126	125	adantr 480	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑚 ∈ (Base‘𝐺)) → (𝐷 − 1) ∈ ℕ0)
127	126	adantr 480	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑚 ∈ (Base‘𝐺)) ∧ ((od‘𝐺)‘𝑚) = 𝐷) → (𝐷 − 1) ∈ ℕ0)
128	17, 72, 110, 127, 109	mulgnn0cld 19135	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑚 ∈ (Base‘𝐺)) ∧ ((od‘𝐺)‘𝑚) = 𝐷) → ((𝐷 − 1)(.g‘(mulGrp‘𝑅))𝑚) ∈ (Base‘𝑅))
129		simpr 484	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑚 ∈ (Base‘𝐺)) ∧ ((od‘𝐺)‘𝑚) = 𝐷) ∧ 𝑜 = ((𝐷 − 1)(.g‘(mulGrp‘𝑅))𝑚)) → 𝑜 = ((𝐷 − 1)(.g‘(mulGrp‘𝑅))𝑚))
130	129	oveq1d 7463	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑚 ∈ (Base‘𝐺)) ∧ ((od‘𝐺)‘𝑚) = 𝐷) ∧ 𝑜 = ((𝐷 − 1)(.g‘(mulGrp‘𝑅))𝑚)) → (𝑜(.r‘𝑅)𝑚) = (((𝐷 − 1)(.g‘(mulGrp‘𝑅))𝑚)(.r‘𝑅)𝑚))
131	130	eqeq1d 2742	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝑚 ∈ (Base‘𝐺)) ∧ ((od‘𝐺)‘𝑚) = 𝐷) ∧ 𝑜 = ((𝐷 − 1)(.g‘(mulGrp‘𝑅))𝑚)) → ((𝑜(.r‘𝑅)𝑚) = (1r‘𝑅) ↔ (((𝐷 − 1)(.g‘(mulGrp‘𝑅))𝑚)(.r‘𝑅)𝑚) = (1r‘𝑅)))
132		eqid 2740	. . . . . . . . . . . . . . . . . 18 ⊢ (.r‘𝑅) = (.r‘𝑅)
133	15, 132	mgpplusg 20165	. . . . . . . . . . . . . . . . 17 ⊢ (.r‘𝑅) = (+g‘(mulGrp‘𝑅))
134	133	a1i 11	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑚 ∈ (Base‘𝐺)) ∧ ((od‘𝐺)‘𝑚) = 𝐷) → (.r‘𝑅) = (+g‘(mulGrp‘𝑅)))
135	134	oveqd 7465	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑚 ∈ (Base‘𝐺)) ∧ ((od‘𝐺)‘𝑚) = 𝐷) → (((𝐷 − 1)(.g‘(mulGrp‘𝑅))𝑚)(.r‘𝑅)𝑚) = (((𝐷 − 1)(.g‘(mulGrp‘𝑅))𝑚)(+g‘(mulGrp‘𝑅))𝑚))
136	103	nncnd 12309	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝜑 ∧ 𝑚 ∈ (Base‘𝐺)) ∧ ((od‘𝐺)‘𝑚) = 𝐷) → 𝐷 ∈ ℂ)
137		1cnd 11285	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝜑 ∧ 𝑚 ∈ (Base‘𝐺)) ∧ ((od‘𝐺)‘𝑚) = 𝐷) → 1 ∈ ℂ)
138	136, 137	npcand 11651	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ 𝑚 ∈ (Base‘𝐺)) ∧ ((od‘𝐺)‘𝑚) = 𝐷) → ((𝐷 − 1) + 1) = 𝐷)
139	138	eqcomd 2746	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ 𝑚 ∈ (Base‘𝐺)) ∧ ((od‘𝐺)‘𝑚) = 𝐷) → 𝐷 = ((𝐷 − 1) + 1))
140	139	oveq1d 7463	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑚 ∈ (Base‘𝐺)) ∧ ((od‘𝐺)‘𝑚) = 𝐷) → (𝐷(.g‘(mulGrp‘𝑅))𝑚) = (((𝐷 − 1) + 1)(.g‘(mulGrp‘𝑅))𝑚))
141		eqid 2740	. . . . . . . . . . . . . . . . . . . 20 ⊢ (+g‘(mulGrp‘𝑅)) = (+g‘(mulGrp‘𝑅))
142	12, 72, 141	mulgnn0p1 19125	. . . . . . . . . . . . . . . . . . 19 ⊢ (((mulGrp‘𝑅) ∈ Mnd ∧ (𝐷 − 1) ∈ ℕ0 ∧ 𝑚 ∈ (Base‘(mulGrp‘𝑅))) → (((𝐷 − 1) + 1)(.g‘(mulGrp‘𝑅))𝑚) = (((𝐷 − 1)(.g‘(mulGrp‘𝑅))𝑚)(+g‘(mulGrp‘𝑅))𝑚))
143	110, 127, 105, 142	syl3anc 1371	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑚 ∈ (Base‘𝐺)) ∧ ((od‘𝐺)‘𝑚) = 𝐷) → (((𝐷 − 1) + 1)(.g‘(mulGrp‘𝑅))𝑚) = (((𝐷 − 1)(.g‘(mulGrp‘𝑅))𝑚)(+g‘(mulGrp‘𝑅))𝑚))
144	140, 143	eqtr2d 2781	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑚 ∈ (Base‘𝐺)) ∧ ((od‘𝐺)‘𝑚) = 𝐷) → (((𝐷 − 1)(.g‘(mulGrp‘𝑅))𝑚)(+g‘(mulGrp‘𝑅))𝑚) = (𝐷(.g‘(mulGrp‘𝑅))𝑚))
145	15, 64	ringidval 20210	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (1r‘𝑅) = (0g‘(mulGrp‘𝑅))
146	145	a1i 11	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝜑 → (1r‘𝑅) = (0g‘(mulGrp‘𝑅)))
147	146	eqcomd 2746	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝜑 → (0g‘(mulGrp‘𝑅)) = (1r‘𝑅))
148	7, 64	1unit 20400	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑅 ∈ Ring → (1r‘𝑅) ∈ (Unit‘𝑅))
149	6, 148	syl 17	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝜑 → (1r‘𝑅) ∈ (Unit‘𝑅))
150	147, 149	eqeltrd 2844	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → (0g‘(mulGrp‘𝑅)) ∈ (Unit‘𝑅))
151	150	adantr 480	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝜑 ∧ 𝑚 ∈ (Base‘𝐺)) → (0g‘(mulGrp‘𝑅)) ∈ (Unit‘𝑅))
152	151	adantr 480	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ 𝑚 ∈ (Base‘𝐺)) ∧ ((od‘𝐺)‘𝑚) = 𝐷) → (0g‘(mulGrp‘𝑅)) ∈ (Unit‘𝑅))
153	23	a1i 11	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ 𝑚 ∈ (Base‘𝐺)) ∧ ((od‘𝐺)‘𝑚) = 𝐷) → (Unit‘𝑅) ⊆ (Base‘(mulGrp‘𝑅)))
154		eqid 2740	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (0g‘(mulGrp‘𝑅)) = (0g‘(mulGrp‘𝑅))
155	8, 12, 154	ress0g 18800	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((mulGrp‘𝑅) ∈ Mnd ∧ (0g‘(mulGrp‘𝑅)) ∈ (Unit‘𝑅) ∧ (Unit‘𝑅) ⊆ (Base‘(mulGrp‘𝑅))) → (0g‘(mulGrp‘𝑅)) = (0g‘𝐺))
156	110, 152, 153, 155	syl3anc 1371	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ 𝑚 ∈ (Base‘𝐺)) ∧ ((od‘𝐺)‘𝑚) = 𝐷) → (0g‘(mulGrp‘𝑅)) = (0g‘𝐺))
157		simpr 484	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (((𝜑 ∧ 𝑚 ∈ (Base‘𝐺)) ∧ ((od‘𝐺)‘𝑚) = 𝐷) → ((od‘𝐺)‘𝑚) = 𝐷)
158	157	eqcomd 2746	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝜑 ∧ 𝑚 ∈ (Base‘𝐺)) ∧ ((od‘𝐺)‘𝑚) = 𝐷) → 𝐷 = ((od‘𝐺)‘𝑚))
159	158	oveq1d 7463	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝜑 ∧ 𝑚 ∈ (Base‘𝐺)) ∧ ((od‘𝐺)‘𝑚) = 𝐷) → (𝐷(.g‘𝐺)𝑚) = (((od‘𝐺)‘𝑚)(.g‘𝐺)𝑚))
160		eqid 2740	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (od‘𝐺) = (od‘𝐺)
161		eqid 2740	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (0g‘𝐺) = (0g‘𝐺)
162	3, 160, 4, 161	odid 19580	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑚 ∈ (Base‘𝐺) → (((od‘𝐺)‘𝑚)(.g‘𝐺)𝑚) = (0g‘𝐺))
163	162	ad2antlr 726	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝜑 ∧ 𝑚 ∈ (Base‘𝐺)) ∧ ((od‘𝐺)‘𝑚) = 𝐷) → (((od‘𝐺)‘𝑚)(.g‘𝐺)𝑚) = (0g‘𝐺))
164	159, 163	eqtrd 2780	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ 𝑚 ∈ (Base‘𝐺)) ∧ ((od‘𝐺)‘𝑚) = 𝐷) → (𝐷(.g‘𝐺)𝑚) = (0g‘𝐺))
165	164	eqcomd 2746	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ 𝑚 ∈ (Base‘𝐺)) ∧ ((od‘𝐺)‘𝑚) = 𝐷) → (0g‘𝐺) = (𝐷(.g‘𝐺)𝑚))
166	156, 165	eqtrd 2780	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑚 ∈ (Base‘𝐺)) ∧ ((od‘𝐺)‘𝑚) = 𝐷) → (0g‘(mulGrp‘𝑅)) = (𝐷(.g‘𝐺)𝑚))
167	31	sselda 4008	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ 𝑚 ∈ (Base‘𝐺)) → 𝑚 ∈ (Unit‘𝑅))
168	167	adantr 480	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ 𝑚 ∈ (Base‘𝐺)) ∧ ((od‘𝐺)‘𝑚) = 𝐷) → 𝑚 ∈ (Unit‘𝑅))
169	8, 153, 168, 103	ressmulgnnd 19118	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑚 ∈ (Base‘𝐺)) ∧ ((od‘𝐺)‘𝑚) = 𝐷) → (𝐷(.g‘𝐺)𝑚) = (𝐷(.g‘(mulGrp‘𝑅))𝑚))
170	166, 169	eqtr2d 2781	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑚 ∈ (Base‘𝐺)) ∧ ((od‘𝐺)‘𝑚) = 𝐷) → (𝐷(.g‘(mulGrp‘𝑅))𝑚) = (0g‘(mulGrp‘𝑅)))
171	144, 170	eqtrd 2780	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑚 ∈ (Base‘𝐺)) ∧ ((od‘𝐺)‘𝑚) = 𝐷) → (((𝐷 − 1)(.g‘(mulGrp‘𝑅))𝑚)(+g‘(mulGrp‘𝑅))𝑚) = (0g‘(mulGrp‘𝑅)))
172	145	a1i 11	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑚 ∈ (Base‘𝐺)) ∧ ((od‘𝐺)‘𝑚) = 𝐷) → (1r‘𝑅) = (0g‘(mulGrp‘𝑅)))
173	172	eqcomd 2746	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑚 ∈ (Base‘𝐺)) ∧ ((od‘𝐺)‘𝑚) = 𝐷) → (0g‘(mulGrp‘𝑅)) = (1r‘𝑅))
174	171, 173	eqtrd 2780	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑚 ∈ (Base‘𝐺)) ∧ ((od‘𝐺)‘𝑚) = 𝐷) → (((𝐷 − 1)(.g‘(mulGrp‘𝑅))𝑚)(+g‘(mulGrp‘𝑅))𝑚) = (1r‘𝑅))
175	135, 174	eqtrd 2780	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑚 ∈ (Base‘𝐺)) ∧ ((od‘𝐺)‘𝑚) = 𝐷) → (((𝐷 − 1)(.g‘(mulGrp‘𝑅))𝑚)(.r‘𝑅)𝑚) = (1r‘𝑅))
176	128, 131, 175	rspcedvd 3637	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑚 ∈ (Base‘𝐺)) ∧ ((od‘𝐺)‘𝑚) = 𝐷) → ∃𝑜 ∈ (Base‘𝑅)(𝑜(.r‘𝑅)𝑚) = (1r‘𝑅))
177	109, 176	jca 511	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑚 ∈ (Base‘𝐺)) ∧ ((od‘𝐺)‘𝑚) = 𝐷) → (𝑚 ∈ (Base‘𝑅) ∧ ∃𝑜 ∈ (Base‘𝑅)(𝑜(.r‘𝑅)𝑚) = (1r‘𝑅)))
178		eqid 2740	. . . . . . . . . . . . 13 ⊢ (∥r‘𝑅) = (∥r‘𝑅)
179	16, 178, 132	dvdsr 20388	. . . . . . . . . . . 12 ⊢ (𝑚(∥r‘𝑅)(1r‘𝑅) ↔ (𝑚 ∈ (Base‘𝑅) ∧ ∃𝑜 ∈ (Base‘𝑅)(𝑜(.r‘𝑅)𝑚) = (1r‘𝑅)))
180	177, 179	sylibr 234	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑚 ∈ (Base‘𝐺)) ∧ ((od‘𝐺)‘𝑚) = 𝐷) → 𝑚(∥r‘𝑅)(1r‘𝑅))
181	99	adantr 480	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑚 ∈ (Base‘𝐺)) → 𝑅 ∈ CRing)
182	181	adantr 480	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑚 ∈ (Base‘𝐺)) ∧ ((od‘𝐺)‘𝑚) = 𝐷) → 𝑅 ∈ CRing)
183	7, 64, 178	crngunit 20404	. . . . . . . . . . . 12 ⊢ (𝑅 ∈ CRing → (𝑚 ∈ (Unit‘𝑅) ↔ 𝑚(∥r‘𝑅)(1r‘𝑅)))
184	182, 183	syl 17	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑚 ∈ (Base‘𝐺)) ∧ ((od‘𝐺)‘𝑚) = 𝐷) → (𝑚 ∈ (Unit‘𝑅) ↔ 𝑚(∥r‘𝑅)(1r‘𝑅)))
185	180, 184	mpbird 257	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑚 ∈ (Base‘𝐺)) ∧ ((od‘𝐺)‘𝑚) = 𝐷) → 𝑚 ∈ (Unit‘𝑅))
186		eqid 2740	. . . . . . . . . . 11 ⊢ (od‘(mulGrp‘𝑅)) = (od‘(mulGrp‘𝑅))
187	8, 186, 160	submod 19611	. . . . . . . . . 10 ⊢ (((Unit‘𝑅) ∈ (SubMnd‘(mulGrp‘𝑅)) ∧ 𝑚 ∈ (Unit‘𝑅)) → ((od‘(mulGrp‘𝑅))‘𝑚) = ((od‘𝐺)‘𝑚))
188	108, 185, 187	syl2anc 583	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑚 ∈ (Base‘𝐺)) ∧ ((od‘𝐺)‘𝑚) = 𝐷) → ((od‘(mulGrp‘𝑅))‘𝑚) = ((od‘𝐺)‘𝑚))
189	188, 157	eqtrd 2780	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑚 ∈ (Base‘𝐺)) ∧ ((od‘𝐺)‘𝑚) = 𝐷) → ((od‘(mulGrp‘𝑅))‘𝑚) = 𝐷)
190	102, 103, 105, 189	isprimroot2 42051	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑚 ∈ (Base‘𝐺)) ∧ ((od‘𝐺)‘𝑚) = 𝐷) → 𝑚 ∈ ((mulGrp‘𝑅) PrimRoots 𝐷))
191	98, 190	syl 17	. . . . . 6 ⊢ (((𝜑 ∧ 𝑚 ∈ {𝑤 ∈ (Base‘𝐺) ∣ ((od‘𝐺)‘𝑤) = 𝐷}) ∧ (𝑚 ∈ (Base‘𝐺) ∧ ((od‘𝐺)‘𝑚) = 𝐷)) → 𝑚 ∈ ((mulGrp‘𝑅) PrimRoots 𝐷))
192	94, 191	mpdan 686	. . . . 5 ⊢ ((𝜑 ∧ 𝑚 ∈ {𝑤 ∈ (Base‘𝐺) ∣ ((od‘𝐺)‘𝑤) = 𝐷}) → 𝑚 ∈ ((mulGrp‘𝑅) PrimRoots 𝐷))
193	192	ex 412	. . . 4 ⊢ (𝜑 → (𝑚 ∈ {𝑤 ∈ (Base‘𝐺) ∣ ((od‘𝐺)‘𝑤) = 𝐷} → 𝑚 ∈ ((mulGrp‘𝑅) PrimRoots 𝐷)))
194	90, 193	eximd 2217	. . 3 ⊢ (𝜑 → (∃𝑚 𝑚 ∈ {𝑤 ∈ (Base‘𝐺) ∣ ((od‘𝐺)‘𝑤) = 𝐷} → ∃𝑚 𝑚 ∈ ((mulGrp‘𝑅) PrimRoots 𝐷)))
195	89, 194	mpd 15	. 2 ⊢ (𝜑 → ∃𝑚 𝑚 ∈ ((mulGrp‘𝑅) PrimRoots 𝐷))
196		n0 4376	. 2 ⊢ (((mulGrp‘𝑅) PrimRoots 𝐷) ≠ ∅ ↔ ∃𝑚 𝑚 ∈ ((mulGrp‘𝑅) PrimRoots 𝐷))
197	195, 196	sylibr 234	1 ⊢ (𝜑 → ((mulGrp‘𝑅) PrimRoots 𝐷) ≠ ∅)

Syntax hints:   → wi 4   ↔ wb 206   ∧ wa 395   = wceq 1537  ∃wex 1777   ∈ wcel 2108   ≠ wne 2946  ∃wrex 3076  {crab 3443  Vcvv 3488   ∩ cin 3975   ⊆ wss 3976  ∅c0 4352   class class class wbr 5166  ‘cfv 6573  (class class class)co 7448  Fincfn 9003  ℝcr 11183  0cc0 11184  1c1 11185   + caddc 11187  ℝ^*cxr 11323   < clt 11324   ≤ cle 11325   − cmin 11520  ℕcn 12293  ℕ₀cn0 12553  ℤcz 12639  ♯chash 14379   ∥ cdvds 16302  ϕcphi 16811  Basecbs 17258   ↾_s cress 17287  +_gcplusg 17311  ._rcmulr 17312  0_gc0g 17499  Mndcmnd 18772  SubMndcsubmnd 18817  Grpcgrp 18973  ._gcmg 19107  odcod 19566  CMndccmn 19822  mulGrpcmgp 20161  1_rcur 20208  Ringcrg 20260  CRingccrg 20261  ∥_rcdsr 20380  Unitcui 20381  IDomncidom 20715   PrimRoots cprimroots 42048

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1793  ax-4 1807  ax-5 1909  ax-6 1967  ax-7 2007  ax-8 2110  ax-9 2118  ax-10 2141  ax-11 2158  ax-12 2178  ax-ext 2711  ax-rep 5303  ax-sep 5317  ax-nul 5324  ax-pow 5383  ax-pr 5447  ax-un 7770  ax-inf2 9710  ax-cnex 11240  ax-resscn 11241  ax-1cn 11242  ax-icn 11243  ax-addcl 11244  ax-addrcl 11245  ax-mulcl 11246  ax-mulrcl 11247  ax-mulcom 11248  ax-addass 11249  ax-mulass 11250  ax-distr 11251  ax-i2m1 11252  ax-1ne0 11253  ax-1rid 11254  ax-rnegex 11255  ax-rrecex 11256  ax-cnre 11257  ax-pre-lttri 11258  ax-pre-lttrn 11259  ax-pre-ltadd 11260  ax-pre-mulgt0 11261  ax-pre-sup 11262  ax-addf 11263

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 847  df-3or 1088  df-3an 1089  df-tru 1540  df-fal 1550  df-ex 1778  df-nf 1782  df-sb 2065  df-mo 2543  df-eu 2572  df-clab 2718  df-cleq 2732  df-clel 2819  df-nfc 2895  df-ne 2947  df-nel 3053  df-ral 3068  df-rex 3077  df-rmo 3388  df-reu 3389  df-rab 3444  df-v 3490  df-sbc 3805  df-csb 3922  df-dif 3979  df-un 3981  df-in 3983  df-ss 3993  df-pss 3996  df-nul 4353  df-if 4549  df-pw 4624  df-sn 4649  df-pr 4651  df-tp 4653  df-op 4655  df-uni 4932  df-int 4971  df-iun 5017  df-iin 5018  df-disj 5134  df-br 5167  df-opab 5229  df-mpt 5250  df-tr 5284  df-id 5593  df-eprel 5599  df-po 5607  df-so 5608  df-fr 5652  df-se 5653  df-we 5654  df-xp 5706  df-rel 5707  df-cnv 5708  df-co 5709  df-dm 5710  df-rn 5711  df-res 5712  df-ima 5713  df-pred 6332  df-ord 6398  df-on 6399  df-lim 6400  df-suc 6401  df-iota 6525  df-fun 6575  df-fn 6576  df-f 6577  df-f1 6578  df-fo 6579  df-f1o 6580  df-fv 6581  df-isom 6582  df-riota 7404  df-ov 7451  df-oprab 7452  df-mpo 7453  df-of 7714  df-ofr 7715  df-om 7904  df-1st 8030  df-2nd 8031  df-supp 8202  df-tpos 8267  df-frecs 8322  df-wrecs 8353  df-recs 8427  df-rdg 8466  df-1o 8522  df-2o 8523  df-oadd 8526  df-omul 8527  df-er 8763  df-ec 8765  df-qs 8769  df-map 8886  df-pm 8887  df-ixp 8956  df-en 9004  df-dom 9005  df-sdom 9006  df-fin 9007  df-fsupp 9432  df-sup 9511  df-inf 9512  df-oi 9579  df-dju 9970  df-card 10008  df-acn 10011  df-pnf 11326  df-mnf 11327  df-xr 11328  df-ltxr 11329  df-le 11330  df-sub 11522  df-neg 11523  df-div 11948  df-nn 12294  df-2 12356  df-3 12357  df-4 12358  df-5 12359  df-6 12360  df-7 12361  df-8 12362  df-9 12363  df-n0 12554  df-xnn0 12626  df-z 12640  df-dec 12759  df-uz 12904  df-rp 13058  df-ico 13413  df-fz 13568  df-fzo 13712  df-fl 13843  df-mod 13921  df-seq 14053  df-exp 14113  df-hash 14380  df-cj 15148  df-re 15149  df-im 15150  df-sqrt 15284  df-abs 15285  df-clim 15534  df-sum 15735  df-dvds 16303  df-gcd 16541  df-phi 16813  df-struct 17194  df-sets 17211  df-slot 17229  df-ndx 17241  df-base 17259  df-ress 17288  df-plusg 17324  df-mulr 17325  df-starv 17326  df-sca 17327  df-vsca 17328  df-ip 17329  df-tset 17330  df-ple 17331  df-ds 17333  df-unif 17334  df-hom 17335  df-cco 17336  df-0g 17501  df-gsum 17502  df-prds 17507  df-pws 17509  df-mre 17644  df-mrc 17645  df-acs 17647  df-mgm 18678  df-sgrp 18757  df-mnd 18773  df-mhm 18818  df-submnd 18819  df-grp 18976  df-minusg 18977  df-sbg 18978  df-mulg 19108  df-subg 19163  df-eqg 19165  df-ghm 19253  df-cntz 19357  df-od 19570  df-cmn 19824  df-abl 19825  df-mgp 20162  df-rng 20180  df-ur 20209  df-srg 20214  df-ring 20262  df-cring 20263  df-oppr 20360  df-dvdsr 20383  df-unit 20384  df-invr 20414  df-rhm 20498  df-nzr 20539  df-subrng 20572  df-subrg 20597  df-rlreg 20716  df-domn 20717  df-idom 20718  df-lmod 20882  df-lss 20953  df-lsp 20993  df-cnfld 21388  df-assa 21896  df-asp 21897  df-ascl 21898  df-psr 21952  df-mvr 21953  df-mpl 21954  df-opsr 21956  df-evls 22121  df-evl 22122  df-psr1 22202  df-vr1 22203  df-ply1 22204  df-coe1 22205  df-evl1 22341  df-mdeg 26114  df-deg1 26115  df-mon1 26190  df-uc1p 26191  df-q1p 26192  df-r1p 26193  df-primroots 42049

This theorem is referenced by:  aks5lem7  42157