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

Theorem gsumply1eq 21474
Description: Two univariate polynomials given as (finitely supported) sum of scaled monomials are equal iff the corresponding coefficients are equal. (Contributed by AV, 21-Nov-2019.)
Hypotheses
Ref Expression
gsumply1eq.p 𝑃 = (Poly1𝑅)
gsumply1eq.x 𝑋 = (var1𝑅)
gsumply1eq.e = (.g‘(mulGrp‘𝑃))
gsumply1eq.r (𝜑𝑅 ∈ Ring)
gsumply1eq.k 𝐾 = (Base‘𝑅)
gsumply1eq.m = ( ·𝑠𝑃)
gsumply1eq.0 0 = (0g𝑅)
gsumply1eq.a (𝜑 → ∀𝑘 ∈ ℕ0 𝐴𝐾)
gsumply1eq.f1 (𝜑 → (𝑘 ∈ ℕ0𝐴) finSupp 0 )
gsumply1eq.b (𝜑 → ∀𝑘 ∈ ℕ0 𝐵𝐾)
gsumply1eq.f2 (𝜑 → (𝑘 ∈ ℕ0𝐵) finSupp 0 )
gsumply1eq.o (𝜑𝑂 = (𝑃 Σg (𝑘 ∈ ℕ0 ↦ (𝐴 (𝑘 𝑋)))))
gsumply1eq.q (𝜑𝑄 = (𝑃 Σg (𝑘 ∈ ℕ0 ↦ (𝐵 (𝑘 𝑋)))))
Assertion
Ref Expression
gsumply1eq (𝜑 → (𝑂 = 𝑄 ↔ ∀𝑘 ∈ ℕ0 𝐴 = 𝐵))
Distinct variable groups:   𝑘,𝐾   𝑘,𝑂   𝑃,𝑘   𝑄,𝑘   𝑅,𝑘   𝑘,𝑋   𝜑,𝑘   0 ,𝑘   ,𝑘   ,𝑘
Allowed substitution hints:   𝐴(𝑘)   𝐵(𝑘)

