Metamath Proof Explorer


Theorem psropprmul

Description: Reversing multiplication in a ring reverses multiplication in the power series ring. (Contributed by Stefan O'Rear, 27-Mar-2015)

Ref Expression
Hypotheses psropprmul.y Y=ImPwSerR
psropprmul.s S=opprR
psropprmul.z Z=ImPwSerS
psropprmul.t ·˙=Y
psropprmul.u ˙=Z
psropprmul.b B=BaseY
Assertion psropprmul RRingFBGBF˙G=G·˙F

Proof

Step Hyp Ref Expression
1 psropprmul.y Y=ImPwSerR
2 psropprmul.s S=opprR
3 psropprmul.z Z=ImPwSerS
4 psropprmul.t ·˙=Y
5 psropprmul.u ˙=Z
6 psropprmul.b B=BaseY
7 eqid BaseR=BaseR
8 eqid 0R=0R
9 ringcmn RRingRCMnd
10 9 3ad2ant1 RRingFBGBRCMnd
11 10 adantr RRingFBGBba0I|a-1FinRCMnd
12 ovex 0IV
13 12 rabex a0I|a-1FinV
14 13 rabex da0I|a-1Fin|dfbV
15 14 a1i RRingFBGBba0I|a-1Finda0I|a-1Fin|dfbV
16 simpll1 RRingFBGBba0I|a-1Fineda0I|a-1Fin|dfbRRing
17 eqid a0I|a-1Fin=a0I|a-1Fin
18 simp3 RRingFBGBGB
19 1 7 17 6 18 psrelbas RRingFBGBG:a0I|a-1FinBaseR
20 19 adantr RRingFBGBba0I|a-1FinG:a0I|a-1FinBaseR
21 elrabi eda0I|a-1Fin|dfbea0I|a-1Fin
22 ffvelrn G:a0I|a-1FinBaseRea0I|a-1FinGeBaseR
23 20 21 22 syl2an RRingFBGBba0I|a-1Fineda0I|a-1Fin|dfbGeBaseR
24 simp2 RRingFBGBFB
25 1 7 17 6 24 psrelbas RRingFBGBF:a0I|a-1FinBaseR
26 25 ad2antrr RRingFBGBba0I|a-1Fineda0I|a-1Fin|dfbF:a0I|a-1FinBaseR
27 ssrab2 da0I|a-1Fin|dfba0I|a-1Fin
28 eqid da0I|a-1Fin|dfb=da0I|a-1Fin|dfb
29 17 28 psrbagconcl ba0I|a-1Fineda0I|a-1Fin|dfbbfeda0I|a-1Fin|dfb
30 29 adantll RRingFBGBba0I|a-1Fineda0I|a-1Fin|dfbbfeda0I|a-1Fin|dfb
31 27 30 sselid RRingFBGBba0I|a-1Fineda0I|a-1Fin|dfbbfea0I|a-1Fin
32 26 31 ffvelrnd RRingFBGBba0I|a-1Fineda0I|a-1Fin|dfbFbfeBaseR
33 eqid R=R
34 7 33 ringcl RRingGeBaseRFbfeBaseRGeRFbfeBaseR
35 16 23 32 34 syl3anc RRingFBGBba0I|a-1Fineda0I|a-1Fin|dfbGeRFbfeBaseR
36 35 fmpttd RRingFBGBba0I|a-1Fineda0I|a-1Fin|dfbGeRFbfe:da0I|a-1Fin|dfbBaseR
37 mptexg da0I|a-1Fin|dfbVeda0I|a-1Fin|dfbGeRFbfeV
38 14 37 mp1i RRingFBGBba0I|a-1Fineda0I|a-1Fin|dfbGeRFbfeV
39 funmpt Funeda0I|a-1Fin|dfbGeRFbfe
40 39 a1i RRingFBGBba0I|a-1FinFuneda0I|a-1Fin|dfbGeRFbfe
41 fvexd RRingFBGBba0I|a-1Fin0RV
42 17 psrbaglefi ba0I|a-1Finda0I|a-1Fin|dfbFin
43 42 adantl RRingFBGBba0I|a-1Finda0I|a-1Fin|dfbFin
44 suppssdm eda0I|a-1Fin|dfbGeRFbfesupp0Rdomeda0I|a-1Fin|dfbGeRFbfe
45 eqid eda0I|a-1Fin|dfbGeRFbfe=eda0I|a-1Fin|dfbGeRFbfe
46 45 dmmptss domeda0I|a-1Fin|dfbGeRFbfeda0I|a-1Fin|dfb
47 44 46 sstri eda0I|a-1Fin|dfbGeRFbfesupp0Rda0I|a-1Fin|dfb
48 47 a1i RRingFBGBba0I|a-1Fineda0I|a-1Fin|dfbGeRFbfesupp0Rda0I|a-1Fin|dfb
49 suppssfifsupp eda0I|a-1Fin|dfbGeRFbfeVFuneda0I|a-1Fin|dfbGeRFbfe0RVda0I|a-1Fin|dfbFineda0I|a-1Fin|dfbGeRFbfesupp0Rda0I|a-1Fin|dfbfinSupp0Reda0I|a-1Fin|dfbGeRFbfe
50 38 40 41 43 48 49 syl32anc RRingFBGBba0I|a-1FinfinSupp0Reda0I|a-1Fin|dfbGeRFbfe
51 17 28 psrbagconf1o ba0I|a-1Fincda0I|a-1Fin|dfbbfc:da0I|a-1Fin|dfb1-1 ontoda0I|a-1Fin|dfb
52 51 adantl RRingFBGBba0I|a-1Fincda0I|a-1Fin|dfbbfc:da0I|a-1Fin|dfb1-1 ontoda0I|a-1Fin|dfb
53 7 8 11 15 36 50 52 gsumf1o RRingFBGBba0I|a-1FinReda0I|a-1Fin|dfbGeRFbfe=Reda0I|a-1Fin|dfbGeRFbfecda0I|a-1Fin|dfbbfc
54 17 28 psrbagconcl ba0I|a-1Fincda0I|a-1Fin|dfbbfcda0I|a-1Fin|dfb
55 54 adantll RRingFBGBba0I|a-1Fincda0I|a-1Fin|dfbbfcda0I|a-1Fin|dfb
56 eqidd RRingFBGBba0I|a-1Fincda0I|a-1Fin|dfbbfc=cda0I|a-1Fin|dfbbfc
57 eqidd RRingFBGBba0I|a-1Fineda0I|a-1Fin|dfbGeRFbfe=eda0I|a-1Fin|dfbGeRFbfe
58 fveq2 e=bfcGe=Gbfc
59 oveq2 e=bfcbfe=bfbfc
60 59 fveq2d e=bfcFbfe=Fbfbfc
61 58 60 oveq12d e=bfcGeRFbfe=GbfcRFbfbfc
62 55 56 57 61 fmptco RRingFBGBba0I|a-1Fineda0I|a-1Fin|dfbGeRFbfecda0I|a-1Fin|dfbbfc=cda0I|a-1Fin|dfbGbfcRFbfbfc
63 reldmpsr ReldommPwSer
64 1 6 63 strov2rcl GBIV
65 64 3ad2ant3 RRingFBGBIV
66 65 ad2antrr RRingFBGBba0I|a-1Fincda0I|a-1Fin|dfbIV
67 17 psrbagf ba0I|a-1Finb:I0
68 67 adantl RRingFBGBba0I|a-1Finb:I0
69 68 adantr RRingFBGBba0I|a-1Fincda0I|a-1Fin|dfbb:I0
70 elrabi cda0I|a-1Fin|dfbca0I|a-1Fin
71 17 psrbagf ca0I|a-1Finc:I0
72 70 71 syl cda0I|a-1Fin|dfbc:I0
73 72 adantl RRingFBGBba0I|a-1Fincda0I|a-1Fin|dfbc:I0
74 nn0cn e0e
75 nn0cn f0f
76 nncan efeef=f
77 74 75 76 syl2an e0f0eef=f
78 77 adantl RRingFBGBba0I|a-1Fincda0I|a-1Fin|dfbe0f0eef=f
79 66 69 73 78 caonncan RRingFBGBba0I|a-1Fincda0I|a-1Fin|dfbbfbfc=c
80 79 fveq2d RRingFBGBba0I|a-1Fincda0I|a-1Fin|dfbFbfbfc=Fc
81 80 oveq2d RRingFBGBba0I|a-1Fincda0I|a-1Fin|dfbGbfcRFbfbfc=GbfcRFc
82 eqid S=S
83 7 33 2 82 opprmul FcSGbfc=GbfcRFc
84 81 83 eqtr4di RRingFBGBba0I|a-1Fincda0I|a-1Fin|dfbGbfcRFbfbfc=FcSGbfc
85 84 mpteq2dva RRingFBGBba0I|a-1Fincda0I|a-1Fin|dfbGbfcRFbfbfc=cda0I|a-1Fin|dfbFcSGbfc
86 62 85 eqtrd RRingFBGBba0I|a-1Fineda0I|a-1Fin|dfbGeRFbfecda0I|a-1Fin|dfbbfc=cda0I|a-1Fin|dfbFcSGbfc
87 86 oveq2d RRingFBGBba0I|a-1FinReda0I|a-1Fin|dfbGeRFbfecda0I|a-1Fin|dfbbfc=Rcda0I|a-1Fin|dfbFcSGbfc
88 14 mptex cda0I|a-1Fin|dfbFcSGbfcV
89 88 a1i RRingcda0I|a-1Fin|dfbFcSGbfcV
90 id RRingRRing
91 2 fvexi SV
92 91 a1i RRingSV
93 2 7 opprbas BaseR=BaseS
94 93 a1i RRingBaseR=BaseS
95 eqid +R=+R
96 2 95 oppradd +R=+S
97 96 a1i RRing+R=+S
98 89 90 92 94 97 gsumpropd RRingRcda0I|a-1Fin|dfbFcSGbfc=Scda0I|a-1Fin|dfbFcSGbfc
99 98 3ad2ant1 RRingFBGBRcda0I|a-1Fin|dfbFcSGbfc=Scda0I|a-1Fin|dfbFcSGbfc
100 99 adantr RRingFBGBba0I|a-1FinRcda0I|a-1Fin|dfbFcSGbfc=Scda0I|a-1Fin|dfbFcSGbfc
101 53 87 100 3eqtrd RRingFBGBba0I|a-1FinReda0I|a-1Fin|dfbGeRFbfe=Scda0I|a-1Fin|dfbFcSGbfc
102 101 mpteq2dva RRingFBGBba0I|a-1FinReda0I|a-1Fin|dfbGeRFbfe=ba0I|a-1FinScda0I|a-1Fin|dfbFcSGbfc
103 1 6 33 4 17 18 24 psrmulfval RRingFBGBG·˙F=ba0I|a-1FinReda0I|a-1Fin|dfbGeRFbfe
104 eqid BaseZ=BaseZ
105 93 a1i RRingFBGBBaseR=BaseS
106 105 psrbaspropd RRingFBGBBaseImPwSerR=BaseImPwSerS
107 1 fveq2i BaseY=BaseImPwSerR
108 6 107 eqtri B=BaseImPwSerR
109 3 fveq2i BaseZ=BaseImPwSerS
110 106 108 109 3eqtr4g RRingFBGBB=BaseZ
111 24 110 eleqtrd RRingFBGBFBaseZ
112 18 110 eleqtrd RRingFBGBGBaseZ
113 3 104 82 5 17 111 112 psrmulfval RRingFBGBF˙G=ba0I|a-1FinScda0I|a-1Fin|dfbFcSGbfc
114 102 103 113 3eqtr4rd RRingFBGBF˙G=G·˙F