madjusmdetlem3 - Mathbox for Thierry Arnoux

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

Theorem madjusmdetlem3 34380

Description: Lemma for madjusmdet 34382. (Contributed by Thierry Arnoux, 27-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), 𝑗)))
madjusmdetlem3.w	⊢ 𝑊 = (𝑖 ∈ (1...𝑁), 𝑗 ∈ (1...𝑁) ↦ (((𝑃 ∘ ^◡𝑆)‘𝑖)𝑈((𝑄 ∘ ^◡𝑇)‘𝑗)))
madjusmdetlem3.u	⊢ (𝜑 → 𝑈 ∈ 𝐵)

**Assertion**
Ref	Expression
madjusmdetlem3	⊢ (𝜑 → (𝐼(subMat1‘𝑈)𝐽) = (𝑁(subMat1‘𝑊)𝑁))

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

**Proof of Theorem madjusmdetlem3**
Step	Hyp	Ref	Expression
1		madjusmdet.n	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑁 ∈ ℕ)
2		nnuz 12959	. . . . . . . . . . 11 ⊢ ℕ = (ℤ_≥‘1)
3	1, 2	eleqtrdi 2870	. . . . . . . . . 10 ⊢ (𝜑 → 𝑁 ∈ (ℤ_≥‘1))
4		fzdif2 33301	. . . . . . . . . 10 ⊢ (𝑁 ∈ (ℤ_≥‘1) → ((1...𝑁) ∖ {𝑁}) = (1...(𝑁 − 1)))
5	3, 4	syl 18	. . . . . . . . 9 ⊢ (𝜑 → ((1...𝑁) ∖ {𝑁}) = (1...(𝑁 − 1)))
6		difss 4083	. . . . . . . . 9 ⊢ ((1...𝑁) ∖ {𝑁}) ⊆ (1...𝑁)
7	5, 6	eqsstrrdi 3976	. . . . . . . 8 ⊢ (𝜑 → (1...(𝑁 − 1)) ⊆ (1...𝑁))
8	7	adantr 486	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → (1...(𝑁 − 1)) ⊆ (1...𝑁))
9		simprl 783	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → 𝑖 ∈ (1...(𝑁 − 1)))
10	8, 9	sseldd 3932	. . . . . 6 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → 𝑖 ∈ (1...𝑁))
11		simprr 785	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → 𝑗 ∈ (1...(𝑁 − 1)))
12	8, 11	sseldd 3932	. . . . . 6 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → 𝑗 ∈ (1...𝑁))
13		ovexd 7444	. . . . . 6 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → (((𝑃 ∘ ^◡𝑆)‘𝑖)𝑈((𝑄 ∘ ^◡𝑇)‘𝑗)) ∈ V)
14		madjusmdetlem3.w	. . . . . . 7 ⊢ 𝑊 = (𝑖 ∈ (1...𝑁), 𝑗 ∈ (1...𝑁) ↦ (((𝑃 ∘ ^◡𝑆)‘𝑖)𝑈((𝑄 ∘ ^◡𝑇)‘𝑗)))
15	14	ovmpt4g 7556	. . . . . 6 ⊢ ((𝑖 ∈ (1...𝑁) ∧ 𝑗 ∈ (1...𝑁) ∧ (((𝑃 ∘ ^◡𝑆)‘𝑖)𝑈((𝑄 ∘ ^◡𝑇)‘𝑗)) ∈ V) → (𝑖𝑊𝑗) = (((𝑃 ∘ ^◡𝑆)‘𝑖)𝑈((𝑄 ∘ ^◡𝑇)‘𝑗)))
16	10, 12, 13, 15	syl3anc 1398	. . . . 5 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → (𝑖𝑊𝑗) = (((𝑃 ∘ ^◡𝑆)‘𝑖)𝑈((𝑄 ∘ ^◡𝑇)‘𝑗)))
17	9, 11	ovresd 7576	. . . . 5 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → (𝑖(𝑊 ↾ ((1...(𝑁 − 1)) × (1...(𝑁 − 1))))𝑗) = (𝑖𝑊𝑗))
18		eqid 2760	. . . . . . 7 ⊢ (𝐼(subMat1‘𝑈)𝐽) = (𝐼(subMat1‘𝑈)𝐽)
19	1	adantr 486	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → 𝑁 ∈ ℕ)
20		madjusmdet.i	. . . . . . . 8 ⊢ (𝜑 → 𝐼 ∈ (1...𝑁))
21	20	adantr 486	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → 𝐼 ∈ (1...𝑁))
22		madjusmdet.j	. . . . . . . 8 ⊢ (𝜑 → 𝐽 ∈ (1...𝑁))
23	22	adantr 486	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → 𝐽 ∈ (1...𝑁))
24		madjusmdetlem3.u	. . . . . . . . 9 ⊢ (𝜑 → 𝑈 ∈ 𝐵)
25		madjusmdet.a	. . . . . . . . . 10 ⊢ 𝐴 = ((1...𝑁) Mat 𝑅)
26		eqid 2760	. . . . . . . . . 10 ⊢ (Base‘𝑅) = (Base‘𝑅)
27		madjusmdet.b	. . . . . . . . . 10 ⊢ 𝐵 = (Base‘𝐴)
28	25, 26, 27	matbas2i 22684	. . . . . . . . 9 ⊢ (𝑈 ∈ 𝐵 → 𝑈 ∈ ((Base‘𝑅) ↑_m ((1...𝑁) × (1...𝑁))))
29	24, 28	syl 18	. . . . . . . 8 ⊢ (𝜑 → 𝑈 ∈ ((Base‘𝑅) ↑_m ((1...𝑁) × (1...𝑁))))
30	29	adantr 486	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → 𝑈 ∈ ((Base‘𝑅) ↑_m ((1...𝑁) × (1...𝑁))))
31		fz1ssnn 13643	. . . . . . . 8 ⊢ (1...𝑁) ⊆ ℕ
32	31, 10	sselid 3929	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → 𝑖 ∈ ℕ)
33	31, 12	sselid 3929	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → 𝑗 ∈ ℕ)
34		eqidd 2761	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → if(𝑖 < 𝐼, 𝑖, (𝑖 + 1)) = if(𝑖 < 𝐼, 𝑖, (𝑖 + 1)))
35		eqidd 2761	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → if(𝑗 < 𝐽, 𝑗, (𝑗 + 1)) = if(𝑗 < 𝐽, 𝑗, (𝑗 + 1)))
36	18, 19, 19, 21, 23, 30, 32, 33, 34, 35	smatlem 34348	. . . . . 6 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → (𝑖(𝐼(subMat1‘𝑈)𝐽)𝑗) = (if(𝑖 < 𝐼, 𝑖, (𝑖 + 1))𝑈if(𝑗 < 𝐽, 𝑗, (𝑗 + 1))))
37		madjusmdet.d	. . . . . . . . 9 ⊢ 𝐷 = ((1...𝑁) maDet 𝑅)
38		madjusmdet.k	. . . . . . . . 9 ⊢ 𝐾 = ((1...𝑁) maAdju 𝑅)
39		madjusmdet.t	. . . . . . . . 9 ⊢ · = (._r‘𝑅)
40		madjusmdet.z	. . . . . . . . 9 ⊢ 𝑍 = (ℤRHom‘𝑅)
41		madjusmdet.e	. . . . . . . . 9 ⊢ 𝐸 = ((1...(𝑁 − 1)) maDet 𝑅)
42		madjusmdet.r	. . . . . . . . 9 ⊢ (𝜑 → 𝑅 ∈ CRing)
43		madjusmdet.m	. . . . . . . . 9 ⊢ (𝜑 → 𝑀 ∈ 𝐵)
44		madjusmdetlem2.p	. . . . . . . . 9 ⊢ 𝑃 = (𝑖 ∈ (1...𝑁) ↦ if(𝑖 = 1, 𝐼, if(𝑖 ≤ 𝐼, (𝑖 − 1), 𝑖)))
45		madjusmdetlem2.s	. . . . . . . . 9 ⊢ 𝑆 = (𝑖 ∈ (1...𝑁) ↦ if(𝑖 = 1, 𝑁, if(𝑖 ≤ 𝑁, (𝑖 − 1), 𝑖)))
46	27, 25, 37, 38, 39, 40, 41, 1, 42, 20, 20, 43, 44, 45	madjusmdetlem2 34379	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑖 ∈ (1...(𝑁 − 1))) → if(𝑖 < 𝐼, 𝑖, (𝑖 + 1)) = ((𝑃 ∘ ^◡𝑆)‘𝑖))
47	9, 46	syldan 603	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → if(𝑖 < 𝐼, 𝑖, (𝑖 + 1)) = ((𝑃 ∘ ^◡𝑆)‘𝑖))
48		madjusmdetlem4.q	. . . . . . . . 9 ⊢ 𝑄 = (𝑗 ∈ (1...𝑁) ↦ if(𝑗 = 1, 𝐽, if(𝑗 ≤ 𝐽, (𝑗 − 1), 𝑗)))
49		madjusmdetlem4.t	. . . . . . . . 9 ⊢ 𝑇 = (𝑗 ∈ (1...𝑁) ↦ if(𝑗 = 1, 𝑁, if(𝑗 ≤ 𝑁, (𝑗 − 1), 𝑗)))
50	27, 25, 37, 38, 39, 40, 41, 1, 42, 22, 22, 43, 48, 49	madjusmdetlem2 34379	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑗 ∈ (1...(𝑁 − 1))) → if(𝑗 < 𝐽, 𝑗, (𝑗 + 1)) = ((𝑄 ∘ ^◡𝑇)‘𝑗))
51	11, 50	syldan 603	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → if(𝑗 < 𝐽, 𝑗, (𝑗 + 1)) = ((𝑄 ∘ ^◡𝑇)‘𝑗))
52	47, 51	oveq12d 7427	. . . . . 6 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → (if(𝑖 < 𝐼, 𝑖, (𝑖 + 1))𝑈if(𝑗 < 𝐽, 𝑗, (𝑗 + 1))) = (((𝑃 ∘ ^◡𝑆)‘𝑖)𝑈((𝑄 ∘ ^◡𝑇)‘𝑗)))
53	36, 52	eqtrd 2795	. . . . 5 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → (𝑖(𝐼(subMat1‘𝑈)𝐽)𝑗) = (((𝑃 ∘ ^◡𝑆)‘𝑖)𝑈((𝑄 ∘ ^◡𝑇)‘𝑗)))
54	16, 17, 53	3eqtr4rd 2806	. . . 4 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → (𝑖(𝐼(subMat1‘𝑈)𝐽)𝑗) = (𝑖(𝑊 ↾ ((1...(𝑁 − 1)) × (1...(𝑁 − 1))))𝑗))
55	54	ralrimivva 3205	. . 3 ⊢ (𝜑 → ∀𝑖 ∈ (1...(𝑁 − 1))∀𝑗 ∈ (1...(𝑁 − 1))(𝑖(𝐼(subMat1‘𝑈)𝐽)𝑗) = (𝑖(𝑊 ↾ ((1...(𝑁 − 1)) × (1...(𝑁 − 1))))𝑗))
56		eqid 2760	. . . . 5 ⊢ (Base‘((1...(𝑁 − 1)) Mat 𝑅)) = (Base‘((1...(𝑁 − 1)) Mat 𝑅))
57	25, 27, 56, 18, 1, 20, 22, 24	smatcl 34353	. . . 4 ⊢ (𝜑 → (𝐼(subMat1‘𝑈)𝐽) ∈ (Base‘((1...(𝑁 − 1)) Mat 𝑅)))
58		fzfid 14070	. . . . . . . 8 ⊢ (𝜑 → (1...𝑁) ∈ Fin)
59		eqid 2760	. . . . . . . . . . . . . 14 ⊢ (1...𝑁) = (1...𝑁)
60		eqid 2760	. . . . . . . . . . . . . 14 ⊢ (SymGrp‘(1...𝑁)) = (SymGrp‘(1...𝑁))
61		eqid 2760	. . . . . . . . . . . . . 14 ⊢ (Base‘(SymGrp‘(1...𝑁))) = (Base‘(SymGrp‘(1...𝑁)))
62	59, 44, 60, 61	fzto1st 33583	. . . . . . . . . . . . 13 ⊢ (𝐼 ∈ (1...𝑁) → 𝑃 ∈ (Base‘(SymGrp‘(1...𝑁))))
63	20, 62	syl 18	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑃 ∈ (Base‘(SymGrp‘(1...𝑁))))
64		eluzfz2 13619	. . . . . . . . . . . . . . . 16 ⊢ (𝑁 ∈ (ℤ_≥‘1) → 𝑁 ∈ (1...𝑁))
65	3, 64	syl 18	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝑁 ∈ (1...𝑁))
66	59, 45, 60, 61	fzto1st 33583	. . . . . . . . . . . . . . 15 ⊢ (𝑁 ∈ (1...𝑁) → 𝑆 ∈ (Base‘(SymGrp‘(1...𝑁))))
67	65, 66	syl 18	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝑆 ∈ (Base‘(SymGrp‘(1...𝑁))))
68		eqid 2760	. . . . . . . . . . . . . . 15 ⊢ (inv_g‘(SymGrp‘(1...𝑁))) = (inv_g‘(SymGrp‘(1...𝑁)))
69	60, 61, 68	symginv 19563	. . . . . . . . . . . . . 14 ⊢ (𝑆 ∈ (Base‘(SymGrp‘(1...𝑁))) → ((inv_g‘(SymGrp‘(1...𝑁)))‘𝑆) = ^◡𝑆)
70	67, 69	syl 18	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((inv_g‘(SymGrp‘(1...𝑁)))‘𝑆) = ^◡𝑆)
71	60	symggrp 19561	. . . . . . . . . . . . . . 15 ⊢ ((1...𝑁) ∈ Fin → (SymGrp‘(1...𝑁)) ∈ Grp)
72	58, 71	syl 18	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (SymGrp‘(1...𝑁)) ∈ Grp)
73	61, 68	grpinvcl 19145	. . . . . . . . . . . . . 14 ⊢ (((SymGrp‘(1...𝑁)) ∈ Grp ∧ 𝑆 ∈ (Base‘(SymGrp‘(1...𝑁)))) → ((inv_g‘(SymGrp‘(1...𝑁)))‘𝑆) ∈ (Base‘(SymGrp‘(1...𝑁))))
74	72, 67, 73	syl2anc 596	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((inv_g‘(SymGrp‘(1...𝑁)))‘𝑆) ∈ (Base‘(SymGrp‘(1...𝑁))))
75	70, 74	eqeltrrd 2861	. . . . . . . . . . . 12 ⊢ (𝜑 → ^◡𝑆 ∈ (Base‘(SymGrp‘(1...𝑁))))
76		eqid 2760	. . . . . . . . . . . . . 14 ⊢ (+_g‘(SymGrp‘(1...𝑁))) = (+_g‘(SymGrp‘(1...𝑁)))
77	60, 61, 76	symgov 19545	. . . . . . . . . . . . 13 ⊢ ((𝑃 ∈ (Base‘(SymGrp‘(1...𝑁))) ∧ ^◡𝑆 ∈ (Base‘(SymGrp‘(1...𝑁)))) → (𝑃(+_g‘(SymGrp‘(1...𝑁)))^◡𝑆) = (𝑃 ∘ ^◡𝑆))
78	60, 61, 76	symgcl 19546	. . . . . . . . . . . . 13 ⊢ ((𝑃 ∈ (Base‘(SymGrp‘(1...𝑁))) ∧ ^◡𝑆 ∈ (Base‘(SymGrp‘(1...𝑁)))) → (𝑃(+_g‘(SymGrp‘(1...𝑁)))^◡𝑆) ∈ (Base‘(SymGrp‘(1...𝑁))))
79	77, 78	eqeltrrd 2861	. . . . . . . . . . . 12 ⊢ ((𝑃 ∈ (Base‘(SymGrp‘(1...𝑁))) ∧ ^◡𝑆 ∈ (Base‘(SymGrp‘(1...𝑁)))) → (𝑃 ∘ ^◡𝑆) ∈ (Base‘(SymGrp‘(1...𝑁))))
80	63, 75, 79	syl2anc 596	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑃 ∘ ^◡𝑆) ∈ (Base‘(SymGrp‘(1...𝑁))))
81	80	3ad2ant1 1151	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑖 ∈ (1...𝑁) ∧ 𝑗 ∈ (1...𝑁)) → (𝑃 ∘ ^◡𝑆) ∈ (Base‘(SymGrp‘(1...𝑁))))
82		simp2 1155	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑖 ∈ (1...𝑁) ∧ 𝑗 ∈ (1...𝑁)) → 𝑖 ∈ (1...𝑁))
83	60, 61	symgfv 19541	. . . . . . . . . 10 ⊢ (((𝑃 ∘ ^◡𝑆) ∈ (Base‘(SymGrp‘(1...𝑁))) ∧ 𝑖 ∈ (1...𝑁)) → ((𝑃 ∘ ^◡𝑆)‘𝑖) ∈ (1...𝑁))
84	81, 82, 83	syl2anc 596	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑖 ∈ (1...𝑁) ∧ 𝑗 ∈ (1...𝑁)) → ((𝑃 ∘ ^◡𝑆)‘𝑖) ∈ (1...𝑁))
85	59, 48, 60, 61	fzto1st 33583	. . . . . . . . . . . . 13 ⊢ (𝐽 ∈ (1...𝑁) → 𝑄 ∈ (Base‘(SymGrp‘(1...𝑁))))
86	22, 85	syl 18	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑄 ∈ (Base‘(SymGrp‘(1...𝑁))))
87	59, 49, 60, 61	fzto1st 33583	. . . . . . . . . . . . . . 15 ⊢ (𝑁 ∈ (1...𝑁) → 𝑇 ∈ (Base‘(SymGrp‘(1...𝑁))))
88	65, 87	syl 18	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝑇 ∈ (Base‘(SymGrp‘(1...𝑁))))
89	60, 61, 68	symginv 19563	. . . . . . . . . . . . . 14 ⊢ (𝑇 ∈ (Base‘(SymGrp‘(1...𝑁))) → ((inv_g‘(SymGrp‘(1...𝑁)))‘𝑇) = ^◡𝑇)
90	88, 89	syl 18	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((inv_g‘(SymGrp‘(1...𝑁)))‘𝑇) = ^◡𝑇)
91	61, 68	grpinvcl 19145	. . . . . . . . . . . . . 14 ⊢ (((SymGrp‘(1...𝑁)) ∈ Grp ∧ 𝑇 ∈ (Base‘(SymGrp‘(1...𝑁)))) → ((inv_g‘(SymGrp‘(1...𝑁)))‘𝑇) ∈ (Base‘(SymGrp‘(1...𝑁))))
92	72, 88, 91	syl2anc 596	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((inv_g‘(SymGrp‘(1...𝑁)))‘𝑇) ∈ (Base‘(SymGrp‘(1...𝑁))))
93	90, 92	eqeltrrd 2861	. . . . . . . . . . . 12 ⊢ (𝜑 → ^◡𝑇 ∈ (Base‘(SymGrp‘(1...𝑁))))
94	60, 61, 76	symgov 19545	. . . . . . . . . . . . 13 ⊢ ((𝑄 ∈ (Base‘(SymGrp‘(1...𝑁))) ∧ ^◡𝑇 ∈ (Base‘(SymGrp‘(1...𝑁)))) → (𝑄(+_g‘(SymGrp‘(1...𝑁)))^◡𝑇) = (𝑄 ∘ ^◡𝑇))
95	60, 61, 76	symgcl 19546	. . . . . . . . . . . . 13 ⊢ ((𝑄 ∈ (Base‘(SymGrp‘(1...𝑁))) ∧ ^◡𝑇 ∈ (Base‘(SymGrp‘(1...𝑁)))) → (𝑄(+_g‘(SymGrp‘(1...𝑁)))^◡𝑇) ∈ (Base‘(SymGrp‘(1...𝑁))))
96	94, 95	eqeltrrd 2861	. . . . . . . . . . . 12 ⊢ ((𝑄 ∈ (Base‘(SymGrp‘(1...𝑁))) ∧ ^◡𝑇 ∈ (Base‘(SymGrp‘(1...𝑁)))) → (𝑄 ∘ ^◡𝑇) ∈ (Base‘(SymGrp‘(1...𝑁))))
97	86, 93, 96	syl2anc 596	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑄 ∘ ^◡𝑇) ∈ (Base‘(SymGrp‘(1...𝑁))))
98	97	3ad2ant1 1151	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑖 ∈ (1...𝑁) ∧ 𝑗 ∈ (1...𝑁)) → (𝑄 ∘ ^◡𝑇) ∈ (Base‘(SymGrp‘(1...𝑁))))
99		simp3 1156	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑖 ∈ (1...𝑁) ∧ 𝑗 ∈ (1...𝑁)) → 𝑗 ∈ (1...𝑁))
100	60, 61	symgfv 19541	. . . . . . . . . 10 ⊢ (((𝑄 ∘ ^◡𝑇) ∈ (Base‘(SymGrp‘(1...𝑁))) ∧ 𝑗 ∈ (1...𝑁)) → ((𝑄 ∘ ^◡𝑇)‘𝑗) ∈ (1...𝑁))
101	98, 99, 100	syl2anc 596	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑖 ∈ (1...𝑁) ∧ 𝑗 ∈ (1...𝑁)) → ((𝑄 ∘ ^◡𝑇)‘𝑗) ∈ (1...𝑁))
102	24	3ad2ant1 1151	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑖 ∈ (1...𝑁) ∧ 𝑗 ∈ (1...𝑁)) → 𝑈 ∈ 𝐵)
103	25, 26, 27, 84, 101, 102	matecld 22688	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑖 ∈ (1...𝑁) ∧ 𝑗 ∈ (1...𝑁)) → (((𝑃 ∘ ^◡𝑆)‘𝑖)𝑈((𝑄 ∘ ^◡𝑇)‘𝑗)) ∈ (Base‘𝑅))
104	25, 26, 27, 58, 42, 103	matbas2d 22685	. . . . . . 7 ⊢ (𝜑 → (𝑖 ∈ (1...𝑁), 𝑗 ∈ (1...𝑁) ↦ (((𝑃 ∘ ^◡𝑆)‘𝑖)𝑈((𝑄 ∘ ^◡𝑇)‘𝑗))) ∈ 𝐵)
105	14, 104	eqeltrid 2864	. . . . . 6 ⊢ (𝜑 → 𝑊 ∈ 𝐵)
106	25, 27	submatres 34357	. . . . . 6 ⊢ ((𝑁 ∈ ℕ ∧ 𝑊 ∈ 𝐵) → (𝑁(subMat1‘𝑊)𝑁) = (𝑊 ↾ ((1...(𝑁 − 1)) × (1...(𝑁 − 1)))))
107	1, 105, 106	syl2anc 596	. . . . 5 ⊢ (𝜑 → (𝑁(subMat1‘𝑊)𝑁) = (𝑊 ↾ ((1...(𝑁 − 1)) × (1...(𝑁 − 1)))))
108		eqid 2760	. . . . . 6 ⊢ (𝑁(subMat1‘𝑊)𝑁) = (𝑁(subMat1‘𝑊)𝑁)
109	25, 27, 56, 108, 1, 65, 65, 105	smatcl 34353	. . . . 5 ⊢ (𝜑 → (𝑁(subMat1‘𝑊)𝑁) ∈ (Base‘((1...(𝑁 − 1)) Mat 𝑅)))
110	107, 109	eqeltrrd 2861	. . . 4 ⊢ (𝜑 → (𝑊 ↾ ((1...(𝑁 − 1)) × (1...(𝑁 − 1)))) ∈ (Base‘((1...(𝑁 − 1)) Mat 𝑅)))
111		eqid 2760	. . . . 5 ⊢ ((1...(𝑁 − 1)) Mat 𝑅) = ((1...(𝑁 − 1)) Mat 𝑅)
112	111, 56	eqmat 22686	. . . 4 ⊢ (((𝐼(subMat1‘𝑈)𝐽) ∈ (Base‘((1...(𝑁 − 1)) Mat 𝑅)) ∧ (𝑊 ↾ ((1...(𝑁 − 1)) × (1...(𝑁 − 1)))) ∈ (Base‘((1...(𝑁 − 1)) Mat 𝑅))) → ((𝐼(subMat1‘𝑈)𝐽) = (𝑊 ↾ ((1...(𝑁 − 1)) × (1...(𝑁 − 1)))) ↔ ∀𝑖 ∈ (1...(𝑁 − 1))∀𝑗 ∈ (1...(𝑁 − 1))(𝑖(𝐼(subMat1‘𝑈)𝐽)𝑗) = (𝑖(𝑊 ↾ ((1...(𝑁 − 1)) × (1...(𝑁 − 1))))𝑗)))
113	57, 110, 112	syl2anc 596	. . 3 ⊢ (𝜑 → ((𝐼(subMat1‘𝑈)𝐽) = (𝑊 ↾ ((1...(𝑁 − 1)) × (1...(𝑁 − 1)))) ↔ ∀𝑖 ∈ (1...(𝑁 − 1))∀𝑗 ∈ (1...(𝑁 − 1))(𝑖(𝐼(subMat1‘𝑈)𝐽)𝑗) = (𝑖(𝑊 ↾ ((1...(𝑁 − 1)) × (1...(𝑁 − 1))))𝑗)))
114	55, 113	mpbird 260	. 2 ⊢ (𝜑 → (𝐼(subMat1‘𝑈)𝐽) = (𝑊 ↾ ((1...(𝑁 − 1)) × (1...(𝑁 − 1)))))
115	114, 107	eqtr4d 2798	1 ⊢ (𝜑 → (𝐼(subMat1‘𝑈)𝐽) = (𝑁(subMat1‘𝑊)𝑁))

