Theorem gsumdixp 19355

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.

Step	Hyp	Ref	Expression
1		gsumdixp.b	. . . 4 ⊢ 𝐵 = (Base‘𝑅)
2		gsumdixp.z	. . . 4 ⊢ 0 = (0g‘𝑅)
3		gsumdixp.r	. . . . 5 ⊢ (𝜑 → 𝑅 ∈ Ring)
4		ringcmn 19327	. . . . 5 ⊢ (𝑅 ∈ Ring → 𝑅 ∈ CMnd)
5	3, 4	syl 17	. . . 4 ⊢ (𝜑 → 𝑅 ∈ CMnd)
6		gsumdixp.i	. . . 4 ⊢ (𝜑 → 𝐼 ∈ 𝑉)
7		gsumdixp.j	. . . . 5 ⊢ (𝜑 → 𝐽 ∈ 𝑊)
8	7	adantr 484	. . . 4 ⊢ ((𝜑 ∧ 𝑖 ∈ 𝐼) → 𝐽 ∈ 𝑊)
9	3	adantr 484	. . . . 5 ⊢ ((𝜑 ∧ (𝑖 ∈ 𝐼 ∧ 𝑗 ∈ 𝐽)) → 𝑅 ∈ Ring)
10		gsumdixp.x	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐼) → 𝑋 ∈ 𝐵)
11	10	fmpttd 6856	. . . . . 6 ⊢ (𝜑 → (𝑥 ∈ 𝐼 ↦ 𝑋):𝐼⟶𝐵)
12		simpl 486	. . . . . 6 ⊢ ((𝑖 ∈ 𝐼 ∧ 𝑗 ∈ 𝐽) → 𝑖 ∈ 𝐼)
13		ffvelrn 6826	. . . . . 6 ⊢ (((𝑥 ∈ 𝐼 ↦ 𝑋):𝐼⟶𝐵 ∧ 𝑖 ∈ 𝐼) → ((𝑥 ∈ 𝐼 ↦ 𝑋)‘𝑖) ∈ 𝐵)
14	11, 12, 13	syl2an 598	. . . . 5 ⊢ ((𝜑 ∧ (𝑖 ∈ 𝐼 ∧ 𝑗 ∈ 𝐽)) → ((𝑥 ∈ 𝐼 ↦ 𝑋)‘𝑖) ∈ 𝐵)
15		gsumdixp.y	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝐽) → 𝑌 ∈ 𝐵)
16	15	fmpttd 6856	. . . . . 6 ⊢ (𝜑 → (𝑦 ∈ 𝐽 ↦ 𝑌):𝐽⟶𝐵)
17		simpr 488	. . . . . 6 ⊢ ((𝑖 ∈ 𝐼 ∧ 𝑗 ∈ 𝐽) → 𝑗 ∈ 𝐽)
18		ffvelrn 6826	. . . . . 6 ⊢ (((𝑦 ∈ 𝐽 ↦ 𝑌):𝐽⟶𝐵 ∧ 𝑗 ∈ 𝐽) → ((𝑦 ∈ 𝐽 ↦ 𝑌)‘𝑗) ∈ 𝐵)
19	16, 17, 18	syl2an 598	. . . . 5 ⊢ ((𝜑 ∧ (𝑖 ∈ 𝐼 ∧ 𝑗 ∈ 𝐽)) → ((𝑦 ∈ 𝐽 ↦ 𝑌)‘𝑗) ∈ 𝐵)
20		gsumdixp.t	. . . . . 6 ⊢ · = (.r‘𝑅)
21	1, 20	ringcl 19307	. . . . 5 ⊢ ((𝑅 ∈ Ring ∧ ((𝑥 ∈ 𝐼 ↦ 𝑋)‘𝑖) ∈ 𝐵 ∧ ((𝑦 ∈ 𝐽 ↦ 𝑌)‘𝑗) ∈ 𝐵) → (((𝑥 ∈ 𝐼 ↦ 𝑋)‘𝑖) · ((𝑦 ∈ 𝐽 ↦ 𝑌)‘𝑗)) ∈ 𝐵)
22	9, 14, 19, 21	syl3anc 1368	. . . 4 ⊢ ((𝜑 ∧ (𝑖 ∈ 𝐼 ∧ 𝑗 ∈ 𝐽)) → (((𝑥 ∈ 𝐼 ↦ 𝑋)‘𝑖) · ((𝑦 ∈ 𝐽 ↦ 𝑌)‘𝑗)) ∈ 𝐵)
23		gsumdixp.xf	. . . . . 6 ⊢ (𝜑 → (𝑥 ∈ 𝐼 ↦ 𝑋) finSupp 0 )
24	23	fsuppimpd 8824	. . . . 5 ⊢ (𝜑 → ((𝑥 ∈ 𝐼 ↦ 𝑋) supp 0 ) ∈ Fin)
25		gsumdixp.yf	. . . . . 6 ⊢ (𝜑 → (𝑦 ∈ 𝐽 ↦ 𝑌) finSupp 0 )
26	25	fsuppimpd 8824	. . . . 5 ⊢ (𝜑 → ((𝑦 ∈ 𝐽 ↦ 𝑌) supp 0 ) ∈ Fin)
27		xpfi 8773	. . . . 5 ⊢ ((((𝑥 ∈ 𝐼 ↦ 𝑋) supp 0 ) ∈ Fin ∧ ((𝑦 ∈ 𝐽 ↦ 𝑌) supp 0 ) ∈ Fin) → (((𝑥 ∈ 𝐼 ↦ 𝑋) supp 0 ) × ((𝑦 ∈ 𝐽 ↦ 𝑌) supp 0 )) ∈ Fin)
28	24, 26, 27	syl2anc 587	. . . 4 ⊢ (𝜑 → (((𝑥 ∈ 𝐼 ↦ 𝑋) supp 0 ) × ((𝑦 ∈ 𝐽 ↦ 𝑌) supp 0 )) ∈ Fin)
29		ianor 979	. . . . . . 7 ⊢ (¬ (𝑖 ∈ ((𝑥 ∈ 𝐼 ↦ 𝑋) supp 0 ) ∧ 𝑗 ∈ ((𝑦 ∈ 𝐽 ↦ 𝑌) supp 0 )) ↔ (¬ 𝑖 ∈ ((𝑥 ∈ 𝐼 ↦ 𝑋) supp 0 ) ∨ ¬ 𝑗 ∈ ((𝑦 ∈ 𝐽 ↦ 𝑌) supp 0 )))
30		brxp 5565	. . . . . . 7 ⊢ (𝑖(((𝑥 ∈ 𝐼 ↦ 𝑋) supp 0 ) × ((𝑦 ∈ 𝐽 ↦ 𝑌) supp 0 ))𝑗 ↔ (𝑖 ∈ ((𝑥 ∈ 𝐼 ↦ 𝑋) supp 0 ) ∧ 𝑗 ∈ ((𝑦 ∈ 𝐽 ↦ 𝑌) supp 0 )))
31	29, 30	xchnxbir 336	. . . . . 6 ⊢ (¬ 𝑖(((𝑥 ∈ 𝐼 ↦ 𝑋) supp 0 ) × ((𝑦 ∈ 𝐽 ↦ 𝑌) supp 0 ))𝑗 ↔ (¬ 𝑖 ∈ ((𝑥 ∈ 𝐼 ↦ 𝑋) supp 0 ) ∨ ¬ 𝑗 ∈ ((𝑦 ∈ 𝐽 ↦ 𝑌) supp 0 )))
32		simprl 770	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑖 ∈ 𝐼 ∧ 𝑗 ∈ 𝐽)) → 𝑖 ∈ 𝐼)
33		eldif 3891	. . . . . . . . . . . 12 ⊢ (𝑖 ∈ (𝐼 ∖ ((𝑥 ∈ 𝐼 ↦ 𝑋) supp 0 )) ↔ (𝑖 ∈ 𝐼 ∧ ¬ 𝑖 ∈ ((𝑥 ∈ 𝐼 ↦ 𝑋) supp 0 )))
34	33	biimpri 231	. . . . . . . . . . 11 ⊢ ((𝑖 ∈ 𝐼 ∧ ¬ 𝑖 ∈ ((𝑥 ∈ 𝐼 ↦ 𝑋) supp 0 )) → 𝑖 ∈ (𝐼 ∖ ((𝑥 ∈ 𝐼 ↦ 𝑋) supp 0 )))
35	32, 34	sylan 583	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑖 ∈ 𝐼 ∧ 𝑗 ∈ 𝐽)) ∧ ¬ 𝑖 ∈ ((𝑥 ∈ 𝐼 ↦ 𝑋) supp 0 )) → 𝑖 ∈ (𝐼 ∖ ((𝑥 ∈ 𝐼 ↦ 𝑋) supp 0 )))
36	11	adantr 484	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑖 ∈ 𝐼 ∧ 𝑗 ∈ 𝐽)) → (𝑥 ∈ 𝐼 ↦ 𝑋):𝐼⟶𝐵)
37		ssidd 3938	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑖 ∈ 𝐼 ∧ 𝑗 ∈ 𝐽)) → ((𝑥 ∈ 𝐼 ↦ 𝑋) supp 0 ) ⊆ ((𝑥 ∈ 𝐼 ↦ 𝑋) supp 0 ))
38	6	adantr 484	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑖 ∈ 𝐼 ∧ 𝑗 ∈ 𝐽)) → 𝐼 ∈ 𝑉)
39	2	fvexi 6659	. . . . . . . . . . . 12 ⊢ 0 ∈ V
40	39	a1i 11	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑖 ∈ 𝐼 ∧ 𝑗 ∈ 𝐽)) → 0 ∈ V)
41	36, 37, 38, 40	suppssr 7844	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑖 ∈ 𝐼 ∧ 𝑗 ∈ 𝐽)) ∧ 𝑖 ∈ (𝐼 ∖ ((𝑥 ∈ 𝐼 ↦ 𝑋) supp 0 ))) → ((𝑥 ∈ 𝐼 ↦ 𝑋)‘𝑖) = 0 )
42	35, 41	syldan 594	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑖 ∈ 𝐼 ∧ 𝑗 ∈ 𝐽)) ∧ ¬ 𝑖 ∈ ((𝑥 ∈ 𝐼 ↦ 𝑋) supp 0 )) → ((𝑥 ∈ 𝐼 ↦ 𝑋)‘𝑖) = 0 )
43	42	oveq1d 7150	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑖 ∈ 𝐼 ∧ 𝑗 ∈ 𝐽)) ∧ ¬ 𝑖 ∈ ((𝑥 ∈ 𝐼 ↦ 𝑋) supp 0 )) → (((𝑥 ∈ 𝐼 ↦ 𝑋)‘𝑖) · ((𝑦 ∈ 𝐽 ↦ 𝑌)‘𝑗)) = ( 0 · ((𝑦 ∈ 𝐽 ↦ 𝑌)‘𝑗)))
44	1, 20, 2	ringlz 19333	. . . . . . . . . 10 ⊢ ((𝑅 ∈ Ring ∧ ((𝑦 ∈ 𝐽 ↦ 𝑌)‘𝑗) ∈ 𝐵) → ( 0 · ((𝑦 ∈ 𝐽 ↦ 𝑌)‘𝑗)) = 0 )
45	9, 19, 44	syl2anc 587	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑖 ∈ 𝐼 ∧ 𝑗 ∈ 𝐽)) → ( 0 · ((𝑦 ∈ 𝐽 ↦ 𝑌)‘𝑗)) = 0 )
46	45	adantr 484	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑖 ∈ 𝐼 ∧ 𝑗 ∈ 𝐽)) ∧ ¬ 𝑖 ∈ ((𝑥 ∈ 𝐼 ↦ 𝑋) supp 0 )) → ( 0 · ((𝑦 ∈ 𝐽 ↦ 𝑌)‘𝑗)) = 0 )
47	43, 46	eqtrd 2833	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑖 ∈ 𝐼 ∧ 𝑗 ∈ 𝐽)) ∧ ¬ 𝑖 ∈ ((𝑥 ∈ 𝐼 ↦ 𝑋) supp 0 )) → (((𝑥 ∈ 𝐼 ↦ 𝑋)‘𝑖) · ((𝑦 ∈ 𝐽 ↦ 𝑌)‘𝑗)) = 0 )
48		simprr 772	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑖 ∈ 𝐼 ∧ 𝑗 ∈ 𝐽)) → 𝑗 ∈ 𝐽)
49		eldif 3891	. . . . . . . . . . . 12 ⊢ (𝑗 ∈ (𝐽 ∖ ((𝑦 ∈ 𝐽 ↦ 𝑌) supp 0 )) ↔ (𝑗 ∈ 𝐽 ∧ ¬ 𝑗 ∈ ((𝑦 ∈ 𝐽 ↦ 𝑌) supp 0 )))
50	49	biimpri 231	. . . . . . . . . . 11 ⊢ ((𝑗 ∈ 𝐽 ∧ ¬ 𝑗 ∈ ((𝑦 ∈ 𝐽 ↦ 𝑌) supp 0 )) → 𝑗 ∈ (𝐽 ∖ ((𝑦 ∈ 𝐽 ↦ 𝑌) supp 0 )))
51	48, 50	sylan 583	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑖 ∈ 𝐼 ∧ 𝑗 ∈ 𝐽)) ∧ ¬ 𝑗 ∈ ((𝑦 ∈ 𝐽 ↦ 𝑌) supp 0 )) → 𝑗 ∈ (𝐽 ∖ ((𝑦 ∈ 𝐽 ↦ 𝑌) supp 0 )))
52	16	adantr 484	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑖 ∈ 𝐼 ∧ 𝑗 ∈ 𝐽)) → (𝑦 ∈ 𝐽 ↦ 𝑌):𝐽⟶𝐵)
53		ssidd 3938	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑖 ∈ 𝐼 ∧ 𝑗 ∈ 𝐽)) → ((𝑦 ∈ 𝐽 ↦ 𝑌) supp 0 ) ⊆ ((𝑦 ∈ 𝐽 ↦ 𝑌) supp 0 ))
54	7	adantr 484	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑖 ∈ 𝐼 ∧ 𝑗 ∈ 𝐽)) → 𝐽 ∈ 𝑊)
55	52, 53, 54, 40	suppssr 7844	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑖 ∈ 𝐼 ∧ 𝑗 ∈ 𝐽)) ∧ 𝑗 ∈ (𝐽 ∖ ((𝑦 ∈ 𝐽 ↦ 𝑌) supp 0 ))) → ((𝑦 ∈ 𝐽 ↦ 𝑌)‘𝑗) = 0 )
56	51, 55	syldan 594	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑖 ∈ 𝐼 ∧ 𝑗 ∈ 𝐽)) ∧ ¬ 𝑗 ∈ ((𝑦 ∈ 𝐽 ↦ 𝑌) supp 0 )) → ((𝑦 ∈ 𝐽 ↦ 𝑌)‘𝑗) = 0 )
57	56	oveq2d 7151	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑖 ∈ 𝐼 ∧ 𝑗 ∈ 𝐽)) ∧ ¬ 𝑗 ∈ ((𝑦 ∈ 𝐽 ↦ 𝑌) supp 0 )) → (((𝑥 ∈ 𝐼 ↦ 𝑋)‘𝑖) · ((𝑦 ∈ 𝐽 ↦ 𝑌)‘𝑗)) = (((𝑥 ∈ 𝐼 ↦ 𝑋)‘𝑖) · 0 ))
58	1, 20, 2	ringrz 19334	. . . . . . . . . 10 ⊢ ((𝑅 ∈ Ring ∧ ((𝑥 ∈ 𝐼 ↦ 𝑋)‘𝑖) ∈ 𝐵) → (((𝑥 ∈ 𝐼 ↦ 𝑋)‘𝑖) · 0 ) = 0 )
59	9, 14, 58	syl2anc 587	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑖 ∈ 𝐼 ∧ 𝑗 ∈ 𝐽)) → (((𝑥 ∈ 𝐼 ↦ 𝑋)‘𝑖) · 0 ) = 0 )
60	59	adantr 484	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑖 ∈ 𝐼 ∧ 𝑗 ∈ 𝐽)) ∧ ¬ 𝑗 ∈ ((𝑦 ∈ 𝐽 ↦ 𝑌) supp 0 )) → (((𝑥 ∈ 𝐼 ↦ 𝑋)‘𝑖) · 0 ) = 0 )
61	57, 60	eqtrd 2833	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑖 ∈ 𝐼 ∧ 𝑗 ∈ 𝐽)) ∧ ¬ 𝑗 ∈ ((𝑦 ∈ 𝐽 ↦ 𝑌) supp 0 )) → (((𝑥 ∈ 𝐼 ↦ 𝑋)‘𝑖) · ((𝑦 ∈ 𝐽 ↦ 𝑌)‘𝑗)) = 0 )
62	47, 61	jaodan 955	. . . . . 6 ⊢ (((𝜑 ∧ (𝑖 ∈ 𝐼 ∧ 𝑗 ∈ 𝐽)) ∧ (¬ 𝑖 ∈ ((𝑥 ∈ 𝐼 ↦ 𝑋) supp 0 ) ∨ ¬ 𝑗 ∈ ((𝑦 ∈ 𝐽 ↦ 𝑌) supp 0 ))) → (((𝑥 ∈ 𝐼 ↦ 𝑋)‘𝑖) · ((𝑦 ∈ 𝐽 ↦ 𝑌)‘𝑗)) = 0 )
63	31, 62	sylan2b 596	. . . . 5 ⊢ (((𝜑 ∧ (𝑖 ∈ 𝐼 ∧ 𝑗 ∈ 𝐽)) ∧ ¬ 𝑖(((𝑥 ∈ 𝐼 ↦ 𝑋) supp 0 ) × ((𝑦 ∈ 𝐽 ↦ 𝑌) supp 0 ))𝑗) → (((𝑥 ∈ 𝐼 ↦ 𝑋)‘𝑖) · ((𝑦 ∈ 𝐽 ↦ 𝑌)‘𝑗)) = 0 )
64	63	anasss 470	. . . 4 ⊢ ((𝜑 ∧ ((𝑖 ∈ 𝐼 ∧ 𝑗 ∈ 𝐽) ∧ ¬ 𝑖(((𝑥 ∈ 𝐼 ↦ 𝑋) supp 0 ) × ((𝑦 ∈ 𝐽 ↦ 𝑌) supp 0 ))𝑗)) → (((𝑥 ∈ 𝐼 ↦ 𝑋)‘𝑖) · ((𝑦 ∈ 𝐽 ↦ 𝑌)‘𝑗)) = 0 )
65	1, 2, 5, 6, 8, 22, 28, 64	gsum2d2 19087	. . 3 ⊢ (𝜑 → (𝑅 Σg (𝑖 ∈ 𝐼, 𝑗 ∈ 𝐽 ↦ (((𝑥 ∈ 𝐼 ↦ 𝑋)‘𝑖) · ((𝑦 ∈ 𝐽 ↦ 𝑌)‘𝑗)))) = (𝑅 Σg (𝑖 ∈ 𝐼 ↦ (𝑅 Σg (𝑗 ∈ 𝐽 ↦ (((𝑥 ∈ 𝐼 ↦ 𝑋)‘𝑖) · ((𝑦 ∈ 𝐽 ↦ 𝑌)‘𝑗)))))))
66		nffvmpt1 6656	. . . . . . 7 ⊢ Ⅎ𝑥((𝑥 ∈ 𝐼 ↦ 𝑋)‘𝑖)
67		nfcv 2955	. . . . . . 7 ⊢ Ⅎ𝑥 ·
68		nfcv 2955	. . . . . . 7 ⊢ Ⅎ𝑥((𝑦 ∈ 𝐽 ↦ 𝑌)‘𝑗)
69	66, 67, 68	nfov 7165	. . . . . 6 ⊢ Ⅎ𝑥(((𝑥 ∈ 𝐼 ↦ 𝑋)‘𝑖) · ((𝑦 ∈ 𝐽 ↦ 𝑌)‘𝑗))
70		nfcv 2955	. . . . . . 7 ⊢ Ⅎ𝑦((𝑥 ∈ 𝐼 ↦ 𝑋)‘𝑖)
71		nfcv 2955	. . . . . . 7 ⊢ Ⅎ𝑦 ·
72		nffvmpt1 6656	. . . . . . 7 ⊢ Ⅎ𝑦((𝑦 ∈ 𝐽 ↦ 𝑌)‘𝑗)
73	70, 71, 72	nfov 7165	. . . . . 6 ⊢ Ⅎ𝑦(((𝑥 ∈ 𝐼 ↦ 𝑋)‘𝑖) · ((𝑦 ∈ 𝐽 ↦ 𝑌)‘𝑗))
74		nfcv 2955	. . . . . 6 ⊢ Ⅎ𝑖(((𝑥 ∈ 𝐼 ↦ 𝑋)‘𝑥) · ((𝑦 ∈ 𝐽 ↦ 𝑌)‘𝑦))
75		nfcv 2955	. . . . . 6 ⊢ Ⅎ𝑗(((𝑥 ∈ 𝐼 ↦ 𝑋)‘𝑥) · ((𝑦 ∈ 𝐽 ↦ 𝑌)‘𝑦))
76		fveq2 6645	. . . . . . 7 ⊢ (𝑖 = 𝑥 → ((𝑥 ∈ 𝐼 ↦ 𝑋)‘𝑖) = ((𝑥 ∈ 𝐼 ↦ 𝑋)‘𝑥))
77		fveq2 6645	. . . . . . 7 ⊢ (𝑗 = 𝑦 → ((𝑦 ∈ 𝐽 ↦ 𝑌)‘𝑗) = ((𝑦 ∈ 𝐽 ↦ 𝑌)‘𝑦))
78	76, 77	oveqan12d 7154	. . . . . 6 ⊢ ((𝑖 = 𝑥 ∧ 𝑗 = 𝑦) → (((𝑥 ∈ 𝐼 ↦ 𝑋)‘𝑖) · ((𝑦 ∈ 𝐽 ↦ 𝑌)‘𝑗)) = (((𝑥 ∈ 𝐼 ↦ 𝑋)‘𝑥) · ((𝑦 ∈ 𝐽 ↦ 𝑌)‘𝑦)))
79	69, 73, 74, 75, 78	cbvmpo 7227	. . . . 5 ⊢ (𝑖 ∈ 𝐼, 𝑗 ∈ 𝐽 ↦ (((𝑥 ∈ 𝐼 ↦ 𝑋)‘𝑖) · ((𝑦 ∈ 𝐽 ↦ 𝑌)‘𝑗))) = (𝑥 ∈ 𝐼, 𝑦 ∈ 𝐽 ↦ (((𝑥 ∈ 𝐼 ↦ 𝑋)‘𝑥) · ((𝑦 ∈ 𝐽 ↦ 𝑌)‘𝑦)))
80		simp2 1134	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐼 ∧ 𝑦 ∈ 𝐽) → 𝑥 ∈ 𝐼)
81	10	3adant3 1129	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐼 ∧ 𝑦 ∈ 𝐽) → 𝑋 ∈ 𝐵)
82		eqid 2798	. . . . . . . . 9 ⊢ (𝑥 ∈ 𝐼 ↦ 𝑋) = (𝑥 ∈ 𝐼 ↦ 𝑋)
83	82	fvmpt2 6756	. . . . . . . 8 ⊢ ((𝑥 ∈ 𝐼 ∧ 𝑋 ∈ 𝐵) → ((𝑥 ∈ 𝐼 ↦ 𝑋)‘𝑥) = 𝑋)
84	80, 81, 83	syl2anc 587	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐼 ∧ 𝑦 ∈ 𝐽) → ((𝑥 ∈ 𝐼 ↦ 𝑋)‘𝑥) = 𝑋)
85		simp3 1135	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐼 ∧ 𝑦 ∈ 𝐽) → 𝑦 ∈ 𝐽)
86		eqid 2798	. . . . . . . . 9 ⊢ (𝑦 ∈ 𝐽 ↦ 𝑌) = (𝑦 ∈ 𝐽 ↦ 𝑌)
87	86	fvmpt2 6756	. . . . . . . 8 ⊢ ((𝑦 ∈ 𝐽 ∧ 𝑌 ∈ 𝐵) → ((𝑦 ∈ 𝐽 ↦ 𝑌)‘𝑦) = 𝑌)
88	85, 15, 87	3imp3i2an 1342	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐼 ∧ 𝑦 ∈ 𝐽) → ((𝑦 ∈ 𝐽 ↦ 𝑌)‘𝑦) = 𝑌)
89	84, 88	oveq12d 7153	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐼 ∧ 𝑦 ∈ 𝐽) → (((𝑥 ∈ 𝐼 ↦ 𝑋)‘𝑥) · ((𝑦 ∈ 𝐽 ↦ 𝑌)‘𝑦)) = (𝑋 · 𝑌))
90	89	mpoeq3dva 7210	. . . . 5 ⊢ (𝜑 → (𝑥 ∈ 𝐼, 𝑦 ∈ 𝐽 ↦ (((𝑥 ∈ 𝐼 ↦ 𝑋)‘𝑥) · ((𝑦 ∈ 𝐽 ↦ 𝑌)‘𝑦))) = (𝑥 ∈ 𝐼, 𝑦 ∈ 𝐽 ↦ (𝑋 · 𝑌)))
91	79, 90	syl5eq 2845	. . . 4 ⊢ (𝜑 → (𝑖 ∈ 𝐼, 𝑗 ∈ 𝐽 ↦ (((𝑥 ∈ 𝐼 ↦ 𝑋)‘𝑖) · ((𝑦 ∈ 𝐽 ↦ 𝑌)‘𝑗))) = (𝑥 ∈ 𝐼, 𝑦 ∈ 𝐽 ↦ (𝑋 · 𝑌)))
92	91	oveq2d 7151	. . 3 ⊢ (𝜑 → (𝑅 Σg (𝑖 ∈ 𝐼, 𝑗 ∈ 𝐽 ↦ (((𝑥 ∈ 𝐼 ↦ 𝑋)‘𝑖) · ((𝑦 ∈ 𝐽 ↦ 𝑌)‘𝑗)))) = (𝑅 Σg (𝑥 ∈ 𝐼, 𝑦 ∈ 𝐽 ↦ (𝑋 · 𝑌))))
93		nfcv 2955	. . . . . . 7 ⊢ Ⅎ𝑥𝑅
94		nfcv 2955	. . . . . . 7 ⊢ Ⅎ𝑥 Σg
95		nfcv 2955	. . . . . . . 8 ⊢ Ⅎ𝑥𝐽
96	95, 69	nfmpt 5127	. . . . . . 7 ⊢ Ⅎ𝑥(𝑗 ∈ 𝐽 ↦ (((𝑥 ∈ 𝐼 ↦ 𝑋)‘𝑖) · ((𝑦 ∈ 𝐽 ↦ 𝑌)‘𝑗)))
97	93, 94, 96	nfov 7165	. . . . . 6 ⊢ Ⅎ𝑥(𝑅 Σg (𝑗 ∈ 𝐽 ↦ (((𝑥 ∈ 𝐼 ↦ 𝑋)‘𝑖) · ((𝑦 ∈ 𝐽 ↦ 𝑌)‘𝑗))))
98		nfcv 2955	. . . . . 6 ⊢ Ⅎ𝑖(𝑅 Σg (𝑦 ∈ 𝐽 ↦ (((𝑥 ∈ 𝐼 ↦ 𝑋)‘𝑥) · ((𝑦 ∈ 𝐽 ↦ 𝑌)‘𝑦))))
99	76	oveq1d 7150	. . . . . . . . 9 ⊢ (𝑖 = 𝑥 → (((𝑥 ∈ 𝐼 ↦ 𝑋)‘𝑖) · ((𝑦 ∈ 𝐽 ↦ 𝑌)‘𝑗)) = (((𝑥 ∈ 𝐼 ↦ 𝑋)‘𝑥) · ((𝑦 ∈ 𝐽 ↦ 𝑌)‘𝑗)))
100	99	mpteq2dv 5126	. . . . . . . 8 ⊢ (𝑖 = 𝑥 → (𝑗 ∈ 𝐽 ↦ (((𝑥 ∈ 𝐼 ↦ 𝑋)‘𝑖) · ((𝑦 ∈ 𝐽 ↦ 𝑌)‘𝑗))) = (𝑗 ∈ 𝐽 ↦ (((𝑥 ∈ 𝐼 ↦ 𝑋)‘𝑥) · ((𝑦 ∈ 𝐽 ↦ 𝑌)‘𝑗))))
101		nfcv 2955	. . . . . . . . . 10 ⊢ Ⅎ𝑦((𝑥 ∈ 𝐼 ↦ 𝑋)‘𝑥)
102	101, 71, 72	nfov 7165	. . . . . . . . 9 ⊢ Ⅎ𝑦(((𝑥 ∈ 𝐼 ↦ 𝑋)‘𝑥) · ((𝑦 ∈ 𝐽 ↦ 𝑌)‘𝑗))
103	77	oveq2d 7151	. . . . . . . . 9 ⊢ (𝑗 = 𝑦 → (((𝑥 ∈ 𝐼 ↦ 𝑋)‘𝑥) · ((𝑦 ∈ 𝐽 ↦ 𝑌)‘𝑗)) = (((𝑥 ∈ 𝐼 ↦ 𝑋)‘𝑥) · ((𝑦 ∈ 𝐽 ↦ 𝑌)‘𝑦)))
104	102, 75, 103	cbvmpt 5131	. . . . . . . 8 ⊢ (𝑗 ∈ 𝐽 ↦ (((𝑥 ∈ 𝐼 ↦ 𝑋)‘𝑥) · ((𝑦 ∈ 𝐽 ↦ 𝑌)‘𝑗))) = (𝑦 ∈ 𝐽 ↦ (((𝑥 ∈ 𝐼 ↦ 𝑋)‘𝑥) · ((𝑦 ∈ 𝐽 ↦ 𝑌)‘𝑦)))
105	100, 104	eqtrdi 2849	. . . . . . 7 ⊢ (𝑖 = 𝑥 → (𝑗 ∈ 𝐽 ↦ (((𝑥 ∈ 𝐼 ↦ 𝑋)‘𝑖) · ((𝑦 ∈ 𝐽 ↦ 𝑌)‘𝑗))) = (𝑦 ∈ 𝐽 ↦ (((𝑥 ∈ 𝐼 ↦ 𝑋)‘𝑥) · ((𝑦 ∈ 𝐽 ↦ 𝑌)‘𝑦))))
106	105	oveq2d 7151	. . . . . 6 ⊢ (𝑖 = 𝑥 → (𝑅 Σg (𝑗 ∈ 𝐽 ↦ (((𝑥 ∈ 𝐼 ↦ 𝑋)‘𝑖) · ((𝑦 ∈ 𝐽 ↦ 𝑌)‘𝑗)))) = (𝑅 Σg (𝑦 ∈ 𝐽 ↦ (((𝑥 ∈ 𝐼 ↦ 𝑋)‘𝑥) · ((𝑦 ∈ 𝐽 ↦ 𝑌)‘𝑦)))))
107	97, 98, 106	cbvmpt 5131	. . . . 5 ⊢ (𝑖 ∈ 𝐼 ↦ (𝑅 Σg (𝑗 ∈ 𝐽 ↦ (((𝑥 ∈ 𝐼 ↦ 𝑋)‘𝑖) · ((𝑦 ∈ 𝐽 ↦ 𝑌)‘𝑗))))) = (𝑥 ∈ 𝐼 ↦ (𝑅 Σg (𝑦 ∈ 𝐽 ↦ (((𝑥 ∈ 𝐼 ↦ 𝑋)‘𝑥) · ((𝑦 ∈ 𝐽 ↦ 𝑌)‘𝑦)))))
108	89	3expa 1115	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝐼) ∧ 𝑦 ∈ 𝐽) → (((𝑥 ∈ 𝐼 ↦ 𝑋)‘𝑥) · ((𝑦 ∈ 𝐽 ↦ 𝑌)‘𝑦)) = (𝑋 · 𝑌))
109	108	mpteq2dva 5125	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐼) → (𝑦 ∈ 𝐽 ↦ (((𝑥 ∈ 𝐼 ↦ 𝑋)‘𝑥) · ((𝑦 ∈ 𝐽 ↦ 𝑌)‘𝑦))) = (𝑦 ∈ 𝐽 ↦ (𝑋 · 𝑌)))
110	109	oveq2d 7151	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐼) → (𝑅 Σg (𝑦 ∈ 𝐽 ↦ (((𝑥 ∈ 𝐼 ↦ 𝑋)‘𝑥) · ((𝑦 ∈ 𝐽 ↦ 𝑌)‘𝑦)))) = (𝑅 Σg (𝑦 ∈ 𝐽 ↦ (𝑋 · 𝑌))))
111	110	mpteq2dva 5125	. . . . 5 ⊢ (𝜑 → (𝑥 ∈ 𝐼 ↦ (𝑅 Σg (𝑦 ∈ 𝐽 ↦ (((𝑥 ∈ 𝐼 ↦ 𝑋)‘𝑥) · ((𝑦 ∈ 𝐽 ↦ 𝑌)‘𝑦))))) = (𝑥 ∈ 𝐼 ↦ (𝑅 Σg (𝑦 ∈ 𝐽 ↦ (𝑋 · 𝑌)))))
112	107, 111	syl5eq 2845	. . . 4 ⊢ (𝜑 → (𝑖 ∈ 𝐼 ↦ (𝑅 Σg (𝑗 ∈ 𝐽 ↦ (((𝑥 ∈ 𝐼 ↦ 𝑋)‘𝑖) · ((𝑦 ∈ 𝐽 ↦ 𝑌)‘𝑗))))) = (𝑥 ∈ 𝐼 ↦ (𝑅 Σg (𝑦 ∈ 𝐽 ↦ (𝑋 · 𝑌)))))
113	112	oveq2d 7151	. . 3 ⊢ (𝜑 → (𝑅 Σg (𝑖 ∈ 𝐼 ↦ (𝑅 Σg (𝑗 ∈ 𝐽 ↦ (((𝑥 ∈ 𝐼 ↦ 𝑋)‘𝑖) · ((𝑦 ∈ 𝐽 ↦ 𝑌)‘𝑗)))))) = (𝑅 Σg (𝑥 ∈ 𝐼 ↦ (𝑅 Σg (𝑦 ∈ 𝐽 ↦ (𝑋 · 𝑌))))))
114	65, 92, 113	3eqtr3d 2841	. 2 ⊢ (𝜑 → (𝑅 Σg (𝑥 ∈ 𝐼, 𝑦 ∈ 𝐽 ↦ (𝑋 · 𝑌))) = (𝑅 Σg (𝑥 ∈ 𝐼 ↦ (𝑅 Σg (𝑦 ∈ 𝐽 ↦ (𝑋 · 𝑌))))))
115		eqid 2798	. . . . 5 ⊢ (+g‘𝑅) = (+g‘𝑅)
116	3	adantr 484	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐼) → 𝑅 ∈ Ring)
117	7	adantr 484	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐼) → 𝐽 ∈ 𝑊)
118	15	adantlr 714	. . . . 5 ⊢ (((𝜑 ∧ 𝑥 ∈ 𝐼) ∧ 𝑦 ∈ 𝐽) → 𝑌 ∈ 𝐵)
119	25	adantr 484	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐼) → (𝑦 ∈ 𝐽 ↦ 𝑌) finSupp 0 )
120	1, 2, 115, 20, 116, 117, 10, 118, 119	gsummulc2 19353	. . . 4 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐼) → (𝑅 Σg (𝑦 ∈ 𝐽 ↦ (𝑋 · 𝑌))) = (𝑋 · (𝑅 Σg (𝑦 ∈ 𝐽 ↦ 𝑌))))
121	120	mpteq2dva 5125	. . 3 ⊢ (𝜑 → (𝑥 ∈ 𝐼 ↦ (𝑅 Σg (𝑦 ∈ 𝐽 ↦ (𝑋 · 𝑌)))) = (𝑥 ∈ 𝐼 ↦ (𝑋 · (𝑅 Σg (𝑦 ∈ 𝐽 ↦ 𝑌)))))
122	121	oveq2d 7151	. 2 ⊢ (𝜑 → (𝑅 Σg (𝑥 ∈ 𝐼 ↦ (𝑅 Σg (𝑦 ∈ 𝐽 ↦ (𝑋 · 𝑌))))) = (𝑅 Σg (𝑥 ∈ 𝐼 ↦ (𝑋 · (𝑅 Σg (𝑦 ∈ 𝐽 ↦ 𝑌))))))
123	1, 2, 5, 7, 16, 25	gsumcl 19028	. . 3 ⊢ (𝜑 → (𝑅 Σg (𝑦 ∈ 𝐽 ↦ 𝑌)) ∈ 𝐵)
124	1, 2, 115, 20, 3, 6, 123, 10, 23	gsummulc1 19352	. 2 ⊢ (𝜑 → (𝑅 Σg (𝑥 ∈ 𝐼 ↦ (𝑋 · (𝑅 Σg (𝑦 ∈ 𝐽 ↦ 𝑌))))) = ((𝑅 Σg (𝑥 ∈ 𝐼 ↦ 𝑋)) · (𝑅 Σg (𝑦 ∈ 𝐽 ↦ 𝑌))))
125	114, 122, 124	3eqtrrd 2838	1 ⊢ (𝜑 → ((𝑅 Σg (𝑥 ∈ 𝐼 ↦ 𝑋)) · (𝑅 Σg (𝑦 ∈ 𝐽 ↦ 𝑌))) = (𝑅 Σg (𝑥 ∈ 𝐼, 𝑦 ∈ 𝐽 ↦ (𝑋 · 𝑌))))

