Theorem matring 21055

Description: Existence of the matrix ring, see also the statement in [Lang] p. 504: "For a given integer n > 0 the set of square n x n matrices form a ring." (Contributed by Stefan O'Rear, 5-Sep-2015.)

Hypothesis

Ref	Expression
matassa.a	⊢ 𝐴 = (𝑁 Mat 𝑅)

Assertion

Ref	Expression
matring	⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) → 𝐴 ∈ Ring)

Proof of Theorem matring

Dummy variables 𝑎 𝑏 𝑥 𝑦 𝑧 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		matassa.a	. . 3 ⊢ 𝐴 = (𝑁 Mat 𝑅)
2		eqid 2824	. . 3 ⊢ (Base‘𝑅) = (Base‘𝑅)
3	1, 2	matbas2 21033	. 2 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) → ((Base‘𝑅) ↑m (𝑁 × 𝑁)) = (Base‘𝐴))
4		eqidd 2825	. 2 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) → (+g‘𝐴) = (+g‘𝐴))
5		eqid 2824	. . 3 ⊢ (𝑅 maMul ⟨𝑁, 𝑁, 𝑁⟩) = (𝑅 maMul ⟨𝑁, 𝑁, 𝑁⟩)
6	1, 5	matmulr 21050	. 2 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) → (𝑅 maMul ⟨𝑁, 𝑁, 𝑁⟩) = (.r‘𝐴))
7	1	matgrp 21042	. 2 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) → 𝐴 ∈ Grp)
8		simp1r 1194	. . 3 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ 𝑥 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)) ∧ 𝑦 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁))) → 𝑅 ∈ Ring)
9		simp1l 1193	. . 3 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ 𝑥 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)) ∧ 𝑦 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁))) → 𝑁 ∈ Fin)
10		simp2 1133	. . 3 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ 𝑥 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)) ∧ 𝑦 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁))) → 𝑥 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)))
11		simp3 1134	. . 3 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ 𝑥 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)) ∧ 𝑦 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁))) → 𝑦 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)))
12	2, 8, 5, 9, 9, 9, 10, 11	mamucl 21013	. 2 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ 𝑥 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)) ∧ 𝑦 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁))) → (𝑥(𝑅 maMul ⟨𝑁, 𝑁, 𝑁⟩)𝑦) ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)))
13		simplr 767	. . 3 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑥 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)) ∧ 𝑦 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)) ∧ 𝑧 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)))) → 𝑅 ∈ Ring)
14		simpll 765	. . 3 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑥 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)) ∧ 𝑦 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)) ∧ 𝑧 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)))) → 𝑁 ∈ Fin)
15		simpr1 1190	. . 3 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑥 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)) ∧ 𝑦 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)) ∧ 𝑧 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)))) → 𝑥 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)))
16		simpr2 1191	. . 3 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑥 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)) ∧ 𝑦 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)) ∧ 𝑧 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)))) → 𝑦 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)))
17		simpr3 1192	. . 3 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑥 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)) ∧ 𝑦 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)) ∧ 𝑧 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)))) → 𝑧 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)))
18	2, 13, 14, 14, 14, 14, 15, 16, 17, 5, 5, 5, 5	mamuass 21014	. 2 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑥 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)) ∧ 𝑦 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)) ∧ 𝑧 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)))) → ((𝑥(𝑅 maMul ⟨𝑁, 𝑁, 𝑁⟩)𝑦)(𝑅 maMul ⟨𝑁, 𝑁, 𝑁⟩)𝑧) = (𝑥(𝑅 maMul ⟨𝑁, 𝑁, 𝑁⟩)(𝑦(𝑅 maMul ⟨𝑁, 𝑁, 𝑁⟩)𝑧)))
19		eqid 2824	. . . 4 ⊢ (+g‘𝑅) = (+g‘𝑅)
20	2, 13, 5, 14, 14, 14, 19, 15, 16, 17	mamudir 21016	. . 3 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑥 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)) ∧ 𝑦 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)) ∧ 𝑧 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)))) → (𝑥(𝑅 maMul ⟨𝑁, 𝑁, 𝑁⟩)(𝑦 ∘f (+g‘𝑅)𝑧)) = ((𝑥(𝑅 maMul ⟨𝑁, 𝑁, 𝑁⟩)𝑦) ∘f (+g‘𝑅)(𝑥(𝑅 maMul ⟨𝑁, 𝑁, 𝑁⟩)𝑧)))
21	3	adantr 483	. . . . . 6 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑥 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)) ∧ 𝑦 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)) ∧ 𝑧 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)))) → ((Base‘𝑅) ↑m (𝑁 × 𝑁)) = (Base‘𝐴))
22	16, 21	eleqtrd 2918	. . . . 5 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑥 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)) ∧ 𝑦 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)) ∧ 𝑧 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)))) → 𝑦 ∈ (Base‘𝐴))
23	17, 21	eleqtrd 2918	. . . . 5 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑥 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)) ∧ 𝑦 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)) ∧ 𝑧 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)))) → 𝑧 ∈ (Base‘𝐴))
24		eqid 2824	. . . . . 6 ⊢ (Base‘𝐴) = (Base‘𝐴)
25		eqid 2824	. . . . . 6 ⊢ (+g‘𝐴) = (+g‘𝐴)
26	1, 24, 25, 19	matplusg2 21039	. . . . 5 ⊢ ((𝑦 ∈ (Base‘𝐴) ∧ 𝑧 ∈ (Base‘𝐴)) → (𝑦(+g‘𝐴)𝑧) = (𝑦 ∘f (+g‘𝑅)𝑧))
27	22, 23, 26	syl2anc 586	. . . 4 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑥 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)) ∧ 𝑦 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)) ∧ 𝑧 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)))) → (𝑦(+g‘𝐴)𝑧) = (𝑦 ∘f (+g‘𝑅)𝑧))
28	27	oveq2d 7175	. . 3 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑥 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)) ∧ 𝑦 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)) ∧ 𝑧 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)))) → (𝑥(𝑅 maMul ⟨𝑁, 𝑁, 𝑁⟩)(𝑦(+g‘𝐴)𝑧)) = (𝑥(𝑅 maMul ⟨𝑁, 𝑁, 𝑁⟩)(𝑦 ∘f (+g‘𝑅)𝑧)))
29	2, 13, 5, 14, 14, 14, 15, 16	mamucl 21013	. . . . 5 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑥 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)) ∧ 𝑦 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)) ∧ 𝑧 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)))) → (𝑥(𝑅 maMul ⟨𝑁, 𝑁, 𝑁⟩)𝑦) ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)))
30	29, 21	eleqtrd 2918	. . . 4 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑥 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)) ∧ 𝑦 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)) ∧ 𝑧 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)))) → (𝑥(𝑅 maMul ⟨𝑁, 𝑁, 𝑁⟩)𝑦) ∈ (Base‘𝐴))
31	2, 13, 5, 14, 14, 14, 15, 17	mamucl 21013	. . . . 5 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑥 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)) ∧ 𝑦 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)) ∧ 𝑧 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)))) → (𝑥(𝑅 maMul ⟨𝑁, 𝑁, 𝑁⟩)𝑧) ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)))
32	31, 21	eleqtrd 2918	. . . 4 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑥 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)) ∧ 𝑦 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)) ∧ 𝑧 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)))) → (𝑥(𝑅 maMul ⟨𝑁, 𝑁, 𝑁⟩)𝑧) ∈ (Base‘𝐴))
33	1, 24, 25, 19	matplusg2 21039	. . . 4 ⊢ (((𝑥(𝑅 maMul ⟨𝑁, 𝑁, 𝑁⟩)𝑦) ∈ (Base‘𝐴) ∧ (𝑥(𝑅 maMul ⟨𝑁, 𝑁, 𝑁⟩)𝑧) ∈ (Base‘𝐴)) → ((𝑥(𝑅 maMul ⟨𝑁, 𝑁, 𝑁⟩)𝑦)(+g‘𝐴)(𝑥(𝑅 maMul ⟨𝑁, 𝑁, 𝑁⟩)𝑧)) = ((𝑥(𝑅 maMul ⟨𝑁, 𝑁, 𝑁⟩)𝑦) ∘f (+g‘𝑅)(𝑥(𝑅 maMul ⟨𝑁, 𝑁, 𝑁⟩)𝑧)))
34	30, 32, 33	syl2anc 586	. . 3 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑥 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)) ∧ 𝑦 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)) ∧ 𝑧 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)))) → ((𝑥(𝑅 maMul ⟨𝑁, 𝑁, 𝑁⟩)𝑦)(+g‘𝐴)(𝑥(𝑅 maMul ⟨𝑁, 𝑁, 𝑁⟩)𝑧)) = ((𝑥(𝑅 maMul ⟨𝑁, 𝑁, 𝑁⟩)𝑦) ∘f (+g‘𝑅)(𝑥(𝑅 maMul ⟨𝑁, 𝑁, 𝑁⟩)𝑧)))
35	20, 28, 34	3eqtr4d 2869	. 2 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑥 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)) ∧ 𝑦 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)) ∧ 𝑧 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)))) → (𝑥(𝑅 maMul ⟨𝑁, 𝑁, 𝑁⟩)(𝑦(+g‘𝐴)𝑧)) = ((𝑥(𝑅 maMul ⟨𝑁, 𝑁, 𝑁⟩)𝑦)(+g‘𝐴)(𝑥(𝑅 maMul ⟨𝑁, 𝑁, 𝑁⟩)𝑧)))
36	2, 13, 5, 14, 14, 14, 19, 15, 16, 17	mamudi 21015	. . 3 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑥 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)) ∧ 𝑦 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)) ∧ 𝑧 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)))) → ((𝑥 ∘f (+g‘𝑅)𝑦)(𝑅 maMul ⟨𝑁, 𝑁, 𝑁⟩)𝑧) = ((𝑥(𝑅 maMul ⟨𝑁, 𝑁, 𝑁⟩)𝑧) ∘f (+g‘𝑅)(𝑦(𝑅 maMul ⟨𝑁, 𝑁, 𝑁⟩)𝑧)))
37	15, 21	eleqtrd 2918	. . . . 5 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑥 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)) ∧ 𝑦 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)) ∧ 𝑧 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)))) → 𝑥 ∈ (Base‘𝐴))
38	1, 24, 25, 19	matplusg2 21039	. . . . 5 ⊢ ((𝑥 ∈ (Base‘𝐴) ∧ 𝑦 ∈ (Base‘𝐴)) → (𝑥(+g‘𝐴)𝑦) = (𝑥 ∘f (+g‘𝑅)𝑦))
39	37, 22, 38	syl2anc 586	. . . 4 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑥 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)) ∧ 𝑦 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)) ∧ 𝑧 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)))) → (𝑥(+g‘𝐴)𝑦) = (𝑥 ∘f (+g‘𝑅)𝑦))
40	39	oveq1d 7174	. . 3 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑥 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)) ∧ 𝑦 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)) ∧ 𝑧 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)))) → ((𝑥(+g‘𝐴)𝑦)(𝑅 maMul ⟨𝑁, 𝑁, 𝑁⟩)𝑧) = ((𝑥 ∘f (+g‘𝑅)𝑦)(𝑅 maMul ⟨𝑁, 𝑁, 𝑁⟩)𝑧))
41	2, 13, 5, 14, 14, 14, 16, 17	mamucl 21013	. . . . 5 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑥 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)) ∧ 𝑦 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)) ∧ 𝑧 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)))) → (𝑦(𝑅 maMul ⟨𝑁, 𝑁, 𝑁⟩)𝑧) ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)))
42	41, 21	eleqtrd 2918	. . . 4 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑥 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)) ∧ 𝑦 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)) ∧ 𝑧 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)))) → (𝑦(𝑅 maMul ⟨𝑁, 𝑁, 𝑁⟩)𝑧) ∈ (Base‘𝐴))
43	1, 24, 25, 19	matplusg2 21039	. . . 4 ⊢ (((𝑥(𝑅 maMul ⟨𝑁, 𝑁, 𝑁⟩)𝑧) ∈ (Base‘𝐴) ∧ (𝑦(𝑅 maMul ⟨𝑁, 𝑁, 𝑁⟩)𝑧) ∈ (Base‘𝐴)) → ((𝑥(𝑅 maMul ⟨𝑁, 𝑁, 𝑁⟩)𝑧)(+g‘𝐴)(𝑦(𝑅 maMul ⟨𝑁, 𝑁, 𝑁⟩)𝑧)) = ((𝑥(𝑅 maMul ⟨𝑁, 𝑁, 𝑁⟩)𝑧) ∘f (+g‘𝑅)(𝑦(𝑅 maMul ⟨𝑁, 𝑁, 𝑁⟩)𝑧)))
44	32, 42, 43	syl2anc 586	. . 3 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑥 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)) ∧ 𝑦 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)) ∧ 𝑧 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)))) → ((𝑥(𝑅 maMul ⟨𝑁, 𝑁, 𝑁⟩)𝑧)(+g‘𝐴)(𝑦(𝑅 maMul ⟨𝑁, 𝑁, 𝑁⟩)𝑧)) = ((𝑥(𝑅 maMul ⟨𝑁, 𝑁, 𝑁⟩)𝑧) ∘f (+g‘𝑅)(𝑦(𝑅 maMul ⟨𝑁, 𝑁, 𝑁⟩)𝑧)))
45	36, 40, 44	3eqtr4d 2869	. 2 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑥 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)) ∧ 𝑦 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)) ∧ 𝑧 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)))) → ((𝑥(+g‘𝐴)𝑦)(𝑅 maMul ⟨𝑁, 𝑁, 𝑁⟩)𝑧) = ((𝑥(𝑅 maMul ⟨𝑁, 𝑁, 𝑁⟩)𝑧)(+g‘𝐴)(𝑦(𝑅 maMul ⟨𝑁, 𝑁, 𝑁⟩)𝑧)))
46		simpr 487	. . 3 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) → 𝑅 ∈ Ring)
47		eqid 2824	. . 3 ⊢ (1r‘𝑅) = (1r‘𝑅)
48		eqid 2824	. . 3 ⊢ (0g‘𝑅) = (0g‘𝑅)
49		eqid 2824	. . 3 ⊢ (𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ if(𝑎 = 𝑏, (1r‘𝑅), (0g‘𝑅))) = (𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ if(𝑎 = 𝑏, (1r‘𝑅), (0g‘𝑅)))
50		simpl 485	. . 3 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) → 𝑁 ∈ Fin)
51	2, 46, 47, 48, 49, 50	mamumat1cl 21051	. 2 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) → (𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ if(𝑎 = 𝑏, (1r‘𝑅), (0g‘𝑅))) ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)))
52		simplr 767	. . 3 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ 𝑥 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁))) → 𝑅 ∈ Ring)
53		simpll 765	. . 3 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ 𝑥 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁))) → 𝑁 ∈ Fin)
54		simpr 487	. . 3 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ 𝑥 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁))) → 𝑥 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁)))
55	2, 52, 47, 48, 49, 53, 53, 5, 54	mamulid 21053	. 2 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ 𝑥 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁))) → ((𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ if(𝑎 = 𝑏, (1r‘𝑅), (0g‘𝑅)))(𝑅 maMul ⟨𝑁, 𝑁, 𝑁⟩)𝑥) = 𝑥)
56	2, 52, 47, 48, 49, 53, 53, 5, 54	mamurid 21054	. 2 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ 𝑥 ∈ ((Base‘𝑅) ↑m (𝑁 × 𝑁))) → (𝑥(𝑅 maMul ⟨𝑁, 𝑁, 𝑁⟩)(𝑎 ∈ 𝑁, 𝑏 ∈ 𝑁 ↦ if(𝑎 = 𝑏, (1r‘𝑅), (0g‘𝑅)))) = 𝑥)
57	3, 4, 6, 7, 12, 18, 35, 45, 51, 55, 56	isringd 19338	1 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) → 𝐴 ∈ Ring)

