Theorem m2detleib 22534

Description: Leibniz' Formula for 2x2-matrices. (Contributed by AV, 21-Dec-2018.) (Revised by AV, 26-Dec-2018.) (Proof shortened by AV, 23-Jul-2019.)

Hypotheses

Ref	Expression
m2detleib.n	⊢ 𝑁 = {1, 2}
m2detleib.d	⊢ 𝐷 = (𝑁 maDet 𝑅)
m2detleib.a	⊢ 𝐴 = (𝑁 Mat 𝑅)
m2detleib.b	⊢ 𝐵 = (Base‘𝐴)
m2detleib.m	⊢ − = (-g‘𝑅)
m2detleib.t	⊢ · = (.r‘𝑅)

Assertion

Ref	Expression
m2detleib	⊢ ((𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) → (𝐷‘𝑀) = (((1𝑀1) · (2𝑀2)) − ((2𝑀1) · (1𝑀2))))

Proof of Theorem m2detleib

Dummy variables 𝑘 𝑛 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		m2detleib.d	. . . 4 ⊢ 𝐷 = (𝑁 maDet 𝑅)
2		m2detleib.a	. . . 4 ⊢ 𝐴 = (𝑁 Mat 𝑅)
3		m2detleib.b	. . . 4 ⊢ 𝐵 = (Base‘𝐴)
4		eqid 2729	. . . 4 ⊢ (Base‘(SymGrp‘𝑁)) = (Base‘(SymGrp‘𝑁))
5		eqid 2729	. . . 4 ⊢ (ℤRHom‘𝑅) = (ℤRHom‘𝑅)
6		eqid 2729	. . . 4 ⊢ (pmSgn‘𝑁) = (pmSgn‘𝑁)
7		m2detleib.t	. . . 4 ⊢ · = (.r‘𝑅)
8		eqid 2729	. . . 4 ⊢ (mulGrp‘𝑅) = (mulGrp‘𝑅)
9	1, 2, 3, 4, 5, 6, 7, 8	mdetleib1 22494	. . 3 ⊢ (𝑀 ∈ 𝐵 → (𝐷‘𝑀) = (𝑅 Σg (𝑘 ∈ (Base‘(SymGrp‘𝑁)) ↦ (((ℤRHom‘𝑅)‘((pmSgn‘𝑁)‘𝑘)) · ((mulGrp‘𝑅) Σg (𝑛 ∈ 𝑁 ↦ ((𝑘‘𝑛)𝑀𝑛)))))))
10	9	adantl 481	. 2 ⊢ ((𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) → (𝐷‘𝑀) = (𝑅 Σg (𝑘 ∈ (Base‘(SymGrp‘𝑁)) ↦ (((ℤRHom‘𝑅)‘((pmSgn‘𝑁)‘𝑘)) · ((mulGrp‘𝑅) Σg (𝑛 ∈ 𝑁 ↦ ((𝑘‘𝑛)𝑀𝑛)))))))
11		eqid 2729	. . 3 ⊢ (Base‘𝑅) = (Base‘𝑅)
12		eqid 2729	. . 3 ⊢ (+g‘𝑅) = (+g‘𝑅)
13		ringcmn 20185	. . . 4 ⊢ (𝑅 ∈ Ring → 𝑅 ∈ CMnd)
14	13	adantr 480	. . 3 ⊢ ((𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) → 𝑅 ∈ CMnd)
15		m2detleib.n	. . . . . 6 ⊢ 𝑁 = {1, 2}
16		prfi 9232	. . . . . 6 ⊢ {1, 2} ∈ Fin
17	15, 16	eqeltri 2824	. . . . 5 ⊢ 𝑁 ∈ Fin
18		eqid 2729	. . . . . 6 ⊢ (SymGrp‘𝑁) = (SymGrp‘𝑁)
19	18, 4	symgbasfi 19276	. . . . 5 ⊢ (𝑁 ∈ Fin → (Base‘(SymGrp‘𝑁)) ∈ Fin)
20	17, 19	ax-mp 5	. . . 4 ⊢ (Base‘(SymGrp‘𝑁)) ∈ Fin
21	20	a1i 11	. . 3 ⊢ ((𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) → (Base‘(SymGrp‘𝑁)) ∈ Fin)
22		simpl 482	. . . . 5 ⊢ ((𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) → 𝑅 ∈ Ring)
23	22	adantr 480	. . . 4 ⊢ (((𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) ∧ 𝑘 ∈ (Base‘(SymGrp‘𝑁))) → 𝑅 ∈ Ring)
24	4, 6, 5	zrhpsgnelbas 21519	. . . . . 6 ⊢ ((𝑅 ∈ Ring ∧ 𝑁 ∈ Fin ∧ 𝑘 ∈ (Base‘(SymGrp‘𝑁))) → ((ℤRHom‘𝑅)‘((pmSgn‘𝑁)‘𝑘)) ∈ (Base‘𝑅))
25	17, 24	mp3an2 1451	. . . . 5 ⊢ ((𝑅 ∈ Ring ∧ 𝑘 ∈ (Base‘(SymGrp‘𝑁))) → ((ℤRHom‘𝑅)‘((pmSgn‘𝑁)‘𝑘)) ∈ (Base‘𝑅))
26	25	adantlr 715	. . . 4 ⊢ (((𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) ∧ 𝑘 ∈ (Base‘(SymGrp‘𝑁))) → ((ℤRHom‘𝑅)‘((pmSgn‘𝑁)‘𝑘)) ∈ (Base‘𝑅))
27		simpr 484	. . . . 5 ⊢ (((𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) ∧ 𝑘 ∈ (Base‘(SymGrp‘𝑁))) → 𝑘 ∈ (Base‘(SymGrp‘𝑁)))
28		simpr 484	. . . . . 6 ⊢ ((𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) → 𝑀 ∈ 𝐵)
29	28	adantr 480	. . . . 5 ⊢ (((𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) ∧ 𝑘 ∈ (Base‘(SymGrp‘𝑁))) → 𝑀 ∈ 𝐵)
30	15, 4, 2, 3, 8	m2detleiblem2 22531	. . . . 5 ⊢ ((𝑅 ∈ Ring ∧ 𝑘 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑀 ∈ 𝐵) → ((mulGrp‘𝑅) Σg (𝑛 ∈ 𝑁 ↦ ((𝑘‘𝑛)𝑀𝑛))) ∈ (Base‘𝑅))
31	23, 27, 29, 30	syl3anc 1373	. . . 4 ⊢ (((𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) ∧ 𝑘 ∈ (Base‘(SymGrp‘𝑁))) → ((mulGrp‘𝑅) Σg (𝑛 ∈ 𝑁 ↦ ((𝑘‘𝑛)𝑀𝑛))) ∈ (Base‘𝑅))
32	11, 7	ringcl 20153	. . . 4 ⊢ ((𝑅 ∈ Ring ∧ ((ℤRHom‘𝑅)‘((pmSgn‘𝑁)‘𝑘)) ∈ (Base‘𝑅) ∧ ((mulGrp‘𝑅) Σg (𝑛 ∈ 𝑁 ↦ ((𝑘‘𝑛)𝑀𝑛))) ∈ (Base‘𝑅)) → (((ℤRHom‘𝑅)‘((pmSgn‘𝑁)‘𝑘)) · ((mulGrp‘𝑅) Σg (𝑛 ∈ 𝑁 ↦ ((𝑘‘𝑛)𝑀𝑛)))) ∈ (Base‘𝑅))
33	23, 26, 31, 32	syl3anc 1373	. . 3 ⊢ (((𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) ∧ 𝑘 ∈ (Base‘(SymGrp‘𝑁))) → (((ℤRHom‘𝑅)‘((pmSgn‘𝑁)‘𝑘)) · ((mulGrp‘𝑅) Σg (𝑛 ∈ 𝑁 ↦ ((𝑘‘𝑛)𝑀𝑛)))) ∈ (Base‘𝑅))
34		opex 5411	. . . . . . . 8 ⊢ ⟨1, 1⟩ ∈ V
35		opex 5411	. . . . . . . 8 ⊢ ⟨2, 2⟩ ∈ V
36	34, 35	pm3.2i 470	. . . . . . 7 ⊢ (⟨1, 1⟩ ∈ V ∧ ⟨2, 2⟩ ∈ V)
37		opex 5411	. . . . . . . 8 ⊢ ⟨1, 2⟩ ∈ V
38		opex 5411	. . . . . . . 8 ⊢ ⟨2, 1⟩ ∈ V
39	37, 38	pm3.2i 470	. . . . . . 7 ⊢ (⟨1, 2⟩ ∈ V ∧ ⟨2, 1⟩ ∈ V)
40	36, 39	pm3.2i 470	. . . . . 6 ⊢ ((⟨1, 1⟩ ∈ V ∧ ⟨2, 2⟩ ∈ V) ∧ (⟨1, 2⟩ ∈ V ∧ ⟨2, 1⟩ ∈ V))
41		1ne2 12349	. . . . . . . . . 10 ⊢ 1 ≠ 2
42	41	olci 866	. . . . . . . . 9 ⊢ (1 ≠ 1 ∨ 1 ≠ 2)
43		1ex 11130	. . . . . . . . . 10 ⊢ 1 ∈ V
44	43, 43	opthne 5429	. . . . . . . . 9 ⊢ (⟨1, 1⟩ ≠ ⟨1, 2⟩ ↔ (1 ≠ 1 ∨ 1 ≠ 2))
45	42, 44	mpbir 231	. . . . . . . 8 ⊢ ⟨1, 1⟩ ≠ ⟨1, 2⟩
46	41	orci 865	. . . . . . . . 9 ⊢ (1 ≠ 2 ∨ 1 ≠ 1)
47	43, 43	opthne 5429	. . . . . . . . 9 ⊢ (⟨1, 1⟩ ≠ ⟨2, 1⟩ ↔ (1 ≠ 2 ∨ 1 ≠ 1))
48	46, 47	mpbir 231	. . . . . . . 8 ⊢ ⟨1, 1⟩ ≠ ⟨2, 1⟩
49	45, 48	pm3.2i 470	. . . . . . 7 ⊢ (⟨1, 1⟩ ≠ ⟨1, 2⟩ ∧ ⟨1, 1⟩ ≠ ⟨2, 1⟩)
50	49	orci 865	. . . . . 6 ⊢ ((⟨1, 1⟩ ≠ ⟨1, 2⟩ ∧ ⟨1, 1⟩ ≠ ⟨2, 1⟩) ∨ (⟨2, 2⟩ ≠ ⟨1, 2⟩ ∧ ⟨2, 2⟩ ≠ ⟨2, 1⟩))
51	40, 50	pm3.2i 470	. . . . 5 ⊢ (((⟨1, 1⟩ ∈ V ∧ ⟨2, 2⟩ ∈ V) ∧ (⟨1, 2⟩ ∈ V ∧ ⟨2, 1⟩ ∈ V)) ∧ ((⟨1, 1⟩ ≠ ⟨1, 2⟩ ∧ ⟨1, 1⟩ ≠ ⟨2, 1⟩) ∨ (⟨2, 2⟩ ≠ ⟨1, 2⟩ ∧ ⟨2, 2⟩ ≠ ⟨2, 1⟩)))
52	51	a1i 11	. . . 4 ⊢ ((𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) → (((⟨1, 1⟩ ∈ V ∧ ⟨2, 2⟩ ∈ V) ∧ (⟨1, 2⟩ ∈ V ∧ ⟨2, 1⟩ ∈ V)) ∧ ((⟨1, 1⟩ ≠ ⟨1, 2⟩ ∧ ⟨1, 1⟩ ≠ ⟨2, 1⟩) ∨ (⟨2, 2⟩ ≠ ⟨1, 2⟩ ∧ ⟨2, 2⟩ ≠ ⟨2, 1⟩))))
53		prneimg 4808	. . . . 5 ⊢ (((⟨1, 1⟩ ∈ V ∧ ⟨2, 2⟩ ∈ V) ∧ (⟨1, 2⟩ ∈ V ∧ ⟨2, 1⟩ ∈ V)) → (((⟨1, 1⟩ ≠ ⟨1, 2⟩ ∧ ⟨1, 1⟩ ≠ ⟨2, 1⟩) ∨ (⟨2, 2⟩ ≠ ⟨1, 2⟩ ∧ ⟨2, 2⟩ ≠ ⟨2, 1⟩)) → {⟨1, 1⟩, ⟨2, 2⟩} ≠ {⟨1, 2⟩, ⟨2, 1⟩}))
54	53	imp 406	. . . 4 ⊢ ((((⟨1, 1⟩ ∈ V ∧ ⟨2, 2⟩ ∈ V) ∧ (⟨1, 2⟩ ∈ V ∧ ⟨2, 1⟩ ∈ V)) ∧ ((⟨1, 1⟩ ≠ ⟨1, 2⟩ ∧ ⟨1, 1⟩ ≠ ⟨2, 1⟩) ∨ (⟨2, 2⟩ ≠ ⟨1, 2⟩ ∧ ⟨2, 2⟩ ≠ ⟨2, 1⟩))) → {⟨1, 1⟩, ⟨2, 2⟩} ≠ {⟨1, 2⟩, ⟨2, 1⟩})
55		disjsn2 4666	. . . 4 ⊢ ({⟨1, 1⟩, ⟨2, 2⟩} ≠ {⟨1, 2⟩, ⟨2, 1⟩} → ({{⟨1, 1⟩, ⟨2, 2⟩}} ∩ {{⟨1, 2⟩, ⟨2, 1⟩}}) = ∅)
56	52, 54, 55	3syl 18	. . 3 ⊢ ((𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) → ({{⟨1, 1⟩, ⟨2, 2⟩}} ∩ {{⟨1, 2⟩, ⟨2, 1⟩}}) = ∅)
57		2nn 12219	. . . . . 6 ⊢ 2 ∈ ℕ
58	18, 4, 15	symg2bas 19290	. . . . . 6 ⊢ ((1 ∈ V ∧ 2 ∈ ℕ) → (Base‘(SymGrp‘𝑁)) = {{⟨1, 1⟩, ⟨2, 2⟩}, {⟨1, 2⟩, ⟨2, 1⟩}})
59	43, 57, 58	mp2an 692	. . . . 5 ⊢ (Base‘(SymGrp‘𝑁)) = {{⟨1, 1⟩, ⟨2, 2⟩}, {⟨1, 2⟩, ⟨2, 1⟩}}
60		df-pr 4582	. . . . 5 ⊢ {{⟨1, 1⟩, ⟨2, 2⟩}, {⟨1, 2⟩, ⟨2, 1⟩}} = ({{⟨1, 1⟩, ⟨2, 2⟩}} ∪ {{⟨1, 2⟩, ⟨2, 1⟩}})
61	59, 60	eqtri 2752	. . . 4 ⊢ (Base‘(SymGrp‘𝑁)) = ({{⟨1, 1⟩, ⟨2, 2⟩}} ∪ {{⟨1, 2⟩, ⟨2, 1⟩}})
62	61	a1i 11	. . 3 ⊢ ((𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) → (Base‘(SymGrp‘𝑁)) = ({{⟨1, 1⟩, ⟨2, 2⟩}} ∪ {{⟨1, 2⟩, ⟨2, 1⟩}}))
63	11, 12, 14, 21, 33, 56, 62	gsummptfidmsplit 19827	. 2 ⊢ ((𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) → (𝑅 Σg (𝑘 ∈ (Base‘(SymGrp‘𝑁)) ↦ (((ℤRHom‘𝑅)‘((pmSgn‘𝑁)‘𝑘)) · ((mulGrp‘𝑅) Σg (𝑛 ∈ 𝑁 ↦ ((𝑘‘𝑛)𝑀𝑛)))))) = ((𝑅 Σg (𝑘 ∈ {{⟨1, 1⟩, ⟨2, 2⟩}} ↦ (((ℤRHom‘𝑅)‘((pmSgn‘𝑁)‘𝑘)) · ((mulGrp‘𝑅) Σg (𝑛 ∈ 𝑁 ↦ ((𝑘‘𝑛)𝑀𝑛))))))(+g‘𝑅)(𝑅 Σg (𝑘 ∈ {{⟨1, 2⟩, ⟨2, 1⟩}} ↦ (((ℤRHom‘𝑅)‘((pmSgn‘𝑁)‘𝑘)) · ((mulGrp‘𝑅) Σg (𝑛 ∈ 𝑁 ↦ ((𝑘‘𝑛)𝑀𝑛))))))))
64		ringmnd 20146	. . . . . 6 ⊢ (𝑅 ∈ Ring → 𝑅 ∈ Mnd)
65	64	adantr 480	. . . . 5 ⊢ ((𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) → 𝑅 ∈ Mnd)
66		prex 5379	. . . . . 6 ⊢ {⟨1, 1⟩, ⟨2, 2⟩} ∈ V
67	66	a1i 11	. . . . 5 ⊢ ((𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) → {⟨1, 1⟩, ⟨2, 2⟩} ∈ V)
68	66	prid1 4716	. . . . . . . . 9 ⊢ {⟨1, 1⟩, ⟨2, 2⟩} ∈ {{⟨1, 1⟩, ⟨2, 2⟩}, {⟨1, 2⟩, ⟨2, 1⟩}}
69	68, 59	eleqtrri 2827	. . . . . . . 8 ⊢ {⟨1, 1⟩, ⟨2, 2⟩} ∈ (Base‘(SymGrp‘𝑁))
70	69	a1i 11	. . . . . . 7 ⊢ (𝑀 ∈ 𝐵 → {⟨1, 1⟩, ⟨2, 2⟩} ∈ (Base‘(SymGrp‘𝑁)))
71	4, 6, 5	zrhpsgnelbas 21519	. . . . . . . 8 ⊢ ((𝑅 ∈ Ring ∧ 𝑁 ∈ Fin ∧ {⟨1, 1⟩, ⟨2, 2⟩} ∈ (Base‘(SymGrp‘𝑁))) → ((ℤRHom‘𝑅)‘((pmSgn‘𝑁)‘{⟨1, 1⟩, ⟨2, 2⟩})) ∈ (Base‘𝑅))
72	17, 71	mp3an2 1451	. . . . . . 7 ⊢ ((𝑅 ∈ Ring ∧ {⟨1, 1⟩, ⟨2, 2⟩} ∈ (Base‘(SymGrp‘𝑁))) → ((ℤRHom‘𝑅)‘((pmSgn‘𝑁)‘{⟨1, 1⟩, ⟨2, 2⟩})) ∈ (Base‘𝑅))
73	70, 72	sylan2 593	. . . . . 6 ⊢ ((𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) → ((ℤRHom‘𝑅)‘((pmSgn‘𝑁)‘{⟨1, 1⟩, ⟨2, 2⟩})) ∈ (Base‘𝑅))
74	15, 4, 2, 3, 8	m2detleiblem2 22531	. . . . . . 7 ⊢ ((𝑅 ∈ Ring ∧ {⟨1, 1⟩, ⟨2, 2⟩} ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑀 ∈ 𝐵) → ((mulGrp‘𝑅) Σg (𝑛 ∈ 𝑁 ↦ (({⟨1, 1⟩, ⟨2, 2⟩}‘𝑛)𝑀𝑛))) ∈ (Base‘𝑅))
75	69, 74	mp3an2 1451	. . . . . 6 ⊢ ((𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) → ((mulGrp‘𝑅) Σg (𝑛 ∈ 𝑁 ↦ (({⟨1, 1⟩, ⟨2, 2⟩}‘𝑛)𝑀𝑛))) ∈ (Base‘𝑅))
76	11, 7	ringcl 20153	. . . . . 6 ⊢ ((𝑅 ∈ Ring ∧ ((ℤRHom‘𝑅)‘((pmSgn‘𝑁)‘{⟨1, 1⟩, ⟨2, 2⟩})) ∈ (Base‘𝑅) ∧ ((mulGrp‘𝑅) Σg (𝑛 ∈ 𝑁 ↦ (({⟨1, 1⟩, ⟨2, 2⟩}‘𝑛)𝑀𝑛))) ∈ (Base‘𝑅)) → (((ℤRHom‘𝑅)‘((pmSgn‘𝑁)‘{⟨1, 1⟩, ⟨2, 2⟩})) · ((mulGrp‘𝑅) Σg (𝑛 ∈ 𝑁 ↦ (({⟨1, 1⟩, ⟨2, 2⟩}‘𝑛)𝑀𝑛)))) ∈ (Base‘𝑅))
77	22, 73, 75, 76	syl3anc 1373	. . . . 5 ⊢ ((𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) → (((ℤRHom‘𝑅)‘((pmSgn‘𝑁)‘{⟨1, 1⟩, ⟨2, 2⟩})) · ((mulGrp‘𝑅) Σg (𝑛 ∈ 𝑁 ↦ (({⟨1, 1⟩, ⟨2, 2⟩}‘𝑛)𝑀𝑛)))) ∈ (Base‘𝑅))
78		2fveq3 6831	. . . . . . 7 ⊢ (𝑘 = {⟨1, 1⟩, ⟨2, 2⟩} → ((ℤRHom‘𝑅)‘((pmSgn‘𝑁)‘𝑘)) = ((ℤRHom‘𝑅)‘((pmSgn‘𝑁)‘{⟨1, 1⟩, ⟨2, 2⟩})))
79		fveq1 6825	. . . . . . . . . 10 ⊢ (𝑘 = {⟨1, 1⟩, ⟨2, 2⟩} → (𝑘‘𝑛) = ({⟨1, 1⟩, ⟨2, 2⟩}‘𝑛))
80	79	oveq1d 7368	. . . . . . . . 9 ⊢ (𝑘 = {⟨1, 1⟩, ⟨2, 2⟩} → ((𝑘‘𝑛)𝑀𝑛) = (({⟨1, 1⟩, ⟨2, 2⟩}‘𝑛)𝑀𝑛))
81	80	mpteq2dv 5189	. . . . . . . 8 ⊢ (𝑘 = {⟨1, 1⟩, ⟨2, 2⟩} → (𝑛 ∈ 𝑁 ↦ ((𝑘‘𝑛)𝑀𝑛)) = (𝑛 ∈ 𝑁 ↦ (({⟨1, 1⟩, ⟨2, 2⟩}‘𝑛)𝑀𝑛)))
82	81	oveq2d 7369	. . . . . . 7 ⊢ (𝑘 = {⟨1, 1⟩, ⟨2, 2⟩} → ((mulGrp‘𝑅) Σg (𝑛 ∈ 𝑁 ↦ ((𝑘‘𝑛)𝑀𝑛))) = ((mulGrp‘𝑅) Σg (𝑛 ∈ 𝑁 ↦ (({⟨1, 1⟩, ⟨2, 2⟩}‘𝑛)𝑀𝑛))))
83	78, 82	oveq12d 7371	. . . . . 6 ⊢ (𝑘 = {⟨1, 1⟩, ⟨2, 2⟩} → (((ℤRHom‘𝑅)‘((pmSgn‘𝑁)‘𝑘)) · ((mulGrp‘𝑅) Σg (𝑛 ∈ 𝑁 ↦ ((𝑘‘𝑛)𝑀𝑛)))) = (((ℤRHom‘𝑅)‘((pmSgn‘𝑁)‘{⟨1, 1⟩, ⟨2, 2⟩})) · ((mulGrp‘𝑅) Σg (𝑛 ∈ 𝑁 ↦ (({⟨1, 1⟩, ⟨2, 2⟩}‘𝑛)𝑀𝑛)))))
84	11, 83	gsumsn 19851	. . . . 5 ⊢ ((𝑅 ∈ Mnd ∧ {⟨1, 1⟩, ⟨2, 2⟩} ∈ V ∧ (((ℤRHom‘𝑅)‘((pmSgn‘𝑁)‘{⟨1, 1⟩, ⟨2, 2⟩})) · ((mulGrp‘𝑅) Σg (𝑛 ∈ 𝑁 ↦ (({⟨1, 1⟩, ⟨2, 2⟩}‘𝑛)𝑀𝑛)))) ∈ (Base‘𝑅)) → (𝑅 Σg (𝑘 ∈ {{⟨1, 1⟩, ⟨2, 2⟩}} ↦ (((ℤRHom‘𝑅)‘((pmSgn‘𝑁)‘𝑘)) · ((mulGrp‘𝑅) Σg (𝑛 ∈ 𝑁 ↦ ((𝑘‘𝑛)𝑀𝑛)))))) = (((ℤRHom‘𝑅)‘((pmSgn‘𝑁)‘{⟨1, 1⟩, ⟨2, 2⟩})) · ((mulGrp‘𝑅) Σg (𝑛 ∈ 𝑁 ↦ (({⟨1, 1⟩, ⟨2, 2⟩}‘𝑛)𝑀𝑛)))))
85	65, 67, 77, 84	syl3anc 1373	. . . 4 ⊢ ((𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) → (𝑅 Σg (𝑘 ∈ {{⟨1, 1⟩, ⟨2, 2⟩}} ↦ (((ℤRHom‘𝑅)‘((pmSgn‘𝑁)‘𝑘)) · ((mulGrp‘𝑅) Σg (𝑛 ∈ 𝑁 ↦ ((𝑘‘𝑛)𝑀𝑛)))))) = (((ℤRHom‘𝑅)‘((pmSgn‘𝑁)‘{⟨1, 1⟩, ⟨2, 2⟩})) · ((mulGrp‘𝑅) Σg (𝑛 ∈ 𝑁 ↦ (({⟨1, 1⟩, ⟨2, 2⟩}‘𝑛)𝑀𝑛)))))
86		prex 5379	. . . . . 6 ⊢ {⟨1, 2⟩, ⟨2, 1⟩} ∈ V
87	86	a1i 11	. . . . 5 ⊢ ((𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) → {⟨1, 2⟩, ⟨2, 1⟩} ∈ V)
88	86	prid2 4717	. . . . . . . . 9 ⊢ {⟨1, 2⟩, ⟨2, 1⟩} ∈ {{⟨1, 1⟩, ⟨2, 2⟩}, {⟨1, 2⟩, ⟨2, 1⟩}}
89	88, 59	eleqtrri 2827	. . . . . . . 8 ⊢ {⟨1, 2⟩, ⟨2, 1⟩} ∈ (Base‘(SymGrp‘𝑁))
90	89	a1i 11	. . . . . . 7 ⊢ (𝑀 ∈ 𝐵 → {⟨1, 2⟩, ⟨2, 1⟩} ∈ (Base‘(SymGrp‘𝑁)))
91	4, 6, 5	zrhpsgnelbas 21519	. . . . . . . 8 ⊢ ((𝑅 ∈ Ring ∧ 𝑁 ∈ Fin ∧ {⟨1, 2⟩, ⟨2, 1⟩} ∈ (Base‘(SymGrp‘𝑁))) → ((ℤRHom‘𝑅)‘((pmSgn‘𝑁)‘{⟨1, 2⟩, ⟨2, 1⟩})) ∈ (Base‘𝑅))
92	17, 91	mp3an2 1451	. . . . . . 7 ⊢ ((𝑅 ∈ Ring ∧ {⟨1, 2⟩, ⟨2, 1⟩} ∈ (Base‘(SymGrp‘𝑁))) → ((ℤRHom‘𝑅)‘((pmSgn‘𝑁)‘{⟨1, 2⟩, ⟨2, 1⟩})) ∈ (Base‘𝑅))
93	90, 92	sylan2 593	. . . . . 6 ⊢ ((𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) → ((ℤRHom‘𝑅)‘((pmSgn‘𝑁)‘{⟨1, 2⟩, ⟨2, 1⟩})) ∈ (Base‘𝑅))
94	15, 4, 2, 3, 8	m2detleiblem2 22531	. . . . . . 7 ⊢ ((𝑅 ∈ Ring ∧ {⟨1, 2⟩, ⟨2, 1⟩} ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑀 ∈ 𝐵) → ((mulGrp‘𝑅) Σg (𝑛 ∈ 𝑁 ↦ (({⟨1, 2⟩, ⟨2, 1⟩}‘𝑛)𝑀𝑛))) ∈ (Base‘𝑅))
95	89, 94	mp3an2 1451	. . . . . 6 ⊢ ((𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) → ((mulGrp‘𝑅) Σg (𝑛 ∈ 𝑁 ↦ (({⟨1, 2⟩, ⟨2, 1⟩}‘𝑛)𝑀𝑛))) ∈ (Base‘𝑅))
96	11, 7	ringcl 20153	. . . . . 6 ⊢ ((𝑅 ∈ Ring ∧ ((ℤRHom‘𝑅)‘((pmSgn‘𝑁)‘{⟨1, 2⟩, ⟨2, 1⟩})) ∈ (Base‘𝑅) ∧ ((mulGrp‘𝑅) Σg (𝑛 ∈ 𝑁 ↦ (({⟨1, 2⟩, ⟨2, 1⟩}‘𝑛)𝑀𝑛))) ∈ (Base‘𝑅)) → (((ℤRHom‘𝑅)‘((pmSgn‘𝑁)‘{⟨1, 2⟩, ⟨2, 1⟩})) · ((mulGrp‘𝑅) Σg (𝑛 ∈ 𝑁 ↦ (({⟨1, 2⟩, ⟨2, 1⟩}‘𝑛)𝑀𝑛)))) ∈ (Base‘𝑅))
97	22, 93, 95, 96	syl3anc 1373	. . . . 5 ⊢ ((𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) → (((ℤRHom‘𝑅)‘((pmSgn‘𝑁)‘{⟨1, 2⟩, ⟨2, 1⟩})) · ((mulGrp‘𝑅) Σg (𝑛 ∈ 𝑁 ↦ (({⟨1, 2⟩, ⟨2, 1⟩}‘𝑛)𝑀𝑛)))) ∈ (Base‘𝑅))
98		2fveq3 6831	. . . . . . 7 ⊢ (𝑘 = {⟨1, 2⟩, ⟨2, 1⟩} → ((ℤRHom‘𝑅)‘((pmSgn‘𝑁)‘𝑘)) = ((ℤRHom‘𝑅)‘((pmSgn‘𝑁)‘{⟨1, 2⟩, ⟨2, 1⟩})))
99		fveq1 6825	. . . . . . . . . 10 ⊢ (𝑘 = {⟨1, 2⟩, ⟨2, 1⟩} → (𝑘‘𝑛) = ({⟨1, 2⟩, ⟨2, 1⟩}‘𝑛))
100	99	oveq1d 7368	. . . . . . . . 9 ⊢ (𝑘 = {⟨1, 2⟩, ⟨2, 1⟩} → ((𝑘‘𝑛)𝑀𝑛) = (({⟨1, 2⟩, ⟨2, 1⟩}‘𝑛)𝑀𝑛))
101	100	mpteq2dv 5189	. . . . . . . 8 ⊢ (𝑘 = {⟨1, 2⟩, ⟨2, 1⟩} → (𝑛 ∈ 𝑁 ↦ ((𝑘‘𝑛)𝑀𝑛)) = (𝑛 ∈ 𝑁 ↦ (({⟨1, 2⟩, ⟨2, 1⟩}‘𝑛)𝑀𝑛)))
102	101	oveq2d 7369	. . . . . . 7 ⊢ (𝑘 = {⟨1, 2⟩, ⟨2, 1⟩} → ((mulGrp‘𝑅) Σg (𝑛 ∈ 𝑁 ↦ ((𝑘‘𝑛)𝑀𝑛))) = ((mulGrp‘𝑅) Σg (𝑛 ∈ 𝑁 ↦ (({⟨1, 2⟩, ⟨2, 1⟩}‘𝑛)𝑀𝑛))))
103	98, 102	oveq12d 7371	. . . . . 6 ⊢ (𝑘 = {⟨1, 2⟩, ⟨2, 1⟩} → (((ℤRHom‘𝑅)‘((pmSgn‘𝑁)‘𝑘)) · ((mulGrp‘𝑅) Σg (𝑛 ∈ 𝑁 ↦ ((𝑘‘𝑛)𝑀𝑛)))) = (((ℤRHom‘𝑅)‘((pmSgn‘𝑁)‘{⟨1, 2⟩, ⟨2, 1⟩})) · ((mulGrp‘𝑅) Σg (𝑛 ∈ 𝑁 ↦ (({⟨1, 2⟩, ⟨2, 1⟩}‘𝑛)𝑀𝑛)))))
104	11, 103	gsumsn 19851	. . . . 5 ⊢ ((𝑅 ∈ Mnd ∧ {⟨1, 2⟩, ⟨2, 1⟩} ∈ V ∧ (((ℤRHom‘𝑅)‘((pmSgn‘𝑁)‘{⟨1, 2⟩, ⟨2, 1⟩})) · ((mulGrp‘𝑅) Σg (𝑛 ∈ 𝑁 ↦ (({⟨1, 2⟩, ⟨2, 1⟩}‘𝑛)𝑀𝑛)))) ∈ (Base‘𝑅)) → (𝑅 Σg (𝑘 ∈ {{⟨1, 2⟩, ⟨2, 1⟩}} ↦ (((ℤRHom‘𝑅)‘((pmSgn‘𝑁)‘𝑘)) · ((mulGrp‘𝑅) Σg (𝑛 ∈ 𝑁 ↦ ((𝑘‘𝑛)𝑀𝑛)))))) = (((ℤRHom‘𝑅)‘((pmSgn‘𝑁)‘{⟨1, 2⟩, ⟨2, 1⟩})) · ((mulGrp‘𝑅) Σg (𝑛 ∈ 𝑁 ↦ (({⟨1, 2⟩, ⟨2, 1⟩}‘𝑛)𝑀𝑛)))))
105	65, 87, 97, 104	syl3anc 1373	. . . 4 ⊢ ((𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) → (𝑅 Σg (𝑘 ∈ {{⟨1, 2⟩, ⟨2, 1⟩}} ↦ (((ℤRHom‘𝑅)‘((pmSgn‘𝑁)‘𝑘)) · ((mulGrp‘𝑅) Σg (𝑛 ∈ 𝑁 ↦ ((𝑘‘𝑛)𝑀𝑛)))))) = (((ℤRHom‘𝑅)‘((pmSgn‘𝑁)‘{⟨1, 2⟩, ⟨2, 1⟩})) · ((mulGrp‘𝑅) Σg (𝑛 ∈ 𝑁 ↦ (({⟨1, 2⟩, ⟨2, 1⟩}‘𝑛)𝑀𝑛)))))
106	85, 105	oveq12d 7371	. . 3 ⊢ ((𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) → ((𝑅 Σg (𝑘 ∈ {{⟨1, 1⟩, ⟨2, 2⟩}} ↦ (((ℤRHom‘𝑅)‘((pmSgn‘𝑁)‘𝑘)) · ((mulGrp‘𝑅) Σg (𝑛 ∈ 𝑁 ↦ ((𝑘‘𝑛)𝑀𝑛))))))(+g‘𝑅)(𝑅 Σg (𝑘 ∈ {{⟨1, 2⟩, ⟨2, 1⟩}} ↦ (((ℤRHom‘𝑅)‘((pmSgn‘𝑁)‘𝑘)) · ((mulGrp‘𝑅) Σg (𝑛 ∈ 𝑁 ↦ ((𝑘‘𝑛)𝑀𝑛))))))) = ((((ℤRHom‘𝑅)‘((pmSgn‘𝑁)‘{⟨1, 1⟩, ⟨2, 2⟩})) · ((mulGrp‘𝑅) Σg (𝑛 ∈ 𝑁 ↦ (({⟨1, 1⟩, ⟨2, 2⟩}‘𝑛)𝑀𝑛))))(+g‘𝑅)(((ℤRHom‘𝑅)‘((pmSgn‘𝑁)‘{⟨1, 2⟩, ⟨2, 1⟩})) · ((mulGrp‘𝑅) Σg (𝑛 ∈ 𝑁 ↦ (({⟨1, 2⟩, ⟨2, 1⟩}‘𝑛)𝑀𝑛))))))
107		eqidd 2730	. . . . . . 7 ⊢ (𝑀 ∈ 𝐵 → {⟨1, 1⟩, ⟨2, 2⟩} = {⟨1, 1⟩, ⟨2, 2⟩})
108		eqid 2729	. . . . . . . 8 ⊢ (1r‘𝑅) = (1r‘𝑅)
109	15, 4, 5, 6, 108	m2detleiblem5 22528	. . . . . . 7 ⊢ ((𝑅 ∈ Ring ∧ {⟨1, 1⟩, ⟨2, 2⟩} = {⟨1, 1⟩, ⟨2, 2⟩}) → ((ℤRHom‘𝑅)‘((pmSgn‘𝑁)‘{⟨1, 1⟩, ⟨2, 2⟩})) = (1r‘𝑅))
110	107, 109	sylan2 593	. . . . . 6 ⊢ ((𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) → ((ℤRHom‘𝑅)‘((pmSgn‘𝑁)‘{⟨1, 1⟩, ⟨2, 2⟩})) = (1r‘𝑅))
111		eqidd 2730	. . . . . . 7 ⊢ ((𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) → {⟨1, 1⟩, ⟨2, 2⟩} = {⟨1, 1⟩, ⟨2, 2⟩})
112	8, 7	mgpplusg 20047	. . . . . . . 8 ⊢ · = (+g‘(mulGrp‘𝑅))
113	15, 4, 2, 3, 8, 112	m2detleiblem3 22532	. . . . . . 7 ⊢ ((𝑅 ∈ Ring ∧ {⟨1, 1⟩, ⟨2, 2⟩} = {⟨1, 1⟩, ⟨2, 2⟩} ∧ 𝑀 ∈ 𝐵) → ((mulGrp‘𝑅) Σg (𝑛 ∈ 𝑁 ↦ (({⟨1, 1⟩, ⟨2, 2⟩}‘𝑛)𝑀𝑛))) = ((1𝑀1) · (2𝑀2)))
114	22, 111, 28, 113	syl3anc 1373	. . . . . 6 ⊢ ((𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) → ((mulGrp‘𝑅) Σg (𝑛 ∈ 𝑁 ↦ (({⟨1, 1⟩, ⟨2, 2⟩}‘𝑛)𝑀𝑛))) = ((1𝑀1) · (2𝑀2)))
115	110, 114	oveq12d 7371	. . . . 5 ⊢ ((𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) → (((ℤRHom‘𝑅)‘((pmSgn‘𝑁)‘{⟨1, 1⟩, ⟨2, 2⟩})) · ((mulGrp‘𝑅) Σg (𝑛 ∈ 𝑁 ↦ (({⟨1, 1⟩, ⟨2, 2⟩}‘𝑛)𝑀𝑛)))) = ((1r‘𝑅) · ((1𝑀1) · (2𝑀2))))
116	43	prid1 4716	. . . . . . . . . 10 ⊢ 1 ∈ {1, 2}
117	116, 15	eleqtrri 2827	. . . . . . . . 9 ⊢ 1 ∈ 𝑁
118	117	a1i 11	. . . . . . . 8 ⊢ ((𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) → 1 ∈ 𝑁)
119	3	eleq2i 2820	. . . . . . . . . 10 ⊢ (𝑀 ∈ 𝐵 ↔ 𝑀 ∈ (Base‘𝐴))
120	119	biimpi 216	. . . . . . . . 9 ⊢ (𝑀 ∈ 𝐵 → 𝑀 ∈ (Base‘𝐴))
121	120	adantl 481	. . . . . . . 8 ⊢ ((𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) → 𝑀 ∈ (Base‘𝐴))
122	2, 11	matecl 22328	. . . . . . . 8 ⊢ ((1 ∈ 𝑁 ∧ 1 ∈ 𝑁 ∧ 𝑀 ∈ (Base‘𝐴)) → (1𝑀1) ∈ (Base‘𝑅))
123	118, 118, 121, 122	syl3anc 1373	. . . . . . 7 ⊢ ((𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) → (1𝑀1) ∈ (Base‘𝑅))
124		prid2g 4715	. . . . . . . . . . 11 ⊢ (2 ∈ ℕ → 2 ∈ {1, 2})
125	57, 124	ax-mp 5	. . . . . . . . . 10 ⊢ 2 ∈ {1, 2}
126	125, 15	eleqtrri 2827	. . . . . . . . 9 ⊢ 2 ∈ 𝑁
127	126	a1i 11	. . . . . . . 8 ⊢ ((𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) → 2 ∈ 𝑁)
128	2, 11	matecl 22328	. . . . . . . 8 ⊢ ((2 ∈ 𝑁 ∧ 2 ∈ 𝑁 ∧ 𝑀 ∈ (Base‘𝐴)) → (2𝑀2) ∈ (Base‘𝑅))
129	127, 127, 121, 128	syl3anc 1373	. . . . . . 7 ⊢ ((𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) → (2𝑀2) ∈ (Base‘𝑅))
130	11, 7	ringcl 20153	. . . . . . 7 ⊢ ((𝑅 ∈ Ring ∧ (1𝑀1) ∈ (Base‘𝑅) ∧ (2𝑀2) ∈ (Base‘𝑅)) → ((1𝑀1) · (2𝑀2)) ∈ (Base‘𝑅))
131	22, 123, 129, 130	syl3anc 1373	. . . . . 6 ⊢ ((𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) → ((1𝑀1) · (2𝑀2)) ∈ (Base‘𝑅))
132	11, 7, 108	ringlidm 20172	. . . . . 6 ⊢ ((𝑅 ∈ Ring ∧ ((1𝑀1) · (2𝑀2)) ∈ (Base‘𝑅)) → ((1r‘𝑅) · ((1𝑀1) · (2𝑀2))) = ((1𝑀1) · (2𝑀2)))
133	131, 132	syldan 591	. . . . 5 ⊢ ((𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) → ((1r‘𝑅) · ((1𝑀1) · (2𝑀2))) = ((1𝑀1) · (2𝑀2)))
134	115, 133	eqtrd 2764	. . . 4 ⊢ ((𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) → (((ℤRHom‘𝑅)‘((pmSgn‘𝑁)‘{⟨1, 1⟩, ⟨2, 2⟩})) · ((mulGrp‘𝑅) Σg (𝑛 ∈ 𝑁 ↦ (({⟨1, 1⟩, ⟨2, 2⟩}‘𝑛)𝑀𝑛)))) = ((1𝑀1) · (2𝑀2)))
135		eqidd 2730	. . . . . 6 ⊢ (𝑀 ∈ 𝐵 → {⟨1, 2⟩, ⟨2, 1⟩} = {⟨1, 2⟩, ⟨2, 1⟩})
136		eqid 2729	. . . . . . 7 ⊢ (invg‘𝑅) = (invg‘𝑅)
137	15, 4, 5, 6, 108, 136	m2detleiblem6 22529	. . . . . 6 ⊢ ((𝑅 ∈ Ring ∧ {⟨1, 2⟩, ⟨2, 1⟩} = {⟨1, 2⟩, ⟨2, 1⟩}) → ((ℤRHom‘𝑅)‘((pmSgn‘𝑁)‘{⟨1, 2⟩, ⟨2, 1⟩})) = ((invg‘𝑅)‘(1r‘𝑅)))
138	135, 137	sylan2 593	. . . . 5 ⊢ ((𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) → ((ℤRHom‘𝑅)‘((pmSgn‘𝑁)‘{⟨1, 2⟩, ⟨2, 1⟩})) = ((invg‘𝑅)‘(1r‘𝑅)))
139		eqidd 2730	. . . . . 6 ⊢ ((𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) → {⟨1, 2⟩, ⟨2, 1⟩} = {⟨1, 2⟩, ⟨2, 1⟩})
140	15, 4, 2, 3, 8, 112	m2detleiblem4 22533	. . . . . 6 ⊢ ((𝑅 ∈ Ring ∧ {⟨1, 2⟩, ⟨2, 1⟩} = {⟨1, 2⟩, ⟨2, 1⟩} ∧ 𝑀 ∈ 𝐵) → ((mulGrp‘𝑅) Σg (𝑛 ∈ 𝑁 ↦ (({⟨1, 2⟩, ⟨2, 1⟩}‘𝑛)𝑀𝑛))) = ((2𝑀1) · (1𝑀2)))
141	22, 139, 28, 140	syl3anc 1373	. . . . 5 ⊢ ((𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) → ((mulGrp‘𝑅) Σg (𝑛 ∈ 𝑁 ↦ (({⟨1, 2⟩, ⟨2, 1⟩}‘𝑛)𝑀𝑛))) = ((2𝑀1) · (1𝑀2)))
142	138, 141	oveq12d 7371	. . . 4 ⊢ ((𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) → (((ℤRHom‘𝑅)‘((pmSgn‘𝑁)‘{⟨1, 2⟩, ⟨2, 1⟩})) · ((mulGrp‘𝑅) Σg (𝑛 ∈ 𝑁 ↦ (({⟨1, 2⟩, ⟨2, 1⟩}‘𝑛)𝑀𝑛)))) = (((invg‘𝑅)‘(1r‘𝑅)) · ((2𝑀1) · (1𝑀2))))
143	134, 142	oveq12d 7371	. . 3 ⊢ ((𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) → ((((ℤRHom‘𝑅)‘((pmSgn‘𝑁)‘{⟨1, 1⟩, ⟨2, 2⟩})) · ((mulGrp‘𝑅) Σg (𝑛 ∈ 𝑁 ↦ (({⟨1, 1⟩, ⟨2, 2⟩}‘𝑛)𝑀𝑛))))(+g‘𝑅)(((ℤRHom‘𝑅)‘((pmSgn‘𝑁)‘{⟨1, 2⟩, ⟨2, 1⟩})) · ((mulGrp‘𝑅) Σg (𝑛 ∈ 𝑁 ↦ (({⟨1, 2⟩, ⟨2, 1⟩}‘𝑛)𝑀𝑛))))) = (((1𝑀1) · (2𝑀2))(+g‘𝑅)(((invg‘𝑅)‘(1r‘𝑅)) · ((2𝑀1) · (1𝑀2)))))
144	2, 11	matecl 22328	. . . . . 6 ⊢ ((2 ∈ 𝑁 ∧ 1 ∈ 𝑁 ∧ 𝑀 ∈ (Base‘𝐴)) → (2𝑀1) ∈ (Base‘𝑅))
145	127, 118, 121, 144	syl3anc 1373	. . . . 5 ⊢ ((𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) → (2𝑀1) ∈ (Base‘𝑅))
146	2, 11	matecl 22328	. . . . . 6 ⊢ ((1 ∈ 𝑁 ∧ 2 ∈ 𝑁 ∧ 𝑀 ∈ (Base‘𝐴)) → (1𝑀2) ∈ (Base‘𝑅))
147	118, 127, 121, 146	syl3anc 1373	. . . . 5 ⊢ ((𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) → (1𝑀2) ∈ (Base‘𝑅))
148	11, 7	ringcl 20153	. . . . 5 ⊢ ((𝑅 ∈ Ring ∧ (2𝑀1) ∈ (Base‘𝑅) ∧ (1𝑀2) ∈ (Base‘𝑅)) → ((2𝑀1) · (1𝑀2)) ∈ (Base‘𝑅))
149	22, 145, 147, 148	syl3anc 1373	. . . 4 ⊢ ((𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) → ((2𝑀1) · (1𝑀2)) ∈ (Base‘𝑅))
150		m2detleib.m	. . . . 5 ⊢ − = (-g‘𝑅)
151	15, 4, 5, 6, 108, 136, 7, 150	m2detleiblem7 22530	. . . 4 ⊢ ((𝑅 ∈ Ring ∧ ((1𝑀1) · (2𝑀2)) ∈ (Base‘𝑅) ∧ ((2𝑀1) · (1𝑀2)) ∈ (Base‘𝑅)) → (((1𝑀1) · (2𝑀2))(+g‘𝑅)(((invg‘𝑅)‘(1r‘𝑅)) · ((2𝑀1) · (1𝑀2)))) = (((1𝑀1) · (2𝑀2)) − ((2𝑀1) · (1𝑀2))))
152	22, 131, 149, 151	syl3anc 1373	. . 3 ⊢ ((𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) → (((1𝑀1) · (2𝑀2))(+g‘𝑅)(((invg‘𝑅)‘(1r‘𝑅)) · ((2𝑀1) · (1𝑀2)))) = (((1𝑀1) · (2𝑀2)) − ((2𝑀1) · (1𝑀2))))
153	106, 143, 152	3eqtrd 2768	. 2 ⊢ ((𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) → ((𝑅 Σg (𝑘 ∈ {{⟨1, 1⟩, ⟨2, 2⟩}} ↦ (((ℤRHom‘𝑅)‘((pmSgn‘𝑁)‘𝑘)) · ((mulGrp‘𝑅) Σg (𝑛 ∈ 𝑁 ↦ ((𝑘‘𝑛)𝑀𝑛))))))(+g‘𝑅)(𝑅 Σg (𝑘 ∈ {{⟨1, 2⟩, ⟨2, 1⟩}} ↦ (((ℤRHom‘𝑅)‘((pmSgn‘𝑁)‘𝑘)) · ((mulGrp‘𝑅) Σg (𝑛 ∈ 𝑁 ↦ ((𝑘‘𝑛)𝑀𝑛))))))) = (((1𝑀1) · (2𝑀2)) − ((2𝑀1) · (1𝑀2))))
154	10, 63, 153	3eqtrd 2768	1 ⊢ ((𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) → (𝐷‘𝑀) = (((1𝑀1) · (2𝑀2)) − ((2𝑀1) · (1𝑀2))))

