mdetrsca - Metamath Proof Explorer

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

Theorem mdetrsca 22460

Description: The determinant function is homogeneous for each row: If the matrices 𝑋 and 𝑍 are identical except for the 𝐼-th row, and the 𝐼-th row of the matrix 𝑋 is the componentwise product of the 𝐼-th row of the matrix 𝑍 and the scalar 𝑌, then the determinant of 𝑋 is the determinant of 𝑍 multiplied by 𝑌. (Contributed by SO, 9-Jul-2018.) (Proof shortened by AV, 23-Jul-2019.)

**Hypotheses**
Ref	Expression
mdetrsca.d	⊢ 𝐷 = (𝑁 maDet 𝑅)
mdetrsca.a	⊢ 𝐴 = (𝑁 Mat 𝑅)
mdetrsca.b	⊢ 𝐵 = (Base‘𝐴)
mdetrsca.k	⊢ 𝐾 = (Base‘𝑅)
mdetrsca.t	⊢ · = (._r‘𝑅)
mdetrsca.r	⊢ (𝜑 → 𝑅 ∈ CRing)
mdetrsca.x	⊢ (𝜑 → 𝑋 ∈ 𝐵)
mdetrsca.y	⊢ (𝜑 → 𝑌 ∈ 𝐾)
mdetrsca.z	⊢ (𝜑 → 𝑍 ∈ 𝐵)
mdetrsca.i	⊢ (𝜑 → 𝐼 ∈ 𝑁)
mdetrsca.eq	⊢ (𝜑 → (𝑋 ↾ ({𝐼} × 𝑁)) = ((({𝐼} × 𝑁) × {𝑌}) ∘_f · (𝑍 ↾ ({𝐼} × 𝑁))))
mdetrsca.ne	⊢ (𝜑 → (𝑋 ↾ ((𝑁 ∖ {𝐼}) × 𝑁)) = (𝑍 ↾ ((𝑁 ∖ {𝐼}) × 𝑁)))

**Assertion**
Ref	Expression
mdetrsca	⊢ (𝜑 → (𝐷‘𝑋) = (𝑌 · (𝐷‘𝑍)))