Proof of Theorem gsumply1eq
Dummy variable 𝑙 is distinct from all other variables.
StepHypRef Expression
1 gsumply1eq.r . . 3 (𝜑𝑅 ∈ Ring)
2 gsumply1eq.o . . . 4 (𝜑𝑂 = (𝑃 Σg (𝑘 ∈ ℕ0 ↦ (𝐴 (𝑘 𝑋)))))
3 gsumply1eq.p . . . . 5 𝑃 = (Poly1𝑅)
4 eqid 2740 . . . . 5 (Base‘𝑃) = (Base‘𝑃)
5 gsumply1eq.x . . . . 5 𝑋 = (var1𝑅)
6 gsumply1eq.e . . . . 5 = (.g‘(mulGrp‘𝑃))
7 gsumply1eq.k . . . . 5 𝐾 = (Base‘𝑅)
8 gsumply1eq.m . . . . 5 = ( ·𝑠𝑃)
9 gsumply1eq.0 . . . . 5 0 = (0g𝑅)
10 gsumply1eq.a . . . . 5 (𝜑 → ∀𝑘 ∈ ℕ0 𝐴𝐾)
11 gsumply1eq.f1 . . . . 5 (𝜑 → (𝑘 ∈ ℕ0𝐴) finSupp 0 )
123, 4, 5, 6, 1, 7, 8, 9, 10, 11gsumsmonply1 21472 . . . 4 (𝜑 → (𝑃 Σg (𝑘 ∈ ℕ0 ↦ (𝐴 (𝑘 𝑋)))) ∈ (Base‘𝑃))
132, 12eqeltrd 2841 . . 3 (𝜑𝑂 ∈ (Base‘𝑃))
14 gsumply1eq.q . . . 4 (𝜑𝑄 = (𝑃 Σg (𝑘 ∈ ℕ0 ↦ (𝐵 (𝑘 𝑋)))))
15 gsumply1eq.b . . . . 5 (𝜑 → ∀𝑘 ∈ ℕ0 𝐵𝐾)
16 gsumply1eq.f2 . . . . 5 (𝜑 → (𝑘 ∈ ℕ0𝐵) finSupp 0 )
173, 4, 5, 6, 1, 7, 8, 9, 15, 16gsumsmonply1 21472 . . . 4 (𝜑 → (𝑃 Σg (𝑘 ∈ ℕ0 ↦ (𝐵 (𝑘 𝑋)))) ∈ (Base‘𝑃))
1814, 17eqeltrd 2841 . . 3 (𝜑𝑄 ∈ (Base‘𝑃))
19 eqid 2740 . . . . 5 (coe1𝑂) = (coe1𝑂)
20 eqid 2740 . . . . 5 (coe1𝑄) = (coe1𝑄)
213, 4, 19, 20ply1coe1eq 21467 . . . 4 ((𝑅 ∈ Ring ∧ 𝑂 ∈ (Base‘𝑃) ∧ 𝑄 ∈ (Base‘𝑃)) → (∀𝑘 ∈ ℕ0 ((coe1𝑂)‘𝑘) = ((coe1𝑄)‘𝑘) ↔ 𝑂 = 𝑄))
2221bicomd 222 . . 3 ((𝑅 ∈ Ring ∧ 𝑂 ∈ (Base‘𝑃) ∧ 𝑄 ∈ (Base‘𝑃)) → (𝑂 = 𝑄 ↔ ∀𝑘 ∈ ℕ0 ((coe1𝑂)‘𝑘) = ((coe1𝑄)‘𝑘)))
231, 13, 18, 22syl3anc 1370 . 2 (𝜑 → (𝑂 = 𝑄 ↔ ∀𝑘 ∈ ℕ0 ((coe1𝑂)‘𝑘) = ((coe1𝑄)‘𝑘)))
242adantr 481 . . . . . . . 8 ((𝜑𝑘 ∈ ℕ0) → 𝑂 = (𝑃 Σg (𝑘 ∈ ℕ0 ↦ (𝐴 (𝑘 𝑋)))))
25 nfcv 2909 . . . . . . . . . 10 𝑙(𝐴 (𝑘 𝑋))
26 nfcsb1v 3862 . . . . . . . . . . 11 𝑘𝑙 / 𝑘𝐴
27 nfcv 2909 . . . . . . . . . . 11 𝑘
28 nfcv 2909 . . . . . . . . . . 11 𝑘(𝑙 𝑋)
2926, 27, 28nfov 7301 . . . . . . . . . 10 𝑘(𝑙 / 𝑘𝐴 (𝑙 𝑋))
30 csbeq1a 3851 . . . . . . . . . . 11 (𝑘 = 𝑙𝐴 = 𝑙 / 𝑘𝐴)
31 oveq1 7278 . . . . . . . . . . 11 (𝑘 = 𝑙 → (𝑘 𝑋) = (𝑙 𝑋))
3230, 31oveq12d 7289 . . . . . . . . . 10 (𝑘 = 𝑙 → (𝐴 (𝑘 𝑋)) = (𝑙 / 𝑘𝐴 (𝑙 𝑋)))
3325, 29, 32cbvmpt 5190 . . . . . . . . 9 (𝑘 ∈ ℕ0 ↦ (𝐴 (𝑘 𝑋))) = (𝑙 ∈ ℕ0 ↦ (𝑙 / 𝑘𝐴 (𝑙 𝑋)))
3433oveq2i 7282 . . . . . . . 8 (𝑃 Σg (𝑘 ∈ ℕ0 ↦ (𝐴 (𝑘 𝑋)))) = (𝑃 Σg (𝑙 ∈ ℕ0 ↦ (𝑙 / 𝑘𝐴 (𝑙 𝑋))))
3524, 34eqtrdi 2796 . . . . . . 7 ((𝜑𝑘 ∈ ℕ0) → 𝑂 = (𝑃 Σg (𝑙 ∈ ℕ0 ↦ (𝑙 / 𝑘𝐴 (𝑙 𝑋)))))
3635fveq2d 6775 . . . . . 6 ((𝜑𝑘 ∈ ℕ0) → (coe1𝑂) = (coe1‘(𝑃 Σg (𝑙 ∈ ℕ0 ↦ (𝑙 / 𝑘𝐴 (𝑙 𝑋))))))
3736fveq1d 6773 . . . . 5 ((𝜑𝑘 ∈ ℕ0) → ((coe1𝑂)‘𝑘) = ((coe1‘(𝑃 Σg (𝑙 ∈ ℕ0 ↦ (𝑙 / 𝑘𝐴 (𝑙 𝑋)))))‘𝑘))
381adantr 481 . . . . . . 7 ((𝜑𝑘 ∈ ℕ0) → 𝑅 ∈ Ring)
39 nfv 1921 . . . . . . . . . 10 𝑙 𝐴𝐾
4026nfel1 2925 . . . . . . . . . 10 𝑘𝑙 / 𝑘𝐴𝐾
4130eleq1d 2825 . . . . . . . . . 10 (𝑘 = 𝑙 → (𝐴𝐾𝑙 / 𝑘𝐴𝐾))
4239, 40, 41cbvralw 3372 . . . . . . . . 9 (∀𝑘 ∈ ℕ0 𝐴𝐾 ↔ ∀𝑙 ∈ ℕ0 𝑙 / 𝑘𝐴𝐾)
4310, 42sylib 217 . . . . . . . 8 (𝜑 → ∀𝑙 ∈ ℕ0 𝑙 / 𝑘𝐴𝐾)
4443adantr 481 . . . . . . 7 ((𝜑𝑘 ∈ ℕ0) → ∀𝑙 ∈ ℕ0 𝑙 / 𝑘𝐴𝐾)
45 nfcv 2909 . . . . . . . . . 10 𝑙𝐴
4645, 26, 30cbvmpt 5190 . . . . . . . . 9 (𝑘 ∈ ℕ0𝐴) = (𝑙 ∈ ℕ0𝑙 / 𝑘𝐴)
4746, 11eqbrtrrid 5115 . . . . . . . 8 (𝜑 → (𝑙 ∈ ℕ0𝑙 / 𝑘𝐴) finSupp 0 )
4847adantr 481 . . . . . . 7 ((𝜑𝑘 ∈ ℕ0) → (𝑙 ∈ ℕ0𝑙 / 𝑘𝐴) finSupp 0 )
49 simpr 485 . . . . . . 7 ((𝜑𝑘 ∈ ℕ0) → 𝑘 ∈ ℕ0)
503, 4, 5, 6, 38, 7, 8, 9, 44, 48, 49gsummoncoe1 21473 . . . . . 6 ((𝜑𝑘 ∈ ℕ0) → ((coe1‘(𝑃 Σg (𝑙 ∈ ℕ0 ↦ (𝑙 / 𝑘𝐴 (𝑙 𝑋)))))‘𝑘) = 𝑘 / 𝑙𝑙 / 𝑘𝐴)
51 csbcow 3852 . . . . . . 7 𝑘 / 𝑙𝑙 / 𝑘𝐴 = 𝑘 / 𝑘𝐴
52 csbid 3850 . . . . . . 7 𝑘 / 𝑘𝐴 = 𝐴
5351, 52eqtri 2768 . . . . . 6 𝑘 / 𝑙𝑙 / 𝑘𝐴 = 𝐴
5450, 53eqtrdi 2796 . . . . 5 ((𝜑𝑘 ∈ ℕ0) → ((coe1‘(𝑃 Σg (𝑙 ∈ ℕ0 ↦ (𝑙 / 𝑘𝐴 (𝑙 𝑋)))))‘𝑘) = 𝐴)
5537, 54eqtrd 2780 . . . 4 ((𝜑𝑘 ∈ ℕ0) → ((coe1𝑂)‘𝑘) = 𝐴)
5614adantr 481 . . . . . . . 8 ((𝜑𝑘 ∈ ℕ0) → 𝑄 = (𝑃 Σg (𝑘 ∈ ℕ0 ↦ (𝐵 (𝑘 𝑋)))))
57 nfcv 2909 . . . . . . . . . . 11 𝑙(𝐵 (𝑘 𝑋))
58 nfcsb1v 3862 . . . . . . . . . . . 12 𝑘𝑙 / 𝑘𝐵
5958, 27, 28nfov 7301 . . . . . . . . . . 11 𝑘(𝑙 / 𝑘𝐵 (𝑙 𝑋))
60 csbeq1a 3851 . . . . . . . . . . . 12 (𝑘 = 𝑙𝐵 = 𝑙 / 𝑘𝐵)
6160, 31oveq12d 7289 . . . . . . . . . . 11 (𝑘 = 𝑙 → (𝐵 (𝑘 𝑋)) = (𝑙 / 𝑘𝐵 (𝑙 𝑋)))
6257, 59, 61cbvmpt 5190 . . . . . . . . . 10 (𝑘 ∈ ℕ0 ↦ (𝐵 (𝑘 𝑋))) = (𝑙 ∈ ℕ0 ↦ (𝑙 / 𝑘𝐵 (𝑙 𝑋)))
6362a1i 11 . . . . . . . . 9 ((𝜑𝑘 ∈ ℕ0) → (𝑘 ∈ ℕ0 ↦ (𝐵 (𝑘 𝑋))) = (𝑙 ∈ ℕ0 ↦ (𝑙 / 𝑘𝐵 (𝑙 𝑋))))
6463oveq2d 7287 . . . . . . . 8 ((𝜑𝑘 ∈ ℕ0) → (𝑃 Σg (𝑘 ∈ ℕ0 ↦ (𝐵 (𝑘 𝑋)))) = (𝑃 Σg (𝑙 ∈ ℕ0 ↦ (𝑙 / 𝑘𝐵 (𝑙 𝑋)))))
6556, 64eqtrd 2780 . . . . . . 7 ((𝜑𝑘 ∈ ℕ0) → 𝑄 = (𝑃 Σg (𝑙 ∈ ℕ0 ↦ (𝑙 / 𝑘𝐵 (𝑙 𝑋)))))
6665fveq2d 6775 . . . . . 6 ((𝜑𝑘 ∈ ℕ0) → (coe1𝑄) = (coe1‘(𝑃 Σg (𝑙 ∈ ℕ0 ↦ (𝑙 / 𝑘𝐵 (𝑙 𝑋))))))
6766fveq1d 6773 . . . . 5 ((𝜑𝑘 ∈ ℕ0) → ((coe1𝑄)‘𝑘) = ((coe1‘(𝑃 Σg (𝑙 ∈ ℕ0 ↦ (𝑙 / 𝑘𝐵 (𝑙 𝑋)))))‘𝑘))
68 nfv 1921 . . . . . . . . . 10 𝑙 𝐵𝐾
6958nfel1 2925 . . . . . . . . . 10 𝑘𝑙 / 𝑘𝐵𝐾
7060eleq1d 2825 . . . . . . . . . 10 (𝑘 = 𝑙 → (𝐵𝐾𝑙 / 𝑘𝐵𝐾))
7168, 69, 70cbvralw 3372 . . . . . . . . 9 (∀𝑘 ∈ ℕ0 𝐵𝐾 ↔ ∀𝑙 ∈ ℕ0 𝑙 / 𝑘𝐵𝐾)
7215, 71sylib 217 . . . . . . . 8 (𝜑 → ∀𝑙 ∈ ℕ0 𝑙 / 𝑘𝐵𝐾)
7372adantr 481 . . . . . . 7 ((𝜑𝑘 ∈ ℕ0) → ∀𝑙 ∈ ℕ0 𝑙 / 𝑘𝐵𝐾)
74 nfcv 2909 . . . . . . . . . 10 𝑙𝐵
7574, 58, 60cbvmpt 5190 . . . . . . . . 9 (𝑘 ∈ ℕ0𝐵) = (𝑙 ∈ ℕ0𝑙 / 𝑘𝐵)
7675, 16eqbrtrrid 5115 . . . . . . . 8 (𝜑 → (𝑙 ∈ ℕ0𝑙 / 𝑘𝐵) finSupp 0 )
7776adantr 481 . . . . . . 7 ((𝜑𝑘 ∈ ℕ0) → (𝑙 ∈ ℕ0𝑙 / 𝑘𝐵) finSupp 0 )
783, 4, 5, 6, 38, 7, 8, 9, 73, 77, 49gsummoncoe1 21473 . . . . . 6 ((𝜑𝑘 ∈ ℕ0) → ((coe1‘(𝑃 Σg (𝑙 ∈ ℕ0 ↦ (𝑙 / 𝑘𝐵 (𝑙 𝑋)))))‘𝑘) = 𝑘 / 𝑙𝑙 / 𝑘𝐵)
79 csbcow 3852 . . . . . . 7 𝑘 / 𝑙𝑙 / 𝑘𝐵 = 𝑘 / 𝑘𝐵
80 csbid 3850 . . . . . . 7 𝑘 / 𝑘𝐵 = 𝐵
8179, 80eqtri 2768 . . . . . 6 𝑘 / 𝑙𝑙 / 𝑘𝐵 = 𝐵
8278, 81eqtrdi 2796 . . . . 5 ((𝜑𝑘 ∈ ℕ0) → ((coe1‘(𝑃 Σg (𝑙 ∈ ℕ0 ↦ (𝑙 / 𝑘𝐵 (𝑙 𝑋)))))‘𝑘) = 𝐵)
8367, 82eqtrd 2780 . . . 4 ((𝜑𝑘 ∈ ℕ0) → ((coe1𝑄)‘𝑘) = 𝐵)
8455, 83eqeq12d 2756 . . 3 ((𝜑𝑘 ∈ ℕ0) → (((coe1𝑂)‘𝑘) = ((coe1𝑄)‘𝑘) ↔ 𝐴 = 𝐵))
8584ralbidva 3122 . 2 (𝜑 → (∀𝑘 ∈ ℕ0 ((coe1𝑂)‘𝑘) = ((coe1𝑄)‘𝑘) ↔ ∀𝑘 ∈ ℕ0 𝐴 = 𝐵))
8623, 85bitrd 278 1 (𝜑 → (𝑂 = 𝑄 ↔ ∀𝑘 ∈ ℕ0 𝐴 = 𝐵))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 205  wa 396  w3a 1086   = wceq 1542  wcel 2110  wral 3066  csb 3837   class class class wbr 5079  cmpt 5162  cfv 6432  (class class class)co 7271   finSupp cfsupp 9106  0cn0 12233  Basecbs 16910   ·𝑠 cvsca 16964  0gc0g 17148   Σg cgsu 17149  .gcmg 18698  mulGrpcmgp 19718  Ringcrg 19781  var1cv1 21345  Poly1cpl1 21346  coe1cco1 21347
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1802  ax-4 1816  ax-5 1917  ax-6 1975  ax-7 2015  ax-8 2112  ax-9 2120  ax-10 2141  ax-11 2158  ax-12 2175  ax-ext 2711  ax-rep 5214  ax-sep 5227  ax-nul 5234  ax-pow 5292  ax-pr 5356  ax-un 7582  ax-cnex 10928  ax-resscn 10929  ax-1cn 10930  ax-icn 10931  ax-addcl 10932  ax-addrcl 10933  ax-mulcl 10934  ax-mulrcl 10935  ax-mulcom 10936  ax-addass 10937  ax-mulass 10938  ax-distr 10939  ax-i2m1 10940  ax-1ne0 10941  ax-1rid 10942  ax-rnegex 10943  ax-rrecex 10944  ax-cnre 10945  ax-pre-lttri 10946  ax-pre-lttrn 10947  ax-pre-ltadd 10948  ax-pre-mulgt0 10949
This theorem depends on definitions:  df-bi 206  df-an 397  df-or 845  df-3or 1087  df-3an 1088  df-tru 1545  df-fal 1555  df-ex 1787  df-nf 1791  df-sb 2072  df-mo 2542  df-eu 2571  df-clab 2718  df-cleq 2732  df-clel 2818  df-nfc 2891  df-ne 2946  df-nel 3052  df-ral 3071  df-rex 3072  df-reu 3073  df-rmo 3074  df-rab 3075  df-v 3433  df-sbc 3721  df-csb 3838  df-dif 3895  df-un 3897  df-in 3899  df-ss 3909  df-pss 3911  df-nul 4263  df-if 4466  df-pw 4541  df-sn 4568  df-pr 4570  df-tp 4572  df-op 4574  df-uni 4846  df-int 4886  df-iun 4932  df-iin 4933  df-br 5080  df-opab 5142  df-mpt 5163  df-tr 5197  df-id 5490  df-eprel 5496  df-po 5504  df-so 5505  df-fr 5545  df-se 5546  df-we 5547  df-xp 5596  df-rel 5597  df-cnv 5598  df-co 5599  df-dm 5600  df-rn 5601  df-res 5602  df-ima 5603  df-pred 6201  df-ord 6268  df-on 6269  df-lim 6270  df-suc 6271  df-iota 6390  df-fun 6434  df-fn 6435  df-f 6436  df-f1 6437  df-fo 6438  df-f1o 6439  df-fv 6440  df-isom 6441  df-riota 7228  df-ov 7274  df-oprab 7275  df-mpo 7276  df-of 7527  df-ofr 7528  df-om 7707  df-1st 7824  df-2nd 7825  df-supp 7969  df-frecs 8088  df-wrecs 8119  df-recs 8193  df-rdg 8232  df-1o 8288  df-er 8481  df-map 8600  df-pm 8601  df-ixp 8669  df-en 8717  df-dom 8718  df-sdom 8719  df-fin 8720  df-fsupp 9107  df-oi 9247  df-card 9698  df-pnf 11012  df-mnf 11013  df-xr 11014  df-ltxr 11015  df-le 11016  df-sub 11207  df-neg 11208  df-nn 11974  df-2 12036  df-3 12037  df-4 12038  df-5 12039  df-6 12040  df-7 12041  df-8 12042  df-9 12043  df-n0 12234  df-z 12320  df-dec 12437  df-uz 12582  df-fz 13239  df-fzo 13382  df-seq 13720  df-hash 14043  df-struct 16846  df-sets 16863  df-slot 16881  df-ndx 16893  df-base 16911  df-ress 16940  df-plusg 16973  df-mulr 16974  df-sca 16976  df-vsca 16977  df-tset 16979  df-ple 16980  df-0g 17150  df-gsum 17151  df-mre 17293  df-mrc 17294  df-acs 17296  df-mgm 18324  df-sgrp 18373  df-mnd 18384  df-mhm 18428  df-submnd 18429  df-grp 18578  df-minusg 18579  df-sbg 18580  df-mulg 18699  df-subg 18750  df-ghm 18830  df-cntz 18921  df-cmn 19386  df-abl 19387  df-mgp 19719  df-ur 19736  df-srg 19740  df-ring 19783  df-subrg 20020  df-lmod 20123  df-lss 20192  df-psr 21110  df-mvr 21111  df-mpl 21112  df-opsr 21114  df-psr1 21349  df-vr1 21350  df-ply1 21351  df-coe1 21352
This theorem is referenced by:  chcoeffeqlem  22032
  Copyright terms: Public domain W3C validator