MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  mptscmfsupp0 Structured version   Visualization version   GIF version

Theorem mptscmfsupp0 20402
Description: A mapping to a scalar product is finitely supported if the mapping to the scalar is finitely supported. (Contributed by AV, 5-Oct-2019.)
Hypotheses
Ref Expression
mptscmfsupp0.d (πœ‘ β†’ 𝐷 ∈ 𝑉)
mptscmfsupp0.q (πœ‘ β†’ 𝑄 ∈ LMod)
mptscmfsupp0.r (πœ‘ β†’ 𝑅 = (Scalarβ€˜π‘„))
mptscmfsupp0.k 𝐾 = (Baseβ€˜π‘„)
mptscmfsupp0.s ((πœ‘ ∧ π‘˜ ∈ 𝐷) β†’ 𝑆 ∈ 𝐡)
mptscmfsupp0.w ((πœ‘ ∧ π‘˜ ∈ 𝐷) β†’ π‘Š ∈ 𝐾)
mptscmfsupp0.0 0 = (0gβ€˜π‘„)
mptscmfsupp0.z 𝑍 = (0gβ€˜π‘…)
mptscmfsupp0.m βˆ— = ( ·𝑠 β€˜π‘„)
mptscmfsupp0.f (πœ‘ β†’ (π‘˜ ∈ 𝐷 ↦ 𝑆) finSupp 𝑍)
Assertion
Ref Expression
mptscmfsupp0 (πœ‘ β†’ (π‘˜ ∈ 𝐷 ↦ (𝑆 βˆ— π‘Š)) finSupp 0 )
Distinct variable groups:   𝐡,π‘˜   𝐷,π‘˜   π‘˜,𝐾   πœ‘,π‘˜   βˆ— ,π‘˜
Allowed substitution hints:   𝑄(π‘˜)   𝑅(π‘˜)   𝑆(π‘˜)   𝑉(π‘˜)   π‘Š(π‘˜)   0 (π‘˜)   𝑍(π‘˜)

