Metamath Proof Explorer


Theorem sraaddg

Description: Additive operation of a subring algebra. (Contributed by Stefan O'Rear, 27-Nov-2014) (Revised by Mario Carneiro, 4-Oct-2015) (Revised by Thierry Arnoux, 16-Jun-2019) (Revised by AV, 29-Oct-2024)

Ref Expression
Hypotheses srapart.a
|- ( ph -> A = ( ( subringAlg ` W ) ` S ) )
srapart.s
|- ( ph -> S C_ ( Base ` W ) )
Assertion sraaddg
|- ( ph -> ( +g ` W ) = ( +g ` A ) )

Proof

Step Hyp Ref Expression
1 srapart.a
 |-  ( ph -> A = ( ( subringAlg ` W ) ` S ) )
2 srapart.s
 |-  ( ph -> S C_ ( Base ` W ) )
3 plusgid
 |-  +g = Slot ( +g ` ndx )
4 scandxnplusgndx
 |-  ( Scalar ` ndx ) =/= ( +g ` ndx )
5 vscandxnplusgndx
 |-  ( .s ` ndx ) =/= ( +g ` ndx )
6 ipndxnplusgndx
 |-  ( .i ` ndx ) =/= ( +g ` ndx )
7 1 2 3 4 5 6 sralem
 |-  ( ph -> ( +g ` W ) = ( +g ` A ) )