Theorem 1smat1 33556

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

Hypotheses

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

Assertion

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

Proof of Theorem 1smat1

Dummy variables 𝑖 𝑗 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		eqid 2725	. . . . 5 ⊢ (𝐼(subMat1‘ 1 )𝐼) = (𝐼(subMat1‘ 1 )𝐼)
2		1smat1.n	. . . . . 6 ⊢ (𝜑 → 𝑁 ∈ ℕ)
3	2	adantr 479	. . . . 5 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → 𝑁 ∈ ℕ)
4		1smat1.i	. . . . . 6 ⊢ (𝜑 → 𝐼 ∈ (1...𝑁))
5	4	adantr 479	. . . . 5 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → 𝐼 ∈ (1...𝑁))
6		1smat1.r	. . . . . . . 8 ⊢ (𝜑 → 𝑅 ∈ Ring)
7		fzfi 13978	. . . . . . . 8 ⊢ (1...𝑁) ∈ Fin
8		eqid 2725	. . . . . . . . 9 ⊢ ((1...𝑁) Mat 𝑅) = ((1...𝑁) Mat 𝑅)
9		eqid 2725	. . . . . . . . 9 ⊢ (Base‘((1...𝑁) Mat 𝑅)) = (Base‘((1...𝑁) Mat 𝑅))
10		1smat1.1	. . . . . . . . 9 ⊢ 1 = (1r‘((1...𝑁) Mat 𝑅))
11	8, 9, 10	mat1bas 22412	. . . . . . . 8 ⊢ ((𝑅 ∈ Ring ∧ (1...𝑁) ∈ Fin) → 1 ∈ (Base‘((1...𝑁) Mat 𝑅)))
12	6, 7, 11	sylancl 584	. . . . . . 7 ⊢ (𝜑 → 1 ∈ (Base‘((1...𝑁) Mat 𝑅)))
13		eqid 2725	. . . . . . . . 9 ⊢ (Base‘𝑅) = (Base‘𝑅)
14	8, 13	matbas2 22384	. . . . . . . 8 ⊢ (((1...𝑁) ∈ Fin ∧ 𝑅 ∈ Ring) → ((Base‘𝑅) ↑m ((1...𝑁) × (1...𝑁))) = (Base‘((1...𝑁) Mat 𝑅)))
15	7, 6, 14	sylancr 585	. . . . . . 7 ⊢ (𝜑 → ((Base‘𝑅) ↑m ((1...𝑁) × (1...𝑁))) = (Base‘((1...𝑁) Mat 𝑅)))
16	12, 15	eleqtrrd 2828	. . . . . 6 ⊢ (𝜑 → 1 ∈ ((Base‘𝑅) ↑m ((1...𝑁) × (1...𝑁))))
17	16	adantr 479	. . . . 5 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → 1 ∈ ((Base‘𝑅) ↑m ((1...𝑁) × (1...𝑁))))
18		fz1ssnn 13572	. . . . . 6 ⊢ (1...(𝑁 − 1)) ⊆ ℕ
19		simprl 769	. . . . . 6 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → 𝑖 ∈ (1...(𝑁 − 1)))
20	18, 19	sselid 3974	. . . . 5 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → 𝑖 ∈ ℕ)
21		simprr 771	. . . . . 6 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → 𝑗 ∈ (1...(𝑁 − 1)))
22	18, 21	sselid 3974	. . . . 5 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → 𝑗 ∈ ℕ)
23		eqidd 2726	. . . . 5 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → if(𝑖 < 𝐼, 𝑖, (𝑖 + 1)) = if(𝑖 < 𝐼, 𝑖, (𝑖 + 1)))
24		eqidd 2726	. . . . 5 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → if(𝑗 < 𝐼, 𝑗, (𝑗 + 1)) = if(𝑗 < 𝐼, 𝑗, (𝑗 + 1)))
25	1, 3, 3, 5, 5, 17, 20, 22, 23, 24	smatlem 33549	. . . 4 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → (𝑖(𝐼(subMat1‘ 1 )𝐼)𝑗) = (if(𝑖 < 𝐼, 𝑖, (𝑖 + 1)) 1 if(𝑗 < 𝐼, 𝑗, (𝑗 + 1))))
26		eqid 2725	. . . . 5 ⊢ (1r‘𝑅) = (1r‘𝑅)
27		eqid 2725	. . . . 5 ⊢ (0g‘𝑅) = (0g‘𝑅)
28	7	a1i 11	. . . . 5 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → (1...𝑁) ∈ Fin)
29	6	adantr 479	. . . . 5 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → 𝑅 ∈ Ring)
30		nnuz 12903	. . . . . . . . 9 ⊢ ℕ = (ℤ≥‘1)
31	20, 30	eleqtrdi 2835	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → 𝑖 ∈ (ℤ≥‘1))
32		fznatpl1 13595	. . . . . . . . 9 ⊢ ((𝑁 ∈ ℕ ∧ 𝑖 ∈ (1...(𝑁 − 1))) → (𝑖 + 1) ∈ (1...𝑁))
33	3, 19, 32	syl2anc 582	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → (𝑖 + 1) ∈ (1...𝑁))
34		peano2fzr 13554	. . . . . . . 8 ⊢ ((𝑖 ∈ (ℤ≥‘1) ∧ (𝑖 + 1) ∈ (1...𝑁)) → 𝑖 ∈ (1...𝑁))
35	31, 33, 34	syl2anc 582	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → 𝑖 ∈ (1...𝑁))
36	35, 33	jca 510	. . . . . 6 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → (𝑖 ∈ (1...𝑁) ∧ (𝑖 + 1) ∈ (1...𝑁)))
37		eleq1 2813	. . . . . . 7 ⊢ (𝑖 = if(𝑖 < 𝐼, 𝑖, (𝑖 + 1)) → (𝑖 ∈ (1...𝑁) ↔ if(𝑖 < 𝐼, 𝑖, (𝑖 + 1)) ∈ (1...𝑁)))
38		eleq1 2813	. . . . . . 7 ⊢ ((𝑖 + 1) = if(𝑖 < 𝐼, 𝑖, (𝑖 + 1)) → ((𝑖 + 1) ∈ (1...𝑁) ↔ if(𝑖 < 𝐼, 𝑖, (𝑖 + 1)) ∈ (1...𝑁)))
39	37, 38	ifboth 4569	. . . . . 6 ⊢ ((𝑖 ∈ (1...𝑁) ∧ (𝑖 + 1) ∈ (1...𝑁)) → if(𝑖 < 𝐼, 𝑖, (𝑖 + 1)) ∈ (1...𝑁))
40	36, 39	syl 17	. . . . 5 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → if(𝑖 < 𝐼, 𝑖, (𝑖 + 1)) ∈ (1...𝑁))
41	22, 30	eleqtrdi 2835	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → 𝑗 ∈ (ℤ≥‘1))
42		fznatpl1 13595	. . . . . . . . 9 ⊢ ((𝑁 ∈ ℕ ∧ 𝑗 ∈ (1...(𝑁 − 1))) → (𝑗 + 1) ∈ (1...𝑁))
43	3, 21, 42	syl2anc 582	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → (𝑗 + 1) ∈ (1...𝑁))
44		peano2fzr 13554	. . . . . . . 8 ⊢ ((𝑗 ∈ (ℤ≥‘1) ∧ (𝑗 + 1) ∈ (1...𝑁)) → 𝑗 ∈ (1...𝑁))
45	41, 43, 44	syl2anc 582	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → 𝑗 ∈ (1...𝑁))
46	45, 43	jca 510	. . . . . 6 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → (𝑗 ∈ (1...𝑁) ∧ (𝑗 + 1) ∈ (1...𝑁)))
47		eleq1 2813	. . . . . . 7 ⊢ (𝑗 = if(𝑗 < 𝐼, 𝑗, (𝑗 + 1)) → (𝑗 ∈ (1...𝑁) ↔ if(𝑗 < 𝐼, 𝑗, (𝑗 + 1)) ∈ (1...𝑁)))
48		eleq1 2813	. . . . . . 7 ⊢ ((𝑗 + 1) = if(𝑗 < 𝐼, 𝑗, (𝑗 + 1)) → ((𝑗 + 1) ∈ (1...𝑁) ↔ if(𝑗 < 𝐼, 𝑗, (𝑗 + 1)) ∈ (1...𝑁)))
49	47, 48	ifboth 4569	. . . . . 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 22411	. . . 4 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → (if(𝑖 < 𝐼, 𝑖, (𝑖 + 1)) 1 if(𝑗 < 𝐼, 𝑗, (𝑗 + 1))) = if(if(𝑖 < 𝐼, 𝑖, (𝑖 + 1)) = if(𝑗 < 𝐼, 𝑗, (𝑗 + 1)), (1r‘𝑅), (0g‘𝑅)))
52		simpr 483	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ 𝑖 < 𝐼) → 𝑖 < 𝐼)
53	52	iftrued 4538	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ 𝑖 < 𝐼) → if(𝑖 < 𝐼, 𝑖, (𝑖 + 1)) = 𝑖)
54	53	eqeq1d 2727	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ 𝑖 < 𝐼) → (if(𝑖 < 𝐼, 𝑖, (𝑖 + 1)) = if(𝑗 < 𝐼, 𝑗, (𝑗 + 1)) ↔ 𝑖 = if(𝑗 < 𝐼, 𝑗, (𝑗 + 1))))
55		simpr 483	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ 𝑖 < 𝐼) ∧ 𝑗 < 𝐼) → 𝑗 < 𝐼)
56	55	iftrued 4538	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ 𝑖 < 𝐼) ∧ 𝑗 < 𝐼) → if(𝑗 < 𝐼, 𝑗, (𝑗 + 1)) = 𝑗)
57	56	eqeq2d 2736	. . . . . . . . 9 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ 𝑖 < 𝐼) ∧ 𝑗 < 𝐼) → (𝑖 = if(𝑗 < 𝐼, 𝑗, (𝑗 + 1)) ↔ 𝑖 = 𝑗))
58		simpr 483	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ 𝑖 < 𝐼) ∧ ¬ 𝑗 < 𝐼) → ¬ 𝑗 < 𝐼)
59	58	iffalsed 4541	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ 𝑖 < 𝐼) ∧ ¬ 𝑗 < 𝐼) → if(𝑗 < 𝐼, 𝑗, (𝑗 + 1)) = (𝑗 + 1))
60	59	eqeq2d 2736	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ 𝑖 < 𝐼) ∧ ¬ 𝑗 < 𝐼) → (𝑖 = if(𝑗 < 𝐼, 𝑗, (𝑗 + 1)) ↔ 𝑖 = (𝑗 + 1)))
61	20	nnred 12265	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → 𝑖 ∈ ℝ)
62	61	ad2antrr 724	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ 𝑖 < 𝐼) ∧ ¬ 𝑗 < 𝐼) → 𝑖 ∈ ℝ)
63		fz1ssnn 13572	. . . . . . . . . . . . . . . . 17 ⊢ (1...𝑁) ⊆ ℕ
64	63, 4	sselid 3974	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝐼 ∈ ℕ)
65	64	nnred 12265	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝐼 ∈ ℝ)
66	65	ad3antrrr 728	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ 𝑖 < 𝐼) ∧ ¬ 𝑗 < 𝐼) → 𝐼 ∈ ℝ)
67	22	nnred 12265	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → 𝑗 ∈ ℝ)
68	67	ad2antrr 724	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ 𝑖 < 𝐼) ∧ ¬ 𝑗 < 𝐼) → 𝑗 ∈ ℝ)
69		1red 11252	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ 𝑖 < 𝐼) ∧ ¬ 𝑗 < 𝐼) → 1 ∈ ℝ)
70	68, 69	readdcld 11280	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ 𝑖 < 𝐼) ∧ ¬ 𝑗 < 𝐼) → (𝑗 + 1) ∈ ℝ)
71	52	adantr 479	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ 𝑖 < 𝐼) ∧ ¬ 𝑗 < 𝐼) → 𝑖 < 𝐼)
72	64	nnzd 12623	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝐼 ∈ ℤ)
73	72	ad3antrrr 728	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ 𝑖 < 𝐼) ∧ ¬ 𝑗 < 𝐼) → 𝐼 ∈ ℤ)
74	22	nnzd 12623	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → 𝑗 ∈ ℤ)
75	74	ad2antrr 724	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ 𝑖 < 𝐼) ∧ ¬ 𝑗 < 𝐼) → 𝑗 ∈ ℤ)
76	66, 68, 58	nltled 11401	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ 𝑖 < 𝐼) ∧ ¬ 𝑗 < 𝐼) → 𝐼 ≤ 𝑗)
77		zleltp1 12651	. . . . . . . . . . . . . . . 16 ⊢ ((𝐼 ∈ ℤ ∧ 𝑗 ∈ ℤ) → (𝐼 ≤ 𝑗 ↔ 𝐼 < (𝑗 + 1)))
78	77	biimpa 475	. . . . . . . . . . . . . . 15 ⊢ (((𝐼 ∈ ℤ ∧ 𝑗 ∈ ℤ) ∧ 𝐼 ≤ 𝑗) → 𝐼 < (𝑗 + 1))
79	73, 75, 76, 78	syl21anc 836	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ 𝑖 < 𝐼) ∧ ¬ 𝑗 < 𝐼) → 𝐼 < (𝑗 + 1))
80	62, 66, 70, 71, 79	lttrd 11412	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ 𝑖 < 𝐼) ∧ ¬ 𝑗 < 𝐼) → 𝑖 < (𝑗 + 1))
81	62, 80	ltned 11387	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ 𝑖 < 𝐼) ∧ ¬ 𝑗 < 𝐼) → 𝑖 ≠ (𝑗 + 1))
82	81	neneqd 2934	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ 𝑖 < 𝐼) ∧ ¬ 𝑗 < 𝐼) → ¬ 𝑖 = (𝑗 + 1))
83	62, 66, 68, 71, 76	ltletrd 11411	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ 𝑖 < 𝐼) ∧ ¬ 𝑗 < 𝐼) → 𝑖 < 𝑗)
84	62, 83	ltned 11387	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ 𝑖 < 𝐼) ∧ ¬ 𝑗 < 𝐼) → 𝑖 ≠ 𝑗)
85	84	neneqd 2934	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ 𝑖 < 𝐼) ∧ ¬ 𝑗 < 𝐼) → ¬ 𝑖 = 𝑗)
86	82, 85	2falsed 375	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ 𝑖 < 𝐼) ∧ ¬ 𝑗 < 𝐼) → (𝑖 = (𝑗 + 1) ↔ 𝑖 = 𝑗))
87	60, 86	bitrd 278	. . . . . . . . 9 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ 𝑖 < 𝐼) ∧ ¬ 𝑗 < 𝐼) → (𝑖 = if(𝑗 < 𝐼, 𝑗, (𝑗 + 1)) ↔ 𝑖 = 𝑗))
88	57, 87	pm2.61dan 811	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ 𝑖 < 𝐼) → (𝑖 = if(𝑗 < 𝐼, 𝑗, (𝑗 + 1)) ↔ 𝑖 = 𝑗))
89	54, 88	bitrd 278	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ 𝑖 < 𝐼) → (if(𝑖 < 𝐼, 𝑖, (𝑖 + 1)) = if(𝑗 < 𝐼, 𝑗, (𝑗 + 1)) ↔ 𝑖 = 𝑗))
90		simpr 483	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) → ¬ 𝑖 < 𝐼)
91	90	iffalsed 4541	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) → if(𝑖 < 𝐼, 𝑖, (𝑖 + 1)) = (𝑖 + 1))
92	91	eqeq1d 2727	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) → (if(𝑖 < 𝐼, 𝑖, (𝑖 + 1)) = if(𝑗 < 𝐼, 𝑗, (𝑗 + 1)) ↔ (𝑖 + 1) = if(𝑗 < 𝐼, 𝑗, (𝑗 + 1))))
93		simpr 483	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) ∧ 𝑗 < 𝐼) → 𝑗 < 𝐼)
94	93	iftrued 4538	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) ∧ 𝑗 < 𝐼) → if(𝑗 < 𝐼, 𝑗, (𝑗 + 1)) = 𝑗)
95	94	eqeq2d 2736	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) ∧ 𝑗 < 𝐼) → ((𝑖 + 1) = if(𝑗 < 𝐼, 𝑗, (𝑗 + 1)) ↔ (𝑖 + 1) = 𝑗))
96	67	ad2antrr 724	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) ∧ 𝑗 < 𝐼) → 𝑗 ∈ ℝ)
97	65	ad3antrrr 728	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) ∧ 𝑗 < 𝐼) → 𝐼 ∈ ℝ)
98	61	ad2antrr 724	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) ∧ 𝑗 < 𝐼) → 𝑖 ∈ ℝ)
99		1red 11252	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) ∧ 𝑗 < 𝐼) → 1 ∈ ℝ)
100	98, 99	readdcld 11280	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) ∧ 𝑗 < 𝐼) → (𝑖 + 1) ∈ ℝ)
101	72	ad3antrrr 728	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) ∧ 𝑗 < 𝐼) → 𝐼 ∈ ℤ)
102	20	nnzd 12623	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → 𝑖 ∈ ℤ)
103	102	ad2antrr 724	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) ∧ 𝑗 < 𝐼) → 𝑖 ∈ ℤ)
104	90	adantr 479	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) ∧ 𝑗 < 𝐼) → ¬ 𝑖 < 𝐼)
105	97, 98, 104	nltled 11401	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) ∧ 𝑗 < 𝐼) → 𝐼 ≤ 𝑖)
106		zleltp1 12651	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐼 ∈ ℤ ∧ 𝑖 ∈ ℤ) → (𝐼 ≤ 𝑖 ↔ 𝐼 < (𝑖 + 1)))
107	106	biimpa 475	. . . . . . . . . . . . . . . 16 ⊢ (((𝐼 ∈ ℤ ∧ 𝑖 ∈ ℤ) ∧ 𝐼 ≤ 𝑖) → 𝐼 < (𝑖 + 1))
108	101, 103, 105, 107	syl21anc 836	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) ∧ 𝑗 < 𝐼) → 𝐼 < (𝑖 + 1))
109	96, 97, 100, 93, 108	lttrd 11412	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) ∧ 𝑗 < 𝐼) → 𝑗 < (𝑖 + 1))
110	96, 109	ltned 11387	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) ∧ 𝑗 < 𝐼) → 𝑗 ≠ (𝑖 + 1))
111	110	necomd 2985	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) ∧ 𝑗 < 𝐼) → (𝑖 + 1) ≠ 𝑗)
112	111	neneqd 2934	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) ∧ 𝑗 < 𝐼) → ¬ (𝑖 + 1) = 𝑗)
113	96, 97, 98, 93, 105	ltletrd 11411	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) ∧ 𝑗 < 𝐼) → 𝑗 < 𝑖)
114	96, 113	ltned 11387	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) ∧ 𝑗 < 𝐼) → 𝑗 ≠ 𝑖)
115	114	necomd 2985	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) ∧ 𝑗 < 𝐼) → 𝑖 ≠ 𝑗)
116	115	neneqd 2934	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) ∧ 𝑗 < 𝐼) → ¬ 𝑖 = 𝑗)
117	112, 116	2falsed 375	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) ∧ 𝑗 < 𝐼) → ((𝑖 + 1) = 𝑗 ↔ 𝑖 = 𝑗))
118	95, 117	bitrd 278	. . . . . . . . 9 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) ∧ 𝑗 < 𝐼) → ((𝑖 + 1) = if(𝑗 < 𝐼, 𝑗, (𝑗 + 1)) ↔ 𝑖 = 𝑗))
119		simpr 483	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) ∧ ¬ 𝑗 < 𝐼) → ¬ 𝑗 < 𝐼)
120	119	iffalsed 4541	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) ∧ ¬ 𝑗 < 𝐼) → if(𝑗 < 𝐼, 𝑗, (𝑗 + 1)) = (𝑗 + 1))
121	120	eqeq2d 2736	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) ∧ ¬ 𝑗 < 𝐼) → ((𝑖 + 1) = if(𝑗 < 𝐼, 𝑗, (𝑗 + 1)) ↔ (𝑖 + 1) = (𝑗 + 1)))
122	20	nncnd 12266	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → 𝑖 ∈ ℂ)
123	122	ad3antrrr 728	. . . . . . . . . . . 12 ⊢ (((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) ∧ ¬ 𝑗 < 𝐼) ∧ (𝑖 + 1) = (𝑗 + 1)) → 𝑖 ∈ ℂ)
124	22	nncnd 12266	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → 𝑗 ∈ ℂ)
125	124	ad3antrrr 728	. . . . . . . . . . . 12 ⊢ (((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) ∧ ¬ 𝑗 < 𝐼) ∧ (𝑖 + 1) = (𝑗 + 1)) → 𝑗 ∈ ℂ)
126		1cnd 11246	. . . . . . . . . . . 12 ⊢ (((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) ∧ ¬ 𝑗 < 𝐼) ∧ (𝑖 + 1) = (𝑗 + 1)) → 1 ∈ ℂ)
127		simpr 483	. . . . . . . . . . . 12 ⊢ (((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) ∧ ¬ 𝑗 < 𝐼) ∧ (𝑖 + 1) = (𝑗 + 1)) → (𝑖 + 1) = (𝑗 + 1))
128	123, 125, 126, 127	addcan2ad 11457	. . . . . . . . . . 11 ⊢ (((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) ∧ ¬ 𝑗 < 𝐼) ∧ (𝑖 + 1) = (𝑗 + 1)) → 𝑖 = 𝑗)
129		simpr 483	. . . . . . . . . . . 12 ⊢ (((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) ∧ ¬ 𝑗 < 𝐼) ∧ 𝑖 = 𝑗) → 𝑖 = 𝑗)
130	129	oveq1d 7434	. . . . . . . . . . 11 ⊢ (((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) ∧ ¬ 𝑗 < 𝐼) ∧ 𝑖 = 𝑗) → (𝑖 + 1) = (𝑗 + 1))
131	128, 130	impbida 799	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) ∧ ¬ 𝑗 < 𝐼) → ((𝑖 + 1) = (𝑗 + 1) ↔ 𝑖 = 𝑗))
132	121, 131	bitrd 278	. . . . . . . . 9 ⊢ ((((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) ∧ ¬ 𝑗 < 𝐼) → ((𝑖 + 1) = if(𝑗 < 𝐼, 𝑗, (𝑗 + 1)) ↔ 𝑖 = 𝑗))
133	118, 132	pm2.61dan 811	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) → ((𝑖 + 1) = if(𝑗 < 𝐼, 𝑗, (𝑗 + 1)) ↔ 𝑖 = 𝑗))
134	92, 133	bitrd 278	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) ∧ ¬ 𝑖 < 𝐼) → (if(𝑖 < 𝐼, 𝑖, (𝑖 + 1)) = if(𝑗 < 𝐼, 𝑗, (𝑗 + 1)) ↔ 𝑖 = 𝑗))
135	89, 134	pm2.61dan 811	. . . . . 6 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → (if(𝑖 < 𝐼, 𝑖, (𝑖 + 1)) = if(𝑗 < 𝐼, 𝑗, (𝑗 + 1)) ↔ 𝑖 = 𝑗))
136	135	ifbid 4553	. . . . 5 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → if(if(𝑖 < 𝐼, 𝑖, (𝑖 + 1)) = if(𝑗 < 𝐼, 𝑗, (𝑗 + 1)), (1r‘𝑅), (0g‘𝑅)) = if(𝑖 = 𝑗, (1r‘𝑅), (0g‘𝑅)))
137		eqid 2725	. . . . . 6 ⊢ ((1...(𝑁 − 1)) Mat 𝑅) = ((1...(𝑁 − 1)) Mat 𝑅)
138		fzfid 13979	. . . . . 6 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → (1...(𝑁 − 1)) ∈ Fin)
139		eqid 2725	. . . . . 6 ⊢ (1r‘((1...(𝑁 − 1)) Mat 𝑅)) = (1r‘((1...(𝑁 − 1)) Mat 𝑅))
140	137, 26, 27, 138, 29, 19, 21, 139	mat1ov 22411	. . . . 5 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → (𝑖(1r‘((1...(𝑁 − 1)) Mat 𝑅))𝑗) = if(𝑖 = 𝑗, (1r‘𝑅), (0g‘𝑅)))
141	136, 140	eqtr4d 2768	. . . 4 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → if(if(𝑖 < 𝐼, 𝑖, (𝑖 + 1)) = if(𝑗 < 𝐼, 𝑗, (𝑗 + 1)), (1r‘𝑅), (0g‘𝑅)) = (𝑖(1r‘((1...(𝑁 − 1)) Mat 𝑅))𝑗))
142	25, 51, 141	3eqtrd 2769	. . 3 ⊢ ((𝜑 ∧ (𝑖 ∈ (1...(𝑁 − 1)) ∧ 𝑗 ∈ (1...(𝑁 − 1)))) → (𝑖(𝐼(subMat1‘ 1 )𝐼)𝑗) = (𝑖(1r‘((1...(𝑁 − 1)) Mat 𝑅))𝑗))
143	142	ralrimivva 3190	. 2 ⊢ (𝜑 → ∀𝑖 ∈ (1...(𝑁 − 1))∀𝑗 ∈ (1...(𝑁 − 1))(𝑖(𝐼(subMat1‘ 1 )𝐼)𝑗) = (𝑖(1r‘((1...(𝑁 − 1)) Mat 𝑅))𝑗))
144	1, 2, 2, 4, 4, 16	smatrcl 33548	. . . 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 13978	. . . . . 6 ⊢ (1...(𝑁 − 1)) ∈ Fin
148		eqid 2725	. . . . . . 7 ⊢ (Base‘((1...(𝑁 − 1)) Mat 𝑅)) = (Base‘((1...(𝑁 − 1)) Mat 𝑅))
149	137, 148, 139	mat1bas 22412	. . . . . 6 ⊢ ((𝑅 ∈ Ring ∧ (1...(𝑁 − 1)) ∈ Fin) → (1r‘((1...(𝑁 − 1)) Mat 𝑅)) ∈ (Base‘((1...(𝑁 − 1)) Mat 𝑅)))
150	6, 147, 149	sylancl 584	. . . . 5 ⊢ (𝜑 → (1r‘((1...(𝑁 − 1)) Mat 𝑅)) ∈ (Base‘((1...(𝑁 − 1)) Mat 𝑅)))
151	137, 13	matbas2 22384	. . . . . 6 ⊢ (((1...(𝑁 − 1)) ∈ Fin ∧ 𝑅 ∈ Ring) → ((Base‘𝑅) ↑m ((1...(𝑁 − 1)) × (1...(𝑁 − 1)))) = (Base‘((1...(𝑁 − 1)) Mat 𝑅)))
152	147, 6, 151	sylancr 585	. . . . 5 ⊢ (𝜑 → ((Base‘𝑅) ↑m ((1...(𝑁 − 1)) × (1...(𝑁 − 1)))) = (Base‘((1...(𝑁 − 1)) Mat 𝑅)))
153	150, 152	eleqtrrd 2828	. . . 4 ⊢ (𝜑 → (1r‘((1...(𝑁 − 1)) Mat 𝑅)) ∈ ((Base‘𝑅) ↑m ((1...(𝑁 − 1)) × (1...(𝑁 − 1)))))
154		elmapfn 8884	. . . 4 ⊢ ((1r‘((1...(𝑁 − 1)) Mat 𝑅)) ∈ ((Base‘𝑅) ↑m ((1...(𝑁 − 1)) × (1...(𝑁 − 1)))) → (1r‘((1...(𝑁 − 1)) Mat 𝑅)) Fn ((1...(𝑁 − 1)) × (1...(𝑁 − 1))))
155	153, 154	syl 17	. . 3 ⊢ (𝜑 → (1r‘((1...(𝑁 − 1)) Mat 𝑅)) Fn ((1...(𝑁 − 1)) × (1...(𝑁 − 1))))
156		eqfnov2 7551	. . 3 ⊢ (((𝐼(subMat1‘ 1 )𝐼) Fn ((1...(𝑁 − 1)) × (1...(𝑁 − 1))) ∧ (1r‘((1...(𝑁 − 1)) Mat 𝑅)) Fn ((1...(𝑁 − 1)) × (1...(𝑁 − 1)))) → ((𝐼(subMat1‘ 1 )𝐼) = (1r‘((1...(𝑁 − 1)) Mat 𝑅)) ↔ ∀𝑖 ∈ (1...(𝑁 − 1))∀𝑗 ∈ (1...(𝑁 − 1))(𝑖(𝐼(subMat1‘ 1 )𝐼)𝑗) = (𝑖(1r‘((1...(𝑁 − 1)) Mat 𝑅))𝑗)))
157	146, 155, 156	syl2anc 582	. 2 ⊢ (𝜑 → ((𝐼(subMat1‘ 1 )𝐼) = (1r‘((1...(𝑁 − 1)) Mat 𝑅)) ↔ ∀𝑖 ∈ (1...(𝑁 − 1))∀𝑗 ∈ (1...(𝑁 − 1))(𝑖(𝐼(subMat1‘ 1 )𝐼)𝑗) = (𝑖(1r‘((1...(𝑁 − 1)) Mat 𝑅))𝑗)))
158	143, 157	mpbird 256	1 ⊢ (𝜑 → (𝐼(subMat1‘ 1 )𝐼) = (1r‘((1...(𝑁 − 1)) Mat 𝑅)))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 205   ∧ wa 394   = wceq 1533   ∈ wcel 2098  ∀wral 3050  ifcif 4530   class class class wbr 5149   × cxp 5676   Fn wfn 6544  ‘cfv 6549  (class class class)co 7419   ↑_m cmap 8845  Fincfn 8964  ℂcc 11143  ℝcr 11144  1c1 11146   + caddc 11148   < clt 11285   ≤ cle 11286   − cmin 11481  ℕcn 12250  ℤcz 12596  ℤ_≥cuz 12860  ...cfz 13524  Basecbs 17199  0_gc0g 17440  1_rcur 20150  Ringcrg 20202   Mat cmat 22368  subMat1csmat 33545

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1789  ax-4 1803  ax-5 1905  ax-6 1963  ax-7 2003  ax-8 2100  ax-9 2108  ax-10 2129  ax-11 2146  ax-12 2166  ax-ext 2696  ax-rep 5286  ax-sep 5300  ax-nul 5307  ax-pow 5365  ax-pr 5429  ax-un 7741  ax-cnex 11201  ax-resscn 11202  ax-1cn 11203  ax-icn 11204  ax-addcl 11205  ax-addrcl 11206  ax-mulcl 11207  ax-mulrcl 11208  ax-mulcom 11209  ax-addass 11210  ax-mulass 11211  ax-distr 11212  ax-i2m1 11213  ax-1ne0 11214  ax-1rid 11215  ax-rnegex 11216  ax-rrecex 11217  ax-cnre 11218  ax-pre-lttri 11219  ax-pre-lttrn 11220  ax-pre-ltadd 11221  ax-pre-mulgt0 11222

