Metamath Proof Explorer


Theorem psrass1

Description: Associative identity for the ring of power series. (Contributed by Mario Carneiro, 5-Jan-2015)

Ref Expression
Hypotheses psrring.s ⊢ S = I mPwSer R
psrring.i ⊢ φ → I ∈ V
psrring.r ⊢ φ → R ∈ Ring
psrass.d ⊢ D = f ∈ ℕ 0 I | f -1 ℕ ∈ Fin
psrass.t ⊢ × ˙ = ⋅ S
psrass.b ⊢ B = Base S
psrass.x ⊢ φ → X ∈ B
psrass.y ⊢ φ → Y ∈ B
psrass.z ⊢ φ → Z ∈ B
Assertion psrass1 ⊢ φ → X × ˙ Y × ˙ Z = X × ˙ Y × ˙ Z

Proof

Step Hyp Ref Expression
1 psrring.s ⊢ S = I mPwSer R
2 psrring.i ⊢ φ → I ∈ V
3 psrring.r ⊢ φ → R ∈ Ring
4 psrass.d ⊢ D = f ∈ ℕ 0 I | f -1 ℕ ∈ Fin
5 psrass.t ⊢ × ˙ = ⋅ S
6 psrass.b ⊢ B = Base S
7 psrass.x ⊢ φ → X ∈ B
8 psrass.y ⊢ φ → Y ∈ B
9 psrass.z ⊢ φ → Z ∈ B
10 eqid ⊢ Base R = Base R
11 1 6 5 3 7 8 psrmulcl ⊢ φ → X × ˙ Y ∈ B
12 1 6 5 3 11 9 psrmulcl ⊢ φ → X × ˙ Y × ˙ Z ∈ B
13 1 10 4 6 12 psrelbas ⊢ φ → X × ˙ Y × ˙ Z : D ⟶ Base R
14 13 ffnd ⊢ φ → X × ˙ Y × ˙ Z Fn D
15 1 6 5 3 8 9 psrmulcl ⊢ φ → Y × ˙ Z ∈ B
16 1 6 5 3 7 15 psrmulcl ⊢ φ → X × ˙ Y × ˙ Z ∈ B
17 1 10 4 6 16 psrelbas ⊢ φ → X × ˙ Y × ˙ Z : D ⟶ Base R
18 17 ffnd ⊢ φ → X × ˙ Y × ˙ Z Fn D
19 eqid ⊢ g ∈ D | g ≤ f x = g ∈ D | g ≤ f x
20 simpr ⊢ φ ∧ x ∈ D → x ∈ D
21 3 ringcmnd ⊢ φ → R ∈ CMnd
22 21 adantr ⊢ φ ∧ x ∈ D → R ∈ CMnd
23 eqid ⊢ ⋅ R = ⋅ R
24 3 ad3antrrr ⊢ φ ∧ x ∈ D ∧ j ∈ g ∈ D | g ≤ f x ∧ n ∈ h ∈ D | h ≤ f x − f j → R ∈ Ring
25 1 10 4 6 7 psrelbas ⊢ φ → X : D ⟶ Base R
26 25 ad2antrr ⊢ φ ∧ x ∈ D ∧ j ∈ g ∈ D | g ≤ f x → X : D ⟶ Base R
27 breq1 ⊢ g = j → g ≤ f x ↔ j ≤ f x
28 27 elrab ⊢ j ∈ g ∈ D | g ≤ f x ↔ j ∈ D ∧ j ≤ f x
29 28 bilani ⊢ φ ∧ x ∈ D ∧ j ∈ g ∈ D | g ≤ f x → j ∈ D ∧ j ≤ f x
30 29 simpld ⊢ φ ∧ x ∈ D ∧ j ∈ g ∈ D | g ≤ f x → j ∈ D
31 26 30 ffvelcdmd ⊢ φ ∧ x ∈ D ∧ j ∈ g ∈ D | g ≤ f x → X ⁡ j ∈ Base R
32 31 adantr ⊢ φ ∧ x ∈ D ∧ j ∈ g ∈ D | g ≤ f x ∧ n ∈ h ∈ D | h ≤ f x − f j → X ⁡ j ∈ Base R
33 1 10 4 6 8 psrelbas ⊢ φ → Y : D ⟶ Base R
34 33 ad3antrrr ⊢ φ ∧ x ∈ D ∧ j ∈ g ∈ D | g ≤ f x ∧ n ∈ h ∈ D | h ≤ f x − f j → Y : D ⟶ Base R
35 breq1 ⊢ h = n → h ≤ f x − f j ↔ n ≤ f x − f j
36 35 elrab ⊢ n ∈ h ∈ D | h ≤ f x − f j ↔ n ∈ D ∧ n ≤ f x − f j
37 36 bilani ⊢ φ ∧ x ∈ D ∧ j ∈ g ∈ D | g ≤ f x ∧ n ∈ h ∈ D | h ≤ f x − f j → n ∈ D ∧ n ≤ f x − f j
38 37 simpld ⊢ φ ∧ x ∈ D ∧ j ∈ g ∈ D | g ≤ f x ∧ n ∈ h ∈ D | h ≤ f x − f j → n ∈ D
39 34 38 ffvelcdmd ⊢ φ ∧ x ∈ D ∧ j ∈ g ∈ D | g ≤ f x ∧ n ∈ h ∈ D | h ≤ f x − f j → Y ⁡ n ∈ Base R
40 1 10 4 6 9 psrelbas ⊢ φ → Z : D ⟶ Base R
41 40 ad3antrrr ⊢ φ ∧ x ∈ D ∧ j ∈ g ∈ D | g ≤ f x ∧ n ∈ h ∈ D | h ≤ f x − f j → Z : D ⟶ Base R
42 simplr ⊢ φ ∧ x ∈ D ∧ j ∈ g ∈ D | g ≤ f x → x ∈ D
43 4 psrbagf ⊢ j ∈ D → j : I ⟶ ℕ 0
44 30 43 syl ⊢ φ ∧ x ∈ D ∧ j ∈ g ∈ D | g ≤ f x → j : I ⟶ ℕ 0
45 29 simprd ⊢ φ ∧ x ∈ D ∧ j ∈ g ∈ D | g ≤ f x → j ≤ f x
46 4 psrbagcon ⊢ x ∈ D ∧ j : I ⟶ ℕ 0 ∧ j ≤ f x → x − f j ∈ D ∧ x − f j ≤ f x
47 42 44 45 46 syl3anc ⊢ φ ∧ x ∈ D ∧ j ∈ g ∈ D | g ≤ f x → x − f j ∈ D ∧ x − f j ≤ f x
48 47 simpld ⊢ φ ∧ x ∈ D ∧ j ∈ g ∈ D | g ≤ f x → x − f j ∈ D
49 48 adantr ⊢ φ ∧ x ∈ D ∧ j ∈ g ∈ D | g ≤ f x ∧ n ∈ h ∈ D | h ≤ f x − f j → x − f j ∈ D
50 4 psrbagf ⊢ n ∈ D → n : I ⟶ ℕ 0
51 38 50 syl ⊢ φ ∧ x ∈ D ∧ j ∈ g ∈ D | g ≤ f x ∧ n ∈ h ∈ D | h ≤ f x − f j → n : I ⟶ ℕ 0
52 37 simprd ⊢ φ ∧ x ∈ D ∧ j ∈ g ∈ D | g ≤ f x ∧ n ∈ h ∈ D | h ≤ f x − f j → n ≤ f x − f j
53 4 psrbagcon ⊢ x − f j ∈ D ∧ n : I ⟶ ℕ 0 ∧ n ≤ f x − f j → x − f j − f n ∈ D ∧ x − f j − f n ≤ f x − f j
54 49 51 52 53 syl3anc ⊢ φ ∧ x ∈ D ∧ j ∈ g ∈ D | g ≤ f x ∧ n ∈ h ∈ D | h ≤ f x − f j → x − f j − f n ∈ D ∧ x − f j − f n ≤ f x − f j
55 54 simpld ⊢ φ ∧ x ∈ D ∧ j ∈ g ∈ D | g ≤ f x ∧ n ∈ h ∈ D | h ≤ f x − f j → x − f j − f n ∈ D
56 41 55 ffvelcdmd ⊢ φ ∧ x ∈ D ∧ j ∈ g ∈ D | g ≤ f x ∧ n ∈ h ∈ D | h ≤ f x − f j → Z ⁡ x − f j − f n ∈ Base R
57 10 23 24 39 56 ringcld ⊢ φ ∧ x ∈ D ∧ j ∈ g ∈ D | g ≤ f x ∧ n ∈ h ∈ D | h ≤ f x − f j → Y ⁡ n ⋅ R Z ⁡ x − f j − f n ∈ Base R
58 10 23 24 32 57 ringcld ⊢ φ ∧ x ∈ D ∧ j ∈ g ∈ D | g ≤ f x ∧ n ∈ h ∈ D | h ≤ f x − f j → X ⁡ j ⋅ R Y ⁡ n ⋅ R Z ⁡ x − f j − f n ∈ Base R
59 58 anasss ⊢ φ ∧ x ∈ D ∧ j ∈ g ∈ D | g ≤ f x ∧ n ∈ h ∈ D | h ≤ f x − f j → X ⁡ j ⋅ R Y ⁡ n ⋅ R Z ⁡ x − f j − f n ∈ Base R
60 fveq2 ⊢ n = k − f j → Y ⁡ n = Y ⁡ k − f j
61 oveq2 ⊢ n = k − f j → x − f j − f n = x − f j − f k − f j
62 61 fveq2d ⊢ n = k − f j → Z ⁡ x − f j − f n = Z ⁡ x − f j − f k − f j
63 60 62 oveq12d ⊢ n = k − f j → Y ⁡ n ⋅ R Z ⁡ x − f j − f n = Y ⁡ k − f j ⋅ R Z ⁡ x − f j − f k − f j
64 63 oveq2d ⊢ n = k − f j → X ⁡ j ⋅ R Y ⁡ n ⋅ R Z ⁡ x − f j − f n = X ⁡ j ⋅ R Y ⁡ k − f j ⋅ R Z ⁡ x − f j − f k − f j
65 4 19 20 10 22 59 64 psrass1lem ⊢ φ ∧ x ∈ D → ∑ R k ∈ g ∈ D | g ≤ f x ∑ R j ∈ h ∈ D | h ≤ f k X ⁡ j ⋅ R Y ⁡ k − f j ⋅ R Z ⁡ x − f j − f k − f j = ∑ R j ∈ g ∈ D | g ≤ f x ∑ R n ∈ h ∈ D | h ≤ f x − f j X ⁡ j ⋅ R Y ⁡ n ⋅ R Z ⁡ x − f j − f n
66 7 ad2antrr ⊢ φ ∧ x ∈ D ∧ k ∈ g ∈ D | g ≤ f x → X ∈ B
67 8 ad2antrr ⊢ φ ∧ x ∈ D ∧ k ∈ g ∈ D | g ≤ f x → Y ∈ B
68 breq1 ⊢ g = k → g ≤ f x ↔ k ≤ f x
69 68 elrab ⊢ k ∈ g ∈ D | g ≤ f x ↔ k ∈ D ∧ k ≤ f x
70 69 bilani ⊢ φ ∧ x ∈ D ∧ k ∈ g ∈ D | g ≤ f x → k ∈ D ∧ k ≤ f x
71 70 simpld ⊢ φ ∧ x ∈ D ∧ k ∈ g ∈ D | g ≤ f x → k ∈ D
72 1 6 23 5 4 66 67 71 psrmulval ⊢ φ ∧ x ∈ D ∧ k ∈ g ∈ D | g ≤ f x → X × ˙ Y ⁡ k = ∑ R j ∈ h ∈ D | h ≤ f k X ⁡ j ⋅ R Y ⁡ k − f j
73 72 oveq1d ⊢ φ ∧ x ∈ D ∧ k ∈ g ∈ D | g ≤ f x → X × ˙ Y ⁡ k ⋅ R Z ⁡ x − f k = ∑ R j ∈ h ∈ D | h ≤ f k X ⁡ j ⋅ R Y ⁡ k − f j ⋅ R Z ⁡ x − f k
74 eqid ⊢ 0 R = 0 R
75 3 ad2antrr ⊢ φ ∧ x ∈ D ∧ k ∈ g ∈ D | g ≤ f x → R ∈ Ring
76 4 psrbaglefi ⊢ k ∈ D → h ∈ D | h ≤ f k ∈ Fin
77 71 76 syl ⊢ φ ∧ x ∈ D ∧ k ∈ g ∈ D | g ≤ f x → h ∈ D | h ≤ f k ∈ Fin
78 40 ad2antrr ⊢ φ ∧ x ∈ D ∧ k ∈ g ∈ D | g ≤ f x → Z : D ⟶ Base R
79 simplr ⊢ φ ∧ x ∈ D ∧ k ∈ g ∈ D | g ≤ f x → x ∈ D
80 4 psrbagf ⊢ k ∈ D → k : I ⟶ ℕ 0
81 71 80 syl ⊢ φ ∧ x ∈ D ∧ k ∈ g ∈ D | g ≤ f x → k : I ⟶ ℕ 0
82 70 simprd ⊢ φ ∧ x ∈ D ∧ k ∈ g ∈ D | g ≤ f x → k ≤ f x
83 4 psrbagcon ⊢ x ∈ D ∧ k : I ⟶ ℕ 0 ∧ k ≤ f x → x − f k ∈ D ∧ x − f k ≤ f x
84 79 81 82 83 syl3anc ⊢ φ ∧ x ∈ D ∧ k ∈ g ∈ D | g ≤ f x → x − f k ∈ D ∧ x − f k ≤ f x
85 84 simpld ⊢ φ ∧ x ∈ D ∧ k ∈ g ∈ D | g ≤ f x → x − f k ∈ D
86 78 85 ffvelcdmd ⊢ φ ∧ x ∈ D ∧ k ∈ g ∈ D | g ≤ f x → Z ⁡ x − f k ∈ Base R
87 3 ad3antrrr ⊢ φ ∧ x ∈ D ∧ k ∈ g ∈ D | g ≤ f x ∧ j ∈ h ∈ D | h ≤ f k → R ∈ Ring
88 25 ad3antrrr ⊢ φ ∧ x ∈ D ∧ k ∈ g ∈ D | g ≤ f x ∧ j ∈ h ∈ D | h ≤ f k → X : D ⟶ Base R
89 breq1 ⊢ h = j → h ≤ f k ↔ j ≤ f k
90 89 elrab ⊢ j ∈ h ∈ D | h ≤ f k ↔ j ∈ D ∧ j ≤ f k
91 90 bilani ⊢ φ ∧ x ∈ D ∧ k ∈ g ∈ D | g ≤ f x ∧ j ∈ h ∈ D | h ≤ f k → j ∈ D ∧ j ≤ f k
92 91 simpld ⊢ φ ∧ x ∈ D ∧ k ∈ g ∈ D | g ≤ f x ∧ j ∈ h ∈ D | h ≤ f k → j ∈ D
93 88 92 ffvelcdmd ⊢ φ ∧ x ∈ D ∧ k ∈ g ∈ D | g ≤ f x ∧ j ∈ h ∈ D | h ≤ f k → X ⁡ j ∈ Base R
94 33 ad3antrrr ⊢ φ ∧ x ∈ D ∧ k ∈ g ∈ D | g ≤ f x ∧ j ∈ h ∈ D | h ≤ f k → Y : D ⟶ Base R
95 71 adantr ⊢ φ ∧ x ∈ D ∧ k ∈ g ∈ D | g ≤ f x ∧ j ∈ h ∈ D | h ≤ f k → k ∈ D
96 92 43 syl ⊢ φ ∧ x ∈ D ∧ k ∈ g ∈ D | g ≤ f x ∧ j ∈ h ∈ D | h ≤ f k → j : I ⟶ ℕ 0
97 91 simprd ⊢ φ ∧ x ∈ D ∧ k ∈ g ∈ D | g ≤ f x ∧ j ∈ h ∈ D | h ≤ f k → j ≤ f k
98 4 psrbagcon ⊢ k ∈ D ∧ j : I ⟶ ℕ 0 ∧ j ≤ f k → k − f j ∈ D ∧ k − f j ≤ f k
99 95 96 97 98 syl3anc ⊢ φ ∧ x ∈ D ∧ k ∈ g ∈ D | g ≤ f x ∧ j ∈ h ∈ D | h ≤ f k → k − f j ∈ D ∧ k − f j ≤ f k
100 99 simpld ⊢ φ ∧ x ∈ D ∧ k ∈ g ∈ D | g ≤ f x ∧ j ∈ h ∈ D | h ≤ f k → k − f j ∈ D
101 94 100 ffvelcdmd ⊢ φ ∧ x ∈ D ∧ k ∈ g ∈ D | g ≤ f x ∧ j ∈ h ∈ D | h ≤ f k → Y ⁡ k − f j ∈ Base R
102 10 23 87 93 101 ringcld ⊢ φ ∧ x ∈ D ∧ k ∈ g ∈ D | g ≤ f x ∧ j ∈ h ∈ D | h ≤ f k → X ⁡ j ⋅ R Y ⁡ k − f j ∈ Base R
103 eqid ⊢ j ∈ h ∈ D | h ≤ f k ⟼ X ⁡ j ⋅ R Y ⁡ k − f j = j ∈ h ∈ D | h ≤ f k ⟼ X ⁡ j ⋅ R Y ⁡ k − f j
104 fvex ⊢ 0 R ∈ V
105 104 a1i ⊢ φ ∧ x ∈ D ∧ k ∈ g ∈ D | g ≤ f x → 0 R ∈ V
106 103 77 102 105 fsuppmptdm ⊢ φ ∧ x ∈ D ∧ k ∈ g ∈ D | g ≤ f x → finSupp 0 R⁡ j ∈ h ∈ D | h ≤ f k ⟼ X ⁡ j ⋅ R Y ⁡ k − f j
107 10 74 23 75 77 86 102 106 gsummulc1 ⊢ φ ∧ x ∈ D ∧ k ∈ g ∈ D | g ≤ f x → ∑ R j ∈ h ∈ D | h ≤ f k X ⁡ j ⋅ R Y ⁡ k − f j ⋅ R Z ⁡ x − f k = ∑ R j ∈ h ∈ D | h ≤ f k X ⁡ j ⋅ R Y ⁡ k − f j ⋅ R Z ⁡ x − f k
108 86 adantr ⊢ φ ∧ x ∈ D ∧ k ∈ g ∈ D | g ≤ f x ∧ j ∈ h ∈ D | h ≤ f k → Z ⁡ x − f k ∈ Base R
109 10 23 ringass ⊢ R ∈ Ring ∧ X ⁡ j ∈ Base R ∧ Y ⁡ k − f j ∈ Base R ∧ Z ⁡ x − f k ∈ Base R → X ⁡ j ⋅ R Y ⁡ k − f j ⋅ R Z ⁡ x − f k = X ⁡ j ⋅ R Y ⁡ k − f j ⋅ R Z ⁡ x − f k
110 87 93 101 108 109 syl13anc ⊢ φ ∧ x ∈ D ∧ k ∈ g ∈ D | g ≤ f x ∧ j ∈ h ∈ D | h ≤ f k → X ⁡ j ⋅ R Y ⁡ k − f j ⋅ R Z ⁡ x − f k = X ⁡ j ⋅ R Y ⁡ k − f j ⋅ R Z ⁡ x − f k
111 4 psrbagf ⊢ x ∈ D → x : I ⟶ ℕ 0
112 111 ad3antlr ⊢ φ ∧ x ∈ D ∧ k ∈ g ∈ D | g ≤ f x ∧ j ∈ h ∈ D | h ≤ f k → x : I ⟶ ℕ 0
113 112 ffvelcdmda ⊢ φ ∧ x ∈ D ∧ k ∈ g ∈ D | g ≤ f x ∧ j ∈ h ∈ D | h ≤ f k ∧ z ∈ I → x ⁡ z ∈ ℕ 0
114 81 adantr ⊢ φ ∧ x ∈ D ∧ k ∈ g ∈ D | g ≤ f x ∧ j ∈ h ∈ D | h ≤ f k → k : I ⟶ ℕ 0
115 114 ffvelcdmda ⊢ φ ∧ x ∈ D ∧ k ∈ g ∈ D | g ≤ f x ∧ j ∈ h ∈ D | h ≤ f k ∧ z ∈ I → k ⁡ z ∈ ℕ 0
116 96 ffvelcdmda ⊢ φ ∧ x ∈ D ∧ k ∈ g ∈ D | g ≤ f x ∧ j ∈ h ∈ D | h ≤ f k ∧ z ∈ I → j ⁡ z ∈ ℕ 0
117 nn0cn ⊢ x ⁡ z ∈ ℕ 0 → x ⁡ z ∈ ℂ
118 nn0cn ⊢ k ⁡ z ∈ ℕ 0 → k ⁡ z ∈ ℂ
119 nn0cn ⊢ j ⁡ z ∈ ℕ 0 → j ⁡ z ∈ ℂ
120 nnncan2 ⊢ x ⁡ z ∈ ℂ ∧ k ⁡ z ∈ ℂ ∧ j ⁡ z ∈ ℂ → x ⁡ z - j ⁡ z - k ⁡ z − j ⁡ z = x ⁡ z − k ⁡ z
121 117 118 119 120 syl3an ⊢ x ⁡ z ∈ ℕ 0 ∧ k ⁡ z ∈ ℕ 0 ∧ j ⁡ z ∈ ℕ 0 → x ⁡ z - j ⁡ z - k ⁡ z − j ⁡ z = x ⁡ z − k ⁡ z
122 113 115 116 121 syl3anc ⊢ φ ∧ x ∈ D ∧ k ∈ g ∈ D | g ≤ f x ∧ j ∈ h ∈ D | h ≤ f k ∧ z ∈ I → x ⁡ z - j ⁡ z - k ⁡ z − j ⁡ z = x ⁡ z − k ⁡ z
123 122 mpteq2dva ⊢ φ ∧ x ∈ D ∧ k ∈ g ∈ D | g ≤ f x ∧ j ∈ h ∈ D | h ≤ f k → z ∈ I ⟼ x ⁡ z - j ⁡ z - k ⁡ z − j ⁡ z = z ∈ I ⟼ x ⁡ z − k ⁡ z
124 2 ad3antrrr ⊢ φ ∧ x ∈ D ∧ k ∈ g ∈ D | g ≤ f x ∧ j ∈ h ∈ D | h ≤ f k → I ∈ V
125 ovexd ⊢ φ ∧ x ∈ D ∧ k ∈ g ∈ D | g ≤ f x ∧ j ∈ h ∈ D | h ≤ f k ∧ z ∈ I → x ⁡ z − j ⁡ z ∈ V
126 ovexd ⊢ φ ∧ x ∈ D ∧ k ∈ g ∈ D | g ≤ f x ∧ j ∈ h ∈ D | h ≤ f k ∧ z ∈ I → k ⁡ z − j ⁡ z ∈ V
127 112 feqmptd ⊢ φ ∧ x ∈ D ∧ k ∈ g ∈ D | g ≤ f x ∧ j ∈ h ∈ D | h ≤ f k → x = z ∈ I ⟼ x ⁡ z
128 96 feqmptd ⊢ φ ∧ x ∈ D ∧ k ∈ g ∈ D | g ≤ f x ∧ j ∈ h ∈ D | h ≤ f k → j = z ∈ I ⟼ j ⁡ z
129 124 113 116 127 128 offval2 ⊢ φ ∧ x ∈ D ∧ k ∈ g ∈ D | g ≤ f x ∧ j ∈ h ∈ D | h ≤ f k → x − f j = z ∈ I ⟼ x ⁡ z − j ⁡ z
130 114 feqmptd ⊢ φ ∧ x ∈ D ∧ k ∈ g ∈ D | g ≤ f x ∧ j ∈ h ∈ D | h ≤ f k → k = z ∈ I ⟼ k ⁡ z
131 124 115 116 130 128 offval2 ⊢ φ ∧ x ∈ D ∧ k ∈ g ∈ D | g ≤ f x ∧ j ∈ h ∈ D | h ≤ f k → k − f j = z ∈ I ⟼ k ⁡ z − j ⁡ z
132 124 125 126 129 131 offval2 ⊢ φ ∧ x ∈ D ∧ k ∈ g ∈ D | g ≤ f x ∧ j ∈ h ∈ D | h ≤ f k → x − f j − f k − f j = z ∈ I ⟼ x ⁡ z - j ⁡ z - k ⁡ z − j ⁡ z
133 124 113 115 127 130 offval2 ⊢ φ ∧ x ∈ D ∧ k ∈ g ∈ D | g ≤ f x ∧ j ∈ h ∈ D | h ≤ f k → x − f k = z ∈ I ⟼ x ⁡ z − k ⁡ z
134 123 132 133 3eqtr4d ⊢ φ ∧ x ∈ D ∧ k ∈ g ∈ D | g ≤ f x ∧ j ∈ h ∈ D | h ≤ f k → x − f j − f k − f j = x − f k
135 134 fveq2d ⊢ φ ∧ x ∈ D ∧ k ∈ g ∈ D | g ≤ f x ∧ j ∈ h ∈ D | h ≤ f k → Z ⁡ x − f j − f k − f j = Z ⁡ x − f k
136 135 oveq2d ⊢ φ ∧ x ∈ D ∧ k ∈ g ∈ D | g ≤ f x ∧ j ∈ h ∈ D | h ≤ f k → Y ⁡ k − f j ⋅ R Z ⁡ x − f j − f k − f j = Y ⁡ k − f j ⋅ R Z ⁡ x − f k
137 136 oveq2d ⊢ φ ∧ x ∈ D ∧ k ∈ g ∈ D | g ≤ f x ∧ j ∈ h ∈ D | h ≤ f k → X ⁡ j ⋅ R Y ⁡ k − f j ⋅ R Z ⁡ x − f j − f k − f j = X ⁡ j ⋅ R Y ⁡ k − f j ⋅ R Z ⁡ x − f k
138 110 137 eqtr4d ⊢ φ ∧ x ∈ D ∧ k ∈ g ∈ D | g ≤ f x ∧ j ∈ h ∈ D | h ≤ f k → X ⁡ j ⋅ R Y ⁡ k − f j ⋅ R Z ⁡ x − f k = X ⁡ j ⋅ R Y ⁡ k − f j ⋅ R Z ⁡ x − f j − f k − f j
139 138 mpteq2dva ⊢ φ ∧ x ∈ D ∧ k ∈ g ∈ D | g ≤ f x → j ∈ h ∈ D | h ≤ f k ⟼ X ⁡ j ⋅ R Y ⁡ k − f j ⋅ R Z ⁡ x − f k = j ∈ h ∈ D | h ≤ f k ⟼ X ⁡ j ⋅ R Y ⁡ k − f j ⋅ R Z ⁡ x − f j − f k − f j
140 139 oveq2d ⊢ φ ∧ x ∈ D ∧ k ∈ g ∈ D | g ≤ f x → ∑ R j ∈ h ∈ D | h ≤ f k X ⁡ j ⋅ R Y ⁡ k − f j ⋅ R Z ⁡ x − f k = ∑ R j ∈ h ∈ D | h ≤ f k X ⁡ j ⋅ R Y ⁡ k − f j ⋅ R Z ⁡ x − f j − f k − f j
141 73 107 140 3eqtr2d ⊢ φ ∧ x ∈ D ∧ k ∈ g ∈ D | g ≤ f x → X × ˙ Y ⁡ k ⋅ R Z ⁡ x − f k = ∑ R j ∈ h ∈ D | h ≤ f k X ⁡ j ⋅ R Y ⁡ k − f j ⋅ R Z ⁡ x − f j − f k − f j
142 141 mpteq2dva ⊢ φ ∧ x ∈ D → k ∈ g ∈ D | g ≤ f x ⟼ X × ˙ Y ⁡ k ⋅ R Z ⁡ x − f k = k ∈ g ∈ D | g ≤ f x ⟼ ∑ R j ∈ h ∈ D | h ≤ f k X ⁡ j ⋅ R Y ⁡ k − f j ⋅ R Z ⁡ x − f j − f k − f j
143 142 oveq2d ⊢ φ ∧ x ∈ D → ∑ R k ∈ g ∈ D | g ≤ f x X × ˙ Y ⁡ k ⋅ R Z ⁡ x − f k = ∑ R k ∈ g ∈ D | g ≤ f x ∑ R j ∈ h ∈ D | h ≤ f k X ⁡ j ⋅ R Y ⁡ k − f j ⋅ R Z ⁡ x − f j − f k − f j
144 8 ad2antrr ⊢ φ ∧ x ∈ D ∧ j ∈ g ∈ D | g ≤ f x → Y ∈ B
145 9 ad2antrr ⊢ φ ∧ x ∈ D ∧ j ∈ g ∈ D | g ≤ f x → Z ∈ B
146 1 6 23 5 4 144 145 48 psrmulval ⊢ φ ∧ x ∈ D ∧ j ∈ g ∈ D | g ≤ f x → Y × ˙ Z ⁡ x − f j = ∑ R n ∈ h ∈ D | h ≤ f x − f j Y ⁡ n ⋅ R Z ⁡ x − f j − f n
147 146 oveq2d ⊢ φ ∧ x ∈ D ∧ j ∈ g ∈ D | g ≤ f x → X ⁡ j ⋅ R Y × ˙ Z ⁡ x − f j = X ⁡ j ⋅ R ∑ R n ∈ h ∈ D | h ≤ f x − f j Y ⁡ n ⋅ R Z ⁡ x − f j − f n
148 3 ad2antrr ⊢ φ ∧ x ∈ D ∧ j ∈ g ∈ D | g ≤ f x → R ∈ Ring
149 4 psrbaglefi ⊢ x − f j ∈ D → h ∈ D | h ≤ f x − f j ∈ Fin
150 48 149 syl ⊢ φ ∧ x ∈ D ∧ j ∈ g ∈ D | g ≤ f x → h ∈ D | h ≤ f x − f j ∈ Fin
151 ovex ⊢ ℕ 0 I ∈ V
152 4 151 rab2ex ⊢ h ∈ D | h ≤ f x − f j ∈ V
153 152 mptex ⊢ n ∈ h ∈ D | h ≤ f x − f j ⟼ Y ⁡ n ⋅ R Z ⁡ x − f j − f n ∈ V
154 funmpt ⊢ Fun ⁡ n ∈ h ∈ D | h ≤ f x − f j ⟼ Y ⁡ n ⋅ R Z ⁡ x − f j − f n
155 153 154 104 3pm3.2i ⊢ n ∈ h ∈ D | h ≤ f x − f j ⟼ Y ⁡ n ⋅ R Z ⁡ x − f j − f n ∈ V ∧ Fun ⁡ n ∈ h ∈ D | h ≤ f x − f j ⟼ Y ⁡ n ⋅ R Z ⁡ x − f j − f n ∧ 0 R ∈ V
156 155 a1i ⊢ φ ∧ x ∈ D ∧ j ∈ g ∈ D | g ≤ f x → n ∈ h ∈ D | h ≤ f x − f j ⟼ Y ⁡ n ⋅ R Z ⁡ x − f j − f n ∈ V ∧ Fun ⁡ n ∈ h ∈ D | h ≤ f x − f j ⟼ Y ⁡ n ⋅ R Z ⁡ x − f j − f n ∧ 0 R ∈ V
157 suppssdm ⊢ n ∈ h ∈ D | h ≤ f x − f j ⟼ Y ⁡ n ⋅ R Z ⁡ x − f j − f n supp 0 R ⊆ dom ⁡ n ∈ h ∈ D | h ≤ f x − f j ⟼ Y ⁡ n ⋅ R Z ⁡ x − f j − f n
158 eqid ⊢ n ∈ h ∈ D | h ≤ f x − f j ⟼ Y ⁡ n ⋅ R Z ⁡ x − f j − f n = n ∈ h ∈ D | h ≤ f x − f j ⟼ Y ⁡ n ⋅ R Z ⁡ x − f j − f n
159 158 dmmptss ⊢ dom ⁡ n ∈ h ∈ D | h ≤ f x − f j ⟼ Y ⁡ n ⋅ R Z ⁡ x − f j − f n ⊆ h ∈ D | h ≤ f x − f j
160 157 159 sstri ⊢ n ∈ h ∈ D | h ≤ f x − f j ⟼ Y ⁡ n ⋅ R Z ⁡ x − f j − f n supp 0 R ⊆ h ∈ D | h ≤ f x − f j
161 160 a1i ⊢ φ ∧ x ∈ D ∧ j ∈ g ∈ D | g ≤ f x → n ∈ h ∈ D | h ≤ f x − f j ⟼ Y ⁡ n ⋅ R Z ⁡ x − f j − f n supp 0 R ⊆ h ∈ D | h ≤ f x − f j
162 suppssfifsupp ⊢ n ∈ h ∈ D | h ≤ f x − f j ⟼ Y ⁡ n ⋅ R Z ⁡ x − f j − f n ∈ V ∧ Fun ⁡ n ∈ h ∈ D | h ≤ f x − f j ⟼ Y ⁡ n ⋅ R Z ⁡ x − f j − f n ∧ 0 R ∈ V ∧ h ∈ D | h ≤ f x − f j ∈ Fin ∧ n ∈ h ∈ D | h ≤ f x − f j ⟼ Y ⁡ n ⋅ R Z ⁡ x − f j − f n supp 0 R ⊆ h ∈ D | h ≤ f x − f j → finSupp 0 R⁡ n ∈ h ∈ D | h ≤ f x − f j ⟼ Y ⁡ n ⋅ R Z ⁡ x − f j − f n
163 156 150 161 162 syl12anc ⊢ φ ∧ x ∈ D ∧ j ∈ g ∈ D | g ≤ f x → finSupp 0 R⁡ n ∈ h ∈ D | h ≤ f x − f j ⟼ Y ⁡ n ⋅ R Z ⁡ x − f j − f n
164 10 74 23 148 150 31 57 163 gsummulc2 ⊢ φ ∧ x ∈ D ∧ j ∈ g ∈ D | g ≤ f x → ∑ R n ∈ h ∈ D | h ≤ f x − f j X ⁡ j ⋅ R Y ⁡ n ⋅ R Z ⁡ x − f j − f n = X ⁡ j ⋅ R ∑ R n ∈ h ∈ D | h ≤ f x − f j Y ⁡ n ⋅ R Z ⁡ x − f j − f n
165 147 164 eqtr4d ⊢ φ ∧ x ∈ D ∧ j ∈ g ∈ D | g ≤ f x → X ⁡ j ⋅ R Y × ˙ Z ⁡ x − f j = ∑ R n ∈ h ∈ D | h ≤ f x − f j X ⁡ j ⋅ R Y ⁡ n ⋅ R Z ⁡ x − f j − f n
166 165 mpteq2dva ⊢ φ ∧ x ∈ D → j ∈ g ∈ D | g ≤ f x ⟼ X ⁡ j ⋅ R Y × ˙ Z ⁡ x − f j = j ∈ g ∈ D | g ≤ f x ⟼ ∑ R n ∈ h ∈ D | h ≤ f x − f j X ⁡ j ⋅ R Y ⁡ n ⋅ R Z ⁡ x − f j − f n
167 166 oveq2d ⊢ φ ∧ x ∈ D → ∑ R j ∈ g ∈ D | g ≤ f x X ⁡ j ⋅ R Y × ˙ Z ⁡ x − f j = ∑ R j ∈ g ∈ D | g ≤ f x ∑ R n ∈ h ∈ D | h ≤ f x − f j X ⁡ j ⋅ R Y ⁡ n ⋅ R Z ⁡ x − f j − f n
168 65 143 167 3eqtr4d ⊢ φ ∧ x ∈ D → ∑ R k ∈ g ∈ D | g ≤ f x X × ˙ Y ⁡ k ⋅ R Z ⁡ x − f k = ∑ R j ∈ g ∈ D | g ≤ f x X ⁡ j ⋅ R Y × ˙ Z ⁡ x − f j
169 11 adantr ⊢ φ ∧ x ∈ D → X × ˙ Y ∈ B
170 9 adantr ⊢ φ ∧ x ∈ D → Z ∈ B
171 1 6 23 5 4 169 170 20 psrmulval ⊢ φ ∧ x ∈ D → X × ˙ Y × ˙ Z ⁡ x = ∑ R k ∈ g ∈ D | g ≤ f x X × ˙ Y ⁡ k ⋅ R Z ⁡ x − f k
172 7 adantr ⊢ φ ∧ x ∈ D → X ∈ B
173 15 adantr ⊢ φ ∧ x ∈ D → Y × ˙ Z ∈ B
174 1 6 23 5 4 172 173 20 psrmulval ⊢ φ ∧ x ∈ D → X × ˙ Y × ˙ Z ⁡ x = ∑ R j ∈ g ∈ D | g ≤ f x X ⁡ j ⋅ R Y × ˙ Z ⁡ x − f j
175 168 171 174 3eqtr4d ⊢ φ ∧ x ∈ D → X × ˙ Y × ˙ Z ⁡ x = X × ˙ Y × ˙ Z ⁡ x
176 14 18 175 eqfnfvd ⊢ φ → X × ˙ Y × ˙ Z = X × ˙ Y × ˙ Z