Metamath Proof Explorer


Theorem smprngprmrng

Description: A simple ring (a nonzero ring whose only ideals are .0. and R ) is a prime ring. (Contributed by Jeff Madsen, 6-Jan-2011) (Revised by AV, 18-Jun-2026)

Ref Expression
Hypotheses smprngprmrng.b ⊢ B = Base R
smprngprmrng.z ⊢ 0 ˙ = 0 R
smprngprmrng.u ⊢ U = LIdeal ⁡ R
Assertion smprngprmrng Could not format assertion : No typesetting found for |- ( ( R e. NzRing /\ U = { { .0. } , B } ) -> R e. PrmRing ) with typecode |-

Proof

Step Hyp Ref Expression
1 smprngprmrng.b ⊢ B = Base R
2 smprngprmrng.z ⊢ 0 ˙ = 0 R
3 smprngprmrng.u ⊢ U = LIdeal ⁡ R
4 nzrring ⊢ R ∈ NzRing → R ∈ Ring
5 4 adantr ⊢ R ∈ NzRing ∧ U = 0 ˙ B → R ∈ Ring
6 eqid ⊢ LIdeal ⁡ R = LIdeal ⁡ R
7 6 2 lidl0 ⊢ R ∈ Ring → 0 ˙ ∈ LIdeal ⁡ R
8 4 7 syl ⊢ R ∈ NzRing → 0 ˙ ∈ LIdeal ⁡ R
9 8 adantr ⊢ R ∈ NzRing ∧ U = 0 ˙ B → 0 ˙ ∈ LIdeal ⁡ R
10 2 1 drnglidl1ne0 ⊢ R ∈ NzRing → B ≠ 0 ˙
11 10 necomd ⊢ R ∈ NzRing → 0 ˙ ≠ B
12 11 adantr ⊢ R ∈ NzRing ∧ U = 0 ˙ B → 0 ˙ ≠ B
13 df-pr ⊢ 0 ˙ B = 0 ˙ ∪ B
14 13 eqeq2i ⊢ U = 0 ˙ B ↔ U = 0 ˙ ∪ B
15 id ⊢ U = 0 ˙ ∪ B → U = 0 ˙ ∪ B
16 3 15 eqtr3id ⊢ U = 0 ˙ ∪ B → LIdeal ⁡ R = 0 ˙ ∪ B
17 16 eleq2d ⊢ U = 0 ˙ ∪ B → a ∈ LIdeal ⁡ R ↔ a ∈ 0 ˙ ∪ B
18 16 eleq2d ⊢ U = 0 ˙ ∪ B → b ∈ LIdeal ⁡ R ↔ b ∈ 0 ˙ ∪ B
19 17 18 anbi12d ⊢ U = 0 ˙ ∪ B → a ∈ LIdeal ⁡ R ∧ b ∈ LIdeal ⁡ R ↔ a ∈ 0 ˙ ∪ B ∧ b ∈ 0 ˙ ∪ B
20 elun ⊢ a ∈ 0 ˙ ∪ B ↔ a ∈ 0 ˙ ∨ a ∈ B
21 velsn ⊢ a ∈ 0 ˙ ↔ a = 0 ˙
22 velsn ⊢ a ∈ B ↔ a = B
23 21 22 orbi12i ⊢ a ∈ 0 ˙ ∨ a ∈ B ↔ a = 0 ˙ ∨ a = B
24 20 23 bitri ⊢ a ∈ 0 ˙ ∪ B ↔ a = 0 ˙ ∨ a = B
25 elun ⊢ b ∈ 0 ˙ ∪ B ↔ b ∈ 0 ˙ ∨ b ∈ B
26 velsn ⊢ b ∈ 0 ˙ ↔ b = 0 ˙
27 velsn ⊢ b ∈ B ↔ b = B
28 26 27 orbi12i ⊢ b ∈ 0 ˙ ∨ b ∈ B ↔ b = 0 ˙ ∨ b = B
29 25 28 bitri ⊢ b ∈ 0 ˙ ∪ B ↔ b = 0 ˙ ∨ b = B
30 24 29 anbi12i ⊢ a ∈ 0 ˙ ∪ B ∧ b ∈ 0 ˙ ∪ B ↔ a = 0 ˙ ∨ a = B ∧ b = 0 ˙ ∨ b = B
31 19 30 bitrdi ⊢ U = 0 ˙ ∪ B → a ∈ LIdeal ⁡ R ∧ b ∈ LIdeal ⁡ R ↔ a = 0 ˙ ∨ a = B ∧ b = 0 ˙ ∨ b = B
32 14 31 sylbi ⊢ U = 0 ˙ B → a ∈ LIdeal ⁡ R ∧ b ∈ LIdeal ⁡ R ↔ a = 0 ˙ ∨ a = B ∧ b = 0 ˙ ∨ b = B
33 32 adantl ⊢ R ∈ NzRing ∧ U = 0 ˙ B → a ∈ LIdeal ⁡ R ∧ b ∈ LIdeal ⁡ R ↔ a = 0 ˙ ∨ a = B ∧ b = 0 ˙ ∨ b = B
34 eqimss ⊢ a = 0 ˙ → a ⊆ 0 ˙
35 34 orcd ⊢ a = 0 ˙ → a ⊆ 0 ˙ ∨ b ⊆ 0 ˙
36 35 adantr ⊢ a = 0 ˙ ∧ b = 0 ˙ → a ⊆ 0 ˙ ∨ b ⊆ 0 ˙
37 36 a1i13 ⊢ R ∈ NzRing → a = 0 ˙ ∧ b = 0 ˙ → ∀ x ∈ a ∀ y ∈ b x ⋅ R y ∈ 0 ˙ → a ⊆ 0 ˙ ∨ b ⊆ 0 ˙
38 eqimss ⊢ b = 0 ˙ → b ⊆ 0 ˙
39 38 olcd ⊢ b = 0 ˙ → a ⊆ 0 ˙ ∨ b ⊆ 0 ˙
40 39 adantl ⊢ a = B ∧ b = 0 ˙ → a ⊆ 0 ˙ ∨ b ⊆ 0 ˙
41 40 a1i13 ⊢ R ∈ NzRing → a = B ∧ b = 0 ˙ → ∀ x ∈ a ∀ y ∈ b x ⋅ R y ∈ 0 ˙ → a ⊆ 0 ˙ ∨ b ⊆ 0 ˙
42 35 adantr ⊢ a = 0 ˙ ∧ b = B → a ⊆ 0 ˙ ∨ b ⊆ 0 ˙
43 42 a1i13 ⊢ R ∈ NzRing → a = 0 ˙ ∧ b = B → ∀ x ∈ a ∀ y ∈ b x ⋅ R y ∈ 0 ˙ → a ⊆ 0 ˙ ∨ b ⊆ 0 ˙
44 eqid ⊢ 1 R = 1 R
45 1 44 ringidcl ⊢ R ∈ Ring → 1 R ∈ B
46 4 45 syl ⊢ R ∈ NzRing → 1 R ∈ B
47 44 2 nzrnz ⊢ R ∈ NzRing → 1 R ≠ 0 ˙
48 47 neneqd ⊢ R ∈ NzRing → ¬ 1 R = 0 ˙
49 ringsrg ⊢ R ∈ Ring → R ∈ SRing
50 49 45 jca ⊢ R ∈ Ring → R ∈ SRing ∧ 1 R ∈ B
51 eqid ⊢ ⋅ R = ⋅ R
52 1 51 44 srgridm ⊢ R ∈ SRing ∧ 1 R ∈ B → 1 R ⋅ R 1 R = 1 R
53 4 50 52 3syl ⊢ R ∈ NzRing → 1 R ⋅ R 1 R = 1 R
54 53 eqeq1d ⊢ R ∈ NzRing → 1 R ⋅ R 1 R = 0 ˙ ↔ 1 R = 0 ˙
55 48 54 mtbird ⊢ R ∈ NzRing → ¬ 1 R ⋅ R 1 R = 0 ˙
56 ovex ⊢ 1 R ⋅ R 1 R ∈ V
57 56 elsn ⊢ 1 R ⋅ R 1 R ∈ 0 ˙ ↔ 1 R ⋅ R 1 R = 0 ˙
58 55 57 sylnibr ⊢ R ∈ NzRing → ¬ 1 R ⋅ R 1 R ∈ 0 ˙
59 oveq1 ⊢ x = 1 R → x ⋅ R y = 1 R ⋅ R y
60 59 eleq1d ⊢ x = 1 R → x ⋅ R y ∈ 0 ˙ ↔ 1 R ⋅ R y ∈ 0 ˙
61 60 notbid ⊢ x = 1 R → ¬ x ⋅ R y ∈ 0 ˙ ↔ ¬ 1 R ⋅ R y ∈ 0 ˙
62 oveq2 ⊢ y = 1 R → 1 R ⋅ R y = 1 R ⋅ R 1 R
63 62 eleq1d ⊢ y = 1 R → 1 R ⋅ R y ∈ 0 ˙ ↔ 1 R ⋅ R 1 R ∈ 0 ˙
64 63 notbid ⊢ y = 1 R → ¬ 1 R ⋅ R y ∈ 0 ˙ ↔ ¬ 1 R ⋅ R 1 R ∈ 0 ˙
65 61 64 rspc2ev ⊢ 1 R ∈ B ∧ 1 R ∈ B ∧ ¬ 1 R ⋅ R 1 R ∈ 0 ˙ → ∃ x ∈ B ∃ y ∈ B ¬ x ⋅ R y ∈ 0 ˙
66 46 46 58 65 syl3anc ⊢ R ∈ NzRing → ∃ x ∈ B ∃ y ∈ B ¬ x ⋅ R y ∈ 0 ˙
67 rexnal2 ⊢ ∃ x ∈ B ∃ y ∈ B ¬ x ⋅ R y ∈ 0 ˙ ↔ ¬ ∀ x ∈ B ∀ y ∈ B x ⋅ R y ∈ 0 ˙
68 66 67 sylib ⊢ R ∈ NzRing → ¬ ∀ x ∈ B ∀ y ∈ B x ⋅ R y ∈ 0 ˙
69 68 pm2.21d ⊢ R ∈ NzRing → ∀ x ∈ B ∀ y ∈ B x ⋅ R y ∈ 0 ˙ → a ⊆ 0 ˙ ∨ b ⊆ 0 ˙
70 raleq ⊢ a = B → ∀ x ∈ a ∀ y ∈ b x ⋅ R y ∈ 0 ˙ ↔ ∀ x ∈ B ∀ y ∈ b x ⋅ R y ∈ 0 ˙
71 raleq ⊢ b = B → ∀ y ∈ b x ⋅ R y ∈ 0 ˙ ↔ ∀ y ∈ B x ⋅ R y ∈ 0 ˙
72 71 ralbidv ⊢ b = B → ∀ x ∈ B ∀ y ∈ b x ⋅ R y ∈ 0 ˙ ↔ ∀ x ∈ B ∀ y ∈ B x ⋅ R y ∈ 0 ˙
73 70 72 sylan9bb ⊢ a = B ∧ b = B → ∀ x ∈ a ∀ y ∈ b x ⋅ R y ∈ 0 ˙ ↔ ∀ x ∈ B ∀ y ∈ B x ⋅ R y ∈ 0 ˙
74 73 imbi1d ⊢ a = B ∧ b = B → ∀ x ∈ a ∀ y ∈ b x ⋅ R y ∈ 0 ˙ → a ⊆ 0 ˙ ∨ b ⊆ 0 ˙ ↔ ∀ x ∈ B ∀ y ∈ B x ⋅ R y ∈ 0 ˙ → a ⊆ 0 ˙ ∨ b ⊆ 0 ˙
75 69 74 syl5ibrcom ⊢ R ∈ NzRing → a = B ∧ b = B → ∀ x ∈ a ∀ y ∈ b x ⋅ R y ∈ 0 ˙ → a ⊆ 0 ˙ ∨ b ⊆ 0 ˙
76 37 41 43 75 ccased ⊢ R ∈ NzRing → a = 0 ˙ ∨ a = B ∧ b = 0 ˙ ∨ b = B → ∀ x ∈ a ∀ y ∈ b x ⋅ R y ∈ 0 ˙ → a ⊆ 0 ˙ ∨ b ⊆ 0 ˙
77 76 adantr ⊢ R ∈ NzRing ∧ U = 0 ˙ B → a = 0 ˙ ∨ a = B ∧ b = 0 ˙ ∨ b = B → ∀ x ∈ a ∀ y ∈ b x ⋅ R y ∈ 0 ˙ → a ⊆ 0 ˙ ∨ b ⊆ 0 ˙
78 33 77 sylbid ⊢ R ∈ NzRing ∧ U = 0 ˙ B → a ∈ LIdeal ⁡ R ∧ b ∈ LIdeal ⁡ R → ∀ x ∈ a ∀ y ∈ b x ⋅ R y ∈ 0 ˙ → a ⊆ 0 ˙ ∨ b ⊆ 0 ˙
79 78 ralrimivv ⊢ R ∈ NzRing ∧ U = 0 ˙ B → ∀ a ∈ LIdeal ⁡ R ∀ b ∈ LIdeal ⁡ R ∀ x ∈ a ∀ y ∈ b x ⋅ R y ∈ 0 ˙ → a ⊆ 0 ˙ ∨ b ⊆ 0 ˙
80 1 51 isprmidl ⊢ R ∈ Ring → 0 ˙ ∈ PrmIdeal ⁡ R ↔ 0 ˙ ∈ LIdeal ⁡ R ∧ 0 ˙ ≠ B ∧ ∀ a ∈ LIdeal ⁡ R ∀ b ∈ LIdeal ⁡ R ∀ x ∈ a ∀ y ∈ b x ⋅ R y ∈ 0 ˙ → a ⊆ 0 ˙ ∨ b ⊆ 0 ˙
81 4 80 syl ⊢ R ∈ NzRing → 0 ˙ ∈ PrmIdeal ⁡ R ↔ 0 ˙ ∈ LIdeal ⁡ R ∧ 0 ˙ ≠ B ∧ ∀ a ∈ LIdeal ⁡ R ∀ b ∈ LIdeal ⁡ R ∀ x ∈ a ∀ y ∈ b x ⋅ R y ∈ 0 ˙ → a ⊆ 0 ˙ ∨ b ⊆ 0 ˙
82 81 adantr ⊢ R ∈ NzRing ∧ U = 0 ˙ B → 0 ˙ ∈ PrmIdeal ⁡ R ↔ 0 ˙ ∈ LIdeal ⁡ R ∧ 0 ˙ ≠ B ∧ ∀ a ∈ LIdeal ⁡ R ∀ b ∈ LIdeal ⁡ R ∀ x ∈ a ∀ y ∈ b x ⋅ R y ∈ 0 ˙ → a ⊆ 0 ˙ ∨ b ⊆ 0 ˙
83 9 12 79 82 mpbir3and ⊢ R ∈ NzRing ∧ U = 0 ˙ B → 0 ˙ ∈ PrmIdeal ⁡ R
84 eqid ⊢ PrmIdeal ⁡ R = PrmIdeal ⁡ R
85 2 84 isprmrng Could not format ( R e. PrmRing <-> ( R e. Ring /\ { .0. } e. ( PrmIdeal ` R ) ) ) : No typesetting found for |- ( R e. PrmRing <-> ( R e. Ring /\ { .0. } e. ( PrmIdeal ` R ) ) ) with typecode |-
86 5 83 85 sylanbrc Could not format ( ( R e. NzRing /\ U = { { .0. } , B } ) -> R e. PrmRing ) : No typesetting found for |- ( ( R e. NzRing /\ U = { { .0. } , B } ) -> R e. PrmRing ) with typecode |-