Theorem matunitlindf 38114

Description: A matrix over a field is invertible iff the rows are linearly independent. (Contributed by Brendan Leahy, 2-Jun-2021.)

Assertion

Ref	Expression
matunitlindf	⊢ ((𝑅 ∈ Field ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) → (𝑀 ∈ (Unit‘(𝐼 Mat 𝑅)) ↔ curry 𝑀 LIndF (𝑅 freeLMod 𝐼)))

Proof of Theorem matunitlindf

Dummy variables 𝑥 𝑦 𝑧 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		fvoveq1 7419	. . . . . . . 8 ⊢ (𝐼 = ∅ → (Base‘(𝐼 Mat 𝑅)) = (Base‘(∅ Mat 𝑅)))
2		mat0dimbas0 22523	. . . . . . . 8 ⊢ (𝑅 ∈ Field → (Base‘(∅ Mat 𝑅)) = {∅})
3	1, 2	sylan9eq 2817	. . . . . . 7 ⊢ ((𝐼 = ∅ ∧ 𝑅 ∈ Field) → (Base‘(𝐼 Mat 𝑅)) = {∅})
4	3	eleq2d 2848	. . . . . 6 ⊢ ((𝐼 = ∅ ∧ 𝑅 ∈ Field) → (𝑀 ∈ (Base‘(𝐼 Mat 𝑅)) ↔ 𝑀 ∈ {∅}))
5		elsni 4599	. . . . . 6 ⊢ (𝑀 ∈ {∅} → 𝑀 = ∅)
6	4, 5	biimtrdi 255	. . . . 5 ⊢ ((𝐼 = ∅ ∧ 𝑅 ∈ Field) → (𝑀 ∈ (Base‘(𝐼 Mat 𝑅)) → 𝑀 = ∅))
7	6	imdistanda 579	. . . 4 ⊢ (𝐼 = ∅ → ((𝑅 ∈ Field ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) → (𝑅 ∈ Field ∧ 𝑀 = ∅)))
8	7	impcom 411	. . 3 ⊢ (((𝑅 ∈ Field ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) ∧ 𝐼 = ∅) → (𝑅 ∈ Field ∧ 𝑀 = ∅))
9		isfld 20786	. . . . . . . 8 ⊢ (𝑅 ∈ Field ↔ (𝑅 ∈ DivRing ∧ 𝑅 ∈ CRing))
10	9	simplbi 500	. . . . . . 7 ⊢ (𝑅 ∈ Field → 𝑅 ∈ DivRing)
11		drngring 20782	. . . . . . 7 ⊢ (𝑅 ∈ DivRing → 𝑅 ∈ Ring)
12		eqid 2762	. . . . . . . . 9 ⊢ (∅ Mat 𝑅) = (∅ Mat 𝑅)
13	12	mat0dimid 22525	. . . . . . . 8 ⊢ (𝑅 ∈ Ring → (1r‘(∅ Mat 𝑅)) = ∅)
14		0fi 9023	. . . . . . . . . 10 ⊢ ∅ ∈ Fin
15	12	matring 22500	. . . . . . . . . 10 ⊢ ((∅ ∈ Fin ∧ 𝑅 ∈ Ring) → (∅ Mat 𝑅) ∈ Ring)
16	14, 15	mpan 700	. . . . . . . . 9 ⊢ (𝑅 ∈ Ring → (∅ Mat 𝑅) ∈ Ring)
17		eqid 2762	. . . . . . . . . 10 ⊢ (Unit‘(∅ Mat 𝑅)) = (Unit‘(∅ Mat 𝑅))
18		eqid 2762	. . . . . . . . . 10 ⊢ (1r‘(∅ Mat 𝑅)) = (1r‘(∅ Mat 𝑅))
19	17, 18	1unit 20419	. . . . . . . . 9 ⊢ ((∅ Mat 𝑅) ∈ Ring → (1r‘(∅ Mat 𝑅)) ∈ (Unit‘(∅ Mat 𝑅)))
20	16, 19	syl 17	. . . . . . . 8 ⊢ (𝑅 ∈ Ring → (1r‘(∅ Mat 𝑅)) ∈ (Unit‘(∅ Mat 𝑅)))
21	13, 20	eqeltrrd 2863	. . . . . . 7 ⊢ (𝑅 ∈ Ring → ∅ ∈ (Unit‘(∅ Mat 𝑅)))
22	10, 11, 21	3syl 18	. . . . . 6 ⊢ (𝑅 ∈ Field → ∅ ∈ (Unit‘(∅ Mat 𝑅)))
23		f0 6745	. . . . . . . . 9 ⊢ ∅:∅⟶(Base‘(𝑅 freeLMod ∅))
24		dm0 5896	. . . . . . . . . 10 ⊢ dom ∅ = ∅
25	24	feq2i 6683	. . . . . . . . 9 ⊢ (∅:dom ∅⟶(Base‘(𝑅 freeLMod ∅)) ↔ ∅:∅⟶(Base‘(𝑅 freeLMod ∅)))
26	23, 25	mpbir 233	. . . . . . . 8 ⊢ ∅:dom ∅⟶(Base‘(𝑅 freeLMod ∅))
27		rzal 4448	. . . . . . . . 9 ⊢ (dom ∅ = ∅ → ∀𝑥 ∈ dom ∅∀𝑦 ∈ ((Base‘(Scalar‘(𝑅 freeLMod ∅))) ∖ {(0g‘(Scalar‘(𝑅 freeLMod ∅)))}) ¬ (𝑦( ·𝑠 ‘(𝑅 freeLMod ∅))(∅‘𝑥)) ∈ ((LSpan‘(𝑅 freeLMod ∅))‘(∅ “ (dom ∅ ∖ {𝑥}))))
28	24, 27	ax-mp 5	. . . . . . . 8 ⊢ ∀𝑥 ∈ dom ∅∀𝑦 ∈ ((Base‘(Scalar‘(𝑅 freeLMod ∅))) ∖ {(0g‘(Scalar‘(𝑅 freeLMod ∅)))}) ¬ (𝑦( ·𝑠 ‘(𝑅 freeLMod ∅))(∅‘𝑥)) ∈ ((LSpan‘(𝑅 freeLMod ∅))‘(∅ “ (dom ∅ ∖ {𝑥})))
29		ovex 7429	. . . . . . . . 9 ⊢ (𝑅 freeLMod ∅) ∈ V
30		eqid 2762	. . . . . . . . . 10 ⊢ (Base‘(𝑅 freeLMod ∅)) = (Base‘(𝑅 freeLMod ∅))
31		eqid 2762	. . . . . . . . . 10 ⊢ ( ·𝑠 ‘(𝑅 freeLMod ∅)) = ( ·𝑠 ‘(𝑅 freeLMod ∅))
32		eqid 2762	. . . . . . . . . 10 ⊢ (LSpan‘(𝑅 freeLMod ∅)) = (LSpan‘(𝑅 freeLMod ∅))
33		eqid 2762	. . . . . . . . . 10 ⊢ (Scalar‘(𝑅 freeLMod ∅)) = (Scalar‘(𝑅 freeLMod ∅))
34		eqid 2762	. . . . . . . . . 10 ⊢ (Base‘(Scalar‘(𝑅 freeLMod ∅))) = (Base‘(Scalar‘(𝑅 freeLMod ∅)))
35		eqid 2762	. . . . . . . . . 10 ⊢ (0g‘(Scalar‘(𝑅 freeLMod ∅))) = (0g‘(Scalar‘(𝑅 freeLMod ∅)))
36	30, 31, 32, 33, 34, 35	islindf 21861	. . . . . . . . 9 ⊢ (((𝑅 freeLMod ∅) ∈ V ∧ ∅ ∈ Fin) → (∅ LIndF (𝑅 freeLMod ∅) ↔ (∅:dom ∅⟶(Base‘(𝑅 freeLMod ∅)) ∧ ∀𝑥 ∈ dom ∅∀𝑦 ∈ ((Base‘(Scalar‘(𝑅 freeLMod ∅))) ∖ {(0g‘(Scalar‘(𝑅 freeLMod ∅)))}) ¬ (𝑦( ·𝑠 ‘(𝑅 freeLMod ∅))(∅‘𝑥)) ∈ ((LSpan‘(𝑅 freeLMod ∅))‘(∅ “ (dom ∅ ∖ {𝑥}))))))
37	29, 14, 36	mp2an 702	. . . . . . . 8 ⊢ (∅ LIndF (𝑅 freeLMod ∅) ↔ (∅:dom ∅⟶(Base‘(𝑅 freeLMod ∅)) ∧ ∀𝑥 ∈ dom ∅∀𝑦 ∈ ((Base‘(Scalar‘(𝑅 freeLMod ∅))) ∖ {(0g‘(Scalar‘(𝑅 freeLMod ∅)))}) ¬ (𝑦( ·𝑠 ‘(𝑅 freeLMod ∅))(∅‘𝑥)) ∈ ((LSpan‘(𝑅 freeLMod ∅))‘(∅ “ (dom ∅ ∖ {𝑥})))))
38	26, 28, 37	mpbir2an 721	. . . . . . 7 ⊢ ∅ LIndF (𝑅 freeLMod ∅)
39	38	a1i 11	. . . . . 6 ⊢ (𝑅 ∈ Field → ∅ LIndF (𝑅 freeLMod ∅))
40	22, 39	2thd 267	. . . . 5 ⊢ (𝑅 ∈ Field → (∅ ∈ (Unit‘(∅ Mat 𝑅)) ↔ ∅ LIndF (𝑅 freeLMod ∅)))
41		fvoveq1 7419	. . . . . . . 8 ⊢ (𝐼 = ∅ → (Unit‘(𝐼 Mat 𝑅)) = (Unit‘(∅ Mat 𝑅)))
42		eleq12 2852	. . . . . . . 8 ⊢ ((𝑀 = ∅ ∧ (Unit‘(𝐼 Mat 𝑅)) = (Unit‘(∅ Mat 𝑅))) → (𝑀 ∈ (Unit‘(𝐼 Mat 𝑅)) ↔ ∅ ∈ (Unit‘(∅ Mat 𝑅))))
43	41, 42	sylan2 602	. . . . . . 7 ⊢ ((𝑀 = ∅ ∧ 𝐼 = ∅) → (𝑀 ∈ (Unit‘(𝐼 Mat 𝑅)) ↔ ∅ ∈ (Unit‘(∅ Mat 𝑅))))
44		cureq 38092	. . . . . . . . 9 ⊢ (𝑀 = ∅ → curry 𝑀 = curry ∅)
45		df-cur 8247	. . . . . . . . . 10 ⊢ curry ∅ = (𝑥 ∈ dom dom ∅ ↦ {⟨𝑦, 𝑧⟩ ∣ ⟨𝑥, 𝑦⟩∅𝑧})
46	24	dmeqi 5880	. . . . . . . . . . . 12 ⊢ dom dom ∅ = dom ∅
47	46, 24	eqtri 2785	. . . . . . . . . . 11 ⊢ dom dom ∅ = ∅
48		mpteq1 5189	. . . . . . . . . . 11 ⊢ (dom dom ∅ = ∅ → (𝑥 ∈ dom dom ∅ ↦ {⟨𝑦, 𝑧⟩ ∣ ⟨𝑥, 𝑦⟩∅𝑧}) = (𝑥 ∈ ∅ ↦ {⟨𝑦, 𝑧⟩ ∣ ⟨𝑥, 𝑦⟩∅𝑧}))
49	47, 48	ax-mp 5	. . . . . . . . . 10 ⊢ (𝑥 ∈ dom dom ∅ ↦ {⟨𝑦, 𝑧⟩ ∣ ⟨𝑥, 𝑦⟩∅𝑧}) = (𝑥 ∈ ∅ ↦ {⟨𝑦, 𝑧⟩ ∣ ⟨𝑥, 𝑦⟩∅𝑧})
50		mpt0 6663	. . . . . . . . . 10 ⊢ (𝑥 ∈ ∅ ↦ {⟨𝑦, 𝑧⟩ ∣ ⟨𝑥, 𝑦⟩∅𝑧}) = ∅
51	45, 49, 50	3eqtri 2789	. . . . . . . . 9 ⊢ curry ∅ = ∅
52	44, 51	eqtrdi 2813	. . . . . . . 8 ⊢ (𝑀 = ∅ → curry 𝑀 = ∅)
53		oveq2 7404	. . . . . . . 8 ⊢ (𝐼 = ∅ → (𝑅 freeLMod 𝐼) = (𝑅 freeLMod ∅))
54	52, 53	breqan12d 5116	. . . . . . 7 ⊢ ((𝑀 = ∅ ∧ 𝐼 = ∅) → (curry 𝑀 LIndF (𝑅 freeLMod 𝐼) ↔ ∅ LIndF (𝑅 freeLMod ∅)))
55	43, 54	bibi12d 347	. . . . . 6 ⊢ ((𝑀 = ∅ ∧ 𝐼 = ∅) → ((𝑀 ∈ (Unit‘(𝐼 Mat 𝑅)) ↔ curry 𝑀 LIndF (𝑅 freeLMod 𝐼)) ↔ (∅ ∈ (Unit‘(∅ Mat 𝑅)) ↔ ∅ LIndF (𝑅 freeLMod ∅))))
56	55	biimparc 483	. . . . 5 ⊢ (((∅ ∈ (Unit‘(∅ Mat 𝑅)) ↔ ∅ LIndF (𝑅 freeLMod ∅)) ∧ (𝑀 = ∅ ∧ 𝐼 = ∅)) → (𝑀 ∈ (Unit‘(𝐼 Mat 𝑅)) ↔ curry 𝑀 LIndF (𝑅 freeLMod 𝐼)))
57	40, 56	sylan 589	. . . 4 ⊢ ((𝑅 ∈ Field ∧ (𝑀 = ∅ ∧ 𝐼 = ∅)) → (𝑀 ∈ (Unit‘(𝐼 Mat 𝑅)) ↔ curry 𝑀 LIndF (𝑅 freeLMod 𝐼)))
58	57	anassrs 471	. . 3 ⊢ (((𝑅 ∈ Field ∧ 𝑀 = ∅) ∧ 𝐼 = ∅) → (𝑀 ∈ (Unit‘(𝐼 Mat 𝑅)) ↔ curry 𝑀 LIndF (𝑅 freeLMod 𝐼)))
59	8, 58	sylancom 597	. 2 ⊢ (((𝑅 ∈ Field ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) ∧ 𝐼 = ∅) → (𝑀 ∈ (Unit‘(𝐼 Mat 𝑅)) ↔ curry 𝑀 LIndF (𝑅 freeLMod 𝐼)))
60	9	simprbi 501	. . . . 5 ⊢ (𝑅 ∈ Field → 𝑅 ∈ CRing)
61		eqid 2762	. . . . . 6 ⊢ (𝐼 Mat 𝑅) = (𝐼 Mat 𝑅)
62		eqid 2762	. . . . . 6 ⊢ (𝐼 maDet 𝑅) = (𝐼 maDet 𝑅)
63		eqid 2762	. . . . . 6 ⊢ (Base‘(𝐼 Mat 𝑅)) = (Base‘(𝐼 Mat 𝑅))
64		eqid 2762	. . . . . 6 ⊢ (Unit‘(𝐼 Mat 𝑅)) = (Unit‘(𝐼 Mat 𝑅))
65		eqid 2762	. . . . . 6 ⊢ (Unit‘𝑅) = (Unit‘𝑅)
66	61, 62, 63, 64, 65	matunit 22735	. . . . 5 ⊢ ((𝑅 ∈ CRing ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) → (𝑀 ∈ (Unit‘(𝐼 Mat 𝑅)) ↔ ((𝐼 maDet 𝑅)‘𝑀) ∈ (Unit‘𝑅)))
67	60, 66	sylan 589	. . . 4 ⊢ ((𝑅 ∈ Field ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) → (𝑀 ∈ (Unit‘(𝐼 Mat 𝑅)) ↔ ((𝐼 maDet 𝑅)‘𝑀) ∈ (Unit‘𝑅)))
68	67	adantr 484	. . 3 ⊢ (((𝑅 ∈ Field ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) ∧ 𝐼 ≠ ∅) → (𝑀 ∈ (Unit‘(𝐼 Mat 𝑅)) ↔ ((𝐼 maDet 𝑅)‘𝑀) ∈ (Unit‘𝑅)))
69		eqid 2762	. . . . . . . . . 10 ⊢ (Base‘𝑅) = (Base‘𝑅)
70		eqid 2762	. . . . . . . . . 10 ⊢ (0g‘𝑅) = (0g‘𝑅)
71	69, 65, 70	drngunit 20780	. . . . . . . . 9 ⊢ (𝑅 ∈ DivRing → (((𝐼 maDet 𝑅)‘𝑀) ∈ (Unit‘𝑅) ↔ (((𝐼 maDet 𝑅)‘𝑀) ∈ (Base‘𝑅) ∧ ((𝐼 maDet 𝑅)‘𝑀) ≠ (0g‘𝑅))))
72	10, 71	syl 17	. . . . . . . 8 ⊢ (𝑅 ∈ Field → (((𝐼 maDet 𝑅)‘𝑀) ∈ (Unit‘𝑅) ↔ (((𝐼 maDet 𝑅)‘𝑀) ∈ (Base‘𝑅) ∧ ((𝐼 maDet 𝑅)‘𝑀) ≠ (0g‘𝑅))))
73	72	adantr 484	. . . . . . 7 ⊢ ((𝑅 ∈ Field ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) → (((𝐼 maDet 𝑅)‘𝑀) ∈ (Unit‘𝑅) ↔ (((𝐼 maDet 𝑅)‘𝑀) ∈ (Base‘𝑅) ∧ ((𝐼 maDet 𝑅)‘𝑀) ≠ (0g‘𝑅))))
74	62, 61, 63, 69	mdetcl 22653	. . . . . . . . 9 ⊢ ((𝑅 ∈ CRing ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) → ((𝐼 maDet 𝑅)‘𝑀) ∈ (Base‘𝑅))
75	60, 74	sylan 589	. . . . . . . 8 ⊢ ((𝑅 ∈ Field ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) → ((𝐼 maDet 𝑅)‘𝑀) ∈ (Base‘𝑅))
76	75	biantrurd 540	. . . . . . 7 ⊢ ((𝑅 ∈ Field ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) → (((𝐼 maDet 𝑅)‘𝑀) ≠ (0g‘𝑅) ↔ (((𝐼 maDet 𝑅)‘𝑀) ∈ (Base‘𝑅) ∧ ((𝐼 maDet 𝑅)‘𝑀) ≠ (0g‘𝑅))))
77	73, 76	bitr4d 284	. . . . . 6 ⊢ ((𝑅 ∈ Field ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) → (((𝐼 maDet 𝑅)‘𝑀) ∈ (Unit‘𝑅) ↔ ((𝐼 maDet 𝑅)‘𝑀) ≠ (0g‘𝑅)))
78	77	adantr 484	. . . . 5 ⊢ (((𝑅 ∈ Field ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) ∧ 𝐼 ≠ ∅) → (((𝐼 maDet 𝑅)‘𝑀) ∈ (Unit‘𝑅) ↔ ((𝐼 maDet 𝑅)‘𝑀) ≠ (0g‘𝑅)))
79	61, 63	matrcl 22469	. . . . . . . . . . . 12 ⊢ (𝑀 ∈ (Base‘(𝐼 Mat 𝑅)) → (𝐼 ∈ Fin ∧ 𝑅 ∈ V))
80	79	simpld 498	. . . . . . . . . . 11 ⊢ (𝑀 ∈ (Base‘(𝐼 Mat 𝑅)) → 𝐼 ∈ Fin)
81	80	pm4.71i 567	. . . . . . . . . 10 ⊢ (𝑀 ∈ (Base‘(𝐼 Mat 𝑅)) ↔ (𝑀 ∈ (Base‘(𝐼 Mat 𝑅)) ∧ 𝐼 ∈ Fin))
82		xpfi 9264	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐼 ∈ Fin ∧ 𝐼 ∈ Fin) → (𝐼 × 𝐼) ∈ Fin)
83	82	anidms 574	. . . . . . . . . . . . . . . 16 ⊢ (𝐼 ∈ Fin → (𝐼 × 𝐼) ∈ Fin)
84		eqid 2762	. . . . . . . . . . . . . . . . 17 ⊢ (𝑅 freeLMod (𝐼 × 𝐼)) = (𝑅 freeLMod (𝐼 × 𝐼))
85	84, 69	frlmfibas 21811	. . . . . . . . . . . . . . . 16 ⊢ ((𝑅 ∈ Field ∧ (𝐼 × 𝐼) ∈ Fin) → ((Base‘𝑅) ↑m (𝐼 × 𝐼)) = (Base‘(𝑅 freeLMod (𝐼 × 𝐼))))
86	83, 85	sylan2 602	. . . . . . . . . . . . . . 15 ⊢ ((𝑅 ∈ Field ∧ 𝐼 ∈ Fin) → ((Base‘𝑅) ↑m (𝐼 × 𝐼)) = (Base‘(𝑅 freeLMod (𝐼 × 𝐼))))
87	61, 84	matbas 22470	. . . . . . . . . . . . . . . 16 ⊢ ((𝐼 ∈ Fin ∧ 𝑅 ∈ Field) → (Base‘(𝑅 freeLMod (𝐼 × 𝐼))) = (Base‘(𝐼 Mat 𝑅)))
88	87	ancoms 462	. . . . . . . . . . . . . . 15 ⊢ ((𝑅 ∈ Field ∧ 𝐼 ∈ Fin) → (Base‘(𝑅 freeLMod (𝐼 × 𝐼))) = (Base‘(𝐼 Mat 𝑅)))
89	86, 88	eqtrd 2797	. . . . . . . . . . . . . 14 ⊢ ((𝑅 ∈ Field ∧ 𝐼 ∈ Fin) → ((Base‘𝑅) ↑m (𝐼 × 𝐼)) = (Base‘(𝐼 Mat 𝑅)))
90	89	eleq2d 2848	. . . . . . . . . . . . 13 ⊢ ((𝑅 ∈ Field ∧ 𝐼 ∈ Fin) → (𝑀 ∈ ((Base‘𝑅) ↑m (𝐼 × 𝐼)) ↔ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))))
91		fvex 6880	. . . . . . . . . . . . . . 15 ⊢ (Base‘𝑅) ∈ V
92		elmapg 8820	. . . . . . . . . . . . . . 15 ⊢ (((Base‘𝑅) ∈ V ∧ (𝐼 × 𝐼) ∈ Fin) → (𝑀 ∈ ((Base‘𝑅) ↑m (𝐼 × 𝐼)) ↔ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)))
93	91, 83, 92	sylancr 596	. . . . . . . . . . . . . 14 ⊢ (𝐼 ∈ Fin → (𝑀 ∈ ((Base‘𝑅) ↑m (𝐼 × 𝐼)) ↔ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)))
94	93	adantl 485	. . . . . . . . . . . . 13 ⊢ ((𝑅 ∈ Field ∧ 𝐼 ∈ Fin) → (𝑀 ∈ ((Base‘𝑅) ↑m (𝐼 × 𝐼)) ↔ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)))
95	90, 94	bitr3d 283	. . . . . . . . . . . 12 ⊢ ((𝑅 ∈ Field ∧ 𝐼 ∈ Fin) → (𝑀 ∈ (Base‘(𝐼 Mat 𝑅)) ↔ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)))
96	95	ex 416	. . . . . . . . . . 11 ⊢ (𝑅 ∈ Field → (𝐼 ∈ Fin → (𝑀 ∈ (Base‘(𝐼 Mat 𝑅)) ↔ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅))))
97	96	pm5.32rd 586	. . . . . . . . . 10 ⊢ (𝑅 ∈ Field → ((𝑀 ∈ (Base‘(𝐼 Mat 𝑅)) ∧ 𝐼 ∈ Fin) ↔ (𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅) ∧ 𝐼 ∈ Fin)))
98	81, 97	bitrid 285	. . . . . . . . 9 ⊢ (𝑅 ∈ Field → (𝑀 ∈ (Base‘(𝐼 Mat 𝑅)) ↔ (𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅) ∧ 𝐼 ∈ Fin)))
99	98	biimpd 231	. . . . . . . 8 ⊢ (𝑅 ∈ Field → (𝑀 ∈ (Base‘(𝐼 Mat 𝑅)) → (𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅) ∧ 𝐼 ∈ Fin)))
100	99	imdistani 576	. . . . . . 7 ⊢ ((𝑅 ∈ Field ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) → (𝑅 ∈ Field ∧ (𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅) ∧ 𝐼 ∈ Fin)))
101		anass 472	. . . . . . 7 ⊢ (((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ↔ (𝑅 ∈ Field ∧ (𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅) ∧ 𝐼 ∈ Fin)))
102	100, 101	sylibr 236	. . . . . 6 ⊢ ((𝑅 ∈ Field ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) → ((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin))
103		eldifsn 4746	. . . . . . . 8 ⊢ (𝐼 ∈ (Fin ∖ {∅}) ↔ (𝐼 ∈ Fin ∧ 𝐼 ≠ ∅))
104		matunitlindflem1 38112	. . . . . . . . 9 ⊢ (((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) → (¬ curry 𝑀 LIndF (𝑅 freeLMod 𝐼) → ((𝐼 maDet 𝑅)‘𝑀) = (0g‘𝑅)))
105	104	necon1ad 2974	. . . . . . . 8 ⊢ (((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ (Fin ∖ {∅})) → (((𝐼 maDet 𝑅)‘𝑀) ≠ (0g‘𝑅) → curry 𝑀 LIndF (𝑅 freeLMod 𝐼)))
106	103, 105	sylan2br 604	. . . . . . 7 ⊢ (((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ (𝐼 ∈ Fin ∧ 𝐼 ≠ ∅)) → (((𝐼 maDet 𝑅)‘𝑀) ≠ (0g‘𝑅) → curry 𝑀 LIndF (𝑅 freeLMod 𝐼)))
107	106	anassrs 471	. . . . . 6 ⊢ ((((𝑅 ∈ Field ∧ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝐼 ∈ Fin) ∧ 𝐼 ≠ ∅) → (((𝐼 maDet 𝑅)‘𝑀) ≠ (0g‘𝑅) → curry 𝑀 LIndF (𝑅 freeLMod 𝐼)))
108	102, 107	sylan 589	. . . . 5 ⊢ (((𝑅 ∈ Field ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) ∧ 𝐼 ≠ ∅) → (((𝐼 maDet 𝑅)‘𝑀) ≠ (0g‘𝑅) → curry 𝑀 LIndF (𝑅 freeLMod 𝐼)))
109	78, 108	sylbid 242	. . . 4 ⊢ (((𝑅 ∈ Field ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) ∧ 𝐼 ≠ ∅) → (((𝐼 maDet 𝑅)‘𝑀) ∈ (Unit‘𝑅) → curry 𝑀 LIndF (𝑅 freeLMod 𝐼)))
110		matunitlindflem2 38113	. . . . 5 ⊢ ((((𝑅 ∈ Field ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) ∧ 𝐼 ≠ ∅) ∧ curry 𝑀 LIndF (𝑅 freeLMod 𝐼)) → ((𝐼 maDet 𝑅)‘𝑀) ∈ (Unit‘𝑅))
111	110	ex 416	. . . 4 ⊢ (((𝑅 ∈ Field ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) ∧ 𝐼 ≠ ∅) → (curry 𝑀 LIndF (𝑅 freeLMod 𝐼) → ((𝐼 maDet 𝑅)‘𝑀) ∈ (Unit‘𝑅)))
112	109, 111	impbid 214	. . 3 ⊢ (((𝑅 ∈ Field ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) ∧ 𝐼 ≠ ∅) → (((𝐼 maDet 𝑅)‘𝑀) ∈ (Unit‘𝑅) ↔ curry 𝑀 LIndF (𝑅 freeLMod 𝐼)))
113	68, 112	bitrd 281	. 2 ⊢ (((𝑅 ∈ Field ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) ∧ 𝐼 ≠ ∅) → (𝑀 ∈ (Unit‘(𝐼 Mat 𝑅)) ↔ curry 𝑀 LIndF (𝑅 freeLMod 𝐼)))
114	59, 113	pm2.61dane 3044	1 ⊢ ((𝑅 ∈ Field ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) → (𝑀 ∈ (Unit‘(𝐼 Mat 𝑅)) ↔ curry 𝑀 LIndF (𝑅 freeLMod 𝐼)))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 208   ∧ wa 399   = wceq 1560   ∈ wcel 2142   ≠ wne 2957  ∀wral 3076  Vcvv 3454   ∖ cdif 3901  ∅c0 4285  {csn 4582  ⟨cop 4588   class class class wbr 5100  {copab 5162   ↦ cmpt 5181   × cxp 5645  dom cdm 5647   “ cima 5650  ⟶wf 6517  ‘cfv 6521  (class class class)co 7396  curry ccur 8245   ↑_m cmap 8808  Fincfn 8927  Basecbs 17245  Scalarcsca 17289   ·_𝑠 cvsca 17290  0_gc0g 17468  1_rcur 20227  Ringcrg 20279  CRingccrg 20280  Unitcui 20400  DivRingcdr 20775  Fieldcfield 20776  LSpanclspn 21035   freeLMod cfrlm 21795   LIndF clindf 21853   Mat cmat 22464   maDet cmdat 22641

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1815  ax-4 1829  ax-5 1930  ax-6 1987  ax-7 2028  ax-8 2144  ax-9 2152  ax-10 2175  ax-11 2191  ax-12 2212  ax-ext 2734  ax-rep 5227  ax-sep 5246  ax-nul 5256  ax-pow 5322  ax-pr 5390  ax-un 7718  ax-cnex 11129  ax-resscn 11130  ax-1cn 11131  ax-icn 11132  ax-addcl 11133  ax-addrcl 11134  ax-mulcl 11135  ax-mulrcl 11136  ax-mulcom 11137  ax-addass 11138  ax-mulass 11139  ax-distr 11140  ax-i2m1 11141  ax-1ne0 11142  ax-1rid 11143  ax-rnegex 11144  ax-rrecex 11145  ax-cnre 11146  ax-pre-lttri 11147  ax-pre-lttrn 11148  ax-pre-ltadd 11149  ax-pre-mulgt0 11150  ax-addf 11152  ax-mulf 11153

This theorem depends on definitions:  df-bi 209  df-an 400  df-or 859  df-3or 1099  df-3an 1100  df-xor 1532  df-tru 1563  df-fal 1573  df-ex 1800  df-nf 1804  df-sb 2091  df-mo 2566  df-eu 2596  df-clab 2741  df-cleq 2754  df-clel 2837  df-nfc 2911  df-ne 2958  df-nel 3062  df-ral 3077  df-rex 3087  df-rmo 3367  df-reu 3368  df-rab 3415  df-v 3456  df-sbc 3745  df-csb 3853  df-dif 3907  df-un 3909  df-in 3911  df-ss 3921  df-pss 3924  df-nul 4286  df-if 4481  df-pw 4557  df-sn 4583  df-pr 4585  df-tp 4587  df-op 4589  df-ot 4591  df-uni 4866  df-int 4906  df-iun 4951  df-iin 4952  df-br 5101  df-opab 5163  df-mpt 5182  df-tr 5208  df-id 5542  df-eprel 5547  df-po 5555  df-so 5556  df-fr 5600  df-se 5601  df-we 5602  df-xp 5653  df-rel 5654  df-cnv 5655  df-co 5656  df-dm 5657  df-rn 5658  df-res 5659  df-ima 5660  df-pred 6288  df-ord 6349  df-on 6350  df-lim 6351  df-suc 6352  df-iota 6477  df-fun 6523  df-fn 6524  df-f 6525  df-f1 6526  df-fo 6527  df-f1o 6528  df-fv 6529  df-isom 6530  df-riota 7353  df-ov 7399  df-oprab 7400  df-mpo 7401  df-of 7660  df-om 7847  df-1st 7970  df-2nd 7971  df-supp 8141  df-tpos 8206  df-cur 8247  df-unc 8248  df-frecs 8262  df-wrecs 8293  df-recs 8342  df-rdg 8381  df-1o 8437  df-2o 8438  df-er 8678  df-map 8810  df-pm 8811  df-ixp 8880  df-en 8928  df-dom 8929  df-sdom 8930  df-fin 8931  df-fsupp 9308  df-sup 9388  df-oi 9458  df-card 9897  df-pnf 11218  df-mnf 11219  df-xr 11220  df-ltxr 11221  df-le 11222  df-sub 11416  df-neg 11417  df-div 11845  df-nn 12211  df-2 12280  df-3 12281  df-4 12282  df-5 12283  df-6 12284  df-7 12285  df-8 12286  df-9 12287  df-n0 12482  df-xnn0 12555  df-z 12569  df-dec 12689  df-uz 12840  df-rp 12994  df-fz 13513  df-fzo 13660  df-seq 14015  df-exp 14075  df-hash 14344  df-word 14527  df-lsw 14576  df-concat 14584  df-s1 14610  df-substr 14655  df-pfx 14685  df-splice 14763  df-reverse 14772  df-s2 14861  df-struct 17183  df-sets 17200  df-slot 17218  df-ndx 17230  df-base 17246  df-ress 17267  df-plusg 17299  df-mulr 17300  df-starv 17301  df-sca 17302  df-vsca 17303  df-ip 17304  df-tset 17305  df-ple 17306  df-ds 17308  df-unif 17309  df-hom 17310  df-cco 17311  df-0g 17470  df-gsum 17471  df-prds 17476  df-pws 17478  df-mre 17614  df-mrc 17615  df-mri 17616  df-acs 17617  df-mgm 18674  df-sgrp 18753  df-mnd 18769  df-mhm 18817  df-submnd 18818  df-efmnd 18903  df-grp 18978  df-minusg 18979  df-sbg 18980  df-mulg 19110  df-subg 19165  df-ghm 19254  df-gim 19299  df-cntz 19357  df-oppg 19386  df-symg 19410  df-pmtr 19482  df-psgn 19531  df-evpm 19532  df-cmn 19822  df-abl 19823  df-mgp 20187  df-rng 20199  df-ur 20228  df-srg 20233  df-ring 20281  df-cring 20282  df-oppr 20382  df-dvdsr 20402  df-unit 20403  df-invr 20433  df-dvr 20446  df-rhm 20517  df-nzr 20559  df-subrng 20592  df-subrg 20616  df-drng 20777  df-field 20778  df-lmod 20926  df-lss 20996  df-lsp 21036  df-lmhm 21086  df-lbs 21139  df-lvec 21167  df-sra 21237  df-rgmod 21238  df-cnfld 21422  df-zring 21496  df-zrh 21552  df-dsmm 21781  df-frlm 21796  df-uvc 21832  df-lindf 21855  df-linds 21856  df-assa 21902  df-mamu 22448  df-mat 22465  df-mdet 22642  df-madu 22691

This theorem is referenced by: (None)