Theorem unitgrp 20465

Description: The group of units is a group under multiplication. (Contributed by Mario Carneiro, 2-Dec-2014.)

Hypotheses

Ref	Expression
unitmulcl.1	⊢ 𝑈 = (Unit‘𝑅)
unitgrp.2	⊢ 𝐺 = ((mulGrp‘𝑅) ↾s 𝑈)

Assertion

Ref	Expression
unitgrp	⊢ (𝑅 ∈ Ring → 𝐺 ∈ Grp)

Proof of Theorem unitgrp

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

Step	Hyp	Ref	Expression
1		unitmulcl.1	. . . 4 ⊢ 𝑈 = (Unit‘𝑅)
2		unitgrp.2	. . . 4 ⊢ 𝐺 = ((mulGrp‘𝑅) ↾s 𝑈)
3	1, 2	unitgrpbas 20464	. . 3 ⊢ 𝑈 = (Base‘𝐺)
4	3	a1i 11	. 2 ⊢ (𝑅 ∈ Ring → 𝑈 = (Base‘𝐺))
5	1	fvexi 6896	. . 3 ⊢ 𝑈 ∈ V
6		eqid 2769	. . . . 5 ⊢ (mulGrp‘𝑅) = (mulGrp‘𝑅)
7		eqid 2769	. . . . 5 ⊢ (.r‘𝑅) = (.r‘𝑅)
8	6, 7	mgpplusg 20220	. . . 4 ⊢ (.r‘𝑅) = (+g‘(mulGrp‘𝑅))
9	2, 8	ressplusg 17344	. . 3 ⊢ (𝑈 ∈ V → (.r‘𝑅) = (+g‘𝐺))
10	5, 9	mp1i 14	. 2 ⊢ (𝑅 ∈ Ring → (.r‘𝑅) = (+g‘𝐺))
11	1, 7	unitmulcl 20462	. 2 ⊢ ((𝑅 ∈ Ring ∧ 𝑥 ∈ 𝑈 ∧ 𝑦 ∈ 𝑈) → (𝑥(.r‘𝑅)𝑦) ∈ 𝑈)
12		eqid 2769	. . . . 5 ⊢ (Base‘𝑅) = (Base‘𝑅)
13	12, 1	unitcl 20457	. . . 4 ⊢ (𝑥 ∈ 𝑈 → 𝑥 ∈ (Base‘𝑅))
14	12, 1	unitcl 20457	. . . 4 ⊢ (𝑦 ∈ 𝑈 → 𝑦 ∈ (Base‘𝑅))
15	12, 1	unitcl 20457	. . . 4 ⊢ (𝑧 ∈ 𝑈 → 𝑧 ∈ (Base‘𝑅))
16	13, 14, 15	3anim123i 1167	. . 3 ⊢ ((𝑥 ∈ 𝑈 ∧ 𝑦 ∈ 𝑈 ∧ 𝑧 ∈ 𝑈) → (𝑥 ∈ (Base‘𝑅) ∧ 𝑦 ∈ (Base‘𝑅) ∧ 𝑧 ∈ (Base‘𝑅)))
17	12, 7	ringass 20335	. . 3 ⊢ ((𝑅 ∈ Ring ∧ (𝑥 ∈ (Base‘𝑅) ∧ 𝑦 ∈ (Base‘𝑅) ∧ 𝑧 ∈ (Base‘𝑅))) → ((𝑥(.r‘𝑅)𝑦)(.r‘𝑅)𝑧) = (𝑥(.r‘𝑅)(𝑦(.r‘𝑅)𝑧)))
18	16, 17	sylan2 604	. 2 ⊢ ((𝑅 ∈ Ring ∧ (𝑥 ∈ 𝑈 ∧ 𝑦 ∈ 𝑈 ∧ 𝑧 ∈ 𝑈)) → ((𝑥(.r‘𝑅)𝑦)(.r‘𝑅)𝑧) = (𝑥(.r‘𝑅)(𝑦(.r‘𝑅)𝑧)))
19		eqid 2769	. . 3 ⊢ (1r‘𝑅) = (1r‘𝑅)
20	1, 19	1unit 20456	. 2 ⊢ (𝑅 ∈ Ring → (1r‘𝑅) ∈ 𝑈)
21	12, 7, 19	ringlidm 20352	. . 3 ⊢ ((𝑅 ∈ Ring ∧ 𝑥 ∈ (Base‘𝑅)) → ((1r‘𝑅)(.r‘𝑅)𝑥) = 𝑥)
22	13, 21	sylan2 604	. 2 ⊢ ((𝑅 ∈ Ring ∧ 𝑥 ∈ 𝑈) → ((1r‘𝑅)(.r‘𝑅)𝑥) = 𝑥)
23		eqid 2769	. . . . 5 ⊢ (∥r‘𝑅) = (∥r‘𝑅)
24		eqid 2769	. . . . 5 ⊢ (oppr‘𝑅) = (oppr‘𝑅)
25		eqid 2769	. . . . 5 ⊢ (∥r‘(oppr‘𝑅)) = (∥r‘(oppr‘𝑅))
26	1, 19, 23, 24, 25	isunit 20455	. . . 4 ⊢ (𝑥 ∈ 𝑈 ↔ (𝑥(∥r‘𝑅)(1r‘𝑅) ∧ 𝑥(∥r‘(oppr‘𝑅))(1r‘𝑅)))
27	26	bilani 509	. . 3 ⊢ ((𝑅 ∈ Ring ∧ 𝑥 ∈ 𝑈) → (𝑥(∥r‘𝑅)(1r‘𝑅) ∧ 𝑥(∥r‘(oppr‘𝑅))(1r‘𝑅)))
28	13	adantl 486	. . . . . 6 ⊢ ((𝑅 ∈ Ring ∧ 𝑥 ∈ 𝑈) → 𝑥 ∈ (Base‘𝑅))
29	12, 23, 7	dvdsr2 20445	. . . . . 6 ⊢ (𝑥 ∈ (Base‘𝑅) → (𝑥(∥r‘𝑅)(1r‘𝑅) ↔ ∃𝑦 ∈ (Base‘𝑅)(𝑦(.r‘𝑅)𝑥) = (1r‘𝑅)))
30	28, 29	syl 18	. . . . 5 ⊢ ((𝑅 ∈ Ring ∧ 𝑥 ∈ 𝑈) → (𝑥(∥r‘𝑅)(1r‘𝑅) ↔ ∃𝑦 ∈ (Base‘𝑅)(𝑦(.r‘𝑅)𝑥) = (1r‘𝑅)))
31	24, 12	opprbas 20425	. . . . . . 7 ⊢ (Base‘𝑅) = (Base‘(oppr‘𝑅))
32		eqid 2769	. . . . . . 7 ⊢ (.r‘(oppr‘𝑅)) = (.r‘(oppr‘𝑅))
33	31, 25, 32	dvdsr2 20445	. . . . . 6 ⊢ (𝑥 ∈ (Base‘𝑅) → (𝑥(∥r‘(oppr‘𝑅))(1r‘𝑅) ↔ ∃𝑚 ∈ (Base‘𝑅)(𝑚(.r‘(oppr‘𝑅))𝑥) = (1r‘𝑅)))
34	28, 33	syl 18	. . . . 5 ⊢ ((𝑅 ∈ Ring ∧ 𝑥 ∈ 𝑈) → (𝑥(∥r‘(oppr‘𝑅))(1r‘𝑅) ↔ ∃𝑚 ∈ (Base‘𝑅)(𝑚(.r‘(oppr‘𝑅))𝑥) = (1r‘𝑅)))
35	30, 34	anbi12d 643	. . . 4 ⊢ ((𝑅 ∈ Ring ∧ 𝑥 ∈ 𝑈) → ((𝑥(∥r‘𝑅)(1r‘𝑅) ∧ 𝑥(∥r‘(oppr‘𝑅))(1r‘𝑅)) ↔ (∃𝑦 ∈ (Base‘𝑅)(𝑦(.r‘𝑅)𝑥) = (1r‘𝑅) ∧ ∃𝑚 ∈ (Base‘𝑅)(𝑚(.r‘(oppr‘𝑅))𝑥) = (1r‘𝑅))))
36		reeanv 3243	. . . . 5 ⊢ (∃𝑦 ∈ (Base‘𝑅)∃𝑚 ∈ (Base‘𝑅)((𝑦(.r‘𝑅)𝑥) = (1r‘𝑅) ∧ (𝑚(.r‘(oppr‘𝑅))𝑥) = (1r‘𝑅)) ↔ (∃𝑦 ∈ (Base‘𝑅)(𝑦(.r‘𝑅)𝑥) = (1r‘𝑅) ∧ ∃𝑚 ∈ (Base‘𝑅)(𝑚(.r‘(oppr‘𝑅))𝑥) = (1r‘𝑅)))
37		simprl 782	. . . . . . . . . . . 12 ⊢ ((((𝑅 ∈ Ring ∧ 𝑥 ∈ 𝑈) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑚 ∈ (Base‘𝑅) ∧ ((𝑦(.r‘𝑅)𝑥) = (1r‘𝑅) ∧ (𝑚(.r‘(oppr‘𝑅))𝑥) = (1r‘𝑅)))) → 𝑚 ∈ (Base‘𝑅))
38	28	ad2antrr 738	. . . . . . . . . . . 12 ⊢ ((((𝑅 ∈ Ring ∧ 𝑥 ∈ 𝑈) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑚 ∈ (Base‘𝑅) ∧ ((𝑦(.r‘𝑅)𝑥) = (1r‘𝑅) ∧ (𝑚(.r‘(oppr‘𝑅))𝑥) = (1r‘𝑅)))) → 𝑥 ∈ (Base‘𝑅))
39	12, 23, 7	dvdsrmul 20446	. . . . . . . . . . . 12 ⊢ ((𝑚 ∈ (Base‘𝑅) ∧ 𝑥 ∈ (Base‘𝑅)) → 𝑚(∥r‘𝑅)(𝑥(.r‘𝑅)𝑚))
40	37, 38, 39	syl2anc 595	. . . . . . . . . . 11 ⊢ ((((𝑅 ∈ Ring ∧ 𝑥 ∈ 𝑈) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑚 ∈ (Base‘𝑅) ∧ ((𝑦(.r‘𝑅)𝑥) = (1r‘𝑅) ∧ (𝑚(.r‘(oppr‘𝑅))𝑥) = (1r‘𝑅)))) → 𝑚(∥r‘𝑅)(𝑥(.r‘𝑅)𝑚))
41		simplll 786	. . . . . . . . . . . . . 14 ⊢ ((((𝑅 ∈ Ring ∧ 𝑥 ∈ 𝑈) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑚 ∈ (Base‘𝑅) ∧ ((𝑦(.r‘𝑅)𝑥) = (1r‘𝑅) ∧ (𝑚(.r‘(oppr‘𝑅))𝑥) = (1r‘𝑅)))) → 𝑅 ∈ Ring)
42		simplr 780	. . . . . . . . . . . . . 14 ⊢ ((((𝑅 ∈ Ring ∧ 𝑥 ∈ 𝑈) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑚 ∈ (Base‘𝑅) ∧ ((𝑦(.r‘𝑅)𝑥) = (1r‘𝑅) ∧ (𝑚(.r‘(oppr‘𝑅))𝑥) = (1r‘𝑅)))) → 𝑦 ∈ (Base‘𝑅))
43	12, 7	ringass 20335	. . . . . . . . . . . . . 14 ⊢ ((𝑅 ∈ Ring ∧ (𝑦 ∈ (Base‘𝑅) ∧ 𝑥 ∈ (Base‘𝑅) ∧ 𝑚 ∈ (Base‘𝑅))) → ((𝑦(.r‘𝑅)𝑥)(.r‘𝑅)𝑚) = (𝑦(.r‘𝑅)(𝑥(.r‘𝑅)𝑚)))
44	41, 42, 38, 37, 43	syl13anc 1397	. . . . . . . . . . . . 13 ⊢ ((((𝑅 ∈ Ring ∧ 𝑥 ∈ 𝑈) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑚 ∈ (Base‘𝑅) ∧ ((𝑦(.r‘𝑅)𝑥) = (1r‘𝑅) ∧ (𝑚(.r‘(oppr‘𝑅))𝑥) = (1r‘𝑅)))) → ((𝑦(.r‘𝑅)𝑥)(.r‘𝑅)𝑚) = (𝑦(.r‘𝑅)(𝑥(.r‘𝑅)𝑚)))
45		simprrl 792	. . . . . . . . . . . . . 14 ⊢ ((((𝑅 ∈ Ring ∧ 𝑥 ∈ 𝑈) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑚 ∈ (Base‘𝑅) ∧ ((𝑦(.r‘𝑅)𝑥) = (1r‘𝑅) ∧ (𝑚(.r‘(oppr‘𝑅))𝑥) = (1r‘𝑅)))) → (𝑦(.r‘𝑅)𝑥) = (1r‘𝑅))
46	45	oveq1d 7426	. . . . . . . . . . . . 13 ⊢ ((((𝑅 ∈ Ring ∧ 𝑥 ∈ 𝑈) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑚 ∈ (Base‘𝑅) ∧ ((𝑦(.r‘𝑅)𝑥) = (1r‘𝑅) ∧ (𝑚(.r‘(oppr‘𝑅))𝑥) = (1r‘𝑅)))) → ((𝑦(.r‘𝑅)𝑥)(.r‘𝑅)𝑚) = ((1r‘𝑅)(.r‘𝑅)𝑚))
47	12, 7, 24, 32	opprmul 20422	. . . . . . . . . . . . . . 15 ⊢ (𝑚(.r‘(oppr‘𝑅))𝑥) = (𝑥(.r‘𝑅)𝑚)
48		simprrr 793	. . . . . . . . . . . . . . 15 ⊢ ((((𝑅 ∈ Ring ∧ 𝑥 ∈ 𝑈) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑚 ∈ (Base‘𝑅) ∧ ((𝑦(.r‘𝑅)𝑥) = (1r‘𝑅) ∧ (𝑚(.r‘(oppr‘𝑅))𝑥) = (1r‘𝑅)))) → (𝑚(.r‘(oppr‘𝑅))𝑥) = (1r‘𝑅))
49	47, 48	eqtr3id 2818	. . . . . . . . . . . . . 14 ⊢ ((((𝑅 ∈ Ring ∧ 𝑥 ∈ 𝑈) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑚 ∈ (Base‘𝑅) ∧ ((𝑦(.r‘𝑅)𝑥) = (1r‘𝑅) ∧ (𝑚(.r‘(oppr‘𝑅))𝑥) = (1r‘𝑅)))) → (𝑥(.r‘𝑅)𝑚) = (1r‘𝑅))
50	49	oveq2d 7427	. . . . . . . . . . . . 13 ⊢ ((((𝑅 ∈ Ring ∧ 𝑥 ∈ 𝑈) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑚 ∈ (Base‘𝑅) ∧ ((𝑦(.r‘𝑅)𝑥) = (1r‘𝑅) ∧ (𝑚(.r‘(oppr‘𝑅))𝑥) = (1r‘𝑅)))) → (𝑦(.r‘𝑅)(𝑥(.r‘𝑅)𝑚)) = (𝑦(.r‘𝑅)(1r‘𝑅)))
51	44, 46, 50	3eqtr3d 2812	. . . . . . . . . . . 12 ⊢ ((((𝑅 ∈ Ring ∧ 𝑥 ∈ 𝑈) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑚 ∈ (Base‘𝑅) ∧ ((𝑦(.r‘𝑅)𝑥) = (1r‘𝑅) ∧ (𝑚(.r‘(oppr‘𝑅))𝑥) = (1r‘𝑅)))) → ((1r‘𝑅)(.r‘𝑅)𝑚) = (𝑦(.r‘𝑅)(1r‘𝑅)))
52	12, 7, 19	ringlidm 20352	. . . . . . . . . . . . 13 ⊢ ((𝑅 ∈ Ring ∧ 𝑚 ∈ (Base‘𝑅)) → ((1r‘𝑅)(.r‘𝑅)𝑚) = 𝑚)
53	41, 37, 52	syl2anc 595	. . . . . . . . . . . 12 ⊢ ((((𝑅 ∈ Ring ∧ 𝑥 ∈ 𝑈) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑚 ∈ (Base‘𝑅) ∧ ((𝑦(.r‘𝑅)𝑥) = (1r‘𝑅) ∧ (𝑚(.r‘(oppr‘𝑅))𝑥) = (1r‘𝑅)))) → ((1r‘𝑅)(.r‘𝑅)𝑚) = 𝑚)
54	12, 7, 19	ringridm 20353	. . . . . . . . . . . . 13 ⊢ ((𝑅 ∈ Ring ∧ 𝑦 ∈ (Base‘𝑅)) → (𝑦(.r‘𝑅)(1r‘𝑅)) = 𝑦)
55	41, 42, 54	syl2anc 595	. . . . . . . . . . . 12 ⊢ ((((𝑅 ∈ Ring ∧ 𝑥 ∈ 𝑈) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑚 ∈ (Base‘𝑅) ∧ ((𝑦(.r‘𝑅)𝑥) = (1r‘𝑅) ∧ (𝑚(.r‘(oppr‘𝑅))𝑥) = (1r‘𝑅)))) → (𝑦(.r‘𝑅)(1r‘𝑅)) = 𝑦)
56	51, 53, 55	3eqtr3d 2812	. . . . . . . . . . 11 ⊢ ((((𝑅 ∈ Ring ∧ 𝑥 ∈ 𝑈) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑚 ∈ (Base‘𝑅) ∧ ((𝑦(.r‘𝑅)𝑥) = (1r‘𝑅) ∧ (𝑚(.r‘(oppr‘𝑅))𝑥) = (1r‘𝑅)))) → 𝑚 = 𝑦)
57	40, 56, 49	3brtr3d 5146	. . . . . . . . . 10 ⊢ ((((𝑅 ∈ Ring ∧ 𝑥 ∈ 𝑈) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑚 ∈ (Base‘𝑅) ∧ ((𝑦(.r‘𝑅)𝑥) = (1r‘𝑅) ∧ (𝑚(.r‘(oppr‘𝑅))𝑥) = (1r‘𝑅)))) → 𝑦(∥r‘𝑅)(1r‘𝑅))
58	31, 25, 32	dvdsrmul 20446	. . . . . . . . . . . 12 ⊢ ((𝑦 ∈ (Base‘𝑅) ∧ 𝑥 ∈ (Base‘𝑅)) → 𝑦(∥r‘(oppr‘𝑅))(𝑥(.r‘(oppr‘𝑅))𝑦))
59	42, 38, 58	syl2anc 595	. . . . . . . . . . 11 ⊢ ((((𝑅 ∈ Ring ∧ 𝑥 ∈ 𝑈) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑚 ∈ (Base‘𝑅) ∧ ((𝑦(.r‘𝑅)𝑥) = (1r‘𝑅) ∧ (𝑚(.r‘(oppr‘𝑅))𝑥) = (1r‘𝑅)))) → 𝑦(∥r‘(oppr‘𝑅))(𝑥(.r‘(oppr‘𝑅))𝑦))
60	12, 7, 24, 32	opprmul 20422	. . . . . . . . . . . 12 ⊢ (𝑥(.r‘(oppr‘𝑅))𝑦) = (𝑦(.r‘𝑅)𝑥)
61	60, 45	eqtrid 2816	. . . . . . . . . . 11 ⊢ ((((𝑅 ∈ Ring ∧ 𝑥 ∈ 𝑈) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑚 ∈ (Base‘𝑅) ∧ ((𝑦(.r‘𝑅)𝑥) = (1r‘𝑅) ∧ (𝑚(.r‘(oppr‘𝑅))𝑥) = (1r‘𝑅)))) → (𝑥(.r‘(oppr‘𝑅))𝑦) = (1r‘𝑅))
62	59, 61	breqtrd 5141	. . . . . . . . . 10 ⊢ ((((𝑅 ∈ Ring ∧ 𝑥 ∈ 𝑈) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑚 ∈ (Base‘𝑅) ∧ ((𝑦(.r‘𝑅)𝑥) = (1r‘𝑅) ∧ (𝑚(.r‘(oppr‘𝑅))𝑥) = (1r‘𝑅)))) → 𝑦(∥r‘(oppr‘𝑅))(1r‘𝑅))
63	1, 19, 23, 24, 25	isunit 20455	. . . . . . . . . 10 ⊢ (𝑦 ∈ 𝑈 ↔ (𝑦(∥r‘𝑅)(1r‘𝑅) ∧ 𝑦(∥r‘(oppr‘𝑅))(1r‘𝑅)))
64	57, 62, 63	sylanbrc 594	. . . . . . . . 9 ⊢ ((((𝑅 ∈ Ring ∧ 𝑥 ∈ 𝑈) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑚 ∈ (Base‘𝑅) ∧ ((𝑦(.r‘𝑅)𝑥) = (1r‘𝑅) ∧ (𝑚(.r‘(oppr‘𝑅))𝑥) = (1r‘𝑅)))) → 𝑦 ∈ 𝑈)
65	64, 45	jca 520	. . . . . . . 8 ⊢ ((((𝑅 ∈ Ring ∧ 𝑥 ∈ 𝑈) ∧ 𝑦 ∈ (Base‘𝑅)) ∧ (𝑚 ∈ (Base‘𝑅) ∧ ((𝑦(.r‘𝑅)𝑥) = (1r‘𝑅) ∧ (𝑚(.r‘(oppr‘𝑅))𝑥) = (1r‘𝑅)))) → (𝑦 ∈ 𝑈 ∧ (𝑦(.r‘𝑅)𝑥) = (1r‘𝑅)))
66	65	rexlimdvaa 3173	. . . . . . 7 ⊢ (((𝑅 ∈ Ring ∧ 𝑥 ∈ 𝑈) ∧ 𝑦 ∈ (Base‘𝑅)) → (∃𝑚 ∈ (Base‘𝑅)((𝑦(.r‘𝑅)𝑥) = (1r‘𝑅) ∧ (𝑚(.r‘(oppr‘𝑅))𝑥) = (1r‘𝑅)) → (𝑦 ∈ 𝑈 ∧ (𝑦(.r‘𝑅)𝑥) = (1r‘𝑅))))
67	66	expimpd 458	. . . . . 6 ⊢ ((𝑅 ∈ Ring ∧ 𝑥 ∈ 𝑈) → ((𝑦 ∈ (Base‘𝑅) ∧ ∃𝑚 ∈ (Base‘𝑅)((𝑦(.r‘𝑅)𝑥) = (1r‘𝑅) ∧ (𝑚(.r‘(oppr‘𝑅))𝑥) = (1r‘𝑅))) → (𝑦 ∈ 𝑈 ∧ (𝑦(.r‘𝑅)𝑥) = (1r‘𝑅))))
68	67	reximdv2 3181	. . . . 5 ⊢ ((𝑅 ∈ Ring ∧ 𝑥 ∈ 𝑈) → (∃𝑦 ∈ (Base‘𝑅)∃𝑚 ∈ (Base‘𝑅)((𝑦(.r‘𝑅)𝑥) = (1r‘𝑅) ∧ (𝑚(.r‘(oppr‘𝑅))𝑥) = (1r‘𝑅)) → ∃𝑦 ∈ 𝑈 (𝑦(.r‘𝑅)𝑥) = (1r‘𝑅)))
69	36, 68	biimtrrid 246	. . . 4 ⊢ ((𝑅 ∈ Ring ∧ 𝑥 ∈ 𝑈) → ((∃𝑦 ∈ (Base‘𝑅)(𝑦(.r‘𝑅)𝑥) = (1r‘𝑅) ∧ ∃𝑚 ∈ (Base‘𝑅)(𝑚(.r‘(oppr‘𝑅))𝑥) = (1r‘𝑅)) → ∃𝑦 ∈ 𝑈 (𝑦(.r‘𝑅)𝑥) = (1r‘𝑅)))
70	35, 69	sylbid 243	. . 3 ⊢ ((𝑅 ∈ Ring ∧ 𝑥 ∈ 𝑈) → ((𝑥(∥r‘𝑅)(1r‘𝑅) ∧ 𝑥(∥r‘(oppr‘𝑅))(1r‘𝑅)) → ∃𝑦 ∈ 𝑈 (𝑦(.r‘𝑅)𝑥) = (1r‘𝑅)))
71	27, 70	mpd 16	. 2 ⊢ ((𝑅 ∈ Ring ∧ 𝑥 ∈ 𝑈) → ∃𝑦 ∈ 𝑈 (𝑦(.r‘𝑅)𝑥) = (1r‘𝑅))
72	4, 10, 11, 18, 20, 22, 71	isgrpde 19024	1 ⊢ (𝑅 ∈ Ring → 𝐺 ∈ Grp)