Syntax hints:   → wi 4   ∧ wa 398   ∧ w3a 1083   = wceq 1536   ∈ wcel 2113  ifcif 4470  ⟨cotp 4578   × cxp 5556  ‘cfv 6358  (class class class)co 7159   ∈ cmpo 7161   ∘_f cof 7410   ↑_m cmap 8409  Fincfn 8512  Basecbs 16486  +_gcplusg 16568  0_gc0g 16716  1_rcur 19254  Ringcrg 19300   maMul cmmul 20997   Mat cmat 21019

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1910  ax-6 1969  ax-7 2014  ax-8 2115  ax-9 2123  ax-10 2144  ax-11 2160  ax-12 2176  ax-ext 2796  ax-rep 5193  ax-sep 5206  ax-nul 5213  ax-pow 5269  ax-pr 5333  ax-un 7464  ax-cnex 10596  ax-resscn 10597  ax-1cn 10598  ax-icn 10599  ax-addcl 10600  ax-addrcl 10601  ax-mulcl 10602  ax-mulrcl 10603  ax-mulcom 10604  ax-addass 10605  ax-mulass 10606  ax-distr 10607  ax-i2m1 10608  ax-1ne0 10609  ax-1rid 10610  ax-rnegex 10611  ax-rrecex 10612  ax-cnre 10613  ax-pre-lttri 10614  ax-pre-lttrn 10615  ax-pre-ltadd 10616  ax-pre-mulgt0 10617

