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 33767

Description: The submatrix of the identity matrix obtained by removing the ith row and the ith column is an identity matrix. Cf. 1marepvsma1 22446. (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 2729	. . . . 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 13913	. . . . . . . 8 ⊢ (1...𝑁) ∈ Fin
8		eqid 2729	. . . . . . . . 9 ⊢ ((1...𝑁) Mat 𝑅) = ((1...𝑁) Mat 𝑅)
9		eqid 2729	. . . . . . . . 9 ⊢ (Base‘((1...𝑁) Mat 𝑅)) = (Base‘((1...𝑁) Mat 𝑅))
10		1smat1.1	. . . . . . . . 9 ⊢ 1 = (1_r‘((1...𝑁) Mat 𝑅))
11	8, 9, 10	mat1bas 22312	. . . . . . . 8 ⊢ ((𝑅 ∈ Ring ∧ (1...𝑁) ∈ Fin) → 1 ∈ (Base‘((1...𝑁) Mat 𝑅)))
12	6, 7, 11	sylancl 586	. . . . . . 7 ⊢ (𝜑 → 1 ∈ (Base‘((1...𝑁) Mat 𝑅)))
13		eqid 2729	. . . . . . . . 9 ⊢ (Base‘𝑅) = (Base‘𝑅)
14	8, 13	matbas2 22284	. . . . . . . 8 ⊢ (((1...𝑁) ∈ Fin ∧ 𝑅 ∈ Ring) → ((Base‘𝑅) ↑_m ((1...𝑁) × (1...𝑁))) = (Base‘((1...𝑁) Mat 𝑅)))
15	7, 6, 14	sylancr 587	. . . . . . 7 ⊢ (𝜑 → ((Base‘𝑅) ↑_m ((1...𝑁) × (1...𝑁))) = (Base‘((1...𝑁) Mat 𝑅)))
16	12, 15	eleqtrrd 2831	. . . . . 6 ⊢ (𝜑 → 1 ∈ ((Base‘𝑅) ↑_m ((1...𝑁) × (1...𝑁))))
17	16	adantr 480	. . . . 5 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → 1 ∈ ((Base‘𝑅) ↑_m ((1...𝑁) × (1...𝑁))))
18		fz1ssnn 13492	. . . . . 6 ⊢ (1...(𝑁 − 1)) ⊆ ℕ
19		simprl 770	. . . . . 6 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → 𝑖 ∈ (1...(𝑁 − 1)))
20	18, 19	sselid 3941	. . . . 5 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → 𝑖 ∈ ℕ)
21		simprr 772	. . . . . 6 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → 𝑗 ∈ (1...(𝑁 − 1)))
22	18, 21	sselid 3941	. . . . 5 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → 𝑗 ∈ ℕ)
23		eqidd 2730	. . . . 5 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → if(𝑖 < 𝐼, 𝑖, (𝑖 + 1)) = if(𝑖 < 𝐼, 𝑖, (𝑖 + 1)))
24		eqidd 2730	. . . . 5 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → if(𝑗 < 𝐼, 𝑗, (𝑗 + 1)) = if(𝑗 < 𝐼, 𝑗, (𝑗 + 1)))
25	1, 3, 3, 5, 5, 17, 20, 22, 23, 24	smatlem 33760	. . . 4 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → (𝑖(𝐼(subMat1‘ 1 )𝐼)𝑗) = (if(𝑖 < 𝐼, 𝑖, (𝑖 + 1)) 1 if(𝑗 < 𝐼, 𝑗, (𝑗 + 1))))
26		eqid 2729	. . . . 5 ⊢ (1_r‘𝑅) = (1_r‘𝑅)
27		eqid 2729	. . . . 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 12812	. . . . . . . . 9 ⊢ ℕ = (ℤ_≥‘1)
31	20, 30	eleqtrdi 2838	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → 𝑖 ∈ (ℤ_≥‘1))
32		fznatpl1 13515	. . . . . . . . 9 ⊢ ((𝑁 ∈ ℕ ∧ 𝑖 ∈ (1...(𝑁 − 1))) → (𝑖 + 1) ∈ (1...𝑁))
33	3, 19, 32	syl2anc 584	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → (𝑖 + 1) ∈ (1...𝑁))
34		peano2fzr 13474	. . . . . . . 8 ⊢ ((𝑖 ∈ (ℤ_≥‘1) ∧ (𝑖 + 1) ∈ (1...𝑁)) → 𝑖 ∈ (1...𝑁))
35	31, 33, 34	syl2anc 584	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → 𝑖 ∈ (1...𝑁))
36	35, 33	jca 511	. . . . . 6 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → (𝑖 ∈ (1...𝑁) ∧ (𝑖 + 1) ∈ (1...𝑁)))
37		eleq1 2816	. . . . . . 7 ⊢ (𝑖 = if(𝑖 < 𝐼, 𝑖, (𝑖 + 1)) → (𝑖 ∈ (1...𝑁) ↔ if(𝑖 < 𝐼, 𝑖, (𝑖 + 1)) ∈ (1...𝑁)))
38		eleq1 2816	. . . . . . 7 ⊢ ((𝑖 + 1) = if(𝑖 < 𝐼, 𝑖, (𝑖 + 1)) → ((𝑖 + 1) ∈ (1...𝑁) ↔ if(𝑖 < 𝐼, 𝑖, (𝑖 + 1)) ∈ (1...𝑁)))
39	37, 38	ifboth 4524	. . . . . 6 ⊢ ((𝑖 ∈ (1...𝑁) ∧ (𝑖 + 1) ∈ (1...𝑁)) → if(𝑖 < 𝐼, 𝑖, (𝑖 + 1)) ∈ (1...𝑁))
40	36, 39	syl 17	. . . . 5 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → if(𝑖 < 𝐼, 𝑖, (𝑖 + 1)) ∈ (1...𝑁))
41	22, 30	eleqtrdi 2838	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → 𝑗 ∈ (ℤ_≥‘1))
42		fznatpl1 13515	. . . . . . . . 9 ⊢ ((𝑁 ∈ ℕ ∧ 𝑗 ∈ (1...(𝑁 − 1))) → (𝑗 + 1) ∈ (1...𝑁))
43	3, 21, 42	syl2anc 584	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → (𝑗 + 1) ∈ (1...𝑁))
44		peano2fzr 13474	. . . . . . . 8 ⊢ ((𝑗 ∈ (ℤ_≥‘1) ∧ (𝑗 + 1) ∈ (1...𝑁)) → 𝑗 ∈ (1...𝑁))
45	41, 43, 44	syl2anc 584	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → 𝑗 ∈ (1...𝑁))
46	45, 43	jca 511	. . . . . 6 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → (𝑗 ∈ (1...𝑁) ∧ (𝑗 + 1) ∈ (1...𝑁)))
47		eleq1 2816	. . . . . . 7 ⊢ (𝑗 = if(𝑗 < 𝐼, 𝑗, (𝑗 + 1)) → (𝑗 ∈ (1...𝑁) ↔ if(𝑗 < 𝐼, 𝑗, (𝑗 + 1)) ∈ (1...𝑁)))
48		eleq1 2816	. . . . . . 7 ⊢ ((𝑗 + 1) = if(𝑗 < 𝐼, 𝑗, (𝑗 + 1)) → ((𝑗 + 1) ∈ (1...𝑁) ↔ if(𝑗 < 𝐼, 𝑗, (𝑗 + 1)) ∈ (1...𝑁)))
49	47, 48	ifboth 4524	. . . . . 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 22311	. . . 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 4492	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ 𝑖 < 𝐼) → if(𝑖 < 𝐼, 𝑖, (𝑖 + 1)) = 𝑖)
54	53	eqeq1d 2731	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ 𝑖 < 𝐼) → (if(𝑖 < 𝐼, 𝑖, (𝑖 + 1)) = if(𝑗 < 𝐼, 𝑗, (𝑗 + 1)) ↔ 𝑖 = if(𝑗 < 𝐼, 𝑗, (𝑗 + 1))))
55		simpr 484	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ 𝑖 < 𝐼) ∧ 𝑗 < 𝐼) → 𝑗 < 𝐼)
56	55	iftrued 4492	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ 𝑖 < 𝐼) ∧ 𝑗 < 𝐼) → if(𝑗 < 𝐼, 𝑗, (𝑗 + 1)) = 𝑗)
57	56	eqeq2d 2740	. . . . . . . . 9 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ 𝑖 < 𝐼) ∧ 𝑗 < 𝐼) → (𝑖 = if(𝑗 < 𝐼, 𝑗, (𝑗 + 1)) ↔ 𝑖 = 𝑗))
58		simpr 484	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ 𝑖 < 𝐼) ∧ ¬ 𝑗 < 𝐼) → ¬ 𝑗 < 𝐼)
59	58	iffalsed 4495	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ 𝑖 < 𝐼) ∧ ¬ 𝑗 < 𝐼) → if(𝑗 < 𝐼, 𝑗, (𝑗 + 1)) = (𝑗 + 1))
60	59	eqeq2d 2740	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ 𝑖 < 𝐼) ∧ ¬ 𝑗 < 𝐼) → (𝑖 = if(𝑗 < 𝐼, 𝑗, (𝑗 + 1)) ↔ 𝑖 = (𝑗 + 1)))
61	20	nnred 12177	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → 𝑖 ∈ ℝ)
62	61	ad2antrr 726	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ 𝑖 < 𝐼) ∧ ¬ 𝑗 < 𝐼) → 𝑖 ∈ ℝ)
63		fz1ssnn 13492	. . . . . . . . . . . . . . . . 17 ⊢ (1...𝑁) ⊆ ℕ
64	63, 4	sselid 3941	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝐼 ∈ ℕ)
65	64	nnred 12177	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝐼 ∈ ℝ)
66	65	ad3antrrr 730	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ 𝑖 < 𝐼) ∧ ¬ 𝑗 < 𝐼) → 𝐼 ∈ ℝ)
67	22	nnred 12177	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → 𝑗 ∈ ℝ)
68	67	ad2antrr 726	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ 𝑖 < 𝐼) ∧ ¬ 𝑗 < 𝐼) → 𝑗 ∈ ℝ)
69		1red 11151	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ 𝑖 < 𝐼) ∧ ¬ 𝑗 < 𝐼) → 1 ∈ ℝ)
70	68, 69	readdcld 11179	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ 𝑖 < 𝐼) ∧ ¬ 𝑗 < 𝐼) → (𝑗 + 1) ∈ ℝ)
71	52	adantr 480	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ 𝑖 < 𝐼) ∧ ¬ 𝑗 < 𝐼) → 𝑖 < 𝐼)
72	64	nnzd 12532	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝐼 ∈ ℤ)
73	72	ad3antrrr 730	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ 𝑖 < 𝐼) ∧ ¬ 𝑗 < 𝐼) → 𝐼 ∈ ℤ)
74	22	nnzd 12532	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → 𝑗 ∈ ℤ)
75	74	ad2antrr 726	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ 𝑖 < 𝐼) ∧ ¬ 𝑗 < 𝐼) → 𝑗 ∈ ℤ)
76	66, 68, 58	nltled 11300	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ 𝑖 < 𝐼) ∧ ¬ 𝑗 < 𝐼) → 𝐼 ≤ 𝑗)
77		zleltp1 12560	. . . . . . . . . . . . . . . 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 11311	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ 𝑖 < 𝐼) ∧ ¬ 𝑗 < 𝐼) → 𝑖 < (𝑗 + 1))
81	62, 80	ltned 11286	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ 𝑖 < 𝐼) ∧ ¬ 𝑗 < 𝐼) → 𝑖 ≠ (𝑗 + 1))
82	81	neneqd 2930	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ 𝑖 < 𝐼) ∧ ¬ 𝑗 < 𝐼) → ¬ 𝑖 = (𝑗 + 1))
83	62, 66, 68, 71, 76	ltletrd 11310	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ 𝑖 < 𝐼) ∧ ¬ 𝑗 < 𝐼) → 𝑖 < 𝑗)
84	62, 83	ltned 11286	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ 𝑖 < 𝐼) ∧ ¬ 𝑗 < 𝐼) → 𝑖 ≠ 𝑗)
85	84	neneqd 2930	. . . . . . . . . . 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 4495	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) → if(𝑖 < 𝐼, 𝑖, (𝑖 + 1)) = (𝑖 + 1))
92	91	eqeq1d 2731	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) → (if(𝑖 < 𝐼, 𝑖, (𝑖 + 1)) = if(𝑗 < 𝐼, 𝑗, (𝑗 + 1)) ↔ (𝑖 + 1) = if(𝑗 < 𝐼, 𝑗, (𝑗 + 1))))
93		simpr 484	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) ∧ 𝑗 < 𝐼) → 𝑗 < 𝐼)
94	93	iftrued 4492	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) ∧ 𝑗 < 𝐼) → if(𝑗 < 𝐼, 𝑗, (𝑗 + 1)) = 𝑗)
95	94	eqeq2d 2740	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) ∧ 𝑗 < 𝐼) → ((𝑖 + 1) = if(𝑗 < 𝐼, 𝑗, (𝑗 + 1)) ↔ (𝑖 + 1) = 𝑗))
96	67	ad2antrr 726	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) ∧ 𝑗 < 𝐼) → 𝑗 ∈ ℝ)
97	65	ad3antrrr 730	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) ∧ 𝑗 < 𝐼) → 𝐼 ∈ ℝ)
98	61	ad2antrr 726	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) ∧ 𝑗 < 𝐼) → 𝑖 ∈ ℝ)
99		1red 11151	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) ∧ 𝑗 < 𝐼) → 1 ∈ ℝ)
100	98, 99	readdcld 11179	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) ∧ 𝑗 < 𝐼) → (𝑖 + 1) ∈ ℝ)
101	72	ad3antrrr 730	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) ∧ 𝑗 < 𝐼) → 𝐼 ∈ ℤ)
102	20	nnzd 12532	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → 𝑖 ∈ ℤ)
103	102	ad2antrr 726	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) ∧ 𝑗 < 𝐼) → 𝑖 ∈ ℤ)
104	90	adantr 480	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) ∧ 𝑗 < 𝐼) → ¬ 𝑖 < 𝐼)
105	97, 98, 104	nltled 11300	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) ∧ 𝑗 < 𝐼) → 𝐼 ≤ 𝑖)
106		zleltp1 12560	. . . . . . . . . . . . . . . . 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 11311	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) ∧ 𝑗 < 𝐼) → 𝑗 < (𝑖 + 1))
110	96, 109	ltned 11286	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) ∧ 𝑗 < 𝐼) → 𝑗 ≠ (𝑖 + 1))
111	110	necomd 2980	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) ∧ 𝑗 < 𝐼) → (𝑖 + 1) ≠ 𝑗)
112	111	neneqd 2930	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) ∧ 𝑗 < 𝐼) → ¬ (𝑖 + 1) = 𝑗)
113	96, 97, 98, 93, 105	ltletrd 11310	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) ∧ 𝑗 < 𝐼) → 𝑗 < 𝑖)
114	96, 113	ltned 11286	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) ∧ 𝑗 < 𝐼) → 𝑗 ≠ 𝑖)
115	114	necomd 2980	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) ∧ 𝑗 < 𝐼) → 𝑖 ≠ 𝑗)
116	115	neneqd 2930	. . . . . . . . . . 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 4495	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) ∧ ¬ 𝑗 < 𝐼) → if(𝑗 < 𝐼, 𝑗, (𝑗 + 1)) = (𝑗 + 1))
121	120	eqeq2d 2740	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) ∧ ¬ 𝑗 < 𝐼) → ((𝑖 + 1) = if(𝑗 < 𝐼, 𝑗, (𝑗 + 1)) ↔ (𝑖 + 1) = (𝑗 + 1)))
122	20	nncnd 12178	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → 𝑖 ∈ ℂ)
123	122	ad3antrrr 730	. . . . . . . . . . . 12 ⊢ (((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) ∧ ¬ 𝑗 < 𝐼) ∧ (𝑖 + 1) = (𝑗 + 1)) → 𝑖 ∈ ℂ)
124	22	nncnd 12178	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → 𝑗 ∈ ℂ)
125	124	ad3antrrr 730	. . . . . . . . . . . 12 ⊢ (((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) ∧ ¬ 𝑗 < 𝐼) ∧ (𝑖 + 1) = (𝑗 + 1)) → 𝑗 ∈ ℂ)
126		1cnd 11145	. . . . . . . . . . . 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 11356	. . . . . . . . . . 11 ⊢ (((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) ∧ ¬ 𝑗 < 𝐼) ∧ (𝑖 + 1) = (𝑗 + 1)) → 𝑖 = 𝑗)
129		simpr 484	. . . . . . . . . . . 12 ⊢ (((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) ∧ ¬ 𝑗 < 𝐼) ∧ 𝑖 = 𝑗) → 𝑖 = 𝑗)
130	129	oveq1d 7384	. . . . . . . . . . 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 4508	. . . . 5 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → if(if(𝑖 < 𝐼, 𝑖, (𝑖 + 1)) = if(𝑗 < 𝐼, 𝑗, (𝑗 + 1)), (1_r‘𝑅), (0_g‘𝑅)) = if(𝑖 = 𝑗, (1_r‘𝑅), (0_g‘𝑅)))
137		eqid 2729	. . . . . 6 ⊢ ((1...(𝑁 − 1)) Mat 𝑅) = ((1...(𝑁 − 1)) Mat 𝑅)
138		fzfid 13914	. . . . . 6 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → (1...(𝑁 − 1)) ∈ Fin)
139		eqid 2729	. . . . . 6 ⊢ (1_r‘((1...(𝑁 − 1)) Mat 𝑅)) = (1_r‘((1...(𝑁 − 1)) Mat 𝑅))
140	137, 26, 27, 138, 29, 19, 21, 139	mat1ov 22311	. . . . 5 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → (𝑖(1_r‘((1...(𝑁 − 1)) Mat 𝑅))𝑗) = if(𝑖 = 𝑗, (1_r‘𝑅), (0_g‘𝑅)))
141	136, 140	eqtr4d 2767	. . . 4 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → if(if(𝑖 < 𝐼, 𝑖, (𝑖 + 1)) = if(𝑗 < 𝐼, 𝑗, (𝑗 + 1)), (1_r‘𝑅), (0_g‘𝑅)) = (𝑖(1_r‘((1...(𝑁 − 1)) Mat 𝑅))𝑗))
142	25, 51, 141	3eqtrd 2768	. . 3 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → (𝑖(𝐼(subMat1‘ 1 )𝐼)𝑗) = (𝑖(1_r‘((1...(𝑁 − 1)) Mat 𝑅))𝑗))
143	142	ralrimivva 3178	. 2 ⊢ (𝜑 → ∀𝑖 ∈ (1...(𝑁 − 1))∀𝑗 ∈ (1...(𝑁 − 1))(𝑖(𝐼(subMat1‘ 1 )𝐼)𝑗) = (𝑖(1_r‘((1...(𝑁 − 1)) Mat 𝑅))𝑗))
144	1, 2, 2, 4, 4, 16	smatrcl 33759	. . . 4 ⊢ (𝜑 → (𝐼(subMat1‘ 1 )𝐼) ∈ ((Base‘𝑅) ↑_m ((1...(𝑁 − 1)) × (1...(𝑁 − 1)))))
145		elmapfn 8815	. . . 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 13913	. . . . . 6 ⊢ (1...(𝑁 − 1)) ∈ Fin
148		eqid 2729	. . . . . . 7 ⊢ (Base‘((1...(𝑁 − 1)) Mat 𝑅)) = (Base‘((1...(𝑁 − 1)) Mat 𝑅))
149	137, 148, 139	mat1bas 22312	. . . . . 6 ⊢ ((𝑅 ∈ Ring ∧ (1...(𝑁 − 1)) ∈ Fin) → (1_r‘((1...(𝑁 − 1)) Mat 𝑅)) ∈ (Base‘((1...(𝑁 − 1)) Mat 𝑅)))
150	6, 147, 149	sylancl 586	. . . . 5 ⊢ (𝜑 → (1_r‘((1...(𝑁 − 1)) Mat 𝑅)) ∈ (Base‘((1...(𝑁 − 1)) Mat 𝑅)))
151	137, 13	matbas2 22284	. . . . . 6 ⊢ (((1...(𝑁 − 1)) ∈ Fin ∧ 𝑅 ∈ Ring) → ((Base‘𝑅) ↑_m ((1...(𝑁 − 1)) × (1...(𝑁 − 1)))) = (Base‘((1...(𝑁 − 1)) Mat 𝑅)))
152	147, 6, 151	sylancr 587	. . . . 5 ⊢ (𝜑 → ((Base‘𝑅) ↑_m ((1...(𝑁 − 1)) × (1...(𝑁 − 1)))) = (Base‘((1...(𝑁 − 1)) Mat 𝑅)))
153	150, 152	eleqtrrd 2831	. . . 4 ⊢ (𝜑 → (1_r‘((1...(𝑁 − 1)) Mat 𝑅)) ∈ ((Base‘𝑅) ↑_m ((1...(𝑁 − 1)) × (1...(𝑁 − 1)))))
154		elmapfn 8815	. . . 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 7499	. . 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 584	. 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 206 ∧ wa 395 = wceq 1540 ∈ wcel 2109 ∀wral 3044 ifcif 4484 class class class wbr 5102 × cxp 5629 Fn wfn 6494 ‘cfv 6499 (class class class)co 7369 ↑_m cmap 8776 Fincfn 8895 ℂcc 11042 ℝcr 11043 1c1 11045 + caddc 11047 < clt 11184 ≤ cle 11185 − cmin 11381 ℕcn 12162 ℤcz 12505 ℤ_≥cuz 12769 ...cfz 13444 Basecbs 17155 0_gc0g 17378 1_rcur 20066 Ringcrg 20118 Mat cmat 22270 subMat1csmat 33756

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1795 ax-4 1809 ax-5 1910 ax-6 1967 ax-7 2008 ax-8 2111 ax-9 2119 ax-10 2142 ax-11 2158 ax-12 2178 ax-ext 2701 ax-rep 5229 ax-sep 5246 ax-nul 5256 ax-pow 5315 ax-pr 5382 ax-un 7691 ax-cnex 11100 ax-resscn 11101 ax-1cn 11102 ax-icn 11103 ax-addcl 11104 ax-addrcl 11105 ax-mulcl 11106 ax-mulrcl 11107 ax-mulcom 11108 ax-addass 11109 ax-mulass 11110 ax-distr 11111 ax-i2m1 11112 ax-1ne0 11113 ax-1rid 11114 ax-rnegex 11115 ax-rrecex 11116 ax-cnre 11117 ax-pre-lttri 11118 ax-pre-lttrn 11119 ax-pre-ltadd 11120 ax-pre-mulgt0 11121

