MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  psrass1 Structured version   Visualization version   GIF version

Theorem psrass1 21969
Description: Associative identity for the ring of power series. (Contributed by Mario Carneiro, 5-Jan-2015.)
Hypotheses
Ref Expression
psrring.s 𝑆 = (𝐼 mPwSer 𝑅)
psrring.i (𝜑𝐼𝑉)
psrring.r (𝜑𝑅 ∈ Ring)
psrass.d 𝐷 = {𝑓 ∈ (ℕ0m 𝐼) ∣ (𝑓 “ ℕ) ∈ Fin}
psrass.t × = (.r𝑆)
psrass.b 𝐵 = (Base‘𝑆)
psrass.x (𝜑𝑋𝐵)
psrass.y (𝜑𝑌𝐵)
psrass.z (𝜑𝑍𝐵)
Assertion
Ref Expression
psrass1 (𝜑 → ((𝑋 × 𝑌) × 𝑍) = (𝑋 × (𝑌 × 𝑍)))
Distinct variable groups:   𝑓,𝐼   𝑅,𝑓   𝑓,𝑋   𝑓,𝑍   𝑓,𝑌
Allowed substitution hints:   𝜑(𝑓)   𝐵(𝑓)   𝐷(𝑓)   𝑆(𝑓)   × (𝑓)   𝑉(𝑓)

