1smat1 - Mathbox for Thierry Arnoux

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

Theorem 1smat1 33405

Description: The submatrix of the identity matrix obtained by removing the ith row and the ith column is an identity matrix. Cf. 1marepvsma1 22498. (Contributed by Thierry Arnoux, 19-Aug-2020.)

**Hypotheses**
Ref	Expression
1smat1.1	⊢ 1 = (1_r‘((1...𝑁) Mat 𝑅))
1smat1.r	⊢ (𝜑 → 𝑅 ∈ Ring)
1smat1.n	⊢ (𝜑 → 𝑁 ∈ ℕ)
1smat1.i	⊢ (𝜑 → 𝐼 ∈ (1...𝑁))

**Assertion**
Ref	Expression
1smat1	⊢ (𝜑 → (𝐼(subMat1‘ 1 )𝐼) = (1_r‘((1...(𝑁 − 1)) Mat 𝑅)))

Proof of Theorem 1smat1 Dummy variables 𝑖 𝑗 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		eqid 2728	. . . . 5 ⊢ (𝐼(subMat1‘ 1 )𝐼) = (𝐼(subMat1‘ 1 )𝐼)
2		1smat1.n	. . . . . 6 ⊢ (𝜑 → 𝑁 ∈ ℕ)
3	2	adantr 480	. . . . 5 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → 𝑁 ∈ ℕ)
4		1smat1.i	. . . . . 6 ⊢ (𝜑 → 𝐼 ∈ (1...𝑁))
5	4	adantr 480	. . . . 5 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → 𝐼 ∈ (1...𝑁))
6		1smat1.r	. . . . . . . 8 ⊢ (𝜑 → 𝑅 ∈ Ring)
7		fzfi 13970	. . . . . . . 8 ⊢ (1...𝑁) ∈ Fin
8		eqid 2728	. . . . . . . . 9 ⊢ ((1...𝑁) Mat 𝑅) = ((1...𝑁) Mat 𝑅)
9		eqid 2728	. . . . . . . . 9 ⊢ (Base‘((1...𝑁) Mat 𝑅)) = (Base‘((1...𝑁) Mat 𝑅))
10		1smat1.1	. . . . . . . . 9 ⊢ 1 = (1_r‘((1...𝑁) Mat 𝑅))
11	8, 9, 10	mat1bas 22364	. . . . . . . 8 ⊢ ((𝑅 ∈ Ring ∧ (1...𝑁) ∈ Fin) → 1 ∈ (Base‘((1...𝑁) Mat 𝑅)))
12	6, 7, 11	sylancl 585	. . . . . . 7 ⊢ (𝜑 → 1 ∈ (Base‘((1...𝑁) Mat 𝑅)))
13		eqid 2728	. . . . . . . . 9 ⊢ (Base‘𝑅) = (Base‘𝑅)
14	8, 13	matbas2 22336	. . . . . . . 8 ⊢ (((1...𝑁) ∈ Fin ∧ 𝑅 ∈ Ring) → ((Base‘𝑅) ↑_m ((1...𝑁) × (1...𝑁))) = (Base‘((1...𝑁) Mat 𝑅)))
15	7, 6, 14	sylancr 586	. . . . . . 7 ⊢ (𝜑 → ((Base‘𝑅) ↑_m ((1...𝑁) × (1...𝑁))) = (Base‘((1...𝑁) Mat 𝑅)))
16	12, 15	eleqtrrd 2832	. . . . . 6 ⊢ (𝜑 → 1 ∈ ((Base‘𝑅) ↑_m ((1...𝑁) × (1...𝑁))))
17	16	adantr 480	. . . . 5 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → 1 ∈ ((Base‘𝑅) ↑_m ((1...𝑁) × (1...𝑁))))
18		fz1ssnn 13565	. . . . . 6 ⊢ (1...(𝑁 − 1)) ⊆ ℕ
19		simprl 770	. . . . . 6 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → 𝑖 ∈ (1...(𝑁 − 1)))
20	18, 19	sselid 3978	. . . . 5 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → 𝑖 ∈ ℕ)
21		simprr 772	. . . . . 6 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → 𝑗 ∈ (1...(𝑁 − 1)))
22	18, 21	sselid 3978	. . . . 5 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → 𝑗 ∈ ℕ)
23		eqidd 2729	. . . . 5 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → if(𝑖 < 𝐼, 𝑖, (𝑖 + 1)) = if(𝑖 < 𝐼, 𝑖, (𝑖 + 1)))
24		eqidd 2729	. . . . 5 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → if(𝑗 < 𝐼, 𝑗, (𝑗 + 1)) = if(𝑗 < 𝐼, 𝑗, (𝑗 + 1)))
25	1, 3, 3, 5, 5, 17, 20, 22, 23, 24	smatlem 33398	. . . 4 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → (𝑖(𝐼(subMat1‘ 1 )𝐼)𝑗) = (if(𝑖 < 𝐼, 𝑖, (𝑖 + 1)) 1 if(𝑗 < 𝐼, 𝑗, (𝑗 + 1))))
26		eqid 2728	. . . . 5 ⊢ (1_r‘𝑅) = (1_r‘𝑅)
27		eqid 2728	. . . . 5 ⊢ (0_g‘𝑅) = (0_g‘𝑅)
28	7	a1i 11	. . . . 5 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → (1...𝑁) ∈ Fin)
29	6	adantr 480	. . . . 5 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → 𝑅 ∈ Ring)
30		nnuz 12896	. . . . . . . . 9 ⊢ ℕ = (ℤ_≥‘1)
31	20, 30	eleqtrdi 2839	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → 𝑖 ∈ (ℤ_≥‘1))
32		fznatpl1 13588	. . . . . . . . 9 ⊢ ((𝑁 ∈ ℕ ∧ 𝑖 ∈ (1...(𝑁 − 1))) → (𝑖 + 1) ∈ (1...𝑁))
33	3, 19, 32	syl2anc 583	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → (𝑖 + 1) ∈ (1...𝑁))
34		peano2fzr 13547	. . . . . . . 8 ⊢ ((𝑖 ∈ (ℤ_≥‘1) ∧ (𝑖 + 1) ∈ (1...𝑁)) → 𝑖 ∈ (1...𝑁))
35	31, 33, 34	syl2anc 583	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → 𝑖 ∈ (1...𝑁))
36	35, 33	jca 511	. . . . . 6 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → (𝑖 ∈ (1...𝑁) ∧ (𝑖 + 1) ∈ (1...𝑁)))
37		eleq1 2817	. . . . . . 7 ⊢ (𝑖 = if(𝑖 < 𝐼, 𝑖, (𝑖 + 1)) → (𝑖 ∈ (1...𝑁) ↔ if(𝑖 < 𝐼, 𝑖, (𝑖 + 1)) ∈ (1...𝑁)))
38		eleq1 2817	. . . . . . 7 ⊢ ((𝑖 + 1) = if(𝑖 < 𝐼, 𝑖, (𝑖 + 1)) → ((𝑖 + 1) ∈ (1...𝑁) ↔ if(𝑖 < 𝐼, 𝑖, (𝑖 + 1)) ∈ (1...𝑁)))
39	37, 38	ifboth 4568	. . . . . 6 ⊢ ((𝑖 ∈ (1...𝑁) ∧ (𝑖 + 1) ∈ (1...𝑁)) → if(𝑖 < 𝐼, 𝑖, (𝑖 + 1)) ∈ (1...𝑁))
40	36, 39	syl 17	. . . . 5 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → if(𝑖 < 𝐼, 𝑖, (𝑖 + 1)) ∈ (1...𝑁))
41	22, 30	eleqtrdi 2839	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → 𝑗 ∈ (ℤ_≥‘1))
42		fznatpl1 13588	. . . . . . . . 9 ⊢ ((𝑁 ∈ ℕ ∧ 𝑗 ∈ (1...(𝑁 − 1))) → (𝑗 + 1) ∈ (1...𝑁))
43	3, 21, 42	syl2anc 583	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → (𝑗 + 1) ∈ (1...𝑁))
44		peano2fzr 13547	. . . . . . . 8 ⊢ ((𝑗 ∈ (ℤ_≥‘1) ∧ (𝑗 + 1) ∈ (1...𝑁)) → 𝑗 ∈ (1...𝑁))
45	41, 43, 44	syl2anc 583	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → 𝑗 ∈ (1...𝑁))
46	45, 43	jca 511	. . . . . 6 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → (𝑗 ∈ (1...𝑁) ∧ (𝑗 + 1) ∈ (1...𝑁)))
47		eleq1 2817	. . . . . . 7 ⊢ (𝑗 = if(𝑗 < 𝐼, 𝑗, (𝑗 + 1)) → (𝑗 ∈ (1...𝑁) ↔ if(𝑗 < 𝐼, 𝑗, (𝑗 + 1)) ∈ (1...𝑁)))
48		eleq1 2817	. . . . . . 7 ⊢ ((𝑗 + 1) = if(𝑗 < 𝐼, 𝑗, (𝑗 + 1)) → ((𝑗 + 1) ∈ (1...𝑁) ↔ if(𝑗 < 𝐼, 𝑗, (𝑗 + 1)) ∈ (1...𝑁)))
49	47, 48	ifboth 4568	. . . . . 6 ⊢ ((𝑗 ∈ (1...𝑁) ∧ (𝑗 + 1) ∈ (1...𝑁)) → if(𝑗 < 𝐼, 𝑗, (𝑗 + 1)) ∈ (1...𝑁))
50	46, 49	syl 17	. . . . 5 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → if(𝑗 < 𝐼, 𝑗, (𝑗 + 1)) ∈ (1...𝑁))
51	8, 26, 27, 28, 29, 40, 50, 10	mat1ov 22363	. . . 4 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → (if(𝑖 < 𝐼, 𝑖, (𝑖 + 1)) 1 if(𝑗 < 𝐼, 𝑗, (𝑗 + 1))) = if(if(𝑖 < 𝐼, 𝑖, (𝑖 + 1)) = if(𝑗 < 𝐼, 𝑗, (𝑗 + 1)), (1_r‘𝑅), (0_g‘𝑅)))
52		simpr 484	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ 𝑖 < 𝐼) → 𝑖 < 𝐼)
53	52	iftrued 4537	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ 𝑖 < 𝐼) → if(𝑖 < 𝐼, 𝑖, (𝑖 + 1)) = 𝑖)
54	53	eqeq1d 2730	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ 𝑖 < 𝐼) → (if(𝑖 < 𝐼, 𝑖, (𝑖 + 1)) = if(𝑗 < 𝐼, 𝑗, (𝑗 + 1)) ↔ 𝑖 = if(𝑗 < 𝐼, 𝑗, (𝑗 + 1))))
55		simpr 484	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ 𝑖 < 𝐼) ∧ 𝑗 < 𝐼) → 𝑗 < 𝐼)
56	55	iftrued 4537	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ 𝑖 < 𝐼) ∧ 𝑗 < 𝐼) → if(𝑗 < 𝐼, 𝑗, (𝑗 + 1)) = 𝑗)
57	56	eqeq2d 2739	. . . . . . . . 9 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ 𝑖 < 𝐼) ∧ 𝑗 < 𝐼) → (𝑖 = if(𝑗 < 𝐼, 𝑗, (𝑗 + 1)) ↔ 𝑖 = 𝑗))
58		simpr 484	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ 𝑖 < 𝐼) ∧ ¬ 𝑗 < 𝐼) → ¬ 𝑗 < 𝐼)
59	58	iffalsed 4540	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ 𝑖 < 𝐼) ∧ ¬ 𝑗 < 𝐼) → if(𝑗 < 𝐼, 𝑗, (𝑗 + 1)) = (𝑗 + 1))
60	59	eqeq2d 2739	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ 𝑖 < 𝐼) ∧ ¬ 𝑗 < 𝐼) → (𝑖 = if(𝑗 < 𝐼, 𝑗, (𝑗 + 1)) ↔ 𝑖 = (𝑗 + 1)))
61	20	nnred 12258	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → 𝑖 ∈ ℝ)
62	61	ad2antrr 725	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ 𝑖 < 𝐼) ∧ ¬ 𝑗 < 𝐼) → 𝑖 ∈ ℝ)
63		fz1ssnn 13565	. . . . . . . . . . . . . . . . 17 ⊢ (1...𝑁) ⊆ ℕ
64	63, 4	sselid 3978	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝐼 ∈ ℕ)
65	64	nnred 12258	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝐼 ∈ ℝ)
66	65	ad3antrrr 729	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ 𝑖 < 𝐼) ∧ ¬ 𝑗 < 𝐼) → 𝐼 ∈ ℝ)
67	22	nnred 12258	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → 𝑗 ∈ ℝ)
68	67	ad2antrr 725	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ 𝑖 < 𝐼) ∧ ¬ 𝑗 < 𝐼) → 𝑗 ∈ ℝ)
69		1red 11246	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ 𝑖 < 𝐼) ∧ ¬ 𝑗 < 𝐼) → 1 ∈ ℝ)
70	68, 69	readdcld 11274	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ 𝑖 < 𝐼) ∧ ¬ 𝑗 < 𝐼) → (𝑗 + 1) ∈ ℝ)
71	52	adantr 480	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ 𝑖 < 𝐼) ∧ ¬ 𝑗 < 𝐼) → 𝑖 < 𝐼)
72	64	nnzd 12616	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝐼 ∈ ℤ)
73	72	ad3antrrr 729	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ 𝑖 < 𝐼) ∧ ¬ 𝑗 < 𝐼) → 𝐼 ∈ ℤ)
74	22	nnzd 12616	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → 𝑗 ∈ ℤ)
75	74	ad2antrr 725	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ 𝑖 < 𝐼) ∧ ¬ 𝑗 < 𝐼) → 𝑗 ∈ ℤ)
76	66, 68, 58	nltled 11395	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ 𝑖 < 𝐼) ∧ ¬ 𝑗 < 𝐼) → 𝐼 ≤ 𝑗)
77		zleltp1 12644	. . . . . . . . . . . . . . . 16 ⊢ ((𝐼 ∈ ℤ ∧ 𝑗 ∈ ℤ) → (𝐼 ≤ 𝑗 ↔ 𝐼 < (𝑗 + 1)))
78	77	biimpa 476	. . . . . . . . . . . . . . 15 ⊢ (((𝐼 ∈ ℤ ∧ 𝑗 ∈ ℤ) ∧ 𝐼 ≤ 𝑗) → 𝐼 < (𝑗 + 1))
79	73, 75, 76, 78	syl21anc 837	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ 𝑖 < 𝐼) ∧ ¬ 𝑗 < 𝐼) → 𝐼 < (𝑗 + 1))
80	62, 66, 70, 71, 79	lttrd 11406	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ 𝑖 < 𝐼) ∧ ¬ 𝑗 < 𝐼) → 𝑖 < (𝑗 + 1))
81	62, 80	ltned 11381	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ 𝑖 < 𝐼) ∧ ¬ 𝑗 < 𝐼) → 𝑖 ≠ (𝑗 + 1))
82	81	neneqd 2942	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ 𝑖 < 𝐼) ∧ ¬ 𝑗 < 𝐼) → ¬ 𝑖 = (𝑗 + 1))
83	62, 66, 68, 71, 76	ltletrd 11405	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ 𝑖 < 𝐼) ∧ ¬ 𝑗 < 𝐼) → 𝑖 < 𝑗)
84	62, 83	ltned 11381	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ 𝑖 < 𝐼) ∧ ¬ 𝑗 < 𝐼) → 𝑖 ≠ 𝑗)
85	84	neneqd 2942	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ 𝑖 < 𝐼) ∧ ¬ 𝑗 < 𝐼) → ¬ 𝑖 = 𝑗)
86	82, 85	2falsed 376	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ 𝑖 < 𝐼) ∧ ¬ 𝑗 < 𝐼) → (𝑖 = (𝑗 + 1) ↔ 𝑖 = 𝑗))
87	60, 86	bitrd 279	. . . . . . . . 9 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ 𝑖 < 𝐼) ∧ ¬ 𝑗 < 𝐼) → (𝑖 = if(𝑗 < 𝐼, 𝑗, (𝑗 + 1)) ↔ 𝑖 = 𝑗))
88	57, 87	pm2.61dan 812	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ 𝑖 < 𝐼) → (𝑖 = if(𝑗 < 𝐼, 𝑗, (𝑗 + 1)) ↔ 𝑖 = 𝑗))
89	54, 88	bitrd 279	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ 𝑖 < 𝐼) → (if(𝑖 < 𝐼, 𝑖, (𝑖 + 1)) = if(𝑗 < 𝐼, 𝑗, (𝑗 + 1)) ↔ 𝑖 = 𝑗))
90		simpr 484	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) → ¬ 𝑖 < 𝐼)
91	90	iffalsed 4540	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) → if(𝑖 < 𝐼, 𝑖, (𝑖 + 1)) = (𝑖 + 1))
92	91	eqeq1d 2730	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) → (if(𝑖 < 𝐼, 𝑖, (𝑖 + 1)) = if(𝑗 < 𝐼, 𝑗, (𝑗 + 1)) ↔ (𝑖 + 1) = if(𝑗 < 𝐼, 𝑗, (𝑗 + 1))))
93		simpr 484	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) ∧ 𝑗 < 𝐼) → 𝑗 < 𝐼)
94	93	iftrued 4537	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) ∧ 𝑗 < 𝐼) → if(𝑗 < 𝐼, 𝑗, (𝑗 + 1)) = 𝑗)
95	94	eqeq2d 2739	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) ∧ 𝑗 < 𝐼) → ((𝑖 + 1) = if(𝑗 < 𝐼, 𝑗, (𝑗 + 1)) ↔ (𝑖 + 1) = 𝑗))
96	67	ad2antrr 725	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) ∧ 𝑗 < 𝐼) → 𝑗 ∈ ℝ)
97	65	ad3antrrr 729	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) ∧ 𝑗 < 𝐼) → 𝐼 ∈ ℝ)
98	61	ad2antrr 725	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) ∧ 𝑗 < 𝐼) → 𝑖 ∈ ℝ)
99		1red 11246	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) ∧ 𝑗 < 𝐼) → 1 ∈ ℝ)
100	98, 99	readdcld 11274	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) ∧ 𝑗 < 𝐼) → (𝑖 + 1) ∈ ℝ)
101	72	ad3antrrr 729	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) ∧ 𝑗 < 𝐼) → 𝐼 ∈ ℤ)
102	20	nnzd 12616	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → 𝑖 ∈ ℤ)
103	102	ad2antrr 725	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) ∧ 𝑗 < 𝐼) → 𝑖 ∈ ℤ)
104	90	adantr 480	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) ∧ 𝑗 < 𝐼) → ¬ 𝑖 < 𝐼)
105	97, 98, 104	nltled 11395	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) ∧ 𝑗 < 𝐼) → 𝐼 ≤ 𝑖)
106		zleltp1 12644	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐼 ∈ ℤ ∧ 𝑖 ∈ ℤ) → (𝐼 ≤ 𝑖 ↔ 𝐼 < (𝑖 + 1)))
107	106	biimpa 476	. . . . . . . . . . . . . . . 16 ⊢ (((𝐼 ∈ ℤ ∧ 𝑖 ∈ ℤ) ∧ 𝐼 ≤ 𝑖) → 𝐼 < (𝑖 + 1))
108	101, 103, 105, 107	syl21anc 837	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) ∧ 𝑗 < 𝐼) → 𝐼 < (𝑖 + 1))
109	96, 97, 100, 93, 108	lttrd 11406	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) ∧ 𝑗 < 𝐼) → 𝑗 < (𝑖 + 1))
110	96, 109	ltned 11381	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) ∧ 𝑗 < 𝐼) → 𝑗 ≠ (𝑖 + 1))
111	110	necomd 2993	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) ∧ 𝑗 < 𝐼) → (𝑖 + 1) ≠ 𝑗)
112	111	neneqd 2942	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) ∧ 𝑗 < 𝐼) → ¬ (𝑖 + 1) = 𝑗)
113	96, 97, 98, 93, 105	ltletrd 11405	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) ∧ 𝑗 < 𝐼) → 𝑗 < 𝑖)
114	96, 113	ltned 11381	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) ∧ 𝑗 < 𝐼) → 𝑗 ≠ 𝑖)
115	114	necomd 2993	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) ∧ 𝑗 < 𝐼) → 𝑖 ≠ 𝑗)
116	115	neneqd 2942	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) ∧ 𝑗 < 𝐼) → ¬ 𝑖 = 𝑗)
117	112, 116	2falsed 376	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) ∧ 𝑗 < 𝐼) → ((𝑖 + 1) = 𝑗 ↔ 𝑖 = 𝑗))
118	95, 117	bitrd 279	. . . . . . . . 9 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) ∧ 𝑗 < 𝐼) → ((𝑖 + 1) = if(𝑗 < 𝐼, 𝑗, (𝑗 + 1)) ↔ 𝑖 = 𝑗))
119		simpr 484	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) ∧ ¬ 𝑗 < 𝐼) → ¬ 𝑗 < 𝐼)
120	119	iffalsed 4540	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) ∧ ¬ 𝑗 < 𝐼) → if(𝑗 < 𝐼, 𝑗, (𝑗 + 1)) = (𝑗 + 1))
121	120	eqeq2d 2739	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) ∧ ¬ 𝑗 < 𝐼) → ((𝑖 + 1) = if(𝑗 < 𝐼, 𝑗, (𝑗 + 1)) ↔ (𝑖 + 1) = (𝑗 + 1)))
122	20	nncnd 12259	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → 𝑖 ∈ ℂ)
123	122	ad3antrrr 729	. . . . . . . . . . . 12 ⊢ (((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) ∧ ¬ 𝑗 < 𝐼) ∧ (𝑖 + 1) = (𝑗 + 1)) → 𝑖 ∈ ℂ)
124	22	nncnd 12259	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → 𝑗 ∈ ℂ)
125	124	ad3antrrr 729	. . . . . . . . . . . 12 ⊢ (((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) ∧ ¬ 𝑗 < 𝐼) ∧ (𝑖 + 1) = (𝑗 + 1)) → 𝑗 ∈ ℂ)
126		1cnd 11240	. . . . . . . . . . . 12 ⊢ (((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) ∧ ¬ 𝑗 < 𝐼) ∧ (𝑖 + 1) = (𝑗 + 1)) → 1 ∈ ℂ)
127		simpr 484	. . . . . . . . . . . 12 ⊢ (((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) ∧ ¬ 𝑗 < 𝐼) ∧ (𝑖 + 1) = (𝑗 + 1)) → (𝑖 + 1) = (𝑗 + 1))
128	123, 125, 126, 127	addcan2ad 11451	. . . . . . . . . . 11 ⊢ (((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) ∧ ¬ 𝑗 < 𝐼) ∧ (𝑖 + 1) = (𝑗 + 1)) → 𝑖 = 𝑗)
129		simpr 484	. . . . . . . . . . . 12 ⊢ (((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) ∧ ¬ 𝑗 < 𝐼) ∧ 𝑖 = 𝑗) → 𝑖 = 𝑗)
130	129	oveq1d 7435	. . . . . . . . . . 11 ⊢ (((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) ∧ ¬ 𝑗 < 𝐼) ∧ 𝑖 = 𝑗) → (𝑖 + 1) = (𝑗 + 1))
131	128, 130	impbida 800	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) ∧ ¬ 𝑗 < 𝐼) → ((𝑖 + 1) = (𝑗 + 1) ↔ 𝑖 = 𝑗))
132	121, 131	bitrd 279	. . . . . . . . 9 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) ∧ ¬ 𝑗 < 𝐼) → ((𝑖 + 1) = if(𝑗 < 𝐼, 𝑗, (𝑗 + 1)) ↔ 𝑖 = 𝑗))
133	118, 132	pm2.61dan 812	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) → ((𝑖 + 1) = if(𝑗 < 𝐼, 𝑗, (𝑗 + 1)) ↔ 𝑖 = 𝑗))
134	92, 133	bitrd 279	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) → (if(𝑖 < 𝐼, 𝑖, (𝑖 + 1)) = if(𝑗 < 𝐼, 𝑗, (𝑗 + 1)) ↔ 𝑖 = 𝑗))
135	89, 134	pm2.61dan 812	. . . . . 6 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → (if(𝑖 < 𝐼, 𝑖, (𝑖 + 1)) = if(𝑗 < 𝐼, 𝑗, (𝑗 + 1)) ↔ 𝑖 = 𝑗))
136	135	ifbid 4552	. . . . 5 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → if(if(𝑖 < 𝐼, 𝑖, (𝑖 + 1)) = if(𝑗 < 𝐼, 𝑗, (𝑗 + 1)), (1_r‘𝑅), (0_g‘𝑅)) = if(𝑖 = 𝑗, (1_r‘𝑅), (0_g‘𝑅)))
137		eqid 2728	. . . . . 6 ⊢ ((1...(𝑁 − 1)) Mat 𝑅) = ((1...(𝑁 − 1)) Mat 𝑅)
138		fzfid 13971	. . . . . 6 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → (1...(𝑁 − 1)) ∈ Fin)
139		eqid 2728	. . . . . 6 ⊢ (1_r‘((1...(𝑁 − 1)) Mat 𝑅)) = (1_r‘((1...(𝑁 − 1)) Mat 𝑅))
140	137, 26, 27, 138, 29, 19, 21, 139	mat1ov 22363	. . . . 5 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → (𝑖(1_r‘((1...(𝑁 − 1)) Mat 𝑅))𝑗) = if(𝑖 = 𝑗, (1_r‘𝑅), (0_g‘𝑅)))
141	136, 140	eqtr4d 2771	. . . 4 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → if(if(𝑖 < 𝐼, 𝑖, (𝑖 + 1)) = if(𝑗 < 𝐼, 𝑗, (𝑗 + 1)), (1_r‘𝑅), (0_g‘𝑅)) = (𝑖(1_r‘((1...(𝑁 − 1)) Mat 𝑅))𝑗))
142	25, 51, 141	3eqtrd 2772	. . 3 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → (𝑖(𝐼(subMat1‘ 1 )𝐼)𝑗) = (𝑖(1_r‘((1...(𝑁 − 1)) Mat 𝑅))𝑗))
143	142	ralrimivva 3197	. 2 ⊢ (𝜑 → ∀𝑖 ∈ (1...(𝑁 − 1))∀𝑗 ∈ (1...(𝑁 − 1))(𝑖(𝐼(subMat1‘ 1 )𝐼)𝑗) = (𝑖(1_r‘((1...(𝑁 − 1)) Mat 𝑅))𝑗))
144	1, 2, 2, 4, 4, 16	smatrcl 33397	. . . 4 ⊢ (𝜑 → (𝐼(subMat1‘ 1 )𝐼) ∈ ((Base‘𝑅) ↑_m ((1...(𝑁 − 1)) × (1...(𝑁 − 1)))))
145		elmapfn 8884	. . . 4 ⊢ ((𝐼(subMat1‘ 1 )𝐼) ∈ ((Base‘𝑅) ↑_m ((1...(𝑁 − 1)) × (1...(𝑁 − 1)))) → (𝐼(subMat1‘ 1 )𝐼) Fn ((1...(𝑁 − 1)) × (1...(𝑁 − 1))))
146	144, 145	syl 17	. . 3 ⊢ (𝜑 → (𝐼(subMat1‘ 1 )𝐼) Fn ((1...(𝑁 − 1)) × (1...(𝑁 − 1))))
147		fzfi 13970	. . . . . 6 ⊢ (1...(𝑁 − 1)) ∈ Fin
148		eqid 2728	. . . . . . 7 ⊢ (Base‘((1...(𝑁 − 1)) Mat 𝑅)) = (Base‘((1...(𝑁 − 1)) Mat 𝑅))
149	137, 148, 139	mat1bas 22364	. . . . . 6 ⊢ ((𝑅 ∈ Ring ∧ (1...(𝑁 − 1)) ∈ Fin) → (1_r‘((1...(𝑁 − 1)) Mat 𝑅)) ∈ (Base‘((1...(𝑁 − 1)) Mat 𝑅)))
150	6, 147, 149	sylancl 585	. . . . 5 ⊢ (𝜑 → (1_r‘((1...(𝑁 − 1)) Mat 𝑅)) ∈ (Base‘((1...(𝑁 − 1)) Mat 𝑅)))
151	137, 13	matbas2 22336	. . . . . 6 ⊢ (((1...(𝑁 − 1)) ∈ Fin ∧ 𝑅 ∈ Ring) → ((Base‘𝑅) ↑_m ((1...(𝑁 − 1)) × (1...(𝑁 − 1)))) = (Base‘((1...(𝑁 − 1)) Mat 𝑅)))
152	147, 6, 151	sylancr 586	. . . . 5 ⊢ (𝜑 → ((Base‘𝑅) ↑_m ((1...(𝑁 − 1)) × (1...(𝑁 − 1)))) = (Base‘((1...(𝑁 − 1)) Mat 𝑅)))
153	150, 152	eleqtrrd 2832	. . . 4 ⊢ (𝜑 → (1_r‘((1...(𝑁 − 1)) Mat 𝑅)) ∈ ((Base‘𝑅) ↑_m ((1...(𝑁 − 1)) × (1...(𝑁 − 1)))))
154		elmapfn 8884	. . . 4 ⊢ ((1_r‘((1...(𝑁 − 1)) Mat 𝑅)) ∈ ((Base‘𝑅) ↑_m ((1...(𝑁 − 1)) × (1...(𝑁 − 1)))) → (1_r‘((1...(𝑁 − 1)) Mat 𝑅)) Fn ((1...(𝑁 − 1)) × (1...(𝑁 − 1))))
155	153, 154	syl 17	. . 3 ⊢ (𝜑 → (1_r‘((1...(𝑁 − 1)) Mat 𝑅)) Fn ((1...(𝑁 − 1)) × (1...(𝑁 − 1))))
156		eqfnov2 7551	. . 3 ⊢ (((𝐼(subMat1‘ 1 )𝐼) Fn ((1...(𝑁 − 1)) × (1...(𝑁 − 1))) ∧ (1_r‘((1...(𝑁 − 1)) Mat 𝑅)) Fn ((1...(𝑁 − 1)) × (1...(𝑁 − 1)))) → ((𝐼(subMat1‘ 1 )𝐼) = (1_r‘((1...(𝑁 − 1)) Mat 𝑅)) ↔ ∀𝑖 ∈ (1...(𝑁 − 1))∀𝑗 ∈ (1...(𝑁 − 1))(𝑖(𝐼(subMat1‘ 1 )𝐼)𝑗) = (𝑖(1_r‘((1...(𝑁 − 1)) Mat 𝑅))𝑗)))
157	146, 155, 156	syl2anc 583	. 2 ⊢ (𝜑 → ((𝐼(subMat1‘ 1 )𝐼) = (1_r‘((1...(𝑁 − 1)) Mat 𝑅)) ↔ ∀𝑖 ∈ (1...(𝑁 − 1))∀𝑗 ∈ (1...(𝑁 − 1))(𝑖(𝐼(subMat1‘ 1 )𝐼)𝑗) = (𝑖(1_r‘((1...(𝑁 − 1)) Mat 𝑅))𝑗)))
158	143, 157	mpbird 257	1 ⊢ (𝜑 → (𝐼(subMat1‘ 1 )𝐼) = (1_r‘((1...(𝑁 − 1)) Mat 𝑅)))

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ↔ wb 205 ∧ wa 395 = wceq 1534 ∈ wcel 2099 ∀wral 3058 ifcif 4529 class class class wbr 5148 × cxp 5676 Fn wfn 6543 ‘cfv 6548 (class class class)co 7420 ↑_m cmap 8845 Fincfn 8964 ℂcc 11137 ℝcr 11138 1c1 11140 + caddc 11142 < clt 11279 ≤ cle 11280 − cmin 11475 ℕcn 12243 ℤcz 12589 ℤ_≥cuz 12853 ...cfz 13517 Basecbs 17180 0_gc0g 17421 1_rcur 20121 Ringcrg 20173 Mat cmat 22320 subMat1csmat 33394

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1790 ax-4 1804 ax-5 1906 ax-6 1964 ax-7 2004 ax-8 2101 ax-9 2109 ax-10 2130 ax-11 2147 ax-12 2167 ax-ext 2699 ax-rep 5285 ax-sep 5299 ax-nul 5306 ax-pow 5365 ax-pr 5429 ax-un 7740 ax-cnex 11195 ax-resscn 11196 ax-1cn 11197 ax-icn 11198 ax-addcl 11199 ax-addrcl 11200 ax-mulcl 11201 ax-mulrcl 11202 ax-mulcom 11203 ax-addass 11204 ax-mulass 11205 ax-distr 11206 ax-i2m1 11207 ax-1ne0 11208 ax-1rid 11209 ax-rnegex 11210 ax-rrecex 11211 ax-cnre 11212 ax-pre-lttri 11213 ax-pre-lttrn 11214 ax-pre-ltadd 11215 ax-pre-mulgt0 11216

