madjusmdetlem4 - Mathbox for Thierry Arnoux

	Mathbox for Thierry Arnoux		< Previous Next > Nearby theorems
Mirrors > Home > MPE Home > Th. List > Mathboxes > madjusmdetlem4		Structured version Visualization version GIF version

Theorem madjusmdetlem4 33843

Description: Lemma for madjusmdet 33844. (Contributed by Thierry Arnoux, 22-Aug-2020.)

**Hypotheses**
Ref	Expression
madjusmdet.b	⊢ 𝐵 = (Base‘𝐴)
madjusmdet.a	⊢ 𝐴 = ((1...𝑁) Mat 𝑅)
madjusmdet.d	⊢ 𝐷 = ((1...𝑁) maDet 𝑅)
madjusmdet.k	⊢ 𝐾 = ((1...𝑁) maAdju 𝑅)
madjusmdet.t	⊢ · = (._r‘𝑅)
madjusmdet.z	⊢ 𝑍 = (ℤRHom‘𝑅)
madjusmdet.e	⊢ 𝐸 = ((1...(𝑁 − 1)) maDet 𝑅)
madjusmdet.n	⊢ (𝜑 → 𝑁 ∈ ℕ)
madjusmdet.r	⊢ (𝜑 → 𝑅 ∈ CRing)
madjusmdet.i	⊢ (𝜑 → 𝐼 ∈ (1...𝑁))
madjusmdet.j	⊢ (𝜑 → 𝐽 ∈ (1...𝑁))
madjusmdet.m	⊢ (𝜑 → 𝑀 ∈ 𝐵)
madjusmdetlem2.p	⊢ 𝑃 = (𝑖 ∈ (1...𝑁) ↦ if(𝑖 = 1, 𝐼, if(𝑖 ≤ 𝐼, (𝑖 − 1), 𝑖)))
madjusmdetlem2.s	⊢ 𝑆 = (𝑖 ∈ (1...𝑁) ↦ if(𝑖 = 1, 𝑁, if(𝑖 ≤ 𝑁, (𝑖 − 1), 𝑖)))
madjusmdetlem4.q	⊢ 𝑄 = (𝑗 ∈ (1...𝑁) ↦ if(𝑗 = 1, 𝐽, if(𝑗 ≤ 𝐽, (𝑗 − 1), 𝑗)))
madjusmdetlem4.t	⊢ 𝑇 = (𝑗 ∈ (1...𝑁) ↦ if(𝑗 = 1, 𝑁, if(𝑗 ≤ 𝑁, (𝑗 − 1), 𝑗)))

**Assertion**
Ref	Expression
madjusmdetlem4	⊢ (𝜑 → (𝐽(𝐾‘𝑀)𝐼) = ((𝑍‘(-1↑(𝐼 + 𝐽))) · (𝐸‘(𝐼(subMat1‘𝑀)𝐽))))

Distinct variable groups: 𝐵,𝑖,𝑗 𝑖,𝐼,𝑗 𝑖,𝐽,𝑗 𝑖,𝑀,𝑗 𝑖,𝑁,𝑗 𝑃,𝑖,𝑗 𝑄,𝑖,𝑗 𝑅,𝑖,𝑗 𝜑,𝑖,𝑗 𝑆,𝑖,𝑗 𝑇,𝑖,𝑗 Allowed substitution hints: 𝐴(𝑖,𝑗) 𝐷(𝑖,𝑗) · (𝑖,𝑗) 𝐸(𝑖,𝑗) 𝐾(𝑖,𝑗) 𝑍(𝑖,𝑗)