This theorem depends on definitions: df-bi 207 df-an 396 df-or 848 df-3or 1087 df-3an 1088 df-tru 1543 df-fal 1553 df-ex 1780 df-nf 1784 df-sb 2066 df-mo 2533 df-eu 2562 df-clab 2708 df-cleq 2721 df-clel 2803 df-nfc 2878 df-ne 2926 df-nel 3030 df-ral 3045 df-rex 3054 df-rmo 3351 df-reu 3352 df-rab 3403 df-v 3446 df-sbc 3751 df-csb 3860 df-dif 3914 df-un 3916 df-in 3918 df-ss 3928 df-pss 3931 df-nul 4293 df-if 4485 df-pw 4561 df-sn 4586 df-pr 4588 df-tp 4590 df-op 4592 df-ot 4594 df-uni 4868 df-int 4907 df-iun 4953 df-iin 4954 df-br 5103 df-opab 5165 df-mpt 5184 df-tr 5210 df-id 5526 df-eprel 5531 df-po 5539 df-so 5540 df-fr 5584 df-se 5585 df-we 5586 df-xp 5637 df-rel 5638 df-cnv 5639 df-co 5640 df-dm 5641 df-rn 5642 df-res 5643 df-ima 5644 df-pred 6262 df-ord 6323 df-on 6324 df-lim 6325 df-suc 6326 df-iota 6452 df-fun 6501 df-fn 6502 df-f 6503 df-f1 6504 df-fo 6505 df-f1o 6506 df-fv 6507 df-isom 6508 df-riota 7326 df-ov 7372 df-oprab 7373 df-mpo 7374 df-of 7633 df-om 7823 df-1st 7947 df-2nd 7948 df-supp 8117 df-frecs 8237 df-wrecs 8268 df-recs 8317 df-rdg 8355 df-1o 8411 df-2o 8412 df-er 8648 df-map 8778 df-ixp 8848 df-en 8896 df-dom 8897 df-sdom 8898 df-fin 8899 df-fsupp 9289 df-sup 9369 df-oi 9439 df-card 9868 df-pnf 11186 df-mnf 11187 df-xr 11188 df-ltxr 11189 df-le 11190 df-sub 11383 df-neg 11384 df-nn 12163 df-2 12225 df-3 12226 df-4 12227 df-5 12228 df-6 12229 df-7 12230 df-8 12231 df-9 12232 df-n0 12419 df-z 12506 df-dec 12626 df-uz 12770 df-fz 13445 df-fzo 13592 df-seq 13943 df-hash 14272 df-struct 17093 df-sets 17110 df-slot 17128 df-ndx 17140 df-base 17156 df-ress 17177 df-plusg 17209 df-mulr 17210 df-sca 17212 df-vsca 17213 df-ip 17214 df-tset 17215 df-ple 17216 df-ds 17218 df-hom 17220 df-cco 17221 df-0g 17380 df-gsum 17381 df-prds 17386 df-pws 17388 df-mre 17523 df-mrc 17524 df-acs 17526 df-mgm 18543 df-sgrp 18622 df-mnd 18638 df-mhm 18686 df-submnd 18687 df-grp 18844 df-minusg 18845 df-sbg 18846 df-mulg 18976 df-subg 19031 df-ghm 19121 df-cntz 19225 df-cmn 19688 df-abl 19689 df-mgp 20026 df-rng 20038 df-ur 20067 df-ring 20120 df-subrg 20455 df-lmod 20744 df-lss 20814 df-sra 21056 df-rgmod 21057 df-dsmm 21617 df-frlm 21632 df-mamu 22254 df-mat 22271 df-smat 33757

This theorem is referenced by: (None)

W3C validator