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

Theorem gsumply1eq 22521
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 2765 . . . . 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 22519 . . . 4 (𝜑 → (𝑃 Σg (𝑘 ∈ ℕ0 ↦ (𝐴 (𝑘 𝑋)))) ∈ (Base‘𝑃))
132, 12eqeltrd 2865 . . 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 22519 . . . 4 (𝜑 → (𝑃 Σg (𝑘 ∈ ℕ0 ↦ (𝐵 (𝑘 𝑋)))) ∈ (Base‘𝑃))
1814, 17eqeltrd 2865 . . 3 (𝜑𝑄 ∈ (Base‘𝑃))
19 eqid 2765 . . . . 5 (coe1𝑂) = (coe1𝑂)
20 eqid 2765 . . . . 5 (coe1𝑄) = (coe1𝑄)
213, 4, 19, 20ply1coe1eq 22512 . . . 4 ((𝑅 ∈ Ring ∧ 𝑂 ∈ (Base‘𝑃) ∧ 𝑄 ∈ (Base‘𝑃)) → (∀𝑘 ∈ ℕ0 ((coe1𝑂)‘𝑘) = ((coe1𝑄)‘𝑘) ↔ 𝑂 = 𝑄))
2221bicomd 226 . . 3 ((𝑅 ∈ Ring ∧ 𝑂 ∈ (Base‘𝑃) ∧ 𝑄 ∈ (Base‘𝑃)) → (𝑂 = 𝑄 ↔ ∀𝑘 ∈ ℕ0 ((coe1𝑂)‘𝑘) = ((coe1𝑄)‘𝑘)))
231, 13, 18, 22syl3anc 1398 . 2 (𝜑 → (𝑂 = 𝑄 ↔ ∀𝑘 ∈ ℕ0 ((coe1𝑂)‘𝑘) = ((coe1𝑄)‘𝑘)))
242adantr 486 . . . . . . . 8 ((𝜑𝑘 ∈ ℕ0) → 𝑂 = (𝑃 Σg (𝑘 ∈ ℕ0 ↦ (𝐴 (𝑘 𝑋)))))
25 nfcv 2927 . . . . . . . . . 10 𝑙(𝐴 (𝑘 𝑋))
26 nfcsb1v 3878 . . . . . . . . . . 11 𝑘𝑙 / 𝑘𝐴
27 nfcv 2927 . . . . . . . . . . 11 𝑘
28 nfcv 2927 . . . . . . . . . . 11 𝑘(𝑙 𝑋)
2926, 27, 28nfov 7449 . . . . . . . . . 10 𝑘(𝑙 / 𝑘𝐴 (𝑙 𝑋))
30 csbeq1a 3868 . . . . . . . . . . 11 (𝑘 = 𝑙𝐴 = 𝑙 / 𝑘𝐴)
31 oveq1 7426 . . . . . . . . . . 11 (𝑘 = 𝑙 → (𝑘 𝑋) = (𝑙 𝑋))
3230, 31oveq12d 7437 . . . . . . . . . 10 (𝑘 = 𝑙 → (𝐴 (𝑘 𝑋)) = (𝑙 / 𝑘𝐴 (𝑙 𝑋)))
3325, 29, 32cbvmpt 5215 . . . . . . . . 9 (𝑘 ∈ ℕ0 ↦ (𝐴 (𝑘 𝑋))) = (𝑙 ∈ ℕ0 ↦ (𝑙 / 𝑘𝐴 (𝑙 𝑋)))
3433oveq2i 7430 . . . . . . . 8 (𝑃 Σg (𝑘 ∈ ℕ0 ↦ (𝐴 (𝑘 𝑋)))) = (𝑃 Σg (𝑙 ∈ ℕ0 ↦ (𝑙 / 𝑘𝐴 (𝑙 𝑋))))
3524, 34eqtrdi 2816 . . . . . . 7 ((𝜑𝑘 ∈ ℕ0) → 𝑂 = (𝑃 Σg (𝑙 ∈ ℕ0 ↦ (𝑙 / 𝑘𝐴 (𝑙 𝑋)))))
3635fveq2d 6889 . . . . . 6 ((𝜑𝑘 ∈ ℕ0) → (coe1𝑂) = (coe1‘(𝑃 Σg (𝑙 ∈ ℕ0 ↦ (𝑙 / 𝑘𝐴 (𝑙 𝑋))))))
3736fveq1d 6887 . . . . 5 ((𝜑𝑘 ∈ ℕ0) → ((coe1𝑂)‘𝑘) = ((coe1‘(𝑃 Σg (𝑙 ∈ ℕ0 ↦ (𝑙 / 𝑘𝐴 (𝑙 𝑋)))))‘𝑘))
381adantr 486 . . . . . . 7 ((𝜑𝑘 ∈ ℕ0) → 𝑅 ∈ Ring)
39 nfv 1947 . . . . . . . . . 10 𝑙 𝐴𝐾
4026nfel1 2943 . . . . . . . . . 10 𝑘𝑙 / 𝑘𝐴𝐾
4130eleq1d 2850 . . . . . . . . . 10 (𝑘 = 𝑙 → (𝐴𝐾𝑙 / 𝑘𝐴𝐾))
4239, 40, 41cbvralw 3309 . . . . . . . . 9 (∀𝑘 ∈ ℕ0 𝐴𝐾 ↔ ∀𝑙 ∈ ℕ0 𝑙 / 𝑘𝐴𝐾)
4310, 42sylib 221 . . . . . . . 8 (𝜑 → ∀𝑙 ∈ ℕ0 𝑙 / 𝑘𝐴𝐾)
4443adantr 486 . . . . . . 7 ((𝜑𝑘 ∈ ℕ0) → ∀𝑙 ∈ ℕ0 𝑙 / 𝑘𝐴𝐾)
45 nfcv 2927 . . . . . . . . . 10 𝑙𝐴
4645, 26, 30cbvmpt 5215 . . . . . . . . 9 (𝑘 ∈ ℕ0𝐴) = (𝑙 ∈ ℕ0𝑙 / 𝑘𝐴)
4746, 11eqbrtrrid 5149 . . . . . . . 8 (𝜑 → (𝑙 ∈ ℕ0𝑙 / 𝑘𝐴) finSupp 0 )
4847adantr 486 . . . . . . 7 ((𝜑𝑘 ∈ ℕ0) → (𝑙 ∈ ℕ0𝑙 / 𝑘𝐴) finSupp 0 )
49 simpr 490 . . . . . . 7 ((𝜑𝑘 ∈ ℕ0) → 𝑘 ∈ ℕ0)
503, 4, 5, 6, 38, 7, 8, 9, 44, 48, 49gsummoncoe1 22520 . . . . . 6 ((𝜑𝑘 ∈ ℕ0) → ((coe1‘(𝑃 Σg (𝑙 ∈ ℕ0 ↦ (𝑙 / 𝑘𝐴 (𝑙 𝑋)))))‘𝑘) = 𝑘 / 𝑙𝑙 / 𝑘𝐴)
51 csbcow 3869 . . . . . . 7 𝑘 / 𝑙𝑙 / 𝑘𝐴 = 𝑘 / 𝑘𝐴
52 csbid 3867 . . . . . . 7 𝑘 / 𝑘𝐴 = 𝐴
5351, 52eqtri 2788 . . . . . 6 𝑘 / 𝑙𝑙 / 𝑘𝐴 = 𝐴
5450, 53eqtrdi 2816 . . . . 5 ((𝜑𝑘 ∈ ℕ0) → ((coe1‘(𝑃 Σg (𝑙 ∈ ℕ0 ↦ (𝑙 / 𝑘𝐴 (𝑙 𝑋)))))‘𝑘) = 𝐴)
5537, 54eqtrd 2800 . . . 4 ((𝜑𝑘 ∈ ℕ0) → ((coe1𝑂)‘𝑘) = 𝐴)
5614adantr 486 . . . . . . . 8 ((𝜑𝑘 ∈ ℕ0) → 𝑄 = (𝑃 Σg (𝑘 ∈ ℕ0 ↦ (𝐵 (𝑘 𝑋)))))
57 nfcv 2927 . . . . . . . . . . 11 𝑙(𝐵 (𝑘 𝑋))
58 nfcsb1v 3878 . . . . . . . . . . . 12 𝑘𝑙 / 𝑘𝐵
5958, 27, 28nfov 7449 . . . . . . . . . . 11 𝑘(𝑙 / 𝑘𝐵 (𝑙 𝑋))
60 csbeq1a 3868 . . . . . . . . . . . 12 (𝑘 = 𝑙𝐵 = 𝑙 / 𝑘𝐵)
6160, 31oveq12d 7437 . . . . . . . . . . 11 (𝑘 = 𝑙 → (𝐵 (𝑘 𝑋)) = (𝑙 / 𝑘𝐵 (𝑙 𝑋)))
6257, 59, 61cbvmpt 5215 . . . . . . . . . 10 (𝑘 ∈ ℕ0 ↦ (𝐵 (𝑘 𝑋))) = (𝑙 ∈ ℕ0 ↦ (𝑙 / 𝑘𝐵 (𝑙 𝑋)))
6362a1i 11 . . . . . . . . 9 ((𝜑𝑘 ∈ ℕ0) → (𝑘 ∈ ℕ0 ↦ (𝐵 (𝑘 𝑋))) = (𝑙 ∈ ℕ0 ↦ (𝑙 / 𝑘𝐵 (𝑙 𝑋))))
6463oveq2d 7435 . . . . . . . 8 ((𝜑𝑘 ∈ ℕ0) → (𝑃 Σg (𝑘 ∈ ℕ0 ↦ (𝐵 (𝑘 𝑋)))) = (𝑃 Σg (𝑙 ∈ ℕ0 ↦ (𝑙 / 𝑘𝐵 (𝑙 𝑋)))))
6556, 64eqtrd 2800 . . . . . . 7 ((𝜑𝑘 ∈ ℕ0) → 𝑄 = (𝑃 Σg (𝑙 ∈ ℕ0 ↦ (𝑙 / 𝑘𝐵 (𝑙 𝑋)))))
6665fveq2d 6889 . . . . . 6 ((𝜑𝑘 ∈ ℕ0) → (coe1𝑄) = (coe1‘(𝑃 Σg (𝑙 ∈ ℕ0 ↦ (𝑙 / 𝑘𝐵 (𝑙 𝑋))))))
6766fveq1d 6887 . . . . 5 ((𝜑𝑘 ∈ ℕ0) → ((coe1𝑄)‘𝑘) = ((coe1‘(𝑃 Σg (𝑙 ∈ ℕ0 ↦ (𝑙 / 𝑘𝐵 (𝑙 𝑋)))))‘𝑘))
68 nfv 1947 . . . . . . . . . 10 𝑙 𝐵𝐾
6958nfel1 2943 . . . . . . . . . 10 𝑘𝑙 / 𝑘𝐵𝐾
7060eleq1d 2850 . . . . . . . . . 10 (𝑘 = 𝑙 → (𝐵𝐾𝑙 / 𝑘𝐵𝐾))
7168, 69, 70cbvralw 3309 . . . . . . . . 9 (∀𝑘 ∈ ℕ0 𝐵𝐾 ↔ ∀𝑙 ∈ ℕ0 𝑙 / 𝑘𝐵𝐾)
7215, 71sylib 221 . . . . . . . 8 (𝜑 → ∀𝑙 ∈ ℕ0 𝑙 / 𝑘𝐵𝐾)
7372adantr 486 . . . . . . 7 ((𝜑𝑘 ∈ ℕ0) → ∀𝑙 ∈ ℕ0 𝑙 / 𝑘𝐵𝐾)
74 nfcv 2927 . . . . . . . . . 10 𝑙𝐵
7574, 58, 60cbvmpt 5215 . . . . . . . . 9 (𝑘 ∈ ℕ0𝐵) = (𝑙 ∈ ℕ0𝑙 / 𝑘𝐵)
7675, 16eqbrtrrid 5149 . . . . . . . 8 (𝜑 → (𝑙 ∈ ℕ0𝑙 / 𝑘𝐵) finSupp 0 )
7776adantr 486 . . . . . . 7 ((𝜑𝑘 ∈ ℕ0) → (𝑙 ∈ ℕ0𝑙 / 𝑘𝐵) finSupp 0 )
783, 4, 5, 6, 38, 7, 8, 9, 73, 77, 49gsummoncoe1 22520 . . . . . 6 ((𝜑𝑘 ∈ ℕ0) → ((coe1‘(𝑃 Σg (𝑙 ∈ ℕ0 ↦ (𝑙 / 𝑘𝐵 (𝑙 𝑋)))))‘𝑘) = 𝑘 / 𝑙𝑙 / 𝑘𝐵)
79 csbcow 3869 . . . . . . 7 𝑘 / 𝑙𝑙 / 𝑘𝐵 = 𝑘 / 𝑘𝐵
80 csbid 3867 . . . . . . 7 𝑘 / 𝑘𝐵 = 𝐵
8179, 80eqtri 2788 . . . . . 6 𝑘 / 𝑙𝑙 / 𝑘𝐵 = 𝐵
8278, 81eqtrdi 2816 . . . . 5 ((𝜑𝑘 ∈ ℕ0) → ((coe1‘(𝑃 Σg (𝑙 ∈ ℕ0 ↦ (𝑙 / 𝑘𝐵 (𝑙 𝑋)))))‘𝑘) = 𝐵)
8367, 82eqtrd 2800 . . . 4 ((𝜑𝑘 ∈ ℕ0) → ((coe1𝑄)‘𝑘) = 𝐵)
8455, 83eqeq12d 2781 . . 3 ((𝜑𝑘 ∈ ℕ0) → (((coe1𝑂)‘𝑘) = ((coe1𝑄)‘𝑘) ↔ 𝐴 = 𝐵))
8584ralbidva 3188 . 2 (𝜑 → (∀𝑘 ∈ ℕ0 ((coe1𝑂)‘𝑘) = ((coe1𝑄)‘𝑘) ↔ ∀𝑘 ∈ ℕ0 𝐴 = 𝐵))
8623, 85bitrd 282 1 (𝜑 → (𝑂 = 𝑄 ↔ ∀𝑘 ∈ ℕ0 𝐴 = 𝐵))
Colors of variables:    wff setvar class
This proof depends on syntax axioms:  wi 4  wb 209  wa 401  w3a 1103   = wceq 1570  wcel 2146  wral 3081  csb 3854   class class class wbr 5111  cmpt 5194  cfv 6540  (class class class)co 7419   finSupp cfsupp 9328  0cn0 12521  Basecbs 17293   ·𝑠 cvsca 17338  0gc0g 17516   Σg cgsu 17517  .gcmg 19179  mulGrpcmgp 20262  Ringcrg 20361  var1cv1 22388  Poly1cpl1 22389  coe1cco1 22390
This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1943  ax-6 2000  ax-7 2041  ax-8 2148  ax-9 2156  ax-10 2179  ax-11 2195  ax-12 2216  ax-ext 2737  ax-rep 5240  ax-sep 5259  ax-nul 5271  ax-pow 5338  ax-pr 5406  ax-un 7742  ax-cnex 11173  ax-resscn 11174  ax-1cn 11175  ax-icn 11176  ax-addcl 11177  ax-addrcl 11178  ax-mulcl 11179  ax-mulrcl 11180  ax-mulcom 11181  ax-addass 11182  ax-mulass 11183  ax-distr 11184  ax-i2m1 11185  ax-1ne0 11186  ax-1rid 11187  ax-rnegex 11188  ax-rrecex 11189  ax-cnre 11190  ax-pre-lttri 11191  ax-pre-lttrn 11192  ax-pre-ltadd 11193  ax-pre-mulgt0 11194
This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2100  df-mo 2569  df-eu 2599  df-clab 2744  df-cleq 2757  df-clel 2840  df-nfc 2914  df-ne 2961  df-nel 3067  df-ral 3082  df-rex 3092  df-rmo 3371  df-reu 3372  df-rab 3419  df-v 3459  df-sbc 3747  df-csb 3855  df-dif 3909  df-un 3911  df-in 3913  df-ss 3923  df-pss 3926  df-nul 4287  df-if 4490  df-pw 4566  df-sn 4592  df-pr 4594  df-tp 4596  df-op 4598  df-uni 4875  df-int 4915  df-iun 4960  df-iin 4961  df-br 5112  df-opab 5176  df-mpt 5195  df-tr 5221  df-id 5558  df-eprel 5563  df-po 5571  df-so 5572  df-fr 5616  df-se 5617  df-we 5618  df-xp 5669  df-rel 5670  df-cnv 5671  df-co 5672  df-dm 5673  df-rn 5674  df-res 5675  df-ima 5676  df-pred 6306  df-ord 6367  df-on 6368  df-lim 6369  df-suc 6370  df-iota 6496  df-fun 6542  df-fn 6543  df-f 6544  df-f1 6545  df-fo 6546  df-f1o 6547  df-fv 6548  df-isom 6549  df-riota 7376  df-ov 7422  df-oprab 7423  df-mpo 7424  df-of 7684  df-ofr 7685  df-om 7869  df-1st 7992  df-2nd 7993  df-supp 8163  df-frecs 8284  df-wrecs 8315  df-recs 8364  df-rdg 8403  df-1o 8459  df-2o 8460  df-er 8700  df-map 8832  df-pm 8833  df-ixp 8902  df-en 8950  df-dom 8951  df-sdom 8952  df-fin 8953  df-fsupp 9329  df-sup 9409  df-oi 9479  df-card 9941  df-pnf 11262  df-mnf 11263  df-xr 11264  df-ltxr 11265  df-le 11266  df-sub 11460  df-neg 11461  df-nn 12251  df-2 12320  df-3 12321  df-4 12322  df-5 12323  df-6 12324  df-7 12325  df-8 12326  df-9 12327  df-n0 12522  df-z 12609  df-dec 12730  df-uz 12881  df-fz 13554  df-fzo 13702  df-seq 14058  df-hash 14387  df-struct 17231  df-sets 17248  df-slot 17266  df-ndx 17278  df-base 17294  df-ress 17315  df-plusg 17347  df-mulr 17348  df-sca 17350  df-vsca 17351  df-ip 17352  df-tset 17353  df-ple 17354  df-ds 17356  df-hom 17358  df-cco 17359  df-0g 17518  df-gsum 17519  df-prds 17524  df-pws 17526  df-mre 17662  df-mrc 17663  df-acs 17665  df-mgm 18722  df-sgrp 18811  df-mnd 18827  df-mhm 18880  df-submnd 18881  df-grp 19049  df-minusg 19050  df-sbg 19051  df-mulg 19180  df-subg 19235  df-ghm 19330  df-cntz 19433  df-cmn 19898  df-abl 19899  df-mgp 20263  df-rng 20277  df-ur 20310  df-srg 20315  df-ring 20363  df-subrng 20697  df-subrg 20721  df-lmod 21035  df-lss 21105  df-psr 22111  df-mvr 22112  df-mpl 22113  df-opsr 22115  df-psr1 22392  df-vr1 22393  df-ply1 22394  df-coe1 22395
This theorem is used by:  chcoeffeqlem  23094  extdgfialglem2  34149
  Copyright terms: Public domain W3C validator