Theorem dflring3 33796

Description: Alternate definition of a local ring: local rings have a single maximal ideal. (Contributed by Thierry Arnoux, 2-Jun-2026.)

Assertion

Ref	Expression
dflring3	⊢ (𝑅 ∈ CRing → (𝑅 ∈ LRing ↔ (MaxIdeal‘𝑅) ≈ 1o))

Proof of Theorem dflring3

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

Step	Hyp	Ref	Expression
1		crngring 20331	. . . . . . . . 9 ⊢ (𝑅 ∈ CRing → 𝑅 ∈ Ring)
2	1	adantr 485	. . . . . . . 8 ⊢ ((𝑅 ∈ CRing ∧ 𝑅 ∈ LRing) → 𝑅 ∈ Ring)
3	2	adantr 485	. . . . . . 7 ⊢ (((𝑅 ∈ CRing ∧ 𝑅 ∈ LRing) ∧ 𝑚 ∈ (MaxIdeal‘𝑅)) → 𝑅 ∈ Ring)
4		simpr 489	. . . . . . 7 ⊢ (((𝑅 ∈ CRing ∧ 𝑅 ∈ LRing) ∧ 𝑚 ∈ (MaxIdeal‘𝑅)) → 𝑚 ∈ (MaxIdeal‘𝑅))
5		eqid 2763	. . . . . . . . 9 ⊢ (Base‘𝑅) = (Base‘𝑅)
6		eqid 2763	. . . . . . . . 9 ⊢ (Unit‘𝑅) = (Unit‘𝑅)
7		simpl 487	. . . . . . . . 9 ⊢ ((𝑅 ∈ CRing ∧ 𝑅 ∈ LRing) → 𝑅 ∈ CRing)
8		simpr 489	. . . . . . . . 9 ⊢ ((𝑅 ∈ CRing ∧ 𝑅 ∈ LRing) → 𝑅 ∈ LRing)
9	5, 6, 7, 8	dflringlem2 33794	. . . . . . . 8 ⊢ ((𝑅 ∈ CRing ∧ 𝑅 ∈ LRing) → ((Base‘𝑅) ∖ (Unit‘𝑅)) ∈ (LIdeal‘𝑅))
10	9	adantr 485	. . . . . . 7 ⊢ (((𝑅 ∈ CRing ∧ 𝑅 ∈ LRing) ∧ 𝑚 ∈ (MaxIdeal‘𝑅)) → ((Base‘𝑅) ∖ (Unit‘𝑅)) ∈ (LIdeal‘𝑅))
11	5	mxidlidl 33755	. . . . . . . . . . . . . . 15 ⊢ ((𝑅 ∈ Ring ∧ 𝑚 ∈ (MaxIdeal‘𝑅)) → 𝑚 ∈ (LIdeal‘𝑅))
12	2, 11	sylan 591	. . . . . . . . . . . . . 14 ⊢ (((𝑅 ∈ CRing ∧ 𝑅 ∈ LRing) ∧ 𝑚 ∈ (MaxIdeal‘𝑅)) → 𝑚 ∈ (LIdeal‘𝑅))
13		eqid 2763	. . . . . . . . . . . . . . 15 ⊢ (LIdeal‘𝑅) = (LIdeal‘𝑅)
14	5, 13	lidlss 21345	. . . . . . . . . . . . . 14 ⊢ (𝑚 ∈ (LIdeal‘𝑅) → 𝑚 ⊆ (Base‘𝑅))
15	12, 14	syl 18	. . . . . . . . . . . . 13 ⊢ (((𝑅 ∈ CRing ∧ 𝑅 ∈ LRing) ∧ 𝑚 ∈ (MaxIdeal‘𝑅)) → 𝑚 ⊆ (Base‘𝑅))
16	15	adantr 485	. . . . . . . . . . . 12 ⊢ ((((𝑅 ∈ CRing ∧ 𝑅 ∈ LRing) ∧ 𝑚 ∈ (MaxIdeal‘𝑅)) ∧ ¬ 𝑚 ⊆ ((Base‘𝑅) ∖ (Unit‘𝑅))) → 𝑚 ⊆ (Base‘𝑅))
17	16	sselda 3937	. . . . . . . . . . 11 ⊢ (((((𝑅 ∈ CRing ∧ 𝑅 ∈ LRing) ∧ 𝑚 ∈ (MaxIdeal‘𝑅)) ∧ ¬ 𝑚 ⊆ ((Base‘𝑅) ∖ (Unit‘𝑅))) ∧ 𝑥 ∈ 𝑚) → 𝑥 ∈ (Base‘𝑅))
18		neldif 4088	. . . . . . . . . . 11 ⊢ ((𝑥 ∈ (Base‘𝑅) ∧ ¬ 𝑥 ∈ ((Base‘𝑅) ∖ (Unit‘𝑅))) → 𝑥 ∈ (Unit‘𝑅))
19	17, 18	sylan 591	. . . . . . . . . 10 ⊢ ((((((𝑅 ∈ CRing ∧ 𝑅 ∈ LRing) ∧ 𝑚 ∈ (MaxIdeal‘𝑅)) ∧ ¬ 𝑚 ⊆ ((Base‘𝑅) ∖ (Unit‘𝑅))) ∧ 𝑥 ∈ 𝑚) ∧ ¬ 𝑥 ∈ ((Base‘𝑅) ∖ (Unit‘𝑅))) → 𝑥 ∈ (Unit‘𝑅))
20		simplr 780	. . . . . . . . . 10 ⊢ ((((((𝑅 ∈ CRing ∧ 𝑅 ∈ LRing) ∧ 𝑚 ∈ (MaxIdeal‘𝑅)) ∧ ¬ 𝑚 ⊆ ((Base‘𝑅) ∖ (Unit‘𝑅))) ∧ 𝑥 ∈ 𝑚) ∧ ¬ 𝑥 ∈ ((Base‘𝑅) ∖ (Unit‘𝑅))) → 𝑥 ∈ 𝑚)
21	2	ad4antr 744	. . . . . . . . . 10 ⊢ ((((((𝑅 ∈ CRing ∧ 𝑅 ∈ LRing) ∧ 𝑚 ∈ (MaxIdeal‘𝑅)) ∧ ¬ 𝑚 ⊆ ((Base‘𝑅) ∖ (Unit‘𝑅))) ∧ 𝑥 ∈ 𝑚) ∧ ¬ 𝑥 ∈ ((Base‘𝑅) ∖ (Unit‘𝑅))) → 𝑅 ∈ Ring)
22	12	ad3antrrr 742	. . . . . . . . . 10 ⊢ ((((((𝑅 ∈ CRing ∧ 𝑅 ∈ LRing) ∧ 𝑚 ∈ (MaxIdeal‘𝑅)) ∧ ¬ 𝑚 ⊆ ((Base‘𝑅) ∖ (Unit‘𝑅))) ∧ 𝑥 ∈ 𝑚) ∧ ¬ 𝑥 ∈ ((Base‘𝑅) ∖ (Unit‘𝑅))) → 𝑚 ∈ (LIdeal‘𝑅))
23	5, 6, 19, 20, 21, 22	lidlunitel 33740	. . . . . . . . 9 ⊢ ((((((𝑅 ∈ CRing ∧ 𝑅 ∈ LRing) ∧ 𝑚 ∈ (MaxIdeal‘𝑅)) ∧ ¬ 𝑚 ⊆ ((Base‘𝑅) ∖ (Unit‘𝑅))) ∧ 𝑥 ∈ 𝑚) ∧ ¬ 𝑥 ∈ ((Base‘𝑅) ∖ (Unit‘𝑅))) → 𝑚 = (Base‘𝑅))
24		nssrex 4002	. . . . . . . . . 10 ⊢ (¬ 𝑚 ⊆ ((Base‘𝑅) ∖ (Unit‘𝑅)) ↔ ∃𝑥 ∈ 𝑚 ¬ 𝑥 ∈ ((Base‘𝑅) ∖ (Unit‘𝑅)))
25	24	bilani 509	. . . . . . . . 9 ⊢ ((((𝑅 ∈ CRing ∧ 𝑅 ∈ LRing) ∧ 𝑚 ∈ (MaxIdeal‘𝑅)) ∧ ¬ 𝑚 ⊆ ((Base‘𝑅) ∖ (Unit‘𝑅))) → ∃𝑥 ∈ 𝑚 ¬ 𝑥 ∈ ((Base‘𝑅) ∖ (Unit‘𝑅)))
26	23, 25	r19.29a 3173	. . . . . . . 8 ⊢ ((((𝑅 ∈ CRing ∧ 𝑅 ∈ LRing) ∧ 𝑚 ∈ (MaxIdeal‘𝑅)) ∧ ¬ 𝑚 ⊆ ((Base‘𝑅) ∖ (Unit‘𝑅))) → 𝑚 = (Base‘𝑅))
27	2	ad2antrr 738	. . . . . . . . . 10 ⊢ ((((𝑅 ∈ CRing ∧ 𝑅 ∈ LRing) ∧ 𝑚 ∈ (MaxIdeal‘𝑅)) ∧ ¬ 𝑚 ⊆ ((Base‘𝑅) ∖ (Unit‘𝑅))) → 𝑅 ∈ Ring)
28		simplr 780	. . . . . . . . . 10 ⊢ ((((𝑅 ∈ CRing ∧ 𝑅 ∈ LRing) ∧ 𝑚 ∈ (MaxIdeal‘𝑅)) ∧ ¬ 𝑚 ⊆ ((Base‘𝑅) ∖ (Unit‘𝑅))) → 𝑚 ∈ (MaxIdeal‘𝑅))
29	5	mxidlnr 33756	. . . . . . . . . 10 ⊢ ((𝑅 ∈ Ring ∧ 𝑚 ∈ (MaxIdeal‘𝑅)) → 𝑚 ≠ (Base‘𝑅))
30	27, 28, 29	syl2anc 595	. . . . . . . . 9 ⊢ ((((𝑅 ∈ CRing ∧ 𝑅 ∈ LRing) ∧ 𝑚 ∈ (MaxIdeal‘𝑅)) ∧ ¬ 𝑚 ⊆ ((Base‘𝑅) ∖ (Unit‘𝑅))) → 𝑚 ≠ (Base‘𝑅))
31	30	neneqd 2963	. . . . . . . 8 ⊢ ((((𝑅 ∈ CRing ∧ 𝑅 ∈ LRing) ∧ 𝑚 ∈ (MaxIdeal‘𝑅)) ∧ ¬ 𝑚 ⊆ ((Base‘𝑅) ∖ (Unit‘𝑅))) → ¬ 𝑚 = (Base‘𝑅))
32	26, 31	condan 829	. . . . . . 7 ⊢ (((𝑅 ∈ CRing ∧ 𝑅 ∈ LRing) ∧ 𝑚 ∈ (MaxIdeal‘𝑅)) → 𝑚 ⊆ ((Base‘𝑅) ∖ (Unit‘𝑅)))
33	5	mxidlmax 33757	. . . . . . 7 ⊢ (((𝑅 ∈ Ring ∧ 𝑚 ∈ (MaxIdeal‘𝑅)) ∧ (((Base‘𝑅) ∖ (Unit‘𝑅)) ∈ (LIdeal‘𝑅) ∧ 𝑚 ⊆ ((Base‘𝑅) ∖ (Unit‘𝑅)))) → (((Base‘𝑅) ∖ (Unit‘𝑅)) = 𝑚 ∨ ((Base‘𝑅) ∖ (Unit‘𝑅)) = (Base‘𝑅)))
34	3, 4, 10, 32, 33	syl22anc 851	. . . . . 6 ⊢ (((𝑅 ∈ CRing ∧ 𝑅 ∈ LRing) ∧ 𝑚 ∈ (MaxIdeal‘𝑅)) → (((Base‘𝑅) ∖ (Unit‘𝑅)) = 𝑚 ∨ ((Base‘𝑅) ∖ (Unit‘𝑅)) = (Base‘𝑅)))
35		eqid 2763	. . . . . . . . . . . 12 ⊢ (1r‘𝑅) = (1r‘𝑅)
36	5, 35, 1	ringidcld 20354	. . . . . . . . . . 11 ⊢ (𝑅 ∈ CRing → (1r‘𝑅) ∈ (Base‘𝑅))
37	36	adantr 485	. . . . . . . . . 10 ⊢ ((𝑅 ∈ CRing ∧ 𝑅 ∈ LRing) → (1r‘𝑅) ∈ (Base‘𝑅))
38	6, 35	1unit 20461	. . . . . . . . . . 11 ⊢ (𝑅 ∈ Ring → (1r‘𝑅) ∈ (Unit‘𝑅))
39		elndif 4087	. . . . . . . . . . 11 ⊢ ((1r‘𝑅) ∈ (Unit‘𝑅) → ¬ (1r‘𝑅) ∈ ((Base‘𝑅) ∖ (Unit‘𝑅)))
40	2, 38, 39	3syl 19	. . . . . . . . . 10 ⊢ ((𝑅 ∈ CRing ∧ 𝑅 ∈ LRing) → ¬ (1r‘𝑅) ∈ ((Base‘𝑅) ∖ (Unit‘𝑅)))
41		nelne1 3055	. . . . . . . . . 10 ⊢ (((1r‘𝑅) ∈ (Base‘𝑅) ∧ ¬ (1r‘𝑅) ∈ ((Base‘𝑅) ∖ (Unit‘𝑅))) → (Base‘𝑅) ≠ ((Base‘𝑅) ∖ (Unit‘𝑅)))
42	37, 40, 41	syl2anc 595	. . . . . . . . 9 ⊢ ((𝑅 ∈ CRing ∧ 𝑅 ∈ LRing) → (Base‘𝑅) ≠ ((Base‘𝑅) ∖ (Unit‘𝑅)))
43	42	necomd 3013	. . . . . . . 8 ⊢ ((𝑅 ∈ CRing ∧ 𝑅 ∈ LRing) → ((Base‘𝑅) ∖ (Unit‘𝑅)) ≠ (Base‘𝑅))
44	43	adantr 485	. . . . . . 7 ⊢ (((𝑅 ∈ CRing ∧ 𝑅 ∈ LRing) ∧ 𝑚 ∈ (MaxIdeal‘𝑅)) → ((Base‘𝑅) ∖ (Unit‘𝑅)) ≠ (Base‘𝑅))
45	44	neneqd 2963	. . . . . 6 ⊢ (((𝑅 ∈ CRing ∧ 𝑅 ∈ LRing) ∧ 𝑚 ∈ (MaxIdeal‘𝑅)) → ¬ ((Base‘𝑅) ∖ (Unit‘𝑅)) = (Base‘𝑅))
46	34, 45	olcnd 890	. . . . 5 ⊢ (((𝑅 ∈ CRing ∧ 𝑅 ∈ LRing) ∧ 𝑚 ∈ (MaxIdeal‘𝑅)) → ((Base‘𝑅) ∖ (Unit‘𝑅)) = 𝑚)
47	46	eqcomd 2769	. . . 4 ⊢ (((𝑅 ∈ CRing ∧ 𝑅 ∈ LRing) ∧ 𝑚 ∈ (MaxIdeal‘𝑅)) → 𝑚 = ((Base‘𝑅) ∖ (Unit‘𝑅)))
48	5, 6, 7, 8	dflringlem3 33795	. . . 4 ⊢ ((𝑅 ∈ CRing ∧ 𝑅 ∈ LRing) → ((Base‘𝑅) ∖ (Unit‘𝑅)) ∈ (MaxIdeal‘𝑅))
49	47, 48	eqsnd 4796	. . 3 ⊢ ((𝑅 ∈ CRing ∧ 𝑅 ∈ LRing) → (MaxIdeal‘𝑅) = {((Base‘𝑅) ∖ (Unit‘𝑅))})
50		ensn1g 9015	. . . 4 ⊢ (((Base‘𝑅) ∖ (Unit‘𝑅)) ∈ (LIdeal‘𝑅) → {((Base‘𝑅) ∖ (Unit‘𝑅))} ≈ 1o)
51	9, 50	syl 18	. . 3 ⊢ ((𝑅 ∈ CRing ∧ 𝑅 ∈ LRing) → {((Base‘𝑅) ∖ (Unit‘𝑅))} ≈ 1o)
52	49, 51	eqbrtrd 5133	. 2 ⊢ ((𝑅 ∈ CRing ∧ 𝑅 ∈ LRing) → (MaxIdeal‘𝑅) ≈ 1o)
53		en1 9017	. . . . 5 ⊢ ((MaxIdeal‘𝑅) ≈ 1o ↔ ∃𝑚(MaxIdeal‘𝑅) = {𝑚})
54	53	bilani 509	. . . 4 ⊢ ((𝑅 ∈ CRing ∧ (MaxIdeal‘𝑅) ≈ 1o) → ∃𝑚(MaxIdeal‘𝑅) = {𝑚})
55	1	adantr 485	. . . . . . 7 ⊢ ((𝑅 ∈ CRing ∧ (MaxIdeal‘𝑅) = {𝑚}) → 𝑅 ∈ Ring)
56		vsnid 4629	. . . . . . . 8 ⊢ 𝑚 ∈ {𝑚}
57		simpr 489	. . . . . . . 8 ⊢ ((𝑅 ∈ CRing ∧ (MaxIdeal‘𝑅) = {𝑚}) → (MaxIdeal‘𝑅) = {𝑚})
58	56, 57	eleqtrrid 2870	. . . . . . 7 ⊢ ((𝑅 ∈ CRing ∧ (MaxIdeal‘𝑅) = {𝑚}) → 𝑚 ∈ (MaxIdeal‘𝑅))
59	5	mxidlnzr 33759	. . . . . . 7 ⊢ ((𝑅 ∈ Ring ∧ 𝑚 ∈ (MaxIdeal‘𝑅)) → 𝑅 ∈ NzRing)
60	55, 58, 59	syl2anc 595	. . . . . 6 ⊢ ((𝑅 ∈ CRing ∧ (MaxIdeal‘𝑅) = {𝑚}) → 𝑅 ∈ NzRing)
61		simplll 786	. . . . . . . . 9 ⊢ ((((𝑅 ∈ CRing ∧ (MaxIdeal‘𝑅) = {𝑚}) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ ¬ 𝑥 ∈ 𝑚) → 𝑅 ∈ CRing)
62	58	ad2antrr 738	. . . . . . . . 9 ⊢ ((((𝑅 ∈ CRing ∧ (MaxIdeal‘𝑅) = {𝑚}) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ ¬ 𝑥 ∈ 𝑚) → 𝑚 ∈ (MaxIdeal‘𝑅))
63	57	ad2antrr 738	. . . . . . . . 9 ⊢ ((((𝑅 ∈ CRing ∧ (MaxIdeal‘𝑅) = {𝑚}) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ ¬ 𝑥 ∈ 𝑚) → (MaxIdeal‘𝑅) = {𝑚})
64		simplr 780	. . . . . . . . . 10 ⊢ ((((𝑅 ∈ CRing ∧ (MaxIdeal‘𝑅) = {𝑚}) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ ¬ 𝑥 ∈ 𝑚) → 𝑥 ∈ (Base‘𝑅))
65		simpr 489	. . . . . . . . . 10 ⊢ ((((𝑅 ∈ CRing ∧ (MaxIdeal‘𝑅) = {𝑚}) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ ¬ 𝑥 ∈ 𝑚) → ¬ 𝑥 ∈ 𝑚)
66	64, 65	eldifd 3916	. . . . . . . . 9 ⊢ ((((𝑅 ∈ CRing ∧ (MaxIdeal‘𝑅) = {𝑚}) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ ¬ 𝑥 ∈ 𝑚) → 𝑥 ∈ ((Base‘𝑅) ∖ 𝑚))
67	5, 6, 61, 62, 63, 66	dflringlem 33793	. . . . . . . 8 ⊢ ((((𝑅 ∈ CRing ∧ (MaxIdeal‘𝑅) = {𝑚}) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ ¬ 𝑥 ∈ 𝑚) → 𝑥 ∈ (Unit‘𝑅))
68		simplll 786	. . . . . . . . 9 ⊢ ((((𝑅 ∈ CRing ∧ (MaxIdeal‘𝑅) = {𝑚}) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑥 ∈ 𝑚) → 𝑅 ∈ CRing)
69	58	ad2antrr 738	. . . . . . . . 9 ⊢ ((((𝑅 ∈ CRing ∧ (MaxIdeal‘𝑅) = {𝑚}) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑥 ∈ 𝑚) → 𝑚 ∈ (MaxIdeal‘𝑅))
70	57	ad2antrr 738	. . . . . . . . 9 ⊢ ((((𝑅 ∈ CRing ∧ (MaxIdeal‘𝑅) = {𝑚}) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑥 ∈ 𝑚) → (MaxIdeal‘𝑅) = {𝑚})
71		eqid 2763	. . . . . . . . . . 11 ⊢ (-g‘𝑅) = (-g‘𝑅)
72	1	ringgrpd 20328	. . . . . . . . . . . 12 ⊢ (𝑅 ∈ CRing → 𝑅 ∈ Grp)
73	72	ad3antrrr 742	. . . . . . . . . . 11 ⊢ ((((𝑅 ∈ CRing ∧ (MaxIdeal‘𝑅) = {𝑚}) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑥 ∈ 𝑚) → 𝑅 ∈ Grp)
74	36	ad3antrrr 742	. . . . . . . . . . 11 ⊢ ((((𝑅 ∈ CRing ∧ (MaxIdeal‘𝑅) = {𝑚}) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑥 ∈ 𝑚) → (1r‘𝑅) ∈ (Base‘𝑅))
75		simplr 780	. . . . . . . . . . 11 ⊢ ((((𝑅 ∈ CRing ∧ (MaxIdeal‘𝑅) = {𝑚}) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑥 ∈ 𝑚) → 𝑥 ∈ (Base‘𝑅))
76	5, 71, 73, 74, 75	grpsubcld 33370	. . . . . . . . . 10 ⊢ ((((𝑅 ∈ CRing ∧ (MaxIdeal‘𝑅) = {𝑚}) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑥 ∈ 𝑚) → ((1r‘𝑅)(-g‘𝑅)𝑥) ∈ (Base‘𝑅))
77	55	ad2antrr 738	. . . . . . . . . . . 12 ⊢ ((((𝑅 ∈ CRing ∧ (MaxIdeal‘𝑅) = {𝑚}) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑥 ∈ 𝑚) → 𝑅 ∈ Ring)
78	5, 35	mxidln1 33758	. . . . . . . . . . . 12 ⊢ ((𝑅 ∈ Ring ∧ 𝑚 ∈ (MaxIdeal‘𝑅)) → ¬ (1r‘𝑅) ∈ 𝑚)
79	77, 69, 78	syl2anc 595	. . . . . . . . . . 11 ⊢ ((((𝑅 ∈ CRing ∧ (MaxIdeal‘𝑅) = {𝑚}) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑥 ∈ 𝑚) → ¬ (1r‘𝑅) ∈ 𝑚)
80	73	adantr 485	. . . . . . . . . . . . 13 ⊢ (((((𝑅 ∈ CRing ∧ (MaxIdeal‘𝑅) = {𝑚}) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑥 ∈ 𝑚) ∧ ((1r‘𝑅)(-g‘𝑅)𝑥) ∈ 𝑚) → 𝑅 ∈ Grp)
81	74	adantr 485	. . . . . . . . . . . . 13 ⊢ (((((𝑅 ∈ CRing ∧ (MaxIdeal‘𝑅) = {𝑚}) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑥 ∈ 𝑚) ∧ ((1r‘𝑅)(-g‘𝑅)𝑥) ∈ 𝑚) → (1r‘𝑅) ∈ (Base‘𝑅))
82	75	adantr 485	. . . . . . . . . . . . 13 ⊢ (((((𝑅 ∈ CRing ∧ (MaxIdeal‘𝑅) = {𝑚}) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑥 ∈ 𝑚) ∧ ((1r‘𝑅)(-g‘𝑅)𝑥) ∈ 𝑚) → 𝑥 ∈ (Base‘𝑅))
83		eqid 2763	. . . . . . . . . . . . . 14 ⊢ (+g‘𝑅) = (+g‘𝑅)
84	5, 83, 71	grpnpcan 19102	. . . . . . . . . . . . 13 ⊢ ((𝑅 ∈ Grp ∧ (1r‘𝑅) ∈ (Base‘𝑅) ∧ 𝑥 ∈ (Base‘𝑅)) → (((1r‘𝑅)(-g‘𝑅)𝑥)(+g‘𝑅)𝑥) = (1r‘𝑅))
85	80, 81, 82, 84	syl3anc 1398	. . . . . . . . . . . 12 ⊢ (((((𝑅 ∈ CRing ∧ (MaxIdeal‘𝑅) = {𝑚}) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑥 ∈ 𝑚) ∧ ((1r‘𝑅)(-g‘𝑅)𝑥) ∈ 𝑚) → (((1r‘𝑅)(-g‘𝑅)𝑥)(+g‘𝑅)𝑥) = (1r‘𝑅))
86	77	adantr 485	. . . . . . . . . . . . 13 ⊢ (((((𝑅 ∈ CRing ∧ (MaxIdeal‘𝑅) = {𝑚}) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑥 ∈ 𝑚) ∧ ((1r‘𝑅)(-g‘𝑅)𝑥) ∈ 𝑚) → 𝑅 ∈ Ring)
87	69	adantr 485	. . . . . . . . . . . . . 14 ⊢ (((((𝑅 ∈ CRing ∧ (MaxIdeal‘𝑅) = {𝑚}) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑥 ∈ 𝑚) ∧ ((1r‘𝑅)(-g‘𝑅)𝑥) ∈ 𝑚) → 𝑚 ∈ (MaxIdeal‘𝑅))
88	86, 87, 11	syl2anc 595	. . . . . . . . . . . . 13 ⊢ (((((𝑅 ∈ CRing ∧ (MaxIdeal‘𝑅) = {𝑚}) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑥 ∈ 𝑚) ∧ ((1r‘𝑅)(-g‘𝑅)𝑥) ∈ 𝑚) → 𝑚 ∈ (LIdeal‘𝑅))
89		simpr 489	. . . . . . . . . . . . 13 ⊢ (((((𝑅 ∈ CRing ∧ (MaxIdeal‘𝑅) = {𝑚}) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑥 ∈ 𝑚) ∧ ((1r‘𝑅)(-g‘𝑅)𝑥) ∈ 𝑚) → ((1r‘𝑅)(-g‘𝑅)𝑥) ∈ 𝑚)
90		simplr 780	. . . . . . . . . . . . 13 ⊢ (((((𝑅 ∈ CRing ∧ (MaxIdeal‘𝑅) = {𝑚}) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑥 ∈ 𝑚) ∧ ((1r‘𝑅)(-g‘𝑅)𝑥) ∈ 𝑚) → 𝑥 ∈ 𝑚)
91	13, 83	lidlacl 21355	. . . . . . . . . . . . 13 ⊢ (((𝑅 ∈ Ring ∧ 𝑚 ∈ (LIdeal‘𝑅)) ∧ (((1r‘𝑅)(-g‘𝑅)𝑥) ∈ 𝑚 ∧ 𝑥 ∈ 𝑚)) → (((1r‘𝑅)(-g‘𝑅)𝑥)(+g‘𝑅)𝑥) ∈ 𝑚)
92	86, 88, 89, 90, 91	syl22anc 851	. . . . . . . . . . . 12 ⊢ (((((𝑅 ∈ CRing ∧ (MaxIdeal‘𝑅) = {𝑚}) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑥 ∈ 𝑚) ∧ ((1r‘𝑅)(-g‘𝑅)𝑥) ∈ 𝑚) → (((1r‘𝑅)(-g‘𝑅)𝑥)(+g‘𝑅)𝑥) ∈ 𝑚)
93	85, 92	eqeltrrd 2864	. . . . . . . . . . 11 ⊢ (((((𝑅 ∈ CRing ∧ (MaxIdeal‘𝑅) = {𝑚}) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑥 ∈ 𝑚) ∧ ((1r‘𝑅)(-g‘𝑅)𝑥) ∈ 𝑚) → (1r‘𝑅) ∈ 𝑚)
94	79, 93	mtand 827	. . . . . . . . . 10 ⊢ ((((𝑅 ∈ CRing ∧ (MaxIdeal‘𝑅) = {𝑚}) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑥 ∈ 𝑚) → ¬ ((1r‘𝑅)(-g‘𝑅)𝑥) ∈ 𝑚)
95	76, 94	eldifd 3916	. . . . . . . . 9 ⊢ ((((𝑅 ∈ CRing ∧ (MaxIdeal‘𝑅) = {𝑚}) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑥 ∈ 𝑚) → ((1r‘𝑅)(-g‘𝑅)𝑥) ∈ ((Base‘𝑅) ∖ 𝑚))
96	5, 6, 68, 69, 70, 95	dflringlem 33793	. . . . . . . 8 ⊢ ((((𝑅 ∈ CRing ∧ (MaxIdeal‘𝑅) = {𝑚}) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑥 ∈ 𝑚) → ((1r‘𝑅)(-g‘𝑅)𝑥) ∈ (Unit‘𝑅))
97		exmidd 908	. . . . . . . . 9 ⊢ (((𝑅 ∈ CRing ∧ (MaxIdeal‘𝑅) = {𝑚}) ∧ 𝑥 ∈ (Base‘𝑅)) → (𝑥 ∈ 𝑚 ∨ ¬ 𝑥 ∈ 𝑚))
98	97	orcomd 884	. . . . . . . 8 ⊢ (((𝑅 ∈ CRing ∧ (MaxIdeal‘𝑅) = {𝑚}) ∧ 𝑥 ∈ (Base‘𝑅)) → (¬ 𝑥 ∈ 𝑚 ∨ 𝑥 ∈ 𝑚))
99	67, 96, 98	orim12da 980	. . . . . . 7 ⊢ (((𝑅 ∈ CRing ∧ (MaxIdeal‘𝑅) = {𝑚}) ∧ 𝑥 ∈ (Base‘𝑅)) → (𝑥 ∈ (Unit‘𝑅) ∨ ((1r‘𝑅)(-g‘𝑅)𝑥) ∈ (Unit‘𝑅)))
100	99	ralrimiva 3157	. . . . . 6 ⊢ ((𝑅 ∈ CRing ∧ (MaxIdeal‘𝑅) = {𝑚}) → ∀𝑥 ∈ (Base‘𝑅)(𝑥 ∈ (Unit‘𝑅) ∨ ((1r‘𝑅)(-g‘𝑅)𝑥) ∈ (Unit‘𝑅)))
101	60, 100	jca 520	. . . . 5 ⊢ ((𝑅 ∈ CRing ∧ (MaxIdeal‘𝑅) = {𝑚}) → (𝑅 ∈ NzRing ∧ ∀𝑥 ∈ (Base‘𝑅)(𝑥 ∈ (Unit‘𝑅) ∨ ((1r‘𝑅)(-g‘𝑅)𝑥) ∈ (Unit‘𝑅))))
102	101	adantlr 727	. . . 4 ⊢ (((𝑅 ∈ CRing ∧ (MaxIdeal‘𝑅) ≈ 1o) ∧ (MaxIdeal‘𝑅) = {𝑚}) → (𝑅 ∈ NzRing ∧ ∀𝑥 ∈ (Base‘𝑅)(𝑥 ∈ (Unit‘𝑅) ∨ ((1r‘𝑅)(-g‘𝑅)𝑥) ∈ (Unit‘𝑅))))
103	54, 102	exlimddv 1965	. . 3 ⊢ ((𝑅 ∈ CRing ∧ (MaxIdeal‘𝑅) ≈ 1o) → (𝑅 ∈ NzRing ∧ ∀𝑥 ∈ (Base‘𝑅)(𝑥 ∈ (Unit‘𝑅) ∨ ((1r‘𝑅)(-g‘𝑅)𝑥) ∈ (Unit‘𝑅))))
104	5, 6, 35, 71	dflring2 33792	. . 3 ⊢ (𝑅 ∈ LRing ↔ (𝑅 ∈ NzRing ∧ ∀𝑥 ∈ (Base‘𝑅)(𝑥 ∈ (Unit‘𝑅) ∨ ((1r‘𝑅)(-g‘𝑅)𝑥) ∈ (Unit‘𝑅))))
105	103, 104	sylibr 237	. 2 ⊢ ((𝑅 ∈ CRing ∧ (MaxIdeal‘𝑅) ≈ 1o) → 𝑅 ∈ LRing)
106	52, 105	impbida 812	1 ⊢ (𝑅 ∈ CRing → (𝑅 ∈ LRing ↔ (MaxIdeal‘𝑅) ≈ 1o))

This proof depends on syntax axioms:  ¬ wn 3   → wi 4   ↔ wb 209   ∧ wa 400   ∨ wo 860   = wceq 1570  ∃wex 1809   ∈ wcel 2143   ≠ wne 2958  ∀wral 3079  ∃wrex 3089   ∖ cdif 3902   ⊆ wss 3905  {csn 4589   class class class wbr 5109  ‘cfv 6536  (class class class)co 7410  1_oc1o 8442   ≈ cen 8936  Basecbs 17273  +_gcplusg 17314  Grpcgrp 19004  -_gcsg 19006  1_rcur 20267  Ringcrg 20319  CRingccrg 20320  Unitcui 20442  NzRingcnzr 20618  LRingclring 20646  LIdealclidl 21339  MaxIdealcmxidl 33751

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1825  ax-4 1839  ax-5 1940  ax-6 1997  ax-7 2038  ax-8 2145  ax-9 2153  ax-10 2176  ax-11 2192  ax-12 2213  ax-ext 2735  ax-rep 5238  ax-sep 5257  ax-nul 5269  ax-pow 5336  ax-pr 5404  ax-un 7732  ax-ac2 10451  ax-cnex 11160  ax-resscn 11161  ax-1cn 11162  ax-icn 11163  ax-addcl 11164  ax-addrcl 11165  ax-mulcl 11166  ax-mulrcl 11167  ax-mulcom 11168  ax-addass 11169  ax-mulass 11170  ax-distr 11171  ax-i2m1 11172  ax-1ne0 11173  ax-1rid 11174  ax-rnegex 11175  ax-rrecex 11176  ax-cnre 11177  ax-pre-lttri 11178  ax-pre-lttrn 11179  ax-pre-ltadd 11180  ax-pre-mulgt0 11181

This proof depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3or 1104  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1810  df-nf 1814  df-sb 2097  df-mo 2567  df-eu 2597  df-clab 2742  df-cleq 2755  df-clel 2838  df-nfc 2912  df-ne 2959  df-nel 3065  df-ral 3080  df-rex 3090  df-rmo 3369  df-reu 3370  df-rab 3417  df-v 3457  df-sbc 3745  df-csb 3854  df-dif 3908  df-un 3910  df-in 3912  df-ss 3922  df-pss 3925  df-nul 4287  df-if 4488  df-pw 4564  df-sn 4590  df-pr 4592  df-op 4596  df-uni 4873  df-int 4913  df-iun 4958  df-br 5110  df-opab 5174  df-mpt 5193  df-tr 5219  df-id 5556  df-eprel 5561  df-po 5569  df-so 5570  df-fr 5614  df-se 5615  df-we 5616  df-xp 5667  df-rel 5668  df-cnv 5669  df-co 5670  df-dm 5671  df-rn 5672  df-res 5673  df-ima 5674  df-pred 6302  df-ord 6363  df-on 6364  df-lim 6365  df-suc 6366  df-iota 6492  df-fun 6538  df-fn 6539  df-f 6540  df-f1 6541  df-fo 6542  df-f1o 6543  df-fv 6544  df-isom 6545  df-riota 7367  df-ov 7413  df-oprab 7414  df-mpo 7415  df-rpss 7720  df-om 7859  df-1st 7982  df-2nd 7983  df-tpos 8218  df-frecs 8274  df-wrecs 8305  df-recs 8354  df-rdg 8393  df-1o 8449  df-oadd 8453  df-er 8690  df-en 8940  df-dom 8941  df-sdom 8942  df-fin 8943  df-dju 9892  df-card 9930  df-ac 10105  df-pnf 11249  df-mnf 11250  df-xr 11251  df-ltxr 11252  df-le 11253  df-sub 11447  df-neg 11448  df-nn 12238  df-2 12307  df-3 12308  df-4 12309  df-5 12310  df-6 12311  df-7 12312  df-8 12313  df-sets 17228  df-slot 17246  df-ndx 17258  df-base 17274  df-ress 17295  df-plusg 17327  df-mulr 17328  df-sca 17330  df-vsca 17331  df-ip 17332  df-0g 17498  df-mgm 18702  df-sgrp 18781  df-mnd 18797  df-grp 19007  df-minusg 19008  df-sbg 19009  df-subg 19193  df-cmn 19856  df-abl 19857  df-mgp 20221  df-rng 20235  df-ur 20268  df-ring 20321  df-cring 20322  df-oppr 20424  df-dvdsr 20444  df-unit 20445  df-invr 20475  df-dvr 20488  df-nzr 20619  df-lring 20647  df-subrg 20678  df-lmod 20992  df-lss 21062  df-lsp 21102  df-sra 21303  df-rgmod 21304  df-lidl 21341  df-rsp 21342  df-mxidl 33752

This theorem is used by:  dflring4  33797  fldlring  33798