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

Theorem gsumdixp 18829
Description: Distribute a binary product of sums to a sum of binary products in a ring. (Contributed by Mario Carneiro, 8-Mar-2015.) (Revised by AV, 10-Jul-2019.)
Hypotheses
Ref Expression
gsumdixp.b 𝐵 = (Base‘𝑅)
gsumdixp.t · = (.r𝑅)
gsumdixp.z 0 = (0g𝑅)
gsumdixp.i (𝜑𝐼𝑉)
gsumdixp.j (𝜑𝐽𝑊)
gsumdixp.r (𝜑𝑅 ∈ Ring)
gsumdixp.x ((𝜑𝑥𝐼) → 𝑋𝐵)
gsumdixp.y ((𝜑𝑦𝐽) → 𝑌𝐵)
gsumdixp.xf (𝜑 → (𝑥𝐼𝑋) finSupp 0 )
gsumdixp.yf (𝜑 → (𝑦𝐽𝑌) finSupp 0 )
Assertion
Ref Expression
gsumdixp (𝜑 → ((𝑅 Σg (𝑥𝐼𝑋)) · (𝑅 Σg (𝑦𝐽𝑌))) = (𝑅 Σg (𝑥𝐼, 𝑦𝐽 ↦ (𝑋 · 𝑌))))
Distinct variable groups:   𝜑,𝑥,𝑦   𝑥,𝐵,𝑦   𝑥,𝐼,𝑦   𝑥,𝐽,𝑦   𝑥,𝑅   𝑥, · ,𝑦   𝑦,𝑋   𝑥,𝑌
Allowed substitution hints:   𝑅(𝑦)   𝑉(𝑥,𝑦)   𝑊(𝑥,𝑦)   𝑋(𝑥)   𝑌(𝑦)   0 (𝑥,𝑦)

