This is an inofficial mirror of http://metamath.tirix.org for personal testing of a visualizer extension only.

Metamath Proof Explorer

Theorem tngvsca

Description: The scalar multiplication of a structure augmented with a norm. (Contributed by Mario Carneiro, 2-Oct-2015) (Revised by AV, 31-Oct-2024)

Ref Expression
Hypotheses tngbas.t 
|- T = ( G toNrmGrp N )
tngvsca.2 
|- .x. = ( .s ` G )
Assertion tngvsca 
|- ( N e. V -> .x. = ( .s ` T ) )

Proof

Step Hyp Ref Expression
1 tngbas.t 
 |-  T = ( G toNrmGrp N )
2 tngvsca.2 
 |-  .x. = ( .s ` G )
3 vscaid 
 |-  .s = Slot ( .s ` ndx )
4 slotstnscsi 
 |-  ( ( TopSet ` ndx ) =/= ( Scalar ` ndx ) /\ ( TopSet ` ndx ) =/= ( .s ` ndx ) /\ ( TopSet ` ndx ) =/= ( .i ` ndx ) )
5 4 simp2i 
 |-  ( TopSet ` ndx ) =/= ( .s ` ndx )
6 5 necomi 
 |-  ( .s ` ndx ) =/= ( TopSet ` ndx )
7 slotsdnscsi 
 |-  ( ( dist ` ndx ) =/= ( Scalar ` ndx ) /\ ( dist ` ndx ) =/= ( .s ` ndx ) /\ ( dist ` ndx ) =/= ( .i ` ndx ) )
8 7 simp2i 
 |-  ( dist ` ndx ) =/= ( .s ` ndx )
9 8 necomi 
 |-  ( .s ` ndx ) =/= ( dist ` ndx )
10 1 3 6 9 tnglem 
 |-  ( N e. V -> ( .s ` G ) = ( .s ` T ) )
11 2 10 eqtrid 
 |-  ( N e. V -> .x. = ( .s ` T ) )