Colors of variables: wff setvar class

This proof depends on syntax axioms: → wi 4 ↔ wb 209 ∧ wa 401 ∧ w3a 1103 = wceq 1570 ∈ wcel 2145 ∀wral 3076 Vcvv 3450 ∖ cdif 3896 ⊆ wss 3899 ifcif 4482 {csn 4584 class class class wbr 5103 ↦ cmpt 5186 × cxp 5646 ^◡ccnv 5647 ↾ cres 5650 ∘ ccom 5652 ‘cfv 6528 (class class class)co 7409 ∈ cmpo 7411 ↑_m cmap 8826 Fincfn 8952 1c1 11158 + caddc 11160 < clt 11300 ≤ cle 11301 − cmin 11498 ℕcn 12290 ℤ_≥cuz 12920 ...cfz 13594 Basecbs 17334 +_gcplusg 17375 ._rcmulr 17376 Grpcgrp 19091 inv_gcminusg 19092 SymGrpcsymg 19530 CRingccrg 20407 ℤRHomczrh 21752 Mat cmat 22669 maDet cmdat 22846 maAdju cmadu 22894 subMat1csmat 34344

This proof depends on axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1828 ax-4 1842 ax-5 1943 ax-6 2000 ax-7 2041 ax-8 2147 ax-9 2155 ax-10 2178 ax-11 2194 ax-12 2213 ax-ext 2732 ax-rep 5232 ax-sep 5249 ax-nul 5260 ax-pow 5327 ax-pr 5391 ax-un 7735 ax-cnex 11213 ax-resscn 11214 ax-1cn 11215 ax-icn 11216 ax-addcl 11217 ax-addrcl 11218 ax-mulcl 11219 ax-mulrcl 11220 ax-mulcom 11221 ax-addass 11222 ax-mulass 11223 ax-distr 11224 ax-i2m1 11225 ax-1ne0 11226 ax-1rid 11227 ax-rnegex 11228 ax-rrecex 11229 ax-cnre 11230 ax-pre-lttri 11231 ax-pre-lttrn 11232 ax-pre-ltadd 11233 ax-pre-mulgt0 11234

This proof depends on definitions: df-bi 210 df-an 402 df-or 862 df-3or 1104 df-3an 1105 df-tru 1573 df-fal 1583 df-ex 1813 df-nf 1817 df-sb 2100 df-mo 2564 df-eu 2594 df-clab 2739 df-cleq 2752 df-clel 2835 df-nfc 2909 df-ne 2956 df-nel 3062 df-ral 3077 df-rex 3087 df-rmo 3365 df-reu 3366 df-rab 3413 df-v 3452 df-sbc 3740 df-csb 3848 df-dif 3902 df-un 3904 df-in 3906 df-ss 3916 df-pss 3919 df-nul 4280 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-iun 4953 df-br 5104 df-opab 5168 df-mpt 5187 df-tr 5213 df-id 5543 df-eprel 5548 df-po 5556 df-so 5557 df-fr 5601 df-we 5603 df-xp 5654 df-rel 5655 df-cnv 5656 df-co 5657 df-dm 5658 df-rn 5659 df-res 5660 df-ima 5661 df-pred 6294 df-ord 6355 df-on 6356 df-lim 6357 df-suc 6358 df-iota 6484 df-fun 6530 df-fn 6531 df-f 6532 df-f1 6533 df-fo 6534 df-f1o 6535 df-fv 6536 df-riota 7366 df-ov 7412 df-oprab 7413 df-mpo 7414 df-om 7862 df-1st 7985 df-2nd 7986 df-supp 8157 df-frecs 8278 df-wrecs 8309 df-recs 8358 df-rdg 8397 df-1o 8455 df-2o 8456 df-er 8696 df-map 8828 df-ixp 8905 df-en 8953 df-dom 8954 df-sdom 8955 df-fin 8956 df-fsupp 9332 df-sup 9412 df-pnf 11302 df-mnf 11303 df-xr 11304 df-ltxr 11305 df-le 11306 df-sub 11500 df-neg 11501 df-nn 12291 df-2 12360 df-3 12361 df-4 12362 df-5 12363 df-6 12364 df-7 12365 df-8 12366 df-9 12367 df-n0 12562 df-z 12649 df-dec 12770 df-uz 12921 df-rp 13076 df-fz 13595 df-fzo 13743 df-struct 17272 df-sets 17289 df-slot 17307 df-ndx 17319 df-base 17335 df-ress 17356 df-plusg 17388 df-mulr 17389 df-sca 17391 df-vsca 17392 df-ip 17393 df-tset 17394 df-ple 17395 df-ds 17397 df-hom 17399 df-cco 17400 df-0g 17559 df-prds 17565 df-pws 17567 df-mgm 18763 df-sgrp 18855 df-mnd 18871 df-submnd 18926 df-efmnd 19012 df-grp 19094 df-minusg 19095 df-symg 19531 df-pmtr 19603 df-sra 21395 df-rgmod 21396 df-dsmm 21985 df-frlm 22000 df-mat 22670 df-subma 22839 df-smat 34345

This theorem is used by: madjusmdetlem4 34381

W3C validator