Theorem mamuvs1 21552

Description: Matrix multiplication distributes over scalar multiplication on the left. (Contributed by Stefan O'Rear, 5-Sep-2015.)

Hypotheses

Ref	Expression
mamucl.b	⊢ 𝐵 = (Base‘𝑅)
mamucl.r	⊢ (𝜑 → 𝑅 ∈ Ring)
mamudi.f	⊢ 𝐹 = (𝑅 maMul ⟨𝑀, 𝑁, 𝑂⟩)
mamudi.m	⊢ (𝜑 → 𝑀 ∈ Fin)
mamudi.n	⊢ (𝜑 → 𝑁 ∈ Fin)
mamudi.o	⊢ (𝜑 → 𝑂 ∈ Fin)
mamuvs1.t	⊢ · = (.r‘𝑅)
mamuvs1.x	⊢ (𝜑 → 𝑋 ∈ 𝐵)
mamuvs1.y	⊢ (𝜑 → 𝑌 ∈ (𝐵 ↑m (𝑀 × 𝑁)))
mamuvs1.z	⊢ (𝜑 → 𝑍 ∈ (𝐵 ↑m (𝑁 × 𝑂)))

Assertion

Ref	Expression
mamuvs1	⊢ (𝜑 → ((((𝑀 × 𝑁) × {𝑋}) ∘f · 𝑌)𝐹𝑍) = (((𝑀 × 𝑂) × {𝑋}) ∘f · (𝑌𝐹𝑍)))

Proof of Theorem mamuvs1

Dummy variables 𝑖 𝑘 𝑗 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		mamucl.b	. . . . . 6 ⊢ 𝐵 = (Base‘𝑅)
2		eqid 2738	. . . . . 6 ⊢ (0g‘𝑅) = (0g‘𝑅)
3		eqid 2738	. . . . . 6 ⊢ (+g‘𝑅) = (+g‘𝑅)
4		mamuvs1.t	. . . . . 6 ⊢ · = (.r‘𝑅)
5		mamucl.r	. . . . . . 7 ⊢ (𝜑 → 𝑅 ∈ Ring)
6	5	adantr 481	. . . . . 6 ⊢ ((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑂)) → 𝑅 ∈ Ring)
7		mamudi.n	. . . . . . 7 ⊢ (𝜑 → 𝑁 ∈ Fin)
8	7	adantr 481	. . . . . 6 ⊢ ((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑂)) → 𝑁 ∈ Fin)
9		mamuvs1.x	. . . . . . 7 ⊢ (𝜑 → 𝑋 ∈ 𝐵)
10	9	adantr 481	. . . . . 6 ⊢ ((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑂)) → 𝑋 ∈ 𝐵)
11	5	ad2antrr 723	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑂)) ∧ 𝑗 ∈ 𝑁) → 𝑅 ∈ Ring)
12		mamuvs1.y	. . . . . . . . . 10 ⊢ (𝜑 → 𝑌 ∈ (𝐵 ↑m (𝑀 × 𝑁)))
13		elmapi 8637	. . . . . . . . . 10 ⊢ (𝑌 ∈ (𝐵 ↑m (𝑀 × 𝑁)) → 𝑌:(𝑀 × 𝑁)⟶𝐵)
14	12, 13	syl 17	. . . . . . . . 9 ⊢ (𝜑 → 𝑌:(𝑀 × 𝑁)⟶𝐵)
15	14	ad2antrr 723	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑂)) ∧ 𝑗 ∈ 𝑁) → 𝑌:(𝑀 × 𝑁)⟶𝐵)
16		simplrl 774	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑂)) ∧ 𝑗 ∈ 𝑁) → 𝑖 ∈ 𝑀)
17		simpr 485	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑂)) ∧ 𝑗 ∈ 𝑁) → 𝑗 ∈ 𝑁)
18	15, 16, 17	fovrnd 7444	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑂)) ∧ 𝑗 ∈ 𝑁) → (𝑖𝑌𝑗) ∈ 𝐵)
19		mamuvs1.z	. . . . . . . . . 10 ⊢ (𝜑 → 𝑍 ∈ (𝐵 ↑m (𝑁 × 𝑂)))
20		elmapi 8637	. . . . . . . . . 10 ⊢ (𝑍 ∈ (𝐵 ↑m (𝑁 × 𝑂)) → 𝑍:(𝑁 × 𝑂)⟶𝐵)
21	19, 20	syl 17	. . . . . . . . 9 ⊢ (𝜑 → 𝑍:(𝑁 × 𝑂)⟶𝐵)
22	21	ad2antrr 723	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑂)) ∧ 𝑗 ∈ 𝑁) → 𝑍:(𝑁 × 𝑂)⟶𝐵)
23		simplrr 775	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑂)) ∧ 𝑗 ∈ 𝑁) → 𝑘 ∈ 𝑂)
24	22, 17, 23	fovrnd 7444	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑂)) ∧ 𝑗 ∈ 𝑁) → (𝑗𝑍𝑘) ∈ 𝐵)
25	1, 4	ringcl 19800	. . . . . . 7 ⊢ ((𝑅 ∈ Ring ∧ (𝑖𝑌𝑗) ∈ 𝐵 ∧ (𝑗𝑍𝑘) ∈ 𝐵) → ((𝑖𝑌𝑗) · (𝑗𝑍𝑘)) ∈ 𝐵)
26	11, 18, 24, 25	syl3anc 1370	. . . . . 6 ⊢ (((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑂)) ∧ 𝑗 ∈ 𝑁) → ((𝑖𝑌𝑗) · (𝑗𝑍𝑘)) ∈ 𝐵)
27		eqid 2738	. . . . . . 7 ⊢ (𝑗 ∈ 𝑁 ↦ ((𝑖𝑌𝑗) · (𝑗𝑍𝑘))) = (𝑗 ∈ 𝑁 ↦ ((𝑖𝑌𝑗) · (𝑗𝑍𝑘)))
28		ovexd 7310	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑂)) ∧ 𝑗 ∈ 𝑁) → ((𝑖𝑌𝑗) · (𝑗𝑍𝑘)) ∈ V)
29		fvexd 6789	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑂)) → (0g‘𝑅) ∈ V)
30	27, 8, 28, 29	fsuppmptdm 9139	. . . . . 6 ⊢ ((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑂)) → (𝑗 ∈ 𝑁 ↦ ((𝑖𝑌𝑗) · (𝑗𝑍𝑘))) finSupp (0g‘𝑅))
31	1, 2, 3, 4, 6, 8, 10, 26, 30	gsummulc2 19846	. . . . 5 ⊢ ((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑂)) → (𝑅 Σg (𝑗 ∈ 𝑁 ↦ (𝑋 · ((𝑖𝑌𝑗) · (𝑗𝑍𝑘))))) = (𝑋 · (𝑅 Σg (𝑗 ∈ 𝑁 ↦ ((𝑖𝑌𝑗) · (𝑗𝑍𝑘))))))
32		df-ov 7278	. . . . . . . . . 10 ⊢ (𝑖(((𝑀 × 𝑁) × {𝑋}) ∘f · 𝑌)𝑗) = ((((𝑀 × 𝑁) × {𝑋}) ∘f · 𝑌)‘⟨𝑖, 𝑗⟩)
33		simprl 768	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑂)) → 𝑖 ∈ 𝑀)
34		opelxpi 5626	. . . . . . . . . . . 12 ⊢ ((𝑖 ∈ 𝑀 ∧ 𝑗 ∈ 𝑁) → ⟨𝑖, 𝑗⟩ ∈ (𝑀 × 𝑁))
35	33, 34	sylan 580	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑂)) ∧ 𝑗 ∈ 𝑁) → ⟨𝑖, 𝑗⟩ ∈ (𝑀 × 𝑁))
36		mamudi.m	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝑀 ∈ Fin)
37		xpfi 9085	. . . . . . . . . . . . . 14 ⊢ ((𝑀 ∈ Fin ∧ 𝑁 ∈ Fin) → (𝑀 × 𝑁) ∈ Fin)
38	36, 7, 37	syl2anc 584	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝑀 × 𝑁) ∈ Fin)
39	38	ad2antrr 723	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑂)) ∧ 𝑗 ∈ 𝑁) → (𝑀 × 𝑁) ∈ Fin)
40	9	ad2antrr 723	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑂)) ∧ 𝑗 ∈ 𝑁) → 𝑋 ∈ 𝐵)
41		ffn 6600	. . . . . . . . . . . . . 14 ⊢ (𝑌:(𝑀 × 𝑁)⟶𝐵 → 𝑌 Fn (𝑀 × 𝑁))
42	12, 13, 41	3syl 18	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑌 Fn (𝑀 × 𝑁))
43	42	ad2antrr 723	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑂)) ∧ 𝑗 ∈ 𝑁) → 𝑌 Fn (𝑀 × 𝑁))
44		df-ov 7278	. . . . . . . . . . . . . 14 ⊢ (𝑖𝑌𝑗) = (𝑌‘⟨𝑖, 𝑗⟩)
45	44	eqcomi 2747	. . . . . . . . . . . . 13 ⊢ (𝑌‘⟨𝑖, 𝑗⟩) = (𝑖𝑌𝑗)
46	45	a1i 11	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑂)) ∧ 𝑗 ∈ 𝑁) ∧ ⟨𝑖, 𝑗⟩ ∈ (𝑀 × 𝑁)) → (𝑌‘⟨𝑖, 𝑗⟩) = (𝑖𝑌𝑗))
47	39, 40, 43, 46	ofc1 7559	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑂)) ∧ 𝑗 ∈ 𝑁) ∧ ⟨𝑖, 𝑗⟩ ∈ (𝑀 × 𝑁)) → ((((𝑀 × 𝑁) × {𝑋}) ∘f · 𝑌)‘⟨𝑖, 𝑗⟩) = (𝑋 · (𝑖𝑌𝑗)))
48	35, 47	mpdan 684	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑂)) ∧ 𝑗 ∈ 𝑁) → ((((𝑀 × 𝑁) × {𝑋}) ∘f · 𝑌)‘⟨𝑖, 𝑗⟩) = (𝑋 · (𝑖𝑌𝑗)))
49	32, 48	eqtrid 2790	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑂)) ∧ 𝑗 ∈ 𝑁) → (𝑖(((𝑀 × 𝑁) × {𝑋}) ∘f · 𝑌)𝑗) = (𝑋 · (𝑖𝑌𝑗)))
50	49	oveq1d 7290	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑂)) ∧ 𝑗 ∈ 𝑁) → ((𝑖(((𝑀 × 𝑁) × {𝑋}) ∘f · 𝑌)𝑗) · (𝑗𝑍𝑘)) = ((𝑋 · (𝑖𝑌𝑗)) · (𝑗𝑍𝑘)))
51	1, 4	ringass 19803	. . . . . . . . 9 ⊢ ((𝑅 ∈ Ring ∧ (𝑋 ∈ 𝐵 ∧ (𝑖𝑌𝑗) ∈ 𝐵 ∧ (𝑗𝑍𝑘) ∈ 𝐵)) → ((𝑋 · (𝑖𝑌𝑗)) · (𝑗𝑍𝑘)) = (𝑋 · ((𝑖𝑌𝑗) · (𝑗𝑍𝑘))))
52	11, 40, 18, 24, 51	syl13anc 1371	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑂)) ∧ 𝑗 ∈ 𝑁) → ((𝑋 · (𝑖𝑌𝑗)) · (𝑗𝑍𝑘)) = (𝑋 · ((𝑖𝑌𝑗) · (𝑗𝑍𝑘))))
53	50, 52	eqtrd 2778	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑂)) ∧ 𝑗 ∈ 𝑁) → ((𝑖(((𝑀 × 𝑁) × {𝑋}) ∘f · 𝑌)𝑗) · (𝑗𝑍𝑘)) = (𝑋 · ((𝑖𝑌𝑗) · (𝑗𝑍𝑘))))
54	53	mpteq2dva 5174	. . . . . 6 ⊢ ((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑂)) → (𝑗 ∈ 𝑁 ↦ ((𝑖(((𝑀 × 𝑁) × {𝑋}) ∘f · 𝑌)𝑗) · (𝑗𝑍𝑘))) = (𝑗 ∈ 𝑁 ↦ (𝑋 · ((𝑖𝑌𝑗) · (𝑗𝑍𝑘)))))
55	54	oveq2d 7291	. . . . 5 ⊢ ((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑂)) → (𝑅 Σg (𝑗 ∈ 𝑁 ↦ ((𝑖(((𝑀 × 𝑁) × {𝑋}) ∘f · 𝑌)𝑗) · (𝑗𝑍𝑘)))) = (𝑅 Σg (𝑗 ∈ 𝑁 ↦ (𝑋 · ((𝑖𝑌𝑗) · (𝑗𝑍𝑘))))))
56		mamudi.f	. . . . . . 7 ⊢ 𝐹 = (𝑅 maMul ⟨𝑀, 𝑁, 𝑂⟩)
57	36	adantr 481	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑂)) → 𝑀 ∈ Fin)
58		mamudi.o	. . . . . . . 8 ⊢ (𝜑 → 𝑂 ∈ Fin)
59	58	adantr 481	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑂)) → 𝑂 ∈ Fin)
60	12	adantr 481	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑂)) → 𝑌 ∈ (𝐵 ↑m (𝑀 × 𝑁)))
61	19	adantr 481	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑂)) → 𝑍 ∈ (𝐵 ↑m (𝑁 × 𝑂)))
62		simprr 770	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑂)) → 𝑘 ∈ 𝑂)
63	56, 1, 4, 6, 57, 8, 59, 60, 61, 33, 62	mamufv 21536	. . . . . 6 ⊢ ((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑂)) → (𝑖(𝑌𝐹𝑍)𝑘) = (𝑅 Σg (𝑗 ∈ 𝑁 ↦ ((𝑖𝑌𝑗) · (𝑗𝑍𝑘)))))
64	63	oveq2d 7291	. . . . 5 ⊢ ((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑂)) → (𝑋 · (𝑖(𝑌𝐹𝑍)𝑘)) = (𝑋 · (𝑅 Σg (𝑗 ∈ 𝑁 ↦ ((𝑖𝑌𝑗) · (𝑗𝑍𝑘))))))
65	31, 55, 64	3eqtr4d 2788	. . . 4 ⊢ ((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑂)) → (𝑅 Σg (𝑗 ∈ 𝑁 ↦ ((𝑖(((𝑀 × 𝑁) × {𝑋}) ∘f · 𝑌)𝑗) · (𝑗𝑍𝑘)))) = (𝑋 · (𝑖(𝑌𝐹𝑍)𝑘)))
66		fconst6g 6663	. . . . . . . . 9 ⊢ (𝑋 ∈ 𝐵 → ((𝑀 × 𝑁) × {𝑋}):(𝑀 × 𝑁)⟶𝐵)
67	9, 66	syl 17	. . . . . . . 8 ⊢ (𝜑 → ((𝑀 × 𝑁) × {𝑋}):(𝑀 × 𝑁)⟶𝐵)
68	1	fvexi 6788	. . . . . . . . 9 ⊢ 𝐵 ∈ V
69		elmapg 8628	. . . . . . . . 9 ⊢ ((𝐵 ∈ V ∧ (𝑀 × 𝑁) ∈ Fin) → (((𝑀 × 𝑁) × {𝑋}) ∈ (𝐵 ↑m (𝑀 × 𝑁)) ↔ ((𝑀 × 𝑁) × {𝑋}):(𝑀 × 𝑁)⟶𝐵))
70	68, 38, 69	sylancr 587	. . . . . . . 8 ⊢ (𝜑 → (((𝑀 × 𝑁) × {𝑋}) ∈ (𝐵 ↑m (𝑀 × 𝑁)) ↔ ((𝑀 × 𝑁) × {𝑋}):(𝑀 × 𝑁)⟶𝐵))
71	67, 70	mpbird 256	. . . . . . 7 ⊢ (𝜑 → ((𝑀 × 𝑁) × {𝑋}) ∈ (𝐵 ↑m (𝑀 × 𝑁)))
72	1, 4	ringvcl 21547	. . . . . . 7 ⊢ ((𝑅 ∈ Ring ∧ ((𝑀 × 𝑁) × {𝑋}) ∈ (𝐵 ↑m (𝑀 × 𝑁)) ∧ 𝑌 ∈ (𝐵 ↑m (𝑀 × 𝑁))) → (((𝑀 × 𝑁) × {𝑋}) ∘f · 𝑌) ∈ (𝐵 ↑m (𝑀 × 𝑁)))
73	5, 71, 12, 72	syl3anc 1370	. . . . . 6 ⊢ (𝜑 → (((𝑀 × 𝑁) × {𝑋}) ∘f · 𝑌) ∈ (𝐵 ↑m (𝑀 × 𝑁)))
74	73	adantr 481	. . . . 5 ⊢ ((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑂)) → (((𝑀 × 𝑁) × {𝑋}) ∘f · 𝑌) ∈ (𝐵 ↑m (𝑀 × 𝑁)))
75	56, 1, 4, 6, 57, 8, 59, 74, 61, 33, 62	mamufv 21536	. . . 4 ⊢ ((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑂)) → (𝑖((((𝑀 × 𝑁) × {𝑋}) ∘f · 𝑌)𝐹𝑍)𝑘) = (𝑅 Σg (𝑗 ∈ 𝑁 ↦ ((𝑖(((𝑀 × 𝑁) × {𝑋}) ∘f · 𝑌)𝑗) · (𝑗𝑍𝑘)))))
76		df-ov 7278	. . . . 5 ⊢ (𝑖(((𝑀 × 𝑂) × {𝑋}) ∘f · (𝑌𝐹𝑍))𝑘) = ((((𝑀 × 𝑂) × {𝑋}) ∘f · (𝑌𝐹𝑍))‘⟨𝑖, 𝑘⟩)
77		opelxpi 5626	. . . . . . 7 ⊢ ((𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑂) → ⟨𝑖, 𝑘⟩ ∈ (𝑀 × 𝑂))
78	77	adantl 482	. . . . . 6 ⊢ ((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑂)) → ⟨𝑖, 𝑘⟩ ∈ (𝑀 × 𝑂))
79		xpfi 9085	. . . . . . . . 9 ⊢ ((𝑀 ∈ Fin ∧ 𝑂 ∈ Fin) → (𝑀 × 𝑂) ∈ Fin)
80	36, 58, 79	syl2anc 584	. . . . . . . 8 ⊢ (𝜑 → (𝑀 × 𝑂) ∈ Fin)
81	80	adantr 481	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑂)) → (𝑀 × 𝑂) ∈ Fin)
82	1, 5, 56, 36, 7, 58, 12, 19	mamucl 21548	. . . . . . . . 9 ⊢ (𝜑 → (𝑌𝐹𝑍) ∈ (𝐵 ↑m (𝑀 × 𝑂)))
83		elmapi 8637	. . . . . . . . 9 ⊢ ((𝑌𝐹𝑍) ∈ (𝐵 ↑m (𝑀 × 𝑂)) → (𝑌𝐹𝑍):(𝑀 × 𝑂)⟶𝐵)
84		ffn 6600	. . . . . . . . 9 ⊢ ((𝑌𝐹𝑍):(𝑀 × 𝑂)⟶𝐵 → (𝑌𝐹𝑍) Fn (𝑀 × 𝑂))
85	82, 83, 84	3syl 18	. . . . . . . 8 ⊢ (𝜑 → (𝑌𝐹𝑍) Fn (𝑀 × 𝑂))
86	85	adantr 481	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑂)) → (𝑌𝐹𝑍) Fn (𝑀 × 𝑂))
87		df-ov 7278	. . . . . . . . 9 ⊢ (𝑖(𝑌𝐹𝑍)𝑘) = ((𝑌𝐹𝑍)‘⟨𝑖, 𝑘⟩)
88	87	eqcomi 2747	. . . . . . . 8 ⊢ ((𝑌𝐹𝑍)‘⟨𝑖, 𝑘⟩) = (𝑖(𝑌𝐹𝑍)𝑘)
89	88	a1i 11	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑂)) ∧ ⟨𝑖, 𝑘⟩ ∈ (𝑀 × 𝑂)) → ((𝑌𝐹𝑍)‘⟨𝑖, 𝑘⟩) = (𝑖(𝑌𝐹𝑍)𝑘))
90	81, 10, 86, 89	ofc1 7559	. . . . . 6 ⊢ (((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑂)) ∧ ⟨𝑖, 𝑘⟩ ∈ (𝑀 × 𝑂)) → ((((𝑀 × 𝑂) × {𝑋}) ∘f · (𝑌𝐹𝑍))‘⟨𝑖, 𝑘⟩) = (𝑋 · (𝑖(𝑌𝐹𝑍)𝑘)))
91	78, 90	mpdan 684	. . . . 5 ⊢ ((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑂)) → ((((𝑀 × 𝑂) × {𝑋}) ∘f · (𝑌𝐹𝑍))‘⟨𝑖, 𝑘⟩) = (𝑋 · (𝑖(𝑌𝐹𝑍)𝑘)))
92	76, 91	eqtrid 2790	. . . 4 ⊢ ((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑂)) → (𝑖(((𝑀 × 𝑂) × {𝑋}) ∘f · (𝑌𝐹𝑍))𝑘) = (𝑋 · (𝑖(𝑌𝐹𝑍)𝑘)))
93	65, 75, 92	3eqtr4d 2788	. . 3 ⊢ ((𝜑 ∧ (𝑖 ∈ 𝑀 ∧ 𝑘 ∈ 𝑂)) → (𝑖((((𝑀 × 𝑁) × {𝑋}) ∘f · 𝑌)𝐹𝑍)𝑘) = (𝑖(((𝑀 × 𝑂) × {𝑋}) ∘f · (𝑌𝐹𝑍))𝑘))
94	93	ralrimivva 3123	. 2 ⊢ (𝜑 → ∀𝑖 ∈ 𝑀 ∀𝑘 ∈ 𝑂 (𝑖((((𝑀 × 𝑁) × {𝑋}) ∘f · 𝑌)𝐹𝑍)𝑘) = (𝑖(((𝑀 × 𝑂) × {𝑋}) ∘f · (𝑌𝐹𝑍))𝑘))
95	1, 5, 56, 36, 7, 58, 73, 19	mamucl 21548	. . . 4 ⊢ (𝜑 → ((((𝑀 × 𝑁) × {𝑋}) ∘f · 𝑌)𝐹𝑍) ∈ (𝐵 ↑m (𝑀 × 𝑂)))
96		elmapi 8637	. . . 4 ⊢ (((((𝑀 × 𝑁) × {𝑋}) ∘f · 𝑌)𝐹𝑍) ∈ (𝐵 ↑m (𝑀 × 𝑂)) → ((((𝑀 × 𝑁) × {𝑋}) ∘f · 𝑌)𝐹𝑍):(𝑀 × 𝑂)⟶𝐵)
97		ffn 6600	. . . 4 ⊢ (((((𝑀 × 𝑁) × {𝑋}) ∘f · 𝑌)𝐹𝑍):(𝑀 × 𝑂)⟶𝐵 → ((((𝑀 × 𝑁) × {𝑋}) ∘f · 𝑌)𝐹𝑍) Fn (𝑀 × 𝑂))
98	95, 96, 97	3syl 18	. . 3 ⊢ (𝜑 → ((((𝑀 × 𝑁) × {𝑋}) ∘f · 𝑌)𝐹𝑍) Fn (𝑀 × 𝑂))
99		fconst6g 6663	. . . . . . 7 ⊢ (𝑋 ∈ 𝐵 → ((𝑀 × 𝑂) × {𝑋}):(𝑀 × 𝑂)⟶𝐵)
100	9, 99	syl 17	. . . . . 6 ⊢ (𝜑 → ((𝑀 × 𝑂) × {𝑋}):(𝑀 × 𝑂)⟶𝐵)
101		elmapg 8628	. . . . . . 7 ⊢ ((𝐵 ∈ V ∧ (𝑀 × 𝑂) ∈ Fin) → (((𝑀 × 𝑂) × {𝑋}) ∈ (𝐵 ↑m (𝑀 × 𝑂)) ↔ ((𝑀 × 𝑂) × {𝑋}):(𝑀 × 𝑂)⟶𝐵))
102	68, 80, 101	sylancr 587	. . . . . 6 ⊢ (𝜑 → (((𝑀 × 𝑂) × {𝑋}) ∈ (𝐵 ↑m (𝑀 × 𝑂)) ↔ ((𝑀 × 𝑂) × {𝑋}):(𝑀 × 𝑂)⟶𝐵))
103	100, 102	mpbird 256	. . . . 5 ⊢ (𝜑 → ((𝑀 × 𝑂) × {𝑋}) ∈ (𝐵 ↑m (𝑀 × 𝑂)))
104	1, 4	ringvcl 21547	. . . . 5 ⊢ ((𝑅 ∈ Ring ∧ ((𝑀 × 𝑂) × {𝑋}) ∈ (𝐵 ↑m (𝑀 × 𝑂)) ∧ (𝑌𝐹𝑍) ∈ (𝐵 ↑m (𝑀 × 𝑂))) → (((𝑀 × 𝑂) × {𝑋}) ∘f · (𝑌𝐹𝑍)) ∈ (𝐵 ↑m (𝑀 × 𝑂)))
105	5, 103, 82, 104	syl3anc 1370	. . . 4 ⊢ (𝜑 → (((𝑀 × 𝑂) × {𝑋}) ∘f · (𝑌𝐹𝑍)) ∈ (𝐵 ↑m (𝑀 × 𝑂)))
106		elmapi 8637	. . . 4 ⊢ ((((𝑀 × 𝑂) × {𝑋}) ∘f · (𝑌𝐹𝑍)) ∈ (𝐵 ↑m (𝑀 × 𝑂)) → (((𝑀 × 𝑂) × {𝑋}) ∘f · (𝑌𝐹𝑍)):(𝑀 × 𝑂)⟶𝐵)
107		ffn 6600	. . . 4 ⊢ ((((𝑀 × 𝑂) × {𝑋}) ∘f · (𝑌𝐹𝑍)):(𝑀 × 𝑂)⟶𝐵 → (((𝑀 × 𝑂) × {𝑋}) ∘f · (𝑌𝐹𝑍)) Fn (𝑀 × 𝑂))
108	105, 106, 107	3syl 18	. . 3 ⊢ (𝜑 → (((𝑀 × 𝑂) × {𝑋}) ∘f · (𝑌𝐹𝑍)) Fn (𝑀 × 𝑂))
109		eqfnov2 7404	. . 3 ⊢ ((((((𝑀 × 𝑁) × {𝑋}) ∘f · 𝑌)𝐹𝑍) Fn (𝑀 × 𝑂) ∧ (((𝑀 × 𝑂) × {𝑋}) ∘f · (𝑌𝐹𝑍)) Fn (𝑀 × 𝑂)) → (((((𝑀 × 𝑁) × {𝑋}) ∘f · 𝑌)𝐹𝑍) = (((𝑀 × 𝑂) × {𝑋}) ∘f · (𝑌𝐹𝑍)) ↔ ∀𝑖 ∈ 𝑀 ∀𝑘 ∈ 𝑂 (𝑖((((𝑀 × 𝑁) × {𝑋}) ∘f · 𝑌)𝐹𝑍)𝑘) = (𝑖(((𝑀 × 𝑂) × {𝑋}) ∘f · (𝑌𝐹𝑍))𝑘)))
110	98, 108, 109	syl2anc 584	. 2 ⊢ (𝜑 → (((((𝑀 × 𝑁) × {𝑋}) ∘f · 𝑌)𝐹𝑍) = (((𝑀 × 𝑂) × {𝑋}) ∘f · (𝑌𝐹𝑍)) ↔ ∀𝑖 ∈ 𝑀 ∀𝑘 ∈ 𝑂 (𝑖((((𝑀 × 𝑁) × {𝑋}) ∘f · 𝑌)𝐹𝑍)𝑘) = (𝑖(((𝑀 × 𝑂) × {𝑋}) ∘f · (𝑌𝐹𝑍))𝑘)))
111	94, 110	mpbird 256	1 ⊢ (𝜑 → ((((𝑀 × 𝑁) × {𝑋}) ∘f · 𝑌)𝐹𝑍) = (((𝑀 × 𝑂) × {𝑋}) ∘f · (𝑌𝐹𝑍)))

