Metamath Proof Explorer


Theorem isvcOLD

Description: The predicate "is a complex vector space." (Contributed by NM, 31-May-2008) Obsolete version of iscvsp . (New usage is discouraged.) (Proof modification is discouraged.)

Ref Expression
Hypothesis isvcOLD.1 โŠข ๐‘‹ = ran ๐บ
Assertion isvcOLD ( โŸจ ๐บ , ๐‘† โŸฉ โˆˆ CVecOLD โ†” ( ๐บ โˆˆ AbelOp โˆง ๐‘† : ( โ„‚ ร— ๐‘‹ ) โŸถ ๐‘‹ โˆง โˆ€ ๐‘ฅ โˆˆ ๐‘‹ ( ( 1 ๐‘† ๐‘ฅ ) = ๐‘ฅ โˆง โˆ€ ๐‘ฆ โˆˆ โ„‚ ( โˆ€ ๐‘ง โˆˆ ๐‘‹ ( ๐‘ฆ ๐‘† ( ๐‘ฅ ๐บ ๐‘ง ) ) = ( ( ๐‘ฆ ๐‘† ๐‘ฅ ) ๐บ ( ๐‘ฆ ๐‘† ๐‘ง ) ) โˆง โˆ€ ๐‘ง โˆˆ โ„‚ ( ( ( ๐‘ฆ + ๐‘ง ) ๐‘† ๐‘ฅ ) = ( ( ๐‘ฆ ๐‘† ๐‘ฅ ) ๐บ ( ๐‘ง ๐‘† ๐‘ฅ ) ) โˆง ( ( ๐‘ฆ ยท ๐‘ง ) ๐‘† ๐‘ฅ ) = ( ๐‘ฆ ๐‘† ( ๐‘ง ๐‘† ๐‘ฅ ) ) ) ) ) ) )

Proof

