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 22665

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 7415	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝐼(𝑋 ↾ ({𝐼} × 𝑁))(𝑝‘𝐼)) = (𝐼((({𝐼} × 𝑁) × {𝑌}) ∘_f · (𝑍 ↾ ({𝐼} × 𝑁)))(𝑝‘𝐼)))
3	2	adantr 484	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → (𝐼(𝑋 ↾ ({𝐼} × 𝑁))(𝑝‘𝐼)) = (𝐼((({𝐼} × 𝑁) × {𝑌}) ∘_f · (𝑍 ↾ ({𝐼} × 𝑁)))(𝑝‘𝐼)))
4		mdetrsca.i	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝐼 ∈ 𝑁)
5	4	adantr 484	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → 𝐼 ∈ 𝑁)
6		snidg 4621	. . . . . . . . . . . . . 14 ⊢ (𝐼 ∈ 𝑁 → 𝐼 ∈ {𝐼})
7	5, 6	syl 17	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → 𝐼 ∈ {𝐼})
8		eqid 2764	. . . . . . . . . . . . . . . . 17 ⊢ (SymGrp‘𝑁) = (SymGrp‘𝑁)
9		eqid 2764	. . . . . . . . . . . . . . . . 17 ⊢ (Base‘(SymGrp‘𝑁)) = (Base‘(SymGrp‘𝑁))
10	8, 9	symgbasf1o 19417	. . . . . . . . . . . . . . . 16 ⊢ (𝑝 ∈ (Base‘(SymGrp‘𝑁)) → 𝑝:𝑁–1-1-onto→𝑁)
11	10	adantl 485	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → 𝑝:𝑁–1-1-onto→𝑁)
12		f1of 6808	. . . . . . . . . . . . . . 15 ⊢ (𝑝:𝑁–1-1-onto→𝑁 → 𝑝:𝑁⟶𝑁)
13	11, 12	syl 17	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → 𝑝:𝑁⟶𝑁)
14	13, 5	ffvelcdmd 7068	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → (𝑝‘𝐼) ∈ 𝑁)
15		ovres 7564	. . . . . . . . . . . . 13 ⊢ ((𝐼 ∈ {𝐼} ∧ (𝑝‘𝐼) ∈ 𝑁) → (𝐼(𝑋 ↾ ({𝐼} × 𝑁))(𝑝‘𝐼)) = (𝐼𝑋(𝑝‘𝐼)))
16	7, 14, 15	syl2anc 593	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → (𝐼(𝑋 ↾ ({𝐼} × 𝑁))(𝑝‘𝐼)) = (𝐼𝑋(𝑝‘𝐼)))
17	7, 14	opelxpd 5688	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → ⟨𝐼, (𝑝‘𝐼)⟩ ∈ ({𝐼} × 𝑁))
18		snfi 9026	. . . . . . . . . . . . . . . 16 ⊢ {𝐼} ∈ Fin
19		mdetrsca.x	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → 𝑋 ∈ 𝐵)
20		mdetrsca.a	. . . . . . . . . . . . . . . . . . . 20 ⊢ 𝐴 = (𝑁 Mat 𝑅)
21		mdetrsca.b	. . . . . . . . . . . . . . . . . . . 20 ⊢ 𝐵 = (Base‘𝐴)
22	20, 21	matrcl 22474	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑋 ∈ 𝐵 → (𝑁 ∈ Fin ∧ 𝑅 ∈ V))
23	19, 22	syl 17	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (𝑁 ∈ Fin ∧ 𝑅 ∈ V))
24	23	simpld 498	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 𝑁 ∈ Fin)
25	24	adantr 484	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → 𝑁 ∈ Fin)
26		xpfi 9266	. . . . . . . . . . . . . . . 16 ⊢ (({𝐼} ∈ Fin ∧ 𝑁 ∈ Fin) → ({𝐼} × 𝑁) ∈ Fin)
27	18, 25, 26	sylancr 596	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → ({𝐼} × 𝑁) ∈ Fin)
28		mdetrsca.y	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝑌 ∈ 𝐾)
29	28	adantr 484	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → 𝑌 ∈ 𝐾)
30		mdetrsca.z	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → 𝑍 ∈ 𝐵)
31		mdetrsca.k	. . . . . . . . . . . . . . . . . . . 20 ⊢ 𝐾 = (Base‘𝑅)
32	20, 31, 21	matbas2i 22484	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑍 ∈ 𝐵 → 𝑍 ∈ (𝐾 ↑_m (𝑁 × 𝑁)))
33		elmapi 8832	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑍 ∈ (𝐾 ↑_m (𝑁 × 𝑁)) → 𝑍:(𝑁 × 𝑁)⟶𝐾)
34	30, 32, 33	3syl 18	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → 𝑍:(𝑁 × 𝑁)⟶𝐾)
35	34	adantr 484	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → 𝑍:(𝑁 × 𝑁)⟶𝐾)
36	35	ffnd 6694	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → 𝑍 Fn (𝑁 × 𝑁))
37	5	snssd 4747	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → {𝐼} ⊆ 𝑁)
38		xpss1 5668	. . . . . . . . . . . . . . . . 17 ⊢ ({𝐼} ⊆ 𝑁 → ({𝐼} × 𝑁) ⊆ (𝑁 × 𝑁))
39	37, 38	syl 17	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → ({𝐼} × 𝑁) ⊆ (𝑁 × 𝑁))
40	36, 39	fnssresd 6647	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → (𝑍 ↾ ({𝐼} × 𝑁)) Fn ({𝐼} × 𝑁))
41		eqidd 2765	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) ∧ ⟨𝐼, (𝑝‘𝐼)⟩ ∈ ({𝐼} × 𝑁)) → ((𝑍 ↾ ({𝐼} × 𝑁))‘⟨𝐼, (𝑝‘𝐼)⟩) = ((𝑍 ↾ ({𝐼} × 𝑁))‘⟨𝐼, (𝑝‘𝐼)⟩))
42	27, 29, 40, 41	ofc1 7690	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) ∧ ⟨𝐼, (𝑝‘𝐼)⟩ ∈ ({𝐼} × 𝑁)) → (((({𝐼} × 𝑁) × {𝑌}) ∘_f · (𝑍 ↾ ({𝐼} × 𝑁)))‘⟨𝐼, (𝑝‘𝐼)⟩) = (𝑌 · ((𝑍 ↾ ({𝐼} × 𝑁))‘⟨𝐼, (𝑝‘𝐼)⟩)))
43	17, 42	mpdan 697	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → (((({𝐼} × 𝑁) × {𝑌}) ∘_f · (𝑍 ↾ ({𝐼} × 𝑁)))‘⟨𝐼, (𝑝‘𝐼)⟩) = (𝑌 · ((𝑍 ↾ ({𝐼} × 𝑁))‘⟨𝐼, (𝑝‘𝐼)⟩)))
44		df-ov 7401	. . . . . . . . . . . . 13 ⊢ (𝐼((({𝐼} × 𝑁) × {𝑌}) ∘_f · (𝑍 ↾ ({𝐼} × 𝑁)))(𝑝‘𝐼)) = (((({𝐼} × 𝑁) × {𝑌}) ∘_f · (𝑍 ↾ ({𝐼} × 𝑁)))‘⟨𝐼, (𝑝‘𝐼)⟩)
45		df-ov 7401	. . . . . . . . . . . . . 14 ⊢ (𝐼(𝑍 ↾ ({𝐼} × 𝑁))(𝑝‘𝐼)) = ((𝑍 ↾ ({𝐼} × 𝑁))‘⟨𝐼, (𝑝‘𝐼)⟩)
46	45	oveq2i 7409	. . . . . . . . . . . . 13 ⊢ (𝑌 · (𝐼(𝑍 ↾ ({𝐼} × 𝑁))(𝑝‘𝐼))) = (𝑌 · ((𝑍 ↾ ({𝐼} × 𝑁))‘⟨𝐼, (𝑝‘𝐼)⟩))
47	43, 44, 46	3eqtr4g 2824	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → (𝐼((({𝐼} × 𝑁) × {𝑌}) ∘_f · (𝑍 ↾ ({𝐼} × 𝑁)))(𝑝‘𝐼)) = (𝑌 · (𝐼(𝑍 ↾ ({𝐼} × 𝑁))(𝑝‘𝐼))))
48	3, 16, 47	3eqtr3d 2807	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → (𝐼𝑋(𝑝‘𝐼)) = (𝑌 · (𝐼(𝑍 ↾ ({𝐼} × 𝑁))(𝑝‘𝐼))))
49		ovres 7564	. . . . . . . . . . . . 13 ⊢ ((𝐼 ∈ {𝐼} ∧ (𝑝‘𝐼) ∈ 𝑁) → (𝐼(𝑍 ↾ ({𝐼} × 𝑁))(𝑝‘𝐼)) = (𝐼𝑍(𝑝‘𝐼)))
50	7, 14, 49	syl2anc 593	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → (𝐼(𝑍 ↾ ({𝐼} × 𝑁))(𝑝‘𝐼)) = (𝐼𝑍(𝑝‘𝐼)))
51	50	oveq2d 7414	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → (𝑌 · (𝐼(𝑍 ↾ ({𝐼} × 𝑁))(𝑝‘𝐼))) = (𝑌 · (𝐼𝑍(𝑝‘𝐼))))
52	48, 51	eqtrd 2799	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → (𝐼𝑋(𝑝‘𝐼)) = (𝑌 · (𝐼𝑍(𝑝‘𝐼))))
53	52	oveq1d 7413	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → ((𝐼𝑋(𝑝‘𝐼)) · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ (𝑁 ∖ {𝐼}) ↦ (𝑟𝑍(𝑝‘𝑟))))) = ((𝑌 · (𝐼𝑍(𝑝‘𝐼))) · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ (𝑁 ∖ {𝐼}) ↦ (𝑟𝑍(𝑝‘𝑟))))))
54		mdetrsca.r	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑅 ∈ CRing)
55	54	crngringd 20298	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑅 ∈ Ring)
56	55	adantr 484	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → 𝑅 ∈ Ring)
57	35, 5, 14	fovcdmd 7570	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → (𝐼𝑍(𝑝‘𝐼)) ∈ 𝐾)
58		eqid 2764	. . . . . . . . . . . 12 ⊢ (mulGrp‘𝑅) = (mulGrp‘𝑅)
59	58, 31	mgpbas 20193	. . . . . . . . . . 11 ⊢ 𝐾 = (Base‘(mulGrp‘𝑅))
60	58	crngmgp 20293	. . . . . . . . . . . . 13 ⊢ (𝑅 ∈ CRing → (mulGrp‘𝑅) ∈ CMnd)
61	54, 60	syl 17	. . . . . . . . . . . 12 ⊢ (𝜑 → (mulGrp‘𝑅) ∈ CMnd)
62	61	adantr 484	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → (mulGrp‘𝑅) ∈ CMnd)
63		difssd 4092	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → (𝑁 ∖ {𝐼}) ⊆ 𝑁)
64	25, 63	ssfid 9215	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → (𝑁 ∖ {𝐼}) ∈ Fin)
65		eldifi 4086	. . . . . . . . . . . . 13 ⊢ (𝑟 ∈ (𝑁 ∖ {𝐼}) → 𝑟 ∈ 𝑁)
66	34	ad2antrr 736	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) ∧ 𝑟 ∈ 𝑁) → 𝑍:(𝑁 × 𝑁)⟶𝐾)
67		simpr 488	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) ∧ 𝑟 ∈ 𝑁) → 𝑟 ∈ 𝑁)
68	13	ffvelcdmda 7067	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) ∧ 𝑟 ∈ 𝑁) → (𝑝‘𝑟) ∈ 𝑁)
69	66, 67, 68	fovcdmd 7570	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) ∧ 𝑟 ∈ 𝑁) → (𝑟𝑍(𝑝‘𝑟)) ∈ 𝐾)
70	65, 69	sylan2 602	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) ∧ 𝑟 ∈ (𝑁 ∖ {𝐼})) → (𝑟𝑍(𝑝‘𝑟)) ∈ 𝐾)
71	70	ralrimiva 3156	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → ∀𝑟 ∈ (𝑁 ∖ {𝐼})(𝑟𝑍(𝑝‘𝑟)) ∈ 𝐾)
72	59, 62, 64, 71	gsummptcl 20009	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → ((mulGrp‘𝑅) Σ_g (𝑟 ∈ (𝑁 ∖ {𝐼}) ↦ (𝑟𝑍(𝑝‘𝑟)))) ∈ 𝐾)
73		mdetrsca.t	. . . . . . . . . . 11 ⊢ · = (._r‘𝑅)
74	31, 73	ringass 20305	. . . . . . . . . 10 ⊢ ((𝑅 ∈ Ring ∧ (𝑌 ∈ 𝐾 ∧ (𝐼𝑍(𝑝‘𝐼)) ∈ 𝐾 ∧ ((mulGrp‘𝑅) Σ_g (𝑟 ∈ (𝑁 ∖ {𝐼}) ↦ (𝑟𝑍(𝑝‘𝑟)))) ∈ 𝐾)) → ((𝑌 · (𝐼𝑍(𝑝‘𝐼))) · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ (𝑁 ∖ {𝐼}) ↦ (𝑟𝑍(𝑝‘𝑟))))) = (𝑌 · ((𝐼𝑍(𝑝‘𝐼)) · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ (𝑁 ∖ {𝐼}) ↦ (𝑟𝑍(𝑝‘𝑟)))))))
75	56, 29, 57, 72, 74	syl13anc 1393	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → ((𝑌 · (𝐼𝑍(𝑝‘𝐼))) · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ (𝑁 ∖ {𝐼}) ↦ (𝑟𝑍(𝑝‘𝑟))))) = (𝑌 · ((𝐼𝑍(𝑝‘𝐼)) · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ (𝑁 ∖ {𝐼}) ↦ (𝑟𝑍(𝑝‘𝑟)))))))
76	53, 75	eqtrd 2799	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → ((𝐼𝑋(𝑝‘𝐼)) · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ (𝑁 ∖ {𝐼}) ↦ (𝑟𝑍(𝑝‘𝑟))))) = (𝑌 · ((𝐼𝑍(𝑝‘𝐼)) · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ (𝑁 ∖ {𝐼}) ↦ (𝑟𝑍(𝑝‘𝑟)))))))
77	58, 73	mgpplusg 20192	. . . . . . . . . 10 ⊢ · = (+_g‘(mulGrp‘𝑅))
78	20, 31, 21	matbas2i 22484	. . . . . . . . . . . . 13 ⊢ (𝑋 ∈ 𝐵 → 𝑋 ∈ (𝐾 ↑_m (𝑁 × 𝑁)))
79		elmapi 8832	. . . . . . . . . . . . 13 ⊢ (𝑋 ∈ (𝐾 ↑_m (𝑁 × 𝑁)) → 𝑋:(𝑁 × 𝑁)⟶𝐾)
80	19, 78, 79	3syl 18	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑋:(𝑁 × 𝑁)⟶𝐾)
81	80	ad2antrr 736	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) ∧ 𝑟 ∈ 𝑁) → 𝑋:(𝑁 × 𝑁)⟶𝐾)
82	81, 67, 68	fovcdmd 7570	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) ∧ 𝑟 ∈ 𝑁) → (𝑟𝑋(𝑝‘𝑟)) ∈ 𝐾)
83		disjdif 4428	. . . . . . . . . . 11 ⊢ ({𝐼} ∩ (𝑁 ∖ {𝐼})) = ∅
84	83	a1i 11	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → ({𝐼} ∩ (𝑁 ∖ {𝐼})) = ∅)
85		undif 4438	. . . . . . . . . . . 12 ⊢ ({𝐼} ⊆ 𝑁 ↔ ({𝐼} ∪ (𝑁 ∖ {𝐼})) = 𝑁)
86	37, 85	sylib 220	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → ({𝐼} ∪ (𝑁 ∖ {𝐼})) = 𝑁)
87	86	eqcomd 2770	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → 𝑁 = ({𝐼} ∪ (𝑁 ∖ {𝐼})))
88	59, 77, 62, 25, 82, 84, 87	gsummptfidmsplit 19972	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → ((mulGrp‘𝑅) Σ_g (𝑟 ∈ 𝑁 ↦ (𝑟𝑋(𝑝‘𝑟)))) = (((mulGrp‘𝑅) Σ_g (𝑟 ∈ {𝐼} ↦ (𝑟𝑋(𝑝‘𝑟)))) · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ (𝑁 ∖ {𝐼}) ↦ (𝑟𝑋(𝑝‘𝑟))))))
89	62	cmnmndd 19846	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → (mulGrp‘𝑅) ∈ Mnd)
90	80	adantr 484	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → 𝑋:(𝑁 × 𝑁)⟶𝐾)
91	90, 5, 14	fovcdmd 7570	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → (𝐼𝑋(𝑝‘𝐼)) ∈ 𝐾)
92		id 22	. . . . . . . . . . . . 13 ⊢ (𝑟 = 𝐼 → 𝑟 = 𝐼)
93		fveq2 6869	. . . . . . . . . . . . 13 ⊢ (𝑟 = 𝐼 → (𝑝‘𝑟) = (𝑝‘𝐼))
94	92, 93	oveq12d 7416	. . . . . . . . . . . 12 ⊢ (𝑟 = 𝐼 → (𝑟𝑋(𝑝‘𝑟)) = (𝐼𝑋(𝑝‘𝐼)))
95	59, 94	gsumsn 19996	. . . . . . . . . . 11 ⊢ (((mulGrp‘𝑅) ∈ Mnd ∧ 𝐼 ∈ 𝑁 ∧ (𝐼𝑋(𝑝‘𝐼)) ∈ 𝐾) → ((mulGrp‘𝑅) Σ_g (𝑟 ∈ {𝐼} ↦ (𝑟𝑋(𝑝‘𝑟)))) = (𝐼𝑋(𝑝‘𝐼)))
96	89, 5, 91, 95	syl3anc 1392	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → ((mulGrp‘𝑅) Σ_g (𝑟 ∈ {𝐼} ↦ (𝑟𝑋(𝑝‘𝑟)))) = (𝐼𝑋(𝑝‘𝐼)))
97		mdetrsca.ne	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝑋 ↾ ((𝑁 ∖ {𝐼}) × 𝑁)) = (𝑍 ↾ ((𝑁 ∖ {𝐼}) × 𝑁)))
98	97	oveqd 7415	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝑟(𝑋 ↾ ((𝑁 ∖ {𝐼}) × 𝑁))(𝑝‘𝑟)) = (𝑟(𝑍 ↾ ((𝑁 ∖ {𝐼}) × 𝑁))(𝑝‘𝑟)))
99	98	ad2antrr 736	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) ∧ 𝑟 ∈ (𝑁 ∖ {𝐼})) → (𝑟(𝑋 ↾ ((𝑁 ∖ {𝐼}) × 𝑁))(𝑝‘𝑟)) = (𝑟(𝑍 ↾ ((𝑁 ∖ {𝐼}) × 𝑁))(𝑝‘𝑟)))
100		simpr 488	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) ∧ 𝑟 ∈ (𝑁 ∖ {𝐼})) → 𝑟 ∈ (𝑁 ∖ {𝐼}))
101	65, 68	sylan2 602	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) ∧ 𝑟 ∈ (𝑁 ∖ {𝐼})) → (𝑝‘𝑟) ∈ 𝑁)
102		ovres 7564	. . . . . . . . . . . . . 14 ⊢ ((𝑟 ∈ (𝑁 ∖ {𝐼}) ∧ (𝑝‘𝑟) ∈ 𝑁) → (𝑟(𝑋 ↾ ((𝑁 ∖ {𝐼}) × 𝑁))(𝑝‘𝑟)) = (𝑟𝑋(𝑝‘𝑟)))
103	100, 101, 102	syl2anc 593	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) ∧ 𝑟 ∈ (𝑁 ∖ {𝐼})) → (𝑟(𝑋 ↾ ((𝑁 ∖ {𝐼}) × 𝑁))(𝑝‘𝑟)) = (𝑟𝑋(𝑝‘𝑟)))
104		ovres 7564	. . . . . . . . . . . . . 14 ⊢ ((𝑟 ∈ (𝑁 ∖ {𝐼}) ∧ (𝑝‘𝑟) ∈ 𝑁) → (𝑟(𝑍 ↾ ((𝑁 ∖ {𝐼}) × 𝑁))(𝑝‘𝑟)) = (𝑟𝑍(𝑝‘𝑟)))
105	100, 101, 104	syl2anc 593	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) ∧ 𝑟 ∈ (𝑁 ∖ {𝐼})) → (𝑟(𝑍 ↾ ((𝑁 ∖ {𝐼}) × 𝑁))(𝑝‘𝑟)) = (𝑟𝑍(𝑝‘𝑟)))
106	99, 103, 105	3eqtr3d 2807	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) ∧ 𝑟 ∈ (𝑁 ∖ {𝐼})) → (𝑟𝑋(𝑝‘𝑟)) = (𝑟𝑍(𝑝‘𝑟)))
107	106	mpteq2dva 5195	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → (𝑟 ∈ (𝑁 ∖ {𝐼}) ↦ (𝑟𝑋(𝑝‘𝑟))) = (𝑟 ∈ (𝑁 ∖ {𝐼}) ↦ (𝑟𝑍(𝑝‘𝑟))))
108	107	oveq2d 7414	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → ((mulGrp‘𝑅) Σ_g (𝑟 ∈ (𝑁 ∖ {𝐼}) ↦ (𝑟𝑋(𝑝‘𝑟)))) = ((mulGrp‘𝑅) Σ_g (𝑟 ∈ (𝑁 ∖ {𝐼}) ↦ (𝑟𝑍(𝑝‘𝑟)))))
109	96, 108	oveq12d 7416	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → (((mulGrp‘𝑅) Σ_g (𝑟 ∈ {𝐼} ↦ (𝑟𝑋(𝑝‘𝑟)))) · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ (𝑁 ∖ {𝐼}) ↦ (𝑟𝑋(𝑝‘𝑟))))) = ((𝐼𝑋(𝑝‘𝐼)) · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ (𝑁 ∖ {𝐼}) ↦ (𝑟𝑍(𝑝‘𝑟))))))
110	88, 109	eqtrd 2799	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → ((mulGrp‘𝑅) Σ_g (𝑟 ∈ 𝑁 ↦ (𝑟𝑋(𝑝‘𝑟)))) = ((𝐼𝑋(𝑝‘𝐼)) · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ (𝑁 ∖ {𝐼}) ↦ (𝑟𝑍(𝑝‘𝑟))))))
111	59, 77, 62, 25, 69, 84, 87	gsummptfidmsplit 19972	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → ((mulGrp‘𝑅) Σ_g (𝑟 ∈ 𝑁 ↦ (𝑟𝑍(𝑝‘𝑟)))) = (((mulGrp‘𝑅) Σ_g (𝑟 ∈ {𝐼} ↦ (𝑟𝑍(𝑝‘𝑟)))) · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ (𝑁 ∖ {𝐼}) ↦ (𝑟𝑍(𝑝‘𝑟))))))
112	92, 93	oveq12d 7416	. . . . . . . . . . . . 13 ⊢ (𝑟 = 𝐼 → (𝑟𝑍(𝑝‘𝑟)) = (𝐼𝑍(𝑝‘𝐼)))
113	59, 112	gsumsn 19996	. . . . . . . . . . . 12 ⊢ (((mulGrp‘𝑅) ∈ Mnd ∧ 𝐼 ∈ 𝑁 ∧ (𝐼𝑍(𝑝‘𝐼)) ∈ 𝐾) → ((mulGrp‘𝑅) Σ_g (𝑟 ∈ {𝐼} ↦ (𝑟𝑍(𝑝‘𝑟)))) = (𝐼𝑍(𝑝‘𝐼)))
114	89, 5, 57, 113	syl3anc 1392	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → ((mulGrp‘𝑅) Σ_g (𝑟 ∈ {𝐼} ↦ (𝑟𝑍(𝑝‘𝑟)))) = (𝐼𝑍(𝑝‘𝐼)))
115	114	oveq1d 7413	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → (((mulGrp‘𝑅) Σ_g (𝑟 ∈ {𝐼} ↦ (𝑟𝑍(𝑝‘𝑟)))) · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ (𝑁 ∖ {𝐼}) ↦ (𝑟𝑍(𝑝‘𝑟))))) = ((𝐼𝑍(𝑝‘𝐼)) · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ (𝑁 ∖ {𝐼}) ↦ (𝑟𝑍(𝑝‘𝑟))))))
116	111, 115	eqtrd 2799	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → ((mulGrp‘𝑅) Σ_g (𝑟 ∈ 𝑁 ↦ (𝑟𝑍(𝑝‘𝑟)))) = ((𝐼𝑍(𝑝‘𝐼)) · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ (𝑁 ∖ {𝐼}) ↦ (𝑟𝑍(𝑝‘𝑟))))))
117	116	oveq2d 7414	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → (𝑌 · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ 𝑁 ↦ (𝑟𝑍(𝑝‘𝑟))))) = (𝑌 · ((𝐼𝑍(𝑝‘𝐼)) · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ (𝑁 ∖ {𝐼}) ↦ (𝑟𝑍(𝑝‘𝑟)))))))
118	76, 110, 117	3eqtr4d 2809	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → ((mulGrp‘𝑅) Σ_g (𝑟 ∈ 𝑁 ↦ (𝑟𝑋(𝑝‘𝑟)))) = (𝑌 · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ 𝑁 ↦ (𝑟𝑍(𝑝‘𝑟))))))
119	118	oveq2d 7414	. . . . . 6 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑝) · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ 𝑁 ↦ (𝑟𝑋(𝑝‘𝑟))))) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑝) · (𝑌 · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ 𝑁 ↦ (𝑟𝑍(𝑝‘𝑟)))))))
120	54	adantr 484	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → 𝑅 ∈ CRing)
121		zrhpsgnmhm 21638	. . . . . . . . . . . 12 ⊢ ((𝑅 ∈ Ring ∧ 𝑁 ∈ Fin) → ((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁)) ∈ ((SymGrp‘𝑁) MndHom (mulGrp‘𝑅)))
122	55, 24, 121	syl2anc 593	. . . . . . . . . . 11 ⊢ (𝜑 → ((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁)) ∈ ((SymGrp‘𝑁) MndHom (mulGrp‘𝑅)))
123	9, 59	mhmf 18825	. . . . . . . . . . 11 ⊢ (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁)) ∈ ((SymGrp‘𝑁) MndHom (mulGrp‘𝑅)) → ((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁)):(Base‘(SymGrp‘𝑁))⟶𝐾)
124	122, 123	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → ((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁)):(Base‘(SymGrp‘𝑁))⟶𝐾)
125	124	ffvelcdmda 7067	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑝) ∈ 𝐾)
126	31, 73	crngcom 20303	. . . . . . . . 9 ⊢ ((𝑅 ∈ CRing ∧ (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑝) ∈ 𝐾 ∧ 𝑌 ∈ 𝐾) → ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑝) · 𝑌) = (𝑌 · (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑝)))
127	120, 125, 29, 126	syl3anc 1392	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑝) · 𝑌) = (𝑌 · (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑝)))
128	127	oveq1d 7413	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → (((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑝) · 𝑌) · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ 𝑁 ↦ (𝑟𝑍(𝑝‘𝑟))))) = ((𝑌 · (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑝)) · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ 𝑁 ↦ (𝑟𝑍(𝑝‘𝑟))))))
129	69	ralrimiva 3156	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → ∀𝑟 ∈ 𝑁 (𝑟𝑍(𝑝‘𝑟)) ∈ 𝐾)
130	59, 62, 25, 129	gsummptcl 20009	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → ((mulGrp‘𝑅) Σ_g (𝑟 ∈ 𝑁 ↦ (𝑟𝑍(𝑝‘𝑟)))) ∈ 𝐾)
131	31, 73	ringass 20305	. . . . . . . 8 ⊢ ((𝑅 ∈ Ring ∧ ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑝) ∈ 𝐾 ∧ 𝑌 ∈ 𝐾 ∧ ((mulGrp‘𝑅) Σ_g (𝑟 ∈ 𝑁 ↦ (𝑟𝑍(𝑝‘𝑟)))) ∈ 𝐾)) → (((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑝) · 𝑌) · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ 𝑁 ↦ (𝑟𝑍(𝑝‘𝑟))))) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑝) · (𝑌 · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ 𝑁 ↦ (𝑟𝑍(𝑝‘𝑟)))))))
132	56, 125, 29, 130, 131	syl13anc 1393	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → (((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑝) · 𝑌) · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ 𝑁 ↦ (𝑟𝑍(𝑝‘𝑟))))) = ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑝) · (𝑌 · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ 𝑁 ↦ (𝑟𝑍(𝑝‘𝑟)))))))
133	31, 73	ringass 20305	. . . . . . . 8 ⊢ ((𝑅 ∈ Ring ∧ (𝑌 ∈ 𝐾 ∧ (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑝) ∈ 𝐾 ∧ ((mulGrp‘𝑅) Σ_g (𝑟 ∈ 𝑁 ↦ (𝑟𝑍(𝑝‘𝑟)))) ∈ 𝐾)) → ((𝑌 · (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑝)) · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ 𝑁 ↦ (𝑟𝑍(𝑝‘𝑟))))) = (𝑌 · ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑝) · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ 𝑁 ↦ (𝑟𝑍(𝑝‘𝑟)))))))
134	56, 29, 125, 130, 133	syl13anc 1393	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → ((𝑌 · (((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑝)) · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ 𝑁 ↦ (𝑟𝑍(𝑝‘𝑟))))) = (𝑌 · ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑝) · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ 𝑁 ↦ (𝑟𝑍(𝑝‘𝑟)))))))
135	128, 132, 134	3eqtr3d 2807	. . . . . 6 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑝) · (𝑌 · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ 𝑁 ↦ (𝑟𝑍(𝑝‘𝑟)))))) = (𝑌 · ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑝) · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ 𝑁 ↦ (𝑟𝑍(𝑝‘𝑟)))))))
136	119, 135	eqtrd 2799	. . . . 5 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑝) · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ 𝑁 ↦ (𝑟𝑋(𝑝‘𝑟))))) = (𝑌 · ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑝) · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ 𝑁 ↦ (𝑟𝑍(𝑝‘𝑟)))))))
137	136	mpteq2dva 5195	. . . 4 ⊢ (𝜑 → (𝑝 ∈ (Base‘(SymGrp‘𝑁)) ↦ ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑝) · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ 𝑁 ↦ (𝑟𝑋(𝑝‘𝑟)))))) = (𝑝 ∈ (Base‘(SymGrp‘𝑁)) ↦ (𝑌 · ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑝) · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ 𝑁 ↦ (𝑟𝑍(𝑝‘𝑟))))))))
138	137	oveq2d 7414	. . 3 ⊢ (𝜑 → (𝑅 Σ_g (𝑝 ∈ (Base‘(SymGrp‘𝑁)) ↦ ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑝) · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ 𝑁 ↦ (𝑟𝑋(𝑝‘𝑟))))))) = (𝑅 Σ_g (𝑝 ∈ (Base‘(SymGrp‘𝑁)) ↦ (𝑌 · ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑝) · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ 𝑁 ↦ (𝑟𝑍(𝑝‘𝑟)))))))))
139		eqid 2764	. . . 4 ⊢ (0_g‘𝑅) = (0_g‘𝑅)
140	8, 9	symgbasfi 19421	. . . . 5 ⊢ (𝑁 ∈ Fin → (Base‘(SymGrp‘𝑁)) ∈ Fin)
141	24, 140	syl 17	. . . 4 ⊢ (𝜑 → (Base‘(SymGrp‘𝑁)) ∈ Fin)
142	31, 73, 56, 125, 130	ringcld 20312	. . . 4 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑝) · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ 𝑁 ↦ (𝑟𝑍(𝑝‘𝑟))))) ∈ 𝐾)
143		eqid 2764	. . . . 5 ⊢ (𝑝 ∈ (Base‘(SymGrp‘𝑁)) ↦ ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑝) · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ 𝑁 ↦ (𝑟𝑍(𝑝‘𝑟)))))) = (𝑝 ∈ (Base‘(SymGrp‘𝑁)) ↦ ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑝) · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ 𝑁 ↦ (𝑟𝑍(𝑝‘𝑟))))))
144		ovexd 7433	. . . . 5 ⊢ ((𝜑 ∧ 𝑝 ∈ (Base‘(SymGrp‘𝑁))) → ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑝) · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ 𝑁 ↦ (𝑟𝑍(𝑝‘𝑟))))) ∈ V)
145		fvexd 6884	. . . . 5 ⊢ (𝜑 → (0_g‘𝑅) ∈ V)
146	143, 141, 144, 145	fsuppmptdm 9324	. . . 4 ⊢ (𝜑 → (𝑝 ∈ (Base‘(SymGrp‘𝑁)) ↦ ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑝) · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ 𝑁 ↦ (𝑟𝑍(𝑝‘𝑟)))))) finSupp (0_g‘𝑅))
147	31, 139, 73, 55, 141, 28, 142, 146	gsummulc2 20367	. . 3 ⊢ (𝜑 → (𝑅 Σ_g (𝑝 ∈ (Base‘(SymGrp‘𝑁)) ↦ (𝑌 · ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑝) · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ 𝑁 ↦ (𝑟𝑍(𝑝‘𝑟)))))))) = (𝑌 · (𝑅 Σ_g (𝑝 ∈ (Base‘(SymGrp‘𝑁)) ↦ ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑝) · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ 𝑁 ↦ (𝑟𝑍(𝑝‘𝑟)))))))))
148	138, 147	eqtrd 2799	. 2 ⊢ (𝜑 → (𝑅 Σ_g (𝑝 ∈ (Base‘(SymGrp‘𝑁)) ↦ ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑝) · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ 𝑁 ↦ (𝑟𝑋(𝑝‘𝑟))))))) = (𝑌 · (𝑅 Σ_g (𝑝 ∈ (Base‘(SymGrp‘𝑁)) ↦ ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑝) · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ 𝑁 ↦ (𝑟𝑍(𝑝‘𝑟)))))))))
149		mdetrsca.d	. . . 4 ⊢ 𝐷 = (𝑁 maDet 𝑅)
150		eqid 2764	. . . 4 ⊢ (ℤRHom‘𝑅) = (ℤRHom‘𝑅)
151		eqid 2764	. . . 4 ⊢ (pmSgn‘𝑁) = (pmSgn‘𝑁)
152	149, 20, 21, 9, 150, 151, 73, 58	mdetleib2 22650	. . 3 ⊢ ((𝑅 ∈ CRing ∧ 𝑋 ∈ 𝐵) → (𝐷‘𝑋) = (𝑅 Σ_g (𝑝 ∈ (Base‘(SymGrp‘𝑁)) ↦ ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑝) · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ 𝑁 ↦ (𝑟𝑋(𝑝‘𝑟))))))))
153	54, 19, 152	syl2anc 593	. 2 ⊢ (𝜑 → (𝐷‘𝑋) = (𝑅 Σ_g (𝑝 ∈ (Base‘(SymGrp‘𝑁)) ↦ ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑝) · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ 𝑁 ↦ (𝑟𝑋(𝑝‘𝑟))))))))
154	149, 20, 21, 9, 150, 151, 73, 58	mdetleib2 22650	. . . 4 ⊢ ((𝑅 ∈ CRing ∧ 𝑍 ∈ 𝐵) → (𝐷‘𝑍) = (𝑅 Σ_g (𝑝 ∈ (Base‘(SymGrp‘𝑁)) ↦ ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑝) · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ 𝑁 ↦ (𝑟𝑍(𝑝‘𝑟))))))))
155	54, 30, 154	syl2anc 593	. . 3 ⊢ (𝜑 → (𝐷‘𝑍) = (𝑅 Σ_g (𝑝 ∈ (Base‘(SymGrp‘𝑁)) ↦ ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑝) · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ 𝑁 ↦ (𝑟𝑍(𝑝‘𝑟))))))))
156	155	oveq2d 7414	. 2 ⊢ (𝜑 → (𝑌 · (𝐷‘𝑍)) = (𝑌 · (𝑅 Σ_g (𝑝 ∈ (Base‘(SymGrp‘𝑁)) ↦ ((((ℤRHom‘𝑅) ∘ (pmSgn‘𝑁))‘𝑝) · ((mulGrp‘𝑅) Σ_g (𝑟 ∈ 𝑁 ↦ (𝑟𝑍(𝑝‘𝑟)))))))))
157	148, 153, 156	3eqtr4d 2809	1 ⊢ (𝜑 → (𝐷‘𝑋) = (𝑌 · (𝐷‘𝑍)))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ∧ wa 399 = wceq 1562 ∈ wcel 2144 Vcvv 3456 ∖ cdif 3903 ∪ cun 3904 ∩ cin 3905 ⊆ wss 3906 ∅c0 4287 {csn 4584 ⟨cop 4590 ↦ cmpt 5183 × cxp 5647 ↾ cres 5651 ∘ ccom 5653 ⟶wf 6519 –1-1-onto→wf1o 6522 ‘cfv 6523 (class class class)co 7398 ∘_f cof 7660 ↑_m cmap 8810 Fincfn 8929 Basecbs 17247 ._rcmulr 17289 0_gc0g 17470 Σ_g cgsu 17471 Mndcmnd 18770 MndHom cmhm 18817 SymGrpcsymg 19411 pmSgncpsgn 19531 CMndccmn 19822 mulGrpcmgp 20188 Ringcrg 20285 CRingccrg 20286 ℤRHomczrh 21553 Mat cmat 22469 maDet cmdat 22646

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1817 ax-4 1831 ax-5 1932 ax-6 1989 ax-7 2030 ax-8 2146 ax-9 2154 ax-10 2177 ax-11 2193 ax-12 2214 ax-ext 2736 ax-rep 5229 ax-sep 5248 ax-nul 5258 ax-pow 5324 ax-pr 5392 ax-un 7720 ax-cnex 11131 ax-resscn 11132 ax-1cn 11133 ax-icn 11134 ax-addcl 11135 ax-addrcl 11136 ax-mulcl 11137 ax-mulrcl 11138 ax-mulcom 11139 ax-addass 11140 ax-mulass 11141 ax-distr 11142 ax-i2m1 11143 ax-1ne0 11144 ax-1rid 11145 ax-rnegex 11146 ax-rrecex 11147 ax-cnre 11148 ax-pre-lttri 11149 ax-pre-lttrn 11150 ax-pre-ltadd 11151 ax-pre-mulgt0 11152 ax-addf 11154 ax-mulf 11155

This theorem depends on definitions: df-bi 209 df-an 400 df-or 859 df-3or 1100 df-3an 1101 df-xor 1534 df-tru 1565 df-fal 1575 df-ex 1802 df-nf 1806 df-sb 2093 df-mo 2568 df-eu 2598 df-clab 2743 df-cleq 2756 df-clel 2839 df-nfc 2913 df-ne 2960 df-nel 3064 df-ral 3079 df-rex 3089 df-rmo 3369 df-reu 3370 df-rab 3417 df-v 3458 df-sbc 3747 df-csb 3855 df-dif 3909 df-un 3911 df-in 3913 df-ss 3923 df-pss 3926 df-nul 4288 df-if 4483 df-pw 4559 df-sn 4585 df-pr 4587 df-tp 4589 df-op 4591 df-ot 4593 df-uni 4868 df-int 4908 df-iun 4953 df-iin 4954 df-br 5103 df-opab 5165 df-mpt 5184 df-tr 5210 df-id 5544 df-eprel 5549 df-po 5557 df-so 5558 df-fr 5602 df-se 5603 df-we 5604 df-xp 5655 df-rel 5656 df-cnv 5657 df-co 5658 df-dm 5659 df-rn 5660 df-res 5661 df-ima 5662 df-pred 6290 df-ord 6351 df-on 6352 df-lim 6353 df-suc 6354 df-iota 6479 df-fun 6525 df-fn 6526 df-f 6527 df-f1 6528 df-fo 6529 df-f1o 6530 df-fv 6531 df-isom 6532 df-riota 7355 df-ov 7401 df-oprab 7402 df-mpo 7403 df-of 7662 df-om 7849 df-1st 7972 df-2nd 7973 df-supp 8143 df-tpos 8208 df-frecs 8264 df-wrecs 8295 df-recs 8344 df-rdg 8383 df-1o 8439 df-2o 8440 df-er 8680 df-map 8812 df-pm 8813 df-ixp 8882 df-en 8930 df-dom 8931 df-sdom 8932 df-fin 8933 df-fsupp 9310 df-sup 9390 df-oi 9460 df-card 9899 df-pnf 11220 df-mnf 11221 df-xr 11222 df-ltxr 11223 df-le 11224 df-sub 11418 df-neg 11419 df-div 11847 df-nn 12213 df-2 12282 df-3 12283 df-4 12284 df-5 12285 df-6 12286 df-7 12287 df-8 12288 df-9 12289 df-n0 12484 df-xnn0 12557 df-z 12571 df-dec 12691 df-uz 12842 df-rp 12996 df-fz 13515 df-fzo 13662 df-seq 14017 df-exp 14077 df-hash 14346 df-word 14529 df-lsw 14578 df-concat 14586 df-s1 14612 df-substr 14657 df-pfx 14687 df-splice 14765 df-reverse 14774 df-s2 14863 df-struct 17185 df-sets 17202 df-slot 17220 df-ndx 17232 df-base 17248 df-ress 17269 df-plusg 17301 df-mulr 17302 df-starv 17303 df-sca 17304 df-vsca 17305 df-ip 17306 df-tset 17307 df-ple 17308 df-ds 17310 df-unif 17311 df-hom 17312 df-cco 17313 df-0g 17472 df-gsum 17473 df-prds 17478 df-pws 17480 df-mre 17616 df-mrc 17617 df-acs 17619 df-mgm 18676 df-sgrp 18755 df-mnd 18771 df-mhm 18819 df-submnd 18820 df-efmnd 18905 df-grp 18980 df-minusg 18981 df-mulg 19112 df-subg 19167 df-ghm 19256 df-gim 19301 df-cntz 19359 df-oppg 19388 df-symg 19412 df-pmtr 19484 df-psgn 19533 df-cmn 19824 df-abl 19825 df-mgp 20189 df-rng 20201 df-ur 20234 df-ring 20287 df-cring 20288 df-oppr 20388 df-dvdsr 20408 df-unit 20409 df-invr 20439 df-dvr 20452 df-rhm 20523 df-subrng 20598 df-subrg 20622 df-drng 20783 df-sra 21242 df-rgmod 21243 df-cnfld 21427 df-zring 21501 df-zrh 21557 df-dsmm 21786 df-frlm 21801 df-mat 22470 df-mdet 22647

This theorem is referenced by: mdetrsca2 22666 mdetuni0 22683 mdetmul 22685 smadiadetg 22735

W3C validator