Syntax hints:   → wi 4   ↔ wb 205   ∧ wa 396   = wceq 1539   ∈ wcel 2106  ∀wral 3064  Vcvv 3432  {csn 4561  ⟨cop 4567  ⟨cotp 4569   ↦ cmpt 5157   × cxp 5587   Fn wfn 6428  ⟶wf 6429  ‘cfv 6433  (class class class)co 7275   ∘_f cof 7531   ↑_m cmap 8615  Fincfn 8733  Basecbs 16912  +_gcplusg 16962  ._rcmulr 16963  0_gc0g 17150   Σ_g cgsu 17151  Ringcrg 19783   maMul cmmul 21532

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1798  ax-4 1812  ax-5 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-11 2154  ax-12 2171  ax-ext 2709  ax-rep 5209  ax-sep 5223  ax-nul 5230  ax-pow 5288  ax-pr 5352  ax-un 7588  ax-cnex 10927  ax-resscn 10928  ax-1cn 10929  ax-icn 10930  ax-addcl 10931  ax-addrcl 10932  ax-mulcl 10933  ax-mulrcl 10934  ax-mulcom 10935  ax-addass 10936  ax-mulass 10937  ax-distr 10938  ax-i2m1 10939  ax-1ne0 10940  ax-1rid 10941  ax-rnegex 10942  ax-rrecex 10943  ax-cnre 10944  ax-pre-lttri 10945  ax-pre-lttrn 10946  ax-pre-ltadd 10947  ax-pre-mulgt0 10948

This theorem depends on definitions:  df-bi 206  df-an 397  df-or 845  df-3or 1087  df-3an 1088  df-tru 1542  df-fal 1552  df-ex 1783  df-nf 1787  df-sb 2068  df-mo 2540  df-eu 2569  df-clab 2716  df-cleq 2730  df-clel 2816  df-nfc 2889  df-ne 2944  df-nel 3050  df-ral 3069  df-rex 3070  df-rmo 3071  df-reu 3072  df-rab 3073  df-v 3434  df-sbc 3717  df-csb 3833  df-dif 3890  df-un 3892  df-in 3894  df-ss 3904  df-pss 3906  df-nul 4257  df-if 4460  df-pw 4535  df-sn 4562  df-pr 4564  df-op 4568  df-ot 4570  df-uni 4840  df-int 4880  df-iun 4926  df-br 5075  df-opab 5137  df-mpt 5158  df-tr 5192  df-id 5489  df-eprel 5495  df-po 5503  df-so 5504  df-fr 5544  df-se 5545  df-we 5546  df-xp 5595  df-rel 5596  df-cnv 5597  df-co 5598  df-dm 5599  df-rn 5600  df-res 5601  df-ima 5602  df-pred 6202  df-ord 6269  df-on 6270  df-lim 6271  df-suc 6272  df-iota 6391  df-fun 6435  df-fn 6436  df-f 6437  df-f1 6438  df-fo 6439  df-f1o 6440  df-fv 6441  df-isom 6442  df-riota 7232  df-ov 7278  df-oprab 7279  df-mpo 7280  df-of 7533  df-om 7713  df-1st 7831  df-2nd 7832  df-supp 7978  df-frecs 8097  df-wrecs 8128  df-recs 8202  df-rdg 8241  df-1o 8297  df-er 8498  df-map 8617  df-en 8734  df-dom 8735  df-sdom 8736  df-fin 8737  df-fsupp 9129  df-oi 9269  df-card 9697  df-pnf 11011  df-mnf 11012  df-xr 11013  df-ltxr 11014  df-le 11015  df-sub 11207  df-neg 11208  df-nn 11974  df-2 12036  df-n0 12234  df-z 12320  df-uz 12583  df-fz 13240  df-fzo 13383  df-seq 13722  df-hash 14045  df-sets 16865  df-slot 16883  df-ndx 16895  df-base 16913  df-plusg 16975  df-0g 17152  df-gsum 17153  df-mgm 18326  df-sgrp 18375  df-mnd 18386  df-mhm 18430  df-grp 18580  df-minusg 18581  df-ghm 18832  df-cntz 18923  df-cmn 19388  df-abl 19389  df-mgp 19721  df-ur 19738  df-ring 19785  df-mamu 21533

This theorem is referenced by:  matassa  21593  mdetmul  21772