Syntax hints:  ¬ wn 3   → wi 4   ∧ wa 399   ∨ wo 844   ∧ w3a 1084   = wceq 1538   ∈ wcel 2111  Vcvv 3441   ∖ cdif 3878   class class class wbr 5030   ↦ cmpt 5110   × cxp 5517  ⟶wf 6320  ‘cfv 6324  (class class class)co 7135   ∈ cmpo 7137   supp csupp 7813  Fincfn 8492   finSupp cfsupp 8817  Basecbs 16475  +_gcplusg 16557  ._rcmulr 16558  0_gc0g 16705   Σ_g cgsu 16706  CMndccmn 18898  Ringcrg 19290

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1911  ax-6 1970  ax-7 2015  ax-8 2113  ax-9 2121  ax-10 2142  ax-11 2158  ax-12 2175  ax-ext 2770  ax-rep 5154  ax-sep 5167  ax-nul 5174  ax-pow 5231  ax-pr 5295  ax-un 7441  ax-cnex 10582  ax-resscn 10583  ax-1cn 10584  ax-icn 10585  ax-addcl 10586  ax-addrcl 10587  ax-mulcl 10588  ax-mulrcl 10589  ax-mulcom 10590  ax-addass 10591  ax-mulass 10592  ax-distr 10593  ax-i2m1 10594  ax-1ne0 10595  ax-1rid 10596  ax-rnegex 10597  ax-rrecex 10598  ax-cnre 10599  ax-pre-lttri 10600  ax-pre-lttrn 10601  ax-pre-ltadd 10602  ax-pre-mulgt0 10603

