Metamath Proof Explorer


Theorem psrnzr

Description: The ring of power series over a nonzero ring form a nonzero ring. (Contributed by Thierry Arnoux, 4-May-2026)

Ref Expression
Hypotheses psrnzr.s ⊢ S = I mPwSer R
psrnzr.i ⊢ φ → I ∈ V
psrnzr.r ⊢ φ → R ∈ NzRing
Assertion psrnzr ⊢ φ → S ∈ NzRing

Proof

Step Hyp Ref Expression
1 psrnzr.s ⊢ S = I mPwSer R
2 psrnzr.i ⊢ φ → I ∈ V
3 psrnzr.r ⊢ φ → R ∈ NzRing
4 nzrring ⊢ R ∈ NzRing → R ∈ Ring
5 3 4 syl ⊢ φ → R ∈ Ring
6 1 2 5 psrring ⊢ φ → S ∈ Ring
7 eqid ⊢ 1 R = 1 R
8 eqid ⊢ 0 R = 0 R
9 7 8 nzrnz ⊢ R ∈ NzRing → 1 R ≠ 0 R
10 3 9 syl ⊢ φ → 1 R ≠ 0 R
11 eqid ⊢ h ∈ ℕ 0 I | h -1 ℕ ∈ Fin = h ∈ ℕ 0 I | h -1 ℕ ∈ Fin
12 eqid ⊢ 1 S = 1 S
13 1 2 5 11 8 7 12 psr1 ⊢ φ → 1 S = x ∈ h ∈ ℕ 0 I | h -1 ℕ ∈ Fin ⟼ if x = I × 0 1 R 0 R
14 simpr ⊢ φ ∧ x = I × 0 → x = I × 0
15 14 iftrued ⊢ φ ∧ x = I × 0 → if x = I × 0 1 R 0 R = 1 R
16 11 psrbag0 ⊢ I ∈ V → I × 0 ∈ h ∈ ℕ 0 I | h -1 ℕ ∈ Fin
17 2 16 syl ⊢ φ → I × 0 ∈ h ∈ ℕ 0 I | h -1 ℕ ∈ Fin
18 fvexd ⊢ φ → 1 R ∈ V
19 13 15 17 18 fvmptd ⊢ φ → 1 S ⁡ I × 0 = 1 R
20 5 ringgrpd ⊢ φ → R ∈ Grp
21 eqid ⊢ 0 S = 0 S
22 1 2 20 11 8 21 psr0 ⊢ φ → 0 S = h ∈ ℕ 0 I | h -1 ℕ ∈ Fin × 0 R
23 22 fveq1d ⊢ φ → 0 S ⁡ I × 0 = h ∈ ℕ 0 I | h -1 ℕ ∈ Fin × 0 R ⁡ I × 0
24 fvex ⊢ 0 R ∈ V
25 24 fvconst2 ⊢ I × 0 ∈ h ∈ ℕ 0 I | h -1 ℕ ∈ Fin → h ∈ ℕ 0 I | h -1 ℕ ∈ Fin × 0 R ⁡ I × 0 = 0 R
26 17 25 syl ⊢ φ → h ∈ ℕ 0 I | h -1 ℕ ∈ Fin × 0 R ⁡ I × 0 = 0 R
27 23 26 eqtrd ⊢ φ → 0 S ⁡ I × 0 = 0 R
28 10 19 27 3netr4d ⊢ φ → 1 S ⁡ I × 0 ≠ 0 S ⁡ I × 0
29 fveq1 ⊢ 1 S = 0 S → 1 S ⁡ I × 0 = 0 S ⁡ I × 0
30 29 necon3i ⊢ 1 S ⁡ I × 0 ≠ 0 S ⁡ I × 0 → 1 S ≠ 0 S
31 28 30 syl ⊢ φ → 1 S ≠ 0 S
32 12 21 isnzr ⊢ S ∈ NzRing ↔ S ∈ Ring ∧ 1 S ≠ 0 S
33 6 31 32 sylanbrc ⊢ φ → S ∈ NzRing