Syntax hints:   → wi 4   ∧ wa 395   ∨ wo 847   = wceq 1540   ∈ wcel 2109   ≠ wne 2925  Vcvv 3438   ∪ cun 3903   ∩ cin 3904  ∅c0 4286  {csn 4579  {cpr 4581  ⟨cop 4585   ↦ cmpt 5176  ‘cfv 6486  (class class class)co 7353  Fincfn 8879  1c1 11029  ℕcn 12146  2c2 12201  Basecbs 17138  +_gcplusg 17179  ._rcmulr 17180   Σ_g cgsu 17362  Mndcmnd 18626  inv_gcminusg 18831  -_gcsg 18832  SymGrpcsymg 19266  pmSgncpsgn 19386  CMndccmn 19677  mulGrpcmgp 20043  1_rcur 20084  Ringcrg 20136  ℤRHomczrh 21424   Mat cmat 22310   maDet cmdat 22487

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 1967  ax-7 2008  ax-8 2111  ax-9 2119  ax-10 2142  ax-11 2158  ax-12 2178  ax-ext 2701  ax-rep 5221  ax-sep 5238  ax-nul 5248  ax-pow 5307  ax-pr 5374  ax-un 7675  ax-cnex 11084  ax-resscn 11085  ax-1cn 11086  ax-icn 11087  ax-addcl 11088  ax-addrcl 11089  ax-mulcl 11090  ax-mulrcl 11091  ax-mulcom 11092  ax-addass 11093  ax-mulass 11094  ax-distr 11095  ax-i2m1 11096  ax-1ne0 11097  ax-1rid 11098  ax-rnegex 11099  ax-rrecex 11100  ax-cnre 11101  ax-pre-lttri 11102  ax-pre-lttrn 11103  ax-pre-ltadd 11104  ax-pre-mulgt0 11105  ax-addf 11107  ax-mulf 11108

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-xor 1512  df-tru 1543  df-fal 1553  df-ex 1780  df-nf 1784  df-sb 2066  df-mo 2533  df-eu 2562  df-clab 2708  df-cleq 2721  df-clel 2803  df-nfc 2878  df-ne 2926  df-nel 3030  df-ral 3045  df-rex 3054  df-rmo 3345  df-reu 3346  df-rab 3397  df-v 3440  df-sbc 3745  df-csb 3854  df-dif 3908  df-un 3910  df-in 3912  df-ss 3922  df-pss 3925  df-nul 4287  df-if 4479  df-pw 4555  df-sn 4580  df-pr 4582  df-tp 4584  df-op 4586  df-ot 4588  df-uni 4862  df-int 4900  df-iun 4946  df-iin 4947  df-br 5096  df-opab 5158  df-mpt 5177  df-tr 5203  df-id 5518  df-eprel 5523  df-po 5531  df-so 5532  df-fr 5576  df-se 5577  df-we 5578  df-xp 5629  df-rel 5630  df-cnv 5631  df-co 5632  df-dm 5633  df-rn 5634  df-res 5635  df-ima 5636  df-pred 6253  df-ord 6314  df-on 6315  df-lim 6316  df-suc 6317  df-iota 6442  df-fun 6488  df-fn 6489  df-f 6490  df-f1 6491  df-fo 6492  df-f1o 6493  df-fv 6494  df-isom 6495  df-riota 7310  df-ov 7356  df-oprab 7357  df-mpo 7358  df-of 7617  df-om 7807  df-1st 7931  df-2nd 7932  df-supp 8101  df-tpos 8166  df-frecs 8221  df-wrecs 8252  df-recs 8301  df-rdg 8339  df-1o 8395  df-2o 8396  df-oadd 8399  df-er 8632  df-map 8762  df-pm 8763  df-ixp 8832  df-en 8880  df-dom 8881  df-sdom 8882  df-fin 8883  df-fsupp 9271  df-sup 9351  df-oi 9421  df-dju 9816  df-card 9854  df-pnf 11170  df-mnf 11171  df-xr 11172  df-ltxr 11173  df-le 11174  df-sub 11367  df-neg 11368  df-div 11796  df-nn 12147  df-2 12209  df-3 12210  df-4 12211  df-5 12212  df-6 12213  df-7 12214  df-8 12215  df-9 12216  df-n0 12403  df-xnn0 12476  df-z 12490  df-dec 12610  df-uz 12754  df-rp 12912  df-fz 13429  df-fzo 13576  df-seq 13927  df-exp 13987  df-fac 14199  df-bc 14228  df-hash 14256  df-word 14439  df-lsw 14488  df-concat 14496  df-s1 14521  df-substr 14566  df-pfx 14596  df-splice 14674  df-reverse 14683  df-s2 14773  df-struct 17076  df-sets 17093  df-slot 17111  df-ndx 17123  df-base 17139  df-ress 17160  df-plusg 17192  df-mulr 17193  df-starv 17194  df-sca 17195  df-vsca 17196  df-ip 17197  df-tset 17198  df-ple 17199  df-ds 17201  df-unif 17202  df-hom 17203  df-cco 17204  df-0g 17363  df-gsum 17364  df-prds 17369  df-pws 17371  df-mre 17506  df-mrc 17507  df-acs 17509  df-mgm 18532  df-sgrp 18611  df-mnd 18627  df-mhm 18675  df-submnd 18676  df-efmnd 18761  df-grp 18833  df-minusg 18834  df-sbg 18835  df-mulg 18965  df-subg 19020  df-ghm 19110  df-gim 19156  df-cntz 19214  df-oppg 19243  df-symg 19267  df-pmtr 19339  df-psgn 19388  df-cmn 19679  df-abl 19680  df-mgp 20044  df-rng 20056  df-ur 20085  df-ring 20138  df-cring 20139  df-rhm 20375  df-subrng 20449  df-subrg 20473  df-sra 21095  df-rgmod 21096  df-cnfld 21280  df-zring 21372  df-zrh 21428  df-dsmm 21657  df-frlm 21672  df-mat 22311  df-mdet 22488

This theorem is referenced by:  lmat22det  33791