Step Hyp Ref Expression
1 isvcOLD.1 โŠข ๐‘‹ = ran ๐บ
2 vcex โŠข ( โŸจ ๐บ , ๐‘† โŸฉ โˆˆ CVecOLD โ†’ ( ๐บ โˆˆ V โˆง ๐‘† โˆˆ V ) )
3 elex โŠข ( ๐บ โˆˆ AbelOp โ†’ ๐บ โˆˆ V )
4 3 adantr โŠข ( ( ๐บ โˆˆ AbelOp โˆง ๐‘† : ( โ„‚ ร— ๐‘‹ ) โŸถ ๐‘‹ ) โ†’ ๐บ โˆˆ V )
5 cnex โŠข โ„‚ โˆˆ V
6 ablogrpo โŠข ( ๐บ โˆˆ AbelOp โ†’ ๐บ โˆˆ GrpOp )
7 rnexg โŠข ( ๐บ โˆˆ GrpOp โ†’ ran ๐บ โˆˆ V )
8 1 7 eqeltrid โŠข ( ๐บ โˆˆ GrpOp โ†’ ๐‘‹ โˆˆ V )
9 6 8 syl โŠข ( ๐บ โˆˆ AbelOp โ†’ ๐‘‹ โˆˆ V )
10 xpexg โŠข ( ( โ„‚ โˆˆ V โˆง ๐‘‹ โˆˆ V ) โ†’ ( โ„‚ ร— ๐‘‹ ) โˆˆ V )
11 5 9 10 sylancr โŠข ( ๐บ โˆˆ AbelOp โ†’ ( โ„‚ ร— ๐‘‹ ) โˆˆ V )
12 fex โŠข ( ( ๐‘† : ( โ„‚ ร— ๐‘‹ ) โŸถ ๐‘‹ โˆง ( โ„‚ ร— ๐‘‹ ) โˆˆ V ) โ†’ ๐‘† โˆˆ V )
13 11 12 sylan2 โŠข ( ( ๐‘† : ( โ„‚ ร— ๐‘‹ ) โŸถ ๐‘‹ โˆง ๐บ โˆˆ AbelOp ) โ†’ ๐‘† โˆˆ V )
14 13 ancoms โŠข ( ( ๐บ โˆˆ AbelOp โˆง ๐‘† : ( โ„‚ ร— ๐‘‹ ) โŸถ ๐‘‹ ) โ†’ ๐‘† โˆˆ V )
15 4 14 jca โŠข ( ( ๐บ โˆˆ AbelOp โˆง ๐‘† : ( โ„‚ ร— ๐‘‹ ) โŸถ ๐‘‹ ) โ†’ ( ๐บ โˆˆ V โˆง ๐‘† โˆˆ V ) )
16 15 3adant3 โŠข ( ( ๐บ โˆˆ AbelOp โˆง ๐‘† : ( โ„‚ ร— ๐‘‹ ) โŸถ ๐‘‹ โˆง โˆ€ ๐‘ฅ โˆˆ ๐‘‹ ( ( 1 ๐‘† ๐‘ฅ ) = ๐‘ฅ โˆง โˆ€ ๐‘ฆ โˆˆ โ„‚ ( โˆ€ ๐‘ง โˆˆ ๐‘‹ ( ๐‘ฆ ๐‘† ( ๐‘ฅ ๐บ ๐‘ง ) ) = ( ( ๐‘ฆ ๐‘† ๐‘ฅ ) ๐บ ( ๐‘ฆ ๐‘† ๐‘ง ) ) โˆง โˆ€ ๐‘ง โˆˆ โ„‚ ( ( ( ๐‘ฆ + ๐‘ง ) ๐‘† ๐‘ฅ ) = ( ( ๐‘ฆ ๐‘† ๐‘ฅ ) ๐บ ( ๐‘ง ๐‘† ๐‘ฅ ) ) โˆง ( ( ๐‘ฆ ยท ๐‘ง ) ๐‘† ๐‘ฅ ) = ( ๐‘ฆ ๐‘† ( ๐‘ง ๐‘† ๐‘ฅ ) ) ) ) ) ) โ†’ ( ๐บ โˆˆ V โˆง ๐‘† โˆˆ V ) )
17 1 isvclem โŠข ( ( ๐บ โˆˆ V โˆง ๐‘† โˆˆ V ) โ†’ ( โŸจ ๐บ , ๐‘† โŸฉ โˆˆ CVecOLD โ†” ( ๐บ โˆˆ AbelOp โˆง ๐‘† : ( โ„‚ ร— ๐‘‹ ) โŸถ ๐‘‹ โˆง โˆ€ ๐‘ฅ โˆˆ ๐‘‹ ( ( 1 ๐‘† ๐‘ฅ ) = ๐‘ฅ โˆง โˆ€ ๐‘ฆ โˆˆ โ„‚ ( โˆ€ ๐‘ง โˆˆ ๐‘‹ ( ๐‘ฆ ๐‘† ( ๐‘ฅ ๐บ ๐‘ง ) ) = ( ( ๐‘ฆ ๐‘† ๐‘ฅ ) ๐บ ( ๐‘ฆ ๐‘† ๐‘ง ) ) โˆง โˆ€ ๐‘ง โˆˆ โ„‚ ( ( ( ๐‘ฆ + ๐‘ง ) ๐‘† ๐‘ฅ ) = ( ( ๐‘ฆ ๐‘† ๐‘ฅ ) ๐บ ( ๐‘ง ๐‘† ๐‘ฅ ) ) โˆง ( ( ๐‘ฆ ยท ๐‘ง ) ๐‘† ๐‘ฅ ) = ( ๐‘ฆ ๐‘† ( ๐‘ง ๐‘† ๐‘ฅ ) ) ) ) ) ) ) )
18 2 16 17 pm5.21nii โŠข ( โŸจ ๐บ , ๐‘† โŸฉ โˆˆ CVecOLD โ†” ( ๐บ โˆˆ AbelOp โˆง ๐‘† : ( โ„‚ ร— ๐‘‹ ) โŸถ ๐‘‹ โˆง โˆ€ ๐‘ฅ โˆˆ ๐‘‹ ( ( 1 ๐‘† ๐‘ฅ ) = ๐‘ฅ โˆง โˆ€ ๐‘ฆ โˆˆ โ„‚ ( โˆ€ ๐‘ง โˆˆ ๐‘‹ ( ๐‘ฆ ๐‘† ( ๐‘ฅ ๐บ ๐‘ง ) ) = ( ( ๐‘ฆ ๐‘† ๐‘ฅ ) ๐บ ( ๐‘ฆ ๐‘† ๐‘ง ) ) โˆง โˆ€ ๐‘ง โˆˆ โ„‚ ( ( ( ๐‘ฆ + ๐‘ง ) ๐‘† ๐‘ฅ ) = ( ( ๐‘ฆ ๐‘† ๐‘ฅ ) ๐บ ( ๐‘ง ๐‘† ๐‘ฅ ) ) โˆง ( ( ๐‘ฆ ยท ๐‘ง ) ๐‘† ๐‘ฅ ) = ( ๐‘ฆ ๐‘† ( ๐‘ง ๐‘† ๐‘ฅ ) ) ) ) ) ) )