Proof of Theorem madjusmdetlem4 Dummy variables 𝑘 𝑙 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		madjusmdet.b	. . 3 ⊢ 𝐵 = (Base‘𝐴)
2		madjusmdet.a	. . 3 ⊢ 𝐴 = ((1...𝑁) Mat 𝑅)
3		madjusmdet.d	. . 3 ⊢ 𝐷 = ((1...𝑁) maDet 𝑅)
4		madjusmdet.k	. . 3 ⊢ 𝐾 = ((1...𝑁) maAdju 𝑅)
5		madjusmdet.t	. . 3 ⊢ · = (._r‘𝑅)
6		madjusmdet.z	. . 3 ⊢ 𝑍 = (ℤRHom‘𝑅)
7		madjusmdet.e	. . 3 ⊢ 𝐸 = ((1...(𝑁 − 1)) maDet 𝑅)
8		madjusmdet.n	. . 3 ⊢ (𝜑 → 𝑁 ∈ ℕ)
9		madjusmdet.r	. . 3 ⊢ (𝜑 → 𝑅 ∈ CRing)
10		madjusmdet.i	. . 3 ⊢ (𝜑 → 𝐼 ∈ (1...𝑁))
11		madjusmdet.j	. . 3 ⊢ (𝜑 → 𝐽 ∈ (1...𝑁))
12		madjusmdet.m	. . 3 ⊢ (𝜑 → 𝑀 ∈ 𝐵)
13		eqid 2731	. . 3 ⊢ (Base‘(SymGrp‘(1...𝑁))) = (Base‘(SymGrp‘(1...𝑁)))
14		eqid 2731	. . 3 ⊢ (pmSgn‘(1...𝑁)) = (pmSgn‘(1...𝑁))
15		eqid 2731	. . 3 ⊢ (𝐼(((1...𝑁) minMatR1 𝑅)‘𝑀)𝐽) = (𝐼(((1...𝑁) minMatR1 𝑅)‘𝑀)𝐽)
16		fveq2 6822	. . . . 5 ⊢ (𝑘 = 𝑖 → ((𝑃 ∘ ^◡𝑆)‘𝑘) = ((𝑃 ∘ ^◡𝑆)‘𝑖))
17	16	oveq1d 7361	. . . 4 ⊢ (𝑘 = 𝑖 → (((𝑃 ∘ ^◡𝑆)‘𝑘)(𝐼(((1...𝑁) minMatR1 𝑅)‘𝑀)𝐽)((𝑄 ∘ ^◡𝑇)‘𝑙)) = (((𝑃 ∘ ^◡𝑆)‘𝑖)(𝐼(((1...𝑁) minMatR1 𝑅)‘𝑀)𝐽)((𝑄 ∘ ^◡𝑇)‘𝑙)))
18		fveq2 6822	. . . . 5 ⊢ (𝑙 = 𝑗 → ((𝑄 ∘ ^◡𝑇)‘𝑙) = ((𝑄 ∘ ^◡𝑇)‘𝑗))
19	18	oveq2d 7362	. . . 4 ⊢ (𝑙 = 𝑗 → (((𝑃 ∘ ^◡𝑆)‘𝑖)(𝐼(((1...𝑁) minMatR1 𝑅)‘𝑀)𝐽)((𝑄 ∘ ^◡𝑇)‘𝑙)) = (((𝑃 ∘ ^◡𝑆)‘𝑖)(𝐼(((1...𝑁) minMatR1 𝑅)‘𝑀)𝐽)((𝑄 ∘ ^◡𝑇)‘𝑗)))
20	17, 19	cbvmpov 7441	. . 3 ⊢ (𝑘 ∈ (1...𝑁), 𝑙 ∈ (1...𝑁) ↦ (((𝑃 ∘ ^◡𝑆)‘𝑘)(𝐼(((1...𝑁) minMatR1 𝑅)‘𝑀)𝐽)((𝑄 ∘ ^◡𝑇)‘𝑙))) = (𝑖 ∈ (1...𝑁), 𝑗 ∈ (1...𝑁) ↦ (((𝑃 ∘ ^◡𝑆)‘𝑖)(𝐼(((1...𝑁) minMatR1 𝑅)‘𝑀)𝐽)((𝑄 ∘ ^◡𝑇)‘𝑗)))
21		eqid 2731	. . . . . 6 ⊢ (1...𝑁) = (1...𝑁)
22		madjusmdetlem2.p	. . . . . 6 ⊢ 𝑃 = (𝑖 ∈ (1...𝑁) ↦ if(𝑖 = 1, 𝐼, if(𝑖 ≤ 𝐼, (𝑖 − 1), 𝑖)))
23		eqid 2731	. . . . . 6 ⊢ (SymGrp‘(1...𝑁)) = (SymGrp‘(1...𝑁))
24	21, 22, 23, 13	fzto1st 33072	. . . . 5 ⊢ (𝐼 ∈ (1...𝑁) → 𝑃 ∈ (Base‘(SymGrp‘(1...𝑁))))
25	10, 24	syl 17	. . . 4 ⊢ (𝜑 → 𝑃 ∈ (Base‘(SymGrp‘(1...𝑁))))
26		nnuz 12775	. . . . . . . . 9 ⊢ ℕ = (ℤ_≥‘1)
27	8, 26	eleqtrdi 2841	. . . . . . . 8 ⊢ (𝜑 → 𝑁 ∈ (ℤ_≥‘1))
28		eluzfz2 13432	. . . . . . . 8 ⊢ (𝑁 ∈ (ℤ_≥‘1) → 𝑁 ∈ (1...𝑁))
29	27, 28	syl 17	. . . . . . 7 ⊢ (𝜑 → 𝑁 ∈ (1...𝑁))
30		madjusmdetlem2.s	. . . . . . . 8 ⊢ 𝑆 = (𝑖 ∈ (1...𝑁) ↦ if(𝑖 = 1, 𝑁, if(𝑖 ≤ 𝑁, (𝑖 − 1), 𝑖)))
31	21, 30, 23, 13	fzto1st 33072	. . . . . . 7 ⊢ (𝑁 ∈ (1...𝑁) → 𝑆 ∈ (Base‘(SymGrp‘(1...𝑁))))
32	29, 31	syl 17	. . . . . 6 ⊢ (𝜑 → 𝑆 ∈ (Base‘(SymGrp‘(1...𝑁))))
33		eqid 2731	. . . . . . 7 ⊢ (inv_g‘(SymGrp‘(1...𝑁))) = (inv_g‘(SymGrp‘(1...𝑁)))
34	23, 13, 33	symginv 19314	. . . . . 6 ⊢ (𝑆 ∈ (Base‘(SymGrp‘(1...𝑁))) → ((inv_g‘(SymGrp‘(1...𝑁)))‘𝑆) = ^◡𝑆)
35	32, 34	syl 17	. . . . 5 ⊢ (𝜑 → ((inv_g‘(SymGrp‘(1...𝑁)))‘𝑆) = ^◡𝑆)
36		fzfid 13880	. . . . . . 7 ⊢ (𝜑 → (1...𝑁) ∈ Fin)
37	23	symggrp 19312	. . . . . . 7 ⊢ ((1...𝑁) ∈ Fin → (SymGrp‘(1...𝑁)) ∈ Grp)
38	36, 37	syl 17	. . . . . 6 ⊢ (𝜑 → (SymGrp‘(1...𝑁)) ∈ Grp)
39	13, 33	grpinvcl 18900	. . . . . 6 ⊢ (((SymGrp‘(1...𝑁)) ∈ Grp ∧ 𝑆 ∈ (Base‘(SymGrp‘(1...𝑁)))) → ((inv_g‘(SymGrp‘(1...𝑁)))‘𝑆) ∈ (Base‘(SymGrp‘(1...𝑁))))
40	38, 32, 39	syl2anc 584	. . . . 5 ⊢ (𝜑 → ((inv_g‘(SymGrp‘(1...𝑁)))‘𝑆) ∈ (Base‘(SymGrp‘(1...𝑁))))
41	35, 40	eqeltrrd 2832	. . . 4 ⊢ (𝜑 → ^◡𝑆 ∈ (Base‘(SymGrp‘(1...𝑁))))
42		eqid 2731	. . . . . 6 ⊢ (+_g‘(SymGrp‘(1...𝑁))) = (+_g‘(SymGrp‘(1...𝑁)))
43	23, 13, 42	symgov 19296	. . . . 5 ⊢ ((𝑃 ∈ (Base‘(SymGrp‘(1...𝑁))) ∧ ^◡𝑆 ∈ (Base‘(SymGrp‘(1...𝑁)))) → (𝑃(+_g‘(SymGrp‘(1...𝑁)))^◡𝑆) = (𝑃 ∘ ^◡𝑆))
44	23, 13, 42	symgcl 19297	. . . . 5 ⊢ ((𝑃 ∈ (Base‘(SymGrp‘(1...𝑁))) ∧ ^◡𝑆 ∈ (Base‘(SymGrp‘(1...𝑁)))) → (𝑃(+_g‘(SymGrp‘(1...𝑁)))^◡𝑆) ∈ (Base‘(SymGrp‘(1...𝑁))))
45	43, 44	eqeltrrd 2832	. . . 4 ⊢ ((𝑃 ∈ (Base‘(SymGrp‘(1...𝑁))) ∧ ^◡𝑆 ∈ (Base‘(SymGrp‘(1...𝑁)))) → (𝑃 ∘ ^◡𝑆) ∈ (Base‘(SymGrp‘(1...𝑁))))
46	25, 41, 45	syl2anc 584	. . 3 ⊢ (𝜑 → (𝑃 ∘ ^◡𝑆) ∈ (Base‘(SymGrp‘(1...𝑁))))
47		madjusmdetlem4.q	. . . . . 6 ⊢ 𝑄 = (𝑗 ∈ (1...𝑁) ↦ if(𝑗 = 1, 𝐽, if(𝑗 ≤ 𝐽, (𝑗 − 1), 𝑗)))
48	21, 47, 23, 13	fzto1st 33072	. . . . 5 ⊢ (𝐽 ∈ (1...𝑁) → 𝑄 ∈ (Base‘(SymGrp‘(1...𝑁))))
49	11, 48	syl 17	. . . 4 ⊢ (𝜑 → 𝑄 ∈ (Base‘(SymGrp‘(1...𝑁))))
50		madjusmdetlem4.t	. . . . . . . 8 ⊢ 𝑇 = (𝑗 ∈ (1...𝑁) ↦ if(𝑗 = 1, 𝑁, if(𝑗 ≤ 𝑁, (𝑗 − 1), 𝑗)))
51	21, 50, 23, 13	fzto1st 33072	. . . . . . 7 ⊢ (𝑁 ∈ (1...𝑁) → 𝑇 ∈ (Base‘(SymGrp‘(1...𝑁))))
52	29, 51	syl 17	. . . . . 6 ⊢ (𝜑 → 𝑇 ∈ (Base‘(SymGrp‘(1...𝑁))))
53	23, 13, 33	symginv 19314	. . . . . 6 ⊢ (𝑇 ∈ (Base‘(SymGrp‘(1...𝑁))) → ((inv_g‘(SymGrp‘(1...𝑁)))‘𝑇) = ^◡𝑇)
54	52, 53	syl 17	. . . . 5 ⊢ (𝜑 → ((inv_g‘(SymGrp‘(1...𝑁)))‘𝑇) = ^◡𝑇)
55	13, 33	grpinvcl 18900	. . . . . 6 ⊢ (((SymGrp‘(1...𝑁)) ∈ Grp ∧ 𝑇 ∈ (Base‘(SymGrp‘(1...𝑁)))) → ((inv_g‘(SymGrp‘(1...𝑁)))‘𝑇) ∈ (Base‘(SymGrp‘(1...𝑁))))
56	38, 52, 55	syl2anc 584	. . . . 5 ⊢ (𝜑 → ((inv_g‘(SymGrp‘(1...𝑁)))‘𝑇) ∈ (Base‘(SymGrp‘(1...𝑁))))
57	54, 56	eqeltrrd 2832	. . . 4 ⊢ (𝜑 → ^◡𝑇 ∈ (Base‘(SymGrp‘(1...𝑁))))
58	23, 13, 42	symgov 19296	. . . . 5 ⊢ ((𝑄 ∈ (Base‘(SymGrp‘(1...𝑁))) ∧ ^◡𝑇 ∈ (Base‘(SymGrp‘(1...𝑁)))) → (𝑄(+_g‘(SymGrp‘(1...𝑁)))^◡𝑇) = (𝑄 ∘ ^◡𝑇))
59	23, 13, 42	symgcl 19297	. . . . 5 ⊢ ((𝑄 ∈ (Base‘(SymGrp‘(1...𝑁))) ∧ ^◡𝑇 ∈ (Base‘(SymGrp‘(1...𝑁)))) → (𝑄(+_g‘(SymGrp‘(1...𝑁)))^◡𝑇) ∈ (Base‘(SymGrp‘(1...𝑁))))
60	58, 59	eqeltrrd 2832	. . . 4 ⊢ ((𝑄 ∈ (Base‘(SymGrp‘(1...𝑁))) ∧ ^◡𝑇 ∈ (Base‘(SymGrp‘(1...𝑁)))) → (𝑄 ∘ ^◡𝑇) ∈ (Base‘(SymGrp‘(1...𝑁))))
61	49, 57, 60	syl2anc 584	. . 3 ⊢ (𝜑 → (𝑄 ∘ ^◡𝑇) ∈ (Base‘(SymGrp‘(1...𝑁))))
62	23, 13	symgbasf1o 19287	. . . . . . 7 ⊢ (𝑆 ∈ (Base‘(SymGrp‘(1...𝑁))) → 𝑆:(1...𝑁)–1-1-onto→(1...𝑁))
63	32, 62	syl 17	. . . . . 6 ⊢ (𝜑 → 𝑆:(1...𝑁)–1-1-onto→(1...𝑁))
64		f1of1 6762	. . . . . 6 ⊢ (𝑆:(1...𝑁)–1-1-onto→(1...𝑁) → 𝑆:(1...𝑁)–1-1→(1...𝑁))
65		df-f1 6486	. . . . . . 7 ⊢ (𝑆:(1...𝑁)–1-1→(1...𝑁) ↔ (𝑆:(1...𝑁)⟶(1...𝑁) ∧ Fun ^◡𝑆))
66	65	simprbi 496	. . . . . 6 ⊢ (𝑆:(1...𝑁)–1-1→(1...𝑁) → Fun ^◡𝑆)
67	63, 64, 66	3syl 18	. . . . 5 ⊢ (𝜑 → Fun ^◡𝑆)
68		f1ocnv 6775	. . . . . . 7 ⊢ (𝑆:(1...𝑁)–1-1-onto→(1...𝑁) → ^◡𝑆:(1...𝑁)–1-1-onto→(1...𝑁))
69		f1odm 6767	. . . . . . 7 ⊢ (^◡𝑆:(1...𝑁)–1-1-onto→(1...𝑁) → dom ^◡𝑆 = (1...𝑁))
70	63, 68, 69	3syl 18	. . . . . 6 ⊢ (𝜑 → dom ^◡𝑆 = (1...𝑁))
71	29, 70	eleqtrrd 2834	. . . . 5 ⊢ (𝜑 → 𝑁 ∈ dom ^◡𝑆)
72		fvco 6920	. . . . 5 ⊢ ((Fun ^◡𝑆 ∧ 𝑁 ∈ dom ^◡𝑆) → ((𝑃 ∘ ^◡𝑆)‘𝑁) = (𝑃‘(^◡𝑆‘𝑁)))
73	67, 71, 72	syl2anc 584	. . . 4 ⊢ (𝜑 → ((𝑃 ∘ ^◡𝑆)‘𝑁) = (𝑃‘(^◡𝑆‘𝑁)))
74	21, 30, 23, 13	fzto1stinvn 33073	. . . . . 6 ⊢ (𝑁 ∈ (1...𝑁) → (^◡𝑆‘𝑁) = 1)
75	29, 74	syl 17	. . . . 5 ⊢ (𝜑 → (^◡𝑆‘𝑁) = 1)
76	75	fveq2d 6826	. . . 4 ⊢ (𝜑 → (𝑃‘(^◡𝑆‘𝑁)) = (𝑃‘1))
77	21, 22	fzto1stfv1 33070	. . . . 5 ⊢ (𝐼 ∈ (1...𝑁) → (𝑃‘1) = 𝐼)
78	10, 77	syl 17	. . . 4 ⊢ (𝜑 → (𝑃‘1) = 𝐼)
79	73, 76, 78	3eqtrd 2770	. . 3 ⊢ (𝜑 → ((𝑃 ∘ ^◡𝑆)‘𝑁) = 𝐼)
80	23, 13	symgbasf1o 19287	. . . . . . 7 ⊢ (𝑇 ∈ (Base‘(SymGrp‘(1...𝑁))) → 𝑇:(1...𝑁)–1-1-onto→(1...𝑁))
81	52, 80	syl 17	. . . . . 6 ⊢ (𝜑 → 𝑇:(1...𝑁)–1-1-onto→(1...𝑁))
82		f1of1 6762	. . . . . 6 ⊢ (𝑇:(1...𝑁)–1-1-onto→(1...𝑁) → 𝑇:(1...𝑁)–1-1→(1...𝑁))
83		df-f1 6486	. . . . . . 7 ⊢ (𝑇:(1...𝑁)–1-1→(1...𝑁) ↔ (𝑇:(1...𝑁)⟶(1...𝑁) ∧ Fun ^◡𝑇))
84	83	simprbi 496	. . . . . 6 ⊢ (𝑇:(1...𝑁)–1-1→(1...𝑁) → Fun ^◡𝑇)
85	81, 82, 84	3syl 18	. . . . 5 ⊢ (𝜑 → Fun ^◡𝑇)
86		f1ocnv 6775	. . . . . . 7 ⊢ (𝑇:(1...𝑁)–1-1-onto→(1...𝑁) → ^◡𝑇:(1...𝑁)–1-1-onto→(1...𝑁))
87		f1odm 6767	. . . . . . 7 ⊢ (^◡𝑇:(1...𝑁)–1-1-onto→(1...𝑁) → dom ^◡𝑇 = (1...𝑁))
88	81, 86, 87	3syl 18	. . . . . 6 ⊢ (𝜑 → dom ^◡𝑇 = (1...𝑁))
89	29, 88	eleqtrrd 2834	. . . . 5 ⊢ (𝜑 → 𝑁 ∈ dom ^◡𝑇)
90		fvco 6920	. . . . 5 ⊢ ((Fun ^◡𝑇 ∧ 𝑁 ∈ dom ^◡𝑇) → ((𝑄 ∘ ^◡𝑇)‘𝑁) = (𝑄‘(^◡𝑇‘𝑁)))
91	85, 89, 90	syl2anc 584	. . . 4 ⊢ (𝜑 → ((𝑄 ∘ ^◡𝑇)‘𝑁) = (𝑄‘(^◡𝑇‘𝑁)))
92	21, 50, 23, 13	fzto1stinvn 33073	. . . . . 6 ⊢ (𝑁 ∈ (1...𝑁) → (^◡𝑇‘𝑁) = 1)
93	29, 92	syl 17	. . . . 5 ⊢ (𝜑 → (^◡𝑇‘𝑁) = 1)
94	93	fveq2d 6826	. . . 4 ⊢ (𝜑 → (𝑄‘(^◡𝑇‘𝑁)) = (𝑄‘1))
95	21, 47	fzto1stfv1 33070	. . . . 5 ⊢ (𝐽 ∈ (1...𝑁) → (𝑄‘1) = 𝐽)
96	11, 95	syl 17	. . . 4 ⊢ (𝜑 → (𝑄‘1) = 𝐽)
97	91, 94, 96	3eqtrd 2770	. . 3 ⊢ (𝜑 → ((𝑄 ∘ ^◡𝑇)‘𝑁) = 𝐽)
98		crngring 20163	. . . . . 6 ⊢ (𝑅 ∈ CRing → 𝑅 ∈ Ring)
99	9, 98	syl 17	. . . . 5 ⊢ (𝜑 → 𝑅 ∈ Ring)
100	2, 1	minmar1cl 22566	. . . . 5 ⊢ (((𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) ∧ (𝐼 ∈ (1...𝑁) ∧ 𝐽 ∈ (1...𝑁))) → (𝐼(((1...𝑁) minMatR1 𝑅)‘𝑀)𝐽) ∈ 𝐵)
101	99, 12, 10, 11, 100	syl22anc 838	. . . 4 ⊢ (𝜑 → (𝐼(((1...𝑁) minMatR1 𝑅)‘𝑀)𝐽) ∈ 𝐵)
102	1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 22, 30, 47, 50, 20, 101	madjusmdetlem3 33842	. . 3 ⊢ (𝜑 → (𝐼(subMat1‘(𝐼(((1...𝑁) minMatR1 𝑅)‘𝑀)𝐽))𝐽) = (𝑁(subMat1‘(𝑘 ∈ (1...𝑁), 𝑙 ∈ (1...𝑁) ↦ (((𝑃 ∘ ^◡𝑆)‘𝑘)(𝐼(((1...𝑁) minMatR1 𝑅)‘𝑀)𝐽)((𝑄 ∘ ^◡𝑇)‘𝑙))))𝑁))
103	1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 20, 46, 61, 79, 97, 102	madjusmdetlem1 33840	. 2 ⊢ (𝜑 → (𝐽(𝐾‘𝑀)𝐼) = ((𝑍‘(((pmSgn‘(1...𝑁))‘(𝑃 ∘ ^◡𝑆)) · ((pmSgn‘(1...𝑁))‘(𝑄 ∘ ^◡𝑇)))) · (𝐸‘(𝐼(subMat1‘𝑀)𝐽))))
104	23, 14, 13	psgnco 21520	. . . . . . . 8 ⊢ (((1...𝑁) ∈ Fin ∧ 𝑃 ∈ (Base‘(SymGrp‘(1...𝑁))) ∧ ^◡𝑆 ∈ (Base‘(SymGrp‘(1...𝑁)))) → ((pmSgn‘(1...𝑁))‘(𝑃 ∘ ^◡𝑆)) = (((pmSgn‘(1...𝑁))‘𝑃) · ((pmSgn‘(1...𝑁))‘^◡𝑆)))
105	36, 25, 41, 104	syl3anc 1373	. . . . . . 7 ⊢ (𝜑 → ((pmSgn‘(1...𝑁))‘(𝑃 ∘ ^◡𝑆)) = (((pmSgn‘(1...𝑁))‘𝑃) · ((pmSgn‘(1...𝑁))‘^◡𝑆)))
106	21, 22, 23, 13, 14	psgnfzto1st 33074	. . . . . . . . 9 ⊢ (𝐼 ∈ (1...𝑁) → ((pmSgn‘(1...𝑁))‘𝑃) = (-1↑(𝐼 + 1)))
107	10, 106	syl 17	. . . . . . . 8 ⊢ (𝜑 → ((pmSgn‘(1...𝑁))‘𝑃) = (-1↑(𝐼 + 1)))
108	23, 14, 13	psgninv 21519	. . . . . . . . . 10 ⊢ (((1...𝑁) ∈ Fin ∧ 𝑆 ∈ (Base‘(SymGrp‘(1...𝑁)))) → ((pmSgn‘(1...𝑁))‘^◡𝑆) = ((pmSgn‘(1...𝑁))‘𝑆))
109	36, 32, 108	syl2anc 584	. . . . . . . . 9 ⊢ (𝜑 → ((pmSgn‘(1...𝑁))‘^◡𝑆) = ((pmSgn‘(1...𝑁))‘𝑆))
110	21, 30, 23, 13, 14	psgnfzto1st 33074	. . . . . . . . . 10 ⊢ (𝑁 ∈ (1...𝑁) → ((pmSgn‘(1...𝑁))‘𝑆) = (-1↑(𝑁 + 1)))
111	29, 110	syl 17	. . . . . . . . 9 ⊢ (𝜑 → ((pmSgn‘(1...𝑁))‘𝑆) = (-1↑(𝑁 + 1)))
112	109, 111	eqtrd 2766	. . . . . . . 8 ⊢ (𝜑 → ((pmSgn‘(1...𝑁))‘^◡𝑆) = (-1↑(𝑁 + 1)))
113	107, 112	oveq12d 7364	. . . . . . 7 ⊢ (𝜑 → (((pmSgn‘(1...𝑁))‘𝑃) · ((pmSgn‘(1...𝑁))‘^◡𝑆)) = ((-1↑(𝐼 + 1)) · (-1↑(𝑁 + 1))))
114	105, 113	eqtrd 2766	. . . . . 6 ⊢ (𝜑 → ((pmSgn‘(1...𝑁))‘(𝑃 ∘ ^◡𝑆)) = ((-1↑(𝐼 + 1)) · (-1↑(𝑁 + 1))))
115	23, 14, 13	psgnco 21520	. . . . . . . 8 ⊢ (((1...𝑁) ∈ Fin ∧ 𝑄 ∈ (Base‘(SymGrp‘(1...𝑁))) ∧ ^◡𝑇 ∈ (Base‘(SymGrp‘(1...𝑁)))) → ((pmSgn‘(1...𝑁))‘(𝑄 ∘ ^◡𝑇)) = (((pmSgn‘(1...𝑁))‘𝑄) · ((pmSgn‘(1...𝑁))‘^◡𝑇)))
116	36, 49, 57, 115	syl3anc 1373	. . . . . . 7 ⊢ (𝜑 → ((pmSgn‘(1...𝑁))‘(𝑄 ∘ ^◡𝑇)) = (((pmSgn‘(1...𝑁))‘𝑄) · ((pmSgn‘(1...𝑁))‘^◡𝑇)))
117	21, 47, 23, 13, 14	psgnfzto1st 33074	. . . . . . . . 9 ⊢ (𝐽 ∈ (1...𝑁) → ((pmSgn‘(1...𝑁))‘𝑄) = (-1↑(𝐽 + 1)))
118	11, 117	syl 17	. . . . . . . 8 ⊢ (𝜑 → ((pmSgn‘(1...𝑁))‘𝑄) = (-1↑(𝐽 + 1)))
119	23, 14, 13	psgninv 21519	. . . . . . . . . 10 ⊢ (((1...𝑁) ∈ Fin ∧ 𝑇 ∈ (Base‘(SymGrp‘(1...𝑁)))) → ((pmSgn‘(1...𝑁))‘^◡𝑇) = ((pmSgn‘(1...𝑁))‘𝑇))
120	36, 52, 119	syl2anc 584	. . . . . . . . 9 ⊢ (𝜑 → ((pmSgn‘(1...𝑁))‘^◡𝑇) = ((pmSgn‘(1...𝑁))‘𝑇))
121	21, 50, 23, 13, 14	psgnfzto1st 33074	. . . . . . . . . 10 ⊢ (𝑁 ∈ (1...𝑁) → ((pmSgn‘(1...𝑁))‘𝑇) = (-1↑(𝑁 + 1)))
122	29, 121	syl 17	. . . . . . . . 9 ⊢ (𝜑 → ((pmSgn‘(1...𝑁))‘𝑇) = (-1↑(𝑁 + 1)))
123	120, 122	eqtrd 2766	. . . . . . . 8 ⊢ (𝜑 → ((pmSgn‘(1...𝑁))‘^◡𝑇) = (-1↑(𝑁 + 1)))
124	118, 123	oveq12d 7364	. . . . . . 7 ⊢ (𝜑 → (((pmSgn‘(1...𝑁))‘𝑄) · ((pmSgn‘(1...𝑁))‘^◡𝑇)) = ((-1↑(𝐽 + 1)) · (-1↑(𝑁 + 1))))
125	116, 124	eqtrd 2766	. . . . . 6 ⊢ (𝜑 → ((pmSgn‘(1...𝑁))‘(𝑄 ∘ ^◡𝑇)) = ((-1↑(𝐽 + 1)) · (-1↑(𝑁 + 1))))
126	114, 125	oveq12d 7364	. . . . 5 ⊢ (𝜑 → (((pmSgn‘(1...𝑁))‘(𝑃 ∘ ^◡𝑆)) · ((pmSgn‘(1...𝑁))‘(𝑄 ∘ ^◡𝑇))) = (((-1↑(𝐼 + 1)) · (-1↑(𝑁 + 1))) · ((-1↑(𝐽 + 1)) · (-1↑(𝑁 + 1)))))
127		1cnd 11107	. . . . . . . . 9 ⊢ (𝜑 → 1 ∈ ℂ)
128	127	negcld 11459	. . . . . . . 8 ⊢ (𝜑 → -1 ∈ ℂ)
129		fz1ssnn 13455	. . . . . . . . . . 11 ⊢ (1...𝑁) ⊆ ℕ
130	129, 10	sselid 3927	. . . . . . . . . 10 ⊢ (𝜑 → 𝐼 ∈ ℕ)
131	130	nnnn0d 12442	. . . . . . . . 9 ⊢ (𝜑 → 𝐼 ∈ ℕ₀)
132		1nn0 12397	. . . . . . . . . 10 ⊢ 1 ∈ ℕ₀
133	132	a1i 11	. . . . . . . . 9 ⊢ (𝜑 → 1 ∈ ℕ₀)
134	131, 133	nn0addcld 12446	. . . . . . . 8 ⊢ (𝜑 → (𝐼 + 1) ∈ ℕ₀)
135	128, 134	expcld 14053	. . . . . . 7 ⊢ (𝜑 → (-1↑(𝐼 + 1)) ∈ ℂ)
136	8	nnnn0d 12442	. . . . . . . . 9 ⊢ (𝜑 → 𝑁 ∈ ℕ₀)
137	136, 133	nn0addcld 12446	. . . . . . . 8 ⊢ (𝜑 → (𝑁 + 1) ∈ ℕ₀)
138	128, 137	expcld 14053	. . . . . . 7 ⊢ (𝜑 → (-1↑(𝑁 + 1)) ∈ ℂ)
139	129, 11	sselid 3927	. . . . . . . . . 10 ⊢ (𝜑 → 𝐽 ∈ ℕ)
140	139	nnnn0d 12442	. . . . . . . . 9 ⊢ (𝜑 → 𝐽 ∈ ℕ₀)
141	140, 133	nn0addcld 12446	. . . . . . . 8 ⊢ (𝜑 → (𝐽 + 1) ∈ ℕ₀)
142	128, 141	expcld 14053	. . . . . . 7 ⊢ (𝜑 → (-1↑(𝐽 + 1)) ∈ ℂ)
143	135, 138, 142, 138	mul4d 11325	. . . . . 6 ⊢ (𝜑 → (((-1↑(𝐼 + 1)) · (-1↑(𝑁 + 1))) · ((-1↑(𝐽 + 1)) · (-1↑(𝑁 + 1)))) = (((-1↑(𝐼 + 1)) · (-1↑(𝐽 + 1))) · ((-1↑(𝑁 + 1)) · (-1↑(𝑁 + 1)))))
144	128, 141, 134	expaddd 14055	. . . . . . . 8 ⊢ (𝜑 → (-1↑((𝐼 + 1) + (𝐽 + 1))) = ((-1↑(𝐼 + 1)) · (-1↑(𝐽 + 1))))
145	130	nncnd 12141	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐼 ∈ ℂ)
146	139	nncnd 12141	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐽 ∈ ℂ)
147	145, 127, 146, 127	add4d 11342	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝐼 + 1) + (𝐽 + 1)) = ((𝐼 + 𝐽) + (1 + 1)))
148		1p1e2 12245	. . . . . . . . . . . 12 ⊢ (1 + 1) = 2
149	148	oveq2i 7357	. . . . . . . . . . 11 ⊢ ((𝐼 + 𝐽) + (1 + 1)) = ((𝐼 + 𝐽) + 2)
150	147, 149	eqtrdi 2782	. . . . . . . . . 10 ⊢ (𝜑 → ((𝐼 + 1) + (𝐽 + 1)) = ((𝐼 + 𝐽) + 2))
151	150	oveq2d 7362	. . . . . . . . 9 ⊢ (𝜑 → (-1↑((𝐼 + 1) + (𝐽 + 1))) = (-1↑((𝐼 + 𝐽) + 2)))
152		2nn0 12398	. . . . . . . . . . . 12 ⊢ 2 ∈ ℕ₀
153	152	a1i 11	. . . . . . . . . . 11 ⊢ (𝜑 → 2 ∈ ℕ₀)
154	131, 140	nn0addcld 12446	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐼 + 𝐽) ∈ ℕ₀)
155	128, 153, 154	expaddd 14055	. . . . . . . . . 10 ⊢ (𝜑 → (-1↑((𝐼 + 𝐽) + 2)) = ((-1↑(𝐼 + 𝐽)) · (-1↑2)))
156		neg1sqe1 14103	. . . . . . . . . . 11 ⊢ (-1↑2) = 1
157	156	oveq2i 7357	. . . . . . . . . 10 ⊢ ((-1↑(𝐼 + 𝐽)) · (-1↑2)) = ((-1↑(𝐼 + 𝐽)) · 1)
158	155, 157	eqtrdi 2782	. . . . . . . . 9 ⊢ (𝜑 → (-1↑((𝐼 + 𝐽) + 2)) = ((-1↑(𝐼 + 𝐽)) · 1))
159	128, 154	expcld 14053	. . . . . . . . . 10 ⊢ (𝜑 → (-1↑(𝐼 + 𝐽)) ∈ ℂ)
160	159	mulridd 11129	. . . . . . . . 9 ⊢ (𝜑 → ((-1↑(𝐼 + 𝐽)) · 1) = (-1↑(𝐼 + 𝐽)))
161	151, 158, 160	3eqtrd 2770	. . . . . . . 8 ⊢ (𝜑 → (-1↑((𝐼 + 1) + (𝐽 + 1))) = (-1↑(𝐼 + 𝐽)))
162	144, 161	eqtr3d 2768	. . . . . . 7 ⊢ (𝜑 → ((-1↑(𝐼 + 1)) · (-1↑(𝐽 + 1))) = (-1↑(𝐼 + 𝐽)))
163	137	nn0zd 12494	. . . . . . . 8 ⊢ (𝜑 → (𝑁 + 1) ∈ ℤ)
164		m1expcl2 13992	. . . . . . . 8 ⊢ ((𝑁 + 1) ∈ ℤ → (-1↑(𝑁 + 1)) ∈ {-1, 1})
165		1neg1t1neg1 32721	. . . . . . . 8 ⊢ ((-1↑(𝑁 + 1)) ∈ {-1, 1} → ((-1↑(𝑁 + 1)) · (-1↑(𝑁 + 1))) = 1)
166	163, 164, 165	3syl 18	. . . . . . 7 ⊢ (𝜑 → ((-1↑(𝑁 + 1)) · (-1↑(𝑁 + 1))) = 1)
167	162, 166	oveq12d 7364	. . . . . 6 ⊢ (𝜑 → (((-1↑(𝐼 + 1)) · (-1↑(𝐽 + 1))) · ((-1↑(𝑁 + 1)) · (-1↑(𝑁 + 1)))) = ((-1↑(𝐼 + 𝐽)) · 1))
168	143, 167, 160	3eqtrd 2770	. . . . 5 ⊢ (𝜑 → (((-1↑(𝐼 + 1)) · (-1↑(𝑁 + 1))) · ((-1↑(𝐽 + 1)) · (-1↑(𝑁 + 1)))) = (-1↑(𝐼 + 𝐽)))
169	126, 168	eqtrd 2766	. . . 4 ⊢ (𝜑 → (((pmSgn‘(1...𝑁))‘(𝑃 ∘ ^◡𝑆)) · ((pmSgn‘(1...𝑁))‘(𝑄 ∘ ^◡𝑇))) = (-1↑(𝐼 + 𝐽)))
170	169	fveq2d 6826	. . 3 ⊢ (𝜑 → (𝑍‘(((pmSgn‘(1...𝑁))‘(𝑃 ∘ ^◡𝑆)) · ((pmSgn‘(1...𝑁))‘(𝑄 ∘ ^◡𝑇)))) = (𝑍‘(-1↑(𝐼 + 𝐽))))
171	170	oveq1d 7361	. 2 ⊢ (𝜑 → ((𝑍‘(((pmSgn‘(1...𝑁))‘(𝑃 ∘ ^◡𝑆)) · ((pmSgn‘(1...𝑁))‘(𝑄 ∘ ^◡𝑇)))) · (𝐸‘(𝐼(subMat1‘𝑀)𝐽))) = ((𝑍‘(-1↑(𝐼 + 𝐽))) · (𝐸‘(𝐼(subMat1‘𝑀)𝐽))))
172	103, 171	eqtrd 2766	1 ⊢ (𝜑 → (𝐽(𝐾‘𝑀)𝐼) = ((𝑍‘(-1↑(𝐼 + 𝐽))) · (𝐸‘(𝐼(subMat1‘𝑀)𝐽))))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ∧ wa 395 = wceq 1541 ∈ wcel 2111 ifcif 4472 {cpr 4575 class class class wbr 5089 ↦ cmpt 5170 ^◡ccnv 5613 dom cdm 5614 ∘ ccom 5618 Fun wfun 6475 ⟶wf 6477 –1-1→wf1 6478 –1-1-onto→wf1o 6480 ‘cfv 6481 (class class class)co 7346 ∈ cmpo 7348 Fincfn 8869 1c1 11007 + caddc 11009 · cmul 11011 ≤ cle 11147 − cmin 11344 -cneg 11345 ℕcn 12125 2c2 12180 ℕ₀cn0 12381 ℤcz 12468 ℤ_≥cuz 12732 ...cfz 13407 ↑cexp 13968 Basecbs 17120 +_gcplusg 17161 ._rcmulr 17162 Grpcgrp 18846 inv_gcminusg 18847 SymGrpcsymg 19281 pmSgncpsgn 19401 Ringcrg 20151 CRingccrg 20152 ℤRHomczrh 21436 Mat cmat 22322 maDet cmdat 22499 maAdju cmadu 22547 minMatR1 cminmar1 22548 subMat1csmat 33806

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1796 ax-4 1810 ax-5 1911 ax-6 1968 ax-7 2009 ax-8 2113 ax-9 2121 ax-10 2144 ax-11 2160 ax-12 2180 ax-ext 2703 ax-rep 5215 ax-sep 5232 ax-nul 5242 ax-pow 5301 ax-pr 5368 ax-un 7668 ax-cnex 11062 ax-resscn 11063 ax-1cn 11064 ax-icn 11065 ax-addcl 11066 ax-addrcl 11067 ax-mulcl 11068 ax-mulrcl 11069 ax-mulcom 11070 ax-addass 11071 ax-mulass 11072 ax-distr 11073 ax-i2m1 11074 ax-1ne0 11075 ax-1rid 11076 ax-rnegex 11077 ax-rrecex 11078 ax-cnre 11079 ax-pre-lttri 11080 ax-pre-lttrn 11081 ax-pre-ltadd 11082 ax-pre-mulgt0 11083 ax-addf 11085 ax-mulf 11086

This theorem depends on definitions: df-bi 207 df-an 396 df-or 848 df-3or 1087 df-3an 1088 df-xor 1513 df-tru 1544 df-fal 1554 df-ex 1781 df-nf 1785 df-sb 2068 df-mo 2535 df-eu 2564 df-clab 2710 df-cleq 2723 df-clel 2806 df-nfc 2881 df-ne 2929 df-nel 3033 df-ral 3048 df-rex 3057 df-rmo 3346 df-reu 3347 df-rab 3396 df-v 3438 df-sbc 3737 df-csb 3846 df-dif 3900 df-un 3902 df-in 3904 df-ss 3914 df-pss 3917 df-nul 4281 df-if 4473 df-pw 4549 df-sn 4574 df-pr 4576 df-tp 4578 df-op 4580 df-ot 4582 df-uni 4857 df-int 4896 df-iun 4941 df-iin 4942 df-br 5090 df-opab 5152 df-mpt 5171 df-tr 5197 df-id 5509 df-eprel 5514 df-po 5522 df-so 5523 df-fr 5567 df-se 5568 df-we 5569 df-xp 5620 df-rel 5621 df-cnv 5622 df-co 5623 df-dm 5624 df-rn 5625 df-res 5626 df-ima 5627 df-pred 6248 df-ord 6309 df-on 6310 df-lim 6311 df-suc 6312 df-iota 6437 df-fun 6483 df-fn 6484 df-f 6485 df-f1 6486 df-fo 6487 df-f1o 6488 df-fv 6489 df-isom 6490 df-riota 7303 df-ov 7349 df-oprab 7350 df-mpo 7351 df-of 7610 df-om 7797 df-1st 7921 df-2nd 7922 df-supp 8091 df-tpos 8156 df-frecs 8211 df-wrecs 8242 df-recs 8291 df-rdg 8329 df-1o 8385 df-2o 8386 df-er 8622 df-map 8752 df-pm 8753 df-ixp 8822 df-en 8870 df-dom 8871 df-sdom 8872 df-fin 8873 df-fsupp 9246 df-sup 9326 df-oi 9396 df-card 9832 df-pnf 11148 df-mnf 11149 df-xr 11150 df-ltxr 11151 df-le 11152 df-sub 11346 df-neg 11347 df-div 11775 df-nn 12126 df-2 12188 df-3 12189 df-4 12190 df-5 12191 df-6 12192 df-7 12193 df-8 12194 df-9 12195 df-n0 12382 df-xnn0 12455 df-z 12469 df-dec 12589 df-uz 12733 df-rp 12891 df-fz 13408 df-fzo 13555 df-seq 13909 df-exp 13969 df-hash 14238 df-word 14421 df-lsw 14470 df-concat 14478 df-s1 14504 df-substr 14549 df-pfx 14579 df-splice 14657 df-reverse 14666 df-s2 14755 df-struct 17058 df-sets 17075 df-slot 17093 df-ndx 17105 df-base 17121 df-ress 17142 df-plusg 17174 df-mulr 17175 df-starv 17176 df-sca 17177 df-vsca 17178 df-ip 17179 df-tset 17180 df-ple 17181 df-ds 17183 df-unif 17184 df-hom 17185 df-cco 17186 df-0g 17345 df-gsum 17346 df-prds 17351 df-pws 17353 df-mre 17488 df-mrc 17489 df-acs 17491 df-mgm 18548 df-sgrp 18627 df-mnd 18643 df-mhm 18691 df-submnd 18692 df-efmnd 18777 df-grp 18849 df-minusg 18850 df-mulg 18981 df-subg 19036 df-ghm 19125 df-gim 19171 df-cntz 19229 df-oppg 19258 df-symg 19282 df-pmtr 19354 df-psgn 19403 df-cmn 19694 df-abl 19695 df-mgp 20059 df-rng 20071 df-ur 20100 df-ring 20153 df-cring 20154 df-oppr 20255 df-dvdsr 20275 df-unit 20276 df-invr 20306 df-dvr 20319 df-rhm 20390 df-subrng 20461 df-subrg 20485 df-drng 20646 df-sra 21107 df-rgmod 21108 df-cnfld 21292 df-zring 21384 df-zrh 21440 df-dsmm 21669 df-frlm 21684 df-mat 22323 df-marrep 22473 df-subma 22492 df-mdet 22500 df-madu 22549 df-minmar1 22550 df-smat 33807

This theorem is referenced by: madjusmdet 33844

W3C validator