Metamath Proof Explorer


Theorem pzriprnglem8

Description: Lemma 8 for pzriprng : I resp. J is a two-sided ideal of the non-unital ring R . (Contributed by AV, 21-Mar-2025)

Ref Expression
Hypotheses pzriprng.r ⊢ R = ℤ ring × 𝑠 ℤ ring
pzriprng.i ⊢ I = ℤ × 0
pzriprng.j ⊢ J = R ↾ 𝑠 I
Assertion pzriprnglem8 ⊢ I ∈ 2Ideal ⁡ R

Proof

Step Hyp Ref Expression
1 pzriprng.r ⊢ R = ℤ ring × 𝑠 ℤ ring
2 pzriprng.i ⊢ I = ℤ × 0
3 pzriprng.j ⊢ J = R ↾ 𝑠 I
4 1 pzriprnglem2 ⊢ Base R = ℤ × ℤ
5 4 eleq2i ⊢ x ∈ Base R ↔ x ∈ ℤ × ℤ
6 elxp2 ⊢ x ∈ ℤ × ℤ ↔ ∃ a ∈ ℤ ∃ b ∈ ℤ x = a b
7 5 6 bitri ⊢ x ∈ Base R ↔ ∃ a ∈ ℤ ∃ b ∈ ℤ x = a b
8 1 2 pzriprnglem3 ⊢ y ∈ I ↔ ∃ c ∈ ℤ y = c 0
9 simpll ⊢ a ∈ ℤ ∧ b ∈ ℤ ∧ c ∈ ℤ → a ∈ ℤ
10 simpr ⊢ a ∈ ℤ ∧ b ∈ ℤ ∧ c ∈ ℤ → c ∈ ℤ
11 9 10 zmulcld ⊢ a ∈ ℤ ∧ b ∈ ℤ ∧ c ∈ ℤ → a ⁢ c ∈ ℤ
12 zcn ⊢ b ∈ ℤ → b ∈ ℂ
13 12 adantl ⊢ a ∈ ℤ ∧ b ∈ ℤ → b ∈ ℂ
14 13 adantr ⊢ a ∈ ℤ ∧ b ∈ ℤ ∧ c ∈ ℤ → b ∈ ℂ
15 14 mul01d ⊢ a ∈ ℤ ∧ b ∈ ℤ ∧ c ∈ ℤ → b ⋅ 0 = 0
16 ovex ⊢ b ⋅ 0 ∈ V
17 16 elsn ⊢ b ⋅ 0 ∈ 0 ↔ b ⋅ 0 = 0
18 15 17 sylibr ⊢ a ∈ ℤ ∧ b ∈ ℤ ∧ c ∈ ℤ → b ⋅ 0 ∈ 0
19 11 18 opelxpd ⊢ a ∈ ℤ ∧ b ∈ ℤ ∧ c ∈ ℤ → a ⁢ c b ⋅ 0 ∈ ℤ × 0
20 10 9 zmulcld ⊢ a ∈ ℤ ∧ b ∈ ℤ ∧ c ∈ ℤ → c ⁢ a ∈ ℤ
21 14 mul02d ⊢ a ∈ ℤ ∧ b ∈ ℤ ∧ c ∈ ℤ → 0 ⋅ b = 0
22 ovex ⊢ 0 ⋅ b ∈ V
23 22 elsn ⊢ 0 ⋅ b ∈ 0 ↔ 0 ⋅ b = 0
24 21 23 sylibr ⊢ a ∈ ℤ ∧ b ∈ ℤ ∧ c ∈ ℤ → 0 ⋅ b ∈ 0
25 20 24 opelxpd ⊢ a ∈ ℤ ∧ b ∈ ℤ ∧ c ∈ ℤ → c ⁢ a 0 ⋅ b ∈ ℤ × 0
26 zringbas ⊢ ℤ = Base ℤ ring
27 zringring ⊢ ℤ ring ∈ Ring
28 27 a1i ⊢ a ∈ ℤ ∧ b ∈ ℤ ∧ c ∈ ℤ → ℤ ring ∈ Ring
29 simplr ⊢ a ∈ ℤ ∧ b ∈ ℤ ∧ c ∈ ℤ → b ∈ ℤ
30 0zd ⊢ a ∈ ℤ ∧ b ∈ ℤ ∧ c ∈ ℤ → 0 ∈ ℤ
31 29 30 zmulcld ⊢ a ∈ ℤ ∧ b ∈ ℤ ∧ c ∈ ℤ → b ⋅ 0 ∈ ℤ
32 zringmulr ⊢ × = ⋅ ℤ ring
33 eqid ⊢ ⋅ R = ⋅ R
34 1 26 26 28 28 9 29 10 30 11 31 32 32 33 xpsmul ⊢ a ∈ ℤ ∧ b ∈ ℤ ∧ c ∈ ℤ → a b ⋅ R c 0 = a ⁢ c b ⋅ 0
35 34 eleq1d ⊢ a ∈ ℤ ∧ b ∈ ℤ ∧ c ∈ ℤ → a b ⋅ R c 0 ∈ ℤ × 0 ↔ a ⁢ c b ⋅ 0 ∈ ℤ × 0
36 simpl ⊢ c ∈ ℤ ∧ a ∈ ℤ ∧ b ∈ ℤ → c ∈ ℤ
37 simprl ⊢ c ∈ ℤ ∧ a ∈ ℤ ∧ b ∈ ℤ → a ∈ ℤ
38 36 37 zmulcld ⊢ c ∈ ℤ ∧ a ∈ ℤ ∧ b ∈ ℤ → c ⁢ a ∈ ℤ
39 38 ancoms ⊢ a ∈ ℤ ∧ b ∈ ℤ ∧ c ∈ ℤ → c ⁢ a ∈ ℤ
40 0zd ⊢ c ∈ ℤ ∧ a ∈ ℤ ∧ b ∈ ℤ → 0 ∈ ℤ
41 simprr ⊢ c ∈ ℤ ∧ a ∈ ℤ ∧ b ∈ ℤ → b ∈ ℤ
42 40 41 zmulcld ⊢ c ∈ ℤ ∧ a ∈ ℤ ∧ b ∈ ℤ → 0 ⋅ b ∈ ℤ
43 42 ancoms ⊢ a ∈ ℤ ∧ b ∈ ℤ ∧ c ∈ ℤ → 0 ⋅ b ∈ ℤ
44 1 26 26 28 28 10 30 9 29 39 43 32 32 33 xpsmul ⊢ a ∈ ℤ ∧ b ∈ ℤ ∧ c ∈ ℤ → c 0 ⋅ R a b = c ⁢ a 0 ⋅ b
45 44 eleq1d ⊢ a ∈ ℤ ∧ b ∈ ℤ ∧ c ∈ ℤ → c 0 ⋅ R a b ∈ ℤ × 0 ↔ c ⁢ a 0 ⋅ b ∈ ℤ × 0
46 35 45 anbi12d ⊢ a ∈ ℤ ∧ b ∈ ℤ ∧ c ∈ ℤ → a b ⋅ R c 0 ∈ ℤ × 0 ∧ c 0 ⋅ R a b ∈ ℤ × 0 ↔ a ⁢ c b ⋅ 0 ∈ ℤ × 0 ∧ c ⁢ a 0 ⋅ b ∈ ℤ × 0
47 19 25 46 mpbir2and ⊢ a ∈ ℤ ∧ b ∈ ℤ ∧ c ∈ ℤ → a b ⋅ R c 0 ∈ ℤ × 0 ∧ c 0 ⋅ R a b ∈ ℤ × 0
48 47 adantr ⊢ a ∈ ℤ ∧ b ∈ ℤ ∧ c ∈ ℤ ∧ y = c 0 ∧ x = a b → a b ⋅ R c 0 ∈ ℤ × 0 ∧ c 0 ⋅ R a b ∈ ℤ × 0
49 oveq12 ⊢ x = a b ∧ y = c 0 → x ⋅ R y = a b ⋅ R c 0
50 49 ancoms ⊢ y = c 0 ∧ x = a b → x ⋅ R y = a b ⋅ R c 0
51 50 adantl ⊢ a ∈ ℤ ∧ b ∈ ℤ ∧ c ∈ ℤ ∧ y = c 0 ∧ x = a b → x ⋅ R y = a b ⋅ R c 0
52 2 a1i ⊢ a ∈ ℤ ∧ b ∈ ℤ ∧ c ∈ ℤ ∧ y = c 0 ∧ x = a b → I = ℤ × 0
53 51 52 eleq12d ⊢ a ∈ ℤ ∧ b ∈ ℤ ∧ c ∈ ℤ ∧ y = c 0 ∧ x = a b → x ⋅ R y ∈ I ↔ a b ⋅ R c 0 ∈ ℤ × 0
54 oveq12 ⊢ y = c 0 ∧ x = a b → y ⋅ R x = c 0 ⋅ R a b
55 54 adantl ⊢ a ∈ ℤ ∧ b ∈ ℤ ∧ c ∈ ℤ ∧ y = c 0 ∧ x = a b → y ⋅ R x = c 0 ⋅ R a b
56 55 52 eleq12d ⊢ a ∈ ℤ ∧ b ∈ ℤ ∧ c ∈ ℤ ∧ y = c 0 ∧ x = a b → y ⋅ R x ∈ I ↔ c 0 ⋅ R a b ∈ ℤ × 0
57 53 56 anbi12d ⊢ a ∈ ℤ ∧ b ∈ ℤ ∧ c ∈ ℤ ∧ y = c 0 ∧ x = a b → x ⋅ R y ∈ I ∧ y ⋅ R x ∈ I ↔ a b ⋅ R c 0 ∈ ℤ × 0 ∧ c 0 ⋅ R a b ∈ ℤ × 0
58 48 57 mpbird ⊢ a ∈ ℤ ∧ b ∈ ℤ ∧ c ∈ ℤ ∧ y = c 0 ∧ x = a b → x ⋅ R y ∈ I ∧ y ⋅ R x ∈ I
59 58 exp32 ⊢ a ∈ ℤ ∧ b ∈ ℤ ∧ c ∈ ℤ → y = c 0 → x = a b → x ⋅ R y ∈ I ∧ y ⋅ R x ∈ I
60 59 rexlimdva ⊢ a ∈ ℤ ∧ b ∈ ℤ → ∃ c ∈ ℤ y = c 0 → x = a b → x ⋅ R y ∈ I ∧ y ⋅ R x ∈ I
61 60 com23 ⊢ a ∈ ℤ ∧ b ∈ ℤ → x = a b → ∃ c ∈ ℤ y = c 0 → x ⋅ R y ∈ I ∧ y ⋅ R x ∈ I
62 61 rexlimivv ⊢ ∃ a ∈ ℤ ∃ b ∈ ℤ x = a b → ∃ c ∈ ℤ y = c 0 → x ⋅ R y ∈ I ∧ y ⋅ R x ∈ I
63 62 imp ⊢ ∃ a ∈ ℤ ∃ b ∈ ℤ x = a b ∧ ∃ c ∈ ℤ y = c 0 → x ⋅ R y ∈ I ∧ y ⋅ R x ∈ I
64 7 8 63 syl2anb ⊢ x ∈ Base R ∧ y ∈ I → x ⋅ R y ∈ I ∧ y ⋅ R x ∈ I
65 64 rgen2 ⊢ ∀ x ∈ Base R ∀ y ∈ I x ⋅ R y ∈ I ∧ y ⋅ R x ∈ I
66 1 pzriprnglem1 ⊢ R ∈ Rng
67 1 2 pzriprnglem4 ⊢ I ∈ SubGrp ⁡ R
68 eqid ⊢ 2Ideal ⁡ R = 2Ideal ⁡ R
69 eqid ⊢ Base R = Base R
70 68 69 33 df2idl2rng ⊢ R ∈ Rng ∧ I ∈ SubGrp ⁡ R → I ∈ 2Ideal ⁡ R ↔ ∀ x ∈ Base R ∀ y ∈ I x ⋅ R y ∈ I ∧ y ⋅ R x ∈ I
71 66 67 70 mp2an ⊢ I ∈ 2Ideal ⁡ R ↔ ∀ x ∈ Base R ∀ y ∈ I x ⋅ R y ∈ I ∧ y ⋅ R x ∈ I
72 65 71 mpbir ⊢ I ∈ 2Ideal ⁡ R