Metamath Proof Explorer


Theorem tngsca

Description: The scalar ring 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 )
tngsca.2
|- F = ( Scalar ` G )
Assertion tngsca
|- ( N e. V -> F = ( Scalar ` T ) )

Proof

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