This theorem depends on definitions:  df-bi 206  df-an 395  df-or 846  df-3or 1085  df-3an 1086  df-tru 1536  df-fal 1546  df-ex 1774  df-nf 1778  df-sb 2060  df-mo 2528  df-eu 2557  df-clab 2703  df-cleq 2717  df-clel 2802  df-nfc 2877  df-ne 2930  df-nel 3036  df-ral 3051  df-rex 3060  df-rmo 3363  df-reu 3364  df-rab 3419  df-v 3463  df-sbc 3774  df-csb 3890  df-dif 3947  df-un 3949  df-in 3951  df-ss 3961  df-pss 3964  df-nul 4323  df-if 4531  df-pw 4606  df-sn 4631  df-pr 4633  df-tp 4635  df-op 4637  df-ot 4639  df-uni 4910  df-int 4951  df-iun 4999  df-iin 5000  df-br 5150  df-opab 5212  df-mpt 5233  df-tr 5267  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 6307  df-ord 6374  df-on 6375  df-lim 6376  df-suc 6377  df-iota 6501  df-fun 6551  df-fn 6552  df-f 6553  df-f1 6554  df-fo 6555  df-f1o 6556  df-fv 6557  df-isom 6558  df-riota 7375  df-ov 7422  df-oprab 7423  df-mpo 7424  df-of 7685  df-om 7872  df-1st 7994  df-2nd 7995  df-supp 8166  df-frecs 8287  df-wrecs 8318  df-recs 8392  df-rdg 8431  df-1o 8487  df-2o 8488  df-er 8725  df-map 8847  df-ixp 8917  df-en 8965  df-dom 8966  df-sdom 8967  df-fin 8968  df-fsupp 9393  df-sup 9472  df-oi 9540  df-card 9969  df-pnf 11287  df-mnf 11288  df-xr 11289  df-ltxr 11290  df-le 11291  df-sub 11483  df-neg 11484  df-nn 12251  df-2 12313  df-3 12314  df-4 12315  df-5 12316  df-6 12317  df-7 12318  df-8 12319  df-9 12320  df-n0 12511  df-z 12597  df-dec 12716  df-uz 12861  df-fz 13525  df-fzo 13668  df-seq 14008  df-hash 14334  df-struct 17135  df-sets 17152  df-slot 17170  df-ndx 17182  df-base 17200  df-ress 17229  df-plusg 17265  df-mulr 17266  df-sca 17268  df-vsca 17269  df-ip 17270  df-tset 17271  df-ple 17272  df-ds 17274  df-hom 17276  df-cco 17277  df-0g 17442  df-gsum 17443  df-prds 17448  df-pws 17450  df-mre 17585  df-mrc 17586  df-acs 17588  df-mgm 18619  df-sgrp 18698  df-mnd 18714  df-mhm 18759  df-submnd 18760  df-grp 18917  df-minusg 18918  df-sbg 18919  df-mulg 19048  df-subg 19103  df-ghm 19193  df-cntz 19297  df-cmn 19766  df-abl 19767  df-mgp 20104  df-rng 20122  df-ur 20151  df-ring 20204  df-subrg 20537  df-lmod 20774  df-lss 20845  df-sra 21087  df-rgmod 21088  df-dsmm 21700  df-frlm 21715  df-mamu 22352  df-mat 22369  df-smat 33546

This theorem is referenced by: (None)