Metamath Proof Explorer


Theorem pzriprnglem5

Description: Lemma 5 for pzriprng : I is a subring of the non-unital ring R . (Contributed by AV, 18-Mar-2025)

Ref Expression
Hypotheses pzriprng.r ⊢ R = ℤ ring × 𝑠 ℤ ring
pzriprng.i ⊢ I = ℤ × 0
Assertion pzriprnglem5 ⊢ I ∈ SubRng ⁡ R

Proof

Step Hyp Ref Expression
1 pzriprng.r ⊢ R = ℤ ring × 𝑠 ℤ ring
2 pzriprng.i ⊢ I = ℤ × 0
3 1 2 pzriprnglem4 ⊢ I ∈ SubGrp ⁡ R
4 1 2 pzriprnglem3 ⊢ x ∈ I ↔ ∃ a ∈ ℤ x = a 0
5 1 2 pzriprnglem3 ⊢ y ∈ I ↔ ∃ b ∈ ℤ y = b 0
6 zringbas ⊢ ℤ = Base ℤ ring
7 zringring ⊢ ℤ ring ∈ Ring
8 7 a1i ⊢ a ∈ ℤ ∧ b ∈ ℤ → ℤ ring ∈ Ring
9 simpl ⊢ a ∈ ℤ ∧ b ∈ ℤ → a ∈ ℤ
10 0zd ⊢ a ∈ ℤ ∧ b ∈ ℤ → 0 ∈ ℤ
11 simpr ⊢ a ∈ ℤ ∧ b ∈ ℤ → b ∈ ℤ
12 zringmulr ⊢ × = ⋅ ℤ ring
13 12 eqcomi ⊢ ⋅ ℤ ring = ×
14 13 oveqi ⊢ a ⋅ ℤ ring b = a ⁢ b
15 zmulcl ⊢ a ∈ ℤ ∧ b ∈ ℤ → a ⁢ b ∈ ℤ
16 14 15 eqeltrid ⊢ a ∈ ℤ ∧ b ∈ ℤ → a ⋅ ℤ ring b ∈ ℤ
17 13 oveqi ⊢ 0 ⋅ ℤ ring 0 = 0 ⋅ 0
18 0cn ⊢ 0 ∈ ℂ
19 18 mul02i ⊢ 0 ⋅ 0 = 0
20 17 19 eqtri ⊢ 0 ⋅ ℤ ring 0 = 0
21 0z ⊢ 0 ∈ ℤ
22 20 21 eqeltri ⊢ 0 ⋅ ℤ ring 0 ∈ ℤ
23 22 a1i ⊢ a ∈ ℤ ∧ b ∈ ℤ → 0 ⋅ ℤ ring 0 ∈ ℤ
24 eqid ⊢ ⋅ ℤ ring = ⋅ ℤ ring
25 eqid ⊢ ⋅ R = ⋅ R
26 1 6 6 8 8 9 10 11 10 16 23 24 24 25 xpsmul ⊢ a ∈ ℤ ∧ b ∈ ℤ → a 0 ⋅ R b 0 = a ⋅ ℤ ring b 0 ⋅ ℤ ring 0
27 c0ex ⊢ 0 ∈ V
28 27 snid ⊢ 0 ∈ 0
29 28 a1i ⊢ a ∈ ℤ ∧ b ∈ ℤ → 0 ∈ 0
30 20 29 eqeltrid ⊢ a ∈ ℤ ∧ b ∈ ℤ → 0 ⋅ ℤ ring 0 ∈ 0
31 16 30 opelxpd ⊢ a ∈ ℤ ∧ b ∈ ℤ → a ⋅ ℤ ring b 0 ⋅ ℤ ring 0 ∈ ℤ × 0
32 26 31 eqeltrd ⊢ a ∈ ℤ ∧ b ∈ ℤ → a 0 ⋅ R b 0 ∈ ℤ × 0
33 32 adantr ⊢ a ∈ ℤ ∧ b ∈ ℤ ∧ y = b 0 ∧ x = a 0 → a 0 ⋅ R b 0 ∈ ℤ × 0
34 oveq12 ⊢ x = a 0 ∧ y = b 0 → x ⋅ R y = a 0 ⋅ R b 0
35 34 ancoms ⊢ y = b 0 ∧ x = a 0 → x ⋅ R y = a 0 ⋅ R b 0
36 35 adantl ⊢ a ∈ ℤ ∧ b ∈ ℤ ∧ y = b 0 ∧ x = a 0 → x ⋅ R y = a 0 ⋅ R b 0
37 2 a1i ⊢ a ∈ ℤ ∧ b ∈ ℤ ∧ y = b 0 ∧ x = a 0 → I = ℤ × 0
38 33 36 37 3eltr4d ⊢ a ∈ ℤ ∧ b ∈ ℤ ∧ y = b 0 ∧ x = a 0 → x ⋅ R y ∈ I
39 38 exp32 ⊢ a ∈ ℤ ∧ b ∈ ℤ → y = b 0 → x = a 0 → x ⋅ R y ∈ I
40 39 rexlimdva ⊢ a ∈ ℤ → ∃ b ∈ ℤ y = b 0 → x = a 0 → x ⋅ R y ∈ I
41 40 com23 ⊢ a ∈ ℤ → x = a 0 → ∃ b ∈ ℤ y = b 0 → x ⋅ R y ∈ I
42 41 rexlimiv ⊢ ∃ a ∈ ℤ x = a 0 → ∃ b ∈ ℤ y = b 0 → x ⋅ R y ∈ I
43 42 imp ⊢ ∃ a ∈ ℤ x = a 0 ∧ ∃ b ∈ ℤ y = b 0 → x ⋅ R y ∈ I
44 4 5 43 syl2anb ⊢ x ∈ I ∧ y ∈ I → x ⋅ R y ∈ I
45 44 rgen2 ⊢ ∀ x ∈ I ∀ y ∈ I x ⋅ R y ∈ I
46 1 pzriprnglem1 ⊢ R ∈ Rng
47 eqid ⊢ Base R = Base R
48 47 25 issubrng2 ⊢ R ∈ Rng → I ∈ SubRng ⁡ R ↔ I ∈ SubGrp ⁡ R ∧ ∀ x ∈ I ∀ y ∈ I x ⋅ R y ∈ I
49 46 48 ax-mp ⊢ I ∈ SubRng ⁡ R ↔ I ∈ SubGrp ⁡ R ∧ ∀ x ∈ I ∀ y ∈ I x ⋅ R y ∈ I
50 3 45 49 mpbir2an ⊢ I ∈ SubRng ⁡ R