This theorem depends on definitions:  df-bi 209  df-an 399  df-or 844  df-3or 1084  df-3an 1085  df-tru 1539  df-ex 1780  df-nf 1784  df-sb 2069  df-mo 2621  df-eu 2653  df-clab 2803  df-cleq 2817  df-clel 2896  df-nfc 2966  df-ne 3020  df-nel 3127  df-ral 3146  df-rex 3147  df-reu 3148  df-rmo 3149  df-rab 3150  df-v 3499  df-sbc 3776  df-csb 3887  df-dif 3942  df-un 3944  df-in 3946  df-ss 3955  df-pss 3957  df-nul 4295  df-if 4471  df-pw 4544  df-sn 4571  df-pr 4573  df-tp 4575  df-op 4577  df-ot 4579  df-uni 4842  df-int 4880  df-iun 4924  df-iin 4925  df-br 5070  df-opab 5132  df-mpt 5150  df-tr 5176  df-id 5463  df-eprel 5468  df-po 5477  df-so 5478  df-fr 5517  df-se 5518  df-we 5519  df-xp 5564  df-rel 5565  df-cnv 5566  df-co 5567  df-dm 5568  df-rn 5569  df-res 5570  df-ima 5571  df-pred 6151  df-ord 6197  df-on 6198  df-lim 6199  df-suc 6200  df-iota 6317  df-fun 6360  df-fn 6361  df-f 6362  df-f1 6363  df-fo 6364  df-f1o 6365  df-fv 6366  df-isom 6367  df-riota 7117  df-ov 7162  df-oprab 7163  df-mpo 7164  df-of 7412  df-om 7584  df-1st 7692  df-2nd 7693  df-supp 7834  df-wrecs 7950  df-recs 8011  df-rdg 8049  df-1o 8105  df-oadd 8109  df-er 8292  df-map 8411  df-ixp 8465  df-en 8513  df-dom 8514  df-sdom 8515  df-fin 8516  df-fsupp 8837  df-sup 8909  df-oi 8977  df-card 9371  df-pnf 10680  df-mnf 10681  df-xr 10682  df-ltxr 10683  df-le 10684  df-sub 10875  df-neg 10876  df-nn 11642  df-2 11703  df-3 11704  df-4 11705  df-5 11706  df-6 11707  df-7 11708  df-8 11709  df-9 11710  df-n0 11901  df-z 11985  df-dec 12102  df-uz 12247  df-fz 12896  df-fzo 13037  df-seq 13373  df-hash 13694  df-struct 16488  df-ndx 16489  df-slot 16490  df-base 16492  df-sets 16493  df-ress 16494  df-plusg 16581  df-mulr 16582  df-sca 16584  df-vsca 16585  df-ip 16586  df-tset 16587  df-ple 16588  df-ds 16590  df-hom 16592  df-cco 16593  df-0g 16718  df-gsum 16719  df-prds 16724  df-pws 16726  df-mre 16860  df-mrc 16861  df-acs 16863  df-mgm 17855  df-sgrp 17904  df-mnd 17915  df-mhm 17959  df-submnd 17960  df-grp 18109  df-minusg 18110  df-sbg 18111  df-mulg 18228  df-subg 18279  df-ghm 18359  df-cntz 18450  df-cmn 18911  df-abl 18912  df-mgp 19243  df-ur 19255  df-ring 19302  df-subrg 19536  df-lmod 19639  df-lss 19707  df-sra 19947  df-rgmod 19948  df-dsmm 20879  df-frlm 20894  df-mamu 20998  df-mat 21020

