Metamath Proof Explorer


Theorem dimval

Description: The dimension of a vector space F is the cardinality of one of its bases. (Contributed by Thierry Arnoux, 6-May-2023)

Ref Expression
Hypothesis dimval.1 J=LBasisF
Assertion dimval FLVecSJdimF=S

Proof

Step Hyp Ref Expression
1 dimval.1 J=LBasisF
2 elex FLVecFV
3 fveq2 f=FLBasisf=LBasisF
4 3 1 eqtr4di f=FLBasisf=J
5 4 imaeq2d f=F.LBasisf=.J
6 5 unieqd f=F.LBasisf=.J
7 df-dim dim=fV.LBasisf
8 hashf .:V0+∞
9 ffun .:V0+∞Fun.
10 1 fvexi JV
11 10 funimaex Fun..JV
12 8 9 11 mp2b .JV
13 12 uniex .JV
14 6 7 13 fvmpt FVdimF=.J
15 2 14 syl FLVecdimF=.J
16 15 adantr FLVecSJdimF=.J
17 1 lvecdim FLVecSJtJSt
18 17 ad4ant124 FLVecSJx.JtJSt
19 hasheni StS=t
20 18 19 syl FLVecSJx.JtJS=t
21 20 adantr FLVecSJx.JtJt=xS=t
22 simpr FLVecSJx.JtJt=xt=x
23 21 22 eqtr2d FLVecSJx.JtJt=xx=S
24 8 9 ax-mp Fun.
25 fvelima Fun.x.JtJt=x
26 24 25 mpan x.JtJt=x
27 26 adantl FLVecSJx.JtJt=x
28 23 27 r19.29a FLVecSJx.Jx=S
29 28 ralrimiva FLVecSJx.Jx=S
30 ne0i SJJ
31 30 adantl FLVecSJJ
32 ffn .:V0+∞.FnV
33 8 32 ax-mp .FnV
34 ssv JV
35 fnimaeq0 .FnVJV.J=J=
36 33 34 35 mp2an .J=J=
37 36 necon3bii .JJ
38 31 37 sylibr FLVecSJ.J
39 eqsn .J.J=Sx.Jx=S
40 38 39 syl FLVecSJ.J=Sx.Jx=S
41 29 40 mpbird FLVecSJ.J=S
42 41 unieqd FLVecSJ.J=S
43 fvex SV
44 43 unisn S=S
45 44 a1i FLVecSJS=S
46 16 42 45 3eqtrd FLVecSJdimF=S