Metamath Proof Explorer


Theorem nvvop

Description: The vector space component of a normed complex vector space is an ordered pair of the underlying group and a scalar product. (Contributed by NM, 28-Nov-2006) (New usage is discouraged.)

Ref Expression
Hypotheses nvvop.1 W=1stU
nvvop.2 G=+vU
nvvop.4 S=𝑠OLDU
Assertion nvvop UNrmCVecW=GS

Proof

Step Hyp Ref Expression
1 nvvop.1 W=1stU
2 nvvop.2 G=+vU
3 nvvop.4 S=𝑠OLDU
4 vcrel RelCVecOLD
5 nvss NrmCVecCVecOLD×V
6 eqid normCVU=normCVU
7 1 6 nvop2 UNrmCVecU=WnormCVU
8 7 eleq1d UNrmCVecUNrmCVecWnormCVUNrmCVec
9 8 ibi UNrmCVecWnormCVUNrmCVec
10 5 9 sselid UNrmCVecWnormCVUCVecOLD×V
11 opelxp1 WnormCVUCVecOLD×VWCVecOLD
12 10 11 syl UNrmCVecWCVecOLD
13 1st2nd RelCVecOLDWCVecOLDW=1stW2ndW
14 4 12 13 sylancr UNrmCVecW=1stW2ndW
15 2 vafval G=1st1stU
16 1 fveq2i 1stW=1st1stU
17 15 16 eqtr4i G=1stW
18 3 smfval S=2nd1stU
19 1 fveq2i 2ndW=2nd1stU
20 18 19 eqtr4i S=2ndW
21 17 20 opeq12i GS=1stW2ndW
22 14 21 eqtr4di UNrmCVecW=GS