Theorem matunitlindflem2 33406

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

Assertion

Ref	Expression
matunitlindflem2	|- ( ( ( ( R e. Field /\ M e. ( Base ` ( I Mat R ) ) ) /\ I =/= (/) ) /\ curry M LIndF ( R freeLMod I ) ) -> ( ( I maDet R ) ` M ) e. (Unit ` R ) )

Proof of Theorem matunitlindflem2

Dummy variables f i j k n are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		eqid 2622	. . . . . . 7 |- ( I Mat R ) = ( I Mat R )
2		eqid 2622	. . . . . . 7 |- ( Base ` ( I Mat R ) ) = ( Base ` ( I Mat R ) )
3	1, 2	matrcl 20218	. . . . . 6 |- ( M e. ( Base ` ( I Mat R ) ) -> ( I e. Fin /\ R e. _V ) )
4	3	simpld 475	. . . . 5 |- ( M e. ( Base ` ( I Mat R ) ) -> I e. Fin )
5	4	ad3antlr 767	. . . 4 |- ( ( ( ( R e. Field /\ M e. ( Base ` ( I Mat R ) ) ) /\ I =/= (/) ) /\ curry M LIndF ( R freeLMod I ) ) -> I e. Fin )
6		isfld 18756	. . . . . . 7 |- ( R e. Field <-> ( R e. DivRing /\ R e. CRing ) )
7	6	simplbi 476	. . . . . 6 |- ( R e. Field -> R e. DivRing )
8	7	anim1i 592	. . . . 5 |- ( ( R e. Field /\ M e. ( Base ` ( I Mat R ) ) ) -> ( R e. DivRing /\ M e. ( Base ` ( I Mat R ) ) ) )
9	4	ad2antrl 764	. . . . . . . . . . . 12 |- ( ( R e. DivRing /\ ( M e. ( Base ` ( I Mat R ) ) /\ I =/= (/) ) ) -> I e. Fin )
10		simpr 477	. . . . . . . . . . . . . . 15 |- ( ( R e. DivRing /\ M e. ( Base ` ( I Mat R ) ) ) -> M e. ( Base ` ( I Mat R ) ) )
11		xpfi 8231	. . . . . . . . . . . . . . . . . . . . 21 |- ( ( I e. Fin /\ I e. Fin ) -> ( I X. I ) e. Fin )
12	11	anidms 677	. . . . . . . . . . . . . . . . . . . 20 |- ( I e. Fin -> ( I X. I ) e. Fin )
13		eqid 2622	. . . . . . . . . . . . . . . . . . . . 21 |- ( R freeLMod ( I X. I ) ) = ( R freeLMod ( I X. I ) )
14		eqid 2622	. . . . . . . . . . . . . . . . . . . . 21 |- ( Base ` R ) = ( Base ` R )
15	13, 14	frlmfibas 20105	. . . . . . . . . . . . . . . . . . . 20 |- ( ( R e. DivRing /\ ( I X. I ) e. Fin ) -> ( ( Base ` R ) ^m ( I X. I ) ) = ( Base ` ( R freeLMod ( I X. I ) ) ) )
16	12, 15	sylan2 491	. . . . . . . . . . . . . . . . . . 19 |- ( ( R e. DivRing /\ I e. Fin ) -> ( ( Base ` R ) ^m ( I X. I ) ) = ( Base ` ( R freeLMod ( I X. I ) ) ) )
17	1, 13	matbas 20219	. . . . . . . . . . . . . . . . . . . 20 |- ( ( I e. Fin /\ R e. DivRing ) -> ( Base ` ( R freeLMod ( I X. I ) ) ) = ( Base ` ( I Mat R ) ) )
18	17	ancoms 469	. . . . . . . . . . . . . . . . . . 19 |- ( ( R e. DivRing /\ I e. Fin ) -> ( Base ` ( R freeLMod ( I X. I ) ) ) = ( Base ` ( I Mat R ) ) )
19	16, 18	eqtrd 2656	. . . . . . . . . . . . . . . . . 18 |- ( ( R e. DivRing /\ I e. Fin ) -> ( ( Base ` R ) ^m ( I X. I ) ) = ( Base ` ( I Mat R ) ) )
20	19	eleq2d 2687	. . . . . . . . . . . . . . . . 17 |- ( ( R e. DivRing /\ I e. Fin ) -> ( M e. ( ( Base ` R ) ^m ( I X. I ) ) <-> M e. ( Base ` ( I Mat R ) ) ) )
21	4, 20	sylan2 491	. . . . . . . . . . . . . . . 16 |- ( ( R e. DivRing /\ M e. ( Base ` ( I Mat R ) ) ) -> ( M e. ( ( Base ` R ) ^m ( I X. I ) ) <-> M e. ( Base ` ( I Mat R ) ) ) )
22		fvex 6201	. . . . . . . . . . . . . . . . . 18 |- ( Base ` R ) e. _V
23	4, 4, 11	syl2anc 693	. . . . . . . . . . . . . . . . . 18 |- ( M e. ( Base ` ( I Mat R ) ) -> ( I X. I ) e. Fin )
24		elmapg 7870	. . . . . . . . . . . . . . . . . 18 |- ( ( ( Base ` R ) e. _V /\ ( I X. I ) e. Fin ) -> ( M e. ( ( Base ` R ) ^m ( I X. I ) ) <-> M : ( I X. I ) --> ( Base ` R ) ) )
25	22, 23, 24	sylancr 695	. . . . . . . . . . . . . . . . 17 |- ( M e. ( Base ` ( I Mat R ) ) -> ( M e. ( ( Base ` R ) ^m ( I X. I ) ) <-> M : ( I X. I ) --> ( Base ` R ) ) )
26	25	adantl 482	. . . . . . . . . . . . . . . 16 |- ( ( R e. DivRing /\ M e. ( Base ` ( I Mat R ) ) ) -> ( M e. ( ( Base ` R ) ^m ( I X. I ) ) <-> M : ( I X. I ) --> ( Base ` R ) ) )
27	21, 26	bitr3d 270	. . . . . . . . . . . . . . 15 |- ( ( R e. DivRing /\ M e. ( Base ` ( I Mat R ) ) ) -> ( M e. ( Base ` ( I Mat R ) ) <-> M : ( I X. I ) --> ( Base ` R ) ) )
28	10, 27	mpbid 222	. . . . . . . . . . . . . 14 |- ( ( R e. DivRing /\ M e. ( Base ` ( I Mat R ) ) ) -> M : ( I X. I ) --> ( Base ` R ) )
29	28	adantrr 753	. . . . . . . . . . . . 13 |- ( ( R e. DivRing /\ ( M e. ( Base ` ( I Mat R ) ) /\ I =/= (/) ) ) -> M : ( I X. I ) --> ( Base ` R ) )
30		eldifsn 4317	. . . . . . . . . . . . . . . 16 |- ( I e. ( Fin \ { (/) } ) <-> ( I e. Fin /\ I =/= (/) ) )
31	30	biimpri 218	. . . . . . . . . . . . . . 15 |- ( ( I e. Fin /\ I =/= (/) ) -> I e. ( Fin \ { (/) } ) )
32	4, 31	sylan 488	. . . . . . . . . . . . . 14 |- ( ( M e. ( Base ` ( I Mat R ) ) /\ I =/= (/) ) -> I e. ( Fin \ { (/) } ) )
33	32	adantl 482	. . . . . . . . . . . . 13 |- ( ( R e. DivRing /\ ( M e. ( Base ` ( I Mat R ) ) /\ I =/= (/) ) ) -> I e. ( Fin \ { (/) } ) )
34		curf 33387	. . . . . . . . . . . . . 14 |- ( ( M : ( I X. I ) --> ( Base ` R ) /\ I e. ( Fin \ { (/) } ) /\ ( Base ` R ) e. _V ) -> curry M : I --> ( ( Base ` R ) ^m I ) )
35	22, 34	mp3an3 1413	. . . . . . . . . . . . 13 |- ( ( M : ( I X. I ) --> ( Base ` R ) /\ I e. ( Fin \ { (/) } ) ) -> curry M : I --> ( ( Base ` R ) ^m I ) )
36	29, 33, 35	syl2anc 693	. . . . . . . . . . . 12 |- ( ( R e. DivRing /\ ( M e. ( Base ` ( I Mat R ) ) /\ I =/= (/) ) ) -> curry M : I --> ( ( Base ` R ) ^m I ) )
37	9, 36	jca 554	. . . . . . . . . . 11 |- ( ( R e. DivRing /\ ( M e. ( Base ` ( I Mat R ) ) /\ I =/= (/) ) ) -> ( I e. Fin /\ curry M : I --> ( ( Base ` R ) ^m I ) ) )
38	37	ex 450	. . . . . . . . . 10 |- ( R e. DivRing -> ( ( M e. ( Base ` ( I Mat R ) ) /\ I =/= (/) ) -> ( I e. Fin /\ curry M : I --> ( ( Base ` R ) ^m I ) ) ) )
39	38	imdistani 726	. . . . . . . . 9 |- ( ( R e. DivRing /\ ( M e. ( Base ` ( I Mat R ) ) /\ I =/= (/) ) ) -> ( R e. DivRing /\ ( I e. Fin /\ curry M : I --> ( ( Base ` R ) ^m I ) ) ) )
40	39	anassrs 680	. . . . . . . 8 |- ( ( ( R e. DivRing /\ M e. ( Base ` ( I Mat R ) ) ) /\ I =/= (/) ) -> ( R e. DivRing /\ ( I e. Fin /\ curry M : I --> ( ( Base ` R ) ^m I ) ) ) )
41		anass 681	. . . . . . . 8 |- ( ( ( R e. DivRing /\ I e. Fin ) /\ curry M : I --> ( ( Base ` R ) ^m I ) ) <-> ( R e. DivRing /\ ( I e. Fin /\ curry M : I --> ( ( Base ` R ) ^m I ) ) ) )
42	40, 41	sylibr 224	. . . . . . 7 |- ( ( ( R e. DivRing /\ M e. ( Base ` ( I Mat R ) ) ) /\ I =/= (/) ) -> ( ( R e. DivRing /\ I e. Fin ) /\ curry M : I --> ( ( Base ` R ) ^m I ) ) )
43		drngring 18754	. . . . . . . . . . . . 13 |- ( R e. DivRing -> R e. Ring )
44		eqid 2622	. . . . . . . . . . . . . 14 |- ( R unitVec I ) = ( R unitVec I )
45		eqid 2622	. . . . . . . . . . . . . 14 |- ( R freeLMod I ) = ( R freeLMod I )
46		eqid 2622	. . . . . . . . . . . . . 14 |- ( Base ` ( R freeLMod I ) ) = ( Base ` ( R freeLMod I ) )
47	44, 45, 46	uvcff 20130	. . . . . . . . . . . . 13 |- ( ( R e. Ring /\ I e. Fin ) -> ( R unitVec I ) : I --> ( Base ` ( R freeLMod I ) ) )
48	43, 47	sylan 488	. . . . . . . . . . . 12 |- ( ( R e. DivRing /\ I e. Fin ) -> ( R unitVec I ) : I --> ( Base ` ( R freeLMod I ) ) )
49	48	ffvelrnda 6359	. . . . . . . . . . 11 |- ( ( ( R e. DivRing /\ I e. Fin ) /\ i e. I ) -> ( ( R unitVec I ) ` i ) e. ( Base ` ( R freeLMod I ) ) )
50	49	ad4ant14 1293	. . . . . . . . . 10 |- ( ( ( ( ( R e. DivRing /\ I e. Fin ) /\ curry M : I --> ( ( Base ` R ) ^m I ) ) /\ curry M LIndF ( R freeLMod I ) ) /\ i e. I ) -> ( ( R unitVec I ) ` i ) e. ( Base ` ( R freeLMod I ) ) )
51		ffn 6045	. . . . . . . . . . . . . . . 16 |- (curry M : I --> ( ( Base ` R ) ^m I ) -> curry M Fn I )
52		fnima 6010	. . . . . . . . . . . . . . . 16 |- (curry M Fn I -> (curry M " I ) = ran curry M )
53	51, 52	syl 17	. . . . . . . . . . . . . . 15 |- (curry M : I --> ( ( Base ` R ) ^m I ) -> (curry M " I ) = ran curry M )
54	53	adantl 482	. . . . . . . . . . . . . 14 |- ( ( ( R e. DivRing /\ I e. Fin ) /\ curry M : I --> ( ( Base ` R ) ^m I ) ) -> (curry M " I ) = ran curry M )
55	54	fveq2d 6195	. . . . . . . . . . . . 13 |- ( ( ( R e. DivRing /\ I e. Fin ) /\ curry M : I --> ( ( Base ` R ) ^m I ) ) -> ( ( LSpan ` ( R freeLMod I ) ) ` (curry M " I ) ) = ( ( LSpan ` ( R freeLMod I ) ) ` ran curry M ) )
56	55	adantr 481	. . . . . . . . . . . 12 |- ( ( ( ( R e. DivRing /\ I e. Fin ) /\ curry M : I --> ( ( Base ` R ) ^m I ) ) /\ curry M LIndF ( R freeLMod I ) ) -> ( ( LSpan ` ( R freeLMod I ) ) ` (curry M " I ) ) = ( ( LSpan ` ( R freeLMod I ) ) ` ran curry M ) )
57		simplll 798	. . . . . . . . . . . . . 14 |- ( ( ( ( R e. DivRing /\ I e. Fin ) /\ curry M : I --> ( ( Base ` R ) ^m I ) ) /\ curry M LIndF ( R freeLMod I ) ) -> R e. DivRing )
58		simpllr 799	. . . . . . . . . . . . . 14 |- ( ( ( ( R e. DivRing /\ I e. Fin ) /\ curry M : I --> ( ( Base ` R ) ^m I ) ) /\ curry M LIndF ( R freeLMod I ) ) -> I e. Fin )
59	45	frlmlmod 20093	. . . . . . . . . . . . . . . . 17 |- ( ( R e. Ring /\ I e. Fin ) -> ( R freeLMod I ) e. LMod )
60	43, 59	sylan 488	. . . . . . . . . . . . . . . 16 |- ( ( R e. DivRing /\ I e. Fin ) -> ( R freeLMod I ) e. LMod )
61	60	adantr 481	. . . . . . . . . . . . . . 15 |- ( ( ( R e. DivRing /\ I e. Fin ) /\ curry M : I --> ( ( Base ` R ) ^m I ) ) -> ( R freeLMod I ) e. LMod )
62		lindfrn 20160	. . . . . . . . . . . . . . 15 |- ( ( ( R freeLMod I ) e. LMod /\ curry M LIndF ( R freeLMod I ) ) -> ran curry M e. (LIndS ` ( R freeLMod I ) ) )
63	61, 62	sylan 488	. . . . . . . . . . . . . 14 |- ( ( ( ( R e. DivRing /\ I e. Fin ) /\ curry M : I --> ( ( Base ` R ) ^m I ) ) /\ curry M LIndF ( R freeLMod I ) ) -> ran curry M e. (LIndS ` ( R freeLMod I ) ) )
64	45	frlmsca 20097	. . . . . . . . . . . . . . . . . . . . . 22 |- ( ( R e. DivRing /\ I e. Fin ) -> R = (Scalar ` ( R freeLMod I ) ) )
65		drngnzr 19262	. . . . . . . . . . . . . . . . . . . . . . 23 |- ( R e. DivRing -> R e. NzRing )
66	65	adantr 481	. . . . . . . . . . . . . . . . . . . . . 22 |- ( ( R e. DivRing /\ I e. Fin ) -> R e. NzRing )
67	64, 66	eqeltrrd 2702	. . . . . . . . . . . . . . . . . . . . 21 |- ( ( R e. DivRing /\ I e. Fin ) -> (Scalar ` ( R freeLMod I ) ) e. NzRing )
68	60, 67	jca 554	. . . . . . . . . . . . . . . . . . . 20 |- ( ( R e. DivRing /\ I e. Fin ) -> ( ( R freeLMod I ) e. LMod /\ (Scalar ` ( R freeLMod I ) ) e. NzRing ) )
69		eqid 2622	. . . . . . . . . . . . . . . . . . . . . 22 |- (Scalar ` ( R freeLMod I ) ) = (Scalar ` ( R freeLMod I ) )
70	46, 69	lindff1 20159	. . . . . . . . . . . . . . . . . . . . 21 |- ( ( ( R freeLMod I ) e. LMod /\ (Scalar ` ( R freeLMod I ) ) e. NzRing /\ curry M LIndF ( R freeLMod I ) ) -> curry M : dom curry M -1-1-> ( Base ` ( R freeLMod I ) ) )
71	70	3expa 1265	. . . . . . . . . . . . . . . . . . . 20 |- ( ( ( ( R freeLMod I ) e. LMod /\ (Scalar ` ( R freeLMod I ) ) e. NzRing ) /\ curry M LIndF ( R freeLMod I ) ) -> curry M : dom curry M -1-1-> ( Base ` ( R freeLMod I ) ) )
72	68, 71	sylan 488	. . . . . . . . . . . . . . . . . . 19 |- ( ( ( R e. DivRing /\ I e. Fin ) /\ curry M LIndF ( R freeLMod I ) ) -> curry M : dom curry M -1-1-> ( Base ` ( R freeLMod I ) ) )
73		fdm 6051	. . . . . . . . . . . . . . . . . . 19 |- (curry M : I --> ( ( Base ` R ) ^m I ) -> dom curry M = I )
74		f1eq2 6097	. . . . . . . . . . . . . . . . . . . 20 |- ( dom curry M = I -> (curry M : dom curry M -1-1-> ( Base ` ( R freeLMod I ) ) <-> curry M : I -1-1-> ( Base ` ( R freeLMod I ) ) ) )
75	74	biimpac 503	. . . . . . . . . . . . . . . . . . 19 |- ( (curry M : dom curry M -1-1-> ( Base ` ( R freeLMod I ) ) /\ dom curry M = I ) -> curry M : I -1-1-> ( Base ` ( R freeLMod I ) ) )
76	72, 73, 75	syl2an 494	. . . . . . . . . . . . . . . . . 18 |- ( ( ( ( R e. DivRing /\ I e. Fin ) /\ curry M LIndF ( R freeLMod I ) ) /\ curry M : I --> ( ( Base ` R ) ^m I ) ) -> curry M : I -1-1-> ( Base ` ( R freeLMod I ) ) )
77	76	an32s 846	. . . . . . . . . . . . . . . . 17 |- ( ( ( ( R e. DivRing /\ I e. Fin ) /\ curry M : I --> ( ( Base ` R ) ^m I ) ) /\ curry M LIndF ( R freeLMod I ) ) -> curry M : I -1-1-> ( Base ` ( R freeLMod I ) ) )
78		f1f1orn 6148	. . . . . . . . . . . . . . . . 17 |- (curry M : I -1-1-> ( Base ` ( R freeLMod I ) ) -> curry M : I -1-1-onto-> ran curry M )
79	77, 78	syl 17	. . . . . . . . . . . . . . . 16 |- ( ( ( ( R e. DivRing /\ I e. Fin ) /\ curry M : I --> ( ( Base ` R ) ^m I ) ) /\ curry M LIndF ( R freeLMod I ) ) -> curry M : I -1-1-onto-> ran curry M )
80		f1oeng 7974	. . . . . . . . . . . . . . . 16 |- ( ( I e. Fin /\ curry M : I -1-1-onto-> ran curry M ) -> I ~~ ran curry M )
81	58, 79, 80	syl2anc 693	. . . . . . . . . . . . . . 15 |- ( ( ( ( R e. DivRing /\ I e. Fin ) /\ curry M : I --> ( ( Base ` R ) ^m I ) ) /\ curry M LIndF ( R freeLMod I ) ) -> I ~~ ran curry M )
82	81	ensymd 8007	. . . . . . . . . . . . . 14 |- ( ( ( ( R e. DivRing /\ I e. Fin ) /\ curry M : I --> ( ( Base ` R ) ^m I ) ) /\ curry M LIndF ( R freeLMod I ) ) -> ran curry M ~~ I )
83		lindsenlbs 33404	. . . . . . . . . . . . . 14 |- ( ( ( R e. DivRing /\ I e. Fin /\ ran curry M e. (LIndS ` ( R freeLMod I ) ) ) /\ ran curry M ~~ I ) -> ran curry M e. (LBasis ` ( R freeLMod I ) ) )
84	57, 58, 63, 82, 83	syl31anc 1329	. . . . . . . . . . . . 13 |- ( ( ( ( R e. DivRing /\ I e. Fin ) /\ curry M : I --> ( ( Base ` R ) ^m I ) ) /\ curry M LIndF ( R freeLMod I ) ) -> ran curry M e. (LBasis ` ( R freeLMod I ) ) )
85		eqid 2622	. . . . . . . . . . . . . 14 |- (LBasis ` ( R freeLMod I ) ) = (LBasis ` ( R freeLMod I ) )
86		eqid 2622	. . . . . . . . . . . . . 14 |- ( LSpan ` ( R freeLMod I ) ) = ( LSpan ` ( R freeLMod I ) )
87	46, 85, 86	lbssp 19079	. . . . . . . . . . . . 13 |- ( ran curry M e. (LBasis ` ( R freeLMod I ) ) -> ( ( LSpan ` ( R freeLMod I ) ) ` ran curry M ) = ( Base ` ( R freeLMod I ) ) )
88	84, 87	syl 17	. . . . . . . . . . . 12 |- ( ( ( ( R e. DivRing /\ I e. Fin ) /\ curry M : I --> ( ( Base ` R ) ^m I ) ) /\ curry M LIndF ( R freeLMod I ) ) -> ( ( LSpan ` ( R freeLMod I ) ) ` ran curry M ) = ( Base ` ( R freeLMod I ) ) )
89	56, 88	eqtrd 2656	. . . . . . . . . . 11 |- ( ( ( ( R e. DivRing /\ I e. Fin ) /\ curry M : I --> ( ( Base ` R ) ^m I ) ) /\ curry M LIndF ( R freeLMod I ) ) -> ( ( LSpan ` ( R freeLMod I ) ) ` (curry M " I ) ) = ( Base ` ( R freeLMod I ) ) )
90	89	adantr 481	. . . . . . . . . 10 |- ( ( ( ( ( R e. DivRing /\ I e. Fin ) /\ curry M : I --> ( ( Base ` R ) ^m I ) ) /\ curry M LIndF ( R freeLMod I ) ) /\ i e. I ) -> ( ( LSpan ` ( R freeLMod I ) ) ` (curry M " I ) ) = ( Base ` ( R freeLMod I ) ) )
91	50, 90	eleqtrrd 2704	. . . . . . . . 9 |- ( ( ( ( ( R e. DivRing /\ I e. Fin ) /\ curry M : I --> ( ( Base ` R ) ^m I ) ) /\ curry M LIndF ( R freeLMod I ) ) /\ i e. I ) -> ( ( R unitVec I ) ` i ) e. ( ( LSpan ` ( R freeLMod I ) ) ` (curry M " I ) ) )
92		eqid 2622	. . . . . . . . . . . . 13 |- ( Base ` (Scalar ` ( R freeLMod I ) ) ) = ( Base ` (Scalar ` ( R freeLMod I ) ) )
93		eqid 2622	. . . . . . . . . . . . 13 |- ( 0g ` (Scalar ` ( R freeLMod I ) ) ) = ( 0g ` (Scalar ` ( R freeLMod I ) ) )
94		eqid 2622	. . . . . . . . . . . . 13 |- ( .s ` ( R freeLMod I ) ) = ( .s ` ( R freeLMod I ) )
95	45, 14	frlmfibas 20105	. . . . . . . . . . . . . . 15 |- ( ( R e. Ring /\ I e. Fin ) -> ( ( Base ` R ) ^m I ) = ( Base ` ( R freeLMod I ) ) )
96	95	feq3d 6032	. . . . . . . . . . . . . 14 |- ( ( R e. Ring /\ I e. Fin ) -> (curry M : I --> ( ( Base ` R ) ^m I ) <-> curry M : I --> ( Base ` ( R freeLMod I ) ) ) )
97	96	biimpa 501	. . . . . . . . . . . . 13 |- ( ( ( R e. Ring /\ I e. Fin ) /\ curry M : I --> ( ( Base ` R ) ^m I ) ) -> curry M : I --> ( Base ` ( R freeLMod I ) ) )
98	59	adantr 481	. . . . . . . . . . . . 13 |- ( ( ( R e. Ring /\ I e. Fin ) /\ curry M : I --> ( ( Base ` R ) ^m I ) ) -> ( R freeLMod I ) e. LMod )
99		simplr 792	. . . . . . . . . . . . 13 |- ( ( ( R e. Ring /\ I e. Fin ) /\ curry M : I --> ( ( Base ` R ) ^m I ) ) -> I e. Fin )
100	86, 46, 92, 69, 93, 94, 97, 98, 99	elfilspd 20142	. . . . . . . . . . . 12 |- ( ( ( R e. Ring /\ I e. Fin ) /\ curry M : I --> ( ( Base ` R ) ^m I ) ) -> ( ( ( R unitVec I ) ` i ) e. ( ( LSpan ` ( R freeLMod I ) ) ` (curry M " I ) ) <-> E. n e. ( ( Base ` (Scalar ` ( R freeLMod I ) ) ) ^m I ) ( ( R unitVec I ) ` i ) = ( ( R freeLMod I ) gsumg ( n oF ( .s ` ( R freeLMod I ) )curry M ) ) ) )
101	45	frlmsca 20097	. . . . . . . . . . . . . . . 16 |- ( ( R e. Ring /\ I e. Fin ) -> R = (Scalar ` ( R freeLMod I ) ) )
102	101	fveq2d 6195	. . . . . . . . . . . . . . 15 |- ( ( R e. Ring /\ I e. Fin ) -> ( Base ` R ) = ( Base ` (Scalar ` ( R freeLMod I ) ) ) )
103	102	oveq1d 6665	. . . . . . . . . . . . . 14 |- ( ( R e. Ring /\ I e. Fin ) -> ( ( Base ` R ) ^m I ) = ( ( Base ` (Scalar ` ( R freeLMod I ) ) ) ^m I ) )
104	103	adantr 481	. . . . . . . . . . . . 13 |- ( ( ( R e. Ring /\ I e. Fin ) /\ curry M : I --> ( ( Base ` R ) ^m I ) ) -> ( ( Base ` R ) ^m I ) = ( ( Base ` (Scalar ` ( R freeLMod I ) ) ) ^m I ) )
105		elmapi 7879	. . . . . . . . . . . . . . 15 |- ( n e. ( ( Base ` R ) ^m I ) -> n : I --> ( Base ` R ) )
106		ffn 6045	. . . . . . . . . . . . . . . . . . . 20 |- ( n : I --> ( Base ` R ) -> n Fn I )
107	106	adantl 482	. . . . . . . . . . . . . . . . . . 19 |- ( ( ( ( R e. Ring /\ I e. Fin ) /\ curry M : I --> ( ( Base ` R ) ^m I ) ) /\ n : I --> ( Base ` R ) ) -> n Fn I )
108	51	ad2antlr 763	. . . . . . . . . . . . . . . . . . 19 |- ( ( ( ( R e. Ring /\ I e. Fin ) /\ curry M : I --> ( ( Base ` R ) ^m I ) ) /\ n : I --> ( Base ` R ) ) -> curry M Fn I )
109		simpllr 799	. . . . . . . . . . . . . . . . . . 19 |- ( ( ( ( R e. Ring /\ I e. Fin ) /\ curry M : I --> ( ( Base ` R ) ^m I ) ) /\ n : I --> ( Base ` R ) ) -> I e. Fin )
110		inidm 3822	. . . . . . . . . . . . . . . . . . 19 |- ( I i^i I ) = I
111		eqidd 2623	. . . . . . . . . . . . . . . . . . 19 |- ( ( ( ( ( R e. Ring /\ I e. Fin ) /\ curry M : I --> ( ( Base ` R ) ^m I ) ) /\ n : I --> ( Base ` R ) ) /\ k e. I ) -> ( n ` k ) = ( n ` k ) )
112		eqidd 2623	. . . . . . . . . . . . . . . . . . 19 |- ( ( ( ( ( R e. Ring /\ I e. Fin ) /\ curry M : I --> ( ( Base ` R ) ^m I ) ) /\ n : I --> ( Base ` R ) ) /\ k e. I ) -> (curry M ` k ) = (curry M ` k ) )
113	107, 108, 109, 109, 110, 111, 112	offval 6904	. . . . . . . . . . . . . . . . . 18 |- ( ( ( ( R e. Ring /\ I e. Fin ) /\ curry M : I --> ( ( Base ` R ) ^m I ) ) /\ n : I --> ( Base ` R ) ) -> ( n oF ( .s ` ( R freeLMod I ) )curry M ) = ( k e. I |-> ( ( n ` k ) ( .s ` ( R freeLMod I ) ) (curry M ` k ) ) ) )
114		simp-4r 807	. . . . . . . . . . . . . . . . . . . . 21 |- ( ( ( ( ( R e. Ring /\ I e. Fin ) /\ curry M : I --> ( ( Base ` R ) ^m I ) ) /\ n : I --> ( Base ` R ) ) /\ k e. I ) -> I e. Fin )
115		ffvelrn 6357	. . . . . . . . . . . . . . . . . . . . . 22 |- ( ( n : I --> ( Base ` R ) /\ k e. I ) -> ( n ` k ) e. ( Base ` R ) )
116	115	adantll 750	. . . . . . . . . . . . . . . . . . . . 21 |- ( ( ( ( ( R e. Ring /\ I e. Fin ) /\ curry M : I --> ( ( Base ` R ) ^m I ) ) /\ n : I --> ( Base ` R ) ) /\ k e. I ) -> ( n ` k ) e. ( Base ` R ) )
117		ffvelrn 6357	. . . . . . . . . . . . . . . . . . . . . . 23 |- ( (curry M : I --> ( ( Base ` R ) ^m I ) /\ k e. I ) -> (curry M ` k ) e. ( ( Base ` R ) ^m I ) )
118	117	ad4ant24 1298	. . . . . . . . . . . . . . . . . . . . . 22 |- ( ( ( ( ( R e. Ring /\ I e. Fin ) /\ curry M : I --> ( ( Base ` R ) ^m I ) ) /\ n : I --> ( Base ` R ) ) /\ k e. I ) -> (curry M ` k ) e. ( ( Base ` R ) ^m I ) )
119	95	ad3antrrr 766	. . . . . . . . . . . . . . . . . . . . . 22 |- ( ( ( ( ( R e. Ring /\ I e. Fin ) /\ curry M : I --> ( ( Base ` R ) ^m I ) ) /\ n : I --> ( Base ` R ) ) /\ k e. I ) -> ( ( Base ` R ) ^m I ) = ( Base ` ( R freeLMod I ) ) )
120	118, 119	eleqtrd 2703	. . . . . . . . . . . . . . . . . . . . 21 |- ( ( ( ( ( R e. Ring /\ I e. Fin ) /\ curry M : I --> ( ( Base ` R ) ^m I ) ) /\ n : I --> ( Base ` R ) ) /\ k e. I ) -> (curry M ` k ) e. ( Base ` ( R freeLMod I ) ) )
121		eqid 2622	. . . . . . . . . . . . . . . . . . . . 21 |- ( .r ` R ) = ( .r ` R )
122	45, 46, 14, 114, 116, 120, 94, 121	frlmvscafval 20109	. . . . . . . . . . . . . . . . . . . 20 |- ( ( ( ( ( R e. Ring /\ I e. Fin ) /\ curry M : I --> ( ( Base ` R ) ^m I ) ) /\ n : I --> ( Base ` R ) ) /\ k e. I ) -> ( ( n ` k ) ( .s ` ( R freeLMod I ) ) (curry M ` k ) ) = ( ( I X. { ( n ` k ) } ) oF ( .r ` R ) (curry M ` k ) ) )
123		fvex 6201	. . . . . . . . . . . . . . . . . . . . . 22 |- ( n ` k ) e. _V
124		fnconstg 6093	. . . . . . . . . . . . . . . . . . . . . 22 |- ( ( n ` k ) e. _V -> ( I X. { ( n ` k ) } ) Fn I )
125	123, 124	mp1i 13	. . . . . . . . . . . . . . . . . . . . 21 |- ( ( ( ( ( R e. Ring /\ I e. Fin ) /\ curry M : I --> ( ( Base ` R ) ^m I ) ) /\ n : I --> ( Base ` R ) ) /\ k e. I ) -> ( I X. { ( n ` k ) } ) Fn I )
126		elmapfn 7880	. . . . . . . . . . . . . . . . . . . . . . 23 |- ( (curry M ` k ) e. ( ( Base ` R ) ^m I ) -> (curry M ` k ) Fn I )
127	117, 126	syl 17	. . . . . . . . . . . . . . . . . . . . . 22 |- ( (curry M : I --> ( ( Base ` R ) ^m I ) /\ k e. I ) -> (curry M ` k ) Fn I )
128	127	ad4ant24 1298	. . . . . . . . . . . . . . . . . . . . 21 |- ( ( ( ( ( R e. Ring /\ I e. Fin ) /\ curry M : I --> ( ( Base ` R ) ^m I ) ) /\ n : I --> ( Base ` R ) ) /\ k e. I ) -> (curry M ` k ) Fn I )
129	123	fvconst2 6469	. . . . . . . . . . . . . . . . . . . . . 22 |- ( j e. I -> ( ( I X. { ( n ` k ) } ) ` j ) = ( n ` k ) )
130	129	adantl 482	. . . . . . . . . . . . . . . . . . . . 21 |- ( ( ( ( ( ( R e. Ring /\ I e. Fin ) /\ curry M : I --> ( ( Base ` R ) ^m I ) ) /\ n : I --> ( Base ` R ) ) /\ k e. I ) /\ j e. I ) -> ( ( I X. { ( n ` k ) } ) ` j ) = ( n ` k ) )
131		eqidd 2623	. . . . . . . . . . . . . . . . . . . . 21 |- ( ( ( ( ( ( R e. Ring /\ I e. Fin ) /\ curry M : I --> ( ( Base ` R ) ^m I ) ) /\ n : I --> ( Base ` R ) ) /\ k e. I ) /\ j e. I ) -> ( (curry M ` k ) ` j ) = ( (curry M ` k ) ` j ) )
132	125, 128, 114, 114, 110, 130, 131	offval 6904	. . . . . . . . . . . . . . . . . . . 20 |- ( ( ( ( ( R e. Ring /\ I e. Fin ) /\ curry M : I --> ( ( Base ` R ) ^m I ) ) /\ n : I --> ( Base ` R ) ) /\ k e. I ) -> ( ( I X. { ( n ` k ) } ) oF ( .r ` R ) (curry M ` k ) ) = ( j e. I |-> ( ( n ` k ) ( .r ` R ) ( (curry M ` k ) ` j ) ) ) )
133	122, 132	eqtrd 2656	. . . . . . . . . . . . . . . . . . 19 |- ( ( ( ( ( R e. Ring /\ I e. Fin ) /\ curry M : I --> ( ( Base ` R ) ^m I ) ) /\ n : I --> ( Base ` R ) ) /\ k e. I ) -> ( ( n ` k ) ( .s ` ( R freeLMod I ) ) (curry M ` k ) ) = ( j e. I |-> ( ( n ` k ) ( .r ` R ) ( (curry M ` k ) ` j ) ) ) )
134	133	mpteq2dva 4744	. . . . . . . . . . . . . . . . . 18 |- ( ( ( ( R e. Ring /\ I e. Fin ) /\ curry M : I --> ( ( Base ` R ) ^m I ) ) /\ n : I --> ( Base ` R ) ) -> ( k e. I |-> ( ( n ` k ) ( .s ` ( R freeLMod I ) ) (curry M ` k ) ) ) = ( k e. I |-> ( j e. I |-> ( ( n ` k ) ( .r ` R ) ( (curry M ` k ) ` j ) ) ) ) )
135	113, 134	eqtrd 2656	. . . . . . . . . . . . . . . . 17 |- ( ( ( ( R e. Ring /\ I e. Fin ) /\ curry M : I --> ( ( Base ` R ) ^m I ) ) /\ n : I --> ( Base ` R ) ) -> ( n oF ( .s ` ( R freeLMod I ) )curry M ) = ( k e. I |-> ( j e. I |-> ( ( n ` k ) ( .r ` R ) ( (curry M ` k ) ` j ) ) ) ) )
136	135	oveq2d 6666	. . . . . . . . . . . . . . . 16 |- ( ( ( ( R e. Ring /\ I e. Fin ) /\ curry M : I --> ( ( Base ` R ) ^m I ) ) /\ n : I --> ( Base ` R ) ) -> ( ( R freeLMod I ) gsumg ( n oF ( .s ` ( R freeLMod I ) )curry M ) ) = ( ( R freeLMod I ) gsumg ( k e. I |-> ( j e. I |-> ( ( n ` k ) ( .r ` R ) ( (curry M ` k ) ` j ) ) ) ) ) )
137		eqid 2622	. . . . . . . . . . . . . . . . 17 |- ( 0g ` ( R freeLMod I ) ) = ( 0g ` ( R freeLMod I ) )
138		simplll 798	. . . . . . . . . . . . . . . . 17 |- ( ( ( ( R e. Ring /\ I e. Fin ) /\ curry M : I --> ( ( Base ` R ) ^m I ) ) /\ n : I --> ( Base ` R ) ) -> R e. Ring )
139		simp-5l 808	. . . . . . . . . . . . . . . . . . . 20 |- ( ( ( ( ( ( R e. Ring /\ I e. Fin ) /\ curry M : I --> ( ( Base ` R ) ^m I ) ) /\ n : I --> ( Base ` R ) ) /\ k e. I ) /\ j e. I ) -> R e. Ring )
140	115	ad4ant23 1297	. . . . . . . . . . . . . . . . . . . 20 |- ( ( ( ( ( ( R e. Ring /\ I e. Fin ) /\ curry M : I --> ( ( Base ` R ) ^m I ) ) /\ n : I --> ( Base ` R ) ) /\ k e. I ) /\ j e. I ) -> ( n ` k ) e. ( Base ` R ) )
141		simplr 792	. . . . . . . . . . . . . . . . . . . . 21 |- ( ( ( ( R e. Ring /\ I e. Fin ) /\ curry M : I --> ( ( Base ` R ) ^m I ) ) /\ n : I --> ( Base ` R ) ) -> curry M : I --> ( ( Base ` R ) ^m I ) )
142		elmapi 7879	. . . . . . . . . . . . . . . . . . . . . . 23 |- ( (curry M ` k ) e. ( ( Base ` R ) ^m I ) -> (curry M ` k ) : I --> ( Base ` R ) )
143	117, 142	syl 17	. . . . . . . . . . . . . . . . . . . . . 22 |- ( (curry M : I --> ( ( Base ` R ) ^m I ) /\ k e. I ) -> (curry M ` k ) : I --> ( Base ` R ) )
144	143	ffvelrnda 6359	. . . . . . . . . . . . . . . . . . . . 21 |- ( ( (curry M : I --> ( ( Base ` R ) ^m I ) /\ k e. I ) /\ j e. I ) -> ( (curry M ` k ) ` j ) e. ( Base ` R ) )
145	141, 144	sylanl1 682	. . . . . . . . . . . . . . . . . . . 20 |- ( ( ( ( ( ( R e. Ring /\ I e. Fin ) /\ curry M : I --> ( ( Base ` R ) ^m I ) ) /\ n : I --> ( Base ` R ) ) /\ k e. I ) /\ j e. I ) -> ( (curry M ` k ) ` j ) e. ( Base ` R ) )
146	14, 121	ringcl 18561	. . . . . . . . . . . . . . . . . . . 20 |- ( ( R e. Ring /\ ( n ` k ) e. ( Base ` R ) /\ ( (curry M ` k ) ` j ) e. ( Base ` R ) ) -> ( ( n ` k ) ( .r ` R ) ( (curry M ` k ) ` j ) ) e. ( Base ` R ) )
147	139, 140, 145, 146	syl3anc 1326	. . . . . . . . . . . . . . . . . . 19 |- ( ( ( ( ( ( R e. Ring /\ I e. Fin ) /\ curry M : I --> ( ( Base ` R ) ^m I ) ) /\ n : I --> ( Base ` R ) ) /\ k e. I ) /\ j e. I ) -> ( ( n ` k ) ( .r ` R ) ( (curry M ` k ) ` j ) ) e. ( Base ` R ) )
148		eqid 2622	. . . . . . . . . . . . . . . . . . 19 |- ( j e. I |-> ( ( n ` k ) ( .r ` R ) ( (curry M ` k ) ` j ) ) ) = ( j e. I |-> ( ( n ` k ) ( .r ` R ) ( (curry M ` k ) ` j ) ) )
149	147, 148	fmptd 6385	. . . . . . . . . . . . . . . . . 18 |- ( ( ( ( ( R e. Ring /\ I e. Fin ) /\ curry M : I --> ( ( Base ` R ) ^m I ) ) /\ n : I --> ( Base ` R ) ) /\ k e. I ) -> ( j e. I |-> ( ( n ` k ) ( .r ` R ) ( (curry M ` k ) ` j ) ) ) : I --> ( Base ` R ) )
150		elmapg 7870	. . . . . . . . . . . . . . . . . . . . . 22 |- ( ( ( Base ` R ) e. _V /\ I e. Fin ) -> ( ( j e. I |-> ( ( n ` k ) ( .r ` R ) ( (curry M ` k ) ` j ) ) ) e. ( ( Base ` R ) ^m I ) <-> ( j e. I |-> ( ( n ` k ) ( .r ` R ) ( (curry M ` k ) ` j ) ) ) : I --> ( Base ` R ) ) )
151	22, 150	mpan 706	. . . . . . . . . . . . . . . . . . . . 21 |- ( I e. Fin -> ( ( j e. I |-> ( ( n ` k ) ( .r ` R ) ( (curry M ` k ) ` j ) ) ) e. ( ( Base ` R ) ^m I ) <-> ( j e. I |-> ( ( n ` k ) ( .r ` R ) ( (curry M ` k ) ` j ) ) ) : I --> ( Base ` R ) ) )
152	151	adantl 482	. . . . . . . . . . . . . . . . . . . 20 |- ( ( R e. Ring /\ I e. Fin ) -> ( ( j e. I |-> ( ( n ` k ) ( .r ` R ) ( (curry M ` k ) ` j ) ) ) e. ( ( Base ` R ) ^m I ) <-> ( j e. I |-> ( ( n ` k ) ( .r ` R ) ( (curry M ` k ) ` j ) ) ) : I --> ( Base ` R ) ) )
153	95	eleq2d 2687	. . . . . . . . . . . . . . . . . . . 20 |- ( ( R e. Ring /\ I e. Fin ) -> ( ( j e. I |-> ( ( n ` k ) ( .r ` R ) ( (curry M ` k ) ` j ) ) ) e. ( ( Base ` R ) ^m I ) <-> ( j e. I |-> ( ( n ` k ) ( .r ` R ) ( (curry M ` k ) ` j ) ) ) e. ( Base ` ( R freeLMod I ) ) ) )
154	152, 153	bitr3d 270	. . . . . . . . . . . . . . . . . . 19 |- ( ( R e. Ring /\ I e. Fin ) -> ( ( j e. I |-> ( ( n ` k ) ( .r ` R ) ( (curry M ` k ) ` j ) ) ) : I --> ( Base ` R ) <-> ( j e. I |-> ( ( n ` k ) ( .r ` R ) ( (curry M ` k ) ` j ) ) ) e. ( Base ` ( R freeLMod I ) ) ) )
155	154	ad3antrrr 766	. . . . . . . . . . . . . . . . . 18 |- ( ( ( ( ( R e. Ring /\ I e. Fin ) /\ curry M : I --> ( ( Base ` R ) ^m I ) ) /\ n : I --> ( Base ` R ) ) /\ k e. I ) -> ( ( j e. I |-> ( ( n ` k ) ( .r ` R ) ( (curry M ` k ) ` j ) ) ) : I --> ( Base ` R ) <-> ( j e. I |-> ( ( n ` k ) ( .r ` R ) ( (curry M ` k ) ` j ) ) ) e. ( Base ` ( R freeLMod I ) ) ) )
156	149, 155	mpbid 222	. . . . . . . . . . . . . . . . 17 |- ( ( ( ( ( R e. Ring /\ I e. Fin ) /\ curry M : I --> ( ( Base ` R ) ^m I ) ) /\ n : I --> ( Base ` R ) ) /\ k e. I ) -> ( j e. I |-> ( ( n ` k ) ( .r ` R ) ( (curry M ` k ) ` j ) ) ) e. ( Base ` ( R freeLMod I ) ) )
157		mptexg 6484	. . . . . . . . . . . . . . . . . . . . 21 |- ( I e. Fin -> ( j e. I |-> ( ( n ` k ) ( .r ` R ) ( (curry M ` k ) ` j ) ) ) e. _V )
158	157	ralrimivw 2967	. . . . . . . . . . . . . . . . . . . 20 |- ( I e. Fin -> A. k e. I ( j e. I |-> ( ( n ` k ) ( .r ` R ) ( (curry M ` k ) ` j ) ) ) e. _V )
159		eqid 2622	. . . . . . . . . . . . . . . . . . . . 21 |- ( k e. I |-> ( j e. I |-> ( ( n ` k ) ( .r ` R ) ( (curry M ` k ) ` j ) ) ) ) = ( k e. I |-> ( j e. I |-> ( ( n ` k ) ( .r ` R ) ( (curry M ` k ) ` j ) ) ) )
160	159	fnmpt 6020	. . . . . . . . . . . . . . . . . . . 20 |- ( A. k e. I ( j e. I |-> ( ( n ` k ) ( .r ` R ) ( (curry M ` k ) ` j ) ) ) e. _V -> ( k e. I |-> ( j e. I |-> ( ( n ` k ) ( .r ` R ) ( (curry M ` k ) ` j ) ) ) ) Fn I )
161	158, 160	syl 17	. . . . . . . . . . . . . . . . . . 19 |- ( I e. Fin -> ( k e. I |-> ( j e. I |-> ( ( n ` k ) ( .r ` R ) ( (curry M ` k ) ` j ) ) ) ) Fn I )
162		id 22	. . . . . . . . . . . . . . . . . . 19 |- ( I e. Fin -> I e. Fin )
163		fvexd 6203	. . . . . . . . . . . . . . . . . . 19 |- ( I e. Fin -> ( 0g ` ( R freeLMod I ) ) e. _V )
164	161, 162, 163	fndmfifsupp 8288	. . . . . . . . . . . . . . . . . 18 |- ( I e. Fin -> ( k e. I |-> ( j e. I |-> ( ( n ` k ) ( .r ` R ) ( (curry M ` k ) ` j ) ) ) ) finSupp ( 0g ` ( R freeLMod I ) ) )
165	164	ad3antlr 767	. . . . . . . . . . . . . . . . 17 |- ( ( ( ( R e. Ring /\ I e. Fin ) /\ curry M : I --> ( ( Base ` R ) ^m I ) ) /\ n : I --> ( Base ` R ) ) -> ( k e. I |-> ( j e. I |-> ( ( n ` k ) ( .r ` R ) ( (curry M ` k ) ` j ) ) ) ) finSupp ( 0g ` ( R freeLMod I ) ) )
166	45, 46, 137, 109, 109, 138, 156, 165	frlmgsum 20111	. . . . . . . . . . . . . . . 16 |- ( ( ( ( R e. Ring /\ I e. Fin ) /\ curry M : I --> ( ( Base ` R ) ^m I ) ) /\ n : I --> ( Base ` R ) ) -> ( ( R freeLMod I ) gsumg ( k e. I |-> ( j e. I |-> ( ( n ` k ) ( .r ` R ) ( (curry M ` k ) ` j ) ) ) ) ) = ( j e. I |-> ( R gsumg ( k e. I |-> ( ( n ` k ) ( .r ` R ) ( (curry M ` k ) ` j ) ) ) ) ) )
167	136, 166	eqtr2d 2657	. . . . . . . . . . . . . . 15 |- ( ( ( ( R e. Ring /\ I e. Fin ) /\ curry M : I --> ( ( Base ` R ) ^m I ) ) /\ n : I --> ( Base ` R ) ) -> ( j e. I |-> ( R gsumg ( k e. I |-> ( ( n ` k ) ( .r ` R ) ( (curry M ` k ) ` j ) ) ) ) ) = ( ( R freeLMod I ) gsumg ( n oF ( .s ` ( R freeLMod I ) )curry M ) ) )
168	105, 167	sylan2 491	. . . . . . . . . . . . . 14 |- ( ( ( ( R e. Ring /\ I e. Fin ) /\ curry M : I --> ( ( Base ` R ) ^m I ) ) /\ n e. ( ( Base ` R ) ^m I ) ) -> ( j e. I |-> ( R gsumg ( k e. I |-> ( ( n ` k ) ( .r ` R ) ( (curry M ` k ) ` j ) ) ) ) ) = ( ( R freeLMod I ) gsumg ( n oF ( .s ` ( R freeLMod I ) )curry M ) ) )
169	168	eqeq2d 2632	. . . . . . . . . . . . 13 |- ( ( ( ( R e. Ring /\ I e. Fin ) /\ curry M : I --> ( ( Base ` R ) ^m I ) ) /\ n e. ( ( Base ` R ) ^m I ) ) -> ( ( ( R unitVec I ) ` i ) = ( j e. I |-> ( R gsumg ( k e. I |-> ( ( n ` k ) ( .r ` R ) ( (curry M ` k ) ` j ) ) ) ) ) <-> ( ( R unitVec I ) ` i ) = ( ( R freeLMod I ) gsumg ( n oF ( .s ` ( R freeLMod I ) )curry M ) ) ) )
170	104, 169	rexeqbidva 3155	. . . . . . . . . . . 12 |- ( ( ( R e. Ring /\ I e. Fin ) /\ curry M : I --> ( ( Base ` R ) ^m I ) ) -> ( E. n e. ( ( Base ` R ) ^m I ) ( ( R unitVec I ) ` i ) = ( j e. I |-> ( R gsumg ( k e. I |-> ( ( n ` k ) ( .r ` R ) ( (curry M ` k ) ` j ) ) ) ) ) <-> E. n e. ( ( Base ` (Scalar ` ( R freeLMod I ) ) ) ^m I ) ( ( R unitVec I ) ` i ) = ( ( R freeLMod I ) gsumg ( n oF ( .s ` ( R freeLMod I ) )curry M ) ) ) )
171	100, 170	bitr4d 271	. . . . . . . . . . 11 |- ( ( ( R e. Ring /\ I e. Fin ) /\ curry M : I --> ( ( Base ` R ) ^m I ) ) -> ( ( ( R unitVec I ) ` i ) e. ( ( LSpan ` ( R freeLMod I ) ) ` (curry M " I ) ) <-> E. n e. ( ( Base ` R ) ^m I ) ( ( R unitVec I ) ` i ) = ( j e. I |-> ( R gsumg ( k e. I |-> ( ( n ` k ) ( .r ` R ) ( (curry M ` k ) ` j ) ) ) ) ) ) )
172	43, 171	sylanl1 682	. . . . . . . . . 10 |- ( ( ( R e. DivRing /\ I e. Fin ) /\ curry M : I --> ( ( Base ` R ) ^m I ) ) -> ( ( ( R unitVec I ) ` i ) e. ( ( LSpan ` ( R freeLMod I ) ) ` (curry M " I ) ) <-> E. n e. ( ( Base ` R ) ^m I ) ( ( R unitVec I ) ` i ) = ( j e. I |-> ( R gsumg ( k e. I |-> ( ( n ` k ) ( .r ` R ) ( (curry M ` k ) ` j ) ) ) ) ) ) )
173	172	ad2antrr 762	. . . . . . . . 9 |- ( ( ( ( ( R e. DivRing /\ I e. Fin ) /\ curry M : I --> ( ( Base ` R ) ^m I ) ) /\ curry M LIndF ( R freeLMod I ) ) /\ i e. I ) -> ( ( ( R unitVec I ) ` i ) e. ( ( LSpan ` ( R freeLMod I ) ) ` (curry M " I ) ) <-> E. n e. ( ( Base ` R ) ^m I ) ( ( R unitVec I ) ` i ) = ( j e. I |-> ( R gsumg ( k e. I |-> ( ( n ` k ) ( .r ` R ) ( (curry M ` k ) ` j ) ) ) ) ) ) )
174	91, 173	mpbid 222	. . . . . . . 8 |- ( ( ( ( ( R e. DivRing /\ I e. Fin ) /\ curry M : I --> ( ( Base ` R ) ^m I ) ) /\ curry M LIndF ( R freeLMod I ) ) /\ i e. I ) -> E. n e. ( ( Base ` R ) ^m I ) ( ( R unitVec I ) ` i ) = ( j e. I |-> ( R gsumg ( k e. I |-> ( ( n ` k ) ( .r ` R ) ( (curry M ` k ) ` j ) ) ) ) ) )
175	174	ralrimiva 2966	. . . . . . 7 |- ( ( ( ( R e. DivRing /\ I e. Fin ) /\ curry M : I --> ( ( Base ` R ) ^m I ) ) /\ curry M LIndF ( R freeLMod I ) ) -> A. i e. I E. n e. ( ( Base ` R ) ^m I ) ( ( R unitVec I ) ` i ) = ( j e. I |-> ( R gsumg ( k e. I |-> ( ( n ` k ) ( .r ` R ) ( (curry M ` k ) ` j ) ) ) ) ) )
176	42, 175	sylan 488	. . . . . 6 |- ( ( ( ( R e. DivRing /\ M e. ( Base ` ( I Mat R ) ) ) /\ I =/= (/) ) /\ curry M LIndF ( R freeLMod I ) ) -> A. i e. I E. n e. ( ( Base ` R ) ^m I ) ( ( R unitVec I ) ` i ) = ( j e. I |-> ( R gsumg ( k e. I |-> ( ( n ` k ) ( .r ` R ) ( (curry M ` k ) ` j ) ) ) ) ) )
177	10, 21	mpbird 247	. . . . . . . . 9 |- ( ( R e. DivRing /\ M e. ( Base ` ( I Mat R ) ) ) -> M e. ( ( Base ` R ) ^m ( I X. I ) ) )
178		elmapfn 7880	. . . . . . . . 9 |- ( M e. ( ( Base ` R ) ^m ( I X. I ) ) -> M Fn ( I X. I ) )
179	177, 178	syl 17	. . . . . . . 8 |- ( ( R e. DivRing /\ M e. ( Base ` ( I Mat R ) ) ) -> M Fn ( I X. I ) )
180	4	adantl 482	. . . . . . . 8 |- ( ( R e. DivRing /\ M e. ( Base ` ( I Mat R ) ) ) -> I e. Fin )
181		an32 839	. . . . . . . . . . . . . . . . . . 19 |- ( ( ( M Fn ( I X. I ) /\ j e. I ) /\ k e. I ) <-> ( ( M Fn ( I X. I ) /\ k e. I ) /\ j e. I ) )
182		df-3an 1039	. . . . . . . . . . . . . . . . . . 19 |- ( ( M Fn ( I X. I ) /\ k e. I /\ j e. I ) <-> ( ( M Fn ( I X. I ) /\ k e. I ) /\ j e. I ) )
183	181, 182	bitr4i 267	. . . . . . . . . . . . . . . . . 18 |- ( ( ( M Fn ( I X. I ) /\ j e. I ) /\ k e. I ) <-> ( M Fn ( I X. I ) /\ k e. I /\ j e. I ) )
184		curfv 33389	. . . . . . . . . . . . . . . . . 18 |- ( ( ( M Fn ( I X. I ) /\ k e. I /\ j e. I ) /\ I e. Fin ) -> ( (curry M ` k ) ` j ) = ( k M j ) )
185	183, 184	sylanb 489	. . . . . . . . . . . . . . . . 17 |- ( ( ( ( M Fn ( I X. I ) /\ j e. I ) /\ k e. I ) /\ I e. Fin ) -> ( (curry M ` k ) ` j ) = ( k M j ) )
186	185	an32s 846	. . . . . . . . . . . . . . . 16 |- ( ( ( ( M Fn ( I X. I ) /\ j e. I ) /\ I e. Fin ) /\ k e. I ) -> ( (curry M ` k ) ` j ) = ( k M j ) )
187	186	oveq2d 6666	. . . . . . . . . . . . . . 15 |- ( ( ( ( M Fn ( I X. I ) /\ j e. I ) /\ I e. Fin ) /\ k e. I ) -> ( ( n ` k ) ( .r ` R ) ( (curry M ` k ) ` j ) ) = ( ( n ` k ) ( .r ` R ) ( k M j ) ) )
188	187	mpteq2dva 4744	. . . . . . . . . . . . . 14 |- ( ( ( M Fn ( I X. I ) /\ j e. I ) /\ I e. Fin ) -> ( k e. I |-> ( ( n ` k ) ( .r ` R ) ( (curry M ` k ) ` j ) ) ) = ( k e. I |-> ( ( n ` k ) ( .r ` R ) ( k M j ) ) ) )
189	188	an32s 846	. . . . . . . . . . . . 13 |- ( ( ( M Fn ( I X. I ) /\ I e. Fin ) /\ j e. I ) -> ( k e. I |-> ( ( n ` k ) ( .r ` R ) ( (curry M ` k ) ` j ) ) ) = ( k e. I |-> ( ( n ` k ) ( .r ` R ) ( k M j ) ) ) )
190	189	oveq2d 6666	. . . . . . . . . . . 12 |- ( ( ( M Fn ( I X. I ) /\ I e. Fin ) /\ j e. I ) -> ( R gsumg ( k e. I |-> ( ( n ` k ) ( .r ` R ) ( (curry M ` k ) ` j ) ) ) ) = ( R gsumg ( k e. I |-> ( ( n ` k ) ( .r ` R ) ( k M j ) ) ) ) )
191	190	mpteq2dva 4744	. . . . . . . . . . 11 |- ( ( M Fn ( I X. I ) /\ I e. Fin ) -> ( j e. I |-> ( R gsumg ( k e. I |-> ( ( n ` k ) ( .r ` R ) ( (curry M ` k ) ` j ) ) ) ) ) = ( j e. I |-> ( R gsumg ( k e. I |-> ( ( n ` k ) ( .r ` R ) ( k M j ) ) ) ) ) )
192	191	eqeq2d 2632	. . . . . . . . . 10 |- ( ( M Fn ( I X. I ) /\ I e. Fin ) -> ( ( ( R unitVec I ) ` i ) = ( j e. I |-> ( R gsumg ( k e. I |-> ( ( n ` k ) ( .r ` R ) ( (curry M ` k ) ` j ) ) ) ) ) <-> ( ( R unitVec I ) ` i ) = ( j e. I |-> ( R gsumg ( k e. I |-> ( ( n ` k ) ( .r ` R ) ( k M j ) ) ) ) ) ) )
193	192	rexbidv 3052	. . . . . . . . 9 |- ( ( M Fn ( I X. I ) /\ I e. Fin ) -> ( E. n e. ( ( Base ` R ) ^m I ) ( ( R unitVec I ) ` i ) = ( j e. I |-> ( R gsumg ( k e. I |-> ( ( n ` k ) ( .r ` R ) ( (curry M ` k ) ` j ) ) ) ) ) <-> E. n e. ( ( Base ` R ) ^m I ) ( ( R unitVec I ) ` i ) = ( j e. I |-> ( R gsumg ( k e. I |-> ( ( n ` k ) ( .r ` R ) ( k M j ) ) ) ) ) ) )
194	193	ralbidv 2986	. . . . . . . 8 |- ( ( M Fn ( I X. I ) /\ I e. Fin ) -> ( A. i e. I E. n e. ( ( Base ` R ) ^m I ) ( ( R unitVec I ) ` i ) = ( j e. I |-> ( R gsumg ( k e. I |-> ( ( n ` k ) ( .r ` R ) ( (curry M ` k ) ` j ) ) ) ) ) <-> A. i e. I E. n e. ( ( Base ` R ) ^m I ) ( ( R unitVec I ) ` i ) = ( j e. I |-> ( R gsumg ( k e. I |-> ( ( n ` k ) ( .r ` R ) ( k M j ) ) ) ) ) ) )
195	179, 180, 194	syl2anc 693	. . . . . . 7 |- ( ( R e. DivRing /\ M e. ( Base ` ( I Mat R ) ) ) -> ( A. i e. I E. n e. ( ( Base ` R ) ^m I ) ( ( R unitVec I ) ` i ) = ( j e. I |-> ( R gsumg ( k e. I |-> ( ( n ` k ) ( .r ` R ) ( (curry M ` k ) ` j ) ) ) ) ) <-> A. i e. I E. n e. ( ( Base ` R ) ^m I ) ( ( R unitVec I ) ` i ) = ( j e. I |-> ( R gsumg ( k e. I |-> ( ( n ` k ) ( .r ` R ) ( k M j ) ) ) ) ) ) )
196	195	ad2antrr 762	. . . . . 6 |- ( ( ( ( R e. DivRing /\ M e. ( Base ` ( I Mat R ) ) ) /\ I =/= (/) ) /\ curry M LIndF ( R freeLMod I ) ) -> ( A. i e. I E. n e. ( ( Base ` R ) ^m I ) ( ( R unitVec I ) ` i ) = ( j e. I |-> ( R gsumg ( k e. I |-> ( ( n ` k ) ( .r ` R ) ( (curry M ` k ) ` j ) ) ) ) ) <-> A. i e. I E. n e. ( ( Base ` R ) ^m I ) ( ( R unitVec I ) ` i ) = ( j e. I |-> ( R gsumg ( k e. I |-> ( ( n ` k ) ( .r ` R ) ( k M j ) ) ) ) ) ) )
197	176, 196	mpbid 222	. . . . 5 |- ( ( ( ( R e. DivRing /\ M e. ( Base ` ( I Mat R ) ) ) /\ I =/= (/) ) /\ curry M LIndF ( R freeLMod I ) ) -> A. i e. I E. n e. ( ( Base ` R ) ^m I ) ( ( R unitVec I ) ` i ) = ( j e. I |-> ( R gsumg ( k e. I |-> ( ( n ` k ) ( .r ` R ) ( k M j ) ) ) ) ) )
198	8, 197	sylanl1 682	. . . 4 |- ( ( ( ( R e. Field /\ M e. ( Base ` ( I Mat R ) ) ) /\ I =/= (/) ) /\ curry M LIndF ( R freeLMod I ) ) -> A. i e. I E. n e. ( ( Base ` R ) ^m I ) ( ( R unitVec I ) ` i ) = ( j e. I |-> ( R gsumg ( k e. I |-> ( ( n ` k ) ( .r ` R ) ( k M j ) ) ) ) ) )
199		fveq1 6190	. . . . . . . . . . 11 |- ( n = ( f ` i ) -> ( n ` k ) = ( ( f ` i ) ` k ) )
200		vex 3203	. . . . . . . . . . . 12 |- i e. _V
201		vex 3203	. . . . . . . . . . . 12 |- k e. _V
202		uncov 33390	. . . . . . . . . . . 12 |- ( ( i e. _V /\ k e. _V ) -> ( iuncurry f k ) = ( ( f ` i ) ` k ) )
203	200, 201, 202	mp2an 708	. . . . . . . . . . 11 |- ( iuncurry f k ) = ( ( f ` i ) ` k )
204	199, 203	syl6eqr 2674	. . . . . . . . . 10 |- ( n = ( f ` i ) -> ( n ` k ) = ( iuncurry f k ) )
205	204	oveq1d 6665	. . . . . . . . 9 |- ( n = ( f ` i ) -> ( ( n ` k ) ( .r ` R ) ( k M j ) ) = ( ( iuncurry f k ) ( .r ` R ) ( k M j ) ) )
206	205	mpteq2dv 4745	. . . . . . . 8 |- ( n = ( f ` i ) -> ( k e. I |-> ( ( n ` k ) ( .r ` R ) ( k M j ) ) ) = ( k e. I |-> ( ( iuncurry f k ) ( .r ` R ) ( k M j ) ) ) )
207	206	oveq2d 6666	. . . . . . 7 |- ( n = ( f ` i ) -> ( R gsumg ( k e. I |-> ( ( n ` k ) ( .r ` R ) ( k M j ) ) ) ) = ( R gsumg ( k e. I |-> ( ( iuncurry f k ) ( .r ` R ) ( k M j ) ) ) ) )
208	207	mpteq2dv 4745	. . . . . 6 |- ( n = ( f ` i ) -> ( j e. I |-> ( R gsumg ( k e. I |-> ( ( n ` k ) ( .r ` R ) ( k M j ) ) ) ) ) = ( j e. I |-> ( R gsumg ( k e. I |-> ( ( iuncurry f k ) ( .r ` R ) ( k M j ) ) ) ) ) )
209	208	eqeq2d 2632	. . . . 5 |- ( n = ( f ` i ) -> ( ( ( R unitVec I ) ` i ) = ( j e. I |-> ( R gsumg ( k e. I |-> ( ( n ` k ) ( .r ` R ) ( k M j ) ) ) ) ) <-> ( ( R unitVec I ) ` i ) = ( j e. I |-> ( R gsumg ( k e. I |-> ( ( iuncurry f k ) ( .r ` R ) ( k M j ) ) ) ) ) ) )
210	209	ac6sfi 8204	. . . 4 |- ( ( I e. Fin /\ A. i e. I E. n e. ( ( Base ` R ) ^m I ) ( ( R unitVec I ) ` i ) = ( j e. I |-> ( R gsumg ( k e. I |-> ( ( n ` k ) ( .r ` R ) ( k M j ) ) ) ) ) ) -> E. f ( f : I --> ( ( Base ` R ) ^m I ) /\ A. i e. I ( ( R unitVec I ) ` i ) = ( j e. I |-> ( R gsumg ( k e. I |-> ( ( iuncurry f k ) ( .r ` R ) ( k M j ) ) ) ) ) ) )
211	5, 198, 210	syl2anc 693	. . 3 |- ( ( ( ( R e. Field /\ M e. ( Base ` ( I Mat R ) ) ) /\ I =/= (/) ) /\ curry M LIndF ( R freeLMod I ) ) -> E. f ( f : I --> ( ( Base ` R ) ^m I ) /\ A. i e. I ( ( R unitVec I ) ` i ) = ( j e. I |-> ( R gsumg ( k e. I |-> ( ( iuncurry f k ) ( .r ` R ) ( k M j ) ) ) ) ) ) )
212		uncf 33388	. . . . . . 7 |- ( f : I --> ( ( Base ` R ) ^m I ) -> uncurry f : ( I X. I ) --> ( Base ` R ) )
213	13, 14	frlmfibas 20105	. . . . . . . . . . . . . . . 16 |- ( ( R e. Field /\ ( I X. I ) e. Fin ) -> ( ( Base ` R ) ^m ( I X. I ) ) = ( Base ` ( R freeLMod ( I X. I ) ) ) )
214	12, 213	sylan2 491	. . . . . . . . . . . . . . 15 |- ( ( R e. Field /\ I e. Fin ) -> ( ( Base ` R ) ^m ( I X. I ) ) = ( Base ` ( R freeLMod ( I X. I ) ) ) )
215	1, 13	matbas 20219	. . . . . . . . . . . . . . . 16 |- ( ( I e. Fin /\ R e. Field ) -> ( Base ` ( R freeLMod ( I X. I ) ) ) = ( Base ` ( I Mat R ) ) )
216	215	ancoms 469	. . . . . . . . . . . . . . 15 |- ( ( R e. Field /\ I e. Fin ) -> ( Base ` ( R freeLMod ( I X. I ) ) ) = ( Base ` ( I Mat R ) ) )
217	214, 216	eqtrd 2656	. . . . . . . . . . . . . 14 |- ( ( R e. Field /\ I e. Fin ) -> ( ( Base ` R ) ^m ( I X. I ) ) = ( Base ` ( I Mat R ) ) )
218	4, 217	sylan2 491	. . . . . . . . . . . . 13 |- ( ( R e. Field /\ M e. ( Base ` ( I Mat R ) ) ) -> ( ( Base ` R ) ^m ( I X. I ) ) = ( Base ` ( I Mat R ) ) )
219	218	eleq2d 2687	. . . . . . . . . . . 12 |- ( ( R e. Field /\ M e. ( Base ` ( I Mat R ) ) ) -> (uncurry f e. ( ( Base ` R ) ^m ( I X. I ) ) <-> uncurry f e. ( Base ` ( I Mat R ) ) ) )
220		elmapg 7870	. . . . . . . . . . . . . 14 |- ( ( ( Base ` R ) e. _V /\ ( I X. I ) e. Fin ) -> (uncurry f e. ( ( Base ` R ) ^m ( I X. I ) ) <-> uncurry f : ( I X. I ) --> ( Base ` R ) ) )
221	22, 23, 220	sylancr 695	. . . . . . . . . . . . 13 |- ( M e. ( Base ` ( I Mat R ) ) -> (uncurry f e. ( ( Base ` R ) ^m ( I X. I ) ) <-> uncurry f : ( I X. I ) --> ( Base ` R ) ) )
222	221	adantl 482	. . . . . . . . . . . 12 |- ( ( R e. Field /\ M e. ( Base ` ( I Mat R ) ) ) -> (uncurry f e. ( ( Base ` R ) ^m ( I X. I ) ) <-> uncurry f : ( I X. I ) --> ( Base ` R ) ) )
223	219, 222	bitr3d 270	. . . . . . . . . . 11 |- ( ( R e. Field /\ M e. ( Base ` ( I Mat R ) ) ) -> (uncurry f e. ( Base ` ( I Mat R ) ) <-> uncurry f : ( I X. I ) --> ( Base ` R ) ) )
224	223	biimpar 502	. . . . . . . . . 10 |- ( ( ( R e. Field /\ M e. ( Base ` ( I Mat R ) ) ) /\ uncurry f : ( I X. I ) --> ( Base ` R ) ) -> uncurry f e. ( Base ` ( I Mat R ) ) )
225	224	adantr 481	. . . . . . . . 9 |- ( ( ( ( R e. Field /\ M e. ( Base ` ( I Mat R ) ) ) /\ uncurry f : ( I X. I ) --> ( Base ` R ) ) /\ A. i e. I ( ( R unitVec I ) ` i ) = ( j e. I |-> ( R gsumg ( k e. I |-> ( ( iuncurry f k ) ( .r ` R ) ( k M j ) ) ) ) ) ) -> uncurry f e. ( Base ` ( I Mat R ) ) )
226		nfv 1843	. . . . . . . . . . . . . 14 |- F/ j ( ( ( R e. Field /\ M e. ( Base ` ( I Mat R ) ) ) /\ uncurry f : ( I X. I ) --> ( Base ` R ) ) /\ i e. I )
227		nfmpt1 4747	. . . . . . . . . . . . . . 15 |- F/_ j ( j e. I |-> ( R gsumg ( k e. I |-> ( ( iuncurry f k ) ( .r ` R ) ( k M j ) ) ) ) )
228	227	nfeq2 2780	. . . . . . . . . . . . . 14 |- F/ j ( ( R unitVec I ) ` i ) = ( j e. I |-> ( R gsumg ( k e. I |-> ( ( iuncurry f k ) ( .r ` R ) ( k M j ) ) ) ) )
229		fveq1 6190	. . . . . . . . . . . . . . . . 17 |- ( ( ( R unitVec I ) ` i ) = ( j e. I |-> ( R gsumg ( k e. I |-> ( ( iuncurry f k ) ( .r ` R ) ( k M j ) ) ) ) ) -> ( ( ( R unitVec I ) ` i ) ` j ) = ( ( j e. I |-> ( R gsumg ( k e. I |-> ( ( iuncurry f k ) ( .r ` R ) ( k M j ) ) ) ) ) ` j ) )
230	7, 43	syl 17	. . . . . . . . . . . . . . . . . . . . 21 |- ( R e. Field -> R e. Ring )
231	230, 4	anim12i 590	. . . . . . . . . . . . . . . . . . . 20 |- ( ( R e. Field /\ M e. ( Base ` ( I Mat R ) ) ) -> ( R e. Ring /\ I e. Fin ) )
232	231	adantr 481	. . . . . . . . . . . . . . . . . . 19 |- ( ( ( R e. Field /\ M e. ( Base ` ( I Mat R ) ) ) /\ uncurry f : ( I X. I ) --> ( Base ` R ) ) -> ( R e. Ring /\ I e. Fin ) )
233		equcom 1945	. . . . . . . . . . . . . . . . . . . . 21 |- ( i = j <-> j = i )
234		ifbi 4107	. . . . . . . . . . . . . . . . . . . . 21 |- ( ( i = j <-> j = i ) -> if ( i = j , ( 1r ` R ) , ( 0g ` R ) ) = if ( j = i , ( 1r ` R ) , ( 0g ` R ) ) )
235	233, 234	ax-mp 5	. . . . . . . . . . . . . . . . . . . 20 |- if ( i = j , ( 1r ` R ) , ( 0g ` R ) ) = if ( j = i , ( 1r ` R ) , ( 0g ` R ) )
236		eqid 2622	. . . . . . . . . . . . . . . . . . . . 21 |- ( 1r ` R ) = ( 1r ` R )
237		eqid 2622	. . . . . . . . . . . . . . . . . . . . 21 |- ( 0g ` R ) = ( 0g ` R )
238		simpllr 799	. . . . . . . . . . . . . . . . . . . . 21 |- ( ( ( ( R e. Ring /\ I e. Fin ) /\ i e. I ) /\ j e. I ) -> I e. Fin )
239		simplll 798	. . . . . . . . . . . . . . . . . . . . 21 |- ( ( ( ( R e. Ring /\ I e. Fin ) /\ i e. I ) /\ j e. I ) -> R e. Ring )
240		simplr 792	. . . . . . . . . . . . . . . . . . . . 21 |- ( ( ( ( R e. Ring /\ I e. Fin ) /\ i e. I ) /\ j e. I ) -> i e. I )
241		simpr 477	. . . . . . . . . . . . . . . . . . . . 21 |- ( ( ( ( R e. Ring /\ I e. Fin ) /\ i e. I ) /\ j e. I ) -> j e. I )
242		eqid 2622	. . . . . . . . . . . . . . . . . . . . 21 |- ( 1r ` ( I Mat R ) ) = ( 1r ` ( I Mat R ) )
243	1, 236, 237, 238, 239, 240, 241, 242	mat1ov 20254	. . . . . . . . . . . . . . . . . . . 20 |- ( ( ( ( R e. Ring /\ I e. Fin ) /\ i e. I ) /\ j e. I ) -> ( i ( 1r ` ( I Mat R ) ) j ) = if ( i = j , ( 1r ` R ) , ( 0g ` R ) ) )
244		df-3an 1039	. . . . . . . . . . . . . . . . . . . . 21 |- ( ( R e. Ring /\ I e. Fin /\ i e. I ) <-> ( ( R e. Ring /\ I e. Fin ) /\ i e. I ) )
245	44, 236, 237	uvcvval 20125	. . . . . . . . . . . . . . . . . . . . 21 |- ( ( ( R e. Ring /\ I e. Fin /\ i e. I ) /\ j e. I ) -> ( ( ( R unitVec I ) ` i ) ` j ) = if ( j = i , ( 1r ` R ) , ( 0g ` R ) ) )
246	244, 245	sylanbr 490	. . . . . . . . . . . . . . . . . . . 20 |- ( ( ( ( R e. Ring /\ I e. Fin ) /\ i e. I ) /\ j e. I ) -> ( ( ( R unitVec I ) ` i ) ` j ) = if ( j = i , ( 1r ` R ) , ( 0g ` R ) ) )
247	235, 243, 246	3eqtr4a 2682	. . . . . . . . . . . . . . . . . . 19 |- ( ( ( ( R e. Ring /\ I e. Fin ) /\ i e. I ) /\ j e. I ) -> ( i ( 1r ` ( I Mat R ) ) j ) = ( ( ( R unitVec I ) ` i ) ` j ) )
248	232, 247	sylanl1 682	. . . . . . . . . . . . . . . . . 18 |- ( ( ( ( ( R e. Field /\ M e. ( Base ` ( I Mat R ) ) ) /\ uncurry f : ( I X. I ) --> ( Base ` R ) ) /\ i e. I ) /\ j e. I ) -> ( i ( 1r ` ( I Mat R ) ) j ) = ( ( ( R unitVec I ) ` i ) ` j ) )
249		ovex 6678	. . . . . . . . . . . . . . . . . . . . 21 |- ( R gsumg ( k e. I |-> ( ( iuncurry f k ) ( .r ` R ) ( k M j ) ) ) ) e. _V
250		eqid 2622	. . . . . . . . . . . . . . . . . . . . . 22 |- ( j e. I |-> ( R gsumg ( k e. I |-> ( ( iuncurry f k ) ( .r ` R ) ( k M j ) ) ) ) ) = ( j e. I |-> ( R gsumg ( k e. I |-> ( ( iuncurry f k ) ( .r ` R ) ( k M j ) ) ) ) )
251	250	fvmpt2 6291	. . . . . . . . . . . . . . . . . . . . 21 |- ( ( j e. I /\ ( R gsumg ( k e. I |-> ( ( iuncurry f k ) ( .r ` R ) ( k M j ) ) ) ) e. _V ) -> ( ( j e. I |-> ( R gsumg ( k e. I |-> ( ( iuncurry f k ) ( .r ` R ) ( k M j ) ) ) ) ) ` j ) = ( R gsumg ( k e. I |-> ( ( iuncurry f k ) ( .r ` R ) ( k M j ) ) ) ) )
252	249, 251	mpan2 707	. . . . . . . . . . . . . . . . . . . 20 |- ( j e. I -> ( ( j e. I |-> ( R gsumg ( k e. I |-> ( ( iuncurry f k ) ( .r ` R ) ( k M j ) ) ) ) ) ` j ) = ( R gsumg ( k e. I |-> ( ( iuncurry f k ) ( .r ` R ) ( k M j ) ) ) ) )
253	252	adantl 482	. . . . . . . . . . . . . . . . . . 19 |- ( ( ( ( ( R e. Field /\ M e. ( Base ` ( I Mat R ) ) ) /\ uncurry f : ( I X. I ) --> ( Base ` R ) ) /\ i e. I ) /\ j e. I ) -> ( ( j e. I |-> ( R gsumg ( k e. I |-> ( ( iuncurry f k ) ( .r ` R ) ( k M j ) ) ) ) ) ` j ) = ( R gsumg ( k e. I |-> ( ( iuncurry f k ) ( .r ` R ) ( k M j ) ) ) ) )
254		eqid 2622	. . . . . . . . . . . . . . . . . . . 20 |- ( R maMul <. I , I , I >. ) = ( R maMul <. I , I , I >. )
255		simp-4l 806	. . . . . . . . . . . . . . . . . . . 20 |- ( ( ( ( ( R e. Field /\ M e. ( Base ` ( I Mat R ) ) ) /\ uncurry f : ( I X. I ) --> ( Base ` R ) ) /\ i e. I ) /\ j e. I ) -> R e. Field )
256	4	ad4antlr 769	. . . . . . . . . . . . . . . . . . . 20 |- ( ( ( ( ( R e. Field /\ M e. ( Base ` ( I Mat R ) ) ) /\ uncurry f : ( I X. I ) --> ( Base ` R ) ) /\ i e. I ) /\ j e. I ) -> I e. Fin )
257	221	biimpar 502	. . . . . . . . . . . . . . . . . . . . 21 |- ( ( M e. ( Base ` ( I Mat R ) ) /\ uncurry f : ( I X. I ) --> ( Base ` R ) ) -> uncurry f e. ( ( Base ` R ) ^m ( I X. I ) ) )
258	257	ad5ant23 1304	. . . . . . . . . . . . . . . . . . . 20 |- ( ( ( ( ( R e. Field /\ M e. ( Base ` ( I Mat R ) ) ) /\ uncurry f : ( I X. I ) --> ( Base ` R ) ) /\ i e. I ) /\ j e. I ) -> uncurry f e. ( ( Base ` R ) ^m ( I X. I ) ) )
259		simpr 477	. . . . . . . . . . . . . . . . . . . . . 22 |- ( ( R e. Field /\ M e. ( Base ` ( I Mat R ) ) ) -> M e. ( Base ` ( I Mat R ) ) )
260	259, 218	eleqtrrd 2704	. . . . . . . . . . . . . . . . . . . . 21 |- ( ( R e. Field /\ M e. ( Base ` ( I Mat R ) ) ) -> M e. ( ( Base ` R ) ^m ( I X. I ) ) )
261	260	ad3antrrr 766	. . . . . . . . . . . . . . . . . . . 20 |- ( ( ( ( ( R e. Field /\ M e. ( Base ` ( I Mat R ) ) ) /\ uncurry f : ( I X. I ) --> ( Base ` R ) ) /\ i e. I ) /\ j e. I ) -> M e. ( ( Base ` R ) ^m ( I X. I ) ) )
262		simplr 792	. . . . . . . . . . . . . . . . . . . 20 |- ( ( ( ( ( R e. Field /\ M e. ( Base ` ( I Mat R ) ) ) /\ uncurry f : ( I X. I ) --> ( Base ` R ) ) /\ i e. I ) /\ j e. I ) -> i e. I )
263		simpr 477	. . . . . . . . . . . . . . . . . . . 20 |- ( ( ( ( ( R e. Field /\ M e. ( Base ` ( I Mat R ) ) ) /\ uncurry f : ( I X. I ) --> ( Base ` R ) ) /\ i e. I ) /\ j e. I ) -> j e. I )
264	254, 14, 121, 255, 256, 256, 256, 258, 261, 262, 263	mamufv 20193	. . . . . . . . . . . . . . . . . . 19 |- ( ( ( ( ( R e. Field /\ M e. ( Base ` ( I Mat R ) ) ) /\ uncurry f : ( I X. I ) --> ( Base ` R ) ) /\ i e. I ) /\ j e. I ) -> ( i (uncurry f ( R maMul <. I , I , I >. ) M ) j ) = ( R gsumg ( k e. I |-> ( ( iuncurry f k ) ( .r ` R ) ( k M j ) ) ) ) )
265	1, 254	matmulr 20244	. . . . . . . . . . . . . . . . . . . . . . . 24 |- ( ( I e. Fin /\ R e. Field ) -> ( R maMul <. I , I , I >. ) = ( .r ` ( I Mat R ) ) )
266	265	ancoms 469	. . . . . . . . . . . . . . . . . . . . . . 23 |- ( ( R e. Field /\ I e. Fin ) -> ( R maMul <. I , I , I >. ) = ( .r ` ( I Mat R ) ) )
267	266	oveqd 6667	. . . . . . . . . . . . . . . . . . . . . 22 |- ( ( R e. Field /\ I e. Fin ) -> (uncurry f ( R maMul <. I , I , I >. ) M ) = (uncurry f ( .r ` ( I Mat R ) ) M ) )
268	267	oveqd 6667	. . . . . . . . . . . . . . . . . . . . 21 |- ( ( R e. Field /\ I e. Fin ) -> ( i (uncurry f ( R maMul <. I , I , I >. ) M ) j ) = ( i (uncurry f ( .r ` ( I Mat R ) ) M ) j ) )
269	4, 268	sylan2 491	. . . . . . . . . . . . . . . . . . . 20 |- ( ( R e. Field /\ M e. ( Base ` ( I Mat R ) ) ) -> ( i (uncurry f ( R maMul <. I , I , I >. ) M ) j ) = ( i (uncurry f ( .r ` ( I Mat R ) ) M ) j ) )
270	269	ad3antrrr 766	. . . . . . . . . . . . . . . . . . 19 |- ( ( ( ( ( R e. Field /\ M e. ( Base ` ( I Mat R ) ) ) /\ uncurry f : ( I X. I ) --> ( Base ` R ) ) /\ i e. I ) /\ j e. I ) -> ( i (uncurry f ( R maMul <. I , I , I >. ) M ) j ) = ( i (uncurry f ( .r ` ( I Mat R ) ) M ) j ) )
271	253, 264, 270	3eqtr2rd 2663	. . . . . . . . . . . . . . . . . 18 |- ( ( ( ( ( R e. Field /\ M e. ( Base ` ( I Mat R ) ) ) /\ uncurry f : ( I X. I ) --> ( Base ` R ) ) /\ i e. I ) /\ j e. I ) -> ( i (uncurry f ( .r ` ( I Mat R ) ) M ) j ) = ( ( j e. I |-> ( R gsumg ( k e. I |-> ( ( iuncurry f k ) ( .r ` R ) ( k M j ) ) ) ) ) ` j ) )
272	248, 271	eqeq12d 2637	. . . . . . . . . . . . . . . . 17 |- ( ( ( ( ( R e. Field /\ M e. ( Base ` ( I Mat R ) ) ) /\ uncurry f : ( I X. I ) --> ( Base ` R ) ) /\ i e. I ) /\ j e. I ) -> ( ( i ( 1r ` ( I Mat R ) ) j ) = ( i (uncurry f ( .r ` ( I Mat R ) ) M ) j ) <-> ( ( ( R unitVec I ) ` i ) ` j ) = ( ( j e. I |-> ( R gsumg ( k e. I |-> ( ( iuncurry f k ) ( .r ` R ) ( k M j ) ) ) ) ) ` j ) ) )
273	229, 272	syl5ibr 236	. . . . . . . . . . . . . . . 16 |- ( ( ( ( ( R e. Field /\ M e. ( Base ` ( I Mat R ) ) ) /\ uncurry f : ( I X. I ) --> ( Base ` R ) ) /\ i e. I ) /\ j e. I ) -> ( ( ( R unitVec I ) ` i ) = ( j e. I |-> ( R gsumg ( k e. I |-> ( ( iuncurry f k ) ( .r ` R ) ( k M j ) ) ) ) ) -> ( i ( 1r ` ( I Mat R ) ) j ) = ( i (uncurry f ( .r ` ( I Mat R ) ) M ) j ) ) )
274	273	ex 450	. . . . . . . . . . . . . . 15 |- ( ( ( ( R e. Field /\ M e. ( Base ` ( I Mat R ) ) ) /\ uncurry f : ( I X. I ) --> ( Base ` R ) ) /\ i e. I ) -> ( j e. I -> ( ( ( R unitVec I ) ` i ) = ( j e. I |-> ( R gsumg ( k e. I |-> ( ( iuncurry f k ) ( .r ` R ) ( k M j ) ) ) ) ) -> ( i ( 1r ` ( I Mat R ) ) j ) = ( i (uncurry f ( .r ` ( I Mat R ) ) M ) j ) ) ) )
275	274	com23 86	. . . . . . . . . . . . . 14 |- ( ( ( ( R e. Field /\ M e. ( Base ` ( I Mat R ) ) ) /\ uncurry f : ( I X. I ) --> ( Base ` R ) ) /\ i e. I ) -> ( ( ( R unitVec I ) ` i ) = ( j e. I |-> ( R gsumg ( k e. I |-> ( ( iuncurry f k ) ( .r ` R ) ( k M j ) ) ) ) ) -> ( j e. I -> ( i ( 1r ` ( I Mat R ) ) j ) = ( i (uncurry f ( .r ` ( I Mat R ) ) M ) j ) ) ) )
276	226, 228, 275	ralrimd 2959	. . . . . . . . . . . . 13 |- ( ( ( ( R e. Field /\ M e. ( Base ` ( I Mat R ) ) ) /\ uncurry f : ( I X. I ) --> ( Base ` R ) ) /\ i e. I ) -> ( ( ( R unitVec I ) ` i ) = ( j e. I |-> ( R gsumg ( k e. I |-> ( ( iuncurry f k ) ( .r ` R ) ( k M j ) ) ) ) ) -> A. j e. I ( i ( 1r ` ( I Mat R ) ) j ) = ( i (uncurry f ( .r ` ( I Mat R ) ) M ) j ) ) )
277	276	ralimdva 2962	. . . . . . . . . . . 12 |- ( ( ( R e. Field /\ M e. ( Base ` ( I Mat R ) ) ) /\ uncurry f : ( I X. I ) --> ( Base ` R ) ) -> ( A. i e. I ( ( R unitVec I ) ` i ) = ( j e. I |-> ( R gsumg ( k e. I |-> ( ( iuncurry f k ) ( .r ` R ) ( k M j ) ) ) ) ) -> A. i e. I A. j e. I ( i ( 1r ` ( I Mat R ) ) j ) = ( i (uncurry f ( .r ` ( I Mat R ) ) M ) j ) ) )
278	1, 2, 242	mat1bas 20255	. . . . . . . . . . . . . . . . 17 |- ( ( R e. Ring /\ I e. Fin ) -> ( 1r ` ( I Mat R ) ) e. ( Base ` ( I Mat R ) ) )
279	13, 14	frlmfibas 20105	. . . . . . . . . . . . . . . . . . 19 |- ( ( R e. Ring /\ ( I X. I ) e. Fin ) -> ( ( Base ` R ) ^m ( I X. I ) ) = ( Base ` ( R freeLMod ( I X. I ) ) ) )
280	12, 279	sylan2 491	. . . . . . . . . . . . . . . . . 18 |- ( ( R e. Ring /\ I e. Fin ) -> ( ( Base ` R ) ^m ( I X. I ) ) = ( Base ` ( R freeLMod ( I X. I ) ) ) )
281	1, 13	matbas 20219	. . . . . . . . . . . . . . . . . . 19 |- ( ( I e. Fin /\ R e. Ring ) -> ( Base ` ( R freeLMod ( I X. I ) ) ) = ( Base ` ( I Mat R ) ) )
282	281	ancoms 469	. . . . . . . . . . . . . . . . . 18 |- ( ( R e. Ring /\ I e. Fin ) -> ( Base ` ( R freeLMod ( I X. I ) ) ) = ( Base ` ( I Mat R ) ) )
283	280, 282	eqtrd 2656	. . . . . . . . . . . . . . . . 17 |- ( ( R e. Ring /\ I e. Fin ) -> ( ( Base ` R ) ^m ( I X. I ) ) = ( Base ` ( I Mat R ) ) )
284	278, 283	eleqtrrd 2704	. . . . . . . . . . . . . . . 16 |- ( ( R e. Ring /\ I e. Fin ) -> ( 1r ` ( I Mat R ) ) e. ( ( Base ` R ) ^m ( I X. I ) ) )
285		elmapfn 7880	. . . . . . . . . . . . . . . 16 |- ( ( 1r ` ( I Mat R ) ) e. ( ( Base ` R ) ^m ( I X. I ) ) -> ( 1r ` ( I Mat R ) ) Fn ( I X. I ) )
286	284, 285	syl 17	. . . . . . . . . . . . . . 15 |- ( ( R e. Ring /\ I e. Fin ) -> ( 1r ` ( I Mat R ) ) Fn ( I X. I ) )
287	230, 4, 286	syl2an 494	. . . . . . . . . . . . . 14 |- ( ( R e. Field /\ M e. ( Base ` ( I Mat R ) ) ) -> ( 1r ` ( I Mat R ) ) Fn ( I X. I ) )
288	287	adantr 481	. . . . . . . . . . . . 13 |- ( ( ( R e. Field /\ M e. ( Base ` ( I Mat R ) ) ) /\ uncurry f : ( I X. I ) --> ( Base ` R ) ) -> ( 1r ` ( I Mat R ) ) Fn ( I X. I ) )
289	1	matring 20249	. . . . . . . . . . . . . . . . . 18 |- ( ( I e. Fin /\ R e. Ring ) -> ( I Mat R ) e. Ring )
290	4, 230, 289	syl2anr 495	. . . . . . . . . . . . . . . . 17 |- ( ( R e. Field /\ M e. ( Base ` ( I Mat R ) ) ) -> ( I Mat R ) e. Ring )
291	290	adantr 481	. . . . . . . . . . . . . . . 16 |- ( ( ( R e. Field /\ M e. ( Base ` ( I Mat R ) ) ) /\ uncurry f : ( I X. I ) --> ( Base ` R ) ) -> ( I Mat R ) e. Ring )
292		simplr 792	. . . . . . . . . . . . . . . 16 |- ( ( ( R e. Field /\ M e. ( Base ` ( I Mat R ) ) ) /\ uncurry f : ( I X. I ) --> ( Base ` R ) ) -> M e. ( Base ` ( I Mat R ) ) )
293		eqid 2622	. . . . . . . . . . . . . . . . 17 |- ( .r ` ( I Mat R ) ) = ( .r ` ( I Mat R ) )
294	2, 293	ringcl 18561	. . . . . . . . . . . . . . . 16 |- ( ( ( I Mat R ) e. Ring /\ uncurry f e. ( Base ` ( I Mat R ) ) /\ M e. ( Base ` ( I Mat R ) ) ) -> (uncurry f ( .r ` ( I Mat R ) ) M ) e. ( Base ` ( I Mat R ) ) )
295	291, 224, 292, 294	syl3anc 1326	. . . . . . . . . . . . . . 15 |- ( ( ( R e. Field /\ M e. ( Base ` ( I Mat R ) ) ) /\ uncurry f : ( I X. I ) --> ( Base ` R ) ) -> (uncurry f ( .r ` ( I Mat R ) ) M ) e. ( Base ` ( I Mat R ) ) )
296	218	adantr 481	. . . . . . . . . . . . . . 15 |- ( ( ( R e. Field /\ M e. ( Base ` ( I Mat R ) ) ) /\ uncurry f : ( I X. I ) --> ( Base ` R ) ) -> ( ( Base ` R ) ^m ( I X. I ) ) = ( Base ` ( I Mat R ) ) )
297	295, 296	eleqtrrd 2704	. . . . . . . . . . . . . 14 |- ( ( ( R e. Field /\ M e. ( Base ` ( I Mat R ) ) ) /\ uncurry f : ( I X. I ) --> ( Base ` R ) ) -> (uncurry f ( .r ` ( I Mat R ) ) M ) e. ( ( Base ` R ) ^m ( I X. I ) ) )
298		elmapfn 7880	. . . . . . . . . . . . . 14 |- ( (uncurry f ( .r ` ( I Mat R ) ) M ) e. ( ( Base ` R ) ^m ( I X. I ) ) -> (uncurry f ( .r ` ( I Mat R ) ) M ) Fn ( I X. I ) )
299	297, 298	syl 17	. . . . . . . . . . . . 13 |- ( ( ( R e. Field /\ M e. ( Base ` ( I Mat R ) ) ) /\ uncurry f : ( I X. I ) --> ( Base ` R ) ) -> (uncurry f ( .r ` ( I Mat R ) ) M ) Fn ( I X. I ) )
300		eqfnov2 6767	. . . . . . . . . . . . 13 |- ( ( ( 1r ` ( I Mat R ) ) Fn ( I X. I ) /\ (uncurry f ( .r ` ( I Mat R ) ) M ) Fn ( I X. I ) ) -> ( ( 1r ` ( I Mat R ) ) = (uncurry f ( .r ` ( I Mat R ) ) M ) <-> A. i e. I A. j e. I ( i ( 1r ` ( I Mat R ) ) j ) = ( i (uncurry f ( .r ` ( I Mat R ) ) M ) j ) ) )
301	288, 299, 300	syl2anc 693	. . . . . . . . . . . 12 |- ( ( ( R e. Field /\ M e. ( Base ` ( I Mat R ) ) ) /\ uncurry f : ( I X. I ) --> ( Base ` R ) ) -> ( ( 1r ` ( I Mat R ) ) = (uncurry f ( .r ` ( I Mat R ) ) M ) <-> A. i e. I A. j e. I ( i ( 1r ` ( I Mat R ) ) j ) = ( i (uncurry f ( .r ` ( I Mat R ) ) M ) j ) ) )
302	277, 301	sylibrd 249	. . . . . . . . . . 11 |- ( ( ( R e. Field /\ M e. ( Base ` ( I Mat R ) ) ) /\ uncurry f : ( I X. I ) --> ( Base ` R ) ) -> ( A. i e. I ( ( R unitVec I ) ` i ) = ( j e. I |-> ( R gsumg ( k e. I |-> ( ( iuncurry f k ) ( .r ` R ) ( k M j ) ) ) ) ) -> ( 1r ` ( I Mat R ) ) = (uncurry f ( .r ` ( I Mat R ) ) M ) ) )
303	302	imp 445	. . . . . . . . . 10 |- ( ( ( ( R e. Field /\ M e. ( Base ` ( I Mat R ) ) ) /\ uncurry f : ( I X. I ) --> ( Base ` R ) ) /\ A. i e. I ( ( R unitVec I ) ` i ) = ( j e. I |-> ( R gsumg ( k e. I |-> ( ( iuncurry f k ) ( .r ` R ) ( k M j ) ) ) ) ) ) -> ( 1r ` ( I Mat R ) ) = (uncurry f ( .r ` ( I Mat R ) ) M ) )
304	303	eqcomd 2628	. . . . . . . . 9 |- ( ( ( ( R e. Field /\ M e. ( Base ` ( I Mat R ) ) ) /\ uncurry f : ( I X. I ) --> ( Base ` R ) ) /\ A. i e. I ( ( R unitVec I ) ` i ) = ( j e. I |-> ( R gsumg ( k e. I |-> ( ( iuncurry f k ) ( .r ` R ) ( k M j ) ) ) ) ) ) -> (uncurry f ( .r ` ( I Mat R ) ) M ) = ( 1r ` ( I Mat R ) ) )
305		oveq1 6657	. . . . . . . . . . 11 |- ( n = uncurry f -> ( n ( .r ` ( I Mat R ) ) M ) = (uncurry f ( .r ` ( I Mat R ) ) M ) )
306	305	eqeq1d 2624	. . . . . . . . . 10 |- ( n = uncurry f -> ( ( n ( .r ` ( I Mat R ) ) M ) = ( 1r ` ( I Mat R ) ) <-> (uncurry f ( .r ` ( I Mat R ) ) M ) = ( 1r ` ( I Mat R ) ) ) )
307	306	rspcev 3309	. . . . . . . . 9 |- ( (uncurry f e. ( Base ` ( I Mat R ) ) /\ (uncurry f ( .r ` ( I Mat R ) ) M ) = ( 1r ` ( I Mat R ) ) ) -> E. n e. ( Base ` ( I Mat R ) ) ( n ( .r ` ( I Mat R ) ) M ) = ( 1r ` ( I Mat R ) ) )
308	225, 304, 307	syl2anc 693	. . . . . . . 8 |- ( ( ( ( R e. Field /\ M e. ( Base ` ( I Mat R ) ) ) /\ uncurry f : ( I X. I ) --> ( Base ` R ) ) /\ A. i e. I ( ( R unitVec I ) ` i ) = ( j e. I |-> ( R gsumg ( k e. I |-> ( ( iuncurry f k ) ( .r ` R ) ( k M j ) ) ) ) ) ) -> E. n e. ( Base ` ( I Mat R ) ) ( n ( .r ` ( I Mat R ) ) M ) = ( 1r ` ( I Mat R ) ) )
309	308	expl 648	. . . . . . 7 |- ( ( R e. Field /\ M e. ( Base ` ( I Mat R ) ) ) -> ( (uncurry f : ( I X. I ) --> ( Base ` R ) /\ A. i e. I ( ( R unitVec I ) ` i ) = ( j e. I |-> ( R gsumg ( k e. I |-> ( ( iuncurry f k ) ( .r ` R ) ( k M j ) ) ) ) ) ) -> E. n e. ( Base ` ( I Mat R ) ) ( n ( .r ` ( I Mat R ) ) M ) = ( 1r ` ( I Mat R ) ) ) )
310	212, 309	sylani 686	. . . . . 6 |- ( ( R e. Field /\ M e. ( Base ` ( I Mat R ) ) ) -> ( ( f : I --> ( ( Base ` R ) ^m I ) /\ A. i e. I ( ( R unitVec I ) ` i ) = ( j e. I |-> ( R gsumg ( k e. I |-> ( ( iuncurry f k ) ( .r ` R ) ( k M j ) ) ) ) ) ) -> E. n e. ( Base ` ( I Mat R ) ) ( n ( .r ` ( I Mat R ) ) M ) = ( 1r ` ( I Mat R ) ) ) )
311	310	exlimdv 1861	. . . . 5 |- ( ( R e. Field /\ M e. ( Base ` ( I Mat R ) ) ) -> ( E. f ( f : I --> ( ( Base ` R ) ^m I ) /\ A. i e. I ( ( R unitVec I ) ` i ) = ( j e. I |-> ( R gsumg ( k e. I |-> ( ( iuncurry f k ) ( .r ` R ) ( k M j ) ) ) ) ) ) -> E. n e. ( Base ` ( I Mat R ) ) ( n ( .r ` ( I Mat R ) ) M ) = ( 1r ` ( I Mat R ) ) ) )
312	311	imp 445	. . . 4 |- ( ( ( R e. Field /\ M e. ( Base ` ( I Mat R ) ) ) /\ E. f ( f : I --> ( ( Base ` R ) ^m I ) /\ A. i e. I ( ( R unitVec I ) ` i ) = ( j e. I |-> ( R gsumg ( k e. I |-> ( ( iuncurry f k ) ( .r ` R ) ( k M j ) ) ) ) ) ) ) -> E. n e. ( Base ` ( I Mat R ) ) ( n ( .r ` ( I Mat R ) ) M ) = ( 1r ` ( I Mat R ) ) )
313	312	adantlr 751	. . 3 |- ( ( ( ( R e. Field /\ M e. ( Base ` ( I Mat R ) ) ) /\ I =/= (/) ) /\ E. f ( f : I --> ( ( Base ` R ) ^m I ) /\ A. i e. I ( ( R unitVec I ) ` i ) = ( j e. I |-> ( R gsumg ( k e. I |-> ( ( iuncurry f k ) ( .r ` R ) ( k M j ) ) ) ) ) ) ) -> E. n e. ( Base ` ( I Mat R ) ) ( n ( .r ` ( I Mat R ) ) M ) = ( 1r ` ( I Mat R ) ) )
314	211, 313	syldan 487	. 2 |- ( ( ( ( R e. Field /\ M e. ( Base ` ( I Mat R ) ) ) /\ I =/= (/) ) /\ curry M LIndF ( R freeLMod I ) ) -> E. n e. ( Base ` ( I Mat R ) ) ( n ( .r ` ( I Mat R ) ) M ) = ( 1r ` ( I Mat R ) ) )
315	6	simprbi 480	. . . 4 |- ( R e. Field -> R e. CRing )
316		eqid 2622	. . . . . . . . . 10 |- ( I maDet R ) = ( I maDet R )
317	316, 1, 2, 14	mdetcl 20402	. . . . . . . . 9 |- ( ( R e. CRing /\ M e. ( Base ` ( I Mat R ) ) ) -> ( ( I maDet R ) ` M ) e. ( Base ` R ) )
318	316, 1, 2, 14	mdetcl 20402	. . . . . . . . 9 |- ( ( R e. CRing /\ n e. ( Base ` ( I Mat R ) ) ) -> ( ( I maDet R ) ` n ) e. ( Base ` R ) )
319		eqid 2622	. . . . . . . . . 10 |- ( ||r ` R ) = ( ||r ` R )
320	14, 319, 121	dvdsrmul 18648	. . . . . . . . 9 |- ( ( ( ( I maDet R ) ` M ) e. ( Base ` R ) /\ ( ( I maDet R ) ` n ) e. ( Base ` R ) ) -> ( ( I maDet R ) ` M ) ( ||r ` R ) ( ( ( I maDet R ) ` n ) ( .r ` R ) ( ( I maDet R ) ` M ) ) )
321	317, 318, 320	syl2an 494	. . . . . . . 8 |- ( ( ( R e. CRing /\ M e. ( Base ` ( I Mat R ) ) ) /\ ( R e. CRing /\ n e. ( Base ` ( I Mat R ) ) ) ) -> ( ( I maDet R ) ` M ) ( ||r ` R ) ( ( ( I maDet R ) ` n ) ( .r ` R ) ( ( I maDet R ) ` M ) ) )
322	321	anandis 873	. . . . . . 7 |- ( ( R e. CRing /\ ( M e. ( Base ` ( I Mat R ) ) /\ n e. ( Base ` ( I Mat R ) ) ) ) -> ( ( I maDet R ) ` M ) ( ||r ` R ) ( ( ( I maDet R ) ` n ) ( .r ` R ) ( ( I maDet R ) ` M ) ) )
323	322	anassrs 680	. . . . . 6 |- ( ( ( R e. CRing /\ M e. ( Base ` ( I Mat R ) ) ) /\ n e. ( Base ` ( I Mat R ) ) ) -> ( ( I maDet R ) ` M ) ( ||r ` R ) ( ( ( I maDet R ) ` n ) ( .r ` R ) ( ( I maDet R ) ` M ) ) )
324	323	adantrr 753	. . . . 5 |- ( ( ( R e. CRing /\ M e. ( Base ` ( I Mat R ) ) ) /\ ( n e. ( Base ` ( I Mat R ) ) /\ ( n ( .r ` ( I Mat R ) ) M ) = ( 1r ` ( I Mat R ) ) ) ) -> ( ( I maDet R ) ` M ) ( ||r ` R ) ( ( ( I maDet R ) ` n ) ( .r ` R ) ( ( I maDet R ) ` M ) ) )
325		fveq2 6191	. . . . . . . . 9 |- ( ( n ( .r ` ( I Mat R ) ) M ) = ( 1r ` ( I Mat R ) ) -> ( ( I maDet R ) ` ( n ( .r ` ( I Mat R ) ) M ) ) = ( ( I maDet R ) ` ( 1r ` ( I Mat R ) ) ) )
326	1, 2, 316, 121, 293	mdetmul 20429	. . . . . . . . . . . 12 |- ( ( R e. CRing /\ n e. ( Base ` ( I Mat R ) ) /\ M e. ( Base ` ( I Mat R ) ) ) -> ( ( I maDet R ) ` ( n ( .r ` ( I Mat R ) ) M ) ) = ( ( ( I maDet R ) ` n ) ( .r ` R ) ( ( I maDet R ) ` M ) ) )
327	326	3expa 1265	. . . . . . . . . . 11 |- ( ( ( R e. CRing /\ n e. ( Base ` ( I Mat R ) ) ) /\ M e. ( Base ` ( I Mat R ) ) ) -> ( ( I maDet R ) ` ( n ( .r ` ( I Mat R ) ) M ) ) = ( ( ( I maDet R ) ` n ) ( .r ` R ) ( ( I maDet R ) ` M ) ) )
328	327	an32s 846	. . . . . . . . . 10 |- ( ( ( R e. CRing /\ M e. ( Base ` ( I Mat R ) ) ) /\ n e. ( Base ` ( I Mat R ) ) ) -> ( ( I maDet R ) ` ( n ( .r ` ( I Mat R ) ) M ) ) = ( ( ( I maDet R ) ` n ) ( .r ` R ) ( ( I maDet R ) ` M ) ) )
329	316, 1, 242, 236	mdet1 20407	. . . . . . . . . . . 12 |- ( ( R e. CRing /\ I e. Fin ) -> ( ( I maDet R ) ` ( 1r ` ( I Mat R ) ) ) = ( 1r ` R ) )
330	4, 329	sylan2 491	. . . . . . . . . . 11 |- ( ( R e. CRing /\ M e. ( Base ` ( I Mat R ) ) ) -> ( ( I maDet R ) ` ( 1r ` ( I Mat R ) ) ) = ( 1r ` R ) )
331	330	adantr 481	. . . . . . . . . 10 |- ( ( ( R e. CRing /\ M e. ( Base ` ( I Mat R ) ) ) /\ n e. ( Base ` ( I Mat R ) ) ) -> ( ( I maDet R ) ` ( 1r ` ( I Mat R ) ) ) = ( 1r ` R ) )
332	328, 331	eqeq12d 2637	. . . . . . . . 9 |- ( ( ( R e. CRing /\ M e. ( Base ` ( I Mat R ) ) ) /\ n e. ( Base ` ( I Mat R ) ) ) -> ( ( ( I maDet R ) ` ( n ( .r ` ( I Mat R ) ) M ) ) = ( ( I maDet R ) ` ( 1r ` ( I Mat R ) ) ) <-> ( ( ( I maDet R ) ` n ) ( .r ` R ) ( ( I maDet R ) ` M ) ) = ( 1r ` R ) ) )
333	325, 332	syl5ib 234	. . . . . . . 8 |- ( ( ( R e. CRing /\ M e. ( Base ` ( I Mat R ) ) ) /\ n e. ( Base ` ( I Mat R ) ) ) -> ( ( n ( .r ` ( I Mat R ) ) M ) = ( 1r ` ( I Mat R ) ) -> ( ( ( I maDet R ) ` n ) ( .r ` R ) ( ( I maDet R ) ` M ) ) = ( 1r ` R ) ) )
334	333	impr 649	. . . . . . 7 |- ( ( ( R e. CRing /\ M e. ( Base ` ( I Mat R ) ) ) /\ ( n e. ( Base ` ( I Mat R ) ) /\ ( n ( .r ` ( I Mat R ) ) M ) = ( 1r ` ( I Mat R ) ) ) ) -> ( ( ( I maDet R ) ` n ) ( .r ` R ) ( ( I maDet R ) ` M ) ) = ( 1r ` R ) )
335	334	breq2d 4665	. . . . . 6 |- ( ( ( R e. CRing /\ M e. ( Base ` ( I Mat R ) ) ) /\ ( n e. ( Base ` ( I Mat R ) ) /\ ( n ( .r ` ( I Mat R ) ) M ) = ( 1r ` ( I Mat R ) ) ) ) -> ( ( ( I maDet R ) ` M ) ( ||r ` R ) ( ( ( I maDet R ) ` n ) ( .r ` R ) ( ( I maDet R ) ` M ) ) <-> ( ( I maDet R ) ` M ) ( ||r ` R ) ( 1r ` R ) ) )
336		eqid 2622	. . . . . . . 8 |- (Unit ` R ) = (Unit ` R )
337	336, 236, 319	crngunit 18662	. . . . . . 7 |- ( R e. CRing -> ( ( ( I maDet R ) ` M ) e. (Unit ` R ) <-> ( ( I maDet R ) ` M ) ( ||r ` R ) ( 1r ` R ) ) )
338	337	ad2antrr 762	. . . . . 6 |- ( ( ( R e. CRing /\ M e. ( Base ` ( I Mat R ) ) ) /\ ( n e. ( Base ` ( I Mat R ) ) /\ ( n ( .r ` ( I Mat R ) ) M ) = ( 1r ` ( I Mat R ) ) ) ) -> ( ( ( I maDet R ) ` M ) e. (Unit ` R ) <-> ( ( I maDet R ) ` M ) ( ||r ` R ) ( 1r ` R ) ) )
339	335, 338	bitr4d 271	. . . . 5 |- ( ( ( R e. CRing /\ M e. ( Base ` ( I Mat R ) ) ) /\ ( n e. ( Base ` ( I Mat R ) ) /\ ( n ( .r ` ( I Mat R ) ) M ) = ( 1r ` ( I Mat R ) ) ) ) -> ( ( ( I maDet R ) ` M ) ( ||r ` R ) ( ( ( I maDet R ) ` n ) ( .r ` R ) ( ( I maDet R ) ` M ) ) <-> ( ( I maDet R ) ` M ) e. (Unit ` R ) ) )
340	324, 339	mpbid 222	. . . 4 |- ( ( ( R e. CRing /\ M e. ( Base ` ( I Mat R ) ) ) /\ ( n e. ( Base ` ( I Mat R ) ) /\ ( n ( .r ` ( I Mat R ) ) M ) = ( 1r ` ( I Mat R ) ) ) ) -> ( ( I maDet R ) ` M ) e. (Unit ` R ) )
341	315, 340	sylanl1 682	. . 3 |- ( ( ( R e. Field /\ M e. ( Base ` ( I Mat R ) ) ) /\ ( n e. ( Base ` ( I Mat R ) ) /\ ( n ( .r ` ( I Mat R ) ) M ) = ( 1r ` ( I Mat R ) ) ) ) -> ( ( I maDet R ) ` M ) e. (Unit ` R ) )
342	341	ad4ant14 1293	. 2 |- ( ( ( ( ( R e. Field /\ M e. ( Base ` ( I Mat R ) ) ) /\ I =/= (/) ) /\ curry M LIndF ( R freeLMod I ) ) /\ ( n e. ( Base ` ( I Mat R ) ) /\ ( n ( .r ` ( I Mat R ) ) M ) = ( 1r ` ( I Mat R ) ) ) ) -> ( ( I maDet R ) ` M ) e. (Unit ` R ) )
343	314, 342	rexlimddv 3035	1 |- ( ( ( ( R e. Field /\ M e. ( Base ` ( I Mat R ) ) ) /\ I =/= (/) ) /\ curry M LIndF ( R freeLMod I ) ) -> ( ( I maDet R ) ` M ) e. (Unit ` R ) )

Syntax hints:   -> wi 4   <-> wb 196   /\ wa 384   /\ w3a 1037   = wceq 1483   E.wex 1704   e. wcel 1990   =/= wne 2794   A.wral 2912   E.wrex 2913   _Vcvv 3200   \ cdif 3571   (/)c0 3915   ifcif 4086   {csn 4177   <.cotp 4185   class class class wbr 4653   |-> cmpt 4729   X. cxp 5112   dom cdm 5114   ran crn 5115   "cima 5117   Fn wfn 5883   -->wf 5884   -1-1->wf1 5885   -1-1-onto->wf1o 5887   ` cfv 5888  (class class class)co 6650   oFcof 6895  curry ccur 7391  uncurry cunc 7392   ^m cmap 7857   ~~ cen 7952   Fincfn 7955   finSupp cfsupp 8275   Basecbs 15857   .rcmulr 15942  Scalarcsca 15944   .scvsca 15945   0gc0g 16100   gsum_g cgsu 16101   1rcur 18501   Ringcrg 18547   CRingccrg 18548   ||_rcdsr 18638  Unitcui 18639   DivRingcdr 18747  Fieldcfield 18748   LModclmod 18863   LSpanclspn 18971  LBasisclbs 19074  NzRingcnzr 19257   freeLMod cfrlm 20090   unitVec cuvc 20121   LIndF clindf 20143  LIndSclinds 20144   maMul cmmul 20189   Mat cmat 20213   maDet cmdat 20390

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1722  ax-4 1737  ax-5 1839  ax-6 1888  ax-7 1935  ax-8 1992  ax-9 1999  ax-10 2019  ax-11 2034  ax-12 2047  ax-13 2246  ax-ext 2602  ax-rep 4771  ax-sep 4781  ax-nul 4789  ax-pow 4843  ax-pr 4906  ax-un 6949  ax-inf2 8538  ax-cnex 9992  ax-resscn 9993  ax-1cn 9994  ax-icn 9995  ax-addcl 9996  ax-addrcl 9997  ax-mulcl 9998  ax-mulrcl 9999  ax-mulcom 10000  ax-addass 10001  ax-mulass 10002  ax-distr 10003  ax-i2m1 10004  ax-1ne0 10005  ax-1rid 10006  ax-rnegex 10007  ax-rrecex 10008  ax-cnre 10009  ax-pre-lttri 10010  ax-pre-lttrn 10011  ax-pre-ltadd 10012  ax-pre-mulgt0 10013  ax-addf 10015  ax-mulf 10016

This theorem depends on definitions:  df-bi 197  df-or 385  df-an 386  df-3or 1038  df-3an 1039  df-xor 1465  df-tru 1486  df-fal 1489  df-ex 1705  df-nf 1710  df-sb 1881  df-eu 2474  df-mo 2475  df-clab 2609  df-cleq 2615  df-clel 2618  df-nfc 2753  df-ne 2795  df-nel 2898  df-ral 2917  df-rex 2918  df-reu 2919  df-rmo 2920  df-rab 2921  df-v 3202  df-sbc 3436  df-csb 3534  df-dif 3577  df-un 3579  df-in 3581  df-ss 3588  df-pss 3590  df-nul 3916  df-if 4087  df-pw 4160  df-sn 4178  df-pr 4180  df-tp 4182  df-op 4184  df-ot 4186  df-uni 4437  df-int 4476  df-iun 4522  df-iin 4523  df-br 4654  df-opab 4713  df-mpt 4730  df-tr 4753  df-id 5024  df-eprel 5029  df-po 5035  df-so 5036  df-fr 5073  df-se 5074  df-we 5075  df-xp 5120  df-rel 5121  df-cnv 5122  df-co 5123  df-dm 5124  df-rn 5125  df-res 5126  df-ima 5127  df-pred 5680  df-ord 5726  df-on 5727  df-lim 5728  df-suc 5729  df-iota 5851  df-fun 5890  df-fn 5891  df-f 5892  df-f1 5893  df-fo 5894  df-f1o 5895  df-fv 5896  df-isom 5897  df-riota 6611  df-ov 6653  df-oprab 6654  df-mpt2 6655  df-of 6897  df-om 7066  df-1st 7168  df-2nd 7169  df-supp 7296  df-tpos 7352  df-cur 7393  df-unc 7394  df-wrecs 7407  df-recs 7468  df-rdg 7506  df-1o 7560  df-2o 7561  df-oadd 7564  df-er 7742  df-map 7859  df-pm 7860  df-ixp 7909  df-en 7956  df-dom 7957  df-sdom 7958  df-fin 7959  df-fsupp 8276  df-sup 8348  df-oi 8415  df-card 8765  df-pnf 10076  df-mnf 10077  df-xr 10078  df-ltxr 10079  df-le 10080  df-sub 10268  df-neg 10269  df-div 10685  df-nn 11021  df-2 11079  df-3 11080  df-4 11081  df-5 11082  df-6 11083  df-7 11084  df-8 11085  df-9 11086  df-n0 11293  df-xnn0 11364  df-z 11378  df-dec 11494  df-uz 11688  df-rp 11833  df-fz 12327  df-fzo 12466  df-seq 12802  df-exp 12861  df-hash 13118  df-word 13299  df-lsw 13300  df-concat 13301  df-s1 13302  df-substr 13303  df-splice 13304  df-reverse 13305  df-s2 13593  df-struct 15859  df-ndx 15860  df-slot 15861  df-base 15863  df-sets 15864  df-ress 15865  df-plusg 15954  df-mulr 15955  df-starv 15956  df-sca 15957  df-vsca 15958  df-ip 15959  df-tset 15960  df-ple 15961  df-ds 15964  df-unif 15965  df-hom 15966  df-cco 15967  df-0g 16102  df-gsum 16103  df-prds 16108  df-pws 16110  df-mre 16246  df-mrc 16247  df-mri 16248  df-acs 16249  df-mgm 17242  df-sgrp 17284  df-mnd 17295  df-mhm 17335  df-submnd 17336  df-grp 17425  df-minusg 17426  df-sbg 17427  df-mulg 17541  df-subg 17591  df-ghm 17658  df-gim 17701  df-cntz 17750  df-oppg 17776  df-symg 17798  df-pmtr 17862  df-psgn 17911  df-evpm 17912  df-cmn 18195  df-abl 18196  df-mgp 18490  df-ur 18502  df-srg 18506  df-ring 18549  df-cring 18550  df-oppr 18623  df-dvdsr 18641  df-unit 18642  df-invr 18672  df-dvr 18683  df-rnghom 18715  df-drng 18749  df-field 18750  df-subrg 18778  df-lmod 18865  df-lss 18933  df-lsp 18972  df-lmhm 19022  df-lbs 19075  df-lvec 19103  df-sra 19172  df-rgmod 19173  df-nzr 19258  df-cnfld 19747  df-zring 19819  df-zrh 19852  df-dsmm 20076  df-frlm 20091  df-uvc 20122  df-lindf 20145  df-linds 20146  df-mamu 20190  df-mat 20214  df-mdet 20391

This theorem is referenced by:  matunitlindf  33407