Proof of Theorem mdetrsca Dummy variables 𝑝 𝑟 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		mdetrsca.eq	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝑋 ↾ ({𝐼} × 𝑁)) = ((({𝐼} × 𝑁) × {𝑌}) ∘_f · (𝑍 ↾ ({𝐼} × 𝑁))))
2	1	oveqd 7422	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝐼(𝑋 ↾ ({𝐼} × 𝑁))(𝑝‘𝐼)) = (𝐼((({𝐼} × 𝑁) × {𝑌}) ∘_f · (𝑍 ↾ ({𝐼} × 𝑁)))(𝑝‘𝐼)))
3	2	adantr 480	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → (𝐼(𝑋 ↾ ({𝐼} × 𝑁))(𝑝‘𝐼)) = (𝐼((({𝐼} × 𝑁) × {𝑌}) ∘_f · (𝑍 ↾ ({𝐼} × 𝑁)))(𝑝‘𝐼)))
4		mdetrsca.i	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝐼 ∈ 𝑁)
5	4	adantr 480	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → 𝐼 ∈ 𝑁)
6		snidg 4657	. . . . . . . . . . . . . 14 ⊢ (𝐼 ∈ 𝑁 → 𝐼 ∈ {𝐼})
7	5, 6	syl 17	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → 𝐼 ∈ {𝐼})
8		eqid 2726	. . . . . . . . . . . . . . . . 17 ⊢ (SymGrp‘𝑁) = (SymGrp‘𝑁)
9		eqid 2726	. . . . . . . . . . . . . . . . 17 ⊢ (Base‘(SymGrp‘𝑁)) = (Base‘(SymGrp‘𝑁))
10	8, 9	symgbasf1o 19294	. . . . . . . . . . . . . . . 16 ⊢ (𝑝 ∈ (Base‘(SymGrp‘𝑁)) → 𝑝:𝑁–1-1-onto→𝑁)
11	10	adantl 481	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → 𝑝:𝑁–1-1-onto→𝑁)
12		f1of 6827	. . . . . . . . . . . . . . 15 ⊢ (𝑝:𝑁–1-1-onto→𝑁 → 𝑝:𝑁⟶𝑁)
13	11, 12	syl 17	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → 𝑝:𝑁⟶𝑁)
14	13, 5	ffvelcdmd 7081	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → (𝑝‘𝐼) ∈ 𝑁)
15		ovres 7570	. . . . . . . . . . . . 13 ⊢ ((𝐼 ∈ {𝐼} ∧ (𝑝‘𝐼) ∈ 𝑁) → (𝐼(𝑋 ↾ ({𝐼} × 𝑁))(𝑝‘𝐼)) = (𝐼𝑋(𝑝‘𝐼)))
16	7, 14, 15	syl2anc 583	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → (𝐼(𝑋 ↾ ({𝐼} × 𝑁))(𝑝‘𝐼)) = (𝐼𝑋(𝑝‘𝐼)))
17	7, 14	opelxpd 5708	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → ⟨𝐼, (𝑝‘𝐼)⟩ ∈ ({𝐼} × 𝑁))
18		snfi 9046	. . . . . . . . . . . . . . . 16 ⊢ {𝐼} ∈ Fin
19		mdetrsca.x	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → 𝑋 ∈ 𝐵)
20		mdetrsca.a	. . . . . . . . . . . . . . . . . . . 20 ⊢ 𝐴 = (𝑁 Mat 𝑅)
21		mdetrsca.b	. . . . . . . . . . . . . . . . . . . 20 ⊢ 𝐵 = (Base‘𝐴)
22	20, 21	matrcl 22267	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑋 ∈ 𝐵 → (𝑁 ∈ Fin ∧ 𝑅 ∈ V))
23	19, 22	syl 17	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (𝑁 ∈ Fin ∧ 𝑅 ∈ V))
24	23	simpld 494	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 𝑁 ∈ Fin)
25	24	adantr 480	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → 𝑁 ∈ Fin)
26		xpfi 9319	. . . . . . . . . . . . . . . 16 ⊢ (({𝐼} ∈ Fin ∧ 𝑁 ∈ Fin) → ({𝐼} × 𝑁) ∈ Fin)
27	18, 25, 26	sylancr 586	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → ({𝐼} × 𝑁) ∈ Fin)
28		mdetrsca.y	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝑌 ∈ 𝐾)
29	28	adantr 480	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → 𝑌 ∈ 𝐾)
30		mdetrsca.z	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → 𝑍 ∈ 𝐵)
31		mdetrsca.k	. . . . . . . . . . . . . . . . . . . 20 ⊢ 𝐾 = (Base‘𝑅)
32	20, 31, 21	matbas2i 22279	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑍 ∈ 𝐵 → 𝑍 ∈ (𝐾 ↑_m (𝑁 × 𝑁)))
33		elmapi 8845	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑍 ∈ (𝐾 ↑_m (𝑁 × 𝑁)) → 𝑍:(𝑁 × 𝑁)⟶𝐾)
34	30, 32, 33	3syl 18	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → 𝑍:(𝑁 × 𝑁)⟶𝐾)
35	34	adantr 480	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → 𝑍:(𝑁 × 𝑁)⟶𝐾)
36	35	ffnd 6712	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → 𝑍 Fn (𝑁 × 𝑁))
37	5	snssd 4807	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → {𝐼} ⊆ 𝑁)
38		xpss1 5688	. . . . . . . . . . . . . . . . 17 ⊢ ({𝐼} ⊆ 𝑁 → ({𝐼} × 𝑁) ⊆ (𝑁 × 𝑁))
39	37, 38	syl 17	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → ({𝐼} × 𝑁) ⊆ (𝑁 × 𝑁))
40	36, 39	fnssresd 6668	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → (𝑍 ↾ ({𝐼} × 𝑁)) Fn ({𝐼} × 𝑁))
41		eqidd 2727	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) ∧ ⟨𝐼, (𝑝‘𝐼)⟩ ∈ ({𝐼} × 𝑁)) → ((𝑍 ↾ ({𝐼} × 𝑁))‘⟨𝐼, (𝑝‘𝐼)⟩) = ((𝑍 ↾ ({𝐼} × 𝑁))‘⟨𝐼, (𝑝‘𝐼)⟩))
42	27, 29, 40, 41	ofc1 7693	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) ∧ ⟨𝐼, (𝑝‘𝐼)⟩ ∈ ({𝐼} × 𝑁)) → (((({𝐼} × 𝑁) × {𝑌}) ∘_f · (𝑍 ↾ ({𝐼} × 𝑁)))‘⟨𝐼, (𝑝‘𝐼)⟩) = (𝑌 · ((𝑍 ↾ ({𝐼} × 𝑁))‘⟨𝐼, (𝑝‘𝐼)⟩)))
43	17, 42	mpdan 684	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → (((({𝐼} × 𝑁) × {𝑌}) ∘_f · (𝑍 ↾ ({𝐼} × 𝑁)))‘⟨𝐼, (𝑝‘𝐼)⟩) = (𝑌 · ((𝑍 ↾ ({𝐼} × 𝑁))‘⟨𝐼, (𝑝‘𝐼)⟩)))
44		df-ov 7408	. . . . . . . . . . . . 13 ⊢ (𝐼((({𝐼} × 𝑁) × {𝑌}) ∘_f · (𝑍 ↾ ({𝐼} × 𝑁)))(𝑝‘𝐼)) = (((({𝐼} × 𝑁) × {𝑌}) ∘_f · (𝑍 ↾ ({𝐼} × 𝑁)))‘⟨𝐼, (𝑝‘𝐼)⟩)
45		df-ov 7408	. . . . . . . . . . . . . 14 ⊢ (𝐼(𝑍 ↾ ({𝐼} × 𝑁))(𝑝‘𝐼)) = ((𝑍 ↾ ({𝐼} × 𝑁))‘⟨𝐼, (𝑝‘𝐼)⟩)
46	45	oveq2i 7416	. . . . . . . . . . . . 13 ⊢ (𝑌 · (𝐼(𝑍 ↾ ({𝐼} × 𝑁))(𝑝‘𝐼))) = (𝑌 · ((𝑍 ↾ ({𝐼} × 𝑁))‘⟨𝐼, (𝑝‘𝐼)⟩))
47	43, 44, 46	3eqtr4g 2791	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → (𝐼((({𝐼} × 𝑁) × {𝑌}) ∘_f · (𝑍 ↾ ({𝐼} × 𝑁)))(𝑝‘𝐼)) = (𝑌 · (𝐼(𝑍 ↾ ({𝐼} × 𝑁))(𝑝‘𝐼))))
48	3, 16, 47	3eqtr3d 2774	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → (𝐼𝑋(𝑝‘𝐼)) = (𝑌 · (𝐼(𝑍 ↾ ({𝐼} × 𝑁))(𝑝‘𝐼))))
49		ovres 7570	. . . . . . . . . . . . 13 ⊢ ((𝐼 ∈ {𝐼} ∧ (𝑝‘𝐼) ∈ 𝑁) → (𝐼(𝑍 ↾ ({𝐼} × 𝑁))(𝑝‘𝐼)) = (𝐼𝑍(𝑝‘𝐼)))
50	7, 14, 49	syl2anc 583	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → (𝐼(𝑍 ↾ ({𝐼} × 𝑁))(𝑝‘𝐼)) = (𝐼𝑍(𝑝‘𝐼)))
51	50	oveq2d 7421	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → (𝑌 · (𝐼(𝑍 ↾ ({𝐼} × 𝑁))(𝑝‘𝐼))) = (𝑌 · (𝐼𝑍(𝑝‘𝐼))))
52	48, 51	eqtrd 2766	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → (𝐼𝑋(𝑝‘𝐼)) = (𝑌 · (𝐼𝑍(𝑝‘𝐼))))
53	52	oveq1d 7420	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → ((𝐼𝑋(𝑝‘𝐼)) · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ (𝑁 ∖ {𝐼}) ↦ (𝑟𝑍(𝑝‘𝑟))))) = ((𝑌 · (𝐼𝑍(𝑝‘𝐼))) · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ (𝑁 ∖ {𝐼}) ↦ (𝑟𝑍(𝑝‘𝑟))))))
54		mdetrsca.r	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑅 ∈ CRing)
55	54	crngringd 20151	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑅 ∈ Ring)
56	55	adantr 480	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → 𝑅 ∈ Ring)
57	35, 5, 14	fovcdmd 7576	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → (𝐼𝑍(𝑝‘𝐼)) ∈ 𝐾)
58		eqid 2726	. . . . . . . . . . . 12 ⊢ (mulGrp‘𝑅) = (mulGrp‘𝑅)
59	58, 31	mgpbas 20045	. . . . . . . . . . 11 ⊢ 𝐾 = (Base‘(mulGrp‘𝑅))
60	58	crngmgp 20146	. . . . . . . . . . . . 13 ⊢ (𝑅 ∈ CRing → (mulGrp‘𝑅) ∈ CMnd)
61	54, 60	syl 17	. . . . . . . . . . . 12 ⊢ (𝜑 → (mulGrp‘𝑅) ∈ CMnd)
62	61	adantr 480	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → (mulGrp‘𝑅) ∈ CMnd)
63		difssd 4127	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → (𝑁 ∖ {𝐼}) ⊆ 𝑁)
64	25, 63	ssfid 9269	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → (𝑁 ∖ {𝐼}) ∈ Fin)
65		eldifi 4121	. . . . . . . . . . . . 13 ⊢ (𝑟 ∈ (𝑁 ∖ {𝐼}) → 𝑟 ∈ 𝑁)
66	34	ad2antrr 723	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) ∧ 𝑟 ∈ 𝑁) → 𝑍:(𝑁 × 𝑁)⟶𝐾)
67		simpr 484	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) ∧ 𝑟 ∈ 𝑁) → 𝑟 ∈ 𝑁)
68	13	ffvelcdmda 7080	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) ∧ 𝑟 ∈ 𝑁) → (𝑝‘𝑟) ∈ 𝑁)
69	66, 67, 68	fovcdmd 7576	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) ∧ 𝑟 ∈ 𝑁) → (𝑟𝑍(𝑝‘𝑟)) ∈ 𝐾)
70	65, 69	sylan2 592	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) ∧ 𝑟 ∈ (𝑁 ∖ {𝐼})) → (𝑟𝑍(𝑝‘𝑟)) ∈ 𝐾)
71	70	ralrimiva 3140	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → ∀𝑟 ∈ (𝑁 ∖ {𝐼})(𝑟𝑍(𝑝‘𝑟)) ∈ 𝐾)
72	59, 62, 64, 71	gsummptcl 19887	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → ((mulGrp‘𝑅) Σ_g (𝑟 ∈ (𝑁 ∖ {𝐼}) ↦ (𝑟𝑍(𝑝‘𝑟)))) ∈ 𝐾)
73		mdetrsca.t	. . . . . . . . . . 11 ⊢ · = (._r‘𝑅)
74	31, 73	ringass 20158	. . . . . . . . . 10 ⊢ ((𝑅 ∈ Ring ∧ (𝑌 ∈ 𝐾 ∧ (𝐼𝑍(𝑝‘𝐼)) ∈ 𝐾 ∧ ((mulGrp‘𝑅) Σ_g (𝑟 ∈ (𝑁 ∖ {𝐼}) ↦ (𝑟𝑍(𝑝‘𝑟)))) ∈ 𝐾)) → ((𝑌 · (𝐼𝑍(𝑝‘𝐼))) · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ (𝑁 ∖ {𝐼}) ↦ (𝑟𝑍(𝑝‘𝑟))))) = (𝑌 · ((𝐼𝑍(𝑝‘𝐼)) · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ (𝑁 ∖ {𝐼}) ↦ (𝑟𝑍(𝑝‘𝑟)))))))
75	56, 29, 57, 72, 74	syl13anc 1369	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → ((𝑌 · (𝐼𝑍(𝑝‘𝐼))) · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ (𝑁 ∖ {𝐼}) ↦ (𝑟𝑍(𝑝‘𝑟))))) = (𝑌 · ((𝐼𝑍(𝑝‘𝐼)) · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ (𝑁 ∖ {𝐼}) ↦ (𝑟𝑍(𝑝‘𝑟)))))))
76	53, 75	eqtrd 2766	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → ((𝐼𝑋(𝑝‘𝐼)) · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ (𝑁 ∖ {𝐼}) ↦ (𝑟𝑍(𝑝‘𝑟))))) = (𝑌 · ((𝐼𝑍(𝑝‘𝐼)) · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ (𝑁 ∖ {𝐼}) ↦ (𝑟𝑍(𝑝‘𝑟)))))))
77	58, 73	mgpplusg 20043	. . . . . . . . . 10 ⊢ · = (+_g‘(mulGrp‘𝑅))
78	20, 31, 21	matbas2i 22279	. . . . . . . . . . . . 13 ⊢ (𝑋 ∈ 𝐵 → 𝑋 ∈ (𝐾 ↑_m (𝑁 × 𝑁)))
79		elmapi 8845	. . . . . . . . . . . . 13 ⊢ (𝑋 ∈ (𝐾 ↑_m (𝑁 × 𝑁)) → 𝑋:(𝑁 × 𝑁)⟶𝐾)
80	19, 78, 79	3syl 18	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑋:(𝑁 × 𝑁)⟶𝐾)
81	80	ad2antrr 723	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) ∧ 𝑟 ∈ 𝑁) → 𝑋:(𝑁 × 𝑁)⟶𝐾)
82	81, 67, 68	fovcdmd 7576	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) ∧ 𝑟 ∈ 𝑁) → (𝑟𝑋(𝑝‘𝑟)) ∈ 𝐾)
83		disjdif 4466	. . . . . . . . . . 11 ⊢ ({𝐼} ∩ (𝑁 ∖ {𝐼})) = ∅
84	83	a1i 11	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → ({𝐼} ∩ (𝑁 ∖ {𝐼})) = ∅)
85		undif 4476	. . . . . . . . . . . 12 ⊢ ({𝐼} ⊆ 𝑁 ↔ ({𝐼} ∪ (𝑁 ∖ {𝐼})) = 𝑁)
86	37, 85	sylib 217	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → ({𝐼} ∪ (𝑁 ∖ {𝐼})) = 𝑁)
87	86	eqcomd 2732	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → 𝑁 = ({𝐼} ∪ (𝑁 ∖ {𝐼})))
88	59, 77, 62, 25, 82, 84, 87	gsummptfidmsplit 19850	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → ((mulGrp‘𝑅) Σ_g (𝑟 ∈ 𝑁 ↦ (𝑟𝑋(𝑝‘𝑟)))) = (((mulGrp‘𝑅) Σ_g (𝑟 ∈ {𝐼} ↦ (𝑟𝑋(𝑝‘𝑟)))) · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ (𝑁 ∖ {𝐼}) ↦ (𝑟𝑋(𝑝‘𝑟))))))
89	62	cmnmndd 19724	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → (mulGrp‘𝑅) ∈ Mnd)
90	80	adantr 480	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → 𝑋:(𝑁 × 𝑁)⟶𝐾)
91	90, 5, 14	fovcdmd 7576	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → (𝐼𝑋(𝑝‘𝐼)) ∈ 𝐾)
92		id 22	. . . . . . . . . . . . 13 ⊢ (𝑟 = 𝐼 → 𝑟 = 𝐼)
93		fveq2 6885	. . . . . . . . . . . . 13 ⊢ (𝑟 = 𝐼 → (𝑝‘𝑟) = (𝑝‘𝐼))
94	92, 93	oveq12d 7423	. . . . . . . . . . . 12 ⊢ (𝑟 = 𝐼 → (𝑟𝑋(𝑝‘𝑟)) = (𝐼𝑋(𝑝‘𝐼)))
95	59, 94	gsumsn 19874	. . . . . . . . . . 11 ⊢ (((mulGrp‘𝑅) ∈ Mnd ∧ 𝐼 ∈ 𝑁 ∧ (𝐼𝑋(𝑝‘𝐼)) ∈ 𝐾) → ((mulGrp‘𝑅) Σ_g (𝑟 ∈ {𝐼} ↦ (𝑟𝑋(𝑝‘𝑟)))) = (𝐼𝑋(𝑝‘𝐼)))
96	89, 5, 91, 95	syl3anc 1368	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → ((mulGrp‘𝑅) Σ_g (𝑟 ∈ {𝐼} ↦ (𝑟𝑋(𝑝‘𝑟)))) = (𝐼𝑋(𝑝‘𝐼)))
97		mdetrsca.ne	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝑋 ↾ ((𝑁 ∖ {𝐼}) × 𝑁)) = (𝑍 ↾ ((𝑁 ∖ {𝐼}) × 𝑁)))
98	97	oveqd 7422	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝑟(𝑋 ↾ ((𝑁 ∖ {𝐼}) × 𝑁))(𝑝‘𝑟)) = (𝑟(𝑍 ↾ ((𝑁 ∖ {𝐼}) × 𝑁))(𝑝‘𝑟)))
99	98	ad2antrr 723	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) ∧ 𝑟 ∈ (𝑁 ∖ {𝐼})) → (𝑟(𝑋 ↾ ((𝑁 ∖ {𝐼}) × 𝑁))(𝑝‘𝑟)) = (𝑟(𝑍 ↾ ((𝑁 ∖ {𝐼}) × 𝑁))(𝑝‘𝑟)))
100		simpr 484	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) ∧ 𝑟 ∈ (𝑁 ∖ {𝐼})) → 𝑟 ∈ (𝑁 ∖ {𝐼}))
101	65, 68	sylan2 592	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) ∧ 𝑟 ∈ (𝑁 ∖ {𝐼})) → (𝑝‘𝑟) ∈ 𝑁)
102		ovres 7570	. . . . . . . . . . . . . 14 ⊢ ((𝑟 ∈ (𝑁 ∖ {𝐼}) ∧ (𝑝‘𝑟) ∈ 𝑁) → (𝑟(𝑋 ↾ ((𝑁 ∖ {𝐼}) × 𝑁))(𝑝‘𝑟)) = (𝑟𝑋(𝑝‘𝑟)))
103	100, 101, 102	syl2anc 583	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) ∧ 𝑟 ∈ (𝑁 ∖ {𝐼})) → (𝑟(𝑋 ↾ ((𝑁 ∖ {𝐼}) × 𝑁))(𝑝‘𝑟)) = (𝑟𝑋(𝑝‘𝑟)))
104		ovres 7570	. . . . . . . . . . . . . 14 ⊢ ((𝑟 ∈ (𝑁 ∖ {𝐼}) ∧ (𝑝‘𝑟) ∈ 𝑁) → (𝑟(𝑍 ↾ ((𝑁 ∖ {𝐼}) × 𝑁))(𝑝‘𝑟)) = (𝑟𝑍(𝑝‘𝑟)))
105	100, 101, 104	syl2anc 583	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) ∧ 𝑟 ∈ (𝑁 ∖ {𝐼})) → (𝑟(𝑍 ↾ ((𝑁 ∖ {𝐼}) × 𝑁))(𝑝‘𝑟)) = (𝑟𝑍(𝑝‘𝑟)))
106	99, 103, 105	3eqtr3d 2774	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) ∧ 𝑟 ∈ (𝑁 ∖ {𝐼})) → (𝑟𝑋(𝑝‘𝑟)) = (𝑟𝑍(𝑝‘𝑟)))
107	106	mpteq2dva 5241	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → (𝑟 ∈ (𝑁 ∖ {𝐼}) ↦ (𝑟𝑋(𝑝‘𝑟))) = (𝑟 ∈ (𝑁 ∖ {𝐼}) ↦ (𝑟𝑍(𝑝‘𝑟))))
108	107	oveq2d 7421	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → ((mulGrp‘𝑅) Σ_g (𝑟 ∈ (𝑁 ∖ {𝐼}) ↦ (𝑟𝑋(𝑝‘𝑟)))) = ((mulGrp‘𝑅) Σ_g (𝑟 ∈ (𝑁 ∖ {𝐼}) ↦ (𝑟𝑍(𝑝‘𝑟)))))
109	96, 108	oveq12d 7423	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → (((mulGrp‘𝑅) Σ_g (𝑟 ∈ {𝐼} ↦ (𝑟𝑋(𝑝‘𝑟)))) · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ (𝑁 ∖ {𝐼}) ↦ (𝑟𝑋(𝑝‘𝑟))))) = ((𝐼𝑋(𝑝‘𝐼)) · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ (𝑁 ∖ {𝐼}) ↦ (𝑟𝑍(𝑝‘𝑟))))))
110	88, 109	eqtrd 2766	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → ((mulGrp‘𝑅) Σ_g (𝑟 ∈ 𝑁 ↦ (𝑟𝑋(𝑝‘𝑟)))) = ((𝐼𝑋(𝑝‘𝐼)) · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ (𝑁 ∖ {𝐼}) ↦ (𝑟𝑍(𝑝‘𝑟))))))
111	59, 77, 62, 25, 69, 84, 87	gsummptfidmsplit 19850	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → ((mulGrp‘𝑅) Σ_g (𝑟 ∈ 𝑁 ↦ (𝑟𝑍(𝑝‘𝑟)))) = (((mulGrp‘𝑅) Σ_g (𝑟 ∈ {𝐼} ↦ (𝑟𝑍(𝑝‘𝑟)))) · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ (𝑁 ∖ {𝐼}) ↦ (𝑟𝑍(𝑝‘𝑟))))))
112	92, 93	oveq12d 7423	. . . . . . . . . . . . 13 ⊢ (𝑟 = 𝐼 → (𝑟𝑍(𝑝‘𝑟)) = (𝐼𝑍(𝑝‘𝐼)))
113	59, 112	gsumsn 19874	. . . . . . . . . . . 12 ⊢ (((mulGrp‘𝑅) ∈ Mnd ∧ 𝐼 ∈ 𝑁 ∧ (𝐼𝑍(𝑝‘𝐼)) ∈ 𝐾) → ((mulGrp‘𝑅) Σ_g (𝑟 ∈ {𝐼} ↦ (𝑟𝑍(𝑝‘𝑟)))) = (𝐼𝑍(𝑝‘𝐼)))
114	89, 5, 57, 113	syl3anc 1368	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → ((mulGrp‘𝑅) Σ_g (𝑟 ∈ {𝐼} ↦ (𝑟𝑍(𝑝‘𝑟)))) = (𝐼𝑍(𝑝‘𝐼)))
115	114	oveq1d 7420	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → (((mulGrp‘𝑅) Σ_g (𝑟 ∈ {𝐼} ↦ (𝑟𝑍(𝑝‘𝑟)))) · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ (𝑁 ∖ {𝐼}) ↦ (𝑟𝑍(𝑝‘𝑟))))) = ((𝐼𝑍(𝑝‘𝐼)) · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ (𝑁 ∖ {𝐼}) ↦ (𝑟𝑍(𝑝‘𝑟))))))
116	111, 115	eqtrd 2766	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → ((mulGrp‘𝑅) Σ_g (𝑟 ∈ 𝑁 ↦ (𝑟𝑍(𝑝‘𝑟)))) = ((𝐼𝑍(𝑝‘𝐼)) · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ (𝑁 ∖ {𝐼}) ↦ (𝑟𝑍(𝑝‘𝑟))))))
117	116	oveq2d 7421	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → (𝑌 · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ 𝑁 ↦ (𝑟𝑍(𝑝‘𝑟))))) = (𝑌 · ((𝐼𝑍(𝑝‘𝐼)) · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ (𝑁 ∖ {𝐼}) ↦ (𝑟𝑍(𝑝‘𝑟)))))))
118	76, 110, 117	3eqtr4d 2776	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → ((mulGrp‘𝑅) Σ_g (𝑟 ∈ 𝑁 ↦ (𝑟𝑋(𝑝‘𝑟)))) = (𝑌 · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ 𝑁 ↦ (𝑟𝑍(𝑝‘𝑟))))))
119	118	oveq2d 7421	. . . . . 6 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑝) · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ 𝑁 ↦ (𝑟𝑋(𝑝‘𝑟))))) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑝) · (𝑌 · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ 𝑁 ↦ (𝑟𝑍(𝑝‘𝑟)))))))
120	54	adantr 480	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → 𝑅 ∈ CRing)
121		zrhpsgnmhm 21477	. . . . . . . . . . . 12 ⊢ ((𝑅 ∈ Ring ∧ 𝑁 ∈ Fin) → ((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁)) ∈ ((SymGrp‘𝑁) MndHom (mulGrp‘𝑅)))
122	55, 24, 121	syl2anc 583	. . . . . . . . . . 11 ⊢ (𝜑 → ((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁)) ∈ ((SymGrp‘𝑁) MndHom (mulGrp‘𝑅)))
123	9, 59	mhmf 18719	. . . . . . . . . . 11 ⊢ (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁)) ∈ ((SymGrp‘𝑁) MndHom (mulGrp‘𝑅)) → ((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁)):(Base‘(SymGrp‘𝑁))⟶𝐾)
124	122, 123	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → ((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁)):(Base‘(SymGrp‘𝑁))⟶𝐾)
125	124	ffvelcdmda 7080	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑝) ∈ 𝐾)
126	31, 73	crngcom 20156	. . . . . . . . 9 ⊢ ((𝑅 ∈ CRing ∧ (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑝) ∈ 𝐾 ∧ 𝑌 ∈ 𝐾) → ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑝) · 𝑌) = (𝑌 · (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑝)))
127	120, 125, 29, 126	syl3anc 1368	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑝) · 𝑌) = (𝑌 · (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑝)))
128	127	oveq1d 7420	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → (((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑝) · 𝑌) · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ 𝑁 ↦ (𝑟𝑍(𝑝‘𝑟))))) = ((𝑌 · (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑝)) · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ 𝑁 ↦ (𝑟𝑍(𝑝‘𝑟))))))
129	69	ralrimiva 3140	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → ∀𝑟 ∈ 𝑁 (𝑟𝑍(𝑝‘𝑟)) ∈ 𝐾)
130	59, 62, 25, 129	gsummptcl 19887	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → ((mulGrp‘𝑅) Σ_g (𝑟 ∈ 𝑁 ↦ (𝑟𝑍(𝑝‘𝑟)))) ∈ 𝐾)
131	31, 73	ringass 20158	. . . . . . . 8 ⊢ ((𝑅 ∈ Ring ∧ ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑝) ∈ 𝐾 ∧ 𝑌 ∈ 𝐾 ∧ ((mulGrp‘𝑅) Σ_g (𝑟 ∈ 𝑁 ↦ (𝑟𝑍(𝑝‘𝑟)))) ∈ 𝐾)) → (((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑝) · 𝑌) · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ 𝑁 ↦ (𝑟𝑍(𝑝‘𝑟))))) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑝) · (𝑌 · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ 𝑁 ↦ (𝑟𝑍(𝑝‘𝑟)))))))
132	56, 125, 29, 130, 131	syl13anc 1369	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → (((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑝) · 𝑌) · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ 𝑁 ↦ (𝑟𝑍(𝑝‘𝑟))))) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑝) · (𝑌 · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ 𝑁 ↦ (𝑟𝑍(𝑝‘𝑟)))))))
133	31, 73	ringass 20158	. . . . . . . 8 ⊢ ((𝑅 ∈ Ring ∧ (𝑌 ∈ 𝐾 ∧ (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑝) ∈ 𝐾 ∧ ((mulGrp‘𝑅) Σ_g (𝑟 ∈ 𝑁 ↦ (𝑟𝑍(𝑝‘𝑟)))) ∈ 𝐾)) → ((𝑌 · (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑝)) · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ 𝑁 ↦ (𝑟𝑍(𝑝‘𝑟))))) = (𝑌 · ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑝) · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ 𝑁 ↦ (𝑟𝑍(𝑝‘𝑟)))))))
134	56, 29, 125, 130, 133	syl13anc 1369	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → ((𝑌 · (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑝)) · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ 𝑁 ↦ (𝑟𝑍(𝑝‘𝑟))))) = (𝑌 · ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑝) · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ 𝑁 ↦ (𝑟𝑍(𝑝‘𝑟)))))))
135	128, 132, 134	3eqtr3d 2774	. . . . . 6 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑝) · (𝑌 · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ 𝑁 ↦ (𝑟𝑍(𝑝‘𝑟)))))) = (𝑌 · ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑝) · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ 𝑁 ↦ (𝑟𝑍(𝑝‘𝑟)))))))
136	119, 135	eqtrd 2766	. . . . 5 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑝) · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ 𝑁 ↦ (𝑟𝑋(𝑝‘𝑟))))) = (𝑌 · ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑝) · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ 𝑁 ↦ (𝑟𝑍(𝑝‘𝑟)))))))
137	136	mpteq2dva 5241	. . . 4 ⊢ (𝜑 → (𝑝 ∈ (Base‘(SymGrp‘𝑁)) ↦ ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑝) · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ 𝑁 ↦ (𝑟𝑋(𝑝‘𝑟)))))) = (𝑝 ∈ (Base‘(SymGrp‘𝑁)) ↦ (𝑌 · ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑝) · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ 𝑁 ↦ (𝑟𝑍(𝑝‘𝑟))))))))
138	137	oveq2d 7421	. . 3 ⊢ (𝜑 → (𝑅 Σ_g (𝑝 ∈ (Base‘(SymGrp‘𝑁)) ↦ ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑝) · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ 𝑁 ↦ (𝑟𝑋(𝑝‘𝑟))))))) = (𝑅 Σ_g (𝑝 ∈ (Base‘(SymGrp‘𝑁)) ↦ (𝑌 · ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑝) · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ 𝑁 ↦ (𝑟𝑍(𝑝‘𝑟)))))))))
139		eqid 2726	. . . 4 ⊢ (0_g‘𝑅) = (0_g‘𝑅)
140	8, 9	symgbasfi 19298	. . . . 5 ⊢ (𝑁 ∈ Fin → (Base‘(SymGrp‘𝑁)) ∈ Fin)
141	24, 140	syl 17	. . . 4 ⊢ (𝜑 → (Base‘(SymGrp‘𝑁)) ∈ Fin)
142	31, 73, 56, 125, 130	ringcld 20162	. . . 4 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑝) · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ 𝑁 ↦ (𝑟𝑍(𝑝‘𝑟))))) ∈ 𝐾)
143		eqid 2726	. . . . 5 ⊢ (𝑝 ∈ (Base‘(SymGrp‘𝑁)) ↦ ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑝) · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ 𝑁 ↦ (𝑟𝑍(𝑝‘𝑟)))))) = (𝑝 ∈ (Base‘(SymGrp‘𝑁)) ↦ ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑝) · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ 𝑁 ↦ (𝑟𝑍(𝑝‘𝑟))))))
144		ovexd 7440	. . . . 5 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑝) · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ 𝑁 ↦ (𝑟𝑍(𝑝‘𝑟))))) ∈ V)
145		fvexd 6900	. . . . 5 ⊢ (𝜑 → (0_g‘𝑅) ∈ V)
146	143, 141, 144, 145	fsuppmptdm 9376	. . . 4 ⊢ (𝜑 → (𝑝 ∈ (Base‘(SymGrp‘𝑁)) ↦ ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑝) · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ 𝑁 ↦ (𝑟𝑍(𝑝‘𝑟)))))) finSupp (0_g‘𝑅))
147	31, 139, 73, 55, 141, 28, 142, 146	gsummulc2 20216	. . 3 ⊢ (𝜑 → (𝑅 Σ_g (𝑝 ∈ (Base‘(SymGrp‘𝑁)) ↦ (𝑌 · ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑝) · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ 𝑁 ↦ (𝑟𝑍(𝑝‘𝑟)))))))) = (𝑌 · (𝑅 Σ_g (𝑝 ∈ (Base‘(SymGrp‘𝑁)) ↦ ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑝) · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ 𝑁 ↦ (𝑟𝑍(𝑝‘𝑟)))))))))
148	138, 147	eqtrd 2766	. 2 ⊢ (𝜑 → (𝑅 Σ_g (𝑝 ∈ (Base‘(SymGrp‘𝑁)) ↦ ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑝) · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ 𝑁 ↦ (𝑟𝑋(𝑝‘𝑟))))))) = (𝑌 · (𝑅 Σ_g (𝑝 ∈ (Base‘(SymGrp‘𝑁)) ↦ ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑝) · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ 𝑁 ↦ (𝑟𝑍(𝑝‘𝑟)))))))))
149		mdetrsca.d	. . . 4 ⊢ 𝐷 = (𝑁 maDet 𝑅)
150		eqid 2726	. . . 4 ⊢ (ℤRHom‘𝑅) = (ℤRHom‘𝑅)
151		eqid 2726	. . . 4 ⊢ (pmSgn‘𝑁) = (pmSgn‘𝑁)
152	149, 20, 21, 9, 150, 151, 73, 58	mdetleib2 22445	. . 3 ⊢ ((𝑅 ∈ CRing ∧ 𝑋 ∈ 𝐵) → (𝐷‘𝑋) = (𝑅 Σ_g (𝑝 ∈ (Base‘(SymGrp‘𝑁)) ↦ ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑝) · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ 𝑁 ↦ (𝑟𝑋(𝑝‘𝑟))))))))
153	54, 19, 152	syl2anc 583	. 2 ⊢ (𝜑 → (𝐷‘𝑋) = (𝑅 Σ_g (𝑝 ∈ (Base‘(SymGrp‘𝑁)) ↦ ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑝) · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ 𝑁 ↦ (𝑟𝑋(𝑝‘𝑟))))))))
154	149, 20, 21, 9, 150, 151, 73, 58	mdetleib2 22445	. . . 4 ⊢ ((𝑅 ∈ CRing ∧ 𝑍 ∈ 𝐵) → (𝐷‘𝑍) = (𝑅 Σ_g (𝑝 ∈ (Base‘(SymGrp‘𝑁)) ↦ ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑝) · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ 𝑁 ↦ (𝑟𝑍(𝑝‘𝑟))))))))
155	54, 30, 154	syl2anc 583	. . 3 ⊢ (𝜑 → (𝐷‘𝑍) = (𝑅 Σ_g (𝑝 ∈ (Base‘(SymGrp‘𝑁)) ↦ ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑝) · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ 𝑁 ↦ (𝑟𝑍(𝑝‘𝑟))))))))
156	155	oveq2d 7421	. 2 ⊢ (𝜑 → (𝑌 · (𝐷‘𝑍)) = (𝑌 · (𝑅 Σ_g (𝑝 ∈ (Base‘(SymGrp‘𝑁)) ↦ ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑝) · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ 𝑁 ↦ (𝑟𝑍(𝑝‘𝑟)))))))))
157	148, 153, 156	3eqtr4d 2776	1 ⊢ (𝜑 → (𝐷‘𝑋) = (𝑌 · (𝐷‘𝑍)))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ∧ wa 395 = wceq 1533 ∈ wcel 2098 Vcvv 3468 ∖ cdif 3940 ∪ cun 3941 ∩ cin 3942 ⊆ wss 3943 ∅c0 4317 {csn 4623 ⟨cop 4629 ↦ cmpt 5224 × cxp 5667 ↾ cres 5671 ∘ ccom 5673 ⟶wf 6533 –1-1-onto→wf1o 6536 ‘cfv 6537 (class class class)co 7405 ∘_f cof 7665 ↑_m cmap 8822 Fincfn 8941 Basecbs 17153 ._rcmulr 17207 0_gc0g 17394 Σ_g cgsu 17395 Mndcmnd 18667 MndHom cmhm 18711 SymGrpcsymg 19286 pmSgncpsgn 19409 CMndccmn 19700 mulGrpcmgp 20039 Ringcrg 20138 CRingccrg 20139 ℤRHomczrh 21386 Mat cmat 22262 maDet cmdat 22441

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1789 ax-4 1803 ax-5 1905 ax-6 1963 ax-7 2003 ax-8 2100 ax-9 2108 ax-10 2129 ax-11 2146 ax-12 2163 ax-ext 2697 ax-rep 5278 ax-sep 5292 ax-nul 5299 ax-pow 5356 ax-pr 5420 ax-un 7722 ax-cnex 11168 ax-resscn 11169 ax-1cn 11170 ax-icn 11171 ax-addcl 11172 ax-addrcl 11173 ax-mulcl 11174 ax-mulrcl 11175 ax-mulcom 11176 ax-addass 11177 ax-mulass 11178 ax-distr 11179 ax-i2m1 11180 ax-1ne0 11181 ax-1rid 11182 ax-rnegex 11183 ax-rrecex 11184 ax-cnre 11185 ax-pre-lttri 11186 ax-pre-lttrn 11187 ax-pre-ltadd 11188 ax-pre-mulgt0 11189 ax-addf 11191 ax-mulf 11192

This theorem depends on definitions: df-bi 206 df-an 396 df-or 845 df-3or 1085 df-3an 1086 df-xor 1505 df-tru 1536 df-fal 1546 df-ex 1774 df-nf 1778 df-sb 2060 df-mo 2528 df-eu 2557 df-clab 2704 df-cleq 2718 df-clel 2804 df-nfc 2879 df-ne 2935 df-nel 3041 df-ral 3056 df-rex 3065 df-rmo 3370 df-reu 3371 df-rab 3427 df-v 3470 df-sbc 3773 df-csb 3889 df-dif 3946 df-un 3948 df-in 3950 df-ss 3960 df-pss 3962 df-nul 4318 df-if 4524 df-pw 4599 df-sn 4624 df-pr 4626 df-tp 4628 df-op 4630 df-ot 4632 df-uni 4903 df-int 4944 df-iun 4992 df-iin 4993 df-br 5142 df-opab 5204 df-mpt 5225 df-tr 5259 df-id 5567 df-eprel 5573 df-po 5581 df-so 5582 df-fr 5624 df-se 5625 df-we 5626 df-xp 5675 df-rel 5676 df-cnv 5677 df-co 5678 df-dm 5679 df-rn 5680 df-res 5681 df-ima 5682 df-pred 6294 df-ord 6361 df-on 6362 df-lim 6363 df-suc 6364 df-iota 6489 df-fun 6539 df-fn 6540 df-f 6541 df-f1 6542 df-fo 6543 df-f1o 6544 df-fv 6545 df-isom 6546 df-riota 7361 df-ov 7408 df-oprab 7409 df-mpo 7410 df-of 7667 df-om 7853 df-1st 7974 df-2nd 7975 df-supp 8147 df-tpos 8212 df-frecs 8267 df-wrecs 8298 df-recs 8372 df-rdg 8411 df-1o 8467 df-2o 8468 df-er 8705 df-map 8824 df-pm 8825 df-ixp 8894 df-en 8942 df-dom 8943 df-sdom 8944 df-fin 8945 df-fsupp 9364 df-sup 9439 df-oi 9507 df-card 9936 df-pnf 11254 df-mnf 11255 df-xr 11256 df-ltxr 11257 df-le 11258 df-sub 11450 df-neg 11451 df-div 11876 df-nn 12217 df-2 12279 df-3 12280 df-4 12281 df-5 12282 df-6 12283 df-7 12284 df-8 12285 df-9 12286 df-n0 12477 df-xnn0 12549 df-z 12563 df-dec 12682 df-uz 12827 df-rp 12981 df-fz 13491 df-fzo 13634 df-seq 13973 df-exp 14033 df-hash 14296 df-word 14471 df-lsw 14519 df-concat 14527 df-s1 14552 df-substr 14597 df-pfx 14627 df-splice 14706 df-reverse 14715 df-s2 14805 df-struct 17089 df-sets 17106 df-slot 17124 df-ndx 17136 df-base 17154 df-ress 17183 df-plusg 17219 df-mulr 17220 df-starv 17221 df-sca 17222 df-vsca 17223 df-ip 17224 df-tset 17225 df-ple 17226 df-ds 17228 df-unif 17229 df-hom 17230 df-cco 17231 df-0g 17396 df-gsum 17397 df-prds 17402 df-pws 17404 df-mre 17539 df-mrc 17540 df-acs 17542 df-mgm 18573 df-sgrp 18652 df-mnd 18668 df-mhm 18713 df-submnd 18714 df-efmnd 18794 df-grp 18866 df-minusg 18867 df-mulg 18996 df-subg 19050 df-ghm 19139 df-gim 19184 df-cntz 19233 df-oppg 19262 df-symg 19287 df-pmtr 19362 df-psgn 19411 df-cmn 19702 df-abl 19703 df-mgp 20040 df-rng 20058 df-ur 20087 df-ring 20140 df-cring 20141 df-oppr 20236 df-dvdsr 20259 df-unit 20260 df-invr 20290 df-dvr 20303 df-rhm 20374 df-subrng 20446 df-subrg 20471 df-drng 20589 df-sra 21021 df-rgmod 21022 df-cnfld 21241 df-zring 21334 df-zrh 21390 df-dsmm 21627 df-frlm 21642 df-mat 22263 df-mdet 22442

This theorem is referenced by: mdetrsca2 22461 mdetuni0 22478 mdetmul 22480 smadiadetg 22530

W3C validator