Theorem dflring3 33910

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 20387	. . . . . . . . 9 ⊢ (𝑅 ∈ CRing → 𝑅 ∈ Ring)
2	1	adantr 486	. . . . . . . 8 ⊢ ((𝑅 ∈ CRing ∧ 𝑅 ∈ LRing) → 𝑅 ∈ Ring)
3	2	adantr 486	. . . . . . 7 ⊢ (((𝑅 ∈ CRing ∧ 𝑅 ∈ LRing) ∧ 𝑚 ∈ (MaxIdeal‘𝑅)) → 𝑅 ∈ Ring)
4		simpr 490	. . . . . . 7 ⊢ (((𝑅 ∈ CRing ∧ 𝑅 ∈ LRing) ∧ 𝑚 ∈ (MaxIdeal‘𝑅)) → 𝑚 ∈ (MaxIdeal‘𝑅))
5		eqid 2760	. . . . . . . . 9 ⊢ (Base‘𝑅) = (Base‘𝑅)
6		eqid 2760	. . . . . . . . 9 ⊢ (Unit‘𝑅) = (Unit‘𝑅)
7		simpl 488	. . . . . . . . 9 ⊢ ((𝑅 ∈ CRing ∧ 𝑅 ∈ LRing) → 𝑅 ∈ CRing)
8		simpr 490	. . . . . . . . 9 ⊢ ((𝑅 ∈ CRing ∧ 𝑅 ∈ LRing) → 𝑅 ∈ LRing)
9	5, 6, 7, 8	dflringlem2 33908	. . . . . . . 8 ⊢ ((𝑅 ∈ CRing ∧ 𝑅 ∈ LRing) → ((Base‘𝑅) ∖ (Unit‘𝑅)) ∈ (LIdeal‘𝑅))
10	9	adantr 486	. . . . . . 7 ⊢ (((𝑅 ∈ CRing ∧ 𝑅 ∈ LRing) ∧ 𝑚 ∈ (MaxIdeal‘𝑅)) → ((Base‘𝑅) ∖ (Unit‘𝑅)) ∈ (LIdeal‘𝑅))
11	5	mxidlidl 33869	. . . . . . . . . . . . . . 15 ⊢ ((𝑅 ∈ Ring ∧ 𝑚 ∈ (MaxIdeal‘𝑅)) → 𝑚 ∈ (LIdeal‘𝑅))
12	2, 11	sylan 592	. . . . . . . . . . . . . 14 ⊢ (((𝑅 ∈ CRing ∧ 𝑅 ∈ LRing) ∧ 𝑚 ∈ (MaxIdeal‘𝑅)) → 𝑚 ∈ (LIdeal‘𝑅))
13		eqid 2760	. . . . . . . . . . . . . . 15 ⊢ (LIdeal‘𝑅) = (LIdeal‘𝑅)
14	5, 13	lidlss 21402	. . . . . . . . . . . . . 14 ⊢ (𝑚 ∈ (LIdeal‘𝑅) → 𝑚 ⊆ (Base‘𝑅))
15	12, 14	syl 18	. . . . . . . . . . . . 13 ⊢ (((𝑅 ∈ CRing ∧ 𝑅 ∈ LRing) ∧ 𝑚 ∈ (MaxIdeal‘𝑅)) → 𝑚 ⊆ (Base‘𝑅))
16	15	adantr 486	. . . . . . . . . . . 12 ⊢ ((((𝑅 ∈ CRing ∧ 𝑅 ∈ LRing) ∧ 𝑚 ∈ (MaxIdeal‘𝑅)) ∧ ¬ 𝑚 ⊆ ((Base‘𝑅) ∖ (Unit‘𝑅))) → 𝑚 ⊆ (Base‘𝑅))
17	16	sselda 3931	. . . . . . . . . . 11 ⊢ (((((𝑅 ∈ CRing ∧ 𝑅 ∈ LRing) ∧ 𝑚 ∈ (MaxIdeal‘𝑅)) ∧ ¬ 𝑚 ⊆ ((Base‘𝑅) ∖ (Unit‘𝑅))) ∧ 𝑥 ∈ 𝑚) → 𝑥 ∈ (Base‘𝑅))
18		neldif 4081	. . . . . . . . . . 11 ⊢ ((𝑥 ∈ (Base‘𝑅) ∧ ¬ 𝑥 ∈ ((Base‘𝑅) ∖ (Unit‘𝑅))) → 𝑥 ∈ (Unit‘𝑅))
19	17, 18	sylan 592	. . . . . . . . . 10 ⊢ ((((((𝑅 ∈ CRing ∧ 𝑅 ∈ LRing) ∧ 𝑚 ∈ (MaxIdeal‘𝑅)) ∧ ¬ 𝑚 ⊆ ((Base‘𝑅) ∖ (Unit‘𝑅))) ∧ 𝑥 ∈ 𝑚) ∧ ¬ 𝑥 ∈ ((Base‘𝑅) ∖ (Unit‘𝑅))) → 𝑥 ∈ (Unit‘𝑅))
20		simplr 781	. . . . . . . . . 10 ⊢ ((((((𝑅 ∈ CRing ∧ 𝑅 ∈ LRing) ∧ 𝑚 ∈ (MaxIdeal‘𝑅)) ∧ ¬ 𝑚 ⊆ ((Base‘𝑅) ∖ (Unit‘𝑅))) ∧ 𝑥 ∈ 𝑚) ∧ ¬ 𝑥 ∈ ((Base‘𝑅) ∖ (Unit‘𝑅))) → 𝑥 ∈ 𝑚)
21	2	ad4antr 745	. . . . . . . . . 10 ⊢ ((((((𝑅 ∈ CRing ∧ 𝑅 ∈ LRing) ∧ 𝑚 ∈ (MaxIdeal‘𝑅)) ∧ ¬ 𝑚 ⊆ ((Base‘𝑅) ∖ (Unit‘𝑅))) ∧ 𝑥 ∈ 𝑚) ∧ ¬ 𝑥 ∈ ((Base‘𝑅) ∖ (Unit‘𝑅))) → 𝑅 ∈ Ring)
22	12	ad3antrrr 743	. . . . . . . . . 10 ⊢ ((((((𝑅 ∈ CRing ∧ 𝑅 ∈ LRing) ∧ 𝑚 ∈ (MaxIdeal‘𝑅)) ∧ ¬ 𝑚 ⊆ ((Base‘𝑅) ∖ (Unit‘𝑅))) ∧ 𝑥 ∈ 𝑚) ∧ ¬ 𝑥 ∈ ((Base‘𝑅) ∖ (Unit‘𝑅))) → 𝑚 ∈ (LIdeal‘𝑅))
23	5, 6, 19, 20, 21, 22	lidlunitel 33854	. . . . . . . . 9 ⊢ ((((((𝑅 ∈ CRing ∧ 𝑅 ∈ LRing) ∧ 𝑚 ∈ (MaxIdeal‘𝑅)) ∧ ¬ 𝑚 ⊆ ((Base‘𝑅) ∖ (Unit‘𝑅))) ∧ 𝑥 ∈ 𝑚) ∧ ¬ 𝑥 ∈ ((Base‘𝑅) ∖ (Unit‘𝑅))) → 𝑚 = (Base‘𝑅))
24		nssrex 3996	. . . . . . . . . 10 ⊢ (¬ 𝑚 ⊆ ((Base‘𝑅) ∖ (Unit‘𝑅)) ↔ ∃𝑥 ∈ 𝑚 ¬ 𝑥 ∈ ((Base‘𝑅) ∖ (Unit‘𝑅)))
25	24	bilani 510	. . . . . . . . 9 ⊢ ((((𝑅 ∈ CRing ∧ 𝑅 ∈ LRing) ∧ 𝑚 ∈ (MaxIdeal‘𝑅)) ∧ ¬ 𝑚 ⊆ ((Base‘𝑅) ∖ (Unit‘𝑅))) → ∃𝑥 ∈ 𝑚 ¬ 𝑥 ∈ ((Base‘𝑅) ∖ (Unit‘𝑅)))
26	23, 25	r19.29a 3170	. . . . . . . 8 ⊢ ((((𝑅 ∈ CRing ∧ 𝑅 ∈ LRing) ∧ 𝑚 ∈ (MaxIdeal‘𝑅)) ∧ ¬ 𝑚 ⊆ ((Base‘𝑅) ∖ (Unit‘𝑅))) → 𝑚 = (Base‘𝑅))
27	2	ad2antrr 739	. . . . . . . . . 10 ⊢ ((((𝑅 ∈ CRing ∧ 𝑅 ∈ LRing) ∧ 𝑚 ∈ (MaxIdeal‘𝑅)) ∧ ¬ 𝑚 ⊆ ((Base‘𝑅) ∖ (Unit‘𝑅))) → 𝑅 ∈ Ring)
28		simplr 781	. . . . . . . . . 10 ⊢ ((((𝑅 ∈ CRing ∧ 𝑅 ∈ LRing) ∧ 𝑚 ∈ (MaxIdeal‘𝑅)) ∧ ¬ 𝑚 ⊆ ((Base‘𝑅) ∖ (Unit‘𝑅))) → 𝑚 ∈ (MaxIdeal‘𝑅))
29	5	mxidlnr 33870	. . . . . . . . . 10 ⊢ ((𝑅 ∈ Ring ∧ 𝑚 ∈ (MaxIdeal‘𝑅)) → 𝑚 ≠ (Base‘𝑅))
30	27, 28, 29	syl2anc 596	. . . . . . . . 9 ⊢ ((((𝑅 ∈ CRing ∧ 𝑅 ∈ LRing) ∧ 𝑚 ∈ (MaxIdeal‘𝑅)) ∧ ¬ 𝑚 ⊆ ((Base‘𝑅) ∖ (Unit‘𝑅))) → 𝑚 ≠ (Base‘𝑅))
31	30	neneqd 2960	. . . . . . . 8 ⊢ ((((𝑅 ∈ CRing ∧ 𝑅 ∈ LRing) ∧ 𝑚 ∈ (MaxIdeal‘𝑅)) ∧ ¬ 𝑚 ⊆ ((Base‘𝑅) ∖ (Unit‘𝑅))) → ¬ 𝑚 = (Base‘𝑅))
32	26, 31	condan 830	. . . . . . 7 ⊢ (((𝑅 ∈ CRing ∧ 𝑅 ∈ LRing) ∧ 𝑚 ∈ (MaxIdeal‘𝑅)) → 𝑚 ⊆ ((Base‘𝑅) ∖ (Unit‘𝑅)))
33	5	mxidlmax 33871	. . . . . . 7 ⊢ (((𝑅 ∈ Ring ∧ 𝑚 ∈ (MaxIdeal‘𝑅)) ∧ (((Base‘𝑅) ∖ (Unit‘𝑅)) ∈ (LIdeal‘𝑅) ∧ 𝑚 ⊆ ((Base‘𝑅) ∖ (Unit‘𝑅)))) → (((Base‘𝑅) ∖ (Unit‘𝑅)) = 𝑚 ∨ ((Base‘𝑅) ∖ (Unit‘𝑅)) = (Base‘𝑅)))
34	3, 4, 10, 32, 33	syl22anc 852	. . . . . 6 ⊢ (((𝑅 ∈ CRing ∧ 𝑅 ∈ LRing) ∧ 𝑚 ∈ (MaxIdeal‘𝑅)) → (((Base‘𝑅) ∖ (Unit‘𝑅)) = 𝑚 ∨ ((Base‘𝑅) ∖ (Unit‘𝑅)) = (Base‘𝑅)))
35		eqid 2760	. . . . . . . . . . . 12 ⊢ (1r‘𝑅) = (1r‘𝑅)
36	5, 35, 1	ringidcld 20410	. . . . . . . . . . 11 ⊢ (𝑅 ∈ CRing → (1r‘𝑅) ∈ (Base‘𝑅))
37	36	adantr 486	. . . . . . . . . 10 ⊢ ((𝑅 ∈ CRing ∧ 𝑅 ∈ LRing) → (1r‘𝑅) ∈ (Base‘𝑅))
38	6, 35	1unit 20518	. . . . . . . . . . 11 ⊢ (𝑅 ∈ Ring → (1r‘𝑅) ∈ (Unit‘𝑅))
39		elndif 4080	. . . . . . . . . . 11 ⊢ ((1r‘𝑅) ∈ (Unit‘𝑅) → ¬ (1r‘𝑅) ∈ ((Base‘𝑅) ∖ (Unit‘𝑅)))
40	2, 38, 39	3syl 19	. . . . . . . . . 10 ⊢ ((𝑅 ∈ CRing ∧ 𝑅 ∈ LRing) → ¬ (1r‘𝑅) ∈ ((Base‘𝑅) ∖ (Unit‘𝑅)))
41		nelne1 3052	. . . . . . . . . 10 ⊢ (((1r‘𝑅) ∈ (Base‘𝑅) ∧ ¬ (1r‘𝑅) ∈ ((Base‘𝑅) ∖ (Unit‘𝑅))) → (Base‘𝑅) ≠ ((Base‘𝑅) ∖ (Unit‘𝑅)))
42	37, 40, 41	syl2anc 596	. . . . . . . . 9 ⊢ ((𝑅 ∈ CRing ∧ 𝑅 ∈ LRing) → (Base‘𝑅) ≠ ((Base‘𝑅) ∖ (Unit‘𝑅)))
43	42	necomd 3010	. . . . . . . 8 ⊢ ((𝑅 ∈ CRing ∧ 𝑅 ∈ LRing) → ((Base‘𝑅) ∖ (Unit‘𝑅)) ≠ (Base‘𝑅))
44	43	adantr 486	. . . . . . 7 ⊢ (((𝑅 ∈ CRing ∧ 𝑅 ∈ LRing) ∧ 𝑚 ∈ (MaxIdeal‘𝑅)) → ((Base‘𝑅) ∖ (Unit‘𝑅)) ≠ (Base‘𝑅))
45	44	neneqd 2960	. . . . . 6 ⊢ (((𝑅 ∈ CRing ∧ 𝑅 ∈ LRing) ∧ 𝑚 ∈ (MaxIdeal‘𝑅)) → ¬ ((Base‘𝑅) ∖ (Unit‘𝑅)) = (Base‘𝑅))
46	34, 45	olcnd 891	. . . . 5 ⊢ (((𝑅 ∈ CRing ∧ 𝑅 ∈ LRing) ∧ 𝑚 ∈ (MaxIdeal‘𝑅)) → ((Base‘𝑅) ∖ (Unit‘𝑅)) = 𝑚)
47	46	eqcomd 2766	. . . 4 ⊢ (((𝑅 ∈ CRing ∧ 𝑅 ∈ LRing) ∧ 𝑚 ∈ (MaxIdeal‘𝑅)) → 𝑚 = ((Base‘𝑅) ∖ (Unit‘𝑅)))
48	5, 6, 7, 8	dflringlem3 33909	. . . 4 ⊢ ((𝑅 ∈ CRing ∧ 𝑅 ∈ LRing) → ((Base‘𝑅) ∖ (Unit‘𝑅)) ∈ (MaxIdeal‘𝑅))
49	47, 48	eqsnd 4791	. . 3 ⊢ ((𝑅 ∈ CRing ∧ 𝑅 ∈ LRing) → (MaxIdeal‘𝑅) = {((Base‘𝑅) ∖ (Unit‘𝑅))})
50		ensn1g 9031	. . . 4 ⊢ (((Base‘𝑅) ∖ (Unit‘𝑅)) ∈ (LIdeal‘𝑅) → {((Base‘𝑅) ∖ (Unit‘𝑅))} ≈ 1o)
51	9, 50	syl 18	. . 3 ⊢ ((𝑅 ∈ CRing ∧ 𝑅 ∈ LRing) → {((Base‘𝑅) ∖ (Unit‘𝑅))} ≈ 1o)
52	49, 51	eqbrtrd 5127	. 2 ⊢ ((𝑅 ∈ CRing ∧ 𝑅 ∈ LRing) → (MaxIdeal‘𝑅) ≈ 1o)
53		en1 9033	. . . . 5 ⊢ ((MaxIdeal‘𝑅) ≈ 1o ↔ ∃𝑚(MaxIdeal‘𝑅) = {𝑚})
54	53	bilani 510	. . . 4 ⊢ ((𝑅 ∈ CRing ∧ (MaxIdeal‘𝑅) ≈ 1o) → ∃𝑚(MaxIdeal‘𝑅) = {𝑚})
55	1	adantr 486	. . . . . . 7 ⊢ ((𝑅 ∈ CRing ∧ (MaxIdeal‘𝑅) = {𝑚}) → 𝑅 ∈ Ring)
56		vsnid 4624	. . . . . . . 8 ⊢ 𝑚 ∈ {𝑚}
57		simpr 490	. . . . . . . 8 ⊢ ((𝑅 ∈ CRing ∧ (MaxIdeal‘𝑅) = {𝑚}) → (MaxIdeal‘𝑅) = {𝑚})
58	56, 57	eleqtrrid 2867	. . . . . . 7 ⊢ ((𝑅 ∈ CRing ∧ (MaxIdeal‘𝑅) = {𝑚}) → 𝑚 ∈ (MaxIdeal‘𝑅))
59	5	mxidlnzr 33873	. . . . . . 7 ⊢ ((𝑅 ∈ Ring ∧ 𝑚 ∈ (MaxIdeal‘𝑅)) → 𝑅 ∈ NzRing)
60	55, 58, 59	syl2anc 596	. . . . . 6 ⊢ ((𝑅 ∈ CRing ∧ (MaxIdeal‘𝑅) = {𝑚}) → 𝑅 ∈ NzRing)
61		simplll 787	. . . . . . . . 9 ⊢ ((((𝑅 ∈ CRing ∧ (MaxIdeal‘𝑅) = {𝑚}) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ ¬ 𝑥 ∈ 𝑚) → 𝑅 ∈ CRing)
62	58	ad2antrr 739	. . . . . . . . 9 ⊢ ((((𝑅 ∈ CRing ∧ (MaxIdeal‘𝑅) = {𝑚}) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ ¬ 𝑥 ∈ 𝑚) → 𝑚 ∈ (MaxIdeal‘𝑅))
63	57	ad2antrr 739	. . . . . . . . 9 ⊢ ((((𝑅 ∈ CRing ∧ (MaxIdeal‘𝑅) = {𝑚}) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ ¬ 𝑥 ∈ 𝑚) → (MaxIdeal‘𝑅) = {𝑚})
64		simplr 781	. . . . . . . . . 10 ⊢ ((((𝑅 ∈ CRing ∧ (MaxIdeal‘𝑅) = {𝑚}) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ ¬ 𝑥 ∈ 𝑚) → 𝑥 ∈ (Base‘𝑅))
65		simpr 490	. . . . . . . . . 10 ⊢ ((((𝑅 ∈ CRing ∧ (MaxIdeal‘𝑅) = {𝑚}) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ ¬ 𝑥 ∈ 𝑚) → ¬ 𝑥 ∈ 𝑚)
66	64, 65	eldifd 3910	. . . . . . . . 9 ⊢ ((((𝑅 ∈ CRing ∧ (MaxIdeal‘𝑅) = {𝑚}) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ ¬ 𝑥 ∈ 𝑚) → 𝑥 ∈ ((Base‘𝑅) ∖ 𝑚))
67	5, 6, 61, 62, 63, 66	dflringlem 33907	. . . . . . . 8 ⊢ ((((𝑅 ∈ CRing ∧ (MaxIdeal‘𝑅) = {𝑚}) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ ¬ 𝑥 ∈ 𝑚) → 𝑥 ∈ (Unit‘𝑅))
68		simplll 787	. . . . . . . . 9 ⊢ ((((𝑅 ∈ CRing ∧ (MaxIdeal‘𝑅) = {𝑚}) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑥 ∈ 𝑚) → 𝑅 ∈ CRing)
69	58	ad2antrr 739	. . . . . . . . 9 ⊢ ((((𝑅 ∈ CRing ∧ (MaxIdeal‘𝑅) = {𝑚}) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑥 ∈ 𝑚) → 𝑚 ∈ (MaxIdeal‘𝑅))
70	57	ad2antrr 739	. . . . . . . . 9 ⊢ ((((𝑅 ∈ CRing ∧ (MaxIdeal‘𝑅) = {𝑚}) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑥 ∈ 𝑚) → (MaxIdeal‘𝑅) = {𝑚})
71		eqid 2760	. . . . . . . . . . 11 ⊢ (-g‘𝑅) = (-g‘𝑅)
72	1	ringgrpd 20384	. . . . . . . . . . . 12 ⊢ (𝑅 ∈ CRing → 𝑅 ∈ Grp)
73	72	ad3antrrr 743	. . . . . . . . . . 11 ⊢ ((((𝑅 ∈ CRing ∧ (MaxIdeal‘𝑅) = {𝑚}) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑥 ∈ 𝑚) → 𝑅 ∈ Grp)
74	36	ad3antrrr 743	. . . . . . . . . . 11 ⊢ ((((𝑅 ∈ CRing ∧ (MaxIdeal‘𝑅) = {𝑚}) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑥 ∈ 𝑚) → (1r‘𝑅) ∈ (Base‘𝑅))
75		simplr 781	. . . . . . . . . . 11 ⊢ ((((𝑅 ∈ CRing ∧ (MaxIdeal‘𝑅) = {𝑚}) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑥 ∈ 𝑚) → 𝑥 ∈ (Base‘𝑅))
76	5, 71, 73, 74, 75	grpsubcld 33484	. . . . . . . . . 10 ⊢ ((((𝑅 ∈ CRing ∧ (MaxIdeal‘𝑅) = {𝑚}) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑥 ∈ 𝑚) → ((1r‘𝑅)(-g‘𝑅)𝑥) ∈ (Base‘𝑅))
77	55	ad2antrr 739	. . . . . . . . . . . 12 ⊢ ((((𝑅 ∈ CRing ∧ (MaxIdeal‘𝑅) = {𝑚}) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑥 ∈ 𝑚) → 𝑅 ∈ Ring)
78	5, 35	mxidln1 33872	. . . . . . . . . . . 12 ⊢ ((𝑅 ∈ Ring ∧ 𝑚 ∈ (MaxIdeal‘𝑅)) → ¬ (1r‘𝑅) ∈ 𝑚)
79	77, 69, 78	syl2anc 596	. . . . . . . . . . 11 ⊢ ((((𝑅 ∈ CRing ∧ (MaxIdeal‘𝑅) = {𝑚}) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑥 ∈ 𝑚) → ¬ (1r‘𝑅) ∈ 𝑚)
80	73	adantr 486	. . . . . . . . . . . . 13 ⊢ (((((𝑅 ∈ CRing ∧ (MaxIdeal‘𝑅) = {𝑚}) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑥 ∈ 𝑚) ∧ ((1r‘𝑅)(-g‘𝑅)𝑥) ∈ 𝑚) → 𝑅 ∈ Grp)
81	74	adantr 486	. . . . . . . . . . . . 13 ⊢ (((((𝑅 ∈ CRing ∧ (MaxIdeal‘𝑅) = {𝑚}) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑥 ∈ 𝑚) ∧ ((1r‘𝑅)(-g‘𝑅)𝑥) ∈ 𝑚) → (1r‘𝑅) ∈ (Base‘𝑅))
82	75	adantr 486	. . . . . . . . . . . . 13 ⊢ (((((𝑅 ∈ CRing ∧ (MaxIdeal‘𝑅) = {𝑚}) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑥 ∈ 𝑚) ∧ ((1r‘𝑅)(-g‘𝑅)𝑥) ∈ 𝑚) → 𝑥 ∈ (Base‘𝑅))
83		eqid 2760	. . . . . . . . . . . . . 14 ⊢ (+g‘𝑅) = (+g‘𝑅)
84	5, 83, 71	grpnpcan 19158	. . . . . . . . . . . . 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 486	. . . . . . . . . . . . 13 ⊢ (((((𝑅 ∈ CRing ∧ (MaxIdeal‘𝑅) = {𝑚}) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑥 ∈ 𝑚) ∧ ((1r‘𝑅)(-g‘𝑅)𝑥) ∈ 𝑚) → 𝑅 ∈ Ring)
87	69	adantr 486	. . . . . . . . . . . . . 14 ⊢ (((((𝑅 ∈ CRing ∧ (MaxIdeal‘𝑅) = {𝑚}) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑥 ∈ 𝑚) ∧ ((1r‘𝑅)(-g‘𝑅)𝑥) ∈ 𝑚) → 𝑚 ∈ (MaxIdeal‘𝑅))
88	86, 87, 11	syl2anc 596	. . . . . . . . . . . . 13 ⊢ (((((𝑅 ∈ CRing ∧ (MaxIdeal‘𝑅) = {𝑚}) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑥 ∈ 𝑚) ∧ ((1r‘𝑅)(-g‘𝑅)𝑥) ∈ 𝑚) → 𝑚 ∈ (LIdeal‘𝑅))
89		simpr 490	. . . . . . . . . . . . 13 ⊢ (((((𝑅 ∈ CRing ∧ (MaxIdeal‘𝑅) = {𝑚}) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑥 ∈ 𝑚) ∧ ((1r‘𝑅)(-g‘𝑅)𝑥) ∈ 𝑚) → ((1r‘𝑅)(-g‘𝑅)𝑥) ∈ 𝑚)
90		simplr 781	. . . . . . . . . . . . 13 ⊢ (((((𝑅 ∈ CRing ∧ (MaxIdeal‘𝑅) = {𝑚}) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑥 ∈ 𝑚) ∧ ((1r‘𝑅)(-g‘𝑅)𝑥) ∈ 𝑚) → 𝑥 ∈ 𝑚)
91	13, 83	lidlacl 21412	. . . . . . . . . . . . 13 ⊢ (((𝑅 ∈ Ring ∧ 𝑚 ∈ (LIdeal‘𝑅)) ∧ (((1r‘𝑅)(-g‘𝑅)𝑥) ∈ 𝑚 ∧ 𝑥 ∈ 𝑚)) → (((1r‘𝑅)(-g‘𝑅)𝑥)(+g‘𝑅)𝑥) ∈ 𝑚)
92	86, 88, 89, 90, 91	syl22anc 852	. . . . . . . . . . . 12 ⊢ (((((𝑅 ∈ CRing ∧ (MaxIdeal‘𝑅) = {𝑚}) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑥 ∈ 𝑚) ∧ ((1r‘𝑅)(-g‘𝑅)𝑥) ∈ 𝑚) → (((1r‘𝑅)(-g‘𝑅)𝑥)(+g‘𝑅)𝑥) ∈ 𝑚)
93	85, 92	eqeltrrd 2861	. . . . . . . . . . 11 ⊢ (((((𝑅 ∈ CRing ∧ (MaxIdeal‘𝑅) = {𝑚}) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑥 ∈ 𝑚) ∧ ((1r‘𝑅)(-g‘𝑅)𝑥) ∈ 𝑚) → (1r‘𝑅) ∈ 𝑚)
94	79, 93	mtand 828	. . . . . . . . . 10 ⊢ ((((𝑅 ∈ CRing ∧ (MaxIdeal‘𝑅) = {𝑚}) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑥 ∈ 𝑚) → ¬ ((1r‘𝑅)(-g‘𝑅)𝑥) ∈ 𝑚)
95	76, 94	eldifd 3910	. . . . . . . . 9 ⊢ ((((𝑅 ∈ CRing ∧ (MaxIdeal‘𝑅) = {𝑚}) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑥 ∈ 𝑚) → ((1r‘𝑅)(-g‘𝑅)𝑥) ∈ ((Base‘𝑅) ∖ 𝑚))
96	5, 6, 68, 69, 70, 95	dflringlem 33907	. . . . . . . 8 ⊢ ((((𝑅 ∈ CRing ∧ (MaxIdeal‘𝑅) = {𝑚}) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑥 ∈ 𝑚) → ((1r‘𝑅)(-g‘𝑅)𝑥) ∈ (Unit‘𝑅))
97		exmidd 909	. . . . . . . . 9 ⊢ (((𝑅 ∈ CRing ∧ (MaxIdeal‘𝑅) = {𝑚}) ∧ 𝑥 ∈ (Base‘𝑅)) → (𝑥 ∈ 𝑚 ∨ ¬ 𝑥 ∈ 𝑚))
98	97	orcomd 885	. . . . . . . 8 ⊢ (((𝑅 ∈ CRing ∧ (MaxIdeal‘𝑅) = {𝑚}) ∧ 𝑥 ∈ (Base‘𝑅)) → (¬ 𝑥 ∈ 𝑚 ∨ 𝑥 ∈ 𝑚))
99	67, 96, 98	orim12da 980	. . . . . . 7 ⊢ (((𝑅 ∈ CRing ∧ (MaxIdeal‘𝑅) = {𝑚}) ∧ 𝑥 ∈ (Base‘𝑅)) → (𝑥 ∈ (Unit‘𝑅) ∨ ((1r‘𝑅)(-g‘𝑅)𝑥) ∈ (Unit‘𝑅)))
100	99	ralrimiva 3154	. . . . . 6 ⊢ ((𝑅 ∈ CRing ∧ (MaxIdeal‘𝑅) = {𝑚}) → ∀𝑥 ∈ (Base‘𝑅)(𝑥 ∈ (Unit‘𝑅) ∨ ((1r‘𝑅)(-g‘𝑅)𝑥) ∈ (Unit‘𝑅)))
101	60, 100	jca 521	. . . . 5 ⊢ ((𝑅 ∈ CRing ∧ (MaxIdeal‘𝑅) = {𝑚}) → (𝑅 ∈ NzRing ∧ ∀𝑥 ∈ (Base‘𝑅)(𝑥 ∈ (Unit‘𝑅) ∨ ((1r‘𝑅)(-g‘𝑅)𝑥) ∈ (Unit‘𝑅))))
102	101	adantlr 728	. . . 4 ⊢ (((𝑅 ∈ CRing ∧ (MaxIdeal‘𝑅) ≈ 1o) ∧ (MaxIdeal‘𝑅) = {𝑚}) → (𝑅 ∈ NzRing ∧ ∀𝑥 ∈ (Base‘𝑅)(𝑥 ∈ (Unit‘𝑅) ∨ ((1r‘𝑅)(-g‘𝑅)𝑥) ∈ (Unit‘𝑅))))
103	54, 102	exlimddv 1968	. . 3 ⊢ ((𝑅 ∈ CRing ∧ (MaxIdeal‘𝑅) ≈ 1o) → (𝑅 ∈ NzRing ∧ ∀𝑥 ∈ (Base‘𝑅)(𝑥 ∈ (Unit‘𝑅) ∨ ((1r‘𝑅)(-g‘𝑅)𝑥) ∈ (Unit‘𝑅))))
104	5, 6, 35, 71	dflring2 33906	. . 3 ⊢ (𝑅 ∈ LRing ↔ (𝑅 ∈ NzRing ∧ ∀𝑥 ∈ (Base‘𝑅)(𝑥 ∈ (Unit‘𝑅) ∨ ((1r‘𝑅)(-g‘𝑅)𝑥) ∈ (Unit‘𝑅))))
105	103, 104	sylibr 237	. 2 ⊢ ((𝑅 ∈ CRing ∧ (MaxIdeal‘𝑅) ≈ 1o) → 𝑅 ∈ LRing)
106	52, 105	impbida 813	1 ⊢ (𝑅 ∈ CRing → (𝑅 ∈ LRing ↔ (MaxIdeal‘𝑅) ≈ 1o))

This proof depends on syntax axioms:  ¬ wn 3   → wi 4   ↔ wb 209   ∧ wa 401   ∨ wo 861   = wceq 1570  ∃wex 1812   ∈ wcel 2145   ≠ wne 2955  ∀wral 3076  ∃wrex 3086   ∖ cdif 3896   ⊆ wss 3899  {csn 4584   class class class wbr 5103  ‘cfv 6533  (class class class)co 7414  1_oc1o 8451   ≈ cen 8952  Basecbs 17304  +_gcplusg 17345  Grpcgrp 19060  -_gcsg 19062  1_rcur 20323  Ringcrg 20375  CRingccrg 20376  Unitcui 20499  NzRingcnzr 20675  LRingclring 20703  LIdealclidl 21396  MaxIdealcmxidl 33865

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 2732  ax-rep 5232  ax-sep 5251  ax-nul 5263  ax-pow 5330  ax-pr 5398  ax-un 7737  ax-ac2 10468  ax-cnex 11183  ax-resscn 11184  ax-1cn 11185  ax-icn 11186  ax-addcl 11187  ax-addrcl 11188  ax-mulcl 11189  ax-mulrcl 11190  ax-mulcom 11191  ax-addass 11192  ax-mulass 11193  ax-distr 11194  ax-i2m1 11195  ax-1ne0 11196  ax-1rid 11197  ax-rnegex 11198  ax-rrecex 11199  ax-cnre 11200  ax-pre-lttri 11201  ax-pre-lttrn 11202  ax-pre-ltadd 11203  ax-pre-mulgt0 11204

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2100  df-mo 2564  df-eu 2594  df-clab 2739  df-cleq 2752  df-clel 2835  df-nfc 2909  df-ne 2956  df-nel 3062  df-ral 3077  df-rex 3087  df-rmo 3365  df-reu 3366  df-rab 3413  df-v 3452  df-sbc 3740  df-csb 3848  df-dif 3902  df-un 3904  df-in 3906  df-ss 3916  df-pss 3919  df-nul 4280  df-if 4483  df-pw 4559  df-sn 4585  df-pr 4587  df-op 4591  df-uni 4868  df-int 4908  df-iun 4953  df-br 5104  df-opab 5168  df-mpt 5187  df-tr 5213  df-id 5550  df-eprel 5555  df-po 5563  df-so 5564  df-fr 5608  df-se 5609  df-we 5610  df-xp 5661  df-rel 5662  df-cnv 5663  df-co 5664  df-dm 5665  df-rn 5666  df-res 5667  df-ima 5668  df-pred 6299  df-ord 6360  df-on 6361  df-lim 6362  df-suc 6363  df-iota 6489  df-fun 6535  df-fn 6536  df-f 6537  df-f1 6538  df-fo 6539  df-f1o 6540  df-fv 6541  df-isom 6542  df-riota 7371  df-ov 7417  df-oprab 7418  df-mpo 7419  df-rpss 7725  df-om 7864  df-1st 7987  df-2nd 7988  df-tpos 8225  df-frecs 8281  df-wrecs 8312  df-recs 8361  df-rdg 8400  df-1o 8458  df-oadd 8462  df-er 8699  df-en 8956  df-dom 8957  df-sdom 8958  df-fin 8959  df-dju 9909  df-card 9947  df-ac 10122  df-pnf 11272  df-mnf 11273  df-xr 11274  df-ltxr 11275  df-le 11276  df-sub 11470  df-neg 11471  df-nn 12261  df-2 12330  df-3 12331  df-4 12332  df-5 12333  df-6 12334  df-7 12335  df-8 12336  df-sets 17259  df-slot 17277  df-ndx 17289  df-base 17305  df-ress 17326  df-plusg 17358  df-mulr 17359  df-sca 17361  df-vsca 17362  df-ip 17363  df-0g 17529  df-mgm 18733  df-sgrp 18824  df-mnd 18840  df-grp 19063  df-minusg 19064  df-sbg 19065  df-subg 19249  df-cmn 19912  df-abl 19913  df-mgp 20277  df-rng 20291  df-ur 20324  df-ring 20377  df-cring 20378  df-oppr 20481  df-dvdsr 20501  df-unit 20502  df-invr 20532  df-dvr 20545  df-nzr 20676  df-lring 20704  df-subrg 20735  df-lmod 21049  df-lss 21119  df-lsp 21159  df-sra 21360  df-rgmod 21361  df-lidl 21398  df-rsp 21399  df-mxidl 33866

This theorem is used by:  dflring4  33911  fldlring  33912