Proof of Theorem psrass1
Dummy variables 𝑥 𝑘 𝑧 𝑔 𝑗 𝑛 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 psrring.s . . . 4 𝑆 = (𝐼 mPwSer 𝑅)
2 eqid 2726 . . . 4 (Base‘𝑅) = (Base‘𝑅)
3 psrass.d . . . 4 𝐷 = {𝑓 ∈ (ℕ0m 𝐼) ∣ (𝑓 “ ℕ) ∈ Fin}
4 psrass.b . . . 4 𝐵 = (Base‘𝑆)
5 psrass.t . . . . 5 × = (.r𝑆)
6 psrring.r . . . . 5 (𝜑𝑅 ∈ Ring)
7 psrass.x . . . . . 6 (𝜑𝑋𝐵)
8 psrass.y . . . . . 6 (𝜑𝑌𝐵)
91, 4, 5, 6, 7, 8psrmulcl 21951 . . . . 5 (𝜑 → (𝑋 × 𝑌) ∈ 𝐵)
10 psrass.z . . . . 5 (𝜑𝑍𝐵)
111, 4, 5, 6, 9, 10psrmulcl 21951 . . . 4 (𝜑 → ((𝑋 × 𝑌) × 𝑍) ∈ 𝐵)
121, 2, 3, 4, 11psrelbas 21939 . . 3 (𝜑 → ((𝑋 × 𝑌) × 𝑍):𝐷⟶(Base‘𝑅))
1312ffnd 6721 . 2 (𝜑 → ((𝑋 × 𝑌) × 𝑍) Fn 𝐷)
141, 4, 5, 6, 8, 10psrmulcl 21951 . . . . 5 (𝜑 → (𝑌 × 𝑍) ∈ 𝐵)
151, 4, 5, 6, 7, 14psrmulcl 21951 . . . 4 (𝜑 → (𝑋 × (𝑌 × 𝑍)) ∈ 𝐵)
161, 2, 3, 4, 15psrelbas 21939 . . 3 (𝜑 → (𝑋 × (𝑌 × 𝑍)):𝐷⟶(Base‘𝑅))
1716ffnd 6721 . 2 (𝜑 → (𝑋 × (𝑌 × 𝑍)) Fn 𝐷)
18 eqid 2726 . . . . 5 {𝑔𝐷𝑔r𝑥} = {𝑔𝐷𝑔r𝑥}
19 simpr 483 . . . . 5 ((𝜑𝑥𝐷) → 𝑥𝐷)
206ringcmnd 20259 . . . . . 6 (𝜑𝑅 ∈ CMnd)
2120adantr 479 . . . . 5 ((𝜑𝑥𝐷) → 𝑅 ∈ CMnd)
22 eqid 2726 . . . . . . 7 (.r𝑅) = (.r𝑅)
236ad3antrrr 728 . . . . . . 7 ((((𝜑𝑥𝐷) ∧ 𝑗 ∈ {𝑔𝐷𝑔r𝑥}) ∧ 𝑛 ∈ {𝐷r ≤ (𝑥f𝑗)}) → 𝑅 ∈ Ring)
241, 2, 3, 4, 7psrelbas 21939 . . . . . . . . . 10 (𝜑𝑋:𝐷⟶(Base‘𝑅))
2524ad2antrr 724 . . . . . . . . 9 (((𝜑𝑥𝐷) ∧ 𝑗 ∈ {𝑔𝐷𝑔r𝑥}) → 𝑋:𝐷⟶(Base‘𝑅))
26 simpr 483 . . . . . . . . . . 11 (((𝜑𝑥𝐷) ∧ 𝑗 ∈ {𝑔𝐷𝑔r𝑥}) → 𝑗 ∈ {𝑔𝐷𝑔r𝑥})
27 breq1 5148 . . . . . . . . . . . 12 (𝑔 = 𝑗 → (𝑔r𝑥𝑗r𝑥))
2827elrab 3680 . . . . . . . . . . 11 (𝑗 ∈ {𝑔𝐷𝑔r𝑥} ↔ (𝑗𝐷𝑗r𝑥))
2926, 28sylib 217 . . . . . . . . . 10 (((𝜑𝑥𝐷) ∧ 𝑗 ∈ {𝑔𝐷𝑔r𝑥}) → (𝑗𝐷𝑗r𝑥))
3029simpld 493 . . . . . . . . 9 (((𝜑𝑥𝐷) ∧ 𝑗 ∈ {𝑔𝐷𝑔r𝑥}) → 𝑗𝐷)
3125, 30ffvelcdmd 7091 . . . . . . . 8 (((𝜑𝑥𝐷) ∧ 𝑗 ∈ {𝑔𝐷𝑔r𝑥}) → (𝑋𝑗) ∈ (Base‘𝑅))
3231adantr 479 . . . . . . 7 ((((𝜑𝑥𝐷) ∧ 𝑗 ∈ {𝑔𝐷𝑔r𝑥}) ∧ 𝑛 ∈ {𝐷r ≤ (𝑥f𝑗)}) → (𝑋𝑗) ∈ (Base‘𝑅))
331, 2, 3, 4, 8psrelbas 21939 . . . . . . . . . 10 (𝜑𝑌:𝐷⟶(Base‘𝑅))
3433ad3antrrr 728 . . . . . . . . 9 ((((𝜑𝑥𝐷) ∧ 𝑗 ∈ {𝑔𝐷𝑔r𝑥}) ∧ 𝑛 ∈ {𝐷r ≤ (𝑥f𝑗)}) → 𝑌:𝐷⟶(Base‘𝑅))
35 simpr 483 . . . . . . . . . . 11 ((((𝜑𝑥𝐷) ∧ 𝑗 ∈ {𝑔𝐷𝑔r𝑥}) ∧ 𝑛 ∈ {𝐷r ≤ (𝑥f𝑗)}) → 𝑛 ∈ {𝐷r ≤ (𝑥f𝑗)})
36 breq1 5148 . . . . . . . . . . . 12 ( = 𝑛 → (r ≤ (𝑥f𝑗) ↔ 𝑛r ≤ (𝑥f𝑗)))
3736elrab 3680 . . . . . . . . . . 11 (𝑛 ∈ {𝐷r ≤ (𝑥f𝑗)} ↔ (𝑛𝐷𝑛r ≤ (𝑥f𝑗)))
3835, 37sylib 217 . . . . . . . . . 10 ((((𝜑𝑥𝐷) ∧ 𝑗 ∈ {𝑔𝐷𝑔r𝑥}) ∧ 𝑛 ∈ {𝐷r ≤ (𝑥f𝑗)}) → (𝑛𝐷𝑛r ≤ (𝑥f𝑗)))
3938simpld 493 . . . . . . . . 9 ((((𝜑𝑥𝐷) ∧ 𝑗 ∈ {𝑔𝐷𝑔r𝑥}) ∧ 𝑛 ∈ {𝐷r ≤ (𝑥f𝑗)}) → 𝑛𝐷)
4034, 39ffvelcdmd 7091 . . . . . . . 8 ((((𝜑𝑥𝐷) ∧ 𝑗 ∈ {𝑔𝐷𝑔r𝑥}) ∧ 𝑛 ∈ {𝐷r ≤ (𝑥f𝑗)}) → (𝑌𝑛) ∈ (Base‘𝑅))
411, 2, 3, 4, 10psrelbas 21939 . . . . . . . . . 10 (𝜑𝑍:𝐷⟶(Base‘𝑅))
4241ad3antrrr 728 . . . . . . . . 9 ((((𝜑𝑥𝐷) ∧ 𝑗 ∈ {𝑔𝐷𝑔r𝑥}) ∧ 𝑛 ∈ {𝐷r ≤ (𝑥f𝑗)}) → 𝑍:𝐷⟶(Base‘𝑅))
43 simplr 767 . . . . . . . . . . . . . 14 (((𝜑𝑥𝐷) ∧ 𝑗 ∈ {𝑔𝐷𝑔r𝑥}) → 𝑥𝐷)
443psrbagf 21911 . . . . . . . . . . . . . . 15 (𝑗𝐷𝑗:𝐼⟶ℕ0)
4530, 44syl 17 . . . . . . . . . . . . . 14 (((𝜑𝑥𝐷) ∧ 𝑗 ∈ {𝑔𝐷𝑔r𝑥}) → 𝑗:𝐼⟶ℕ0)
4629simprd 494 . . . . . . . . . . . . . 14 (((𝜑𝑥𝐷) ∧ 𝑗 ∈ {𝑔𝐷𝑔r𝑥}) → 𝑗r𝑥)
473psrbagcon 21923 . . . . . . . . . . . . . 14 ((𝑥𝐷𝑗:𝐼⟶ℕ0𝑗r𝑥) → ((𝑥f𝑗) ∈ 𝐷 ∧ (𝑥f𝑗) ∘r𝑥))
4843, 45, 46, 47syl3anc 1368 . . . . . . . . . . . . 13 (((𝜑𝑥𝐷) ∧ 𝑗 ∈ {𝑔𝐷𝑔r𝑥}) → ((𝑥f𝑗) ∈ 𝐷 ∧ (𝑥f𝑗) ∘r𝑥))
4948simpld 493 . . . . . . . . . . . 12 (((𝜑𝑥𝐷) ∧ 𝑗 ∈ {𝑔𝐷𝑔r𝑥}) → (𝑥f𝑗) ∈ 𝐷)
5049adantr 479 . . . . . . . . . . 11 ((((𝜑𝑥𝐷) ∧ 𝑗 ∈ {𝑔𝐷𝑔r𝑥}) ∧ 𝑛 ∈ {𝐷r ≤ (𝑥f𝑗)}) → (𝑥f𝑗) ∈ 𝐷)
513psrbagf 21911 . . . . . . . . . . . 12 (𝑛𝐷𝑛:𝐼⟶ℕ0)
5239, 51syl 17 . . . . . . . . . . 11 ((((𝜑𝑥𝐷) ∧ 𝑗 ∈ {𝑔𝐷𝑔r𝑥}) ∧ 𝑛 ∈ {𝐷r ≤ (𝑥f𝑗)}) → 𝑛:𝐼⟶ℕ0)
5338simprd 494 . . . . . . . . . . 11 ((((𝜑𝑥𝐷) ∧ 𝑗 ∈ {𝑔𝐷𝑔r𝑥}) ∧ 𝑛 ∈ {𝐷r ≤ (𝑥f𝑗)}) → 𝑛r ≤ (𝑥f𝑗))
543psrbagcon 21923 . . . . . . . . . . 11 (((𝑥f𝑗) ∈ 𝐷𝑛:𝐼⟶ℕ0𝑛r ≤ (𝑥f𝑗)) → (((𝑥f𝑗) ∘f𝑛) ∈ 𝐷 ∧ ((𝑥f𝑗) ∘f𝑛) ∘r ≤ (𝑥f𝑗)))
5550, 52, 53, 54syl3anc 1368 . . . . . . . . . 10 ((((𝜑𝑥𝐷) ∧ 𝑗 ∈ {𝑔𝐷𝑔r𝑥}) ∧ 𝑛 ∈ {𝐷r ≤ (𝑥f𝑗)}) → (((𝑥f𝑗) ∘f𝑛) ∈ 𝐷 ∧ ((𝑥f𝑗) ∘f𝑛) ∘r ≤ (𝑥f𝑗)))
5655simpld 493 . . . . . . . . 9 ((((𝜑𝑥𝐷) ∧ 𝑗 ∈ {𝑔𝐷𝑔r𝑥}) ∧ 𝑛 ∈ {𝐷r ≤ (𝑥f𝑗)}) → ((𝑥f𝑗) ∘f𝑛) ∈ 𝐷)
5742, 56ffvelcdmd 7091 . . . . . . . 8 ((((𝜑𝑥𝐷) ∧ 𝑗 ∈ {𝑔𝐷𝑔r𝑥}) ∧ 𝑛 ∈ {𝐷r ≤ (𝑥f𝑗)}) → (𝑍‘((𝑥f𝑗) ∘f𝑛)) ∈ (Base‘𝑅))
582, 22, 23, 40, 57ringcld 20238 . . . . . . 7 ((((𝜑𝑥𝐷) ∧ 𝑗 ∈ {𝑔𝐷𝑔r𝑥}) ∧ 𝑛 ∈ {𝐷r ≤ (𝑥f𝑗)}) → ((𝑌𝑛)(.r𝑅)(𝑍‘((𝑥f𝑗) ∘f𝑛))) ∈ (Base‘𝑅))
592, 22, 23, 32, 58ringcld 20238 . . . . . 6 ((((𝜑𝑥𝐷) ∧ 𝑗 ∈ {𝑔𝐷𝑔r𝑥}) ∧ 𝑛 ∈ {𝐷r ≤ (𝑥f𝑗)}) → ((𝑋𝑗)(.r𝑅)((𝑌𝑛)(.r𝑅)(𝑍‘((𝑥f𝑗) ∘f𝑛)))) ∈ (Base‘𝑅))
6059anasss 465 . . . . 5 (((𝜑𝑥𝐷) ∧ (𝑗 ∈ {𝑔𝐷𝑔r𝑥} ∧ 𝑛 ∈ {𝐷r ≤ (𝑥f𝑗)})) → ((𝑋𝑗)(.r𝑅)((𝑌𝑛)(.r𝑅)(𝑍‘((𝑥f𝑗) ∘f𝑛)))) ∈ (Base‘𝑅))
61 fveq2 6893 . . . . . . 7 (𝑛 = (𝑘f𝑗) → (𝑌𝑛) = (𝑌‘(𝑘f𝑗)))
62 oveq2 7424 . . . . . . . 8 (𝑛 = (𝑘f𝑗) → ((𝑥f𝑗) ∘f𝑛) = ((𝑥f𝑗) ∘f − (𝑘f𝑗)))
6362fveq2d 6897 . . . . . . 7 (𝑛 = (𝑘f𝑗) → (𝑍‘((𝑥f𝑗) ∘f𝑛)) = (𝑍‘((𝑥f𝑗) ∘f − (𝑘f𝑗))))
6461, 63oveq12d 7434 . . . . . 6 (𝑛 = (𝑘f𝑗) → ((𝑌𝑛)(.r𝑅)(𝑍‘((𝑥f𝑗) ∘f𝑛))) = ((𝑌‘(𝑘f𝑗))(.r𝑅)(𝑍‘((𝑥f𝑗) ∘f − (𝑘f𝑗)))))
6564oveq2d 7432 . . . . 5 (𝑛 = (𝑘f𝑗) → ((𝑋𝑗)(.r𝑅)((𝑌𝑛)(.r𝑅)(𝑍‘((𝑥f𝑗) ∘f𝑛)))) = ((𝑋𝑗)(.r𝑅)((𝑌‘(𝑘f𝑗))(.r𝑅)(𝑍‘((𝑥f𝑗) ∘f − (𝑘f𝑗))))))
663, 18, 19, 2, 21, 60, 65psrass1lem 21937 . . . 4 ((𝜑𝑥𝐷) → (𝑅 Σg (𝑘 ∈ {𝑔𝐷𝑔r𝑥} ↦ (𝑅 Σg (𝑗 ∈ {𝐷r𝑘} ↦ ((𝑋𝑗)(.r𝑅)((𝑌‘(𝑘f𝑗))(.r𝑅)(𝑍‘((𝑥f𝑗) ∘f − (𝑘f𝑗))))))))) = (𝑅 Σg (𝑗 ∈ {𝑔𝐷𝑔r𝑥} ↦ (𝑅 Σg (𝑛 ∈ {𝐷r ≤ (𝑥f𝑗)} ↦ ((𝑋𝑗)(.r𝑅)((𝑌𝑛)(.r𝑅)(𝑍‘((𝑥f𝑗) ∘f𝑛)))))))))
677ad2antrr 724 . . . . . . . . 9 (((𝜑𝑥𝐷) ∧ 𝑘 ∈ {𝑔𝐷𝑔r𝑥}) → 𝑋𝐵)
688ad2antrr 724 . . . . . . . . 9 (((𝜑𝑥𝐷) ∧ 𝑘 ∈ {𝑔𝐷𝑔r𝑥}) → 𝑌𝐵)
69 simpr 483 . . . . . . . . . . 11 (((𝜑𝑥𝐷) ∧ 𝑘 ∈ {𝑔𝐷𝑔r𝑥}) → 𝑘 ∈ {𝑔𝐷𝑔r𝑥})
70 breq1 5148 . . . . . . . . . . . 12 (𝑔 = 𝑘 → (𝑔r𝑥𝑘r𝑥))
7170elrab 3680 . . . . . . . . . . 11 (𝑘 ∈ {𝑔𝐷𝑔r𝑥} ↔ (𝑘𝐷𝑘r𝑥))
7269, 71sylib 217 . . . . . . . . . 10 (((𝜑𝑥𝐷) ∧ 𝑘 ∈ {𝑔𝐷𝑔r𝑥}) → (𝑘𝐷𝑘r𝑥))
7372simpld 493 . . . . . . . . 9 (((𝜑𝑥𝐷) ∧ 𝑘 ∈ {𝑔𝐷𝑔r𝑥}) → 𝑘𝐷)
741, 4, 22, 5, 3, 67, 68, 73psrmulval 21949 . . . . . . . 8 (((𝜑𝑥𝐷) ∧ 𝑘 ∈ {𝑔𝐷𝑔r𝑥}) → ((𝑋 × 𝑌)‘𝑘) = (𝑅 Σg (𝑗 ∈ {𝐷r𝑘} ↦ ((𝑋𝑗)(.r𝑅)(𝑌‘(𝑘f𝑗))))))
7574oveq1d 7431 . . . . . . 7 (((𝜑𝑥𝐷) ∧ 𝑘 ∈ {𝑔𝐷𝑔r𝑥}) → (((𝑋 × 𝑌)‘𝑘)(.r𝑅)(𝑍‘(𝑥f𝑘))) = ((𝑅 Σg (𝑗 ∈ {𝐷r𝑘} ↦ ((𝑋𝑗)(.r𝑅)(𝑌‘(𝑘f𝑗)))))(.r𝑅)(𝑍‘(𝑥f𝑘))))
76 eqid 2726 . . . . . . . 8 (0g𝑅) = (0g𝑅)
776ad2antrr 724 . . . . . . . 8 (((𝜑𝑥𝐷) ∧ 𝑘 ∈ {𝑔𝐷𝑔r𝑥}) → 𝑅 ∈ Ring)
783psrbaglefi 21925 . . . . . . . . 9 (𝑘𝐷 → {𝐷r𝑘} ∈ Fin)
7973, 78syl 17 . . . . . . . 8 (((𝜑𝑥𝐷) ∧ 𝑘 ∈ {𝑔𝐷𝑔r𝑥}) → {𝐷r𝑘} ∈ Fin)
8041ad2antrr 724 . . . . . . . . 9 (((𝜑𝑥𝐷) ∧ 𝑘 ∈ {𝑔𝐷𝑔r𝑥}) → 𝑍:𝐷⟶(Base‘𝑅))
81 simplr 767 . . . . . . . . . . 11 (((𝜑𝑥𝐷) ∧ 𝑘 ∈ {𝑔𝐷𝑔r𝑥}) → 𝑥𝐷)
823psrbagf 21911 . . . . . . . . . . . 12 (𝑘𝐷𝑘:𝐼⟶ℕ0)
8373, 82syl 17 . . . . . . . . . . 11 (((𝜑𝑥𝐷) ∧ 𝑘 ∈ {𝑔𝐷𝑔r𝑥}) → 𝑘:𝐼⟶ℕ0)
8472simprd 494 . . . . . . . . . . 11 (((𝜑𝑥𝐷) ∧ 𝑘 ∈ {𝑔𝐷𝑔r𝑥}) → 𝑘r𝑥)
853psrbagcon 21923 . . . . . . . . . . 11 ((𝑥𝐷𝑘:𝐼⟶ℕ0𝑘r𝑥) → ((𝑥f𝑘) ∈ 𝐷 ∧ (𝑥f𝑘) ∘r𝑥))
8681, 83, 84, 85syl3anc 1368 . . . . . . . . . 10 (((𝜑𝑥𝐷) ∧ 𝑘 ∈ {𝑔𝐷𝑔r𝑥}) → ((𝑥f𝑘) ∈ 𝐷 ∧ (𝑥f𝑘) ∘r𝑥))
8786simpld 493 . . . . . . . . 9 (((𝜑𝑥𝐷) ∧ 𝑘 ∈ {𝑔𝐷𝑔r𝑥}) → (𝑥f𝑘) ∈ 𝐷)
8880, 87ffvelcdmd 7091 . . . . . . . 8 (((𝜑𝑥𝐷) ∧ 𝑘 ∈ {𝑔𝐷𝑔r𝑥}) → (𝑍‘(𝑥f𝑘)) ∈ (Base‘𝑅))
896ad3antrrr 728 . . . . . . . . 9 ((((𝜑𝑥𝐷) ∧ 𝑘 ∈ {𝑔𝐷𝑔r𝑥}) ∧ 𝑗 ∈ {𝐷r𝑘}) → 𝑅 ∈ Ring)
9024ad3antrrr 728 . . . . . . . . . 10 ((((𝜑𝑥𝐷) ∧ 𝑘 ∈ {𝑔𝐷𝑔r𝑥}) ∧ 𝑗 ∈ {𝐷r𝑘}) → 𝑋:𝐷⟶(Base‘𝑅))
91 simpr 483 . . . . . . . . . . . 12 ((((𝜑𝑥𝐷) ∧ 𝑘 ∈ {𝑔𝐷𝑔r𝑥}) ∧ 𝑗 ∈ {𝐷r𝑘}) → 𝑗 ∈ {𝐷r𝑘})
92 breq1 5148 . . . . . . . . . . . . 13 ( = 𝑗 → (r𝑘𝑗r𝑘))
9392elrab 3680 . . . . . . . . . . . 12 (𝑗 ∈ {𝐷r𝑘} ↔ (𝑗𝐷𝑗r𝑘))
9491, 93sylib 217 . . . . . . . . . . 11 ((((𝜑𝑥𝐷) ∧ 𝑘 ∈ {𝑔𝐷𝑔r𝑥}) ∧ 𝑗 ∈ {𝐷r𝑘}) → (𝑗𝐷𝑗r𝑘))
9594simpld 493 . . . . . . . . . 10 ((((𝜑𝑥𝐷) ∧ 𝑘 ∈ {𝑔𝐷𝑔r𝑥}) ∧ 𝑗 ∈ {𝐷r𝑘}) → 𝑗𝐷)
9690, 95ffvelcdmd 7091 . . . . . . . . 9 ((((𝜑𝑥𝐷) ∧ 𝑘 ∈ {𝑔𝐷𝑔r𝑥}) ∧ 𝑗 ∈ {𝐷r𝑘}) → (𝑋𝑗) ∈ (Base‘𝑅))
9733ad3antrrr 728 . . . . . . . . . 10 ((((𝜑𝑥𝐷) ∧ 𝑘 ∈ {𝑔𝐷𝑔r𝑥}) ∧ 𝑗 ∈ {𝐷r𝑘}) → 𝑌:𝐷⟶(Base‘𝑅))
9873adantr 479 . . . . . . . . . . . 12 ((((𝜑𝑥𝐷) ∧ 𝑘 ∈ {𝑔𝐷𝑔r𝑥}) ∧ 𝑗 ∈ {𝐷r𝑘}) → 𝑘𝐷)
9995, 44syl 17 . . . . . . . . . . . 12 ((((𝜑𝑥𝐷) ∧ 𝑘 ∈ {𝑔𝐷𝑔r𝑥}) ∧ 𝑗 ∈ {𝐷r𝑘}) → 𝑗:𝐼⟶ℕ0)
10094simprd 494 . . . . . . . . . . . 12 ((((𝜑𝑥𝐷) ∧ 𝑘 ∈ {𝑔𝐷𝑔r𝑥}) ∧ 𝑗 ∈ {𝐷r𝑘}) → 𝑗r𝑘)
1013psrbagcon 21923 . . . . . . . . . . . 12 ((𝑘𝐷𝑗:𝐼⟶ℕ0𝑗r𝑘) → ((𝑘f𝑗) ∈ 𝐷 ∧ (𝑘f𝑗) ∘r𝑘))
10298, 99, 100, 101syl3anc 1368 . . . . . . . . . . 11 ((((𝜑𝑥𝐷) ∧ 𝑘 ∈ {𝑔𝐷𝑔r𝑥}) ∧ 𝑗 ∈ {𝐷r𝑘}) → ((𝑘f𝑗) ∈ 𝐷 ∧ (𝑘f𝑗) ∘r𝑘))
103102simpld 493 . . . . . . . . . 10 ((((𝜑𝑥𝐷) ∧ 𝑘 ∈ {𝑔𝐷𝑔r𝑥}) ∧ 𝑗 ∈ {𝐷r𝑘}) → (𝑘f𝑗) ∈ 𝐷)
10497, 103ffvelcdmd 7091 . . . . . . . . 9 ((((𝜑𝑥𝐷) ∧ 𝑘 ∈ {𝑔𝐷𝑔r𝑥}) ∧ 𝑗 ∈ {𝐷r𝑘}) → (𝑌‘(𝑘f𝑗)) ∈ (Base‘𝑅))
1052, 22, 89, 96, 104ringcld 20238 . . . . . . . 8 ((((𝜑𝑥𝐷) ∧ 𝑘 ∈ {𝑔𝐷𝑔r𝑥}) ∧ 𝑗 ∈ {𝐷r𝑘}) → ((𝑋𝑗)(.r𝑅)(𝑌‘(𝑘f𝑗))) ∈ (Base‘𝑅))
106 eqid 2726 . . . . . . . . 9 (𝑗 ∈ {𝐷r𝑘} ↦ ((𝑋𝑗)(.r𝑅)(𝑌‘(𝑘f𝑗)))) = (𝑗 ∈ {𝐷r𝑘} ↦ ((𝑋𝑗)(.r𝑅)(𝑌‘(𝑘f𝑗))))
107 fvex 6906 . . . . . . . . . 10 (0g𝑅) ∈ V
108107a1i 11 . . . . . . . . 9 (((𝜑𝑥𝐷) ∧ 𝑘 ∈ {𝑔𝐷𝑔r𝑥}) → (0g𝑅) ∈ V)
109106, 79, 105, 108fsuppmptdm 9412 . . . . . . . 8 (((𝜑𝑥𝐷) ∧ 𝑘 ∈ {𝑔𝐷𝑔r𝑥}) → (𝑗 ∈ {𝐷r𝑘} ↦ ((𝑋𝑗)(.r𝑅)(𝑌‘(𝑘f𝑗)))) finSupp (0g𝑅))
1102, 76, 22, 77, 79, 88, 105, 109gsummulc1 20291 . . . . . . 7 (((𝜑𝑥𝐷) ∧ 𝑘 ∈ {𝑔𝐷𝑔r𝑥}) → (𝑅 Σg (𝑗 ∈ {𝐷r𝑘} ↦ (((𝑋𝑗)(.r𝑅)(𝑌‘(𝑘f𝑗)))(.r𝑅)(𝑍‘(𝑥f𝑘))))) = ((𝑅 Σg (𝑗 ∈ {𝐷r𝑘} ↦ ((𝑋𝑗)(.r𝑅)(𝑌‘(𝑘f𝑗)))))(.r𝑅)(𝑍‘(𝑥f𝑘))))
11188adantr 479 . . . . . . . . . . 11 ((((𝜑𝑥𝐷) ∧ 𝑘 ∈ {𝑔𝐷𝑔r𝑥}) ∧ 𝑗 ∈ {𝐷r𝑘}) → (𝑍‘(𝑥f𝑘)) ∈ (Base‘𝑅))
1122, 22ringass 20232 . . . . . . . . . . 11 ((𝑅 ∈ Ring ∧ ((𝑋𝑗) ∈ (Base‘𝑅) ∧ (𝑌‘(𝑘f𝑗)) ∈ (Base‘𝑅) ∧ (𝑍‘(𝑥f𝑘)) ∈ (Base‘𝑅))) → (((𝑋𝑗)(.r𝑅)(𝑌‘(𝑘f𝑗)))(.r𝑅)(𝑍‘(𝑥f𝑘))) = ((𝑋𝑗)(.r𝑅)((𝑌‘(𝑘f𝑗))(.r𝑅)(𝑍‘(𝑥f𝑘)))))
11389, 96, 104, 111, 112syl13anc 1369 . . . . . . . . . 10 ((((𝜑𝑥𝐷) ∧ 𝑘 ∈ {𝑔𝐷𝑔r𝑥}) ∧ 𝑗 ∈ {𝐷r𝑘}) → (((𝑋𝑗)(.r𝑅)(𝑌‘(𝑘f𝑗)))(.r𝑅)(𝑍‘(𝑥f𝑘))) = ((𝑋𝑗)(.r𝑅)((𝑌‘(𝑘f𝑗))(.r𝑅)(𝑍‘(𝑥f𝑘)))))
1143psrbagf 21911 . . . . . . . . . . . . . . . . . 18 (𝑥𝐷𝑥:𝐼⟶ℕ0)
115114ad3antlr 729 . . . . . . . . . . . . . . . . 17 ((((𝜑𝑥𝐷) ∧ 𝑘 ∈ {𝑔𝐷𝑔r𝑥}) ∧ 𝑗 ∈ {𝐷r𝑘}) → 𝑥:𝐼⟶ℕ0)
116115ffvelcdmda 7090 . . . . . . . . . . . . . . . 16 (((((𝜑𝑥𝐷) ∧ 𝑘 ∈ {𝑔𝐷𝑔r𝑥}) ∧ 𝑗 ∈ {𝐷r𝑘}) ∧ 𝑧𝐼) → (𝑥𝑧) ∈ ℕ0)
11783adantr 479 . . . . . . . . . . . . . . . . 17 ((((𝜑𝑥𝐷) ∧ 𝑘 ∈ {𝑔𝐷𝑔r𝑥}) ∧ 𝑗 ∈ {𝐷r𝑘}) → 𝑘:𝐼⟶ℕ0)
118117ffvelcdmda 7090 . . . . . . . . . . . . . . . 16 (((((𝜑𝑥𝐷) ∧ 𝑘 ∈ {𝑔𝐷𝑔r𝑥}) ∧ 𝑗 ∈ {𝐷r𝑘}) ∧ 𝑧𝐼) → (𝑘𝑧) ∈ ℕ0)
11999ffvelcdmda 7090 . . . . . . . . . . . . . . . 16 (((((𝜑𝑥𝐷) ∧ 𝑘 ∈ {𝑔𝐷𝑔r𝑥}) ∧ 𝑗 ∈ {𝐷r𝑘}) ∧ 𝑧𝐼) → (𝑗𝑧) ∈ ℕ0)
120 nn0cn 12528 . . . . . . . . . . . . . . . . 17 ((𝑥𝑧) ∈ ℕ0 → (𝑥𝑧) ∈ ℂ)
121 nn0cn 12528 . . . . . . . . . . . . . . . . 17 ((𝑘𝑧) ∈ ℕ0 → (𝑘𝑧) ∈ ℂ)
122 nn0cn 12528 . . . . . . . . . . . . . . . . 17 ((𝑗𝑧) ∈ ℕ0 → (𝑗𝑧) ∈ ℂ)
123 nnncan2 11538 . . . . . . . . . . . . . . . . 17 (((𝑥𝑧) ∈ ℂ ∧ (𝑘𝑧) ∈ ℂ ∧ (𝑗𝑧) ∈ ℂ) → (((𝑥𝑧) − (𝑗𝑧)) − ((𝑘𝑧) − (𝑗𝑧))) = ((𝑥𝑧) − (𝑘𝑧)))
124120, 121, 122, 123syl3an 1157 . . . . . . . . . . . . . . . 16 (((𝑥𝑧) ∈ ℕ0 ∧ (𝑘𝑧) ∈ ℕ0 ∧ (𝑗𝑧) ∈ ℕ0) → (((𝑥𝑧) − (𝑗𝑧)) − ((𝑘𝑧) − (𝑗𝑧))) = ((𝑥𝑧) − (𝑘𝑧)))
125116, 118, 119, 124syl3anc 1368 . . . . . . . . . . . . . . 15 (((((𝜑𝑥𝐷) ∧ 𝑘 ∈ {𝑔𝐷𝑔r𝑥}) ∧ 𝑗 ∈ {𝐷r𝑘}) ∧ 𝑧𝐼) → (((𝑥𝑧) − (𝑗𝑧)) − ((𝑘𝑧) − (𝑗𝑧))) = ((𝑥𝑧) − (𝑘𝑧)))
126125mpteq2dva 5245 . . . . . . . . . . . . . 14 ((((𝜑𝑥𝐷) ∧ 𝑘 ∈ {𝑔𝐷𝑔r𝑥}) ∧ 𝑗 ∈ {𝐷r𝑘}) → (𝑧𝐼 ↦ (((𝑥𝑧) − (𝑗𝑧)) − ((𝑘𝑧) − (𝑗𝑧)))) = (𝑧𝐼 ↦ ((𝑥𝑧) − (𝑘𝑧))))
127 psrring.i . . . . . . . . . . . . . . . 16 (𝜑𝐼𝑉)
128127ad3antrrr 728 . . . . . . . . . . . . . . 15 ((((𝜑𝑥𝐷) ∧ 𝑘 ∈ {𝑔𝐷𝑔r𝑥}) ∧ 𝑗 ∈ {𝐷r𝑘}) → 𝐼𝑉)
129 ovexd 7451 . . . . . . . . . . . . . . 15 (((((𝜑𝑥𝐷) ∧ 𝑘 ∈ {𝑔𝐷𝑔r𝑥}) ∧ 𝑗 ∈ {𝐷r𝑘}) ∧ 𝑧𝐼) → ((𝑥𝑧) − (𝑗𝑧)) ∈ V)
130 ovexd 7451 . . . . . . . . . . . . . . 15 (((((𝜑𝑥𝐷) ∧ 𝑘 ∈ {𝑔𝐷𝑔r𝑥}) ∧ 𝑗 ∈ {𝐷r𝑘}) ∧ 𝑧𝐼) → ((𝑘𝑧) − (𝑗𝑧)) ∈ V)
131115feqmptd 6963 . . . . . . . . . . . . . . . 16 ((((𝜑𝑥𝐷) ∧ 𝑘 ∈ {𝑔𝐷𝑔r𝑥}) ∧ 𝑗 ∈ {𝐷r𝑘}) → 𝑥 = (𝑧𝐼 ↦ (𝑥𝑧)))
13299feqmptd 6963 . . . . . . . . . . . . . . . 16 ((((𝜑𝑥𝐷) ∧ 𝑘 ∈ {𝑔𝐷𝑔r𝑥}) ∧ 𝑗 ∈ {𝐷r𝑘}) → 𝑗 = (𝑧𝐼 ↦ (𝑗𝑧)))
133128, 116, 119, 131, 132offval2 7702 . . . . . . . . . . . . . . 15 ((((𝜑𝑥𝐷) ∧ 𝑘 ∈ {𝑔𝐷𝑔r𝑥}) ∧ 𝑗 ∈ {𝐷r𝑘}) → (𝑥f𝑗) = (𝑧𝐼 ↦ ((𝑥𝑧) − (𝑗𝑧))))
134117feqmptd 6963 . . . . . . . . . . . . . . . 16 ((((𝜑𝑥𝐷) ∧ 𝑘 ∈ {𝑔𝐷𝑔r𝑥}) ∧ 𝑗 ∈ {𝐷r𝑘}) → 𝑘 = (𝑧𝐼 ↦ (𝑘𝑧)))
135128, 118, 119, 134, 132offval2 7702 . . . . . . . . . . . . . . 15 ((((𝜑𝑥𝐷) ∧ 𝑘 ∈ {𝑔𝐷𝑔r𝑥}) ∧ 𝑗 ∈ {𝐷r𝑘}) → (𝑘f𝑗) = (𝑧𝐼 ↦ ((𝑘𝑧) − (𝑗𝑧))))
136128, 129, 130, 133, 135offval2 7702 . . . . . . . . . . . . . 14 ((((𝜑𝑥𝐷) ∧ 𝑘 ∈ {𝑔𝐷𝑔r𝑥}) ∧ 𝑗 ∈ {𝐷r𝑘}) → ((𝑥f𝑗) ∘f − (𝑘f𝑗)) = (𝑧𝐼 ↦ (((𝑥𝑧) − (𝑗𝑧)) − ((𝑘𝑧) − (𝑗𝑧)))))
137128, 116, 118, 131, 134offval2 7702 . . . . . . . . . . . . . 14 ((((𝜑𝑥𝐷) ∧ 𝑘 ∈ {𝑔𝐷𝑔r𝑥}) ∧ 𝑗 ∈ {𝐷r𝑘}) → (𝑥f𝑘) = (𝑧𝐼 ↦ ((𝑥𝑧) − (𝑘𝑧))))
138126, 136, 1373eqtr4d 2776 . . . . . . . . . . . . 13 ((((𝜑𝑥𝐷) ∧ 𝑘 ∈ {𝑔𝐷𝑔r𝑥}) ∧ 𝑗 ∈ {𝐷r𝑘}) → ((𝑥f𝑗) ∘f − (𝑘f𝑗)) = (𝑥f𝑘))
139138fveq2d 6897 . . . . . . . . . . . 12 ((((𝜑𝑥𝐷) ∧ 𝑘 ∈ {𝑔𝐷𝑔r𝑥}) ∧ 𝑗 ∈ {𝐷r𝑘}) → (𝑍‘((𝑥f𝑗) ∘f − (𝑘f𝑗))) = (𝑍‘(𝑥f𝑘)))
140139oveq2d 7432 . . . . . . . . . . 11 ((((𝜑𝑥𝐷) ∧ 𝑘 ∈ {𝑔𝐷𝑔r𝑥}) ∧ 𝑗 ∈ {𝐷r𝑘}) → ((𝑌‘(𝑘f𝑗))(.r𝑅)(𝑍‘((𝑥f𝑗) ∘f − (𝑘f𝑗)))) = ((𝑌‘(𝑘f𝑗))(.r𝑅)(𝑍‘(𝑥f𝑘))))
141140oveq2d 7432 . . . . . . . . . 10 ((((𝜑𝑥𝐷) ∧ 𝑘 ∈ {𝑔𝐷𝑔r𝑥}) ∧ 𝑗 ∈ {𝐷r𝑘}) → ((𝑋𝑗)(.r𝑅)((𝑌‘(𝑘f𝑗))(.r𝑅)(𝑍‘((𝑥f𝑗) ∘f − (𝑘f𝑗))))) = ((𝑋𝑗)(.r𝑅)((𝑌‘(𝑘f𝑗))(.r𝑅)(𝑍‘(𝑥f𝑘)))))
142113, 141eqtr4d 2769 . . . . . . . . 9 ((((𝜑𝑥𝐷) ∧ 𝑘 ∈ {𝑔𝐷𝑔r𝑥}) ∧ 𝑗 ∈ {𝐷r𝑘}) → (((𝑋𝑗)(.r𝑅)(𝑌‘(𝑘f𝑗)))(.r𝑅)(𝑍‘(𝑥f𝑘))) = ((𝑋𝑗)(.r𝑅)((𝑌‘(𝑘f𝑗))(.r𝑅)(𝑍‘((𝑥f𝑗) ∘f − (𝑘f𝑗))))))
143142mpteq2dva 5245 . . . . . . . 8 (((𝜑𝑥𝐷) ∧ 𝑘 ∈ {𝑔𝐷𝑔r𝑥}) → (𝑗 ∈ {𝐷r𝑘} ↦ (((𝑋𝑗)(.r𝑅)(𝑌‘(𝑘f𝑗)))(.r𝑅)(𝑍‘(𝑥f𝑘)))) = (𝑗 ∈ {𝐷r𝑘} ↦ ((𝑋𝑗)(.r𝑅)((𝑌‘(𝑘f𝑗))(.r𝑅)(𝑍‘((𝑥f𝑗) ∘f − (𝑘f𝑗)))))))
144143oveq2d 7432 . . . . . . 7 (((𝜑𝑥𝐷) ∧ 𝑘 ∈ {𝑔𝐷𝑔r𝑥}) → (𝑅 Σg (𝑗 ∈ {𝐷r𝑘} ↦ (((𝑋𝑗)(.r𝑅)(𝑌‘(𝑘f𝑗)))(.r𝑅)(𝑍‘(𝑥f𝑘))))) = (𝑅 Σg (𝑗 ∈ {𝐷r𝑘} ↦ ((𝑋𝑗)(.r𝑅)((𝑌‘(𝑘f𝑗))(.r𝑅)(𝑍‘((𝑥f𝑗) ∘f − (𝑘f𝑗))))))))
14575, 110, 1443eqtr2d 2772 . . . . . 6 (((𝜑𝑥𝐷) ∧ 𝑘 ∈ {𝑔𝐷𝑔r𝑥}) → (((𝑋 × 𝑌)‘𝑘)(.r𝑅)(𝑍‘(𝑥f𝑘))) = (𝑅 Σg (𝑗 ∈ {𝐷r𝑘} ↦ ((𝑋𝑗)(.r𝑅)((𝑌‘(𝑘f𝑗))(.r𝑅)(𝑍‘((𝑥f𝑗) ∘f − (𝑘f𝑗))))))))
146145mpteq2dva 5245 . . . . 5 ((𝜑𝑥𝐷) → (𝑘 ∈ {𝑔𝐷𝑔r𝑥} ↦ (((𝑋 × 𝑌)‘𝑘)(.r𝑅)(𝑍‘(𝑥f𝑘)))) = (𝑘 ∈ {𝑔𝐷𝑔r𝑥} ↦ (𝑅 Σg (𝑗 ∈ {𝐷r𝑘} ↦ ((𝑋𝑗)(.r𝑅)((𝑌‘(𝑘f𝑗))(.r𝑅)(𝑍‘((𝑥f𝑗) ∘f − (𝑘f𝑗)))))))))
147146oveq2d 7432 . . . 4 ((𝜑𝑥𝐷) → (𝑅 Σg (𝑘 ∈ {𝑔𝐷𝑔r𝑥} ↦ (((𝑋 × 𝑌)‘𝑘)(.r𝑅)(𝑍‘(𝑥f𝑘))))) = (𝑅 Σg (𝑘 ∈ {𝑔𝐷𝑔r𝑥} ↦ (𝑅 Σg (𝑗 ∈ {𝐷r𝑘} ↦ ((𝑋𝑗)(.r𝑅)((𝑌‘(𝑘f𝑗))(.r𝑅)(𝑍‘((𝑥f𝑗) ∘f − (𝑘f𝑗))))))))))
1488ad2antrr 724 . . . . . . . . 9 (((𝜑𝑥𝐷) ∧ 𝑗 ∈ {𝑔𝐷𝑔r𝑥}) → 𝑌𝐵)
14910ad2antrr 724 . . . . . . . . 9 (((𝜑𝑥𝐷) ∧ 𝑗 ∈ {𝑔𝐷𝑔r𝑥}) → 𝑍𝐵)
1501, 4, 22, 5, 3, 148, 149, 49psrmulval 21949 . . . . . . . 8 (((𝜑𝑥𝐷) ∧ 𝑗 ∈ {𝑔𝐷𝑔r𝑥}) → ((𝑌 × 𝑍)‘(𝑥f𝑗)) = (𝑅 Σg (𝑛 ∈ {𝐷r ≤ (𝑥f𝑗)} ↦ ((𝑌𝑛)(.r𝑅)(𝑍‘((𝑥f𝑗) ∘f𝑛))))))
151150oveq2d 7432 . . . . . . 7 (((𝜑𝑥𝐷) ∧ 𝑗 ∈ {𝑔𝐷𝑔r𝑥}) → ((𝑋𝑗)(.r𝑅)((𝑌 × 𝑍)‘(𝑥f𝑗))) = ((𝑋𝑗)(.r𝑅)(𝑅 Σg (𝑛 ∈ {𝐷r ≤ (𝑥f𝑗)} ↦ ((𝑌𝑛)(.r𝑅)(𝑍‘((𝑥f𝑗) ∘f𝑛)))))))
1526ad2antrr 724 . . . . . . . 8 (((𝜑𝑥𝐷) ∧ 𝑗 ∈ {𝑔𝐷𝑔r𝑥}) → 𝑅 ∈ Ring)
1533psrbaglefi 21925 . . . . . . . . 9 ((𝑥f𝑗) ∈ 𝐷 → {𝐷r ≤ (𝑥f𝑗)} ∈ Fin)
15449, 153syl 17 . . . . . . . 8 (((𝜑𝑥𝐷) ∧ 𝑗 ∈ {𝑔𝐷𝑔r𝑥}) → {𝐷r ≤ (𝑥f𝑗)} ∈ Fin)
155 ovex 7449 . . . . . . . . . . . . 13 (ℕ0m 𝐼) ∈ V
1563, 155rab2ex 5334 . . . . . . . . . . . 12 {𝐷r ≤ (𝑥f𝑗)} ∈ V
157156mptex 7232 . . . . . . . . . . 11 (𝑛 ∈ {𝐷r ≤ (𝑥f𝑗)} ↦ ((𝑌𝑛)(.r𝑅)(𝑍‘((𝑥f𝑗) ∘f𝑛)))) ∈ V
158 funmpt 6589 . . . . . . . . . . 11 Fun (𝑛 ∈ {𝐷r ≤ (𝑥f𝑗)} ↦ ((𝑌𝑛)(.r𝑅)(𝑍‘((𝑥f𝑗) ∘f𝑛))))
159157, 158, 1073pm3.2i 1336 . . . . . . . . . 10 ((𝑛 ∈ {𝐷r ≤ (𝑥f𝑗)} ↦ ((𝑌𝑛)(.r𝑅)(𝑍‘((𝑥f𝑗) ∘f𝑛)))) ∈ V ∧ Fun (𝑛 ∈ {𝐷r ≤ (𝑥f𝑗)} ↦ ((𝑌𝑛)(.r𝑅)(𝑍‘((𝑥f𝑗) ∘f𝑛)))) ∧ (0g𝑅) ∈ V)
160159a1i 11 . . . . . . . . 9 (((𝜑𝑥𝐷) ∧ 𝑗 ∈ {𝑔𝐷𝑔r𝑥}) → ((𝑛 ∈ {𝐷r ≤ (𝑥f𝑗)} ↦ ((𝑌𝑛)(.r𝑅)(𝑍‘((𝑥f𝑗) ∘f𝑛)))) ∈ V ∧ Fun (𝑛 ∈ {𝐷r ≤ (𝑥f𝑗)} ↦ ((𝑌𝑛)(.r𝑅)(𝑍‘((𝑥f𝑗) ∘f𝑛)))) ∧ (0g𝑅) ∈ V))
161 suppssdm 8183 . . . . . . . . . . 11 ((𝑛 ∈ {𝐷r ≤ (𝑥f𝑗)} ↦ ((𝑌𝑛)(.r𝑅)(𝑍‘((𝑥f𝑗) ∘f𝑛)))) supp (0g𝑅)) ⊆ dom (𝑛 ∈ {𝐷r ≤ (𝑥f𝑗)} ↦ ((𝑌𝑛)(.r𝑅)(𝑍‘((𝑥f𝑗) ∘f𝑛))))
162 eqid 2726 . . . . . . . . . . . 12 (𝑛 ∈ {𝐷r ≤ (𝑥f𝑗)} ↦ ((𝑌𝑛)(.r𝑅)(𝑍‘((𝑥f𝑗) ∘f𝑛)))) = (𝑛 ∈ {𝐷r ≤ (𝑥f𝑗)} ↦ ((𝑌𝑛)(.r𝑅)(𝑍‘((𝑥f𝑗) ∘f𝑛))))
163162dmmptss 6244 . . . . . . . . . . 11 dom (𝑛 ∈ {𝐷r ≤ (𝑥f𝑗)} ↦ ((𝑌𝑛)(.r𝑅)(𝑍‘((𝑥f𝑗) ∘f𝑛)))) ⊆ {𝐷r ≤ (𝑥f𝑗)}
164161, 163sstri 3988 . . . . . . . . . 10 ((𝑛 ∈ {𝐷r ≤ (𝑥f𝑗)} ↦ ((𝑌𝑛)(.r𝑅)(𝑍‘((𝑥f𝑗) ∘f𝑛)))) supp (0g𝑅)) ⊆ {𝐷r ≤ (𝑥f𝑗)}
165164a1i 11 . . . . . . . . 9 (((𝜑𝑥𝐷) ∧ 𝑗 ∈ {𝑔𝐷𝑔r𝑥}) → ((𝑛 ∈ {𝐷r ≤ (𝑥f𝑗)} ↦ ((𝑌𝑛)(.r𝑅)(𝑍‘((𝑥f𝑗) ∘f𝑛)))) supp (0g𝑅)) ⊆ {𝐷r ≤ (𝑥f𝑗)})
166 suppssfifsupp 9416 . . . . . . . . 9 ((((𝑛 ∈ {𝐷r ≤ (𝑥f𝑗)} ↦ ((𝑌𝑛)(.r𝑅)(𝑍‘((𝑥f𝑗) ∘f𝑛)))) ∈ V ∧ Fun (𝑛 ∈ {𝐷r ≤ (𝑥f𝑗)} ↦ ((𝑌𝑛)(.r𝑅)(𝑍‘((𝑥f𝑗) ∘f𝑛)))) ∧ (0g𝑅) ∈ V) ∧ ({𝐷r ≤ (𝑥f𝑗)} ∈ Fin ∧ ((𝑛 ∈ {𝐷r ≤ (𝑥f𝑗)} ↦ ((𝑌𝑛)(.r𝑅)(𝑍‘((𝑥f𝑗) ∘f𝑛)))) supp (0g𝑅)) ⊆ {𝐷r ≤ (𝑥f𝑗)})) → (𝑛 ∈ {𝐷r ≤ (𝑥f𝑗)} ↦ ((𝑌𝑛)(.r𝑅)(𝑍‘((𝑥f𝑗) ∘f𝑛)))) finSupp (0g𝑅))
167160, 154, 165, 166syl12anc 835 . . . . . . . 8 (((𝜑𝑥𝐷) ∧ 𝑗 ∈ {𝑔𝐷𝑔r𝑥}) → (𝑛 ∈ {𝐷r ≤ (𝑥f𝑗)} ↦ ((𝑌𝑛)(.r𝑅)(𝑍‘((𝑥f𝑗) ∘f𝑛)))) finSupp (0g𝑅))
1682, 76, 22, 152, 154, 31, 58, 167gsummulc2 20292 . . . . . . 7 (((𝜑𝑥𝐷) ∧ 𝑗 ∈ {𝑔𝐷𝑔r𝑥}) → (𝑅 Σg (𝑛 ∈ {𝐷r ≤ (𝑥f𝑗)} ↦ ((𝑋𝑗)(.r𝑅)((𝑌𝑛)(.r𝑅)(𝑍‘((𝑥f𝑗) ∘f𝑛)))))) = ((𝑋𝑗)(.r𝑅)(𝑅 Σg (𝑛 ∈ {𝐷r ≤ (𝑥f𝑗)} ↦ ((𝑌𝑛)(.r𝑅)(𝑍‘((𝑥f𝑗) ∘f𝑛)))))))
169151, 168eqtr4d 2769 . . . . . 6 (((𝜑𝑥𝐷) ∧ 𝑗 ∈ {𝑔𝐷𝑔r𝑥}) → ((𝑋𝑗)(.r𝑅)((𝑌 × 𝑍)‘(𝑥f𝑗))) = (𝑅 Σg (𝑛 ∈ {𝐷r ≤ (𝑥f𝑗)} ↦ ((𝑋𝑗)(.r𝑅)((𝑌𝑛)(.r𝑅)(𝑍‘((𝑥f𝑗) ∘f𝑛)))))))
170169mpteq2dva 5245 . . . . 5 ((𝜑𝑥𝐷) → (𝑗 ∈ {𝑔𝐷𝑔r𝑥} ↦ ((𝑋𝑗)(.r𝑅)((𝑌 × 𝑍)‘(𝑥f𝑗)))) = (𝑗 ∈ {𝑔𝐷𝑔r𝑥} ↦ (𝑅 Σg (𝑛 ∈ {𝐷r ≤ (𝑥f𝑗)} ↦ ((𝑋𝑗)(.r𝑅)((𝑌𝑛)(.r𝑅)(𝑍‘((𝑥f𝑗) ∘f𝑛))))))))
171170oveq2d 7432 . . . 4 ((𝜑𝑥𝐷) → (𝑅 Σg (𝑗 ∈ {𝑔𝐷𝑔r𝑥} ↦ ((𝑋𝑗)(.r𝑅)((𝑌 × 𝑍)‘(𝑥f𝑗))))) = (𝑅 Σg (𝑗 ∈ {𝑔𝐷𝑔r𝑥} ↦ (𝑅 Σg (𝑛 ∈ {𝐷r ≤ (𝑥f𝑗)} ↦ ((𝑋𝑗)(.r𝑅)((𝑌𝑛)(.r𝑅)(𝑍‘((𝑥f𝑗) ∘f𝑛)))))))))
17266, 147, 1713eqtr4d 2776 . . 3 ((𝜑𝑥𝐷) → (𝑅 Σg (𝑘 ∈ {𝑔𝐷𝑔r𝑥} ↦ (((𝑋 × 𝑌)‘𝑘)(.r𝑅)(𝑍‘(𝑥f𝑘))))) = (𝑅 Σg (𝑗 ∈ {𝑔𝐷𝑔r𝑥} ↦ ((𝑋𝑗)(.r𝑅)((𝑌 × 𝑍)‘(𝑥f𝑗))))))
1739adantr 479 . . . 4 ((𝜑𝑥𝐷) → (𝑋 × 𝑌) ∈ 𝐵)
17410adantr 479 . . . 4 ((𝜑𝑥𝐷) → 𝑍𝐵)
1751, 4, 22, 5, 3, 173, 174, 19psrmulval 21949 . . 3 ((𝜑𝑥𝐷) → (((𝑋 × 𝑌) × 𝑍)‘𝑥) = (𝑅 Σg (𝑘 ∈ {𝑔𝐷𝑔r𝑥} ↦ (((𝑋 × 𝑌)‘𝑘)(.r𝑅)(𝑍‘(𝑥f𝑘))))))
1767adantr 479 . . . 4 ((𝜑𝑥𝐷) → 𝑋𝐵)
17714adantr 479 . . . 4 ((𝜑𝑥𝐷) → (𝑌 × 𝑍) ∈ 𝐵)
1781, 4, 22, 5, 3, 176, 177, 19psrmulval 21949 . . 3 ((𝜑𝑥𝐷) → ((𝑋 × (𝑌 × 𝑍))‘𝑥) = (𝑅 Σg (𝑗 ∈ {𝑔𝐷𝑔r𝑥} ↦ ((𝑋𝑗)(.r𝑅)((𝑌 × 𝑍)‘(𝑥f𝑗))))))
179172, 175, 1783eqtr4d 2776 . 2 ((𝜑𝑥𝐷) → (((𝑋 × 𝑌) × 𝑍)‘𝑥) = ((𝑋 × (𝑌 × 𝑍))‘𝑥))
18013, 17, 179eqfnfvd 7039 1 (𝜑 → ((𝑋 × 𝑌) × 𝑍) = (𝑋 × (𝑌 × 𝑍)))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wa 394  w3a 1084   = wceq 1534  wcel 2099  {crab 3419  Vcvv 3462  wss 3946   class class class wbr 5145  cmpt 5228  ccnv 5673  dom cdm 5674  cima 5677  Fun wfun 6540  wf 6542  cfv 6546  (class class class)co 7416  f cof 7680  r cofr 7681   supp csupp 8166  m cmap 8847  Fincfn 8966   finSupp cfsupp 9398  cc 11147  cle 11290  cmin 11485  cn 12258  0cn0 12518  Basecbs 17208  .rcmulr 17262  0gc0g 17449   Σg cgsu 17450  CMndccmn 19774  Ringcrg 20212   mPwSer cmps 21897
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1790  ax-4 1804  ax-5 1906  ax-6 1964  ax-7 2004  ax-8 2101  ax-9 2109  ax-10 2130  ax-11 2147  ax-12 2167  ax-ext 2697  ax-rep 5282  ax-sep 5296  ax-nul 5303  ax-pow 5361  ax-pr 5425  ax-un 7738  ax-cnex 11205  ax-resscn 11206  ax-1cn 11207  ax-icn 11208  ax-addcl 11209  ax-addrcl 11210  ax-mulcl 11211  ax-mulrcl 11212  ax-mulcom 11213  ax-addass 11214  ax-mulass 11215  ax-distr 11216  ax-i2m1 11217  ax-1ne0 11218  ax-1rid 11219  ax-rnegex 11220  ax-rrecex 11221  ax-cnre 11222  ax-pre-lttri 11223  ax-pre-lttrn 11224  ax-pre-ltadd 11225  ax-pre-mulgt0 11226
This theorem depends on definitions:  df-bi 206  df-an 395  df-or 846  df-3or 1085  df-3an 1086  df-tru 1537  df-fal 1547  df-ex 1775  df-nf 1779  df-sb 2061  df-mo 2529  df-eu 2558  df-clab 2704  df-cleq 2718  df-clel 2803  df-nfc 2878  df-ne 2931  df-nel 3037  df-ral 3052  df-rex 3061  df-rmo 3364  df-reu 3365  df-rab 3420  df-v 3464  df-sbc 3776  df-csb 3892  df-dif 3949  df-un 3951  df-in 3953  df-ss 3963  df-pss 3966  df-nul 4323  df-if 4524  df-pw 4599  df-sn 4624  df-pr 4626  df-tp 4628  df-op 4630  df-uni 4906  df-int 4947  df-iun 4995  df-iin 4996  df-br 5146  df-opab 5208  df-mpt 5229  df-tr 5263  df-id 5572  df-eprel 5578  df-po 5586  df-so 5587  df-fr 5629  df-se 5630  df-we 5631  df-xp 5680  df-rel 5681  df-cnv 5682  df-co 5683  df-dm 5684  df-rn 5685  df-res 5686  df-ima 5687  df-pred 6304  df-ord 6371  df-on 6372  df-lim 6373  df-suc 6374  df-iota 6498  df-fun 6548  df-fn 6549  df-f 6550  df-f1 6551  df-fo 6552  df-f1o 6553  df-fv 6554  df-isom 6555  df-riota 7372  df-ov 7419  df-oprab 7420  df-mpo 7421  df-of 7682  df-ofr 7683  df-om 7869  df-1st 7995  df-2nd 7996  df-supp 8167  df-frecs 8288  df-wrecs 8319  df-recs 8393  df-rdg 8432  df-1o 8488  df-2o 8489  df-er 8726  df-map 8849  df-pm 8850  df-ixp 8919  df-en 8967  df-dom 8968  df-sdom 8969  df-fin 8970  df-fsupp 9399  df-oi 9546  df-card 9975  df-pnf 11291  df-mnf 11292  df-xr 11293  df-ltxr 11294  df-le 11295  df-sub 11487  df-neg 11488  df-nn 12259  df-2 12321  df-3 12322  df-4 12323  df-5 12324  df-6 12325  df-7 12326  df-8 12327  df-9 12328  df-n0 12519  df-z 12605  df-uz 12869  df-fz 13533  df-fzo 13676  df-seq 14016  df-hash 14343  df-struct 17144  df-sets 17161  df-slot 17179  df-ndx 17191  df-base 17209  df-ress 17238  df-plusg 17274  df-mulr 17275  df-sca 17277  df-vsca 17278  df-tset 17280  df-0g 17451  df-gsum 17452  df-mre 17594  df-mrc 17595  df-acs 17597  df-mgm 18628  df-sgrp 18707  df-mnd 18723  df-mhm 18768  df-submnd 18769  df-grp 18926  df-minusg 18927  df-mulg 19058  df-ghm 19203  df-cntz 19307  df-cmn 19776  df-abl 19777  df-mgp 20114  df-ur 20161  df-ring 20214  df-psr 21902
This theorem is referenced by:  psrring  21975
  Copyright terms: Public domain W3C validator