Metamath Proof Explorer


Theorem resspsrmul

Description: A restricted power series algebra has the same multiplication operation. (Contributed by Mario Carneiro, 3-Jul-2015)

Ref Expression
Hypotheses resspsr.s S = I mPwSer R
resspsr.h H = R 𝑠 T
resspsr.u U = I mPwSer H
resspsr.b B = Base U
resspsr.p P = S 𝑠 B
resspsr.2 φ T SubRing R
Assertion resspsrmul φ X B Y B X U Y = X P Y

Proof

Step Hyp Ref Expression
1 resspsr.s S = I mPwSer R
2 resspsr.h H = R 𝑠 T
3 resspsr.u U = I mPwSer H
4 resspsr.b B = Base U
5 resspsr.p P = S 𝑠 B
6 resspsr.2 φ T SubRing R
7 reldmpsr Rel dom mPwSer
8 7 3 4 elbasov X B I V H V
9 8 ad2antrl φ X B Y B I V H V
10 9 simpld φ X B Y B I V
11 eqid f 0 I | f -1 Fin = f 0 I | f -1 Fin
12 11 psrbaglefi I V k f 0 I | f -1 Fin y f 0 I | f -1 Fin | y f k Fin
13 10 12 sylan φ X B Y B k f 0 I | f -1 Fin y f 0 I | f -1 Fin | y f k Fin
14 subrgsubg T SubRing R T SubGrp R
15 6 14 syl φ T SubGrp R
16 subgsubm T SubGrp R T SubMnd R
17 15 16 syl φ T SubMnd R
18 17 ad2antrr φ X B Y B k f 0 I | f -1 Fin T SubMnd R
19 6 ad3antrrr φ X B Y B k f 0 I | f -1 Fin x y f 0 I | f -1 Fin | y f k T SubRing R
20 eqid Base H = Base H
21 simprl φ X B Y B X B
22 3 20 11 4 21 psrelbas φ X B Y B X : f 0 I | f -1 Fin Base H
23 22 adantr φ X B Y B k f 0 I | f -1 Fin X : f 0 I | f -1 Fin Base H
24 elrabi x y f 0 I | f -1 Fin | y f k x f 0 I | f -1 Fin
25 ffvelrn X : f 0 I | f -1 Fin Base H x f 0 I | f -1 Fin X x Base H
26 23 24 25 syl2an φ X B Y B k f 0 I | f -1 Fin x y f 0 I | f -1 Fin | y f k X x Base H
27 2 subrgbas T SubRing R T = Base H
28 19 27 syl φ X B Y B k f 0 I | f -1 Fin x y f 0 I | f -1 Fin | y f k T = Base H
29 26 28 eleqtrrd φ X B Y B k f 0 I | f -1 Fin x y f 0 I | f -1 Fin | y f k X x T
30 simprr φ X B Y B Y B
31 3 20 11 4 30 psrelbas φ X B Y B Y : f 0 I | f -1 Fin Base H
32 31 ad2antrr φ X B Y B k f 0 I | f -1 Fin x y f 0 I | f -1 Fin | y f k Y : f 0 I | f -1 Fin Base H
33 ssrab2 y f 0 I | f -1 Fin | y f k f 0 I | f -1 Fin
34 10 ad2antrr φ X B Y B k f 0 I | f -1 Fin x y f 0 I | f -1 Fin | y f k I V
35 simplr φ X B Y B k f 0 I | f -1 Fin x y f 0 I | f -1 Fin | y f k k f 0 I | f -1 Fin
36 simpr φ X B Y B k f 0 I | f -1 Fin x y f 0 I | f -1 Fin | y f k x y f 0 I | f -1 Fin | y f k
37 eqid y f 0 I | f -1 Fin | y f k = y f 0 I | f -1 Fin | y f k
38 11 37 psrbagconcl I V k f 0 I | f -1 Fin x y f 0 I | f -1 Fin | y f k k f x y f 0 I | f -1 Fin | y f k
39 34 35 36 38 syl3anc φ X B Y B k f 0 I | f -1 Fin x y f 0 I | f -1 Fin | y f k k f x y f 0 I | f -1 Fin | y f k
40 33 39 sseldi φ X B Y B k f 0 I | f -1 Fin x y f 0 I | f -1 Fin | y f k k f x f 0 I | f -1 Fin
41 32 40 ffvelrnd φ X B Y B k f 0 I | f -1 Fin x y f 0 I | f -1 Fin | y f k Y k f x Base H
42 41 28 eleqtrrd φ X B Y B k f 0 I | f -1 Fin x y f 0 I | f -1 Fin | y f k Y k f x T
43 eqid R = R
44 43 subrgmcl T SubRing R X x T Y k f x T X x R Y k f x T
45 19 29 42 44 syl3anc φ X B Y B k f 0 I | f -1 Fin x y f 0 I | f -1 Fin | y f k X x R Y k f x T
46 45 fmpttd φ X B Y B k f 0 I | f -1 Fin x y f 0 I | f -1 Fin | y f k X x R Y k f x : y f 0 I | f -1 Fin | y f k T
47 13 18 46 2 gsumsubm φ X B Y B k f 0 I | f -1 Fin R x y f 0 I | f -1 Fin | y f k X x R Y k f x = H x y f 0 I | f -1 Fin | y f k X x R Y k f x
48 2 43 ressmulr T SubRing R R = H
49 6 48 syl φ R = H
50 49 ad3antrrr φ X B Y B k f 0 I | f -1 Fin x y f 0 I | f -1 Fin | y f k R = H
51 50 oveqd φ X B Y B k f 0 I | f -1 Fin x y f 0 I | f -1 Fin | y f k X x R Y k f x = X x H Y k f x
52 51 mpteq2dva φ X B Y B k f 0 I | f -1 Fin x y f 0 I | f -1 Fin | y f k X x R Y k f x = x y f 0 I | f -1 Fin | y f k X x H Y k f x
53 52 oveq2d φ X B Y B k f 0 I | f -1 Fin H x y f 0 I | f -1 Fin | y f k X x R Y k f x = H x y f 0 I | f -1 Fin | y f k X x H Y k f x
54 47 53 eqtrd φ X B Y B k f 0 I | f -1 Fin R x y f 0 I | f -1 Fin | y f k X x R Y k f x = H x y f 0 I | f -1 Fin | y f k X x H Y k f x
55 54 mpteq2dva φ X B Y B k f 0 I | f -1 Fin R x y f 0 I | f -1 Fin | y f k X x R Y k f x = k f 0 I | f -1 Fin H x y f 0 I | f -1 Fin | y f k X x H Y k f x
56 eqid Base S = Base S
57 eqid S = S
58 fvex Base R V
59 6 27 syl φ T = Base H
60 eqid Base R = Base R
61 60 subrgss T SubRing R T Base R
62 6 61 syl φ T Base R
63 59 62 eqsstrrd φ Base H Base R
64 mapss Base R V Base H Base R Base H f 0 I | f -1 Fin Base R f 0 I | f -1 Fin
65 58 63 64 sylancr φ Base H f 0 I | f -1 Fin Base R f 0 I | f -1 Fin
66 65 adantr φ X B Y B Base H f 0 I | f -1 Fin Base R f 0 I | f -1 Fin
67 3 20 11 4 10 psrbas φ X B Y B B = Base H f 0 I | f -1 Fin
68 1 60 11 56 10 psrbas φ X B Y B Base S = Base R f 0 I | f -1 Fin
69 66 67 68 3sstr4d φ X B Y B B Base S
70 69 21 sseldd φ X B Y B X Base S
71 69 30 sseldd φ X B Y B Y Base S
72 1 56 43 57 11 70 71 psrmulfval φ X B Y B X S Y = k f 0 I | f -1 Fin R x y f 0 I | f -1 Fin | y f k X x R Y k f x
73 eqid H = H
74 eqid U = U
75 3 4 73 74 11 21 30 psrmulfval φ X B Y B X U Y = k f 0 I | f -1 Fin H x y f 0 I | f -1 Fin | y f k X x H Y k f x
76 55 72 75 3eqtr4rd φ X B Y B X U Y = X S Y
77 4 fvexi B V
78 5 57 ressmulr B V S = P
79 77 78 mp1i φ X B Y B S = P
80 79 oveqd φ X B Y B X S Y = X P Y
81 76 80 eqtrd φ X B Y B X U Y = X P Y