This theorem is referenced by:  matassa  21056  mat1  21059  mat1bas  21061  matsc  21062  mat0dim0  21079  mat0dimid  21080  mat0dimcrng  21082  mat1dimcrng  21089  mat1ghm  21095  mat1mhm  21096  mat1rhm  21097  mat1rngiso  21098  dmatid  21107  dmatsgrp  21111  dmatsrng  21113  scmatscmide  21119  scmatscmiddistr  21120  scmatmats  21123  scmatscm  21125  scmatid  21126  scmataddcl  21128  scmatsubcl  21129  scmatmulcl  21130  scmatsgrp  21131  scmatsrng  21132  smatvscl  21136  scmatrhmcl  21140  scmatf1  21143  scmatmhm  21146  mdet1  21213  mdetunilem8  21231  mdetuni0  21233  mdetmul  21235  madulid  21257  matunit  21290  slesolinv  21292  slesolinvbi  21293  slesolex  21294  pmatring  21304  mat2pmatghm  21341  mat2pmatmul  21342  mat2pmat1  21343  mat2pmatmhm  21344  mat2pmatrhm  21345  m2cpmrhm  21357  m2pmfzgsumcl  21359  m2cpmrngiso  21369  m2cpminv0  21372  decpmataa0  21379  decpmatmul  21383  monmatcollpw  21390  pmatcollpw3fi1lem1  21397  pmatcollpw3fi1lem2  21398  pm2mpf1lem  21405  pm2mpcl  21408  pm2mpf1  21410  pm2mpcoe1  21411  idpm2idmp  21412  mp2pm2mplem5  21421  mp2pm2mp  21422  pm2mpghmlem2  21423  pm2mpghmlem1  21424  pm2mpghm  21427  pm2mpmhmlem1  21429  pm2mpmhmlem2  21430  pm2mpmhm  21431  pm2mprhm  21432  pm2mprngiso  21433  monmat2matmon  21435  pm2mp  21436  chpmat0d  21445  chpmat1dlem  21446  chpmat1d  21447  chp0mat  21457  chpidmat  21458  cpmidgsumm2pm  21480  cpmidpmatlem2  21482  cpmidpmatlem3  21483  cpmadugsumlemB  21485  cpmadugsumlemC  21486  cayhamlem2  21495  chcoeffeqlem  21496  cayhamlem4  21499  matunitlindflem2  34893  matunitlindf  34894