This theorem depends on definitions: df-bi 206 df-an 396 df-or 847 df-3or 1086 df-3an 1087 df-tru 1537 df-fal 1547 df-ex 1775 df-nf 1779 df-sb 2061 df-mo 2530 df-eu 2559 df-clab 2706 df-cleq 2720 df-clel 2806 df-nfc 2881 df-ne 2938 df-nel 3044 df-ral 3059 df-rex 3068 df-rmo 3373 df-reu 3374 df-rab 3430 df-v 3473 df-sbc 3777 df-csb 3893 df-dif 3950 df-un 3952 df-in 3954 df-ss 3964 df-pss 3966 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 4909 df-int 4950 df-iun 4998 df-iin 4999 df-br 5149 df-opab 5211 df-mpt 5232 df-tr 5266 df-id 5576 df-eprel 5582 df-po 5590 df-so 5591 df-fr 5633 df-se 5634 df-we 5635 df-xp 5684 df-rel 5685 df-cnv 5686 df-co 5687 df-dm 5688 df-rn 5689 df-res 5690 df-ima 5691 df-pred 6305 df-ord 6372 df-on 6373 df-lim 6374 df-suc 6375 df-iota 6500 df-fun 6550 df-fn 6551 df-f 6552 df-f1 6553 df-fo 6554 df-f1o 6555 df-fv 6556 df-isom 6557 df-riota 7376 df-ov 7423 df-oprab 7424 df-mpo 7425 df-of 7685 df-om 7871 df-1st 7993 df-2nd 7994 df-supp 8166 df-frecs 8287 df-wrecs 8318 df-recs 8392 df-rdg 8431 df-1o 8487 df-er 8725 df-map 8847 df-ixp 8917 df-en 8965 df-dom 8966 df-sdom 8967 df-fin 8968 df-fsupp 9387 df-sup 9466 df-oi 9534 df-card 9963 df-pnf 11281 df-mnf 11282 df-xr 11283 df-ltxr 11284 df-le 11285 df-sub 11477 df-neg 11478 df-nn 12244 df-2 12306 df-3 12307 df-4 12308 df-5 12309 df-6 12310 df-7 12311 df-8 12312 df-9 12313 df-n0 12504 df-z 12590 df-dec 12709 df-uz 12854 df-fz 13518 df-fzo 13661 df-seq 14000 df-hash 14323 df-struct 17116 df-sets 17133 df-slot 17151 df-ndx 17163 df-base 17181 df-ress 17210 df-plusg 17246 df-mulr 17247 df-sca 17249 df-vsca 17250 df-ip 17251 df-tset 17252 df-ple 17253 df-ds 17255 df-hom 17257 df-cco 17258 df-0g 17423 df-gsum 17424 df-prds 17429 df-pws 17431 df-mre 17566 df-mrc 17567 df-acs 17569 df-mgm 18600 df-sgrp 18679 df-mnd 18695 df-mhm 18740 df-submnd 18741 df-grp 18893 df-minusg 18894 df-sbg 18895 df-mulg 19024 df-subg 19078 df-ghm 19168 df-cntz 19268 df-cmn 19737 df-abl 19738 df-mgp 20075 df-rng 20093 df-ur 20122 df-ring 20175 df-subrg 20508 df-lmod 20745 df-lss 20816 df-sra 21058 df-rgmod 21059 df-dsmm 21666 df-frlm 21681 df-mamu 22299 df-mat 22321 df-smat 33395

This theorem is referenced by: (None)

W3C validator