Proof of Theorem mptscmfsupp0
Dummy variable 𝑑 is distinct from all other variables.
StepHypRef Expression
1 mptscmfsupp0.d . . 3 (πœ‘ β†’ 𝐷 ∈ 𝑉)
21mptexd 7175 . 2 (πœ‘ β†’ (π‘˜ ∈ 𝐷 ↦ (𝑆 βˆ— π‘Š)) ∈ V)
3 funmpt 6540 . . 3 Fun (π‘˜ ∈ 𝐷 ↦ (𝑆 βˆ— π‘Š))
43a1i 11 . 2 (πœ‘ β†’ Fun (π‘˜ ∈ 𝐷 ↦ (𝑆 βˆ— π‘Š)))
5 mptscmfsupp0.0 . . . 4 0 = (0gβ€˜π‘„)
65fvexi 6857 . . 3 0 ∈ V
76a1i 11 . 2 (πœ‘ β†’ 0 ∈ V)
8 mptscmfsupp0.f . . 3 (πœ‘ β†’ (π‘˜ ∈ 𝐷 ↦ 𝑆) finSupp 𝑍)
98fsuppimpd 9316 . 2 (πœ‘ β†’ ((π‘˜ ∈ 𝐷 ↦ 𝑆) supp 𝑍) ∈ Fin)
10 simpr 486 . . . . . . . 8 ((πœ‘ ∧ 𝑑 ∈ 𝐷) β†’ 𝑑 ∈ 𝐷)
11 mptscmfsupp0.s . . . . . . . . . . 11 ((πœ‘ ∧ π‘˜ ∈ 𝐷) β†’ 𝑆 ∈ 𝐡)
1211ralrimiva 3140 . . . . . . . . . 10 (πœ‘ β†’ βˆ€π‘˜ ∈ 𝐷 𝑆 ∈ 𝐡)
1312adantr 482 . . . . . . . . 9 ((πœ‘ ∧ 𝑑 ∈ 𝐷) β†’ βˆ€π‘˜ ∈ 𝐷 𝑆 ∈ 𝐡)
14 rspcsbela 4396 . . . . . . . . 9 ((𝑑 ∈ 𝐷 ∧ βˆ€π‘˜ ∈ 𝐷 𝑆 ∈ 𝐡) β†’ ⦋𝑑 / π‘˜β¦Œπ‘† ∈ 𝐡)
1510, 13, 14syl2anc 585 . . . . . . . 8 ((πœ‘ ∧ 𝑑 ∈ 𝐷) β†’ ⦋𝑑 / π‘˜β¦Œπ‘† ∈ 𝐡)
16 eqid 2733 . . . . . . . . 9 (π‘˜ ∈ 𝐷 ↦ 𝑆) = (π‘˜ ∈ 𝐷 ↦ 𝑆)
1716fvmpts 6952 . . . . . . . 8 ((𝑑 ∈ 𝐷 ∧ ⦋𝑑 / π‘˜β¦Œπ‘† ∈ 𝐡) β†’ ((π‘˜ ∈ 𝐷 ↦ 𝑆)β€˜π‘‘) = ⦋𝑑 / π‘˜β¦Œπ‘†)
1810, 15, 17syl2anc 585 . . . . . . 7 ((πœ‘ ∧ 𝑑 ∈ 𝐷) β†’ ((π‘˜ ∈ 𝐷 ↦ 𝑆)β€˜π‘‘) = ⦋𝑑 / π‘˜β¦Œπ‘†)
1918eqeq1d 2735 . . . . . 6 ((πœ‘ ∧ 𝑑 ∈ 𝐷) β†’ (((π‘˜ ∈ 𝐷 ↦ 𝑆)β€˜π‘‘) = 𝑍 ↔ ⦋𝑑 / π‘˜β¦Œπ‘† = 𝑍))
20 oveq1 7365 . . . . . . . . 9 (⦋𝑑 / π‘˜β¦Œπ‘† = 𝑍 β†’ (⦋𝑑 / π‘˜β¦Œπ‘† βˆ— ⦋𝑑 / π‘˜β¦Œπ‘Š) = (𝑍 βˆ— ⦋𝑑 / π‘˜β¦Œπ‘Š))
21 mptscmfsupp0.z . . . . . . . . . . . 12 𝑍 = (0gβ€˜π‘…)
22 mptscmfsupp0.r . . . . . . . . . . . . . 14 (πœ‘ β†’ 𝑅 = (Scalarβ€˜π‘„))
2322adantr 482 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑑 ∈ 𝐷) β†’ 𝑅 = (Scalarβ€˜π‘„))
2423fveq2d 6847 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑑 ∈ 𝐷) β†’ (0gβ€˜π‘…) = (0gβ€˜(Scalarβ€˜π‘„)))
2521, 24eqtrid 2785 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑑 ∈ 𝐷) β†’ 𝑍 = (0gβ€˜(Scalarβ€˜π‘„)))
2625oveq1d 7373 . . . . . . . . . 10 ((πœ‘ ∧ 𝑑 ∈ 𝐷) β†’ (𝑍 βˆ— ⦋𝑑 / π‘˜β¦Œπ‘Š) = ((0gβ€˜(Scalarβ€˜π‘„)) βˆ— ⦋𝑑 / π‘˜β¦Œπ‘Š))
27 mptscmfsupp0.q . . . . . . . . . . . 12 (πœ‘ β†’ 𝑄 ∈ LMod)
2827adantr 482 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑑 ∈ 𝐷) β†’ 𝑄 ∈ LMod)
29 mptscmfsupp0.w . . . . . . . . . . . . . 14 ((πœ‘ ∧ π‘˜ ∈ 𝐷) β†’ π‘Š ∈ 𝐾)
3029ralrimiva 3140 . . . . . . . . . . . . 13 (πœ‘ β†’ βˆ€π‘˜ ∈ 𝐷 π‘Š ∈ 𝐾)
3130adantr 482 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑑 ∈ 𝐷) β†’ βˆ€π‘˜ ∈ 𝐷 π‘Š ∈ 𝐾)
32 rspcsbela 4396 . . . . . . . . . . . 12 ((𝑑 ∈ 𝐷 ∧ βˆ€π‘˜ ∈ 𝐷 π‘Š ∈ 𝐾) β†’ ⦋𝑑 / π‘˜β¦Œπ‘Š ∈ 𝐾)
3310, 31, 32syl2anc 585 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑑 ∈ 𝐷) β†’ ⦋𝑑 / π‘˜β¦Œπ‘Š ∈ 𝐾)
34 mptscmfsupp0.k . . . . . . . . . . . 12 𝐾 = (Baseβ€˜π‘„)
35 eqid 2733 . . . . . . . . . . . 12 (Scalarβ€˜π‘„) = (Scalarβ€˜π‘„)
36 mptscmfsupp0.m . . . . . . . . . . . 12 βˆ— = ( ·𝑠 β€˜π‘„)
37 eqid 2733 . . . . . . . . . . . 12 (0gβ€˜(Scalarβ€˜π‘„)) = (0gβ€˜(Scalarβ€˜π‘„))
3834, 35, 36, 37, 5lmod0vs 20370 . . . . . . . . . . 11 ((𝑄 ∈ LMod ∧ ⦋𝑑 / π‘˜β¦Œπ‘Š ∈ 𝐾) β†’ ((0gβ€˜(Scalarβ€˜π‘„)) βˆ— ⦋𝑑 / π‘˜β¦Œπ‘Š) = 0 )
3928, 33, 38syl2anc 585 . . . . . . . . . 10 ((πœ‘ ∧ 𝑑 ∈ 𝐷) β†’ ((0gβ€˜(Scalarβ€˜π‘„)) βˆ— ⦋𝑑 / π‘˜β¦Œπ‘Š) = 0 )
4026, 39eqtrd 2773 . . . . . . . . 9 ((πœ‘ ∧ 𝑑 ∈ 𝐷) β†’ (𝑍 βˆ— ⦋𝑑 / π‘˜β¦Œπ‘Š) = 0 )
4120, 40sylan9eqr 2795 . . . . . . . 8 (((πœ‘ ∧ 𝑑 ∈ 𝐷) ∧ ⦋𝑑 / π‘˜β¦Œπ‘† = 𝑍) β†’ (⦋𝑑 / π‘˜β¦Œπ‘† βˆ— ⦋𝑑 / π‘˜β¦Œπ‘Š) = 0 )
42 csbov12g 7402 . . . . . . . . . . . . . 14 (𝑑 ∈ 𝐷 β†’ ⦋𝑑 / π‘˜β¦Œ(𝑆 βˆ— π‘Š) = (⦋𝑑 / π‘˜β¦Œπ‘† βˆ— ⦋𝑑 / π‘˜β¦Œπ‘Š))
4342adantl 483 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑑 ∈ 𝐷) β†’ ⦋𝑑 / π‘˜β¦Œ(𝑆 βˆ— π‘Š) = (⦋𝑑 / π‘˜β¦Œπ‘† βˆ— ⦋𝑑 / π‘˜β¦Œπ‘Š))
44 ovex 7391 . . . . . . . . . . . . 13 (⦋𝑑 / π‘˜β¦Œπ‘† βˆ— ⦋𝑑 / π‘˜β¦Œπ‘Š) ∈ V
4543, 44eqeltrdi 2842 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑑 ∈ 𝐷) β†’ ⦋𝑑 / π‘˜β¦Œ(𝑆 βˆ— π‘Š) ∈ V)
46 eqid 2733 . . . . . . . . . . . . 13 (π‘˜ ∈ 𝐷 ↦ (𝑆 βˆ— π‘Š)) = (π‘˜ ∈ 𝐷 ↦ (𝑆 βˆ— π‘Š))
4746fvmpts 6952 . . . . . . . . . . . 12 ((𝑑 ∈ 𝐷 ∧ ⦋𝑑 / π‘˜β¦Œ(𝑆 βˆ— π‘Š) ∈ V) β†’ ((π‘˜ ∈ 𝐷 ↦ (𝑆 βˆ— π‘Š))β€˜π‘‘) = ⦋𝑑 / π‘˜β¦Œ(𝑆 βˆ— π‘Š))
4810, 45, 47syl2anc 585 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑑 ∈ 𝐷) β†’ ((π‘˜ ∈ 𝐷 ↦ (𝑆 βˆ— π‘Š))β€˜π‘‘) = ⦋𝑑 / π‘˜β¦Œ(𝑆 βˆ— π‘Š))
4948, 43eqtrd 2773 . . . . . . . . . 10 ((πœ‘ ∧ 𝑑 ∈ 𝐷) β†’ ((π‘˜ ∈ 𝐷 ↦ (𝑆 βˆ— π‘Š))β€˜π‘‘) = (⦋𝑑 / π‘˜β¦Œπ‘† βˆ— ⦋𝑑 / π‘˜β¦Œπ‘Š))
5049eqeq1d 2735 . . . . . . . . 9 ((πœ‘ ∧ 𝑑 ∈ 𝐷) β†’ (((π‘˜ ∈ 𝐷 ↦ (𝑆 βˆ— π‘Š))β€˜π‘‘) = 0 ↔ (⦋𝑑 / π‘˜β¦Œπ‘† βˆ— ⦋𝑑 / π‘˜β¦Œπ‘Š) = 0 ))
5150adantr 482 . . . . . . . 8 (((πœ‘ ∧ 𝑑 ∈ 𝐷) ∧ ⦋𝑑 / π‘˜β¦Œπ‘† = 𝑍) β†’ (((π‘˜ ∈ 𝐷 ↦ (𝑆 βˆ— π‘Š))β€˜π‘‘) = 0 ↔ (⦋𝑑 / π‘˜β¦Œπ‘† βˆ— ⦋𝑑 / π‘˜β¦Œπ‘Š) = 0 ))
5241, 51mpbird 257 . . . . . . 7 (((πœ‘ ∧ 𝑑 ∈ 𝐷) ∧ ⦋𝑑 / π‘˜β¦Œπ‘† = 𝑍) β†’ ((π‘˜ ∈ 𝐷 ↦ (𝑆 βˆ— π‘Š))β€˜π‘‘) = 0 )
5352ex 414 . . . . . 6 ((πœ‘ ∧ 𝑑 ∈ 𝐷) β†’ (⦋𝑑 / π‘˜β¦Œπ‘† = 𝑍 β†’ ((π‘˜ ∈ 𝐷 ↦ (𝑆 βˆ— π‘Š))β€˜π‘‘) = 0 ))
5419, 53sylbid 239 . . . . 5 ((πœ‘ ∧ 𝑑 ∈ 𝐷) β†’ (((π‘˜ ∈ 𝐷 ↦ 𝑆)β€˜π‘‘) = 𝑍 β†’ ((π‘˜ ∈ 𝐷 ↦ (𝑆 βˆ— π‘Š))β€˜π‘‘) = 0 ))
5554necon3d 2961 . . . 4 ((πœ‘ ∧ 𝑑 ∈ 𝐷) β†’ (((π‘˜ ∈ 𝐷 ↦ (𝑆 βˆ— π‘Š))β€˜π‘‘) β‰  0 β†’ ((π‘˜ ∈ 𝐷 ↦ 𝑆)β€˜π‘‘) β‰  𝑍))
5655ss2rabdv 4034 . . 3 (πœ‘ β†’ {𝑑 ∈ 𝐷 ∣ ((π‘˜ ∈ 𝐷 ↦ (𝑆 βˆ— π‘Š))β€˜π‘‘) β‰  0 } βŠ† {𝑑 ∈ 𝐷 ∣ ((π‘˜ ∈ 𝐷 ↦ 𝑆)β€˜π‘‘) β‰  𝑍})
57 ovex 7391 . . . . . 6 (𝑆 βˆ— π‘Š) ∈ V
5857rgenw 3065 . . . . 5 βˆ€π‘˜ ∈ 𝐷 (𝑆 βˆ— π‘Š) ∈ V
5946fnmpt 6642 . . . . 5 (βˆ€π‘˜ ∈ 𝐷 (𝑆 βˆ— π‘Š) ∈ V β†’ (π‘˜ ∈ 𝐷 ↦ (𝑆 βˆ— π‘Š)) Fn 𝐷)
6058, 59mp1i 13 . . . 4 (πœ‘ β†’ (π‘˜ ∈ 𝐷 ↦ (𝑆 βˆ— π‘Š)) Fn 𝐷)
61 suppvalfn 8101 . . . 4 (((π‘˜ ∈ 𝐷 ↦ (𝑆 βˆ— π‘Š)) Fn 𝐷 ∧ 𝐷 ∈ 𝑉 ∧ 0 ∈ V) β†’ ((π‘˜ ∈ 𝐷 ↦ (𝑆 βˆ— π‘Š)) supp 0 ) = {𝑑 ∈ 𝐷 ∣ ((π‘˜ ∈ 𝐷 ↦ (𝑆 βˆ— π‘Š))β€˜π‘‘) β‰  0 })
6260, 1, 7, 61syl3anc 1372 . . 3 (πœ‘ β†’ ((π‘˜ ∈ 𝐷 ↦ (𝑆 βˆ— π‘Š)) supp 0 ) = {𝑑 ∈ 𝐷 ∣ ((π‘˜ ∈ 𝐷 ↦ (𝑆 βˆ— π‘Š))β€˜π‘‘) β‰  0 })
6316fnmpt 6642 . . . . 5 (βˆ€π‘˜ ∈ 𝐷 𝑆 ∈ 𝐡 β†’ (π‘˜ ∈ 𝐷 ↦ 𝑆) Fn 𝐷)
6412, 63syl 17 . . . 4 (πœ‘ β†’ (π‘˜ ∈ 𝐷 ↦ 𝑆) Fn 𝐷)
6521fvexi 6857 . . . . 5 𝑍 ∈ V
6665a1i 11 . . . 4 (πœ‘ β†’ 𝑍 ∈ V)
67 suppvalfn 8101 . . . 4 (((π‘˜ ∈ 𝐷 ↦ 𝑆) Fn 𝐷 ∧ 𝐷 ∈ 𝑉 ∧ 𝑍 ∈ V) β†’ ((π‘˜ ∈ 𝐷 ↦ 𝑆) supp 𝑍) = {𝑑 ∈ 𝐷 ∣ ((π‘˜ ∈ 𝐷 ↦ 𝑆)β€˜π‘‘) β‰  𝑍})
6864, 1, 66, 67syl3anc 1372 . . 3 (πœ‘ β†’ ((π‘˜ ∈ 𝐷 ↦ 𝑆) supp 𝑍) = {𝑑 ∈ 𝐷 ∣ ((π‘˜ ∈ 𝐷 ↦ 𝑆)β€˜π‘‘) β‰  𝑍})
6956, 62, 683sstr4d 3992 . 2 (πœ‘ β†’ ((π‘˜ ∈ 𝐷 ↦ (𝑆 βˆ— π‘Š)) supp 0 ) βŠ† ((π‘˜ ∈ 𝐷 ↦ 𝑆) supp 𝑍))
70 suppssfifsupp 9325 . 2 ((((π‘˜ ∈ 𝐷 ↦ (𝑆 βˆ— π‘Š)) ∈ V ∧ Fun (π‘˜ ∈ 𝐷 ↦ (𝑆 βˆ— π‘Š)) ∧ 0 ∈ V) ∧ (((π‘˜ ∈ 𝐷 ↦ 𝑆) supp 𝑍) ∈ Fin ∧ ((π‘˜ ∈ 𝐷 ↦ (𝑆 βˆ— π‘Š)) supp 0 ) βŠ† ((π‘˜ ∈ 𝐷 ↦ 𝑆) supp 𝑍))) β†’ (π‘˜ ∈ 𝐷 ↦ (𝑆 βˆ— π‘Š)) finSupp 0 )
712, 4, 7, 9, 69, 70syl32anc 1379 1 (πœ‘ β†’ (π‘˜ ∈ 𝐷 ↦ (𝑆 βˆ— π‘Š)) finSupp 0 )
Colors of variables: wff setvar class
Syntax hints:   β†’ wi 4   ↔ wb 205   ∧ wa 397   = wceq 1542   ∈ wcel 2107   β‰  wne 2940  βˆ€wral 3061  {crab 3406  Vcvv 3444  β¦‹csb 3856   βŠ† wss 3911   class class class wbr 5106   ↦ cmpt 5189  Fun wfun 6491   Fn wfn 6492  β€˜cfv 6497  (class class class)co 7358   supp csupp 8093  Fincfn 8886   finSupp cfsupp 9308  Basecbs 17088  Scalarcsca 17141   ·𝑠 cvsca 17142  0gc0g 17326  LModclmod 20336
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1798  ax-4 1812  ax-5 1914  ax-6 1972  ax-7 2012  ax-8 2109  ax-9 2117  ax-10 2138  ax-11 2155  ax-12 2172  ax-ext 2704  ax-rep 5243  ax-sep 5257  ax-nul 5264  ax-pr 5385  ax-un 7673
This theorem depends on definitions:  df-bi 206  df-an 398  df-or 847  df-3or 1089  df-3an 1090  df-tru 1545  df-fal 1555  df-ex 1783  df-nf 1787  df-sb 2069  df-mo 2535  df-eu 2564  df-clab 2711  df-cleq 2725  df-clel 2811  df-nfc 2886  df-ne 2941  df-ral 3062  df-rex 3071  df-rmo 3352  df-reu 3353  df-rab 3407  df-v 3446  df-sbc 3741  df-csb 3857  df-dif 3914  df-un 3916  df-in 3918  df-ss 3928  df-pss 3930  df-nul 4284  df-if 4488  df-pw 4563  df-sn 4588  df-pr 4590  df-op 4594  df-uni 4867  df-iun 4957  df-br 5107  df-opab 5169  df-mpt 5190  df-tr 5224  df-id 5532  df-eprel 5538  df-po 5546  df-so 5547  df-fr 5589  df-we 5591  df-xp 5640  df-rel 5641  df-cnv 5642  df-co 5643  df-dm 5644  df-rn 5645  df-res 5646  df-ima 5647  df-ord 6321  df-on 6322  df-lim 6323  df-suc 6324  df-iota 6449  df-fun 6499  df-fn 6500  df-f 6501  df-f1 6502  df-fo 6503  df-f1o 6504  df-fv 6505  df-riota 7314  df-ov 7361  df-oprab 7362  df-mpo 7363  df-om 7804  df-supp 8094  df-1o 8413  df-en 8887  df-fin 8890  df-fsupp 9309  df-0g 17328  df-mgm 18502  df-sgrp 18551  df-mnd 18562  df-grp 18756  df-ring 19971  df-lmod 20338
This theorem is referenced by:  mptscmfsuppd  20403  gsumsmonply1  21690  pm2mpcl  22162  mply1topmatcllem  22168  mp2pm2mplem5  22175  pm2mpghmlem2  22177  chcoeffeqlem  22250  lbsdiflsp0  32378  fedgmullem2  32382
  Copyright terms: Public domain W3C validator