Syntax hints:   → wi 4   ↔ wb 209   ∧ wa 400   ∧ w3a 1101   = wceq 1567   ∈ wcel 2149  ∃wrex 3095  Vcvv 3463   class class class wbr 5113  ‘cfv 6537  (class class class)co 7411  Basecbs 17269   ↾_s cress 17290  +_gcplusg 17310  ._rcmulr 17311  Grpcgrp 19000  mulGrpcmgp 20216  1_rcur 20263  Ringcrg 20315  opp_rcoppr 20418  ∥_rcdsr 20436  Unitcui 20437

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1822  ax-4 1836  ax-5 1937  ax-6 1994  ax-7 2035  ax-8 2151  ax-9 2159  ax-10 2182  ax-11 2198  ax-12 2219  ax-ext 2741  ax-rep 5242  ax-sep 5261  ax-nul 5271  ax-pow 5337  ax-pr 5405  ax-un 7733  ax-cnex 11156  ax-resscn 11157  ax-1cn 11158  ax-icn 11159  ax-addcl 11160  ax-addrcl 11161  ax-mulcl 11162  ax-mulrcl 11163  ax-mulcom 11164  ax-addass 11165  ax-mulass 11166  ax-distr 11167  ax-i2m1 11168  ax-1ne0 11169  ax-1rid 11170  ax-rnegex 11171  ax-rrecex 11172  ax-cnre 11173  ax-pre-lttri 11174  ax-pre-lttrn 11175  ax-pre-ltadd 11176  ax-pre-mulgt0 11177

