Metamath Proof Explorer


Theorem psr1plusg

Description: Value of addition in a univariate power series ring. (Contributed by Stefan O'Rear, 21-Mar-2015) (Revised by Mario Carneiro, 2-Oct-2015)

Ref Expression
Hypotheses psr1plusg.y
|- Y = ( PwSer1 ` R )
psr1plusg.s
|- S = ( 1o mPwSer R )
psr1plusg.p
|- .+ = ( +g ` Y )
Assertion psr1plusg
|- .+ = ( +g ` S )

Proof

Step Hyp Ref Expression
1 psr1plusg.y
 |-  Y = ( PwSer1 ` R )
2 psr1plusg.s
 |-  S = ( 1o mPwSer R )
3 psr1plusg.p
 |-  .+ = ( +g ` Y )
4 1 psr1val
 |-  Y = ( ( 1o ordPwSer R ) ` (/) )
5 0ss
 |-  (/) C_ ( 1o X. 1o )
6 5 a1i
 |-  ( T. -> (/) C_ ( 1o X. 1o ) )
7 2 4 6 opsrplusg
 |-  ( T. -> ( +g ` S ) = ( +g ` Y ) )
8 7 mptru
 |-  ( +g ` S ) = ( +g ` Y )
9 3 8 eqtr4i
 |-  .+ = ( +g ` S )