Proof of Theorem gsumdixp
Dummy variables 𝑖 𝑗 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 gsumdixp.b . . . 4 𝐵 = (Base‘𝑅)
2 gsumdixp.z . . . 4 0 = (0g𝑅)
3 gsumdixp.r . . . . 5 (𝜑𝑅 ∈ Ring)
4 ringcmn 18801 . . . . 5 (𝑅 ∈ Ring → 𝑅 ∈ CMnd)
53, 4syl 17 . . . 4 (𝜑𝑅 ∈ CMnd)
6 gsumdixp.i . . . 4 (𝜑𝐼𝑉)
7 gsumdixp.j . . . . 5 (𝜑𝐽𝑊)
87adantr 472 . . . 4 ((𝜑𝑖𝐼) → 𝐽𝑊)
93adantr 472 . . . . 5 ((𝜑 ∧ (𝑖𝐼𝑗𝐽)) → 𝑅 ∈ Ring)
10 gsumdixp.x . . . . . . 7 ((𝜑𝑥𝐼) → 𝑋𝐵)
11 eqid 2760 . . . . . . 7 (𝑥𝐼𝑋) = (𝑥𝐼𝑋)
1210, 11fmptd 6549 . . . . . 6 (𝜑 → (𝑥𝐼𝑋):𝐼𝐵)
13 simpl 474 . . . . . 6 ((𝑖𝐼𝑗𝐽) → 𝑖𝐼)
14 ffvelrn 6521 . . . . . 6 (((𝑥𝐼𝑋):𝐼𝐵𝑖𝐼) → ((𝑥𝐼𝑋)‘𝑖) ∈ 𝐵)
1512, 13, 14syl2an 495 . . . . 5 ((𝜑 ∧ (𝑖𝐼𝑗𝐽)) → ((𝑥𝐼𝑋)‘𝑖) ∈ 𝐵)
16 gsumdixp.y . . . . . . 7 ((𝜑𝑦𝐽) → 𝑌𝐵)
17 eqid 2760 . . . . . . 7 (𝑦𝐽𝑌) = (𝑦𝐽𝑌)
1816, 17fmptd 6549 . . . . . 6 (𝜑 → (𝑦𝐽𝑌):𝐽𝐵)
19 simpr 479 . . . . . 6 ((𝑖𝐼𝑗𝐽) → 𝑗𝐽)
20 ffvelrn 6521 . . . . . 6 (((𝑦𝐽𝑌):𝐽𝐵𝑗𝐽) → ((𝑦𝐽𝑌)‘𝑗) ∈ 𝐵)
2118, 19, 20syl2an 495 . . . . 5 ((𝜑 ∧ (𝑖𝐼𝑗𝐽)) → ((𝑦𝐽𝑌)‘𝑗) ∈ 𝐵)
22 gsumdixp.t . . . . . 6 · = (.r𝑅)
231, 22ringcl 18781 . . . . 5 ((𝑅 ∈ Ring ∧ ((𝑥𝐼𝑋)‘𝑖) ∈ 𝐵 ∧ ((𝑦𝐽𝑌)‘𝑗) ∈ 𝐵) → (((𝑥𝐼𝑋)‘𝑖) · ((𝑦𝐽𝑌)‘𝑗)) ∈ 𝐵)
249, 15, 21, 23syl3anc 1477 . . . 4 ((𝜑 ∧ (𝑖𝐼𝑗𝐽)) → (((𝑥𝐼𝑋)‘𝑖) · ((𝑦𝐽𝑌)‘𝑗)) ∈ 𝐵)
25 gsumdixp.xf . . . . . 6 (𝜑 → (𝑥𝐼𝑋) finSupp 0 )
2625fsuppimpd 8449 . . . . 5 (𝜑 → ((𝑥𝐼𝑋) supp 0 ) ∈ Fin)
27 gsumdixp.yf . . . . . 6 (𝜑 → (𝑦𝐽𝑌) finSupp 0 )
2827fsuppimpd 8449 . . . . 5 (𝜑 → ((𝑦𝐽𝑌) supp 0 ) ∈ Fin)
29 xpfi 8398 . . . . 5 ((((𝑥𝐼𝑋) supp 0 ) ∈ Fin ∧ ((𝑦𝐽𝑌) supp 0 ) ∈ Fin) → (((𝑥𝐼𝑋) supp 0 ) × ((𝑦𝐽𝑌) supp 0 )) ∈ Fin)
3026, 28, 29syl2anc 696 . . . 4 (𝜑 → (((𝑥𝐼𝑋) supp 0 ) × ((𝑦𝐽𝑌) supp 0 )) ∈ Fin)
31 ianor 510 . . . . . . 7 (¬ (𝑖 ∈ ((𝑥𝐼𝑋) supp 0 ) ∧ 𝑗 ∈ ((𝑦𝐽𝑌) supp 0 )) ↔ (¬ 𝑖 ∈ ((𝑥𝐼𝑋) supp 0 ) ∨ ¬ 𝑗 ∈ ((𝑦𝐽𝑌) supp 0 )))
32 brxp 5304 . . . . . . 7 (𝑖(((𝑥𝐼𝑋) supp 0 ) × ((𝑦𝐽𝑌) supp 0 ))𝑗 ↔ (𝑖 ∈ ((𝑥𝐼𝑋) supp 0 ) ∧ 𝑗 ∈ ((𝑦𝐽𝑌) supp 0 )))
3331, 32xchnxbir 322 . . . . . 6 𝑖(((𝑥𝐼𝑋) supp 0 ) × ((𝑦𝐽𝑌) supp 0 ))𝑗 ↔ (¬ 𝑖 ∈ ((𝑥𝐼𝑋) supp 0 ) ∨ ¬ 𝑗 ∈ ((𝑦𝐽𝑌) supp 0 )))
34 simprl 811 . . . . . . . . . . 11 ((𝜑 ∧ (𝑖𝐼𝑗𝐽)) → 𝑖𝐼)
35 eldif 3725 . . . . . . . . . . . 12 (𝑖 ∈ (𝐼 ∖ ((𝑥𝐼𝑋) supp 0 )) ↔ (𝑖𝐼 ∧ ¬ 𝑖 ∈ ((𝑥𝐼𝑋) supp 0 )))
3635biimpri 218 . . . . . . . . . . 11 ((𝑖𝐼 ∧ ¬ 𝑖 ∈ ((𝑥𝐼𝑋) supp 0 )) → 𝑖 ∈ (𝐼 ∖ ((𝑥𝐼𝑋) supp 0 )))
3734, 36sylan 489 . . . . . . . . . 10 (((𝜑 ∧ (𝑖𝐼𝑗𝐽)) ∧ ¬ 𝑖 ∈ ((𝑥𝐼𝑋) supp 0 )) → 𝑖 ∈ (𝐼 ∖ ((𝑥𝐼𝑋) supp 0 )))
3812adantr 472 . . . . . . . . . . 11 ((𝜑 ∧ (𝑖𝐼𝑗𝐽)) → (𝑥𝐼𝑋):𝐼𝐵)
39 ssid 3765 . . . . . . . . . . . 12 ((𝑥𝐼𝑋) supp 0 ) ⊆ ((𝑥𝐼𝑋) supp 0 )
4039a1i 11 . . . . . . . . . . 11 ((𝜑 ∧ (𝑖𝐼𝑗𝐽)) → ((𝑥𝐼𝑋) supp 0 ) ⊆ ((𝑥𝐼𝑋) supp 0 ))
416adantr 472 . . . . . . . . . . 11 ((𝜑 ∧ (𝑖𝐼𝑗𝐽)) → 𝐼𝑉)
42 fvex 6363 . . . . . . . . . . . . 13 (0g𝑅) ∈ V
432, 42eqeltri 2835 . . . . . . . . . . . 12 0 ∈ V
4443a1i 11 . . . . . . . . . . 11 ((𝜑 ∧ (𝑖𝐼𝑗𝐽)) → 0 ∈ V)
4538, 40, 41, 44suppssr 7496 . . . . . . . . . 10 (((𝜑 ∧ (𝑖𝐼𝑗𝐽)) ∧ 𝑖 ∈ (𝐼 ∖ ((𝑥𝐼𝑋) supp 0 ))) → ((𝑥𝐼𝑋)‘𝑖) = 0 )
4637, 45syldan 488 . . . . . . . . 9 (((𝜑 ∧ (𝑖𝐼𝑗𝐽)) ∧ ¬ 𝑖 ∈ ((𝑥𝐼𝑋) supp 0 )) → ((𝑥𝐼𝑋)‘𝑖) = 0 )
4746oveq1d 6829 . . . . . . . 8 (((𝜑 ∧ (𝑖𝐼𝑗𝐽)) ∧ ¬ 𝑖 ∈ ((𝑥𝐼𝑋) supp 0 )) → (((𝑥𝐼𝑋)‘𝑖) · ((𝑦𝐽𝑌)‘𝑗)) = ( 0 · ((𝑦𝐽𝑌)‘𝑗)))
481, 22, 2ringlz 18807 . . . . . . . . . 10 ((𝑅 ∈ Ring ∧ ((𝑦𝐽𝑌)‘𝑗) ∈ 𝐵) → ( 0 · ((𝑦𝐽𝑌)‘𝑗)) = 0 )
499, 21, 48syl2anc 696 . . . . . . . . 9 ((𝜑 ∧ (𝑖𝐼𝑗𝐽)) → ( 0 · ((𝑦𝐽𝑌)‘𝑗)) = 0 )
5049adantr 472 . . . . . . . 8 (((𝜑 ∧ (𝑖𝐼𝑗𝐽)) ∧ ¬ 𝑖 ∈ ((𝑥𝐼𝑋) supp 0 )) → ( 0 · ((𝑦𝐽𝑌)‘𝑗)) = 0 )
5147, 50eqtrd 2794 . . . . . . 7 (((𝜑 ∧ (𝑖𝐼𝑗𝐽)) ∧ ¬ 𝑖 ∈ ((𝑥𝐼𝑋) supp 0 )) → (((𝑥𝐼𝑋)‘𝑖) · ((𝑦𝐽𝑌)‘𝑗)) = 0 )
52 simprr 813 . . . . . . . . . . 11 ((𝜑 ∧ (𝑖𝐼𝑗𝐽)) → 𝑗𝐽)
53 eldif 3725 . . . . . . . . . . . 12 (𝑗 ∈ (𝐽 ∖ ((𝑦𝐽𝑌) supp 0 )) ↔ (𝑗𝐽 ∧ ¬ 𝑗 ∈ ((𝑦𝐽𝑌) supp 0 )))
5453biimpri 218 . . . . . . . . . . 11 ((𝑗𝐽 ∧ ¬ 𝑗 ∈ ((𝑦𝐽𝑌) supp 0 )) → 𝑗 ∈ (𝐽 ∖ ((𝑦𝐽𝑌) supp 0 )))
5552, 54sylan 489 . . . . . . . . . 10 (((𝜑 ∧ (𝑖𝐼𝑗𝐽)) ∧ ¬ 𝑗 ∈ ((𝑦𝐽𝑌) supp 0 )) → 𝑗 ∈ (𝐽 ∖ ((𝑦𝐽𝑌) supp 0 )))
5618adantr 472 . . . . . . . . . . 11 ((𝜑 ∧ (𝑖𝐼𝑗𝐽)) → (𝑦𝐽𝑌):𝐽𝐵)
57 ssid 3765 . . . . . . . . . . . 12 ((𝑦𝐽𝑌) supp 0 ) ⊆ ((𝑦𝐽𝑌) supp 0 )
5857a1i 11 . . . . . . . . . . 11 ((𝜑 ∧ (𝑖𝐼𝑗𝐽)) → ((𝑦𝐽𝑌) supp 0 ) ⊆ ((𝑦𝐽𝑌) supp 0 ))
597adantr 472 . . . . . . . . . . 11 ((𝜑 ∧ (𝑖𝐼𝑗𝐽)) → 𝐽𝑊)
6056, 58, 59, 44suppssr 7496 . . . . . . . . . 10 (((𝜑 ∧ (𝑖𝐼𝑗𝐽)) ∧ 𝑗 ∈ (𝐽 ∖ ((𝑦𝐽𝑌) supp 0 ))) → ((𝑦𝐽𝑌)‘𝑗) = 0 )
6155, 60syldan 488 . . . . . . . . 9 (((𝜑 ∧ (𝑖𝐼𝑗𝐽)) ∧ ¬ 𝑗 ∈ ((𝑦𝐽𝑌) supp 0 )) → ((𝑦𝐽𝑌)‘𝑗) = 0 )
6261oveq2d 6830 . . . . . . . 8 (((𝜑 ∧ (𝑖𝐼𝑗𝐽)) ∧ ¬ 𝑗 ∈ ((𝑦𝐽𝑌) supp 0 )) → (((𝑥𝐼𝑋)‘𝑖) · ((𝑦𝐽𝑌)‘𝑗)) = (((𝑥𝐼𝑋)‘𝑖) · 0 ))
631, 22, 2ringrz 18808 . . . . . . . . . 10 ((𝑅 ∈ Ring ∧ ((𝑥𝐼𝑋)‘𝑖) ∈ 𝐵) → (((𝑥𝐼𝑋)‘𝑖) · 0 ) = 0 )
649, 15, 63syl2anc 696 . . . . . . . . 9 ((𝜑 ∧ (𝑖𝐼𝑗𝐽)) → (((𝑥𝐼𝑋)‘𝑖) · 0 ) = 0 )
6564adantr 472 . . . . . . . 8 (((𝜑 ∧ (𝑖𝐼𝑗𝐽)) ∧ ¬ 𝑗 ∈ ((𝑦𝐽𝑌) supp 0 )) → (((𝑥𝐼𝑋)‘𝑖) · 0 ) = 0 )
6662, 65eqtrd 2794 . . . . . . 7 (((𝜑 ∧ (𝑖𝐼𝑗𝐽)) ∧ ¬ 𝑗 ∈ ((𝑦𝐽𝑌) supp 0 )) → (((𝑥𝐼𝑋)‘𝑖) · ((𝑦𝐽𝑌)‘𝑗)) = 0 )
6751, 66jaodan 861 . . . . . 6 (((𝜑 ∧ (𝑖𝐼𝑗𝐽)) ∧ (¬ 𝑖 ∈ ((𝑥𝐼𝑋) supp 0 ) ∨ ¬ 𝑗 ∈ ((𝑦𝐽𝑌) supp 0 ))) → (((𝑥𝐼𝑋)‘𝑖) · ((𝑦𝐽𝑌)‘𝑗)) = 0 )
6833, 67sylan2b 493 . . . . 5 (((𝜑 ∧ (𝑖𝐼𝑗𝐽)) ∧ ¬ 𝑖(((𝑥𝐼𝑋) supp 0 ) × ((𝑦𝐽𝑌) supp 0 ))𝑗) → (((𝑥𝐼𝑋)‘𝑖) · ((𝑦𝐽𝑌)‘𝑗)) = 0 )
6968anasss 682 . . . 4 ((𝜑 ∧ ((𝑖𝐼𝑗𝐽) ∧ ¬ 𝑖(((𝑥𝐼𝑋) supp 0 ) × ((𝑦𝐽𝑌) supp 0 ))𝑗)) → (((𝑥𝐼𝑋)‘𝑖) · ((𝑦𝐽𝑌)‘𝑗)) = 0 )
701, 2, 5, 6, 8, 24, 30, 69gsum2d2 18593 . . 3 (𝜑 → (𝑅 Σg (𝑖𝐼, 𝑗𝐽 ↦ (((𝑥𝐼𝑋)‘𝑖) · ((𝑦𝐽𝑌)‘𝑗)))) = (𝑅 Σg (𝑖𝐼 ↦ (𝑅 Σg (𝑗𝐽 ↦ (((𝑥𝐼𝑋)‘𝑖) · ((𝑦𝐽𝑌)‘𝑗)))))))
71 nffvmpt1 6361 . . . . . . 7 𝑥((𝑥𝐼𝑋)‘𝑖)
72 nfcv 2902 . . . . . . 7 𝑥 ·
73 nfcv 2902 . . . . . . 7 𝑥((𝑦𝐽𝑌)‘𝑗)
7471, 72, 73nfov 6840 . . . . . 6 𝑥(((𝑥𝐼𝑋)‘𝑖) · ((𝑦𝐽𝑌)‘𝑗))
75 nfcv 2902 . . . . . . 7 𝑦((𝑥𝐼𝑋)‘𝑖)
76 nfcv 2902 . . . . . . 7 𝑦 ·
77 nffvmpt1 6361 . . . . . . 7 𝑦((𝑦𝐽𝑌)‘𝑗)
7875, 76, 77nfov 6840 . . . . . 6 𝑦(((𝑥𝐼𝑋)‘𝑖) · ((𝑦𝐽𝑌)‘𝑗))
79 nfcv 2902 . . . . . 6 𝑖(((𝑥𝐼𝑋)‘𝑥) · ((𝑦𝐽𝑌)‘𝑦))
80 nfcv 2902 . . . . . 6 𝑗(((𝑥𝐼𝑋)‘𝑥) · ((𝑦𝐽𝑌)‘𝑦))
81 fveq2 6353 . . . . . . 7 (𝑖 = 𝑥 → ((𝑥𝐼𝑋)‘𝑖) = ((𝑥𝐼𝑋)‘𝑥))
82 fveq2 6353 . . . . . . 7 (𝑗 = 𝑦 → ((𝑦𝐽𝑌)‘𝑗) = ((𝑦𝐽𝑌)‘𝑦))
8381, 82oveqan12d 6833 . . . . . 6 ((𝑖 = 𝑥𝑗 = 𝑦) → (((𝑥𝐼𝑋)‘𝑖) · ((𝑦𝐽𝑌)‘𝑗)) = (((𝑥𝐼𝑋)‘𝑥) · ((𝑦𝐽𝑌)‘𝑦)))
8474, 78, 79, 80, 83cbvmpt2 6900 . . . . 5 (𝑖𝐼, 𝑗𝐽 ↦ (((𝑥𝐼𝑋)‘𝑖) · ((𝑦𝐽𝑌)‘𝑗))) = (𝑥𝐼, 𝑦𝐽 ↦ (((𝑥𝐼𝑋)‘𝑥) · ((𝑦𝐽𝑌)‘𝑦)))
85 simp2 1132 . . . . . . . 8 ((𝜑𝑥𝐼𝑦𝐽) → 𝑥𝐼)
86103adant3 1127 . . . . . . . 8 ((𝜑𝑥𝐼𝑦𝐽) → 𝑋𝐵)
8711fvmpt2 6454 . . . . . . . 8 ((𝑥𝐼𝑋𝐵) → ((𝑥𝐼𝑋)‘𝑥) = 𝑋)
8885, 86, 87syl2anc 696 . . . . . . 7 ((𝜑𝑥𝐼𝑦𝐽) → ((𝑥𝐼𝑋)‘𝑥) = 𝑋)
89 simp3 1133 . . . . . . . 8 ((𝜑𝑥𝐼𝑦𝐽) → 𝑦𝐽)
90163adant2 1126 . . . . . . . 8 ((𝜑𝑥𝐼𝑦𝐽) → 𝑌𝐵)
9117fvmpt2 6454 . . . . . . . 8 ((𝑦𝐽𝑌𝐵) → ((𝑦𝐽𝑌)‘𝑦) = 𝑌)
9289, 90, 91syl2anc 696 . . . . . . 7 ((𝜑𝑥𝐼𝑦𝐽) → ((𝑦𝐽𝑌)‘𝑦) = 𝑌)
9388, 92oveq12d 6832 . . . . . 6 ((𝜑𝑥𝐼𝑦𝐽) → (((𝑥𝐼𝑋)‘𝑥) · ((𝑦𝐽𝑌)‘𝑦)) = (𝑋 · 𝑌))
9493mpt2eq3dva 6885 . . . . 5 (𝜑 → (𝑥𝐼, 𝑦𝐽 ↦ (((𝑥𝐼𝑋)‘𝑥) · ((𝑦𝐽𝑌)‘𝑦))) = (𝑥𝐼, 𝑦𝐽 ↦ (𝑋 · 𝑌)))
9584, 94syl5eq 2806 . . . 4 (𝜑 → (𝑖𝐼, 𝑗𝐽 ↦ (((𝑥𝐼𝑋)‘𝑖) · ((𝑦𝐽𝑌)‘𝑗))) = (𝑥𝐼, 𝑦𝐽 ↦ (𝑋 · 𝑌)))
9695oveq2d 6830 . . 3 (𝜑 → (𝑅 Σg (𝑖𝐼, 𝑗𝐽 ↦ (((𝑥𝐼𝑋)‘𝑖) · ((𝑦𝐽𝑌)‘𝑗)))) = (𝑅 Σg (𝑥𝐼, 𝑦𝐽 ↦ (𝑋 · 𝑌))))
97 nfcv 2902 . . . . . . 7 𝑥𝑅
98 nfcv 2902 . . . . . . 7 𝑥 Σg
99 nfcv 2902 . . . . . . . 8 𝑥𝐽
10099, 74nfmpt 4898 . . . . . . 7 𝑥(𝑗𝐽 ↦ (((𝑥𝐼𝑋)‘𝑖) · ((𝑦𝐽𝑌)‘𝑗)))
10197, 98, 100nfov 6840 . . . . . 6 𝑥(𝑅 Σg (𝑗𝐽 ↦ (((𝑥𝐼𝑋)‘𝑖) · ((𝑦𝐽𝑌)‘𝑗))))
102 nfcv 2902 . . . . . 6 𝑖(𝑅 Σg (𝑦𝐽 ↦ (((𝑥𝐼𝑋)‘𝑥) · ((𝑦𝐽𝑌)‘𝑦))))
10381oveq1d 6829 . . . . . . . . 9 (𝑖 = 𝑥 → (((𝑥𝐼𝑋)‘𝑖) · ((𝑦𝐽𝑌)‘𝑗)) = (((𝑥𝐼𝑋)‘𝑥) · ((𝑦𝐽𝑌)‘𝑗)))
104103mpteq2dv 4897 . . . . . . . 8 (𝑖 = 𝑥 → (𝑗𝐽 ↦ (((𝑥𝐼𝑋)‘𝑖) · ((𝑦𝐽𝑌)‘𝑗))) = (𝑗𝐽 ↦ (((𝑥𝐼𝑋)‘𝑥) · ((𝑦𝐽𝑌)‘𝑗))))
105 nfcv 2902 . . . . . . . . . 10 𝑦((𝑥𝐼𝑋)‘𝑥)
106105, 76, 77nfov 6840 . . . . . . . . 9 𝑦(((𝑥𝐼𝑋)‘𝑥) · ((𝑦𝐽𝑌)‘𝑗))
10782oveq2d 6830 . . . . . . . . 9 (𝑗 = 𝑦 → (((𝑥𝐼𝑋)‘𝑥) · ((𝑦𝐽𝑌)‘𝑗)) = (((𝑥𝐼𝑋)‘𝑥) · ((𝑦𝐽𝑌)‘𝑦)))
108106, 80, 107cbvmpt 4901 . . . . . . . 8 (𝑗𝐽 ↦ (((𝑥𝐼𝑋)‘𝑥) · ((𝑦𝐽𝑌)‘𝑗))) = (𝑦𝐽 ↦ (((𝑥𝐼𝑋)‘𝑥) · ((𝑦𝐽𝑌)‘𝑦)))
109104, 108syl6eq 2810 . . . . . . 7 (𝑖 = 𝑥 → (𝑗𝐽 ↦ (((𝑥𝐼𝑋)‘𝑖) · ((𝑦𝐽𝑌)‘𝑗))) = (𝑦𝐽 ↦ (((𝑥𝐼𝑋)‘𝑥) · ((𝑦𝐽𝑌)‘𝑦))))
110109oveq2d 6830 . . . . . 6 (𝑖 = 𝑥 → (𝑅 Σg (𝑗𝐽 ↦ (((𝑥𝐼𝑋)‘𝑖) · ((𝑦𝐽𝑌)‘𝑗)))) = (𝑅 Σg (𝑦𝐽 ↦ (((𝑥𝐼𝑋)‘𝑥) · ((𝑦𝐽𝑌)‘𝑦)))))
111101, 102, 110cbvmpt 4901 . . . . 5 (𝑖𝐼 ↦ (𝑅 Σg (𝑗𝐽 ↦ (((𝑥𝐼𝑋)‘𝑖) · ((𝑦𝐽𝑌)‘𝑗))))) = (𝑥𝐼 ↦ (𝑅 Σg (𝑦𝐽 ↦ (((𝑥𝐼𝑋)‘𝑥) · ((𝑦𝐽𝑌)‘𝑦)))))
112933expa 1112 . . . . . . . 8 (((𝜑𝑥𝐼) ∧ 𝑦𝐽) → (((𝑥𝐼𝑋)‘𝑥) · ((𝑦𝐽𝑌)‘𝑦)) = (𝑋 · 𝑌))
113112mpteq2dva 4896 . . . . . . 7 ((𝜑𝑥𝐼) → (𝑦𝐽 ↦ (((𝑥𝐼𝑋)‘𝑥) · ((𝑦𝐽𝑌)‘𝑦))) = (𝑦𝐽 ↦ (𝑋 · 𝑌)))
114113oveq2d 6830 . . . . . 6 ((𝜑𝑥𝐼) → (𝑅 Σg (𝑦𝐽 ↦ (((𝑥𝐼𝑋)‘𝑥) · ((𝑦𝐽𝑌)‘𝑦)))) = (𝑅 Σg (𝑦𝐽 ↦ (𝑋 · 𝑌))))
115114mpteq2dva 4896 . . . . 5 (𝜑 → (𝑥𝐼 ↦ (𝑅 Σg (𝑦𝐽 ↦ (((𝑥𝐼𝑋)‘𝑥) · ((𝑦𝐽𝑌)‘𝑦))))) = (𝑥𝐼 ↦ (𝑅 Σg (𝑦𝐽 ↦ (𝑋 · 𝑌)))))
116111, 115syl5eq 2806 . . . 4 (𝜑 → (𝑖𝐼 ↦ (𝑅 Σg (𝑗𝐽 ↦ (((𝑥𝐼𝑋)‘𝑖) · ((𝑦𝐽𝑌)‘𝑗))))) = (𝑥𝐼 ↦ (𝑅 Σg (𝑦𝐽 ↦ (𝑋 · 𝑌)))))
117116oveq2d 6830 . . 3 (𝜑 → (𝑅 Σg (𝑖𝐼 ↦ (𝑅 Σg (𝑗𝐽 ↦ (((𝑥𝐼𝑋)‘𝑖) · ((𝑦𝐽𝑌)‘𝑗)))))) = (𝑅 Σg (𝑥𝐼 ↦ (𝑅 Σg (𝑦𝐽 ↦ (𝑋 · 𝑌))))))
11870, 96, 1173eqtr3d 2802 . 2 (𝜑 → (𝑅 Σg (𝑥𝐼, 𝑦𝐽 ↦ (𝑋 · 𝑌))) = (𝑅 Σg (𝑥𝐼 ↦ (𝑅 Σg (𝑦𝐽 ↦ (𝑋 · 𝑌))))))
119 eqid 2760 . . . . 5 (+g𝑅) = (+g𝑅)
1203adantr 472 . . . . 5 ((𝜑𝑥𝐼) → 𝑅 ∈ Ring)
1217adantr 472 . . . . 5 ((𝜑𝑥𝐼) → 𝐽𝑊)
12216adantlr 753 . . . . 5 (((𝜑𝑥𝐼) ∧ 𝑦𝐽) → 𝑌𝐵)
12327adantr 472 . . . . 5 ((𝜑𝑥𝐼) → (𝑦𝐽𝑌) finSupp 0 )
1241, 2, 119, 22, 120, 121, 10, 122, 123gsummulc2 18827 . . . 4 ((𝜑𝑥𝐼) → (𝑅 Σg (𝑦𝐽 ↦ (𝑋 · 𝑌))) = (𝑋 · (𝑅 Σg (𝑦𝐽𝑌))))
125124mpteq2dva 4896 . . 3 (𝜑 → (𝑥𝐼 ↦ (𝑅 Σg (𝑦𝐽 ↦ (𝑋 · 𝑌)))) = (𝑥𝐼 ↦ (𝑋 · (𝑅 Σg (𝑦𝐽𝑌)))))
126125oveq2d 6830 . 2 (𝜑 → (𝑅 Σg (𝑥𝐼 ↦ (𝑅 Σg (𝑦𝐽 ↦ (𝑋 · 𝑌))))) = (𝑅 Σg (𝑥𝐼 ↦ (𝑋 · (𝑅 Σg (𝑦𝐽𝑌))))))
1271, 2, 5, 7, 18, 27gsumcl 18536 . . 3 (𝜑 → (𝑅 Σg (𝑦𝐽𝑌)) ∈ 𝐵)
1281, 2, 119, 22, 3, 6, 127, 10, 25gsummulc1 18826 . 2 (𝜑 → (𝑅 Σg (𝑥𝐼 ↦ (𝑋 · (𝑅 Σg (𝑦𝐽𝑌))))) = ((𝑅 Σg (𝑥𝐼𝑋)) · (𝑅 Σg (𝑦𝐽𝑌))))
129118, 126, 1283eqtrrd 2799 1 (𝜑 → ((𝑅 Σg (𝑥𝐼𝑋)) · (𝑅 Σg (𝑦𝐽𝑌))) = (𝑅 Σg (𝑥𝐼, 𝑦𝐽 ↦ (𝑋 · 𝑌))))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wo 382  wa 383  w3a 1072   = wceq 1632  wcel 2139  Vcvv 3340  cdif 3712  wss 3715   class class class wbr 4804  cmpt 4881   × cxp 5264  wf 6045  cfv 6049  (class class class)co 6814  cmpt2 6816   supp csupp 7464  Fincfn 8123   finSupp cfsupp 8442  Basecbs 16079  +gcplusg 16163  .rcmulr 16164  0gc0g 16322   Σg cgsu 16323  CMndccmn 18413  Ringcrg 18767
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1871  ax-4 1886  ax-5 1988  ax-6 2054  ax-7 2090  ax-8 2141  ax-9 2148  ax-10 2168  ax-11 2183  ax-12 2196  ax-13 2391  ax-ext 2740  ax-rep 4923  ax-sep 4933  ax-nul 4941  ax-pow 4992  ax-pr 5055  ax-un 7115  ax-inf2 8713  ax-cnex 10204  ax-resscn 10205  ax-1cn 10206  ax-icn 10207  ax-addcl 10208  ax-addrcl 10209  ax-mulcl 10210  ax-mulrcl 10211  ax-mulcom 10212  ax-addass 10213  ax-mulass 10214  ax-distr 10215  ax-i2m1 10216  ax-1ne0 10217  ax-1rid 10218  ax-rnegex 10219  ax-rrecex 10220  ax-cnre 10221  ax-pre-lttri 10222  ax-pre-lttrn 10223  ax-pre-ltadd 10224  ax-pre-mulgt0 10225
This theorem depends on definitions:  df-bi 197  df-or 384  df-an 385  df-3or 1073  df-3an 1074  df-tru 1635  df-ex 1854  df-nf 1859  df-sb 2047  df-eu 2611  df-mo 2612  df-clab 2747  df-cleq 2753  df-clel 2756  df-nfc 2891  df-ne 2933  df-nel 3036  df-ral 3055  df-rex 3056  df-reu 3057  df-rmo 3058  df-rab 3059  df-v 3342  df-sbc 3577  df-csb 3675  df-dif 3718  df-un 3720  df-in 3722  df-ss 3729  df-pss 3731  df-nul 4059  df-if 4231  df-pw 4304  df-sn 4322  df-pr 4324  df-tp 4326  df-op 4328  df-uni 4589  df-int 4628  df-iun 4674  df-iin 4675  df-br 4805  df-opab 4865  df-mpt 4882  df-tr 4905  df-id 5174  df-eprel 5179  df-po 5187  df-so 5188  df-fr 5225  df-se 5226  df-we 5227  df-xp 5272  df-rel 5273  df-cnv 5274  df-co 5275  df-dm 5276  df-rn 5277  df-res 5278  df-ima 5279  df-pred 5841  df-ord 5887  df-on 5888  df-lim 5889  df-suc 5890  df-iota 6012  df-fun 6051  df-fn 6052  df-f 6053  df-f1 6054  df-fo 6055  df-f1o 6056  df-fv 6057  df-isom 6058  df-riota 6775  df-ov 6817  df-oprab 6818  df-mpt2 6819  df-of 7063  df-om 7232  df-1st 7334  df-2nd 7335  df-supp 7465  df-wrecs 7577  df-recs 7638  df-rdg 7676  df-1o 7730  df-oadd 7734  df-er 7913  df-map 8027  df-en 8124  df-dom 8125  df-sdom 8126  df-fin 8127  df-fsupp 8443  df-oi 8582  df-card 8975  df-pnf 10288  df-mnf 10289  df-xr 10290  df-ltxr 10291  df-le 10292  df-sub 10480  df-neg 10481  df-nn 11233  df-2 11291  df-n0 11505  df-z 11590  df-uz 11900  df-fz 12540  df-fzo 12680  df-seq 13016  df-hash 13332  df-ndx 16082  df-slot 16083  df-base 16085  df-sets 16086  df-ress 16087  df-plusg 16176  df-0g 16324  df-gsum 16325  df-mre 16468  df-mrc 16469  df-acs 16471  df-mgm 17463  df-sgrp 17505  df-mnd 17516  df-mhm 17556  df-submnd 17557  df-grp 17646  df-minusg 17647  df-mulg 17762  df-ghm 17879  df-cntz 17970  df-cmn 18415  df-abl 18416  df-mgp 18710  df-ur 18722  df-ring 18769
This theorem is referenced by:  evlslem2  19734
  Copyright terms: Public domain W3C validator