This theorem depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3or 1102  df-3an 1103  df-tru 1570  df-fal 1580  df-ex 1807  df-nf 1811  df-sb 2098  df-mo 2573  df-eu 2603  df-clab 2748  df-cleq 2761  df-clel 2844  df-nfc 2918  df-ne 2965  df-nel 3071  df-ral 3086  df-rex 3096  df-rmo 3376  df-reu 3377  df-rab 3424  df-v 3465  df-sbc 3754  df-csb 3862  df-dif 3916  df-un 3918  df-in 3920  df-ss 3930  df-pss 3933  df-nul 4295  df-if 4493  df-pw 4569  df-sn 4595  df-pr 4597  df-op 4601  df-uni 4877  df-iun 4962  df-br 5114  df-opab 5178  df-mpt 5197  df-tr 5223  df-id 5557  df-eprel 5562  df-po 5570  df-so 5571  df-fr 5615  df-we 5617  df-xp 5668  df-rel 5669  df-cnv 5670  df-co 5671  df-dm 5672  df-rn 5673  df-res 5674  df-ima 5675  df-pred 6303  df-ord 6364  df-on 6365  df-lim 6366  df-suc 6367  df-iota 6493  df-fun 6539  df-fn 6540  df-f 6541  df-f1 6542  df-fo 6543  df-f1o 6544  df-fv 6545  df-riota 7368  df-ov 7414  df-oprab 7415  df-mpo 7416  df-om 7863  df-2nd 7987  df-tpos 8222  df-frecs 8278  df-wrecs 8309  df-recs 8358  df-rdg 8397  df-er 8694  df-en 8944  df-dom 8945  df-sdom 8946  df-pnf 11245  df-mnf 11246  df-xr 11247  df-ltxr 11248  df-le 11249  df-sub 11443  df-neg 11444  df-nn 12234  df-2 12303  df-3 12304  df-sets 17224  df-slot 17242  df-ndx 17254  df-base 17270  df-ress 17291  df-plusg 17323  df-mulr 17324  df-0g 17494  df-mgm 18698  df-sgrp 18777  df-mnd 18793  df-grp 19003  df-minusg 19004  df-cmn 19852  df-abl 19853  df-mgp 20217  df-rng 20231  df-ur 20264  df-ring 20317  df-oppr 20419  df-dvdsr 20439  df-unit 20440

This theorem is referenced by:  unitabl  20466  unitsubm  20468  unitinvcl  20472  unitinvinv  20473  unitlinv  20475  unitrinv  20476  rdivmuldivd  20495  rhmunitinv  20594  subrgugrp  20676  isdrng2  20827  expghm  21594  invrvald  22802  nrginvrcn  24818  nrgtdrg  24819  dchrfi  27385  dchrghm  27386  dchrabs  27390  dchrptlem1  27394  dchrptlem2  27395  dchrptlem3  27396  dchrsum2  27398  dvrcan5  33496  unitscyglem5  42890  idomodle  43844  proot1mul  43847  proot1hash  43848  proot1ex  43849