m2detleib - Metamath Proof Explorer

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

Theorem m2detleib 22133

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 2733	. . . 4 ⊢ (Base‘(SymGrp‘𝑁)) = (Base‘(SymGrp‘𝑁))
5		eqid 2733	. . . 4 ⊢ (ℤRHom‘𝑅) = (ℤRHom‘𝑅)
6		eqid 2733	. . . 4 ⊢ (pmSgn‘𝑁) = (pmSgn‘𝑁)
7		m2detleib.t	. . . 4 ⊢ · = (._r‘𝑅)
8		eqid 2733	. . . 4 ⊢ (mulGrp‘𝑅) = (mulGrp‘𝑅)
9	1, 2, 3, 4, 5, 6, 7, 8	mdetleib1 22093	. . 3 ⊢ (𝑀 ∈ 𝐵 → (𝐷‘𝑀) = (𝑅 Σ_g (𝑘 ∈ (Base‘(SymGrp‘𝑁)) ↦ (((ℤRHom‘𝑅)‘((pmSgn‘𝑁)‘𝑘)) · ((mulGrp‘𝑅) Σ_g (𝑛 ∈ 𝑁 ↦ ((𝑘‘𝑛)𝑀𝑛)))))))
10	9	adantl 483	. 2 ⊢ ((𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) → (𝐷‘𝑀) = (𝑅 Σ_g (𝑘 ∈ (Base‘(SymGrp‘𝑁)) ↦ (((ℤRHom‘𝑅)‘((pmSgn‘𝑁)‘𝑘)) · ((mulGrp‘𝑅) Σ_g (𝑛 ∈ 𝑁 ↦ ((𝑘‘𝑛)𝑀𝑛)))))))
11		eqid 2733	. . 3 ⊢ (Base‘𝑅) = (Base‘𝑅)
12		eqid 2733	. . 3 ⊢ (+_g‘𝑅) = (+_g‘𝑅)
13		ringcmn 20099	. . . 4 ⊢ (𝑅 ∈ Ring → 𝑅 ∈ CMnd)
14	13	adantr 482	. . 3 ⊢ ((𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) → 𝑅 ∈ CMnd)
15		m2detleib.n	. . . . . 6 ⊢ 𝑁 = {1, 2}
16		prfi 9322	. . . . . 6 ⊢ {1, 2} ∈ Fin
17	15, 16	eqeltri 2830	. . . . 5 ⊢ 𝑁 ∈ Fin
18		eqid 2733	. . . . . 6 ⊢ (SymGrp‘𝑁) = (SymGrp‘𝑁)
19	18, 4	symgbasfi 19246	. . . . 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 484	. . . . 5 ⊢ ((𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) → 𝑅 ∈ Ring)
23	22	adantr 482	. . . 4 ⊢ (((𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) ∧ 𝑘 ∈ (Base‘(SymGrp‘𝑁))) → 𝑅 ∈ Ring)
24	4, 6, 5	zrhpsgnelbas 21147	. . . . . 6 ⊢ ((𝑅 ∈ Ring ∧ 𝑁 ∈ Fin ∧ 𝑘 ∈ (Base‘(SymGrp‘𝑁))) → ((ℤRHom‘𝑅)‘((pmSgn‘𝑁)‘𝑘)) ∈ (Base‘𝑅))
25	17, 24	mp3an2 1450	. . . . 5 ⊢ ((𝑅 ∈ Ring ∧ 𝑘 ∈ (Base‘(SymGrp‘𝑁))) → ((ℤRHom‘𝑅)‘((pmSgn‘𝑁)‘𝑘)) ∈ (Base‘𝑅))
26	25	adantlr 714	. . . 4 ⊢ (((𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) ∧ 𝑘 ∈ (Base‘(SymGrp‘𝑁))) → ((ℤRHom‘𝑅)‘((pmSgn‘𝑁)‘𝑘)) ∈ (Base‘𝑅))
27		simpr 486	. . . . 5 ⊢ (((𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) ∧ 𝑘 ∈ (Base‘(SymGrp‘𝑁))) → 𝑘 ∈ (Base‘(SymGrp‘𝑁)))
28		simpr 486	. . . . . 6 ⊢ ((𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) → 𝑀 ∈ 𝐵)
29	28	adantr 482	. . . . 5 ⊢ (((𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) ∧ 𝑘 ∈ (Base‘(SymGrp‘𝑁))) → 𝑀 ∈ 𝐵)
30	15, 4, 2, 3, 8	m2detleiblem2 22130	. . . . 5 ⊢ ((𝑅 ∈ Ring ∧ 𝑘 ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑀 ∈ 𝐵) → ((mulGrp‘𝑅) Σ_g (𝑛 ∈ 𝑁 ↦ ((𝑘‘𝑛)𝑀𝑛))) ∈ (Base‘𝑅))
31	23, 27, 29, 30	syl3anc 1372	. . . 4 ⊢ (((𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) ∧ 𝑘 ∈ (Base‘(SymGrp‘𝑁))) → ((mulGrp‘𝑅) Σ_g (𝑛 ∈ 𝑁 ↦ ((𝑘‘𝑛)𝑀𝑛))) ∈ (Base‘𝑅))
32	11, 7	ringcl 20073	. . . 4 ⊢ ((𝑅 ∈ Ring ∧ ((ℤRHom‘𝑅)‘((pmSgn‘𝑁)‘𝑘)) ∈ (Base‘𝑅) ∧ ((mulGrp‘𝑅) Σ_g (𝑛 ∈ 𝑁 ↦ ((𝑘‘𝑛)𝑀𝑛))) ∈ (Base‘𝑅)) → (((ℤRHom‘𝑅)‘((pmSgn‘𝑁)‘𝑘)) · ((mulGrp‘𝑅) Σ_g (𝑛 ∈ 𝑁 ↦ ((𝑘‘𝑛)𝑀𝑛)))) ∈ (Base‘𝑅))
33	23, 26, 31, 32	syl3anc 1372	. . 3 ⊢ (((𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) ∧ 𝑘 ∈ (Base‘(SymGrp‘𝑁))) → (((ℤRHom‘𝑅)‘((pmSgn‘𝑁)‘𝑘)) · ((mulGrp‘𝑅) Σ_g (𝑛 ∈ 𝑁 ↦ ((𝑘‘𝑛)𝑀𝑛)))) ∈ (Base‘𝑅))
34		opex 5465	. . . . . . . 8 ⊢ ⟨1, 1⟩ ∈ V
35		opex 5465	. . . . . . . 8 ⊢ ⟨2, 2⟩ ∈ V
36	34, 35	pm3.2i 472	. . . . . . 7 ⊢ (⟨1, 1⟩ ∈ V ∧ ⟨2, 2⟩ ∈ V)
37		opex 5465	. . . . . . . 8 ⊢ ⟨1, 2⟩ ∈ V
38		opex 5465	. . . . . . . 8 ⊢ ⟨2, 1⟩ ∈ V
39	37, 38	pm3.2i 472	. . . . . . 7 ⊢ (⟨1, 2⟩ ∈ V ∧ ⟨2, 1⟩ ∈ V)
40	36, 39	pm3.2i 472	. . . . . 6 ⊢ ((⟨1, 1⟩ ∈ V ∧ ⟨2, 2⟩ ∈ V) ∧ (⟨1, 2⟩ ∈ V ∧ ⟨2, 1⟩ ∈ V))
41		1ne2 12420	. . . . . . . . . 10 ⊢ 1 ≠ 2
42	41	olci 865	. . . . . . . . 9 ⊢ (1 ≠ 1 ∨ 1 ≠ 2)
43		1ex 11210	. . . . . . . . . 10 ⊢ 1 ∈ V
44	43, 43	opthne 5483	. . . . . . . . 9 ⊢ (⟨1, 1⟩ ≠ ⟨1, 2⟩ ↔ (1 ≠ 1 ∨ 1 ≠ 2))
45	42, 44	mpbir 230	. . . . . . . 8 ⊢ ⟨1, 1⟩ ≠ ⟨1, 2⟩
46	41	orci 864	. . . . . . . . 9 ⊢ (1 ≠ 2 ∨ 1 ≠ 1)
47	43, 43	opthne 5483	. . . . . . . . 9 ⊢ (⟨1, 1⟩ ≠ ⟨2, 1⟩ ↔ (1 ≠ 2 ∨ 1 ≠ 1))
48	46, 47	mpbir 230	. . . . . . . 8 ⊢ ⟨1, 1⟩ ≠ ⟨2, 1⟩
49	45, 48	pm3.2i 472	. . . . . . 7 ⊢ (⟨1, 1⟩ ≠ ⟨1, 2⟩ ∧ ⟨1, 1⟩ ≠ ⟨2, 1⟩)
50	49	orci 864	. . . . . 6 ⊢ ((⟨1, 1⟩ ≠ ⟨1, 2⟩ ∧ ⟨1, 1⟩ ≠ ⟨2, 1⟩) ∨ (⟨2, 2⟩ ≠ ⟨1, 2⟩ ∧ ⟨2, 2⟩ ≠ ⟨2, 1⟩))
51	40, 50	pm3.2i 472	. . . . 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 4856	. . . . 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 408	. . . 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 4717	. . . 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 12285	. . . . . 6 ⊢ 2 ∈ ℕ
58	18, 4, 15	symg2bas 19260	. . . . . 6 ⊢ ((1 ∈ V ∧ 2 ∈ ℕ) → (Base‘(SymGrp‘𝑁)) = {{⟨1, 1⟩, ⟨2, 2⟩}, {⟨1, 2⟩, ⟨2, 1⟩}})
59	43, 57, 58	mp2an 691	. . . . 5 ⊢ (Base‘(SymGrp‘𝑁)) = {{⟨1, 1⟩, ⟨2, 2⟩}, {⟨1, 2⟩, ⟨2, 1⟩}}
60		df-pr 4632	. . . . 5 ⊢ {{⟨1, 1⟩, ⟨2, 2⟩}, {⟨1, 2⟩, ⟨2, 1⟩}} = ({{⟨1, 1⟩, ⟨2, 2⟩}} ∪ {{⟨1, 2⟩, ⟨2, 1⟩}})
61	59, 60	eqtri 2761	. . . 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 19798	. 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 20066	. . . . . 6 ⊢ (𝑅 ∈ Ring → 𝑅 ∈ Mnd)
65	64	adantr 482	. . . . 5 ⊢ ((𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) → 𝑅 ∈ Mnd)
66		prex 5433	. . . . . 6 ⊢ {⟨1, 1⟩, ⟨2, 2⟩} ∈ V
67	66	a1i 11	. . . . 5 ⊢ ((𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) → {⟨1, 1⟩, ⟨2, 2⟩} ∈ V)
68	66	prid1 4767	. . . . . . . . 9 ⊢ {⟨1, 1⟩, ⟨2, 2⟩} ∈ {{⟨1, 1⟩, ⟨2, 2⟩}, {⟨1, 2⟩, ⟨2, 1⟩}}
69	68, 59	eleqtrri 2833	. . . . . . . 8 ⊢ {⟨1, 1⟩, ⟨2, 2⟩} ∈ (Base‘(SymGrp‘𝑁))
70	69	a1i 11	. . . . . . 7 ⊢ (𝑀 ∈ 𝐵 → {⟨1, 1⟩, ⟨2, 2⟩} ∈ (Base‘(SymGrp‘𝑁)))
71	4, 6, 5	zrhpsgnelbas 21147	. . . . . . . 8 ⊢ ((𝑅 ∈ Ring ∧ 𝑁 ∈ Fin ∧ {⟨1, 1⟩, ⟨2, 2⟩} ∈ (Base‘(SymGrp‘𝑁))) → ((ℤRHom‘𝑅)‘((pmSgn‘𝑁)‘{⟨1, 1⟩, ⟨2, 2⟩})) ∈ (Base‘𝑅))
72	17, 71	mp3an2 1450	. . . . . . 7 ⊢ ((𝑅 ∈ Ring ∧ {⟨1, 1⟩, ⟨2, 2⟩} ∈ (Base‘(SymGrp‘𝑁))) → ((ℤRHom‘𝑅)‘((pmSgn‘𝑁)‘{⟨1, 1⟩, ⟨2, 2⟩})) ∈ (Base‘𝑅))
73	70, 72	sylan2 594	. . . . . 6 ⊢ ((𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) → ((ℤRHom‘𝑅)‘((pmSgn‘𝑁)‘{⟨1, 1⟩, ⟨2, 2⟩})) ∈ (Base‘𝑅))
74	15, 4, 2, 3, 8	m2detleiblem2 22130	. . . . . . 7 ⊢ ((𝑅 ∈ Ring ∧ {⟨1, 1⟩, ⟨2, 2⟩} ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑀 ∈ 𝐵) → ((mulGrp‘𝑅) Σ_g (𝑛 ∈ 𝑁 ↦ (({⟨1, 1⟩, ⟨2, 2⟩}‘𝑛)𝑀𝑛))) ∈ (Base‘𝑅))
75	69, 74	mp3an2 1450	. . . . . 6 ⊢ ((𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) → ((mulGrp‘𝑅) Σ_g (𝑛 ∈ 𝑁 ↦ (({⟨1, 1⟩, ⟨2, 2⟩}‘𝑛)𝑀𝑛))) ∈ (Base‘𝑅))
76	11, 7	ringcl 20073	. . . . . 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 1372	. . . . 5 ⊢ ((𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) → (((ℤRHom‘𝑅)‘((pmSgn‘𝑁)‘{⟨1, 1⟩, ⟨2, 2⟩})) · ((mulGrp‘𝑅) Σ_g (𝑛 ∈ 𝑁 ↦ (({⟨1, 1⟩, ⟨2, 2⟩}‘𝑛)𝑀𝑛)))) ∈ (Base‘𝑅))
78		2fveq3 6897	. . . . . . 7 ⊢ (𝑘 = {⟨1, 1⟩, ⟨2, 2⟩} → ((ℤRHom‘𝑅)‘((pmSgn‘𝑁)‘𝑘)) = ((ℤRHom‘𝑅)‘((pmSgn‘𝑁)‘{⟨1, 1⟩, ⟨2, 2⟩})))
79		fveq1 6891	. . . . . . . . . 10 ⊢ (𝑘 = {⟨1, 1⟩, ⟨2, 2⟩} → (𝑘‘𝑛) = ({⟨1, 1⟩, ⟨2, 2⟩}‘𝑛))
80	79	oveq1d 7424	. . . . . . . . 9 ⊢ (𝑘 = {⟨1, 1⟩, ⟨2, 2⟩} → ((𝑘‘𝑛)𝑀𝑛) = (({⟨1, 1⟩, ⟨2, 2⟩}‘𝑛)𝑀𝑛))
81	80	mpteq2dv 5251	. . . . . . . 8 ⊢ (𝑘 = {⟨1, 1⟩, ⟨2, 2⟩} → (𝑛 ∈ 𝑁 ↦ ((𝑘‘𝑛)𝑀𝑛)) = (𝑛 ∈ 𝑁 ↦ (({⟨1, 1⟩, ⟨2, 2⟩}‘𝑛)𝑀𝑛)))
82	81	oveq2d 7425	. . . . . . 7 ⊢ (𝑘 = {⟨1, 1⟩, ⟨2, 2⟩} → ((mulGrp‘𝑅) Σ_g (𝑛 ∈ 𝑁 ↦ ((𝑘‘𝑛)𝑀𝑛))) = ((mulGrp‘𝑅) Σ_g (𝑛 ∈ 𝑁 ↦ (({⟨1, 1⟩, ⟨2, 2⟩}‘𝑛)𝑀𝑛))))
83	78, 82	oveq12d 7427	. . . . . 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 19822	. . . . 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 1372	. . . 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 5433	. . . . . 6 ⊢ {⟨1, 2⟩, ⟨2, 1⟩} ∈ V
87	86	a1i 11	. . . . 5 ⊢ ((𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) → {⟨1, 2⟩, ⟨2, 1⟩} ∈ V)
88	86	prid2 4768	. . . . . . . . 9 ⊢ {⟨1, 2⟩, ⟨2, 1⟩} ∈ {{⟨1, 1⟩, ⟨2, 2⟩}, {⟨1, 2⟩, ⟨2, 1⟩}}
89	88, 59	eleqtrri 2833	. . . . . . . 8 ⊢ {⟨1, 2⟩, ⟨2, 1⟩} ∈ (Base‘(SymGrp‘𝑁))
90	89	a1i 11	. . . . . . 7 ⊢ (𝑀 ∈ 𝐵 → {⟨1, 2⟩, ⟨2, 1⟩} ∈ (Base‘(SymGrp‘𝑁)))
91	4, 6, 5	zrhpsgnelbas 21147	. . . . . . . 8 ⊢ ((𝑅 ∈ Ring ∧ 𝑁 ∈ Fin ∧ {⟨1, 2⟩, ⟨2, 1⟩} ∈ (Base‘(SymGrp‘𝑁))) → ((ℤRHom‘𝑅)‘((pmSgn‘𝑁)‘{⟨1, 2⟩, ⟨2, 1⟩})) ∈ (Base‘𝑅))
92	17, 91	mp3an2 1450	. . . . . . 7 ⊢ ((𝑅 ∈ Ring ∧ {⟨1, 2⟩, ⟨2, 1⟩} ∈ (Base‘(SymGrp‘𝑁))) → ((ℤRHom‘𝑅)‘((pmSgn‘𝑁)‘{⟨1, 2⟩, ⟨2, 1⟩})) ∈ (Base‘𝑅))
93	90, 92	sylan2 594	. . . . . 6 ⊢ ((𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) → ((ℤRHom‘𝑅)‘((pmSgn‘𝑁)‘{⟨1, 2⟩, ⟨2, 1⟩})) ∈ (Base‘𝑅))
94	15, 4, 2, 3, 8	m2detleiblem2 22130	. . . . . . 7 ⊢ ((𝑅 ∈ Ring ∧ {⟨1, 2⟩, ⟨2, 1⟩} ∈ (Base‘(SymGrp‘𝑁)) ∧ 𝑀 ∈ 𝐵) → ((mulGrp‘𝑅) Σ_g (𝑛 ∈ 𝑁 ↦ (({⟨1, 2⟩, ⟨2, 1⟩}‘𝑛)𝑀𝑛))) ∈ (Base‘𝑅))
95	89, 94	mp3an2 1450	. . . . . 6 ⊢ ((𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) → ((mulGrp‘𝑅) Σ_g (𝑛 ∈ 𝑁 ↦ (({⟨1, 2⟩, ⟨2, 1⟩}‘𝑛)𝑀𝑛))) ∈ (Base‘𝑅))
96	11, 7	ringcl 20073	. . . . . 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 1372	. . . . 5 ⊢ ((𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) → (((ℤRHom‘𝑅)‘((pmSgn‘𝑁)‘{⟨1, 2⟩, ⟨2, 1⟩})) · ((mulGrp‘𝑅) Σ_g (𝑛 ∈ 𝑁 ↦ (({⟨1, 2⟩, ⟨2, 1⟩}‘𝑛)𝑀𝑛)))) ∈ (Base‘𝑅))
98		2fveq3 6897	. . . . . . 7 ⊢ (𝑘 = {⟨1, 2⟩, ⟨2, 1⟩} → ((ℤRHom‘𝑅)‘((pmSgn‘𝑁)‘𝑘)) = ((ℤRHom‘𝑅)‘((pmSgn‘𝑁)‘{⟨1, 2⟩, ⟨2, 1⟩})))
99		fveq1 6891	. . . . . . . . . 10 ⊢ (𝑘 = {⟨1, 2⟩, ⟨2, 1⟩} → (𝑘‘𝑛) = ({⟨1, 2⟩, ⟨2, 1⟩}‘𝑛))
100	99	oveq1d 7424	. . . . . . . . 9 ⊢ (𝑘 = {⟨1, 2⟩, ⟨2, 1⟩} → ((𝑘‘𝑛)𝑀𝑛) = (({⟨1, 2⟩, ⟨2, 1⟩}‘𝑛)𝑀𝑛))
101	100	mpteq2dv 5251	. . . . . . . 8 ⊢ (𝑘 = {⟨1, 2⟩, ⟨2, 1⟩} → (𝑛 ∈ 𝑁 ↦ ((𝑘‘𝑛)𝑀𝑛)) = (𝑛 ∈ 𝑁 ↦ (({⟨1, 2⟩, ⟨2, 1⟩}‘𝑛)𝑀𝑛)))
102	101	oveq2d 7425	. . . . . . 7 ⊢ (𝑘 = {⟨1, 2⟩, ⟨2, 1⟩} → ((mulGrp‘𝑅) Σ_g (𝑛 ∈ 𝑁 ↦ ((𝑘‘𝑛)𝑀𝑛))) = ((mulGrp‘𝑅) Σ_g (𝑛 ∈ 𝑁 ↦ (({⟨1, 2⟩, ⟨2, 1⟩}‘𝑛)𝑀𝑛))))
103	98, 102	oveq12d 7427	. . . . . 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 19822	. . . . 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 1372	. . . 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 7427	. . 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 2734	. . . . . . 7 ⊢ (𝑀 ∈ 𝐵 → {⟨1, 1⟩, ⟨2, 2⟩} = {⟨1, 1⟩, ⟨2, 2⟩})
108		eqid 2733	. . . . . . . 8 ⊢ (1_r‘𝑅) = (1_r‘𝑅)
109	15, 4, 5, 6, 108	m2detleiblem5 22127	. . . . . . 7 ⊢ ((𝑅 ∈ Ring ∧ {⟨1, 1⟩, ⟨2, 2⟩} = {⟨1, 1⟩, ⟨2, 2⟩}) → ((ℤRHom‘𝑅)‘((pmSgn‘𝑁)‘{⟨1, 1⟩, ⟨2, 2⟩})) = (1_r‘𝑅))
110	107, 109	sylan2 594	. . . . . 6 ⊢ ((𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) → ((ℤRHom‘𝑅)‘((pmSgn‘𝑁)‘{⟨1, 1⟩, ⟨2, 2⟩})) = (1_r‘𝑅))
111		eqidd 2734	. . . . . . 7 ⊢ ((𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) → {⟨1, 1⟩, ⟨2, 2⟩} = {⟨1, 1⟩, ⟨2, 2⟩})
112	8, 7	mgpplusg 19991	. . . . . . . 8 ⊢ · = (+_g‘(mulGrp‘𝑅))
113	15, 4, 2, 3, 8, 112	m2detleiblem3 22131	. . . . . . 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 1372	. . . . . 6 ⊢ ((𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) → ((mulGrp‘𝑅) Σ_g (𝑛 ∈ 𝑁 ↦ (({⟨1, 1⟩, ⟨2, 2⟩}‘𝑛)𝑀𝑛))) = ((1𝑀1) · (2𝑀2)))
115	110, 114	oveq12d 7427	. . . . 5 ⊢ ((𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) → (((ℤRHom‘𝑅)‘((pmSgn‘𝑁)‘{⟨1, 1⟩, ⟨2, 2⟩})) · ((mulGrp‘𝑅) Σ_g (𝑛 ∈ 𝑁 ↦ (({⟨1, 1⟩, ⟨2, 2⟩}‘𝑛)𝑀𝑛)))) = ((1_r‘𝑅) · ((1𝑀1) · (2𝑀2))))
116	43	prid1 4767	. . . . . . . . . 10 ⊢ 1 ∈ {1, 2}
117	116, 15	eleqtrri 2833	. . . . . . . . 9 ⊢ 1 ∈ 𝑁
118	117	a1i 11	. . . . . . . 8 ⊢ ((𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) → 1 ∈ 𝑁)
119	3	eleq2i 2826	. . . . . . . . . 10 ⊢ (𝑀 ∈ 𝐵 ↔ 𝑀 ∈ (Base‘𝐴))
120	119	biimpi 215	. . . . . . . . 9 ⊢ (𝑀 ∈ 𝐵 → 𝑀 ∈ (Base‘𝐴))
121	120	adantl 483	. . . . . . . 8 ⊢ ((𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) → 𝑀 ∈ (Base‘𝐴))
122	2, 11	matecl 21927	. . . . . . . 8 ⊢ ((1 ∈ 𝑁 ∧ 1 ∈ 𝑁 ∧ 𝑀 ∈ (Base‘𝐴)) → (1𝑀1) ∈ (Base‘𝑅))
123	118, 118, 121, 122	syl3anc 1372	. . . . . . 7 ⊢ ((𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) → (1𝑀1) ∈ (Base‘𝑅))
124		prid2g 4766	. . . . . . . . . . 11 ⊢ (2 ∈ ℕ → 2 ∈ {1, 2})
125	57, 124	ax-mp 5	. . . . . . . . . 10 ⊢ 2 ∈ {1, 2}
126	125, 15	eleqtrri 2833	. . . . . . . . 9 ⊢ 2 ∈ 𝑁
127	126	a1i 11	. . . . . . . 8 ⊢ ((𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) → 2 ∈ 𝑁)
128	2, 11	matecl 21927	. . . . . . . 8 ⊢ ((2 ∈ 𝑁 ∧ 2 ∈ 𝑁 ∧ 𝑀 ∈ (Base‘𝐴)) → (2𝑀2) ∈ (Base‘𝑅))
129	127, 127, 121, 128	syl3anc 1372	. . . . . . 7 ⊢ ((𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) → (2𝑀2) ∈ (Base‘𝑅))
130	11, 7	ringcl 20073	. . . . . . 7 ⊢ ((𝑅 ∈ Ring ∧ (1𝑀1) ∈ (Base‘𝑅) ∧ (2𝑀2) ∈ (Base‘𝑅)) → ((1𝑀1) · (2𝑀2)) ∈ (Base‘𝑅))
131	22, 123, 129, 130	syl3anc 1372	. . . . . 6 ⊢ ((𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) → ((1𝑀1) · (2𝑀2)) ∈ (Base‘𝑅))
132	11, 7, 108	ringlidm 20086	. . . . . 6 ⊢ ((𝑅 ∈ Ring ∧ ((1𝑀1) · (2𝑀2)) ∈ (Base‘𝑅)) → ((1_r‘𝑅) · ((1𝑀1) · (2𝑀2))) = ((1𝑀1) · (2𝑀2)))
133	131, 132	syldan 592	. . . . 5 ⊢ ((𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) → ((1_r‘𝑅) · ((1𝑀1) · (2𝑀2))) = ((1𝑀1) · (2𝑀2)))
134	115, 133	eqtrd 2773	. . . 4 ⊢ ((𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) → (((ℤRHom‘𝑅)‘((pmSgn‘𝑁)‘{⟨1, 1⟩, ⟨2, 2⟩})) · ((mulGrp‘𝑅) Σ_g (𝑛 ∈ 𝑁 ↦ (({⟨1, 1⟩, ⟨2, 2⟩}‘𝑛)𝑀𝑛)))) = ((1𝑀1) · (2𝑀2)))
135		eqidd 2734	. . . . . 6 ⊢ (𝑀 ∈ 𝐵 → {⟨1, 2⟩, ⟨2, 1⟩} = {⟨1, 2⟩, ⟨2, 1⟩})
136		eqid 2733	. . . . . . 7 ⊢ (inv_g‘𝑅) = (inv_g‘𝑅)
137	15, 4, 5, 6, 108, 136	m2detleiblem6 22128	. . . . . 6 ⊢ ((𝑅 ∈ Ring ∧ {⟨1, 2⟩, ⟨2, 1⟩} = {⟨1, 2⟩, ⟨2, 1⟩}) → ((ℤRHom‘𝑅)‘((pmSgn‘𝑁)‘{⟨1, 2⟩, ⟨2, 1⟩})) = ((inv_g‘𝑅)‘(1_r‘𝑅)))
138	135, 137	sylan2 594	. . . . 5 ⊢ ((𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) → ((ℤRHom‘𝑅)‘((pmSgn‘𝑁)‘{⟨1, 2⟩, ⟨2, 1⟩})) = ((inv_g‘𝑅)‘(1_r‘𝑅)))
139		eqidd 2734	. . . . . 6 ⊢ ((𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) → {⟨1, 2⟩, ⟨2, 1⟩} = {⟨1, 2⟩, ⟨2, 1⟩})
140	15, 4, 2, 3, 8, 112	m2detleiblem4 22132	. . . . . 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 1372	. . . . 5 ⊢ ((𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) → ((mulGrp‘𝑅) Σ_g (𝑛 ∈ 𝑁 ↦ (({⟨1, 2⟩, ⟨2, 1⟩}‘𝑛)𝑀𝑛))) = ((2𝑀1) · (1𝑀2)))
142	138, 141	oveq12d 7427	. . . 4 ⊢ ((𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) → (((ℤRHom‘𝑅)‘((pmSgn‘𝑁)‘{⟨1, 2⟩, ⟨2, 1⟩})) · ((mulGrp‘𝑅) Σ_g (𝑛 ∈ 𝑁 ↦ (({⟨1, 2⟩, ⟨2, 1⟩}‘𝑛)𝑀𝑛)))) = (((inv_g‘𝑅)‘(1_r‘𝑅)) · ((2𝑀1) · (1𝑀2))))
143	134, 142	oveq12d 7427	. . 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‘𝑅)(((inv_g‘𝑅)‘(1_r‘𝑅)) · ((2𝑀1) · (1𝑀2)))))
144	2, 11	matecl 21927	. . . . . 6 ⊢ ((2 ∈ 𝑁 ∧ 1 ∈ 𝑁 ∧ 𝑀 ∈ (Base‘𝐴)) → (2𝑀1) ∈ (Base‘𝑅))
145	127, 118, 121, 144	syl3anc 1372	. . . . 5 ⊢ ((𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) → (2𝑀1) ∈ (Base‘𝑅))
146	2, 11	matecl 21927	. . . . . 6 ⊢ ((1 ∈ 𝑁 ∧ 2 ∈ 𝑁 ∧ 𝑀 ∈ (Base‘𝐴)) → (1𝑀2) ∈ (Base‘𝑅))
147	118, 127, 121, 146	syl3anc 1372	. . . . 5 ⊢ ((𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) → (1𝑀2) ∈ (Base‘𝑅))
148	11, 7	ringcl 20073	. . . . 5 ⊢ ((𝑅 ∈ Ring ∧ (2𝑀1) ∈ (Base‘𝑅) ∧ (1𝑀2) ∈ (Base‘𝑅)) → ((2𝑀1) · (1𝑀2)) ∈ (Base‘𝑅))
149	22, 145, 147, 148	syl3anc 1372	. . . 4 ⊢ ((𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) → ((2𝑀1) · (1𝑀2)) ∈ (Base‘𝑅))
150		m2detleib.m	. . . . 5 ⊢ − = (-_g‘𝑅)
151	15, 4, 5, 6, 108, 136, 7, 150	m2detleiblem7 22129	. . . 4 ⊢ ((𝑅 ∈ Ring ∧ ((1𝑀1) · (2𝑀2)) ∈ (Base‘𝑅) ∧ ((2𝑀1) · (1𝑀2)) ∈ (Base‘𝑅)) → (((1𝑀1) · (2𝑀2))(+_g‘𝑅)(((inv_g‘𝑅)‘(1_r‘𝑅)) · ((2𝑀1) · (1𝑀2)))) = (((1𝑀1) · (2𝑀2)) − ((2𝑀1) · (1𝑀2))))
152	22, 131, 149, 151	syl3anc 1372	. . 3 ⊢ ((𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) → (((1𝑀1) · (2𝑀2))(+_g‘𝑅)(((inv_g‘𝑅)‘(1_r‘𝑅)) · ((2𝑀1) · (1𝑀2)))) = (((1𝑀1) · (2𝑀2)) − ((2𝑀1) · (1𝑀2))))
153	106, 143, 152	3eqtrd 2777	. 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 2777	1 ⊢ ((𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) → (𝐷‘𝑀) = (((1𝑀1) · (2𝑀2)) − ((2𝑀1) · (1𝑀2))))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ∧ wa 397 ∨ wo 846 = wceq 1542 ∈ wcel 2107 ≠ wne 2941 Vcvv 3475 ∪ cun 3947 ∩ cin 3948 ∅c0 4323 {csn 4629 {cpr 4631 ⟨cop 4635 ↦ cmpt 5232 ‘cfv 6544 (class class class)co 7409 Fincfn 8939 1c1 11111 ℕcn 12212 2c2 12267 Basecbs 17144 +_gcplusg 17197 ._rcmulr 17198 Σ_g cgsu 17386 Mndcmnd 18625 inv_gcminusg 18820 -_gcsg 18821 SymGrpcsymg 19234 pmSgncpsgn 19357 CMndccmn 19648 mulGrpcmgp 19987 1_rcur 20004 Ringcrg 20056 ℤRHomczrh 21049 Mat cmat 21907 maDet cmdat 22086

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 1914 ax-6 1972 ax-7 2012 ax-8 2109 ax-9 2117 ax-10 2138 ax-11 2155 ax-12 2172 ax-ext 2704 ax-rep 5286 ax-sep 5300 ax-nul 5307 ax-pow 5364 ax-pr 5428 ax-un 7725 ax-cnex 11166 ax-resscn 11167 ax-1cn 11168 ax-icn 11169 ax-addcl 11170 ax-addrcl 11171 ax-mulcl 11172 ax-mulrcl 11173 ax-mulcom 11174 ax-addass 11175 ax-mulass 11176 ax-distr 11177 ax-i2m1 11178 ax-1ne0 11179 ax-1rid 11180 ax-rnegex 11181 ax-rrecex 11182 ax-cnre 11183 ax-pre-lttri 11184 ax-pre-lttrn 11185 ax-pre-ltadd 11186 ax-pre-mulgt0 11187 ax-addf 11189 ax-mulf 11190

This theorem depends on definitions: df-bi 206 df-an 398 df-or 847 df-3or 1089 df-3an 1090 df-xor 1511 df-tru 1545 df-fal 1555 df-ex 1783 df-nf 1787 df-sb 2069 df-mo 2535 df-eu 2564 df-clab 2711 df-cleq 2725 df-clel 2811 df-nfc 2886 df-ne 2942 df-nel 3048 df-ral 3063 df-rex 3072 df-rmo 3377 df-reu 3378 df-rab 3434 df-v 3477 df-sbc 3779 df-csb 3895 df-dif 3952 df-un 3954 df-in 3956 df-ss 3966 df-pss 3968 df-nul 4324 df-if 4530 df-pw 4605 df-sn 4630 df-pr 4632 df-tp 4634 df-op 4636 df-ot 4638 df-uni 4910 df-int 4952 df-iun 5000 df-iin 5001 df-br 5150 df-opab 5212 df-mpt 5233 df-tr 5267 df-id 5575 df-eprel 5581 df-po 5589 df-so 5590 df-fr 5632 df-se 5633 df-we 5634 df-xp 5683 df-rel 5684 df-cnv 5685 df-co 5686 df-dm 5687 df-rn 5688 df-res 5689 df-ima 5690 df-pred 6301 df-ord 6368 df-on 6369 df-lim 6370 df-suc 6371 df-iota 6496 df-fun 6546 df-fn 6547 df-f 6548 df-f1 6549 df-fo 6550 df-f1o 6551 df-fv 6552 df-isom 6553 df-riota 7365 df-ov 7412 df-oprab 7413 df-mpo 7414 df-of 7670 df-om 7856 df-1st 7975 df-2nd 7976 df-supp 8147 df-tpos 8211 df-frecs 8266 df-wrecs 8297 df-recs 8371 df-rdg 8410 df-1o 8466 df-2o 8467 df-oadd 8470 df-er 8703 df-map 8822 df-pm 8823 df-ixp 8892 df-en 8940 df-dom 8941 df-sdom 8942 df-fin 8943 df-fsupp 9362 df-sup 9437 df-oi 9505 df-dju 9896 df-card 9934 df-pnf 11250 df-mnf 11251 df-xr 11252 df-ltxr 11253 df-le 11254 df-sub 11446 df-neg 11447 df-div 11872 df-nn 12213 df-2 12275 df-3 12276 df-4 12277 df-5 12278 df-6 12279 df-7 12280 df-8 12281 df-9 12282 df-n0 12473 df-xnn0 12545 df-z 12559 df-dec 12678 df-uz 12823 df-rp 12975 df-fz 13485 df-fzo 13628 df-seq 13967 df-exp 14028 df-fac 14234 df-bc 14263 df-hash 14291 df-word 14465 df-lsw 14513 df-concat 14521 df-s1 14546 df-substr 14591 df-pfx 14621 df-splice 14700 df-reverse 14709 df-s2 14799 df-struct 17080 df-sets 17097 df-slot 17115 df-ndx 17127 df-base 17145 df-ress 17174 df-plusg 17210 df-mulr 17211 df-starv 17212 df-sca 17213 df-vsca 17214 df-ip 17215 df-tset 17216 df-ple 17217 df-ds 17219 df-unif 17220 df-hom 17221 df-cco 17222 df-0g 17387 df-gsum 17388 df-prds 17393 df-pws 17395 df-mre 17530 df-mrc 17531 df-acs 17533 df-mgm 18561 df-sgrp 18610 df-mnd 18626 df-mhm 18671 df-submnd 18672 df-efmnd 18750 df-grp 18822 df-minusg 18823 df-sbg 18824 df-mulg 18951 df-subg 19003 df-ghm 19090 df-gim 19133 df-cntz 19181 df-oppg 19210 df-symg 19235 df-pmtr 19310 df-psgn 19359 df-cmn 19650 df-abl 19651 df-mgp 19988 df-ur 20005 df-ring 20058 df-cring 20059 df-rnghom 20251 df-subrg 20317 df-sra 20785 df-rgmod 20786 df-cnfld 20945 df-zring 21018 df-zrh 21053 df-dsmm 21287 df-frlm 21302 df-mat 21908 df-mdet 22087

This theorem is referenced by: lmat22det 32802

W3C validator