Metamath Proof Explorer


Theorem sramulr

Description: Multiplicative 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)

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

Proof

Step Hyp Ref Expression
1 srapart.a
 |-  ( ph -> A = ( ( subringAlg ` W ) ` S ) )
2 srapart.s
 |-  ( ph -> S C_ ( Base ` W ) )
3 df-mulr
 |-  .r = Slot 3
4 3nn
 |-  3 e. NN
5 3lt5
 |-  3 < 5
6 5 orci
 |-  ( 3 < 5 \/ 8 < 3 )
7 1 2 3 4 6 sralem
 |-  ( ph -> ( .r ` W ) = ( .r ` A ) )