Theorem matunitlindflem2 38325

Description: One direction of matunitlindf 38326. (Contributed by Brendan Leahy, 2-Jun-2021.)

Assertion

Ref	Expression
matunitlindflem2	⊢ ((((𝑅 ∈ Field ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) ∧ 𝐼 ≠ ∅) ∧ curry 𝑀 LIndF (𝑅 freeLMod 𝐼)) → ((𝐼 maDet 𝑅)‘𝑀) ∈ (Unit‘𝑅))

Proof of Theorem matunitlindflem2

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

Step	Hyp	Ref	Expression
1		eqid 2765	. . . . . . 7 ⊢ (𝐼 Mat 𝑅) = (𝐼 Mat 𝑅)
2		eqid 2765	. . . . . . 7 ⊢ (Base‘(𝐼 Mat 𝑅)) = (Base‘(𝐼 Mat 𝑅))
3	1, 2	matrcl 22619	. . . . . 6 ⊢ (𝑀 ∈ (Base‘(𝐼 Mat 𝑅)) → (𝐼 ∈ Fin ∧ 𝑅 ∈ V))
4	3	simpld 500	. . . . 5 ⊢ (𝑀 ∈ (Base‘(𝐼 Mat 𝑅)) → 𝐼 ∈ Fin)
5	4	ad3antlr 744	. . . 4 ⊢ ((((𝑅 ∈ Field ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) ∧ 𝐼 ≠ ∅) ∧ curry 𝑀 LIndF (𝑅 freeLMod 𝐼)) → 𝐼 ∈ Fin)
6		isfld 20890	. . . . . . 7 ⊢ (𝑅 ∈ Field ↔ (𝑅 ∈ DivRing ∧ 𝑅 ∈ CRing))
7	6	simplbi 502	. . . . . 6 ⊢ (𝑅 ∈ Field → 𝑅 ∈ DivRing)
8	7	anim1i 627	. . . . 5 ⊢ ((𝑅 ∈ Field ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) → (𝑅 ∈ DivRing ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))))
9	4	ad2antrl 741	. . . . . . . . . . . 12 ⊢ ((𝑅 ∈ DivRing ∧ (𝑀 ∈ (Base‘(𝐼 Mat 𝑅)) ∧ 𝐼 ≠ ∅)) → 𝐼 ∈ Fin)
10		simpr 490	. . . . . . . . . . . . . . 15 ⊢ ((𝑅 ∈ DivRing ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) → 𝑀 ∈ (Base‘(𝐼 Mat 𝑅)))
11		xpfi 9286	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝐼 ∈ Fin ∧ 𝐼 ∈ Fin) → (𝐼 × 𝐼) ∈ Fin)
12	11	anidms 577	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝐼 ∈ Fin → (𝐼 × 𝐼) ∈ Fin)
13		eqid 2765	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑅 freeLMod (𝐼 × 𝐼)) = (𝑅 freeLMod (𝐼 × 𝐼))
14		eqid 2765	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (Base‘𝑅) = (Base‘𝑅)
15	13, 14	frlmfibas 21962	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑅 ∈ DivRing ∧ (𝐼 × 𝐼) ∈ Fin) → ((Base‘𝑅) ↑m (𝐼 × 𝐼)) = (Base‘(𝑅 freeLMod (𝐼 × 𝐼))))
16	12, 15	sylan2 605	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑅 ∈ DivRing ∧ 𝐼 ∈ Fin) → ((Base‘𝑅) ↑m (𝐼 × 𝐼)) = (Base‘(𝑅 freeLMod (𝐼 × 𝐼))))
17	1, 13	matbas 22620	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝐼 ∈ Fin ∧ 𝑅 ∈ DivRing) → (Base‘(𝑅 freeLMod (𝐼 × 𝐼))) = (Base‘(𝐼 Mat 𝑅)))
18	17	ancoms 464	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑅 ∈ DivRing ∧ 𝐼 ∈ Fin) → (Base‘(𝑅 freeLMod (𝐼 × 𝐼))) = (Base‘(𝐼 Mat 𝑅)))
19	16, 18	eqtrd 2800	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑅 ∈ DivRing ∧ 𝐼 ∈ Fin) → ((Base‘𝑅) ↑m (𝐼 × 𝐼)) = (Base‘(𝐼 Mat 𝑅)))
20	19	eleq2d 2851	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑅 ∈ DivRing ∧ 𝐼 ∈ Fin) → (𝑀 ∈ ((Base‘𝑅) ↑m (𝐼 × 𝐼)) ↔ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))))
21	4, 20	sylan2 605	. . . . . . . . . . . . . . . 16 ⊢ ((𝑅 ∈ DivRing ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) → (𝑀 ∈ ((Base‘𝑅) ↑m (𝐼 × 𝐼)) ↔ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))))
22		fvex 6898	. . . . . . . . . . . . . . . . . 18 ⊢ (Base‘𝑅) ∈ V
23	4, 4, 11	syl2anc 596	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑀 ∈ (Base‘(𝐼 Mat 𝑅)) → (𝐼 × 𝐼) ∈ Fin)
24		elmapg 8842	. . . . . . . . . . . . . . . . . 18 ⊢ (((Base‘𝑅) ∈ V ∧ (𝐼 × 𝐼) ∈ Fin) → (𝑀 ∈ ((Base‘𝑅) ↑m (𝐼 × 𝐼)) ↔ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)))
25	22, 23, 24	sylancr 599	. . . . . . . . . . . . . . . . 17 ⊢ (𝑀 ∈ (Base‘(𝐼 Mat 𝑅)) → (𝑀 ∈ ((Base‘𝑅) ↑m (𝐼 × 𝐼)) ↔ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)))
26	25	adantl 487	. . . . . . . . . . . . . . . 16 ⊢ ((𝑅 ∈ DivRing ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) → (𝑀 ∈ ((Base‘𝑅) ↑m (𝐼 × 𝐼)) ↔ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)))
27	21, 26	bitr3d 284	. . . . . . . . . . . . . . 15 ⊢ ((𝑅 ∈ DivRing ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) → (𝑀 ∈ (Base‘(𝐼 Mat 𝑅)) ↔ 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅)))
28	10, 27	mpbid 235	. . . . . . . . . . . . . 14 ⊢ ((𝑅 ∈ DivRing ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) → 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅))
29	28	adantrr 730	. . . . . . . . . . . . 13 ⊢ ((𝑅 ∈ DivRing ∧ (𝑀 ∈ (Base‘(𝐼 Mat 𝑅)) ∧ 𝐼 ≠ ∅)) → 𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅))
30		eldifsn 4755	. . . . . . . . . . . . . . . 16 ⊢ (𝐼 ∈ (Fin ∖ {∅}) ↔ (𝐼 ∈ Fin ∧ 𝐼 ≠ ∅))
31	30	biimpri 231	. . . . . . . . . . . . . . 15 ⊢ ((𝐼 ∈ Fin ∧ 𝐼 ≠ ∅) → 𝐼 ∈ (Fin ∖ {∅}))
32	4, 31	sylan 592	. . . . . . . . . . . . . 14 ⊢ ((𝑀 ∈ (Base‘(𝐼 Mat 𝑅)) ∧ 𝐼 ≠ ∅) → 𝐼 ∈ (Fin ∖ {∅}))
33	32	adantl 487	. . . . . . . . . . . . 13 ⊢ ((𝑅 ∈ DivRing ∧ (𝑀 ∈ (Base‘(𝐼 Mat 𝑅)) ∧ 𝐼 ≠ ∅)) → 𝐼 ∈ (Fin ∖ {∅}))
34		curf 38306	. . . . . . . . . . . . . 14 ⊢ ((𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅) ∧ 𝐼 ∈ (Fin ∖ {∅}) ∧ (Base‘𝑅) ∈ V) → curry 𝑀:𝐼⟶((Base‘𝑅) ↑m 𝐼))
35	22, 34	mp3an3 1479	. . . . . . . . . . . . 13 ⊢ ((𝑀:(𝐼 × 𝐼)⟶(Base‘𝑅) ∧ 𝐼 ∈ (Fin ∖ {∅})) → curry 𝑀:𝐼⟶((Base‘𝑅) ↑m 𝐼))
36	29, 33, 35	syl2anc 596	. . . . . . . . . . . 12 ⊢ ((𝑅 ∈ DivRing ∧ (𝑀 ∈ (Base‘(𝐼 Mat 𝑅)) ∧ 𝐼 ≠ ∅)) → curry 𝑀:𝐼⟶((Base‘𝑅) ↑m 𝐼))
37	9, 36	jca 521	. . . . . . . . . . 11 ⊢ ((𝑅 ∈ DivRing ∧ (𝑀 ∈ (Base‘(𝐼 Mat 𝑅)) ∧ 𝐼 ≠ ∅)) → (𝐼 ∈ Fin ∧ curry 𝑀:𝐼⟶((Base‘𝑅) ↑m 𝐼)))
38	37	ex 418	. . . . . . . . . 10 ⊢ (𝑅 ∈ DivRing → ((𝑀 ∈ (Base‘(𝐼 Mat 𝑅)) ∧ 𝐼 ≠ ∅) → (𝐼 ∈ Fin ∧ curry 𝑀:𝐼⟶((Base‘𝑅) ↑m 𝐼))))
39	38	imdistani 579	. . . . . . . . 9 ⊢ ((𝑅 ∈ DivRing ∧ (𝑀 ∈ (Base‘(𝐼 Mat 𝑅)) ∧ 𝐼 ≠ ∅)) → (𝑅 ∈ DivRing ∧ (𝐼 ∈ Fin ∧ curry 𝑀:𝐼⟶((Base‘𝑅) ↑m 𝐼))))
40	39	anassrs 473	. . . . . . . 8 ⊢ (((𝑅 ∈ DivRing ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) ∧ 𝐼 ≠ ∅) → (𝑅 ∈ DivRing ∧ (𝐼 ∈ Fin ∧ curry 𝑀:𝐼⟶((Base‘𝑅) ↑m 𝐼))))
41		anass 474	. . . . . . . 8 ⊢ (((𝑅 ∈ DivRing ∧ 𝐼 ∈ Fin) ∧ curry 𝑀:𝐼⟶((Base‘𝑅) ↑m 𝐼)) ↔ (𝑅 ∈ DivRing ∧ (𝐼 ∈ Fin ∧ curry 𝑀:𝐼⟶((Base‘𝑅) ↑m 𝐼))))
42	40, 41	sylibr 237	. . . . . . 7 ⊢ (((𝑅 ∈ DivRing ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) ∧ 𝐼 ≠ ∅) → ((𝑅 ∈ DivRing ∧ 𝐼 ∈ Fin) ∧ curry 𝑀:𝐼⟶((Base‘𝑅) ↑m 𝐼)))
43		drngring 20884	. . . . . . . . . . . . 13 ⊢ (𝑅 ∈ DivRing → 𝑅 ∈ Ring)
44		eqid 2765	. . . . . . . . . . . . . 14 ⊢ (𝑅 unitVec 𝐼) = (𝑅 unitVec 𝐼)
45		eqid 2765	. . . . . . . . . . . . . 14 ⊢ (𝑅 freeLMod 𝐼) = (𝑅 freeLMod 𝐼)
46		eqid 2765	. . . . . . . . . . . . . 14 ⊢ (Base‘(𝑅 freeLMod 𝐼)) = (Base‘(𝑅 freeLMod 𝐼))
47	44, 45, 46	uvcff 21991	. . . . . . . . . . . . 13 ⊢ ((𝑅 ∈ Ring ∧ 𝐼 ∈ Fin) → (𝑅 unitVec 𝐼):𝐼⟶(Base‘(𝑅 freeLMod 𝐼)))
48	43, 47	sylan 592	. . . . . . . . . . . 12 ⊢ ((𝑅 ∈ DivRing ∧ 𝐼 ∈ Fin) → (𝑅 unitVec 𝐼):𝐼⟶(Base‘(𝑅 freeLMod 𝐼)))
49	48	ffvelcdmda 7083	. . . . . . . . . . 11 ⊢ (((𝑅 ∈ DivRing ∧ 𝐼 ∈ Fin) ∧ 𝑖 ∈ 𝐼) → ((𝑅 unitVec 𝐼)‘𝑖) ∈ (Base‘(𝑅 freeLMod 𝐼)))
50	49	ad4ant14 765	. . . . . . . . . 10 ⊢ (((((𝑅 ∈ DivRing ∧ 𝐼 ∈ Fin) ∧ curry 𝑀:𝐼⟶((Base‘𝑅) ↑m 𝐼)) ∧ curry 𝑀 LIndF (𝑅 freeLMod 𝐼)) ∧ 𝑖 ∈ 𝐼) → ((𝑅 unitVec 𝐼)‘𝑖) ∈ (Base‘(𝑅 freeLMod 𝐼)))
51		ffn 6709	. . . . . . . . . . . . . . . 16 ⊢ (curry 𝑀:𝐼⟶((Base‘𝑅) ↑m 𝐼) → curry 𝑀 Fn 𝐼)
52		fnima 6669	. . . . . . . . . . . . . . . 16 ⊢ (curry 𝑀 Fn 𝐼 → (curry 𝑀 “ 𝐼) = ran curry 𝑀)
53	51, 52	syl 18	. . . . . . . . . . . . . . 15 ⊢ (curry 𝑀:𝐼⟶((Base‘𝑅) ↑m 𝐼) → (curry 𝑀 “ 𝐼) = ran curry 𝑀)
54	53	adantl 487	. . . . . . . . . . . . . 14 ⊢ (((𝑅 ∈ DivRing ∧ 𝐼 ∈ Fin) ∧ curry 𝑀:𝐼⟶((Base‘𝑅) ↑m 𝐼)) → (curry 𝑀 “ 𝐼) = ran curry 𝑀)
55	54	fveq2d 6889	. . . . . . . . . . . . 13 ⊢ (((𝑅 ∈ DivRing ∧ 𝐼 ∈ Fin) ∧ curry 𝑀:𝐼⟶((Base‘𝑅) ↑m 𝐼)) → ((LSpan‘(𝑅 freeLMod 𝐼))‘(curry 𝑀 “ 𝐼)) = ((LSpan‘(𝑅 freeLMod 𝐼))‘ran curry 𝑀))
56	55	adantr 486	. . . . . . . . . . . 12 ⊢ ((((𝑅 ∈ DivRing ∧ 𝐼 ∈ Fin) ∧ curry 𝑀:𝐼⟶((Base‘𝑅) ↑m 𝐼)) ∧ curry 𝑀 LIndF (𝑅 freeLMod 𝐼)) → ((LSpan‘(𝑅 freeLMod 𝐼))‘(curry 𝑀 “ 𝐼)) = ((LSpan‘(𝑅 freeLMod 𝐼))‘ran curry 𝑀))
57		simplll 787	. . . . . . . . . . . . . 14 ⊢ ((((𝑅 ∈ DivRing ∧ 𝐼 ∈ Fin) ∧ curry 𝑀:𝐼⟶((Base‘𝑅) ↑m 𝐼)) ∧ curry 𝑀 LIndF (𝑅 freeLMod 𝐼)) → 𝑅 ∈ DivRing)
58		simpllr 788	. . . . . . . . . . . . . 14 ⊢ ((((𝑅 ∈ DivRing ∧ 𝐼 ∈ Fin) ∧ curry 𝑀:𝐼⟶((Base‘𝑅) ↑m 𝐼)) ∧ curry 𝑀 LIndF (𝑅 freeLMod 𝐼)) → 𝐼 ∈ Fin)
59	45	frlmlmod 21949	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑅 ∈ Ring ∧ 𝐼 ∈ Fin) → (𝑅 freeLMod 𝐼) ∈ LMod)
60	43, 59	sylan 592	. . . . . . . . . . . . . . . 16 ⊢ ((𝑅 ∈ DivRing ∧ 𝐼 ∈ Fin) → (𝑅 freeLMod 𝐼) ∈ LMod)
61	60	adantr 486	. . . . . . . . . . . . . . 15 ⊢ (((𝑅 ∈ DivRing ∧ 𝐼 ∈ Fin) ∧ curry 𝑀:𝐼⟶((Base‘𝑅) ↑m 𝐼)) → (𝑅 freeLMod 𝐼) ∈ LMod)
62		lindfrn 22021	. . . . . . . . . . . . . . 15 ⊢ (((𝑅 freeLMod 𝐼) ∈ LMod ∧ curry 𝑀 LIndF (𝑅 freeLMod 𝐼)) → ran curry 𝑀 ∈ (LIndS‘(𝑅 freeLMod 𝐼)))
63	61, 62	sylan 592	. . . . . . . . . . . . . 14 ⊢ ((((𝑅 ∈ DivRing ∧ 𝐼 ∈ Fin) ∧ curry 𝑀:𝐼⟶((Base‘𝑅) ↑m 𝐼)) ∧ curry 𝑀 LIndF (𝑅 freeLMod 𝐼)) → ran curry 𝑀 ∈ (LIndS‘(𝑅 freeLMod 𝐼)))
64	45	frlmsca 21953	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝑅 ∈ DivRing ∧ 𝐼 ∈ Fin) → 𝑅 = (Scalar‘(𝑅 freeLMod 𝐼)))
65		drngnzr 20898	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑅 ∈ DivRing → 𝑅 ∈ NzRing)
66	65	adantr 486	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝑅 ∈ DivRing ∧ 𝐼 ∈ Fin) → 𝑅 ∈ NzRing)
67	64, 66	eqeltrrd 2866	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝑅 ∈ DivRing ∧ 𝐼 ∈ Fin) → (Scalar‘(𝑅 freeLMod 𝐼)) ∈ NzRing)
68	60, 67	jca 521	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑅 ∈ DivRing ∧ 𝐼 ∈ Fin) → ((𝑅 freeLMod 𝐼) ∈ LMod ∧ (Scalar‘(𝑅 freeLMod 𝐼)) ∈ NzRing))
69		eqid 2765	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (Scalar‘(𝑅 freeLMod 𝐼)) = (Scalar‘(𝑅 freeLMod 𝐼))
70	46, 69	lindff1 22020	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝑅 freeLMod 𝐼) ∈ LMod ∧ (Scalar‘(𝑅 freeLMod 𝐼)) ∈ NzRing ∧ curry 𝑀 LIndF (𝑅 freeLMod 𝐼)) → curry 𝑀:dom curry 𝑀–1-1→(Base‘(𝑅 freeLMod 𝐼)))
71	70	3expa 1136	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝑅 freeLMod 𝐼) ∈ LMod ∧ (Scalar‘(𝑅 freeLMod 𝐼)) ∈ NzRing) ∧ curry 𝑀 LIndF (𝑅 freeLMod 𝐼)) → curry 𝑀:dom curry 𝑀–1-1→(Base‘(𝑅 freeLMod 𝐼)))
72	68, 71	sylan 592	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝑅 ∈ DivRing ∧ 𝐼 ∈ Fin) ∧ curry 𝑀 LIndF (𝑅 freeLMod 𝐼)) → curry 𝑀:dom curry 𝑀–1-1→(Base‘(𝑅 freeLMod 𝐼)))
73		fdm 6719	. . . . . . . . . . . . . . . . . . 19 ⊢ (curry 𝑀:𝐼⟶((Base‘𝑅) ↑m 𝐼) → dom curry 𝑀 = 𝐼)
74		f1eq2 6774	. . . . . . . . . . . . . . . . . . . 20 ⊢ (dom curry 𝑀 = 𝐼 → (curry 𝑀:dom curry 𝑀–1-1→(Base‘(𝑅 freeLMod 𝐼)) ↔ curry 𝑀:𝐼–1-1→(Base‘(𝑅 freeLMod 𝐼))))
75	74	biimpac 484	. . . . . . . . . . . . . . . . . . 19 ⊢ ((curry 𝑀:dom curry 𝑀–1-1→(Base‘(𝑅 freeLMod 𝐼)) ∧ dom curry 𝑀 = 𝐼) → curry 𝑀:𝐼–1-1→(Base‘(𝑅 freeLMod 𝐼)))
76	72, 73, 75	syl2an 608	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝑅 ∈ DivRing ∧ 𝐼 ∈ Fin) ∧ curry 𝑀 LIndF (𝑅 freeLMod 𝐼)) ∧ curry 𝑀:𝐼⟶((Base‘𝑅) ↑m 𝐼)) → curry 𝑀:𝐼–1-1→(Base‘(𝑅 freeLMod 𝐼)))
77	76	an32s 665	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝑅 ∈ DivRing ∧ 𝐼 ∈ Fin) ∧ curry 𝑀:𝐼⟶((Base‘𝑅) ↑m 𝐼)) ∧ curry 𝑀 LIndF (𝑅 freeLMod 𝐼)) → curry 𝑀:𝐼–1-1→(Base‘(𝑅 freeLMod 𝐼)))
78		f1f1orn 6836	. . . . . . . . . . . . . . . . 17 ⊢ (curry 𝑀:𝐼–1-1→(Base‘(𝑅 freeLMod 𝐼)) → curry 𝑀:𝐼–1-1-onto→ran curry 𝑀)
79	77, 78	syl 18	. . . . . . . . . . . . . . . 16 ⊢ ((((𝑅 ∈ DivRing ∧ 𝐼 ∈ Fin) ∧ curry 𝑀:𝐼⟶((Base‘𝑅) ↑m 𝐼)) ∧ curry 𝑀 LIndF (𝑅 freeLMod 𝐼)) → curry 𝑀:𝐼–1-1-onto→ran curry 𝑀)
80		f1oeng 8973	. . . . . . . . . . . . . . . 16 ⊢ ((𝐼 ∈ Fin ∧ curry 𝑀:𝐼–1-1-onto→ran curry 𝑀) → 𝐼 ≈ ran curry 𝑀)
81	58, 79, 80	syl2anc 596	. . . . . . . . . . . . . . 15 ⊢ ((((𝑅 ∈ DivRing ∧ 𝐼 ∈ Fin) ∧ curry 𝑀:𝐼⟶((Base‘𝑅) ↑m 𝐼)) ∧ curry 𝑀 LIndF (𝑅 freeLMod 𝐼)) → 𝐼 ≈ ran curry 𝑀)
82	81	ensymd 9008	. . . . . . . . . . . . . 14 ⊢ ((((𝑅 ∈ DivRing ∧ 𝐼 ∈ Fin) ∧ curry 𝑀:𝐼⟶((Base‘𝑅) ↑m 𝐼)) ∧ curry 𝑀 LIndF (𝑅 freeLMod 𝐼)) → ran curry 𝑀 ≈ 𝐼)
83		lindsenlbs 38323	. . . . . . . . . . . . . 14 ⊢ (((𝑅 ∈ DivRing ∧ 𝐼 ∈ Fin ∧ ran curry 𝑀 ∈ (LIndS‘(𝑅 freeLMod 𝐼))) ∧ ran curry 𝑀 ≈ 𝐼) → ran curry 𝑀 ∈ (LBasis‘(𝑅 freeLMod 𝐼)))
84	57, 58, 63, 82, 83	syl31anc 1400	. . . . . . . . . . . . 13 ⊢ ((((𝑅 ∈ DivRing ∧ 𝐼 ∈ Fin) ∧ curry 𝑀:𝐼⟶((Base‘𝑅) ↑m 𝐼)) ∧ curry 𝑀 LIndF (𝑅 freeLMod 𝐼)) → ran curry 𝑀 ∈ (LBasis‘(𝑅 freeLMod 𝐼)))
85		eqid 2765	. . . . . . . . . . . . . 14 ⊢ (LBasis‘(𝑅 freeLMod 𝐼)) = (LBasis‘(𝑅 freeLMod 𝐼))
86		eqid 2765	. . . . . . . . . . . . . 14 ⊢ (LSpan‘(𝑅 freeLMod 𝐼)) = (LSpan‘(𝑅 freeLMod 𝐼))
87	46, 85, 86	lbssp 21250	. . . . . . . . . . . . 13 ⊢ (ran curry 𝑀 ∈ (LBasis‘(𝑅 freeLMod 𝐼)) → ((LSpan‘(𝑅 freeLMod 𝐼))‘ran curry 𝑀) = (Base‘(𝑅 freeLMod 𝐼)))
88	84, 87	syl 18	. . . . . . . . . . . 12 ⊢ ((((𝑅 ∈ DivRing ∧ 𝐼 ∈ Fin) ∧ curry 𝑀:𝐼⟶((Base‘𝑅) ↑m 𝐼)) ∧ curry 𝑀 LIndF (𝑅 freeLMod 𝐼)) → ((LSpan‘(𝑅 freeLMod 𝐼))‘ran curry 𝑀) = (Base‘(𝑅 freeLMod 𝐼)))
89	56, 88	eqtrd 2800	. . . . . . . . . . 11 ⊢ ((((𝑅 ∈ DivRing ∧ 𝐼 ∈ Fin) ∧ curry 𝑀:𝐼⟶((Base‘𝑅) ↑m 𝐼)) ∧ curry 𝑀 LIndF (𝑅 freeLMod 𝐼)) → ((LSpan‘(𝑅 freeLMod 𝐼))‘(curry 𝑀 “ 𝐼)) = (Base‘(𝑅 freeLMod 𝐼)))
90	89	adantr 486	. . . . . . . . . 10 ⊢ (((((𝑅 ∈ DivRing ∧ 𝐼 ∈ Fin) ∧ curry 𝑀:𝐼⟶((Base‘𝑅) ↑m 𝐼)) ∧ curry 𝑀 LIndF (𝑅 freeLMod 𝐼)) ∧ 𝑖 ∈ 𝐼) → ((LSpan‘(𝑅 freeLMod 𝐼))‘(curry 𝑀 “ 𝐼)) = (Base‘(𝑅 freeLMod 𝐼)))
91	50, 90	eleqtrrd 2868	. . . . . . . . 9 ⊢ (((((𝑅 ∈ DivRing ∧ 𝐼 ∈ Fin) ∧ curry 𝑀:𝐼⟶((Base‘𝑅) ↑m 𝐼)) ∧ curry 𝑀 LIndF (𝑅 freeLMod 𝐼)) ∧ 𝑖 ∈ 𝐼) → ((𝑅 unitVec 𝐼)‘𝑖) ∈ ((LSpan‘(𝑅 freeLMod 𝐼))‘(curry 𝑀 “ 𝐼)))
92		eqid 2765	. . . . . . . . . . . . 13 ⊢ (Base‘(Scalar‘(𝑅 freeLMod 𝐼))) = (Base‘(Scalar‘(𝑅 freeLMod 𝐼)))
93		eqid 2765	. . . . . . . . . . . . 13 ⊢ (0g‘(Scalar‘(𝑅 freeLMod 𝐼))) = (0g‘(Scalar‘(𝑅 freeLMod 𝐼)))
94		eqid 2765	. . . . . . . . . . . . 13 ⊢ ( ·𝑠 ‘(𝑅 freeLMod 𝐼)) = ( ·𝑠 ‘(𝑅 freeLMod 𝐼))
95	45, 14	frlmfibas 21962	. . . . . . . . . . . . . . 15 ⊢ ((𝑅 ∈ Ring ∧ 𝐼 ∈ Fin) → ((Base‘𝑅) ↑m 𝐼) = (Base‘(𝑅 freeLMod 𝐼)))
96	95	feq3d 6694	. . . . . . . . . . . . . 14 ⊢ ((𝑅 ∈ Ring ∧ 𝐼 ∈ Fin) → (curry 𝑀:𝐼⟶((Base‘𝑅) ↑m 𝐼) ↔ curry 𝑀:𝐼⟶(Base‘(𝑅 freeLMod 𝐼))))
97	96	biimpa 482	. . . . . . . . . . . . 13 ⊢ (((𝑅 ∈ Ring ∧ 𝐼 ∈ Fin) ∧ curry 𝑀:𝐼⟶((Base‘𝑅) ↑m 𝐼)) → curry 𝑀:𝐼⟶(Base‘(𝑅 freeLMod 𝐼)))
98	59	adantr 486	. . . . . . . . . . . . 13 ⊢ (((𝑅 ∈ Ring ∧ 𝐼 ∈ Fin) ∧ curry 𝑀:𝐼⟶((Base‘𝑅) ↑m 𝐼)) → (𝑅 freeLMod 𝐼) ∈ LMod)
99		simplr 781	. . . . . . . . . . . . 13 ⊢ (((𝑅 ∈ Ring ∧ 𝐼 ∈ Fin) ∧ curry 𝑀:𝐼⟶((Base‘𝑅) ↑m 𝐼)) → 𝐼 ∈ Fin)
100	86, 46, 92, 69, 93, 94, 97, 98, 99	elfilspd 22003	. . . . . . . . . . . 12 ⊢ (((𝑅 ∈ Ring ∧ 𝐼 ∈ Fin) ∧ curry 𝑀:𝐼⟶((Base‘𝑅) ↑m 𝐼)) → (((𝑅 unitVec 𝐼)‘𝑖) ∈ ((LSpan‘(𝑅 freeLMod 𝐼))‘(curry 𝑀 “ 𝐼)) ↔ ∃𝑛 ∈ ((Base‘(Scalar‘(𝑅 freeLMod 𝐼))) ↑m 𝐼)((𝑅 unitVec 𝐼)‘𝑖) = ((𝑅 freeLMod 𝐼) Σg (𝑛 ∘f ( ·𝑠 ‘(𝑅 freeLMod 𝐼))curry 𝑀))))
101	45	frlmsca 21953	. . . . . . . . . . . . . . . 16 ⊢ ((𝑅 ∈ Ring ∧ 𝐼 ∈ Fin) → 𝑅 = (Scalar‘(𝑅 freeLMod 𝐼)))
102	101	fveq2d 6889	. . . . . . . . . . . . . . 15 ⊢ ((𝑅 ∈ Ring ∧ 𝐼 ∈ Fin) → (Base‘𝑅) = (Base‘(Scalar‘(𝑅 freeLMod 𝐼))))
103	102	oveq1d 7434	. . . . . . . . . . . . . 14 ⊢ ((𝑅 ∈ Ring ∧ 𝐼 ∈ Fin) → ((Base‘𝑅) ↑m 𝐼) = ((Base‘(Scalar‘(𝑅 freeLMod 𝐼))) ↑m 𝐼))
104	103	adantr 486	. . . . . . . . . . . . 13 ⊢ (((𝑅 ∈ Ring ∧ 𝐼 ∈ Fin) ∧ curry 𝑀:𝐼⟶((Base‘𝑅) ↑m 𝐼)) → ((Base‘𝑅) ↑m 𝐼) = ((Base‘(Scalar‘(𝑅 freeLMod 𝐼))) ↑m 𝐼))
105		elmapi 8852	. . . . . . . . . . . . . . 15 ⊢ (𝑛 ∈ ((Base‘𝑅) ↑m 𝐼) → 𝑛:𝐼⟶(Base‘𝑅))
106		ffn 6709	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑛:𝐼⟶(Base‘𝑅) → 𝑛 Fn 𝐼)
107	106	adantl 487	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝑅 ∈ Ring ∧ 𝐼 ∈ Fin) ∧ curry 𝑀:𝐼⟶((Base‘𝑅) ↑m 𝐼)) ∧ 𝑛:𝐼⟶(Base‘𝑅)) → 𝑛 Fn 𝐼)
108	51	ad2antlr 740	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝑅 ∈ Ring ∧ 𝐼 ∈ Fin) ∧ curry 𝑀:𝐼⟶((Base‘𝑅) ↑m 𝐼)) ∧ 𝑛:𝐼⟶(Base‘𝑅)) → curry 𝑀 Fn 𝐼)
109		simpllr 788	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝑅 ∈ Ring ∧ 𝐼 ∈ Fin) ∧ curry 𝑀:𝐼⟶((Base‘𝑅) ↑m 𝐼)) ∧ 𝑛:𝐼⟶(Base‘𝑅)) → 𝐼 ∈ Fin)
110		inidm 4179	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝐼 ∩ 𝐼) = 𝐼
111		eqidd 2766	. . . . . . . . . . . . . . . . . . 19 ⊢ (((((𝑅 ∈ Ring ∧ 𝐼 ∈ Fin) ∧ curry 𝑀:𝐼⟶((Base‘𝑅) ↑m 𝐼)) ∧ 𝑛:𝐼⟶(Base‘𝑅)) ∧ 𝑘 ∈ 𝐼) → (𝑛‘𝑘) = (𝑛‘𝑘))
112		eqidd 2766	. . . . . . . . . . . . . . . . . . 19 ⊢ (((((𝑅 ∈ Ring ∧ 𝐼 ∈ Fin) ∧ curry 𝑀:𝐼⟶((Base‘𝑅) ↑m 𝐼)) ∧ 𝑛:𝐼⟶(Base‘𝑅)) ∧ 𝑘 ∈ 𝐼) → (curry 𝑀‘𝑘) = (curry 𝑀‘𝑘))
113	107, 108, 109, 109, 110, 111, 112	offval 7693	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝑅 ∈ Ring ∧ 𝐼 ∈ Fin) ∧ curry 𝑀:𝐼⟶((Base‘𝑅) ↑m 𝐼)) ∧ 𝑛:𝐼⟶(Base‘𝑅)) → (𝑛 ∘f ( ·𝑠 ‘(𝑅 freeLMod 𝐼))curry 𝑀) = (𝑘 ∈ 𝐼 ↦ ((𝑛‘𝑘)( ·𝑠 ‘(𝑅 freeLMod 𝐼))(curry 𝑀‘𝑘))))
114		simp-4r 796	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((((𝑅 ∈ Ring ∧ 𝐼 ∈ Fin) ∧ curry 𝑀:𝐼⟶((Base‘𝑅) ↑m 𝐼)) ∧ 𝑛:𝐼⟶(Base‘𝑅)) ∧ 𝑘 ∈ 𝐼) → 𝐼 ∈ Fin)
115		ffvelcdm 7080	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝑛:𝐼⟶(Base‘𝑅) ∧ 𝑘 ∈ 𝐼) → (𝑛‘𝑘) ∈ (Base‘𝑅))
116	115	adantll 727	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((((𝑅 ∈ Ring ∧ 𝐼 ∈ Fin) ∧ curry 𝑀:𝐼⟶((Base‘𝑅) ↑m 𝐼)) ∧ 𝑛:𝐼⟶(Base‘𝑅)) ∧ 𝑘 ∈ 𝐼) → (𝑛‘𝑘) ∈ (Base‘𝑅))
117		ffvelcdm 7080	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((curry 𝑀:𝐼⟶((Base‘𝑅) ↑m 𝐼) ∧ 𝑘 ∈ 𝐼) → (curry 𝑀‘𝑘) ∈ ((Base‘𝑅) ↑m 𝐼))
118	117	ad4ant24 767	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((((𝑅 ∈ Ring ∧ 𝐼 ∈ Fin) ∧ curry 𝑀:𝐼⟶((Base‘𝑅) ↑m 𝐼)) ∧ 𝑛:𝐼⟶(Base‘𝑅)) ∧ 𝑘 ∈ 𝐼) → (curry 𝑀‘𝑘) ∈ ((Base‘𝑅) ↑m 𝐼))
119	95	ad3antrrr 743	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((((𝑅 ∈ Ring ∧ 𝐼 ∈ Fin) ∧ curry 𝑀:𝐼⟶((Base‘𝑅) ↑m 𝐼)) ∧ 𝑛:𝐼⟶(Base‘𝑅)) ∧ 𝑘 ∈ 𝐼) → ((Base‘𝑅) ↑m 𝐼) = (Base‘(𝑅 freeLMod 𝐼)))
120	118, 119	eleqtrd 2867	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((((𝑅 ∈ Ring ∧ 𝐼 ∈ Fin) ∧ curry 𝑀:𝐼⟶((Base‘𝑅) ↑m 𝐼)) ∧ 𝑛:𝐼⟶(Base‘𝑅)) ∧ 𝑘 ∈ 𝐼) → (curry 𝑀‘𝑘) ∈ (Base‘(𝑅 freeLMod 𝐼)))
121		eqid 2765	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (.r‘𝑅) = (.r‘𝑅)
122	45, 46, 14, 114, 116, 120, 94, 121	frlmvscafval 21966	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((((𝑅 ∈ Ring ∧ 𝐼 ∈ Fin) ∧ curry 𝑀:𝐼⟶((Base‘𝑅) ↑m 𝐼)) ∧ 𝑛:𝐼⟶(Base‘𝑅)) ∧ 𝑘 ∈ 𝐼) → ((𝑛‘𝑘)( ·𝑠 ‘(𝑅 freeLMod 𝐼))(curry 𝑀‘𝑘)) = ((𝐼 × {(𝑛‘𝑘)}) ∘f (.r‘𝑅)(curry 𝑀‘𝑘)))
123		fvex 6898	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑛‘𝑘) ∈ V
124		fnconstg 6770	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝑛‘𝑘) ∈ V → (𝐼 × {(𝑛‘𝑘)}) Fn 𝐼)
125	123, 124	mp1i 14	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((((𝑅 ∈ Ring ∧ 𝐼 ∈ Fin) ∧ curry 𝑀:𝐼⟶((Base‘𝑅) ↑m 𝐼)) ∧ 𝑛:𝐼⟶(Base‘𝑅)) ∧ 𝑘 ∈ 𝐼) → (𝐼 × {(𝑛‘𝑘)}) Fn 𝐼)
126		elmapfn 8868	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((curry 𝑀‘𝑘) ∈ ((Base‘𝑅) ↑m 𝐼) → (curry 𝑀‘𝑘) Fn 𝐼)
127	117, 126	syl 18	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((curry 𝑀:𝐼⟶((Base‘𝑅) ↑m 𝐼) ∧ 𝑘 ∈ 𝐼) → (curry 𝑀‘𝑘) Fn 𝐼)
128	127	ad4ant24 767	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((((𝑅 ∈ Ring ∧ 𝐼 ∈ Fin) ∧ curry 𝑀:𝐼⟶((Base‘𝑅) ↑m 𝐼)) ∧ 𝑛:𝐼⟶(Base‘𝑅)) ∧ 𝑘 ∈ 𝐼) → (curry 𝑀‘𝑘) Fn 𝐼)
129	123	fvconst2 7209	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑗 ∈ 𝐼 → ((𝐼 × {(𝑛‘𝑘)})‘𝑗) = (𝑛‘𝑘))
130	129	adantl 487	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((((𝑅 ∈ Ring ∧ 𝐼 ∈ Fin) ∧ curry 𝑀:𝐼⟶((Base‘𝑅) ↑m 𝐼)) ∧ 𝑛:𝐼⟶(Base‘𝑅)) ∧ 𝑘 ∈ 𝐼) ∧ 𝑗 ∈ 𝐼) → ((𝐼 × {(𝑛‘𝑘)})‘𝑗) = (𝑛‘𝑘))
131		eqidd 2766	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((((𝑅 ∈ Ring ∧ 𝐼 ∈ Fin) ∧ curry 𝑀:𝐼⟶((Base‘𝑅) ↑m 𝐼)) ∧ 𝑛:𝐼⟶(Base‘𝑅)) ∧ 𝑘 ∈ 𝐼) ∧ 𝑗 ∈ 𝐼) → ((curry 𝑀‘𝑘)‘𝑗) = ((curry 𝑀‘𝑘)‘𝑗))
132	125, 128, 114, 114, 110, 130, 131	offval 7693	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((((𝑅 ∈ Ring ∧ 𝐼 ∈ Fin) ∧ curry 𝑀:𝐼⟶((Base‘𝑅) ↑m 𝐼)) ∧ 𝑛:𝐼⟶(Base‘𝑅)) ∧ 𝑘 ∈ 𝐼) → ((𝐼 × {(𝑛‘𝑘)}) ∘f (.r‘𝑅)(curry 𝑀‘𝑘)) = (𝑗 ∈ 𝐼 ↦ ((𝑛‘𝑘)(.r‘𝑅)((curry 𝑀‘𝑘)‘𝑗))))
133	122, 132	eqtrd 2800	. . . . . . . . . . . . . . . . . . 19 ⊢ (((((𝑅 ∈ Ring ∧ 𝐼 ∈ Fin) ∧ curry 𝑀:𝐼⟶((Base‘𝑅) ↑m 𝐼)) ∧ 𝑛:𝐼⟶(Base‘𝑅)) ∧ 𝑘 ∈ 𝐼) → ((𝑛‘𝑘)( ·𝑠 ‘(𝑅 freeLMod 𝐼))(curry 𝑀‘𝑘)) = (𝑗 ∈ 𝐼 ↦ ((𝑛‘𝑘)(.r‘𝑅)((curry 𝑀‘𝑘)‘𝑗))))
134	133	mpteq2dva 5206	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝑅 ∈ Ring ∧ 𝐼 ∈ Fin) ∧ curry 𝑀:𝐼⟶((Base‘𝑅) ↑m 𝐼)) ∧ 𝑛:𝐼⟶(Base‘𝑅)) → (𝑘 ∈ 𝐼 ↦ ((𝑛‘𝑘)( ·𝑠 ‘(𝑅 freeLMod 𝐼))(curry 𝑀‘𝑘))) = (𝑘 ∈ 𝐼 ↦ (𝑗 ∈ 𝐼 ↦ ((𝑛‘𝑘)(.r‘𝑅)((curry 𝑀‘𝑘)‘𝑗)))))
135	113, 134	eqtrd 2800	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝑅 ∈ Ring ∧ 𝐼 ∈ Fin) ∧ curry 𝑀:𝐼⟶((Base‘𝑅) ↑m 𝐼)) ∧ 𝑛:𝐼⟶(Base‘𝑅)) → (𝑛 ∘f ( ·𝑠 ‘(𝑅 freeLMod 𝐼))curry 𝑀) = (𝑘 ∈ 𝐼 ↦ (𝑗 ∈ 𝐼 ↦ ((𝑛‘𝑘)(.r‘𝑅)((curry 𝑀‘𝑘)‘𝑗)))))
136	135	oveq2d 7435	. . . . . . . . . . . . . . . 16 ⊢ ((((𝑅 ∈ Ring ∧ 𝐼 ∈ Fin) ∧ curry 𝑀:𝐼⟶((Base‘𝑅) ↑m 𝐼)) ∧ 𝑛:𝐼⟶(Base‘𝑅)) → ((𝑅 freeLMod 𝐼) Σg (𝑛 ∘f ( ·𝑠 ‘(𝑅 freeLMod 𝐼))curry 𝑀)) = ((𝑅 freeLMod 𝐼) Σg (𝑘 ∈ 𝐼 ↦ (𝑗 ∈ 𝐼 ↦ ((𝑛‘𝑘)(.r‘𝑅)((curry 𝑀‘𝑘)‘𝑗))))))
137		eqid 2765	. . . . . . . . . . . . . . . . 17 ⊢ (0g‘(𝑅 freeLMod 𝐼)) = (0g‘(𝑅 freeLMod 𝐼))
138		simplll 787	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝑅 ∈ Ring ∧ 𝐼 ∈ Fin) ∧ curry 𝑀:𝐼⟶((Base‘𝑅) ↑m 𝐼)) ∧ 𝑛:𝐼⟶(Base‘𝑅)) → 𝑅 ∈ Ring)
139		simp-5l 797	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((((𝑅 ∈ Ring ∧ 𝐼 ∈ Fin) ∧ curry 𝑀:𝐼⟶((Base‘𝑅) ↑m 𝐼)) ∧ 𝑛:𝐼⟶(Base‘𝑅)) ∧ 𝑘 ∈ 𝐼) ∧ 𝑗 ∈ 𝐼) → 𝑅 ∈ Ring)
140	115	ad4ant23 766	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((((𝑅 ∈ Ring ∧ 𝐼 ∈ Fin) ∧ curry 𝑀:𝐼⟶((Base‘𝑅) ↑m 𝐼)) ∧ 𝑛:𝐼⟶(Base‘𝑅)) ∧ 𝑘 ∈ 𝐼) ∧ 𝑗 ∈ 𝐼) → (𝑛‘𝑘) ∈ (Base‘𝑅))
141		simplr 781	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝑅 ∈ Ring ∧ 𝐼 ∈ Fin) ∧ curry 𝑀:𝐼⟶((Base‘𝑅) ↑m 𝐼)) ∧ 𝑛:𝐼⟶(Base‘𝑅)) → curry 𝑀:𝐼⟶((Base‘𝑅) ↑m 𝐼))
142		elmapi 8852	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((curry 𝑀‘𝑘) ∈ ((Base‘𝑅) ↑m 𝐼) → (curry 𝑀‘𝑘):𝐼⟶(Base‘𝑅))
143	117, 142	syl 18	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((curry 𝑀:𝐼⟶((Base‘𝑅) ↑m 𝐼) ∧ 𝑘 ∈ 𝐼) → (curry 𝑀‘𝑘):𝐼⟶(Base‘𝑅))
144	143	ffvelcdmda 7083	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((curry 𝑀:𝐼⟶((Base‘𝑅) ↑m 𝐼) ∧ 𝑘 ∈ 𝐼) ∧ 𝑗 ∈ 𝐼) → ((curry 𝑀‘𝑘)‘𝑗) ∈ (Base‘𝑅))
145	141, 144	sylanl1 693	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((((𝑅 ∈ Ring ∧ 𝐼 ∈ Fin) ∧ curry 𝑀:𝐼⟶((Base‘𝑅) ↑m 𝐼)) ∧ 𝑛:𝐼⟶(Base‘𝑅)) ∧ 𝑘 ∈ 𝐼) ∧ 𝑗 ∈ 𝐼) → ((curry 𝑀‘𝑘)‘𝑗) ∈ (Base‘𝑅))
146	14, 121	ringcl 20376	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑅 ∈ Ring ∧ (𝑛‘𝑘) ∈ (Base‘𝑅) ∧ ((curry 𝑀‘𝑘)‘𝑗) ∈ (Base‘𝑅)) → ((𝑛‘𝑘)(.r‘𝑅)((curry 𝑀‘𝑘)‘𝑗)) ∈ (Base‘𝑅))
147	139, 140, 145, 146	syl3anc 1398	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((((𝑅 ∈ Ring ∧ 𝐼 ∈ Fin) ∧ curry 𝑀:𝐼⟶((Base‘𝑅) ↑m 𝐼)) ∧ 𝑛:𝐼⟶(Base‘𝑅)) ∧ 𝑘 ∈ 𝐼) ∧ 𝑗 ∈ 𝐼) → ((𝑛‘𝑘)(.r‘𝑅)((curry 𝑀‘𝑘)‘𝑗)) ∈ (Base‘𝑅))
148	147	fmpttd 7114	. . . . . . . . . . . . . . . . . 18 ⊢ (((((𝑅 ∈ Ring ∧ 𝐼 ∈ Fin) ∧ curry 𝑀:𝐼⟶((Base‘𝑅) ↑m 𝐼)) ∧ 𝑛:𝐼⟶(Base‘𝑅)) ∧ 𝑘 ∈ 𝐼) → (𝑗 ∈ 𝐼 ↦ ((𝑛‘𝑘)(.r‘𝑅)((curry 𝑀‘𝑘)‘𝑗))):𝐼⟶(Base‘𝑅))
149		elmapg 8842	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((Base‘𝑅) ∈ V ∧ 𝐼 ∈ Fin) → ((𝑗 ∈ 𝐼 ↦ ((𝑛‘𝑘)(.r‘𝑅)((curry 𝑀‘𝑘)‘𝑗))) ∈ ((Base‘𝑅) ↑m 𝐼) ↔ (𝑗 ∈ 𝐼 ↦ ((𝑛‘𝑘)(.r‘𝑅)((curry 𝑀‘𝑘)‘𝑗))):𝐼⟶(Base‘𝑅)))
150	22, 149	mpan 703	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝐼 ∈ Fin → ((𝑗 ∈ 𝐼 ↦ ((𝑛‘𝑘)(.r‘𝑅)((curry 𝑀‘𝑘)‘𝑗))) ∈ ((Base‘𝑅) ↑m 𝐼) ↔ (𝑗 ∈ 𝐼 ↦ ((𝑛‘𝑘)(.r‘𝑅)((curry 𝑀‘𝑘)‘𝑗))):𝐼⟶(Base‘𝑅)))
151	150	adantl 487	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑅 ∈ Ring ∧ 𝐼 ∈ Fin) → ((𝑗 ∈ 𝐼 ↦ ((𝑛‘𝑘)(.r‘𝑅)((curry 𝑀‘𝑘)‘𝑗))) ∈ ((Base‘𝑅) ↑m 𝐼) ↔ (𝑗 ∈ 𝐼 ↦ ((𝑛‘𝑘)(.r‘𝑅)((curry 𝑀‘𝑘)‘𝑗))):𝐼⟶(Base‘𝑅)))
152	95	eleq2d 2851	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑅 ∈ Ring ∧ 𝐼 ∈ Fin) → ((𝑗 ∈ 𝐼 ↦ ((𝑛‘𝑘)(.r‘𝑅)((curry 𝑀‘𝑘)‘𝑗))) ∈ ((Base‘𝑅) ↑m 𝐼) ↔ (𝑗 ∈ 𝐼 ↦ ((𝑛‘𝑘)(.r‘𝑅)((curry 𝑀‘𝑘)‘𝑗))) ∈ (Base‘(𝑅 freeLMod 𝐼))))
153	151, 152	bitr3d 284	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑅 ∈ Ring ∧ 𝐼 ∈ Fin) → ((𝑗 ∈ 𝐼 ↦ ((𝑛‘𝑘)(.r‘𝑅)((curry 𝑀‘𝑘)‘𝑗))):𝐼⟶(Base‘𝑅) ↔ (𝑗 ∈ 𝐼 ↦ ((𝑛‘𝑘)(.r‘𝑅)((curry 𝑀‘𝑘)‘𝑗))) ∈ (Base‘(𝑅 freeLMod 𝐼))))
154	153	ad3antrrr 743	. . . . . . . . . . . . . . . . . 18 ⊢ (((((𝑅 ∈ Ring ∧ 𝐼 ∈ Fin) ∧ curry 𝑀:𝐼⟶((Base‘𝑅) ↑m 𝐼)) ∧ 𝑛:𝐼⟶(Base‘𝑅)) ∧ 𝑘 ∈ 𝐼) → ((𝑗 ∈ 𝐼 ↦ ((𝑛‘𝑘)(.r‘𝑅)((curry 𝑀‘𝑘)‘𝑗))):𝐼⟶(Base‘𝑅) ↔ (𝑗 ∈ 𝐼 ↦ ((𝑛‘𝑘)(.r‘𝑅)((curry 𝑀‘𝑘)‘𝑗))) ∈ (Base‘(𝑅 freeLMod 𝐼))))
155	148, 154	mpbid 235	. . . . . . . . . . . . . . . . 17 ⊢ (((((𝑅 ∈ Ring ∧ 𝐼 ∈ Fin) ∧ curry 𝑀:𝐼⟶((Base‘𝑅) ↑m 𝐼)) ∧ 𝑛:𝐼⟶(Base‘𝑅)) ∧ 𝑘 ∈ 𝐼) → (𝑗 ∈ 𝐼 ↦ ((𝑛‘𝑘)(.r‘𝑅)((curry 𝑀‘𝑘)‘𝑗))) ∈ (Base‘(𝑅 freeLMod 𝐼)))
156		mptexg 7226	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝐼 ∈ Fin → (𝑗 ∈ 𝐼 ↦ ((𝑛‘𝑘)(.r‘𝑅)((curry 𝑀‘𝑘)‘𝑗))) ∈ V)
157	156	ralrimivw 3163	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝐼 ∈ Fin → ∀𝑘 ∈ 𝐼 (𝑗 ∈ 𝐼 ↦ ((𝑛‘𝑘)(.r‘𝑅)((curry 𝑀‘𝑘)‘𝑗))) ∈ V)
158		eqid 2765	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑘 ∈ 𝐼 ↦ (𝑗 ∈ 𝐼 ↦ ((𝑛‘𝑘)(.r‘𝑅)((curry 𝑀‘𝑘)‘𝑗)))) = (𝑘 ∈ 𝐼 ↦ (𝑗 ∈ 𝐼 ↦ ((𝑛‘𝑘)(.r‘𝑅)((curry 𝑀‘𝑘)‘𝑗))))
159	158	fnmpt 6679	. . . . . . . . . . . . . . . . . . . 20 ⊢ (∀𝑘 ∈ 𝐼 (𝑗 ∈ 𝐼 ↦ ((𝑛‘𝑘)(.r‘𝑅)((curry 𝑀‘𝑘)‘𝑗))) ∈ V → (𝑘 ∈ 𝐼 ↦ (𝑗 ∈ 𝐼 ↦ ((𝑛‘𝑘)(.r‘𝑅)((curry 𝑀‘𝑘)‘𝑗)))) Fn 𝐼)
160	157, 159	syl 18	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝐼 ∈ Fin → (𝑘 ∈ 𝐼 ↦ (𝑗 ∈ 𝐼 ↦ ((𝑛‘𝑘)(.r‘𝑅)((curry 𝑀‘𝑘)‘𝑗)))) Fn 𝐼)
161		id 23	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝐼 ∈ Fin → 𝐼 ∈ Fin)
162		fvexd 6900	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝐼 ∈ Fin → (0g‘(𝑅 freeLMod 𝐼)) ∈ V)
163	160, 161, 162	fndmfifsupp 9345	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐼 ∈ Fin → (𝑘 ∈ 𝐼 ↦ (𝑗 ∈ 𝐼 ↦ ((𝑛‘𝑘)(.r‘𝑅)((curry 𝑀‘𝑘)‘𝑗)))) finSupp (0g‘(𝑅 freeLMod 𝐼)))
164	163	ad3antlr 744	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝑅 ∈ Ring ∧ 𝐼 ∈ Fin) ∧ curry 𝑀:𝐼⟶((Base‘𝑅) ↑m 𝐼)) ∧ 𝑛:𝐼⟶(Base‘𝑅)) → (𝑘 ∈ 𝐼 ↦ (𝑗 ∈ 𝐼 ↦ ((𝑛‘𝑘)(.r‘𝑅)((curry 𝑀‘𝑘)‘𝑗)))) finSupp (0g‘(𝑅 freeLMod 𝐼)))
165	45, 46, 137, 109, 109, 138, 155, 164	frlmgsum 21972	. . . . . . . . . . . . . . . 16 ⊢ ((((𝑅 ∈ Ring ∧ 𝐼 ∈ Fin) ∧ curry 𝑀:𝐼⟶((Base‘𝑅) ↑m 𝐼)) ∧ 𝑛:𝐼⟶(Base‘𝑅)) → ((𝑅 freeLMod 𝐼) Σg (𝑘 ∈ 𝐼 ↦ (𝑗 ∈ 𝐼 ↦ ((𝑛‘𝑘)(.r‘𝑅)((curry 𝑀‘𝑘)‘𝑗))))) = (𝑗 ∈ 𝐼 ↦ (𝑅 Σg (𝑘 ∈ 𝐼 ↦ ((𝑛‘𝑘)(.r‘𝑅)((curry 𝑀‘𝑘)‘𝑗))))))
166	136, 165	eqtr2d 2801	. . . . . . . . . . . . . . 15 ⊢ ((((𝑅 ∈ Ring ∧ 𝐼 ∈ Fin) ∧ curry 𝑀:𝐼⟶((Base‘𝑅) ↑m 𝐼)) ∧ 𝑛:𝐼⟶(Base‘𝑅)) → (𝑗 ∈ 𝐼 ↦ (𝑅 Σg (𝑘 ∈ 𝐼 ↦ ((𝑛‘𝑘)(.r‘𝑅)((curry 𝑀‘𝑘)‘𝑗))))) = ((𝑅 freeLMod 𝐼) Σg (𝑛 ∘f ( ·𝑠 ‘(𝑅 freeLMod 𝐼))curry 𝑀)))
167	105, 166	sylan2 605	. . . . . . . . . . . . . 14 ⊢ ((((𝑅 ∈ Ring ∧ 𝐼 ∈ Fin) ∧ curry 𝑀:𝐼⟶((Base‘𝑅) ↑m 𝐼)) ∧ 𝑛 ∈ ((Base‘𝑅) ↑m 𝐼)) → (𝑗 ∈ 𝐼 ↦ (𝑅 Σg (𝑘 ∈ 𝐼 ↦ ((𝑛‘𝑘)(.r‘𝑅)((curry 𝑀‘𝑘)‘𝑗))))) = ((𝑅 freeLMod 𝐼) Σg (𝑛 ∘f ( ·𝑠 ‘(𝑅 freeLMod 𝐼))curry 𝑀)))
168	167	eqeq2d 2776	. . . . . . . . . . . . 13 ⊢ ((((𝑅 ∈ Ring ∧ 𝐼 ∈ Fin) ∧ curry 𝑀:𝐼⟶((Base‘𝑅) ↑m 𝐼)) ∧ 𝑛 ∈ ((Base‘𝑅) ↑m 𝐼)) → (((𝑅 unitVec 𝐼)‘𝑖) = (𝑗 ∈ 𝐼 ↦ (𝑅 Σg (𝑘 ∈ 𝐼 ↦ ((𝑛‘𝑘)(.r‘𝑅)((curry 𝑀‘𝑘)‘𝑗))))) ↔ ((𝑅 unitVec 𝐼)‘𝑖) = ((𝑅 freeLMod 𝐼) Σg (𝑛 ∘f ( ·𝑠 ‘(𝑅 freeLMod 𝐼))curry 𝑀))))
169	104, 168	rexeqbidva 3332	. . . . . . . . . . . 12 ⊢ (((𝑅 ∈ Ring ∧ 𝐼 ∈ Fin) ∧ curry 𝑀:𝐼⟶((Base‘𝑅) ↑m 𝐼)) → (∃𝑛 ∈ ((Base‘𝑅) ↑m 𝐼)((𝑅 unitVec 𝐼)‘𝑖) = (𝑗 ∈ 𝐼 ↦ (𝑅 Σg (𝑘 ∈ 𝐼 ↦ ((𝑛‘𝑘)(.r‘𝑅)((curry 𝑀‘𝑘)‘𝑗))))) ↔ ∃𝑛 ∈ ((Base‘(Scalar‘(𝑅 freeLMod 𝐼))) ↑m 𝐼)((𝑅 unitVec 𝐼)‘𝑖) = ((𝑅 freeLMod 𝐼) Σg (𝑛 ∘f ( ·𝑠 ‘(𝑅 freeLMod 𝐼))curry 𝑀))))
170	100, 169	bitr4d 285	. . . . . . . . . . 11 ⊢ (((𝑅 ∈ Ring ∧ 𝐼 ∈ Fin) ∧ curry 𝑀:𝐼⟶((Base‘𝑅) ↑m 𝐼)) → (((𝑅 unitVec 𝐼)‘𝑖) ∈ ((LSpan‘(𝑅 freeLMod 𝐼))‘(curry 𝑀 “ 𝐼)) ↔ ∃𝑛 ∈ ((Base‘𝑅) ↑m 𝐼)((𝑅 unitVec 𝐼)‘𝑖) = (𝑗 ∈ 𝐼 ↦ (𝑅 Σg (𝑘 ∈ 𝐼 ↦ ((𝑛‘𝑘)(.r‘𝑅)((curry 𝑀‘𝑘)‘𝑗)))))))
171	43, 170	sylanl1 693	. . . . . . . . . 10 ⊢ (((𝑅 ∈ DivRing ∧ 𝐼 ∈ Fin) ∧ curry 𝑀:𝐼⟶((Base‘𝑅) ↑m 𝐼)) → (((𝑅 unitVec 𝐼)‘𝑖) ∈ ((LSpan‘(𝑅 freeLMod 𝐼))‘(curry 𝑀 “ 𝐼)) ↔ ∃𝑛 ∈ ((Base‘𝑅) ↑m 𝐼)((𝑅 unitVec 𝐼)‘𝑖) = (𝑗 ∈ 𝐼 ↦ (𝑅 Σg (𝑘 ∈ 𝐼 ↦ ((𝑛‘𝑘)(.r‘𝑅)((curry 𝑀‘𝑘)‘𝑗)))))))
172	171	ad2antrr 739	. . . . . . . . 9 ⊢ (((((𝑅 ∈ DivRing ∧ 𝐼 ∈ Fin) ∧ curry 𝑀:𝐼⟶((Base‘𝑅) ↑m 𝐼)) ∧ curry 𝑀 LIndF (𝑅 freeLMod 𝐼)) ∧ 𝑖 ∈ 𝐼) → (((𝑅 unitVec 𝐼)‘𝑖) ∈ ((LSpan‘(𝑅 freeLMod 𝐼))‘(curry 𝑀 “ 𝐼)) ↔ ∃𝑛 ∈ ((Base‘𝑅) ↑m 𝐼)((𝑅 unitVec 𝐼)‘𝑖) = (𝑗 ∈ 𝐼 ↦ (𝑅 Σg (𝑘 ∈ 𝐼 ↦ ((𝑛‘𝑘)(.r‘𝑅)((curry 𝑀‘𝑘)‘𝑗)))))))
173	91, 172	mpbid 235	. . . . . . . 8 ⊢ (((((𝑅 ∈ DivRing ∧ 𝐼 ∈ Fin) ∧ curry 𝑀:𝐼⟶((Base‘𝑅) ↑m 𝐼)) ∧ curry 𝑀 LIndF (𝑅 freeLMod 𝐼)) ∧ 𝑖 ∈ 𝐼) → ∃𝑛 ∈ ((Base‘𝑅) ↑m 𝐼)((𝑅 unitVec 𝐼)‘𝑖) = (𝑗 ∈ 𝐼 ↦ (𝑅 Σg (𝑘 ∈ 𝐼 ↦ ((𝑛‘𝑘)(.r‘𝑅)((curry 𝑀‘𝑘)‘𝑗))))))
174	173	ralrimiva 3159	. . . . . . 7 ⊢ ((((𝑅 ∈ DivRing ∧ 𝐼 ∈ Fin) ∧ curry 𝑀:𝐼⟶((Base‘𝑅) ↑m 𝐼)) ∧ curry 𝑀 LIndF (𝑅 freeLMod 𝐼)) → ∀𝑖 ∈ 𝐼 ∃𝑛 ∈ ((Base‘𝑅) ↑m 𝐼)((𝑅 unitVec 𝐼)‘𝑖) = (𝑗 ∈ 𝐼 ↦ (𝑅 Σg (𝑘 ∈ 𝐼 ↦ ((𝑛‘𝑘)(.r‘𝑅)((curry 𝑀‘𝑘)‘𝑗))))))
175	42, 174	sylan 592	. . . . . 6 ⊢ ((((𝑅 ∈ DivRing ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) ∧ 𝐼 ≠ ∅) ∧ curry 𝑀 LIndF (𝑅 freeLMod 𝐼)) → ∀𝑖 ∈ 𝐼 ∃𝑛 ∈ ((Base‘𝑅) ↑m 𝐼)((𝑅 unitVec 𝐼)‘𝑖) = (𝑗 ∈ 𝐼 ↦ (𝑅 Σg (𝑘 ∈ 𝐼 ↦ ((𝑛‘𝑘)(.r‘𝑅)((curry 𝑀‘𝑘)‘𝑗))))))
176	10, 21	mpbird 260	. . . . . . . . 9 ⊢ ((𝑅 ∈ DivRing ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) → 𝑀 ∈ ((Base‘𝑅) ↑m (𝐼 × 𝐼)))
177		elmapfn 8868	. . . . . . . . 9 ⊢ (𝑀 ∈ ((Base‘𝑅) ↑m (𝐼 × 𝐼)) → 𝑀 Fn (𝐼 × 𝐼))
178	176, 177	syl 18	. . . . . . . 8 ⊢ ((𝑅 ∈ DivRing ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) → 𝑀 Fn (𝐼 × 𝐼))
179	4	adantl 487	. . . . . . . 8 ⊢ ((𝑅 ∈ DivRing ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) → 𝐼 ∈ Fin)
180		an32 659	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝑀 Fn (𝐼 × 𝐼) ∧ 𝑗 ∈ 𝐼) ∧ 𝑘 ∈ 𝐼) ↔ ((𝑀 Fn (𝐼 × 𝐼) ∧ 𝑘 ∈ 𝐼) ∧ 𝑗 ∈ 𝐼))
181		df-3an 1105	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑀 Fn (𝐼 × 𝐼) ∧ 𝑘 ∈ 𝐼 ∧ 𝑗 ∈ 𝐼) ↔ ((𝑀 Fn (𝐼 × 𝐼) ∧ 𝑘 ∈ 𝐼) ∧ 𝑗 ∈ 𝐼))
182	180, 181	bitr4i 281	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝑀 Fn (𝐼 × 𝐼) ∧ 𝑗 ∈ 𝐼) ∧ 𝑘 ∈ 𝐼) ↔ (𝑀 Fn (𝐼 × 𝐼) ∧ 𝑘 ∈ 𝐼 ∧ 𝑗 ∈ 𝐼))
183		curfv 38308	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝑀 Fn (𝐼 × 𝐼) ∧ 𝑘 ∈ 𝐼 ∧ 𝑗 ∈ 𝐼) ∧ 𝐼 ∈ Fin) → ((curry 𝑀‘𝑘)‘𝑗) = (𝑘𝑀𝑗))
184	182, 183	sylanb 593	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝑀 Fn (𝐼 × 𝐼) ∧ 𝑗 ∈ 𝐼) ∧ 𝑘 ∈ 𝐼) ∧ 𝐼 ∈ Fin) → ((curry 𝑀‘𝑘)‘𝑗) = (𝑘𝑀𝑗))
185	184	an32s 665	. . . . . . . . . . . . . . . 16 ⊢ ((((𝑀 Fn (𝐼 × 𝐼) ∧ 𝑗 ∈ 𝐼) ∧ 𝐼 ∈ Fin) ∧ 𝑘 ∈ 𝐼) → ((curry 𝑀‘𝑘)‘𝑗) = (𝑘𝑀𝑗))
186	185	oveq2d 7435	. . . . . . . . . . . . . . 15 ⊢ ((((𝑀 Fn (𝐼 × 𝐼) ∧ 𝑗 ∈ 𝐼) ∧ 𝐼 ∈ Fin) ∧ 𝑘 ∈ 𝐼) → ((𝑛‘𝑘)(.r‘𝑅)((curry 𝑀‘𝑘)‘𝑗)) = ((𝑛‘𝑘)(.r‘𝑅)(𝑘𝑀𝑗)))
187	186	mpteq2dva 5206	. . . . . . . . . . . . . 14 ⊢ (((𝑀 Fn (𝐼 × 𝐼) ∧ 𝑗 ∈ 𝐼) ∧ 𝐼 ∈ Fin) → (𝑘 ∈ 𝐼 ↦ ((𝑛‘𝑘)(.r‘𝑅)((curry 𝑀‘𝑘)‘𝑗))) = (𝑘 ∈ 𝐼 ↦ ((𝑛‘𝑘)(.r‘𝑅)(𝑘𝑀𝑗))))
188	187	an32s 665	. . . . . . . . . . . . 13 ⊢ (((𝑀 Fn (𝐼 × 𝐼) ∧ 𝐼 ∈ Fin) ∧ 𝑗 ∈ 𝐼) → (𝑘 ∈ 𝐼 ↦ ((𝑛‘𝑘)(.r‘𝑅)((curry 𝑀‘𝑘)‘𝑗))) = (𝑘 ∈ 𝐼 ↦ ((𝑛‘𝑘)(.r‘𝑅)(𝑘𝑀𝑗))))
189	188	oveq2d 7435	. . . . . . . . . . . 12 ⊢ (((𝑀 Fn (𝐼 × 𝐼) ∧ 𝐼 ∈ Fin) ∧ 𝑗 ∈ 𝐼) → (𝑅 Σg (𝑘 ∈ 𝐼 ↦ ((𝑛‘𝑘)(.r‘𝑅)((curry 𝑀‘𝑘)‘𝑗)))) = (𝑅 Σg (𝑘 ∈ 𝐼 ↦ ((𝑛‘𝑘)(.r‘𝑅)(𝑘𝑀𝑗)))))
190	189	mpteq2dva 5206	. . . . . . . . . . 11 ⊢ ((𝑀 Fn (𝐼 × 𝐼) ∧ 𝐼 ∈ Fin) → (𝑗 ∈ 𝐼 ↦ (𝑅 Σg (𝑘 ∈ 𝐼 ↦ ((𝑛‘𝑘)(.r‘𝑅)((curry 𝑀‘𝑘)‘𝑗))))) = (𝑗 ∈ 𝐼 ↦ (𝑅 Σg (𝑘 ∈ 𝐼 ↦ ((𝑛‘𝑘)(.r‘𝑅)(𝑘𝑀𝑗))))))
191	190	eqeq2d 2776	. . . . . . . . . 10 ⊢ ((𝑀 Fn (𝐼 × 𝐼) ∧ 𝐼 ∈ Fin) → (((𝑅 unitVec 𝐼)‘𝑖) = (𝑗 ∈ 𝐼 ↦ (𝑅 Σg (𝑘 ∈ 𝐼 ↦ ((𝑛‘𝑘)(.r‘𝑅)((curry 𝑀‘𝑘)‘𝑗))))) ↔ ((𝑅 unitVec 𝐼)‘𝑖) = (𝑗 ∈ 𝐼 ↦ (𝑅 Σg (𝑘 ∈ 𝐼 ↦ ((𝑛‘𝑘)(.r‘𝑅)(𝑘𝑀𝑗)))))))
192	191	rexbidv 3191	. . . . . . . . 9 ⊢ ((𝑀 Fn (𝐼 × 𝐼) ∧ 𝐼 ∈ Fin) → (∃𝑛 ∈ ((Base‘𝑅) ↑m 𝐼)((𝑅 unitVec 𝐼)‘𝑖) = (𝑗 ∈ 𝐼 ↦ (𝑅 Σg (𝑘 ∈ 𝐼 ↦ ((𝑛‘𝑘)(.r‘𝑅)((curry 𝑀‘𝑘)‘𝑗))))) ↔ ∃𝑛 ∈ ((Base‘𝑅) ↑m 𝐼)((𝑅 unitVec 𝐼)‘𝑖) = (𝑗 ∈ 𝐼 ↦ (𝑅 Σg (𝑘 ∈ 𝐼 ↦ ((𝑛‘𝑘)(.r‘𝑅)(𝑘𝑀𝑗)))))))
193	192	ralbidv 3190	. . . . . . . 8 ⊢ ((𝑀 Fn (𝐼 × 𝐼) ∧ 𝐼 ∈ Fin) → (∀𝑖 ∈ 𝐼 ∃𝑛 ∈ ((Base‘𝑅) ↑m 𝐼)((𝑅 unitVec 𝐼)‘𝑖) = (𝑗 ∈ 𝐼 ↦ (𝑅 Σg (𝑘 ∈ 𝐼 ↦ ((𝑛‘𝑘)(.r‘𝑅)((curry 𝑀‘𝑘)‘𝑗))))) ↔ ∀𝑖 ∈ 𝐼 ∃𝑛 ∈ ((Base‘𝑅) ↑m 𝐼)((𝑅 unitVec 𝐼)‘𝑖) = (𝑗 ∈ 𝐼 ↦ (𝑅 Σg (𝑘 ∈ 𝐼 ↦ ((𝑛‘𝑘)(.r‘𝑅)(𝑘𝑀𝑗)))))))
194	178, 179, 193	syl2anc 596	. . . . . . 7 ⊢ ((𝑅 ∈ DivRing ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) → (∀𝑖 ∈ 𝐼 ∃𝑛 ∈ ((Base‘𝑅) ↑m 𝐼)((𝑅 unitVec 𝐼)‘𝑖) = (𝑗 ∈ 𝐼 ↦ (𝑅 Σg (𝑘 ∈ 𝐼 ↦ ((𝑛‘𝑘)(.r‘𝑅)((curry 𝑀‘𝑘)‘𝑗))))) ↔ ∀𝑖 ∈ 𝐼 ∃𝑛 ∈ ((Base‘𝑅) ↑m 𝐼)((𝑅 unitVec 𝐼)‘𝑖) = (𝑗 ∈ 𝐼 ↦ (𝑅 Σg (𝑘 ∈ 𝐼 ↦ ((𝑛‘𝑘)(.r‘𝑅)(𝑘𝑀𝑗)))))))
195	194	ad2antrr 739	. . . . . 6 ⊢ ((((𝑅 ∈ DivRing ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) ∧ 𝐼 ≠ ∅) ∧ curry 𝑀 LIndF (𝑅 freeLMod 𝐼)) → (∀𝑖 ∈ 𝐼 ∃𝑛 ∈ ((Base‘𝑅) ↑m 𝐼)((𝑅 unitVec 𝐼)‘𝑖) = (𝑗 ∈ 𝐼 ↦ (𝑅 Σg (𝑘 ∈ 𝐼 ↦ ((𝑛‘𝑘)(.r‘𝑅)((curry 𝑀‘𝑘)‘𝑗))))) ↔ ∀𝑖 ∈ 𝐼 ∃𝑛 ∈ ((Base‘𝑅) ↑m 𝐼)((𝑅 unitVec 𝐼)‘𝑖) = (𝑗 ∈ 𝐼 ↦ (𝑅 Σg (𝑘 ∈ 𝐼 ↦ ((𝑛‘𝑘)(.r‘𝑅)(𝑘𝑀𝑗)))))))
196	175, 195	mpbid 235	. . . . 5 ⊢ ((((𝑅 ∈ DivRing ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) ∧ 𝐼 ≠ ∅) ∧ curry 𝑀 LIndF (𝑅 freeLMod 𝐼)) → ∀𝑖 ∈ 𝐼 ∃𝑛 ∈ ((Base‘𝑅) ↑m 𝐼)((𝑅 unitVec 𝐼)‘𝑖) = (𝑗 ∈ 𝐼 ↦ (𝑅 Σg (𝑘 ∈ 𝐼 ↦ ((𝑛‘𝑘)(.r‘𝑅)(𝑘𝑀𝑗))))))
197	8, 196	sylanl1 693	. . . 4 ⊢ ((((𝑅 ∈ Field ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) ∧ 𝐼 ≠ ∅) ∧ curry 𝑀 LIndF (𝑅 freeLMod 𝐼)) → ∀𝑖 ∈ 𝐼 ∃𝑛 ∈ ((Base‘𝑅) ↑m 𝐼)((𝑅 unitVec 𝐼)‘𝑖) = (𝑗 ∈ 𝐼 ↦ (𝑅 Σg (𝑘 ∈ 𝐼 ↦ ((𝑛‘𝑘)(.r‘𝑅)(𝑘𝑀𝑗))))))
198		fveq1 6884	. . . . . . . . . . 11 ⊢ (𝑛 = (𝑓‘𝑖) → (𝑛‘𝑘) = ((𝑓‘𝑖)‘𝑘))
199		uncov 38309	. . . . . . . . . . . 12 ⊢ ((𝑖 ∈ V ∧ 𝑘 ∈ V) → (𝑖uncurry 𝑓𝑘) = ((𝑓‘𝑖)‘𝑘))
200	199	el2v 3464	. . . . . . . . . . 11 ⊢ (𝑖uncurry 𝑓𝑘) = ((𝑓‘𝑖)‘𝑘)
201	198, 200	eqtr4di 2818	. . . . . . . . . 10 ⊢ (𝑛 = (𝑓‘𝑖) → (𝑛‘𝑘) = (𝑖uncurry 𝑓𝑘))
202	201	oveq1d 7434	. . . . . . . . 9 ⊢ (𝑛 = (𝑓‘𝑖) → ((𝑛‘𝑘)(.r‘𝑅)(𝑘𝑀𝑗)) = ((𝑖uncurry 𝑓𝑘)(.r‘𝑅)(𝑘𝑀𝑗)))
203	202	mpteq2dv 5207	. . . . . . . 8 ⊢ (𝑛 = (𝑓‘𝑖) → (𝑘 ∈ 𝐼 ↦ ((𝑛‘𝑘)(.r‘𝑅)(𝑘𝑀𝑗))) = (𝑘 ∈ 𝐼 ↦ ((𝑖uncurry 𝑓𝑘)(.r‘𝑅)(𝑘𝑀𝑗))))
204	203	oveq2d 7435	. . . . . . 7 ⊢ (𝑛 = (𝑓‘𝑖) → (𝑅 Σg (𝑘 ∈ 𝐼 ↦ ((𝑛‘𝑘)(.r‘𝑅)(𝑘𝑀𝑗)))) = (𝑅 Σg (𝑘 ∈ 𝐼 ↦ ((𝑖uncurry 𝑓𝑘)(.r‘𝑅)(𝑘𝑀𝑗)))))
205	204	mpteq2dv 5207	. . . . . 6 ⊢ (𝑛 = (𝑓‘𝑖) → (𝑗 ∈ 𝐼 ↦ (𝑅 Σg (𝑘 ∈ 𝐼 ↦ ((𝑛‘𝑘)(.r‘𝑅)(𝑘𝑀𝑗))))) = (𝑗 ∈ 𝐼 ↦ (𝑅 Σg (𝑘 ∈ 𝐼 ↦ ((𝑖uncurry 𝑓𝑘)(.r‘𝑅)(𝑘𝑀𝑗))))))
206	205	eqeq2d 2776	. . . . 5 ⊢ (𝑛 = (𝑓‘𝑖) → (((𝑅 unitVec 𝐼)‘𝑖) = (𝑗 ∈ 𝐼 ↦ (𝑅 Σg (𝑘 ∈ 𝐼 ↦ ((𝑛‘𝑘)(.r‘𝑅)(𝑘𝑀𝑗))))) ↔ ((𝑅 unitVec 𝐼)‘𝑖) = (𝑗 ∈ 𝐼 ↦ (𝑅 Σg (𝑘 ∈ 𝐼 ↦ ((𝑖uncurry 𝑓𝑘)(.r‘𝑅)(𝑘𝑀𝑗)))))))
207	206	ac6sfi 9251	. . . 4 ⊢ ((𝐼 ∈ Fin ∧ ∀𝑖 ∈ 𝐼 ∃𝑛 ∈ ((Base‘𝑅) ↑m 𝐼)((𝑅 unitVec 𝐼)‘𝑖) = (𝑗 ∈ 𝐼 ↦ (𝑅 Σg (𝑘 ∈ 𝐼 ↦ ((𝑛‘𝑘)(.r‘𝑅)(𝑘𝑀𝑗)))))) → ∃𝑓(𝑓:𝐼⟶((Base‘𝑅) ↑m 𝐼) ∧ ∀𝑖 ∈ 𝐼 ((𝑅 unitVec 𝐼)‘𝑖) = (𝑗 ∈ 𝐼 ↦ (𝑅 Σg (𝑘 ∈ 𝐼 ↦ ((𝑖uncurry 𝑓𝑘)(.r‘𝑅)(𝑘𝑀𝑗)))))))
208	5, 197, 207	syl2anc 596	. . 3 ⊢ ((((𝑅 ∈ Field ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) ∧ 𝐼 ≠ ∅) ∧ curry 𝑀 LIndF (𝑅 freeLMod 𝐼)) → ∃𝑓(𝑓:𝐼⟶((Base‘𝑅) ↑m 𝐼) ∧ ∀𝑖 ∈ 𝐼 ((𝑅 unitVec 𝐼)‘𝑖) = (𝑗 ∈ 𝐼 ↦ (𝑅 Σg (𝑘 ∈ 𝐼 ↦ ((𝑖uncurry 𝑓𝑘)(.r‘𝑅)(𝑘𝑀𝑗)))))))
209		uncf 38307	. . . . . . 7 ⊢ (𝑓:𝐼⟶((Base‘𝑅) ↑m 𝐼) → uncurry 𝑓:(𝐼 × 𝐼)⟶(Base‘𝑅))
210	13, 14	frlmfibas 21962	. . . . . . . . . . . . . . . 16 ⊢ ((𝑅 ∈ Field ∧ (𝐼 × 𝐼) ∈ Fin) → ((Base‘𝑅) ↑m (𝐼 × 𝐼)) = (Base‘(𝑅 freeLMod (𝐼 × 𝐼))))
211	12, 210	sylan2 605	. . . . . . . . . . . . . . 15 ⊢ ((𝑅 ∈ Field ∧ 𝐼 ∈ Fin) → ((Base‘𝑅) ↑m (𝐼 × 𝐼)) = (Base‘(𝑅 freeLMod (𝐼 × 𝐼))))
212	1, 13	matbas 22620	. . . . . . . . . . . . . . . 16 ⊢ ((𝐼 ∈ Fin ∧ 𝑅 ∈ Field) → (Base‘(𝑅 freeLMod (𝐼 × 𝐼))) = (Base‘(𝐼 Mat 𝑅)))
213	212	ancoms 464	. . . . . . . . . . . . . . 15 ⊢ ((𝑅 ∈ Field ∧ 𝐼 ∈ Fin) → (Base‘(𝑅 freeLMod (𝐼 × 𝐼))) = (Base‘(𝐼 Mat 𝑅)))
214	211, 213	eqtrd 2800	. . . . . . . . . . . . . 14 ⊢ ((𝑅 ∈ Field ∧ 𝐼 ∈ Fin) → ((Base‘𝑅) ↑m (𝐼 × 𝐼)) = (Base‘(𝐼 Mat 𝑅)))
215	4, 214	sylan2 605	. . . . . . . . . . . . 13 ⊢ ((𝑅 ∈ Field ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) → ((Base‘𝑅) ↑m (𝐼 × 𝐼)) = (Base‘(𝐼 Mat 𝑅)))
216	215	eleq2d 2851	. . . . . . . . . . . 12 ⊢ ((𝑅 ∈ Field ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) → (uncurry 𝑓 ∈ ((Base‘𝑅) ↑m (𝐼 × 𝐼)) ↔ uncurry 𝑓 ∈ (Base‘(𝐼 Mat 𝑅))))
217		elmapg 8842	. . . . . . . . . . . . . 14 ⊢ (((Base‘𝑅) ∈ V ∧ (𝐼 × 𝐼) ∈ Fin) → (uncurry 𝑓 ∈ ((Base‘𝑅) ↑m (𝐼 × 𝐼)) ↔ uncurry 𝑓:(𝐼 × 𝐼)⟶(Base‘𝑅)))
218	22, 23, 217	sylancr 599	. . . . . . . . . . . . 13 ⊢ (𝑀 ∈ (Base‘(𝐼 Mat 𝑅)) → (uncurry 𝑓 ∈ ((Base‘𝑅) ↑m (𝐼 × 𝐼)) ↔ uncurry 𝑓:(𝐼 × 𝐼)⟶(Base‘𝑅)))
219	218	adantl 487	. . . . . . . . . . . 12 ⊢ ((𝑅 ∈ Field ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) → (uncurry 𝑓 ∈ ((Base‘𝑅) ↑m (𝐼 × 𝐼)) ↔ uncurry 𝑓:(𝐼 × 𝐼)⟶(Base‘𝑅)))
220	216, 219	bitr3d 284	. . . . . . . . . . 11 ⊢ ((𝑅 ∈ Field ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) → (uncurry 𝑓 ∈ (Base‘(𝐼 Mat 𝑅)) ↔ uncurry 𝑓:(𝐼 × 𝐼)⟶(Base‘𝑅)))
221	220	biimpar 483	. . . . . . . . . 10 ⊢ (((𝑅 ∈ Field ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) ∧ uncurry 𝑓:(𝐼 × 𝐼)⟶(Base‘𝑅)) → uncurry 𝑓 ∈ (Base‘(𝐼 Mat 𝑅)))
222	221	adantr 486	. . . . . . . . 9 ⊢ ((((𝑅 ∈ Field ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) ∧ uncurry 𝑓:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ ∀𝑖 ∈ 𝐼 ((𝑅 unitVec 𝐼)‘𝑖) = (𝑗 ∈ 𝐼 ↦ (𝑅 Σg (𝑘 ∈ 𝐼 ↦ ((𝑖uncurry 𝑓𝑘)(.r‘𝑅)(𝑘𝑀𝑗)))))) → uncurry 𝑓 ∈ (Base‘(𝐼 Mat 𝑅)))
223		nfv 1947	. . . . . . . . . . . . . 14 ⊢ Ⅎ𝑗(((𝑅 ∈ Field ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) ∧ uncurry 𝑓:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝑖 ∈ 𝐼)
224		nfmpt1 5212	. . . . . . . . . . . . . . 15 ⊢ Ⅎ𝑗(𝑗 ∈ 𝐼 ↦ (𝑅 Σg (𝑘 ∈ 𝐼 ↦ ((𝑖uncurry 𝑓𝑘)(.r‘𝑅)(𝑘𝑀𝑗)))))
225	224	nfeq2 2944	. . . . . . . . . . . . . 14 ⊢ Ⅎ𝑗((𝑅 unitVec 𝐼)‘𝑖) = (𝑗 ∈ 𝐼 ↦ (𝑅 Σg (𝑘 ∈ 𝐼 ↦ ((𝑖uncurry 𝑓𝑘)(.r‘𝑅)(𝑘𝑀𝑗)))))
226		fveq1 6884	. . . . . . . . . . . . . . . . 17 ⊢ (((𝑅 unitVec 𝐼)‘𝑖) = (𝑗 ∈ 𝐼 ↦ (𝑅 Σg (𝑘 ∈ 𝐼 ↦ ((𝑖uncurry 𝑓𝑘)(.r‘𝑅)(𝑘𝑀𝑗))))) → (((𝑅 unitVec 𝐼)‘𝑖)‘𝑗) = ((𝑗 ∈ 𝐼 ↦ (𝑅 Σg (𝑘 ∈ 𝐼 ↦ ((𝑖uncurry 𝑓𝑘)(.r‘𝑅)(𝑘𝑀𝑗)))))‘𝑗))
227	7, 43	syl 18	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑅 ∈ Field → 𝑅 ∈ Ring)
228	227, 4	anim12i 625	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑅 ∈ Field ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) → (𝑅 ∈ Ring ∧ 𝐼 ∈ Fin))
229	228	adantr 486	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝑅 ∈ Field ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) ∧ uncurry 𝑓:(𝐼 × 𝐼)⟶(Base‘𝑅)) → (𝑅 ∈ Ring ∧ 𝐼 ∈ Fin))
230		equcom 2051	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑖 = 𝑗 ↔ 𝑗 = 𝑖)
231		ifbi 4512	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝑖 = 𝑗 ↔ 𝑗 = 𝑖) → if(𝑖 = 𝑗, (1r‘𝑅), (0g‘𝑅)) = if(𝑗 = 𝑖, (1r‘𝑅), (0g‘𝑅)))
232	230, 231	ax-mp 5	. . . . . . . . . . . . . . . . . . . 20 ⊢ if(𝑖 = 𝑗, (1r‘𝑅), (0g‘𝑅)) = if(𝑗 = 𝑖, (1r‘𝑅), (0g‘𝑅))
233		eqid 2765	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (1r‘𝑅) = (1r‘𝑅)
234		eqid 2765	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (0g‘𝑅) = (0g‘𝑅)
235		simpllr 788	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝑅 ∈ Ring ∧ 𝐼 ∈ Fin) ∧ 𝑖 ∈ 𝐼) ∧ 𝑗 ∈ 𝐼) → 𝐼 ∈ Fin)
236		simplll 787	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝑅 ∈ Ring ∧ 𝐼 ∈ Fin) ∧ 𝑖 ∈ 𝐼) ∧ 𝑗 ∈ 𝐼) → 𝑅 ∈ Ring)
237		simplr 781	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝑅 ∈ Ring ∧ 𝐼 ∈ Fin) ∧ 𝑖 ∈ 𝐼) ∧ 𝑗 ∈ 𝐼) → 𝑖 ∈ 𝐼)
238		simpr 490	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝑅 ∈ Ring ∧ 𝐼 ∈ Fin) ∧ 𝑖 ∈ 𝐼) ∧ 𝑗 ∈ 𝐼) → 𝑗 ∈ 𝐼)
239		eqid 2765	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (1r‘(𝐼 Mat 𝑅)) = (1r‘(𝐼 Mat 𝑅))
240	1, 233, 234, 235, 236, 237, 238, 239	mat1ov 22655	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝑅 ∈ Ring ∧ 𝐼 ∈ Fin) ∧ 𝑖 ∈ 𝐼) ∧ 𝑗 ∈ 𝐼) → (𝑖(1r‘(𝐼 Mat 𝑅))𝑗) = if(𝑖 = 𝑗, (1r‘𝑅), (0g‘𝑅)))
241		df-3an 1105	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝑅 ∈ Ring ∧ 𝐼 ∈ Fin ∧ 𝑖 ∈ 𝐼) ↔ ((𝑅 ∈ Ring ∧ 𝐼 ∈ Fin) ∧ 𝑖 ∈ 𝐼))
242	44, 233, 234	uvcvval 21986	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝑅 ∈ Ring ∧ 𝐼 ∈ Fin ∧ 𝑖 ∈ 𝐼) ∧ 𝑗 ∈ 𝐼) → (((𝑅 unitVec 𝐼)‘𝑖)‘𝑗) = if(𝑗 = 𝑖, (1r‘𝑅), (0g‘𝑅)))
243	241, 242	sylanbr 594	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝑅 ∈ Ring ∧ 𝐼 ∈ Fin) ∧ 𝑖 ∈ 𝐼) ∧ 𝑗 ∈ 𝐼) → (((𝑅 unitVec 𝐼)‘𝑖)‘𝑗) = if(𝑗 = 𝑖, (1r‘𝑅), (0g‘𝑅)))
244	232, 240, 243	3eqtr4a 2826	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝑅 ∈ Ring ∧ 𝐼 ∈ Fin) ∧ 𝑖 ∈ 𝐼) ∧ 𝑗 ∈ 𝐼) → (𝑖(1r‘(𝐼 Mat 𝑅))𝑗) = (((𝑅 unitVec 𝐼)‘𝑖)‘𝑗))
245	229, 244	sylanl1 693	. . . . . . . . . . . . . . . . . 18 ⊢ (((((𝑅 ∈ Field ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) ∧ uncurry 𝑓:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑗 ∈ 𝐼) → (𝑖(1r‘(𝐼 Mat 𝑅))𝑗) = (((𝑅 unitVec 𝐼)‘𝑖)‘𝑗))
246		ovex 7452	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑅 Σg (𝑘 ∈ 𝐼 ↦ ((𝑖uncurry 𝑓𝑘)(.r‘𝑅)(𝑘𝑀𝑗)))) ∈ V
247		eqid 2765	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑗 ∈ 𝐼 ↦ (𝑅 Σg (𝑘 ∈ 𝐼 ↦ ((𝑖uncurry 𝑓𝑘)(.r‘𝑅)(𝑘𝑀𝑗))))) = (𝑗 ∈ 𝐼 ↦ (𝑅 Σg (𝑘 ∈ 𝐼 ↦ ((𝑖uncurry 𝑓𝑘)(.r‘𝑅)(𝑘𝑀𝑗)))))
248	247	fvmpt2 7005	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝑗 ∈ 𝐼 ∧ (𝑅 Σg (𝑘 ∈ 𝐼 ↦ ((𝑖uncurry 𝑓𝑘)(.r‘𝑅)(𝑘𝑀𝑗)))) ∈ V) → ((𝑗 ∈ 𝐼 ↦ (𝑅 Σg (𝑘 ∈ 𝐼 ↦ ((𝑖uncurry 𝑓𝑘)(.r‘𝑅)(𝑘𝑀𝑗)))))‘𝑗) = (𝑅 Σg (𝑘 ∈ 𝐼 ↦ ((𝑖uncurry 𝑓𝑘)(.r‘𝑅)(𝑘𝑀𝑗)))))
249	246, 248	mpan2 704	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑗 ∈ 𝐼 → ((𝑗 ∈ 𝐼 ↦ (𝑅 Σg (𝑘 ∈ 𝐼 ↦ ((𝑖uncurry 𝑓𝑘)(.r‘𝑅)(𝑘𝑀𝑗)))))‘𝑗) = (𝑅 Σg (𝑘 ∈ 𝐼 ↦ ((𝑖uncurry 𝑓𝑘)(.r‘𝑅)(𝑘𝑀𝑗)))))
250	249	adantl 487	. . . . . . . . . . . . . . . . . . 19 ⊢ (((((𝑅 ∈ Field ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) ∧ uncurry 𝑓:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑗 ∈ 𝐼) → ((𝑗 ∈ 𝐼 ↦ (𝑅 Σg (𝑘 ∈ 𝐼 ↦ ((𝑖uncurry 𝑓𝑘)(.r‘𝑅)(𝑘𝑀𝑗)))))‘𝑗) = (𝑅 Σg (𝑘 ∈ 𝐼 ↦ ((𝑖uncurry 𝑓𝑘)(.r‘𝑅)(𝑘𝑀𝑗)))))
251		eqid 2765	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑅 maMul ⟨𝐼, 𝐼, 𝐼⟩) = (𝑅 maMul ⟨𝐼, 𝐼, 𝐼⟩)
252		simp-4l 795	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((((𝑅 ∈ Field ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) ∧ uncurry 𝑓:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑗 ∈ 𝐼) → 𝑅 ∈ Field)
253	4	ad4antlr 746	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((((𝑅 ∈ Field ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) ∧ uncurry 𝑓:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑗 ∈ 𝐼) → 𝐼 ∈ Fin)
254	218	biimpar 483	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝑀 ∈ (Base‘(𝐼 Mat 𝑅)) ∧ uncurry 𝑓:(𝐼 × 𝐼)⟶(Base‘𝑅)) → uncurry 𝑓 ∈ ((Base‘𝑅) ↑m (𝐼 × 𝐼)))
255	254	ad5ant23 772	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((((𝑅 ∈ Field ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) ∧ uncurry 𝑓:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑗 ∈ 𝐼) → uncurry 𝑓 ∈ ((Base‘𝑅) ↑m (𝐼 × 𝐼)))
256		simpr 490	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝑅 ∈ Field ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) → 𝑀 ∈ (Base‘(𝐼 Mat 𝑅)))
257	256, 215	eleqtrrd 2868	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝑅 ∈ Field ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) → 𝑀 ∈ ((Base‘𝑅) ↑m (𝐼 × 𝐼)))
258	257	ad3antrrr 743	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((((𝑅 ∈ Field ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) ∧ uncurry 𝑓:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑗 ∈ 𝐼) → 𝑀 ∈ ((Base‘𝑅) ↑m (𝐼 × 𝐼)))
259		simplr 781	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((((𝑅 ∈ Field ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) ∧ uncurry 𝑓:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑗 ∈ 𝐼) → 𝑖 ∈ 𝐼)
260		simpr 490	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((((𝑅 ∈ Field ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) ∧ uncurry 𝑓:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑗 ∈ 𝐼) → 𝑗 ∈ 𝐼)
261	251, 14, 121, 252, 253, 253, 253, 255, 258, 259, 260	mamufv 22601	. . . . . . . . . . . . . . . . . . 19 ⊢ (((((𝑅 ∈ Field ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) ∧ uncurry 𝑓:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑗 ∈ 𝐼) → (𝑖(uncurry 𝑓(𝑅 maMul ⟨𝐼, 𝐼, 𝐼⟩)𝑀)𝑗) = (𝑅 Σg (𝑘 ∈ 𝐼 ↦ ((𝑖uncurry 𝑓𝑘)(.r‘𝑅)(𝑘𝑀𝑗)))))
262	1, 251	matmulr 22645	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝐼 ∈ Fin ∧ 𝑅 ∈ Field) → (𝑅 maMul ⟨𝐼, 𝐼, 𝐼⟩) = (.r‘(𝐼 Mat 𝑅)))
263	262	ancoms 464	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((𝑅 ∈ Field ∧ 𝐼 ∈ Fin) → (𝑅 maMul ⟨𝐼, 𝐼, 𝐼⟩) = (.r‘(𝐼 Mat 𝑅)))
264	263	oveqd 7436	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝑅 ∈ Field ∧ 𝐼 ∈ Fin) → (uncurry 𝑓(𝑅 maMul ⟨𝐼, 𝐼, 𝐼⟩)𝑀) = (uncurry 𝑓(.r‘(𝐼 Mat 𝑅))𝑀))
265	264	oveqd 7436	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝑅 ∈ Field ∧ 𝐼 ∈ Fin) → (𝑖(uncurry 𝑓(𝑅 maMul ⟨𝐼, 𝐼, 𝐼⟩)𝑀)𝑗) = (𝑖(uncurry 𝑓(.r‘(𝐼 Mat 𝑅))𝑀)𝑗))
266	4, 265	sylan2 605	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑅 ∈ Field ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) → (𝑖(uncurry 𝑓(𝑅 maMul ⟨𝐼, 𝐼, 𝐼⟩)𝑀)𝑗) = (𝑖(uncurry 𝑓(.r‘(𝐼 Mat 𝑅))𝑀)𝑗))
267	266	ad3antrrr 743	. . . . . . . . . . . . . . . . . . 19 ⊢ (((((𝑅 ∈ Field ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) ∧ uncurry 𝑓:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑗 ∈ 𝐼) → (𝑖(uncurry 𝑓(𝑅 maMul ⟨𝐼, 𝐼, 𝐼⟩)𝑀)𝑗) = (𝑖(uncurry 𝑓(.r‘(𝐼 Mat 𝑅))𝑀)𝑗))
268	250, 261, 267	3eqtr2rd 2807	. . . . . . . . . . . . . . . . . 18 ⊢ (((((𝑅 ∈ Field ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) ∧ uncurry 𝑓:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑗 ∈ 𝐼) → (𝑖(uncurry 𝑓(.r‘(𝐼 Mat 𝑅))𝑀)𝑗) = ((𝑗 ∈ 𝐼 ↦ (𝑅 Σg (𝑘 ∈ 𝐼 ↦ ((𝑖uncurry 𝑓𝑘)(.r‘𝑅)(𝑘𝑀𝑗)))))‘𝑗))
269	245, 268	eqeq12d 2781	. . . . . . . . . . . . . . . . 17 ⊢ (((((𝑅 ∈ Field ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) ∧ uncurry 𝑓:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑗 ∈ 𝐼) → ((𝑖(1r‘(𝐼 Mat 𝑅))𝑗) = (𝑖(uncurry 𝑓(.r‘(𝐼 Mat 𝑅))𝑀)𝑗) ↔ (((𝑅 unitVec 𝐼)‘𝑖)‘𝑗) = ((𝑗 ∈ 𝐼 ↦ (𝑅 Σg (𝑘 ∈ 𝐼 ↦ ((𝑖uncurry 𝑓𝑘)(.r‘𝑅)(𝑘𝑀𝑗)))))‘𝑗)))
270	226, 269	imbitrrid 249	. . . . . . . . . . . . . . . 16 ⊢ (((((𝑅 ∈ Field ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) ∧ uncurry 𝑓:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑗 ∈ 𝐼) → (((𝑅 unitVec 𝐼)‘𝑖) = (𝑗 ∈ 𝐼 ↦ (𝑅 Σg (𝑘 ∈ 𝐼 ↦ ((𝑖uncurry 𝑓𝑘)(.r‘𝑅)(𝑘𝑀𝑗))))) → (𝑖(1r‘(𝐼 Mat 𝑅))𝑗) = (𝑖(uncurry 𝑓(.r‘(𝐼 Mat 𝑅))𝑀)𝑗)))
271	270	ex 418	. . . . . . . . . . . . . . 15 ⊢ ((((𝑅 ∈ Field ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) ∧ uncurry 𝑓:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝑖 ∈ 𝐼) → (𝑗 ∈ 𝐼 → (((𝑅 unitVec 𝐼)‘𝑖) = (𝑗 ∈ 𝐼 ↦ (𝑅 Σg (𝑘 ∈ 𝐼 ↦ ((𝑖uncurry 𝑓𝑘)(.r‘𝑅)(𝑘𝑀𝑗))))) → (𝑖(1r‘(𝐼 Mat 𝑅))𝑗) = (𝑖(uncurry 𝑓(.r‘(𝐼 Mat 𝑅))𝑀)𝑗))))
272	271	com23 87	. . . . . . . . . . . . . 14 ⊢ ((((𝑅 ∈ Field ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) ∧ uncurry 𝑓:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝑖 ∈ 𝐼) → (((𝑅 unitVec 𝐼)‘𝑖) = (𝑗 ∈ 𝐼 ↦ (𝑅 Σg (𝑘 ∈ 𝐼 ↦ ((𝑖uncurry 𝑓𝑘)(.r‘𝑅)(𝑘𝑀𝑗))))) → (𝑗 ∈ 𝐼 → (𝑖(1r‘(𝐼 Mat 𝑅))𝑗) = (𝑖(uncurry 𝑓(.r‘(𝐼 Mat 𝑅))𝑀)𝑗))))
273	223, 225, 272	ralrimd 3272	. . . . . . . . . . . . 13 ⊢ ((((𝑅 ∈ Field ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) ∧ uncurry 𝑓:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ 𝑖 ∈ 𝐼) → (((𝑅 unitVec 𝐼)‘𝑖) = (𝑗 ∈ 𝐼 ↦ (𝑅 Σg (𝑘 ∈ 𝐼 ↦ ((𝑖uncurry 𝑓𝑘)(.r‘𝑅)(𝑘𝑀𝑗))))) → ∀𝑗 ∈ 𝐼 (𝑖(1r‘(𝐼 Mat 𝑅))𝑗) = (𝑖(uncurry 𝑓(.r‘(𝐼 Mat 𝑅))𝑀)𝑗)))
274	273	ralimdva 3179	. . . . . . . . . . . 12 ⊢ (((𝑅 ∈ Field ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) ∧ uncurry 𝑓:(𝐼 × 𝐼)⟶(Base‘𝑅)) → (∀𝑖 ∈ 𝐼 ((𝑅 unitVec 𝐼)‘𝑖) = (𝑗 ∈ 𝐼 ↦ (𝑅 Σg (𝑘 ∈ 𝐼 ↦ ((𝑖uncurry 𝑓𝑘)(.r‘𝑅)(𝑘𝑀𝑗))))) → ∀𝑖 ∈ 𝐼 ∀𝑗 ∈ 𝐼 (𝑖(1r‘(𝐼 Mat 𝑅))𝑗) = (𝑖(uncurry 𝑓(.r‘(𝐼 Mat 𝑅))𝑀)𝑗)))
275	1, 2, 239	mat1bas 22656	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑅 ∈ Ring ∧ 𝐼 ∈ Fin) → (1r‘(𝐼 Mat 𝑅)) ∈ (Base‘(𝐼 Mat 𝑅)))
276	13, 14	frlmfibas 21962	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑅 ∈ Ring ∧ (𝐼 × 𝐼) ∈ Fin) → ((Base‘𝑅) ↑m (𝐼 × 𝐼)) = (Base‘(𝑅 freeLMod (𝐼 × 𝐼))))
277	12, 276	sylan2 605	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑅 ∈ Ring ∧ 𝐼 ∈ Fin) → ((Base‘𝑅) ↑m (𝐼 × 𝐼)) = (Base‘(𝑅 freeLMod (𝐼 × 𝐼))))
278	1, 13	matbas 22620	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝐼 ∈ Fin ∧ 𝑅 ∈ Ring) → (Base‘(𝑅 freeLMod (𝐼 × 𝐼))) = (Base‘(𝐼 Mat 𝑅)))
279	278	ancoms 464	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑅 ∈ Ring ∧ 𝐼 ∈ Fin) → (Base‘(𝑅 freeLMod (𝐼 × 𝐼))) = (Base‘(𝐼 Mat 𝑅)))
280	277, 279	eqtrd 2800	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑅 ∈ Ring ∧ 𝐼 ∈ Fin) → ((Base‘𝑅) ↑m (𝐼 × 𝐼)) = (Base‘(𝐼 Mat 𝑅)))
281	275, 280	eleqtrrd 2868	. . . . . . . . . . . . . . . 16 ⊢ ((𝑅 ∈ Ring ∧ 𝐼 ∈ Fin) → (1r‘(𝐼 Mat 𝑅)) ∈ ((Base‘𝑅) ↑m (𝐼 × 𝐼)))
282		elmapfn 8868	. . . . . . . . . . . . . . . 16 ⊢ ((1r‘(𝐼 Mat 𝑅)) ∈ ((Base‘𝑅) ↑m (𝐼 × 𝐼)) → (1r‘(𝐼 Mat 𝑅)) Fn (𝐼 × 𝐼))
283	281, 282	syl 18	. . . . . . . . . . . . . . 15 ⊢ ((𝑅 ∈ Ring ∧ 𝐼 ∈ Fin) → (1r‘(𝐼 Mat 𝑅)) Fn (𝐼 × 𝐼))
284	227, 4, 283	syl2an 608	. . . . . . . . . . . . . 14 ⊢ ((𝑅 ∈ Field ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) → (1r‘(𝐼 Mat 𝑅)) Fn (𝐼 × 𝐼))
285	284	adantr 486	. . . . . . . . . . . . 13 ⊢ (((𝑅 ∈ Field ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) ∧ uncurry 𝑓:(𝐼 × 𝐼)⟶(Base‘𝑅)) → (1r‘(𝐼 Mat 𝑅)) Fn (𝐼 × 𝐼))
286	1	matring 22650	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝐼 ∈ Fin ∧ 𝑅 ∈ Ring) → (𝐼 Mat 𝑅) ∈ Ring)
287	4, 227, 286	syl2anr 609	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑅 ∈ Field ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) → (𝐼 Mat 𝑅) ∈ Ring)
288	287	adantr 486	. . . . . . . . . . . . . . . 16 ⊢ (((𝑅 ∈ Field ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) ∧ uncurry 𝑓:(𝐼 × 𝐼)⟶(Base‘𝑅)) → (𝐼 Mat 𝑅) ∈ Ring)
289		simplr 781	. . . . . . . . . . . . . . . 16 ⊢ (((𝑅 ∈ Field ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) ∧ uncurry 𝑓:(𝐼 × 𝐼)⟶(Base‘𝑅)) → 𝑀 ∈ (Base‘(𝐼 Mat 𝑅)))
290		eqid 2765	. . . . . . . . . . . . . . . . 17 ⊢ (.r‘(𝐼 Mat 𝑅)) = (.r‘(𝐼 Mat 𝑅))
291	2, 290	ringcl 20376	. . . . . . . . . . . . . . . 16 ⊢ (((𝐼 Mat 𝑅) ∈ Ring ∧ uncurry 𝑓 ∈ (Base‘(𝐼 Mat 𝑅)) ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) → (uncurry 𝑓(.r‘(𝐼 Mat 𝑅))𝑀) ∈ (Base‘(𝐼 Mat 𝑅)))
292	288, 221, 289, 291	syl3anc 1398	. . . . . . . . . . . . . . 15 ⊢ (((𝑅 ∈ Field ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) ∧ uncurry 𝑓:(𝐼 × 𝐼)⟶(Base‘𝑅)) → (uncurry 𝑓(.r‘(𝐼 Mat 𝑅))𝑀) ∈ (Base‘(𝐼 Mat 𝑅)))
293	215	adantr 486	. . . . . . . . . . . . . . 15 ⊢ (((𝑅 ∈ Field ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) ∧ uncurry 𝑓:(𝐼 × 𝐼)⟶(Base‘𝑅)) → ((Base‘𝑅) ↑m (𝐼 × 𝐼)) = (Base‘(𝐼 Mat 𝑅)))
294	292, 293	eleqtrrd 2868	. . . . . . . . . . . . . 14 ⊢ (((𝑅 ∈ Field ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) ∧ uncurry 𝑓:(𝐼 × 𝐼)⟶(Base‘𝑅)) → (uncurry 𝑓(.r‘(𝐼 Mat 𝑅))𝑀) ∈ ((Base‘𝑅) ↑m (𝐼 × 𝐼)))
295		elmapfn 8868	. . . . . . . . . . . . . 14 ⊢ ((uncurry 𝑓(.r‘(𝐼 Mat 𝑅))𝑀) ∈ ((Base‘𝑅) ↑m (𝐼 × 𝐼)) → (uncurry 𝑓(.r‘(𝐼 Mat 𝑅))𝑀) Fn (𝐼 × 𝐼))
296	294, 295	syl 18	. . . . . . . . . . . . 13 ⊢ (((𝑅 ∈ Field ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) ∧ uncurry 𝑓:(𝐼 × 𝐼)⟶(Base‘𝑅)) → (uncurry 𝑓(.r‘(𝐼 Mat 𝑅))𝑀) Fn (𝐼 × 𝐼))
297		eqfnov2 7549	. . . . . . . . . . . . 13 ⊢ (((1r‘(𝐼 Mat 𝑅)) Fn (𝐼 × 𝐼) ∧ (uncurry 𝑓(.r‘(𝐼 Mat 𝑅))𝑀) Fn (𝐼 × 𝐼)) → ((1r‘(𝐼 Mat 𝑅)) = (uncurry 𝑓(.r‘(𝐼 Mat 𝑅))𝑀) ↔ ∀𝑖 ∈ 𝐼 ∀𝑗 ∈ 𝐼 (𝑖(1r‘(𝐼 Mat 𝑅))𝑗) = (𝑖(uncurry 𝑓(.r‘(𝐼 Mat 𝑅))𝑀)𝑗)))
298	285, 296, 297	syl2anc 596	. . . . . . . . . . . 12 ⊢ (((𝑅 ∈ Field ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) ∧ uncurry 𝑓:(𝐼 × 𝐼)⟶(Base‘𝑅)) → ((1r‘(𝐼 Mat 𝑅)) = (uncurry 𝑓(.r‘(𝐼 Mat 𝑅))𝑀) ↔ ∀𝑖 ∈ 𝐼 ∀𝑗 ∈ 𝐼 (𝑖(1r‘(𝐼 Mat 𝑅))𝑗) = (𝑖(uncurry 𝑓(.r‘(𝐼 Mat 𝑅))𝑀)𝑗)))
299	274, 298	sylibrd 262	. . . . . . . . . . 11 ⊢ (((𝑅 ∈ Field ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) ∧ uncurry 𝑓:(𝐼 × 𝐼)⟶(Base‘𝑅)) → (∀𝑖 ∈ 𝐼 ((𝑅 unitVec 𝐼)‘𝑖) = (𝑗 ∈ 𝐼 ↦ (𝑅 Σg (𝑘 ∈ 𝐼 ↦ ((𝑖uncurry 𝑓𝑘)(.r‘𝑅)(𝑘𝑀𝑗))))) → (1r‘(𝐼 Mat 𝑅)) = (uncurry 𝑓(.r‘(𝐼 Mat 𝑅))𝑀)))
300	299	imp 412	. . . . . . . . . 10 ⊢ ((((𝑅 ∈ Field ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) ∧ uncurry 𝑓:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ ∀𝑖 ∈ 𝐼 ((𝑅 unitVec 𝐼)‘𝑖) = (𝑗 ∈ 𝐼 ↦ (𝑅 Σg (𝑘 ∈ 𝐼 ↦ ((𝑖uncurry 𝑓𝑘)(.r‘𝑅)(𝑘𝑀𝑗)))))) → (1r‘(𝐼 Mat 𝑅)) = (uncurry 𝑓(.r‘(𝐼 Mat 𝑅))𝑀))
301	300	eqcomd 2771	. . . . . . . . 9 ⊢ ((((𝑅 ∈ Field ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) ∧ uncurry 𝑓:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ ∀𝑖 ∈ 𝐼 ((𝑅 unitVec 𝐼)‘𝑖) = (𝑗 ∈ 𝐼 ↦ (𝑅 Σg (𝑘 ∈ 𝐼 ↦ ((𝑖uncurry 𝑓𝑘)(.r‘𝑅)(𝑘𝑀𝑗)))))) → (uncurry 𝑓(.r‘(𝐼 Mat 𝑅))𝑀) = (1r‘(𝐼 Mat 𝑅)))
302		oveq1 7426	. . . . . . . . . . 11 ⊢ (𝑛 = uncurry 𝑓 → (𝑛(.r‘(𝐼 Mat 𝑅))𝑀) = (uncurry 𝑓(.r‘(𝐼 Mat 𝑅))𝑀))
303	302	eqeq1d 2767	. . . . . . . . . 10 ⊢ (𝑛 = uncurry 𝑓 → ((𝑛(.r‘(𝐼 Mat 𝑅))𝑀) = (1r‘(𝐼 Mat 𝑅)) ↔ (uncurry 𝑓(.r‘(𝐼 Mat 𝑅))𝑀) = (1r‘(𝐼 Mat 𝑅))))
304	303	rspcev 3583	. . . . . . . . 9 ⊢ ((uncurry 𝑓 ∈ (Base‘(𝐼 Mat 𝑅)) ∧ (uncurry 𝑓(.r‘(𝐼 Mat 𝑅))𝑀) = (1r‘(𝐼 Mat 𝑅))) → ∃𝑛 ∈ (Base‘(𝐼 Mat 𝑅))(𝑛(.r‘(𝐼 Mat 𝑅))𝑀) = (1r‘(𝐼 Mat 𝑅)))
305	222, 301, 304	syl2anc 596	. . . . . . . 8 ⊢ ((((𝑅 ∈ Field ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) ∧ uncurry 𝑓:(𝐼 × 𝐼)⟶(Base‘𝑅)) ∧ ∀𝑖 ∈ 𝐼 ((𝑅 unitVec 𝐼)‘𝑖) = (𝑗 ∈ 𝐼 ↦ (𝑅 Σg (𝑘 ∈ 𝐼 ↦ ((𝑖uncurry 𝑓𝑘)(.r‘𝑅)(𝑘𝑀𝑗)))))) → ∃𝑛 ∈ (Base‘(𝐼 Mat 𝑅))(𝑛(.r‘(𝐼 Mat 𝑅))𝑀) = (1r‘(𝐼 Mat 𝑅)))
306	305	expl 463	. . . . . . 7 ⊢ ((𝑅 ∈ Field ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) → ((uncurry 𝑓:(𝐼 × 𝐼)⟶(Base‘𝑅) ∧ ∀𝑖 ∈ 𝐼 ((𝑅 unitVec 𝐼)‘𝑖) = (𝑗 ∈ 𝐼 ↦ (𝑅 Σg (𝑘 ∈ 𝐼 ↦ ((𝑖uncurry 𝑓𝑘)(.r‘𝑅)(𝑘𝑀𝑗)))))) → ∃𝑛 ∈ (Base‘(𝐼 Mat 𝑅))(𝑛(.r‘(𝐼 Mat 𝑅))𝑀) = (1r‘(𝐼 Mat 𝑅))))
307	209, 306	sylani 616	. . . . . 6 ⊢ ((𝑅 ∈ Field ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) → ((𝑓:𝐼⟶((Base‘𝑅) ↑m 𝐼) ∧ ∀𝑖 ∈ 𝐼 ((𝑅 unitVec 𝐼)‘𝑖) = (𝑗 ∈ 𝐼 ↦ (𝑅 Σg (𝑘 ∈ 𝐼 ↦ ((𝑖uncurry 𝑓𝑘)(.r‘𝑅)(𝑘𝑀𝑗)))))) → ∃𝑛 ∈ (Base‘(𝐼 Mat 𝑅))(𝑛(.r‘(𝐼 Mat 𝑅))𝑀) = (1r‘(𝐼 Mat 𝑅))))
308	307	exlimdv 1966	. . . . 5 ⊢ ((𝑅 ∈ Field ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) → (∃𝑓(𝑓:𝐼⟶((Base‘𝑅) ↑m 𝐼) ∧ ∀𝑖 ∈ 𝐼 ((𝑅 unitVec 𝐼)‘𝑖) = (𝑗 ∈ 𝐼 ↦ (𝑅 Σg (𝑘 ∈ 𝐼 ↦ ((𝑖uncurry 𝑓𝑘)(.r‘𝑅)(𝑘𝑀𝑗)))))) → ∃𝑛 ∈ (Base‘(𝐼 Mat 𝑅))(𝑛(.r‘(𝐼 Mat 𝑅))𝑀) = (1r‘(𝐼 Mat 𝑅))))
309	308	imp 412	. . . 4 ⊢ (((𝑅 ∈ Field ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) ∧ ∃𝑓(𝑓:𝐼⟶((Base‘𝑅) ↑m 𝐼) ∧ ∀𝑖 ∈ 𝐼 ((𝑅 unitVec 𝐼)‘𝑖) = (𝑗 ∈ 𝐼 ↦ (𝑅 Σg (𝑘 ∈ 𝐼 ↦ ((𝑖uncurry 𝑓𝑘)(.r‘𝑅)(𝑘𝑀𝑗))))))) → ∃𝑛 ∈ (Base‘(𝐼 Mat 𝑅))(𝑛(.r‘(𝐼 Mat 𝑅))𝑀) = (1r‘(𝐼 Mat 𝑅)))
310	309	adantlr 728	. . 3 ⊢ ((((𝑅 ∈ Field ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) ∧ 𝐼 ≠ ∅) ∧ ∃𝑓(𝑓:𝐼⟶((Base‘𝑅) ↑m 𝐼) ∧ ∀𝑖 ∈ 𝐼 ((𝑅 unitVec 𝐼)‘𝑖) = (𝑗 ∈ 𝐼 ↦ (𝑅 Σg (𝑘 ∈ 𝐼 ↦ ((𝑖uncurry 𝑓𝑘)(.r‘𝑅)(𝑘𝑀𝑗))))))) → ∃𝑛 ∈ (Base‘(𝐼 Mat 𝑅))(𝑛(.r‘(𝐼 Mat 𝑅))𝑀) = (1r‘(𝐼 Mat 𝑅)))
311	208, 310	syldan 603	. 2 ⊢ ((((𝑅 ∈ Field ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) ∧ 𝐼 ≠ ∅) ∧ curry 𝑀 LIndF (𝑅 freeLMod 𝐼)) → ∃𝑛 ∈ (Base‘(𝐼 Mat 𝑅))(𝑛(.r‘(𝐼 Mat 𝑅))𝑀) = (1r‘(𝐼 Mat 𝑅)))
312	6	simprbi 503	. . . 4 ⊢ (𝑅 ∈ Field → 𝑅 ∈ CRing)
313		eqid 2765	. . . . . . . . . 10 ⊢ (𝐼 maDet 𝑅) = (𝐼 maDet 𝑅)
314	313, 1, 2, 14	mdetcl 22803	. . . . . . . . 9 ⊢ ((𝑅 ∈ CRing ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) → ((𝐼 maDet 𝑅)‘𝑀) ∈ (Base‘𝑅))
315	313, 1, 2, 14	mdetcl 22803	. . . . . . . . 9 ⊢ ((𝑅 ∈ CRing ∧ 𝑛 ∈ (Base‘(𝐼 Mat 𝑅))) → ((𝐼 maDet 𝑅)‘𝑛) ∈ (Base‘𝑅))
316		eqid 2765	. . . . . . . . . 10 ⊢ (∥r‘𝑅) = (∥r‘𝑅)
317	14, 316, 121	dvdsrmul 20492	. . . . . . . . 9 ⊢ ((((𝐼 maDet 𝑅)‘𝑀) ∈ (Base‘𝑅) ∧ ((𝐼 maDet 𝑅)‘𝑛) ∈ (Base‘𝑅)) → ((𝐼 maDet 𝑅)‘𝑀)(∥r‘𝑅)(((𝐼 maDet 𝑅)‘𝑛)(.r‘𝑅)((𝐼 maDet 𝑅)‘𝑀)))
318	314, 315, 317	syl2an 608	. . . . . . . 8 ⊢ (((𝑅 ∈ CRing ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) ∧ (𝑅 ∈ CRing ∧ 𝑛 ∈ (Base‘(𝐼 Mat 𝑅)))) → ((𝐼 maDet 𝑅)‘𝑀)(∥r‘𝑅)(((𝐼 maDet 𝑅)‘𝑛)(.r‘𝑅)((𝐼 maDet 𝑅)‘𝑀)))
319	318	anandis 691	. . . . . . 7 ⊢ ((𝑅 ∈ CRing ∧ (𝑀 ∈ (Base‘(𝐼 Mat 𝑅)) ∧ 𝑛 ∈ (Base‘(𝐼 Mat 𝑅)))) → ((𝐼 maDet 𝑅)‘𝑀)(∥r‘𝑅)(((𝐼 maDet 𝑅)‘𝑛)(.r‘𝑅)((𝐼 maDet 𝑅)‘𝑀)))
320	319	anassrs 473	. . . . . 6 ⊢ (((𝑅 ∈ CRing ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) ∧ 𝑛 ∈ (Base‘(𝐼 Mat 𝑅))) → ((𝐼 maDet 𝑅)‘𝑀)(∥r‘𝑅)(((𝐼 maDet 𝑅)‘𝑛)(.r‘𝑅)((𝐼 maDet 𝑅)‘𝑀)))
321	320	adantrr 730	. . . . 5 ⊢ (((𝑅 ∈ CRing ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) ∧ (𝑛 ∈ (Base‘(𝐼 Mat 𝑅)) ∧ (𝑛(.r‘(𝐼 Mat 𝑅))𝑀) = (1r‘(𝐼 Mat 𝑅)))) → ((𝐼 maDet 𝑅)‘𝑀)(∥r‘𝑅)(((𝐼 maDet 𝑅)‘𝑛)(.r‘𝑅)((𝐼 maDet 𝑅)‘𝑀)))
322		fveq2 6885	. . . . . . . . 9 ⊢ ((𝑛(.r‘(𝐼 Mat 𝑅))𝑀) = (1r‘(𝐼 Mat 𝑅)) → ((𝐼 maDet 𝑅)‘(𝑛(.r‘(𝐼 Mat 𝑅))𝑀)) = ((𝐼 maDet 𝑅)‘(1r‘(𝐼 Mat 𝑅))))
323	1, 2, 313, 121, 290	mdetmul 22830	. . . . . . . . . . . 12 ⊢ ((𝑅 ∈ CRing ∧ 𝑛 ∈ (Base‘(𝐼 Mat 𝑅)) ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) → ((𝐼 maDet 𝑅)‘(𝑛(.r‘(𝐼 Mat 𝑅))𝑀)) = (((𝐼 maDet 𝑅)‘𝑛)(.r‘𝑅)((𝐼 maDet 𝑅)‘𝑀)))
324	323	3expa 1136	. . . . . . . . . . 11 ⊢ (((𝑅 ∈ CRing ∧ 𝑛 ∈ (Base‘(𝐼 Mat 𝑅))) ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) → ((𝐼 maDet 𝑅)‘(𝑛(.r‘(𝐼 Mat 𝑅))𝑀)) = (((𝐼 maDet 𝑅)‘𝑛)(.r‘𝑅)((𝐼 maDet 𝑅)‘𝑀)))
325	324	an32s 665	. . . . . . . . . 10 ⊢ (((𝑅 ∈ CRing ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) ∧ 𝑛 ∈ (Base‘(𝐼 Mat 𝑅))) → ((𝐼 maDet 𝑅)‘(𝑛(.r‘(𝐼 Mat 𝑅))𝑀)) = (((𝐼 maDet 𝑅)‘𝑛)(.r‘𝑅)((𝐼 maDet 𝑅)‘𝑀)))
326	313, 1, 239, 233	mdet1 22808	. . . . . . . . . . . 12 ⊢ ((𝑅 ∈ CRing ∧ 𝐼 ∈ Fin) → ((𝐼 maDet 𝑅)‘(1r‘(𝐼 Mat 𝑅))) = (1r‘𝑅))
327	4, 326	sylan2 605	. . . . . . . . . . 11 ⊢ ((𝑅 ∈ CRing ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) → ((𝐼 maDet 𝑅)‘(1r‘(𝐼 Mat 𝑅))) = (1r‘𝑅))
328	327	adantr 486	. . . . . . . . . 10 ⊢ (((𝑅 ∈ CRing ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) ∧ 𝑛 ∈ (Base‘(𝐼 Mat 𝑅))) → ((𝐼 maDet 𝑅)‘(1r‘(𝐼 Mat 𝑅))) = (1r‘𝑅))
329	325, 328	eqeq12d 2781	. . . . . . . . 9 ⊢ (((𝑅 ∈ CRing ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) ∧ 𝑛 ∈ (Base‘(𝐼 Mat 𝑅))) → (((𝐼 maDet 𝑅)‘(𝑛(.r‘(𝐼 Mat 𝑅))𝑀)) = ((𝐼 maDet 𝑅)‘(1r‘(𝐼 Mat 𝑅))) ↔ (((𝐼 maDet 𝑅)‘𝑛)(.r‘𝑅)((𝐼 maDet 𝑅)‘𝑀)) = (1r‘𝑅)))
330	322, 329	imbitrid 247	. . . . . . . 8 ⊢ (((𝑅 ∈ CRing ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) ∧ 𝑛 ∈ (Base‘(𝐼 Mat 𝑅))) → ((𝑛(.r‘(𝐼 Mat 𝑅))𝑀) = (1r‘(𝐼 Mat 𝑅)) → (((𝐼 maDet 𝑅)‘𝑛)(.r‘𝑅)((𝐼 maDet 𝑅)‘𝑀)) = (1r‘𝑅)))
331	330	impr 460	. . . . . . 7 ⊢ (((𝑅 ∈ CRing ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) ∧ (𝑛 ∈ (Base‘(𝐼 Mat 𝑅)) ∧ (𝑛(.r‘(𝐼 Mat 𝑅))𝑀) = (1r‘(𝐼 Mat 𝑅)))) → (((𝐼 maDet 𝑅)‘𝑛)(.r‘𝑅)((𝐼 maDet 𝑅)‘𝑀)) = (1r‘𝑅))
332	331	breq2d 5123	. . . . . 6 ⊢ (((𝑅 ∈ CRing ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) ∧ (𝑛 ∈ (Base‘(𝐼 Mat 𝑅)) ∧ (𝑛(.r‘(𝐼 Mat 𝑅))𝑀) = (1r‘(𝐼 Mat 𝑅)))) → (((𝐼 maDet 𝑅)‘𝑀)(∥r‘𝑅)(((𝐼 maDet 𝑅)‘𝑛)(.r‘𝑅)((𝐼 maDet 𝑅)‘𝑀)) ↔ ((𝐼 maDet 𝑅)‘𝑀)(∥r‘𝑅)(1r‘𝑅)))
333		eqid 2765	. . . . . . . 8 ⊢ (Unit‘𝑅) = (Unit‘𝑅)
334	333, 233, 316	crngunit 20506	. . . . . . 7 ⊢ (𝑅 ∈ CRing → (((𝐼 maDet 𝑅)‘𝑀) ∈ (Unit‘𝑅) ↔ ((𝐼 maDet 𝑅)‘𝑀)(∥r‘𝑅)(1r‘𝑅)))
335	334	ad2antrr 739	. . . . . 6 ⊢ (((𝑅 ∈ CRing ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) ∧ (𝑛 ∈ (Base‘(𝐼 Mat 𝑅)) ∧ (𝑛(.r‘(𝐼 Mat 𝑅))𝑀) = (1r‘(𝐼 Mat 𝑅)))) → (((𝐼 maDet 𝑅)‘𝑀) ∈ (Unit‘𝑅) ↔ ((𝐼 maDet 𝑅)‘𝑀)(∥r‘𝑅)(1r‘𝑅)))
336	332, 335	bitr4d 285	. . . . 5 ⊢ (((𝑅 ∈ CRing ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) ∧ (𝑛 ∈ (Base‘(𝐼 Mat 𝑅)) ∧ (𝑛(.r‘(𝐼 Mat 𝑅))𝑀) = (1r‘(𝐼 Mat 𝑅)))) → (((𝐼 maDet 𝑅)‘𝑀)(∥r‘𝑅)(((𝐼 maDet 𝑅)‘𝑛)(.r‘𝑅)((𝐼 maDet 𝑅)‘𝑀)) ↔ ((𝐼 maDet 𝑅)‘𝑀) ∈ (Unit‘𝑅)))
337	321, 336	mpbid 235	. . . 4 ⊢ (((𝑅 ∈ CRing ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) ∧ (𝑛 ∈ (Base‘(𝐼 Mat 𝑅)) ∧ (𝑛(.r‘(𝐼 Mat 𝑅))𝑀) = (1r‘(𝐼 Mat 𝑅)))) → ((𝐼 maDet 𝑅)‘𝑀) ∈ (Unit‘𝑅))
338	312, 337	sylanl1 693	. . 3 ⊢ (((𝑅 ∈ Field ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) ∧ (𝑛 ∈ (Base‘(𝐼 Mat 𝑅)) ∧ (𝑛(.r‘(𝐼 Mat 𝑅))𝑀) = (1r‘(𝐼 Mat 𝑅)))) → ((𝐼 maDet 𝑅)‘𝑀) ∈ (Unit‘𝑅))
339	338	ad4ant14 765	. 2 ⊢ (((((𝑅 ∈ Field ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) ∧ 𝐼 ≠ ∅) ∧ curry 𝑀 LIndF (𝑅 freeLMod 𝐼)) ∧ (𝑛 ∈ (Base‘(𝐼 Mat 𝑅)) ∧ (𝑛(.r‘(𝐼 Mat 𝑅))𝑀) = (1r‘(𝐼 Mat 𝑅)))) → ((𝐼 maDet 𝑅)‘𝑀) ∈ (Unit‘𝑅))
340	311, 339	rexlimddv 3174	1 ⊢ ((((𝑅 ∈ Field ∧ 𝑀 ∈ (Base‘(𝐼 Mat 𝑅))) ∧ 𝐼 ≠ ∅) ∧ curry 𝑀 LIndF (𝑅 freeLMod 𝐼)) → ((𝐼 maDet 𝑅)‘𝑀) ∈ (Unit‘𝑅))

This proof depends on syntax axioms:   → wi 4   ↔ wb 209   ∧ wa 401   ∧ w3a 1103   = wceq 1570  ∃wex 1812   ∈ wcel 2146   ≠ wne 2960  ∀wral 3081  ∃wrex 3091  Vcvv 3457   ∖ cdif 3903  ∅c0 4286  ifcif 4489  {csn 4591  ⟨cotp 4599   class class class wbr 5111   ↦ cmpt 5194   × cxp 5661  dom cdm 5663  ran crn 5664   “ cima 5666   Fn wfn 6535  ⟶wf 6536  –1-1→wf1 6537  –1-1-onto→wf1o 6539  ‘cfv 6540  (class class class)co 7419   ∘_f cof 7682  curry ccur 8267  uncurry cunc 8268   ↑_m cmap 8830   ≈ cen 8946  Fincfn 8949   finSupp cfsupp 9328  Basecbs 17291  ._rcmulr 17333  Scalarcsca 17335   ·_𝑠 cvsca 17336  0_gc0g 17514   Σ_g cgsu 17515  1_rcur 20307  Ringcrg 20359  CRingccrg 20360  ∥_rcdsr 20482  Unitcui 20483  NzRingcnzr 20659  DivRingcdr 20877  Fieldcfield 20878  LModclmod 21031  LSpanclspn 21142  LBasisclbs 21245   freeLMod cfrlm 21946   unitVec cuvc 21982   LIndF clindf 22004  LIndSclinds 22005   maMul cmmul 22597   Mat cmat 22614   maDet cmdat 22791

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 2148  ax-9 2156  ax-10 2179  ax-11 2195  ax-12 2216  ax-ext 2737  ax-rep 5240  ax-sep 5259  ax-nul 5271  ax-pow 5338  ax-pr 5406  ax-un 7742  ax-cnex 11171  ax-resscn 11172  ax-1cn 11173  ax-icn 11174  ax-addcl 11175  ax-addrcl 11176  ax-mulcl 11177  ax-mulrcl 11178  ax-mulcom 11179  ax-addass 11180  ax-mulass 11181  ax-distr 11182  ax-i2m1 11183  ax-1ne0 11184  ax-1rid 11185  ax-rnegex 11186  ax-rrecex 11187  ax-cnre 11188  ax-pre-lttri 11189  ax-pre-lttrn 11190  ax-pre-ltadd 11191  ax-pre-mulgt0 11192  ax-addf 11194  ax-mulf 11195

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-xor 1542  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2100  df-mo 2569  df-eu 2599  df-clab 2744  df-cleq 2757  df-clel 2840  df-nfc 2914  df-ne 2961  df-nel 3067  df-ral 3082  df-rex 3092  df-rmo 3371  df-reu 3372  df-rab 3419  df-v 3459  df-sbc 3747  df-csb 3855  df-dif 3909  df-un 3911  df-in 3913  df-ss 3923  df-pss 3926  df-nul 4287  df-if 4490  df-pw 4566  df-sn 4592  df-pr 4594  df-tp 4596  df-op 4598  df-ot 4600  df-uni 4875  df-int 4915  df-iun 4960  df-iin 4961  df-br 5112  df-opab 5176  df-mpt 5195  df-tr 5221  df-id 5558  df-eprel 5563  df-po 5571  df-so 5572  df-fr 5616  df-se 5617  df-we 5618  df-xp 5669  df-rel 5670  df-cnv 5671  df-co 5672  df-dm 5673  df-rn 5674  df-res 5675  df-ima 5676  df-pred 6306  df-ord 6367  df-on 6368  df-lim 6369  df-suc 6370  df-iota 6496  df-fun 6542  df-fn 6543  df-f 6544  df-f1 6545  df-fo 6546  df-f1o 6547  df-fv 6548  df-isom 6549  df-riota 7376  df-ov 7422  df-oprab 7423  df-mpo 7424  df-of 7684  df-om 7869  df-1st 7992  df-2nd 7993  df-supp 8163  df-tpos 8228  df-cur 8269  df-unc 8270  df-frecs 8284  df-wrecs 8315  df-recs 8364  df-rdg 8403  df-1o 8459  df-2o 8460  df-er 8700  df-map 8832  df-pm 8833  df-ixp 8902  df-en 8950  df-dom 8951  df-sdom 8952  df-fin 8953  df-fsupp 9329  df-sup 9409  df-oi 9479  df-card 9941  df-pnf 11260  df-mnf 11261  df-xr 11262  df-ltxr 11263  df-le 11264  df-sub 11458  df-neg 11459  df-div 11887  df-nn 12249  df-2 12318  df-3 12319  df-4 12320  df-5 12321  df-6 12322  df-7 12323  df-8 12324  df-9 12325  df-n0 12520  df-xnn0 12593  df-z 12607  df-dec 12728  df-uz 12879  df-rp 13033  df-fz 13552  df-fzo 13700  df-seq 14056  df-exp 14116  df-hash 14385  df-word 14569  df-lsw 14618  df-concat 14626  df-s1 14653  df-substr 14699  df-pfx 14731  df-splice 14809  df-reverse 14818  df-s2 14909  df-struct 17229  df-sets 17246  df-slot 17264  df-ndx 17276  df-base 17292  df-ress 17313  df-plusg 17345  df-mulr 17346  df-starv 17347  df-sca 17348  df-vsca 17349  df-ip 17350  df-tset 17351  df-ple 17352  df-ds 17354  df-unif 17355  df-hom 17356  df-cco 17357  df-0g 17516  df-gsum 17517  df-prds 17522  df-pws 17524  df-mre 17660  df-mrc 17661  df-mri 17662  df-acs 17663  df-mgm 18720  df-sgrp 18809  df-mnd 18825  df-mhm 18878  df-submnd 18879  df-efmnd 18965  df-grp 19047  df-minusg 19048  df-sbg 19049  df-mulg 19178  df-subg 19233  df-ghm 19328  df-gim 19373  df-cntz 19431  df-oppg 19460  df-symg 19484  df-pmtr 19556  df-psgn 19605  df-evpm 19606  df-cmn 19896  df-abl 19897  df-mgp 20261  df-rng 20275  df-ur 20308  df-srg 20313  df-ring 20361  df-cring 20362  df-oppr 20465  df-dvdsr 20485  df-unit 20486  df-invr 20516  df-dvr 20529  df-rhm 20600  df-nzr 20660  df-subrng 20695  df-subrg 20719  df-drng 20879  df-field 20880  df-lmod 21033  df-lss 21103  df-lsp 21143  df-lmhm 21193  df-lbs 21246  df-lvec 21274  df-sra 21344  df-rgmod 21345  df-cnfld 21573  df-zring 21647  df-zrh 21703  df-dsmm 21932  df-frlm 21947  df-uvc 21983  df-lindf 22006  df-linds 22007  df-mamu 22598  df-mat 22615  df-mdet 22792

This theorem is used by:  matunitlindf  38326