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

Theorem mptscmfsupp0 20295
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 7157 . 2 (𝜑 → (𝑘𝐷 ↦ (𝑆 𝑊)) ∈ V)
3 funmpt 6523 . . 3 Fun (𝑘𝐷 ↦ (𝑆 𝑊))
43a1i 11 . 2 (𝜑 → Fun (𝑘𝐷 ↦ (𝑆 𝑊)))
5 mptscmfsupp0.0 . . . 4 0 = (0g𝑄)
65fvexi 6840 . . 3 0 ∈ V
76a1i 11 . 2 (𝜑0 ∈ V)
8 mptscmfsupp0.f . . 3 (𝜑 → (𝑘𝐷𝑆) finSupp 𝑍)
98fsuppimpd 9234 . 2 (𝜑 → ((𝑘𝐷𝑆) supp 𝑍) ∈ Fin)
10 simpr 485 . . . . . . . 8 ((𝜑𝑑𝐷) → 𝑑𝐷)
11 mptscmfsupp0.s . . . . . . . . . . 11 ((𝜑𝑘𝐷) → 𝑆𝐵)
1211ralrimiva 3139 . . . . . . . . . 10 (𝜑 → ∀𝑘𝐷 𝑆𝐵)
1312adantr 481 . . . . . . . . 9 ((𝜑𝑑𝐷) → ∀𝑘𝐷 𝑆𝐵)
14 rspcsbela 4383 . . . . . . . . 9 ((𝑑𝐷 ∧ ∀𝑘𝐷 𝑆𝐵) → 𝑑 / 𝑘𝑆𝐵)
1510, 13, 14syl2anc 584 . . . . . . . 8 ((𝜑𝑑𝐷) → 𝑑 / 𝑘𝑆𝐵)
16 eqid 2736 . . . . . . . . 9 (𝑘𝐷𝑆) = (𝑘𝐷𝑆)
1716fvmpts 6935 . . . . . . . 8 ((𝑑𝐷𝑑 / 𝑘𝑆𝐵) → ((𝑘𝐷𝑆)‘𝑑) = 𝑑 / 𝑘𝑆)
1810, 15, 17syl2anc 584 . . . . . . 7 ((𝜑𝑑𝐷) → ((𝑘𝐷𝑆)‘𝑑) = 𝑑 / 𝑘𝑆)
1918eqeq1d 2738 . . . . . 6 ((𝜑𝑑𝐷) → (((𝑘𝐷𝑆)‘𝑑) = 𝑍𝑑 / 𝑘𝑆 = 𝑍))
20 oveq1 7345 . . . . . . . . 9 (𝑑 / 𝑘𝑆 = 𝑍 → (𝑑 / 𝑘𝑆 𝑑 / 𝑘𝑊) = (𝑍 𝑑 / 𝑘𝑊))
21 mptscmfsupp0.z . . . . . . . . . . . 12 𝑍 = (0g𝑅)
22 mptscmfsupp0.r . . . . . . . . . . . . . 14 (𝜑𝑅 = (Scalar‘𝑄))
2322adantr 481 . . . . . . . . . . . . 13 ((𝜑𝑑𝐷) → 𝑅 = (Scalar‘𝑄))
2423fveq2d 6830 . . . . . . . . . . . 12 ((𝜑𝑑𝐷) → (0g𝑅) = (0g‘(Scalar‘𝑄)))
2521, 24eqtrid 2788 . . . . . . . . . . 11 ((𝜑𝑑𝐷) → 𝑍 = (0g‘(Scalar‘𝑄)))
2625oveq1d 7353 . . . . . . . . . 10 ((𝜑𝑑𝐷) → (𝑍 𝑑 / 𝑘𝑊) = ((0g‘(Scalar‘𝑄)) 𝑑 / 𝑘𝑊))
27 mptscmfsupp0.q . . . . . . . . . . . 12 (𝜑𝑄 ∈ LMod)
2827adantr 481 . . . . . . . . . . 11 ((𝜑𝑑𝐷) → 𝑄 ∈ LMod)
29 mptscmfsupp0.w . . . . . . . . . . . . . 14 ((𝜑𝑘𝐷) → 𝑊𝐾)
3029ralrimiva 3139 . . . . . . . . . . . . 13 (𝜑 → ∀𝑘𝐷 𝑊𝐾)
3130adantr 481 . . . . . . . . . . . 12 ((𝜑𝑑𝐷) → ∀𝑘𝐷 𝑊𝐾)
32 rspcsbela 4383 . . . . . . . . . . . 12 ((𝑑𝐷 ∧ ∀𝑘𝐷 𝑊𝐾) → 𝑑 / 𝑘𝑊𝐾)
3310, 31, 32syl2anc 584 . . . . . . . . . . 11 ((𝜑𝑑𝐷) → 𝑑 / 𝑘𝑊𝐾)
34 mptscmfsupp0.k . . . . . . . . . . . 12 𝐾 = (Base‘𝑄)
35 eqid 2736 . . . . . . . . . . . 12 (Scalar‘𝑄) = (Scalar‘𝑄)
36 mptscmfsupp0.m . . . . . . . . . . . 12 = ( ·𝑠𝑄)
37 eqid 2736 . . . . . . . . . . . 12 (0g‘(Scalar‘𝑄)) = (0g‘(Scalar‘𝑄))
3834, 35, 36, 37, 5lmod0vs 20263 . . . . . . . . . . 11 ((𝑄 ∈ LMod ∧ 𝑑 / 𝑘𝑊𝐾) → ((0g‘(Scalar‘𝑄)) 𝑑 / 𝑘𝑊) = 0 )
3928, 33, 38syl2anc 584 . . . . . . . . . 10 ((𝜑𝑑𝐷) → ((0g‘(Scalar‘𝑄)) 𝑑 / 𝑘𝑊) = 0 )
4026, 39eqtrd 2776 . . . . . . . . 9 ((𝜑𝑑𝐷) → (𝑍 𝑑 / 𝑘𝑊) = 0 )
4120, 40sylan9eqr 2798 . . . . . . . 8 (((𝜑𝑑𝐷) ∧ 𝑑 / 𝑘𝑆 = 𝑍) → (𝑑 / 𝑘𝑆 𝑑 / 𝑘𝑊) = 0 )
42 csbov12g 7382 . . . . . . . . . . . . . 14 (𝑑𝐷𝑑 / 𝑘(𝑆 𝑊) = (𝑑 / 𝑘𝑆 𝑑 / 𝑘𝑊))
4342adantl 482 . . . . . . . . . . . . 13 ((𝜑𝑑𝐷) → 𝑑 / 𝑘(𝑆 𝑊) = (𝑑 / 𝑘𝑆 𝑑 / 𝑘𝑊))
44 ovex 7371 . . . . . . . . . . . . 13 (𝑑 / 𝑘𝑆 𝑑 / 𝑘𝑊) ∈ V
4543, 44eqeltrdi 2845 . . . . . . . . . . . 12 ((𝜑𝑑𝐷) → 𝑑 / 𝑘(𝑆 𝑊) ∈ V)
46 eqid 2736 . . . . . . . . . . . . 13 (𝑘𝐷 ↦ (𝑆 𝑊)) = (𝑘𝐷 ↦ (𝑆 𝑊))
4746fvmpts 6935 . . . . . . . . . . . 12 ((𝑑𝐷𝑑 / 𝑘(𝑆 𝑊) ∈ V) → ((𝑘𝐷 ↦ (𝑆 𝑊))‘𝑑) = 𝑑 / 𝑘(𝑆 𝑊))
4810, 45, 47syl2anc 584 . . . . . . . . . . 11 ((𝜑𝑑𝐷) → ((𝑘𝐷 ↦ (𝑆 𝑊))‘𝑑) = 𝑑 / 𝑘(𝑆 𝑊))
4948, 43eqtrd 2776 . . . . . . . . . 10 ((𝜑𝑑𝐷) → ((𝑘𝐷 ↦ (𝑆 𝑊))‘𝑑) = (𝑑 / 𝑘𝑆 𝑑 / 𝑘𝑊))
5049eqeq1d 2738 . . . . . . . . 9 ((𝜑𝑑𝐷) → (((𝑘𝐷 ↦ (𝑆 𝑊))‘𝑑) = 0 ↔ (𝑑 / 𝑘𝑆 𝑑 / 𝑘𝑊) = 0 ))
5150adantr 481 . . . . . . . 8 (((𝜑𝑑𝐷) ∧ 𝑑 / 𝑘𝑆 = 𝑍) → (((𝑘𝐷 ↦ (𝑆 𝑊))‘𝑑) = 0 ↔ (𝑑 / 𝑘𝑆 𝑑 / 𝑘𝑊) = 0 ))
5241, 51mpbird 256 . . . . . . 7 (((𝜑𝑑𝐷) ∧ 𝑑 / 𝑘𝑆 = 𝑍) → ((𝑘𝐷 ↦ (𝑆 𝑊))‘𝑑) = 0 )
5352ex 413 . . . . . 6 ((𝜑𝑑𝐷) → (𝑑 / 𝑘𝑆 = 𝑍 → ((𝑘𝐷 ↦ (𝑆 𝑊))‘𝑑) = 0 ))
5419, 53sylbid 239 . . . . 5 ((𝜑𝑑𝐷) → (((𝑘𝐷𝑆)‘𝑑) = 𝑍 → ((𝑘𝐷 ↦ (𝑆 𝑊))‘𝑑) = 0 ))
5554necon3d 2961 . . . 4 ((𝜑𝑑𝐷) → (((𝑘𝐷 ↦ (𝑆 𝑊))‘𝑑) ≠ 0 → ((𝑘𝐷𝑆)‘𝑑) ≠ 𝑍))
5655ss2rabdv 4021 . . 3 (𝜑 → {𝑑𝐷 ∣ ((𝑘𝐷 ↦ (𝑆 𝑊))‘𝑑) ≠ 0 } ⊆ {𝑑𝐷 ∣ ((𝑘𝐷𝑆)‘𝑑) ≠ 𝑍})
57 ovex 7371 . . . . . 6 (𝑆 𝑊) ∈ V
5857rgenw 3065 . . . . 5 𝑘𝐷 (𝑆 𝑊) ∈ V
5946fnmpt 6625 . . . . 5 (∀𝑘𝐷 (𝑆 𝑊) ∈ V → (𝑘𝐷 ↦ (𝑆 𝑊)) Fn 𝐷)
6058, 59mp1i 13 . . . 4 (𝜑 → (𝑘𝐷 ↦ (𝑆 𝑊)) Fn 𝐷)
61 suppvalfn 8056 . . . 4 (((𝑘𝐷 ↦ (𝑆 𝑊)) Fn 𝐷𝐷𝑉0 ∈ V) → ((𝑘𝐷 ↦ (𝑆 𝑊)) supp 0 ) = {𝑑𝐷 ∣ ((𝑘𝐷 ↦ (𝑆 𝑊))‘𝑑) ≠ 0 })
6260, 1, 7, 61syl3anc 1370 . . 3 (𝜑 → ((𝑘𝐷 ↦ (𝑆 𝑊)) supp 0 ) = {𝑑𝐷 ∣ ((𝑘𝐷 ↦ (𝑆 𝑊))‘𝑑) ≠ 0 })
6316fnmpt 6625 . . . . 5 (∀𝑘𝐷 𝑆𝐵 → (𝑘𝐷𝑆) Fn 𝐷)
6412, 63syl 17 . . . 4 (𝜑 → (𝑘𝐷𝑆) Fn 𝐷)
6521fvexi 6840 . . . . 5 𝑍 ∈ V
6665a1i 11 . . . 4 (𝜑𝑍 ∈ V)
67 suppvalfn 8056 . . . 4 (((𝑘𝐷𝑆) Fn 𝐷𝐷𝑉𝑍 ∈ V) → ((𝑘𝐷𝑆) supp 𝑍) = {𝑑𝐷 ∣ ((𝑘𝐷𝑆)‘𝑑) ≠ 𝑍})
6864, 1, 66, 67syl3anc 1370 . . 3 (𝜑 → ((𝑘𝐷𝑆) supp 𝑍) = {𝑑𝐷 ∣ ((𝑘𝐷𝑆)‘𝑑) ≠ 𝑍})
6956, 62, 683sstr4d 3979 . 2 (𝜑 → ((𝑘𝐷 ↦ (𝑆 𝑊)) supp 0 ) ⊆ ((𝑘𝐷𝑆) supp 𝑍))
70 suppssfifsupp 9242 . 2 ((((𝑘𝐷 ↦ (𝑆 𝑊)) ∈ V ∧ Fun (𝑘𝐷 ↦ (𝑆 𝑊)) ∧ 0 ∈ V) ∧ (((𝑘𝐷𝑆) supp 𝑍) ∈ Fin ∧ ((𝑘𝐷 ↦ (𝑆 𝑊)) supp 0 ) ⊆ ((𝑘𝐷𝑆) supp 𝑍))) → (𝑘𝐷 ↦ (𝑆 𝑊)) finSupp 0 )
712, 4, 7, 9, 69, 70syl32anc 1377 1 (𝜑 → (𝑘𝐷 ↦ (𝑆 𝑊)) finSupp 0 )
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 205  wa 396   = wceq 1540  wcel 2105  wne 2940  wral 3061  {crab 3403  Vcvv 3441  csb 3843  wss 3898   class class class wbr 5093  cmpt 5176  Fun wfun 6474   Fn wfn 6475  cfv 6480  (class class class)co 7338   supp csupp 8048  Fincfn 8805   finSupp cfsupp 9227  Basecbs 17010  Scalarcsca 17063   ·𝑠 cvsca 17064  0gc0g 17248  LModclmod 20230
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1912  ax-6 1970  ax-7 2010  ax-8 2107  ax-9 2115  ax-10 2136  ax-11 2153  ax-12 2170  ax-ext 2707  ax-rep 5230  ax-sep 5244  ax-nul 5251  ax-pr 5373  ax-un 7651
This theorem depends on definitions:  df-bi 206  df-an 397  df-or 845  df-3or 1087  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1781  df-nf 1785  df-sb 2067  df-mo 2538  df-eu 2567  df-clab 2714  df-cleq 2728  df-clel 2814  df-nfc 2886  df-ne 2941  df-ral 3062  df-rex 3071  df-rmo 3349  df-reu 3350  df-rab 3404  df-v 3443  df-sbc 3728  df-csb 3844  df-dif 3901  df-un 3903  df-in 3905  df-ss 3915  df-pss 3917  df-nul 4271  df-if 4475  df-pw 4550  df-sn 4575  df-pr 4577  df-op 4581  df-uni 4854  df-iun 4944  df-br 5094  df-opab 5156  df-mpt 5177  df-tr 5211  df-id 5519  df-eprel 5525  df-po 5533  df-so 5534  df-fr 5576  df-we 5578  df-xp 5627  df-rel 5628  df-cnv 5629  df-co 5630  df-dm 5631  df-rn 5632  df-res 5633  df-ima 5634  df-ord 6306  df-on 6307  df-lim 6308  df-suc 6309  df-iota 6432  df-fun 6482  df-fn 6483  df-f 6484  df-f1 6485  df-fo 6486  df-f1o 6487  df-fv 6488  df-riota 7294  df-ov 7341  df-oprab 7342  df-mpo 7343  df-om 7782  df-supp 8049  df-1o 8368  df-en 8806  df-fin 8809  df-fsupp 9228  df-0g 17250  df-mgm 18424  df-sgrp 18473  df-mnd 18484  df-grp 18677  df-ring 19881  df-lmod 20232
This theorem is referenced by:  mptscmfsuppd  20296  gsumsmonply1  21581  pm2mpcl  22053  mply1topmatcllem  22059  mp2pm2mplem5  22066  pm2mpghmlem2  22068  chcoeffeqlem  22141  lbsdiflsp0  32005  fedgmullem2  32009
  Copyright terms: Public domain W3C validator