Metamath Proof Explorer


Theorem psrvscafval

Description: The scalar multiplication operation of the multivariate power series structure. (Contributed by Mario Carneiro, 28-Dec-2014) (Revised by Mario Carneiro, 2-Oct-2015)

Ref Expression
Hypotheses psrvsca.s 𝑆 = ( 𝐼 mPwSer 𝑅 )
psrvsca.n = ( ·𝑠𝑆 )
psrvsca.k 𝐾 = ( Base ‘ 𝑅 )
psrvsca.b 𝐵 = ( Base ‘ 𝑆 )
psrvsca.m · = ( .r𝑅 )
psrvsca.d 𝐷 = { ∈ ( ℕ0m 𝐼 ) ∣ ( “ ℕ ) ∈ Fin }
Assertion psrvscafval = ( 𝑥𝐾 , 𝑓𝐵 ↦ ( ( 𝐷 × { 𝑥 } ) ∘f · 𝑓 ) )

Proof

Step Hyp Ref Expression
1 psrvsca.s 𝑆 = ( 𝐼 mPwSer 𝑅 )
2 psrvsca.n = ( ·𝑠𝑆 )
3 psrvsca.k 𝐾 = ( Base ‘ 𝑅 )
4 psrvsca.b 𝐵 = ( Base ‘ 𝑆 )
5 psrvsca.m · = ( .r𝑅 )
6 psrvsca.d 𝐷 = { ∈ ( ℕ0m 𝐼 ) ∣ ( “ ℕ ) ∈ Fin }
7 eqid ( +g𝑅 ) = ( +g𝑅 )
8 eqid ( TopOpen ‘ 𝑅 ) = ( TopOpen ‘ 𝑅 )
9 simpl ( ( 𝐼 ∈ V ∧ 𝑅 ∈ V ) → 𝐼 ∈ V )
10 1 3 6 4 9 psrbas ( ( 𝐼 ∈ V ∧ 𝑅 ∈ V ) → 𝐵 = ( 𝐾m 𝐷 ) )
11 eqid ( +g𝑆 ) = ( +g𝑆 )
12 1 4 7 11 psrplusg ( +g𝑆 ) = ( ∘f ( +g𝑅 ) ↾ ( 𝐵 × 𝐵 ) )
13 eqid ( .r𝑆 ) = ( .r𝑆 )
14 1 4 5 13 6 psrmulr ( .r𝑆 ) = ( 𝑓𝐵 , 𝑔𝐵 ↦ ( 𝑘𝐷 ↦ ( 𝑅 Σg ( 𝑥 ∈ { 𝑦𝐷𝑦r𝑘 } ↦ ( ( 𝑓𝑥 ) · ( 𝑔 ‘ ( 𝑘f𝑥 ) ) ) ) ) ) )
15 eqid ( 𝑥𝐾 , 𝑓𝐵 ↦ ( ( 𝐷 × { 𝑥 } ) ∘f · 𝑓 ) ) = ( 𝑥𝐾 , 𝑓𝐵 ↦ ( ( 𝐷 × { 𝑥 } ) ∘f · 𝑓 ) )
16 eqidd ( ( 𝐼 ∈ V ∧ 𝑅 ∈ V ) → ( ∏t ‘ ( 𝐷 × { ( TopOpen ‘ 𝑅 ) } ) ) = ( ∏t ‘ ( 𝐷 × { ( TopOpen ‘ 𝑅 ) } ) ) )
17 simpr ( ( 𝐼 ∈ V ∧ 𝑅 ∈ V ) → 𝑅 ∈ V )
18 1 3 7 5 8 6 10 12 14 15 16 9 17 psrval ( ( 𝐼 ∈ V ∧ 𝑅 ∈ V ) → 𝑆 = ( { ⟨ ( Base ‘ ndx ) , 𝐵 ⟩ , ⟨ ( +g ‘ ndx ) , ( +g𝑆 ) ⟩ , ⟨ ( .r ‘ ndx ) , ( .r𝑆 ) ⟩ } ∪ { ⟨ ( Scalar ‘ ndx ) , 𝑅 ⟩ , ⟨ ( ·𝑠 ‘ ndx ) , ( 𝑥𝐾 , 𝑓𝐵 ↦ ( ( 𝐷 × { 𝑥 } ) ∘f · 𝑓 ) ) ⟩ , ⟨ ( TopSet ‘ ndx ) , ( ∏t ‘ ( 𝐷 × { ( TopOpen ‘ 𝑅 ) } ) ) ⟩ } ) )
19 18 fveq2d ( ( 𝐼 ∈ V ∧ 𝑅 ∈ V ) → ( ·𝑠𝑆 ) = ( ·𝑠 ‘ ( { ⟨ ( Base ‘ ndx ) , 𝐵 ⟩ , ⟨ ( +g ‘ ndx ) , ( +g𝑆 ) ⟩ , ⟨ ( .r ‘ ndx ) , ( .r𝑆 ) ⟩ } ∪ { ⟨ ( Scalar ‘ ndx ) , 𝑅 ⟩ , ⟨ ( ·𝑠 ‘ ndx ) , ( 𝑥𝐾 , 𝑓𝐵 ↦ ( ( 𝐷 × { 𝑥 } ) ∘f · 𝑓 ) ) ⟩ , ⟨ ( TopSet ‘ ndx ) , ( ∏t ‘ ( 𝐷 × { ( TopOpen ‘ 𝑅 ) } ) ) ⟩ } ) ) )
20 3 fvexi 𝐾 ∈ V
21 4 fvexi 𝐵 ∈ V
22 20 21 mpoex ( 𝑥𝐾 , 𝑓𝐵 ↦ ( ( 𝐷 × { 𝑥 } ) ∘f · 𝑓 ) ) ∈ V
23 psrvalstr ( { ⟨ ( Base ‘ ndx ) , 𝐵 ⟩ , ⟨ ( +g ‘ ndx ) , ( +g𝑆 ) ⟩ , ⟨ ( .r ‘ ndx ) , ( .r𝑆 ) ⟩ } ∪ { ⟨ ( Scalar ‘ ndx ) , 𝑅 ⟩ , ⟨ ( ·𝑠 ‘ ndx ) , ( 𝑥𝐾 , 𝑓𝐵 ↦ ( ( 𝐷 × { 𝑥 } ) ∘f · 𝑓 ) ) ⟩ , ⟨ ( TopSet ‘ ndx ) , ( ∏t ‘ ( 𝐷 × { ( TopOpen ‘ 𝑅 ) } ) ) ⟩ } ) Struct ⟨ 1 , 9 ⟩
24 vscaid ·𝑠 = Slot ( ·𝑠 ‘ ndx )
25 snsstp2 { ⟨ ( ·𝑠 ‘ ndx ) , ( 𝑥𝐾 , 𝑓𝐵 ↦ ( ( 𝐷 × { 𝑥 } ) ∘f · 𝑓 ) ) ⟩ } ⊆ { ⟨ ( Scalar ‘ ndx ) , 𝑅 ⟩ , ⟨ ( ·𝑠 ‘ ndx ) , ( 𝑥𝐾 , 𝑓𝐵 ↦ ( ( 𝐷 × { 𝑥 } ) ∘f · 𝑓 ) ) ⟩ , ⟨ ( TopSet ‘ ndx ) , ( ∏t ‘ ( 𝐷 × { ( TopOpen ‘ 𝑅 ) } ) ) ⟩ }
26 ssun2 { ⟨ ( Scalar ‘ ndx ) , 𝑅 ⟩ , ⟨ ( ·𝑠 ‘ ndx ) , ( 𝑥𝐾 , 𝑓𝐵 ↦ ( ( 𝐷 × { 𝑥 } ) ∘f · 𝑓 ) ) ⟩ , ⟨ ( TopSet ‘ ndx ) , ( ∏t ‘ ( 𝐷 × { ( TopOpen ‘ 𝑅 ) } ) ) ⟩ } ⊆ ( { ⟨ ( Base ‘ ndx ) , 𝐵 ⟩ , ⟨ ( +g ‘ ndx ) , ( +g𝑆 ) ⟩ , ⟨ ( .r ‘ ndx ) , ( .r𝑆 ) ⟩ } ∪ { ⟨ ( Scalar ‘ ndx ) , 𝑅 ⟩ , ⟨ ( ·𝑠 ‘ ndx ) , ( 𝑥𝐾 , 𝑓𝐵 ↦ ( ( 𝐷 × { 𝑥 } ) ∘f · 𝑓 ) ) ⟩ , ⟨ ( TopSet ‘ ndx ) , ( ∏t ‘ ( 𝐷 × { ( TopOpen ‘ 𝑅 ) } ) ) ⟩ } )
27 25 26 sstri { ⟨ ( ·𝑠 ‘ ndx ) , ( 𝑥𝐾 , 𝑓𝐵 ↦ ( ( 𝐷 × { 𝑥 } ) ∘f · 𝑓 ) ) ⟩ } ⊆ ( { ⟨ ( Base ‘ ndx ) , 𝐵 ⟩ , ⟨ ( +g ‘ ndx ) , ( +g𝑆 ) ⟩ , ⟨ ( .r ‘ ndx ) , ( .r𝑆 ) ⟩ } ∪ { ⟨ ( Scalar ‘ ndx ) , 𝑅 ⟩ , ⟨ ( ·𝑠 ‘ ndx ) , ( 𝑥𝐾 , 𝑓𝐵 ↦ ( ( 𝐷 × { 𝑥 } ) ∘f · 𝑓 ) ) ⟩ , ⟨ ( TopSet ‘ ndx ) , ( ∏t ‘ ( 𝐷 × { ( TopOpen ‘ 𝑅 ) } ) ) ⟩ } )
28 23 24 27 strfv ( ( 𝑥𝐾 , 𝑓𝐵 ↦ ( ( 𝐷 × { 𝑥 } ) ∘f · 𝑓 ) ) ∈ V → ( 𝑥𝐾 , 𝑓𝐵 ↦ ( ( 𝐷 × { 𝑥 } ) ∘f · 𝑓 ) ) = ( ·𝑠 ‘ ( { ⟨ ( Base ‘ ndx ) , 𝐵 ⟩ , ⟨ ( +g ‘ ndx ) , ( +g𝑆 ) ⟩ , ⟨ ( .r ‘ ndx ) , ( .r𝑆 ) ⟩ } ∪ { ⟨ ( Scalar ‘ ndx ) , 𝑅 ⟩ , ⟨ ( ·𝑠 ‘ ndx ) , ( 𝑥𝐾 , 𝑓𝐵 ↦ ( ( 𝐷 × { 𝑥 } ) ∘f · 𝑓 ) ) ⟩ , ⟨ ( TopSet ‘ ndx ) , ( ∏t ‘ ( 𝐷 × { ( TopOpen ‘ 𝑅 ) } ) ) ⟩ } ) ) )
29 22 28 ax-mp ( 𝑥𝐾 , 𝑓𝐵 ↦ ( ( 𝐷 × { 𝑥 } ) ∘f · 𝑓 ) ) = ( ·𝑠 ‘ ( { ⟨ ( Base ‘ ndx ) , 𝐵 ⟩ , ⟨ ( +g ‘ ndx ) , ( +g𝑆 ) ⟩ , ⟨ ( .r ‘ ndx ) , ( .r𝑆 ) ⟩ } ∪ { ⟨ ( Scalar ‘ ndx ) , 𝑅 ⟩ , ⟨ ( ·𝑠 ‘ ndx ) , ( 𝑥𝐾 , 𝑓𝐵 ↦ ( ( 𝐷 × { 𝑥 } ) ∘f · 𝑓 ) ) ⟩ , ⟨ ( TopSet ‘ ndx ) , ( ∏t ‘ ( 𝐷 × { ( TopOpen ‘ 𝑅 ) } ) ) ⟩ } ) )
30 19 2 29 3eqtr4g ( ( 𝐼 ∈ V ∧ 𝑅 ∈ V ) → = ( 𝑥𝐾 , 𝑓𝐵 ↦ ( ( 𝐷 × { 𝑥 } ) ∘f · 𝑓 ) ) )
31 eqid ∅ = ∅
32 fn0 ( ∅ Fn ∅ ↔ ∅ = ∅ )
33 31 32 mpbir ∅ Fn ∅
34 reldmpsr Rel dom mPwSer
35 34 ovprc ( ¬ ( 𝐼 ∈ V ∧ 𝑅 ∈ V ) → ( 𝐼 mPwSer 𝑅 ) = ∅ )
36 1 35 syl5eq ( ¬ ( 𝐼 ∈ V ∧ 𝑅 ∈ V ) → 𝑆 = ∅ )
37 36 fveq2d ( ¬ ( 𝐼 ∈ V ∧ 𝑅 ∈ V ) → ( ·𝑠𝑆 ) = ( ·𝑠 ‘ ∅ ) )
38 df-vsca ·𝑠 = Slot 6
39 38 str0 ∅ = ( ·𝑠 ‘ ∅ )
40 37 2 39 3eqtr4g ( ¬ ( 𝐼 ∈ V ∧ 𝑅 ∈ V ) → = ∅ )
41 34 1 4 elbasov ( 𝑓𝐵 → ( 𝐼 ∈ V ∧ 𝑅 ∈ V ) )
42 41 con3i ( ¬ ( 𝐼 ∈ V ∧ 𝑅 ∈ V ) → ¬ 𝑓𝐵 )
43 42 eq0rdv ( ¬ ( 𝐼 ∈ V ∧ 𝑅 ∈ V ) → 𝐵 = ∅ )
44 43 xpeq2d ( ¬ ( 𝐼 ∈ V ∧ 𝑅 ∈ V ) → ( 𝐾 × 𝐵 ) = ( 𝐾 × ∅ ) )
45 xp0 ( 𝐾 × ∅ ) = ∅
46 44 45 eqtrdi ( ¬ ( 𝐼 ∈ V ∧ 𝑅 ∈ V ) → ( 𝐾 × 𝐵 ) = ∅ )
47 40 46 fneq12d ( ¬ ( 𝐼 ∈ V ∧ 𝑅 ∈ V ) → ( Fn ( 𝐾 × 𝐵 ) ↔ ∅ Fn ∅ ) )
48 33 47 mpbiri ( ¬ ( 𝐼 ∈ V ∧ 𝑅 ∈ V ) → Fn ( 𝐾 × 𝐵 ) )
49 fnov ( Fn ( 𝐾 × 𝐵 ) ↔ = ( 𝑥𝐾 , 𝑓𝐵 ↦ ( 𝑥 𝑓 ) ) )
50 48 49 sylib ( ¬ ( 𝐼 ∈ V ∧ 𝑅 ∈ V ) → = ( 𝑥𝐾 , 𝑓𝐵 ↦ ( 𝑥 𝑓 ) ) )
51 42 pm2.21d ( ¬ ( 𝐼 ∈ V ∧ 𝑅 ∈ V ) → ( 𝑓𝐵 → ( ( 𝐷 × { 𝑥 } ) ∘f · 𝑓 ) = ( 𝑥 𝑓 ) ) )
52 51 a1d ( ¬ ( 𝐼 ∈ V ∧ 𝑅 ∈ V ) → ( 𝑥𝐾 → ( 𝑓𝐵 → ( ( 𝐷 × { 𝑥 } ) ∘f · 𝑓 ) = ( 𝑥 𝑓 ) ) ) )
53 52 3imp ( ( ¬ ( 𝐼 ∈ V ∧ 𝑅 ∈ V ) ∧ 𝑥𝐾𝑓𝐵 ) → ( ( 𝐷 × { 𝑥 } ) ∘f · 𝑓 ) = ( 𝑥 𝑓 ) )
54 53 mpoeq3dva ( ¬ ( 𝐼 ∈ V ∧ 𝑅 ∈ V ) → ( 𝑥𝐾 , 𝑓𝐵 ↦ ( ( 𝐷 × { 𝑥 } ) ∘f · 𝑓 ) ) = ( 𝑥𝐾 , 𝑓𝐵 ↦ ( 𝑥 𝑓 ) ) )
55 50 54 eqtr4d ( ¬ ( 𝐼 ∈ V ∧ 𝑅 ∈ V ) → = ( 𝑥𝐾 , 𝑓𝐵 ↦ ( ( 𝐷 × { 𝑥 } ) ∘f · 𝑓 ) ) )
56 30 55 pm2.61i = ( 𝑥𝐾 , 𝑓𝐵 ↦ ( ( 𝐷 × { 𝑥 } ) ∘f · 𝑓 ) )