Metamath Proof Explorer


Theorem rhmpsrlem2

Description: Lemma for rhmpsr et al. (Contributed by SN, 8-Feb-2025)

Ref Expression
Hypotheses rhmpsrlem1.d ⊢ D = f ∈ ℕ 0 I | f -1 ℕ ∈ Fin
rhmpsrlem1.r ⊢ φ → R ∈ Ring
rhmpsrlem1.x ⊢ φ → X : D ⟶ Base R
rhmpsrlem1.y ⊢ φ → Y : D ⟶ Base R
Assertion rhmpsrlem2 ⊢ φ ∧ k ∈ D → ∑ R x ∈ y ∈ D | y ≤ f k X ⁡ x ⋅ R Y ⁡ k − f x ∈ Base R

Proof

Step Hyp Ref Expression
1 rhmpsrlem1.d ⊢ D = f ∈ ℕ 0 I | f -1 ℕ ∈ Fin
2 rhmpsrlem1.r ⊢ φ → R ∈ Ring
3 rhmpsrlem1.x ⊢ φ → X : D ⟶ Base R
4 rhmpsrlem1.y ⊢ φ → Y : D ⟶ Base R
5 eqid ⊢ Base R = Base R
6 eqid ⊢ 0 R = 0 R
7 2 ringcmnd ⊢ φ → R ∈ CMnd
8 7 adantr ⊢ φ ∧ k ∈ D → R ∈ CMnd
9 1 psrbaglefi ⊢ k ∈ D → y ∈ D | y ≤ f k ∈ Fin
10 9 adantl ⊢ φ ∧ k ∈ D → y ∈ D | y ≤ f k ∈ Fin
11 eqid ⊢ ⋅ R = ⋅ R
12 2 ad2antrr ⊢ φ ∧ k ∈ D ∧ x ∈ y ∈ D | y ≤ f k → R ∈ Ring
13 3 ad2antrr ⊢ φ ∧ k ∈ D ∧ x ∈ y ∈ D | y ≤ f k → X : D ⟶ Base R
14 breq1 ⊢ y = x → y ≤ f k ↔ x ≤ f k
15 14 elrab ⊢ x ∈ y ∈ D | y ≤ f k ↔ x ∈ D ∧ x ≤ f k
16 15 bilani ⊢ φ ∧ k ∈ D ∧ x ∈ y ∈ D | y ≤ f k → x ∈ D ∧ x ≤ f k
17 16 simpld ⊢ φ ∧ k ∈ D ∧ x ∈ y ∈ D | y ≤ f k → x ∈ D
18 13 17 ffvelcdmd ⊢ φ ∧ k ∈ D ∧ x ∈ y ∈ D | y ≤ f k → X ⁡ x ∈ Base R
19 4 ad2antrr ⊢ φ ∧ k ∈ D ∧ x ∈ y ∈ D | y ≤ f k → Y : D ⟶ Base R
20 simplr ⊢ φ ∧ k ∈ D ∧ x ∈ y ∈ D | y ≤ f k → k ∈ D
21 1 psrbagf ⊢ x ∈ D → x : I ⟶ ℕ 0
22 17 21 syl ⊢ φ ∧ k ∈ D ∧ x ∈ y ∈ D | y ≤ f k → x : I ⟶ ℕ 0
23 16 simprd ⊢ φ ∧ k ∈ D ∧ x ∈ y ∈ D | y ≤ f k → x ≤ f k
24 1 psrbagcon ⊢ k ∈ D ∧ x : I ⟶ ℕ 0 ∧ x ≤ f k → k − f x ∈ D ∧ k − f x ≤ f k
25 20 22 23 24 syl3anc ⊢ φ ∧ k ∈ D ∧ x ∈ y ∈ D | y ≤ f k → k − f x ∈ D ∧ k − f x ≤ f k
26 25 simpld ⊢ φ ∧ k ∈ D ∧ x ∈ y ∈ D | y ≤ f k → k − f x ∈ D
27 19 26 ffvelcdmd ⊢ φ ∧ k ∈ D ∧ x ∈ y ∈ D | y ≤ f k → Y ⁡ k − f x ∈ Base R
28 5 11 12 18 27 ringcld ⊢ φ ∧ k ∈ D ∧ x ∈ y ∈ D | y ≤ f k → X ⁡ x ⋅ R Y ⁡ k − f x ∈ Base R
29 28 fmpttd ⊢ φ ∧ k ∈ D → x ∈ y ∈ D | y ≤ f k ⟼ X ⁡ x ⋅ R Y ⁡ k − f x : y ∈ D | y ≤ f k ⟶ Base R
30 1 2 3 4 rhmpsrlem1 ⊢ φ ∧ k ∈ D → finSupp 0 R⁡ x ∈ y ∈ D | y ≤ f k ⟼ X ⁡ x ⋅ R Y ⁡ k − f x
31 5 6 8 10 29 30 gsumcl ⊢ φ ∧ k ∈ D → ∑ R x ∈ y ∈ D | y ≤ f k X ⁡ x ⋅ R Y ⁡ k − f x ∈ Base R