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 |-