This theorem depends on definitions:  df-bi 210  df-an 400  df-or 845  df-3or 1085  df-3an 1086  df-tru 1541  df-ex 1782  df-nf 1786  df-sb 2070  df-mo 2598  df-eu 2629  df-clab 2777  df-cleq 2791  df-clel 2870  df-nfc 2938  df-ne 2988  df-nel 3092  df-ral 3111  df-rex 3112  df-reu 3113  df-rmo 3114  df-rab 3115  df-v 3443  df-sbc 3721  df-csb 3829  df-dif 3884  df-un 3886  df-in 3888  df-ss 3898  df-pss 3900  df-nul 4244  df-if 4426  df-pw 4499  df-sn 4526  df-pr 4528  df-tp 4530  df-op 4532  df-uni 4801  df-int 4839  df-iun 4883  df-iin 4884  df-br 5031  df-opab 5093  df-mpt 5111  df-tr 5137  df-id 5425  df-eprel 5430  df-po 5438  df-so 5439  df-fr 5478  df-se 5479  df-we 5480  df-xp 5525  df-rel 5526  df-cnv 5527  df-co 5528  df-dm 5529  df-rn 5530  df-res 5531  df-ima 5532  df-pred 6116  df-ord 6162  df-on 6163  df-lim 6164  df-suc 6165  df-iota 6283  df-fun 6326  df-fn 6327  df-f 6328  df-f1 6329  df-fo 6330  df-f1o 6331  df-fv 6332  df-isom 6333  df-riota 7093  df-ov 7138  df-oprab 7139  df-mpo 7140  df-of 7389  df-om 7561  df-1st 7671  df-2nd 7672  df-supp 7814  df-wrecs 7930  df-recs 7991  df-rdg 8029  df-1o 8085  df-oadd 8089  df-er 8272  df-map 8391  df-en 8493  df-dom 8494  df-sdom 8495  df-fin 8496  df-fsupp 8818  df-oi 8958  df-card 9352  df-pnf 10666  df-mnf 10667  df-xr 10668  df-ltxr 10669  df-le 10670  df-sub 10861  df-neg 10862  df-nn 11626  df-2 11688  df-n0 11886  df-z 11970  df-uz 12232  df-fz 12886  df-fzo 13029  df-seq 13365  df-hash 13687  df-ndx 16478  df-slot 16479  df-base 16481  df-sets 16482  df-ress 16483  df-plusg 16570  df-0g 16707  df-gsum 16708  df-mre 16849  df-mrc 16850  df-acs 16852  df-mgm 17844  df-sgrp 17893  df-mnd 17904  df-mhm 17948  df-submnd 17949  df-grp 18098  df-minusg 18099  df-mulg 18217  df-ghm 18348  df-cntz 18439  df-cmn 18900  df-abl 18901  df-mgp 19233  df-ur 19245  df-ring 19292

This theorem is referenced by:  evlslem2  20751