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

Theorem vieta1 26647
Description: The first-order Vieta's formula (see http://en.wikipedia.org/wiki/Vieta%27s_formulas). If a polynomial of degree 𝑁 has 𝑁 distinct roots, then the sum over these roots can be calculated as -𝐴(𝑁 − 1) / 𝐴(𝑁). (If the roots are not distinct, then this formula is still true but must double-count some of the roots according to their multiplicities.) See also vieta 34265 for the case of polynomials over a generic ring. (Contributed by Mario Carneiro, 28-Jul-2014.)
Hypotheses
Ref Expression
vieta1.1 𝐴 = (coeff‘𝐹)
vieta1.2 𝑁 = (deg‘𝐹)
vieta1.3 𝑅 = (◡𝐹 “ {0})
vieta1.4 (𝜑 → 𝐹 ∈ (Poly‘𝑆))
vieta1.5 (𝜑 → (♯‘𝑅) = 𝑁)
vieta1.6 (𝜑 → 𝑁 ∈ ℕ)
Assertion
Ref Expression
vieta1 (𝜑 → Σ𝑥 ∈ 𝑅 𝑥 = -((𝐴‘(𝑁 − 1)) / (𝐴‘𝑁)))
Distinct variable groups:   𝑥,𝑅   𝜑,𝑥
Allowed substitution hints:   𝐴(𝑥)   𝑆(𝑥)   𝐹(𝑥)   𝑁(𝑥)

Proof of Theorem vieta1
Dummy variables 𝑓 𝑘 𝑦 𝑧 𝑑 𝑔 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 vieta1.5 . 2 (𝜑 → (♯‘𝑅) = 𝑁)
2 fveq2 6893 . . . . . . 7 (𝑓 = 𝐹 → (deg‘𝑓) = (deg‘𝐹))
32eqeq2d 2774 . . . . . 6 (𝑓 = 𝐹 → (𝑁 = (deg‘𝑓) ↔ 𝑁 = (deg‘𝐹)))
4 cnveq 5855 . . . . . . . . . 10 (𝑓 = 𝐹 → ◡𝑓 = ◡𝐹)
54imaeq1d 6056 . . . . . . . . 9 (𝑓 = 𝐹 → (◡𝑓 “ {0}) = (◡𝐹 “ {0}))
6 vieta1.3 . . . . . . . . 9 𝑅 = (◡𝐹 “ {0})
75, 6eqtr4di 2816 . . . . . . . 8 (𝑓 = 𝐹 → (◡𝑓 “ {0}) = 𝑅)
87fveq2d 6897 . . . . . . 7 (𝑓 = 𝐹 → (♯‘(◡𝑓 “ {0})) = (♯‘𝑅))
9 vieta1.2 . . . . . . . 8 𝑁 = (deg‘𝐹)
102, 9eqtr4di 2816 . . . . . . 7 (𝑓 = 𝐹 → (deg‘𝑓) = 𝑁)
118, 10eqeq12d 2779 . . . . . 6 (𝑓 = 𝐹 → ((♯‘(◡𝑓 “ {0})) = (deg‘𝑓) ↔ (♯‘𝑅) = 𝑁))
123, 11anbi12d 644 . . . . 5 (𝑓 = 𝐹 → ((𝑁 = (deg‘𝑓) ∧ (♯‘(◡𝑓 “ {0})) = (deg‘𝑓)) ↔ (𝑁 = (deg‘𝐹) ∧ (♯‘𝑅) = 𝑁)))
139biantrur 540 . . . . 5 ((♯‘𝑅) = 𝑁 ↔ (𝑁 = (deg‘𝐹) ∧ (♯‘𝑅) = 𝑁))
1412, 13bitr4di 292 . . . 4 (𝑓 = 𝐹 → ((𝑁 = (deg‘𝑓) ∧ (♯‘(◡𝑓 “ {0})) = (deg‘𝑓)) ↔ (♯‘𝑅) = 𝑁))
157sumeq1d 15879 . . . . 5 (𝑓 = 𝐹 → Σ𝑥 ∈ (◡𝑓 “ {0})𝑥 = Σ𝑥 ∈ 𝑅 𝑥)
16 fveq2 6893 . . . . . . . . 9 (𝑓 = 𝐹 → (coeff‘𝑓) = (coeff‘𝐹))
17 vieta1.1 . . . . . . . . 9 𝐴 = (coeff‘𝐹)
1816, 17eqtr4di 2816 . . . . . . . 8 (𝑓 = 𝐹 → (coeff‘𝑓) = 𝐴)
1910oveq1d 7442 . . . . . . . 8 (𝑓 = 𝐹 → ((deg‘𝑓) − 1) = (𝑁 − 1))
2018, 19fveq12d 6900 . . . . . . 7 (𝑓 = 𝐹 → ((coeff‘𝑓)‘((deg‘𝑓) − 1)) = (𝐴‘(𝑁 − 1)))
2118, 10fveq12d 6900 . . . . . . 7 (𝑓 = 𝐹 → ((coeff‘𝑓)‘(deg‘𝑓)) = (𝐴‘𝑁))
2220, 21oveq12d 7445 . . . . . 6 (𝑓 = 𝐹 → (((coeff‘𝑓)‘((deg‘𝑓) − 1)) / ((coeff‘𝑓)‘(deg‘𝑓))) = ((𝐴‘(𝑁 − 1)) / (𝐴‘𝑁)))
2322negeqd 11561 . . . . 5 (𝑓 = 𝐹 → -(((coeff‘𝑓)‘((deg‘𝑓) − 1)) / ((coeff‘𝑓)‘(deg‘𝑓))) = -((𝐴‘(𝑁 − 1)) / (𝐴‘𝑁)))
2415, 23eqeq12d 2779 . . . 4 (𝑓 = 𝐹 → (Σ𝑥 ∈ (◡𝑓 “ {0})𝑥 = -(((coeff‘𝑓)‘((deg‘𝑓) − 1)) / ((coeff‘𝑓)‘(deg‘𝑓))) ↔ Σ𝑥 ∈ 𝑅 𝑥 = -((𝐴‘(𝑁 − 1)) / (𝐴‘𝑁))))
2514, 24imbi12d 347 . . 3 (𝑓 = 𝐹 → (((𝑁 = (deg‘𝑓) ∧ (♯‘(◡𝑓 “ {0})) = (deg‘𝑓)) → Σ𝑥 ∈ (◡𝑓 “ {0})𝑥 = -(((coeff‘𝑓)‘((deg‘𝑓) − 1)) / ((coeff‘𝑓)‘(deg‘𝑓)))) ↔ ((♯‘𝑅) = 𝑁 → Σ𝑥 ∈ 𝑅 𝑥 = -((𝐴‘(𝑁 − 1)) / (𝐴‘𝑁)))))
26 vieta1.6 . . . 4 (𝜑 → 𝑁 ∈ ℕ)
27 eqeq1 2767 . . . . . . . 8 (𝑦 = 1 → (𝑦 = (deg‘𝑓) ↔ 1 = (deg‘𝑓)))
2827anbi1d 643 . . . . . . 7 (𝑦 = 1 → ((𝑦 = (deg‘𝑓) ∧ (♯‘(◡𝑓 “ {0})) = (deg‘𝑓)) ↔ (1 = (deg‘𝑓) ∧ (♯‘(◡𝑓 “ {0})) = (deg‘𝑓))))
2928imbi1d 344 . . . . . 6 (𝑦 = 1 → (((𝑦 = (deg‘𝑓) ∧ (♯‘(◡𝑓 “ {0})) = (deg‘𝑓)) → Σ𝑥 ∈ (◡𝑓 “ {0})𝑥 = -(((coeff‘𝑓)‘((deg‘𝑓) − 1)) / ((coeff‘𝑓)‘(deg‘𝑓)))) ↔ ((1 = (deg‘𝑓) ∧ (♯‘(◡𝑓 “ {0})) = (deg‘𝑓)) → Σ𝑥 ∈ (◡𝑓 “ {0})𝑥 = -(((coeff‘𝑓)‘((deg‘𝑓) − 1)) / ((coeff‘𝑓)‘(deg‘𝑓))))))
3029ralbidv 3188 . . . . 5 (𝑦 = 1 → (∀𝑓 ∈ (Poly‘ℂ)((𝑦 = (deg‘𝑓) ∧ (♯‘(◡𝑓 “ {0})) = (deg‘𝑓)) → Σ𝑥 ∈ (◡𝑓 “ {0})𝑥 = -(((coeff‘𝑓)‘((deg‘𝑓) − 1)) / ((coeff‘𝑓)‘(deg‘𝑓)))) ↔ ∀𝑓 ∈ (Poly‘ℂ)((1 = (deg‘𝑓) ∧ (♯‘(◡𝑓 “ {0})) = (deg‘𝑓)) → Σ𝑥 ∈ (◡𝑓 “ {0})𝑥 = -(((coeff‘𝑓)‘((deg‘𝑓) − 1)) / ((coeff‘𝑓)‘(deg‘𝑓))))))
31 eqeq1 2767 . . . . . . . 8 (𝑦 = 𝑑 → (𝑦 = (deg‘𝑓) ↔ 𝑑 = (deg‘𝑓)))
3231anbi1d 643 . . . . . . 7 (𝑦 = 𝑑 → ((𝑦 = (deg‘𝑓) ∧ (♯‘(◡𝑓 “ {0})) = (deg‘𝑓)) ↔ (𝑑 = (deg‘𝑓) ∧ (♯‘(◡𝑓 “ {0})) = (deg‘𝑓))))
3332imbi1d 344 . . . . . 6 (𝑦 = 𝑑 → (((𝑦 = (deg‘𝑓) ∧ (♯‘(◡𝑓 “ {0})) = (deg‘𝑓)) → Σ𝑥 ∈ (◡𝑓 “ {0})𝑥 = -(((coeff‘𝑓)‘((deg‘𝑓) − 1)) / ((coeff‘𝑓)‘(deg‘𝑓)))) ↔ ((𝑑 = (deg‘𝑓) ∧ (♯‘(◡𝑓 “ {0})) = (deg‘𝑓)) → Σ𝑥 ∈ (◡𝑓 “ {0})𝑥 = -(((coeff‘𝑓)‘((deg‘𝑓) − 1)) / ((coeff‘𝑓)‘(deg‘𝑓))))))
3433ralbidv 3188 . . . . 5 (𝑦 = 𝑑 → (∀𝑓 ∈ (Poly‘ℂ)((𝑦 = (deg‘𝑓) ∧ (♯‘(◡𝑓 “ {0})) = (deg‘𝑓)) → Σ𝑥 ∈ (◡𝑓 “ {0})𝑥 = -(((coeff‘𝑓)‘((deg‘𝑓) − 1)) / ((coeff‘𝑓)‘(deg‘𝑓)))) ↔ ∀𝑓 ∈ (Poly‘ℂ)((𝑑 = (deg‘𝑓) ∧ (♯‘(◡𝑓 “ {0})) = (deg‘𝑓)) → Σ𝑥 ∈ (◡𝑓 “ {0})𝑥 = -(((coeff‘𝑓)‘((deg‘𝑓) − 1)) / ((coeff‘𝑓)‘(deg‘𝑓))))))
35 eqeq1 2767 . . . . . . . 8 (𝑦 = (𝑑 + 1) → (𝑦 = (deg‘𝑓) ↔ (𝑑 + 1) = (deg‘𝑓)))
3635anbi1d 643 . . . . . . 7 (𝑦 = (𝑑 + 1) → ((𝑦 = (deg‘𝑓) ∧ (♯‘(◡𝑓 “ {0})) = (deg‘𝑓)) ↔ ((𝑑 + 1) = (deg‘𝑓) ∧ (♯‘(◡𝑓 “ {0})) = (deg‘𝑓))))
3736imbi1d 344 . . . . . 6 (𝑦 = (𝑑 + 1) → (((𝑦 = (deg‘𝑓) ∧ (♯‘(◡𝑓 “ {0})) = (deg‘𝑓)) → Σ𝑥 ∈ (◡𝑓 “ {0})𝑥 = -(((coeff‘𝑓)‘((deg‘𝑓) − 1)) / ((coeff‘𝑓)‘(deg‘𝑓)))) ↔ (((𝑑 + 1) = (deg‘𝑓) ∧ (♯‘(◡𝑓 “ {0})) = (deg‘𝑓)) → Σ𝑥 ∈ (◡𝑓 “ {0})𝑥 = -(((coeff‘𝑓)‘((deg‘𝑓) − 1)) / ((coeff‘𝑓)‘(deg‘𝑓))))))
3837ralbidv 3188 . . . . 5 (𝑦 = (𝑑 + 1) → (∀𝑓 ∈ (Poly‘ℂ)((𝑦 = (deg‘𝑓) ∧ (♯‘(◡𝑓 “ {0})) = (deg‘𝑓)) → Σ𝑥 ∈ (◡𝑓 “ {0})𝑥 = -(((coeff‘𝑓)‘((deg‘𝑓) − 1)) / ((coeff‘𝑓)‘(deg‘𝑓)))) ↔ ∀𝑓 ∈ (Poly‘ℂ)(((𝑑 + 1) = (deg‘𝑓) ∧ (♯‘(◡𝑓 “ {0})) = (deg‘𝑓)) → Σ𝑥 ∈ (◡𝑓 “ {0})𝑥 = -(((coeff‘𝑓)‘((deg‘𝑓) − 1)) / ((coeff‘𝑓)‘(deg‘𝑓))))))
39 eqeq1 2767 . . . . . . . 8 (𝑦 = 𝑁 → (𝑦 = (deg‘𝑓) ↔ 𝑁 = (deg‘𝑓)))
4039anbi1d 643 . . . . . . 7 (𝑦 = 𝑁 → ((𝑦 = (deg‘𝑓) ∧ (♯‘(◡𝑓 “ {0})) = (deg‘𝑓)) ↔ (𝑁 = (deg‘𝑓) ∧ (♯‘(◡𝑓 “ {0})) = (deg‘𝑓))))
4140imbi1d 344 . . . . . 6 (𝑦 = 𝑁 → (((𝑦 = (deg‘𝑓) ∧ (♯‘(◡𝑓 “ {0})) = (deg‘𝑓)) → Σ𝑥 ∈ (◡𝑓 “ {0})𝑥 = -(((coeff‘𝑓)‘((deg‘𝑓) − 1)) / ((coeff‘𝑓)‘(deg‘𝑓)))) ↔ ((𝑁 = (deg‘𝑓) ∧ (♯‘(◡𝑓 “ {0})) = (deg‘𝑓)) → Σ𝑥 ∈ (◡𝑓 “ {0})𝑥 = -(((coeff‘𝑓)‘((deg‘𝑓) − 1)) / ((coeff‘𝑓)‘(deg‘𝑓))))))
4241ralbidv 3188 . . . . 5 (𝑦 = 𝑁 → (∀𝑓 ∈ (Poly‘ℂ)((𝑦 = (deg‘𝑓) ∧ (♯‘(◡𝑓 “ {0})) = (deg‘𝑓)) → Σ𝑥 ∈ (◡𝑓 “ {0})𝑥 = -(((coeff‘𝑓)‘((deg‘𝑓) − 1)) / ((coeff‘𝑓)‘(deg‘𝑓)))) ↔ ∀𝑓 ∈ (Poly‘ℂ)((𝑁 = (deg‘𝑓) ∧ (♯‘(◡𝑓 “ {0})) = (deg‘𝑓)) → Σ𝑥 ∈ (◡𝑓 “ {0})𝑥 = -(((coeff‘𝑓)‘((deg‘𝑓) − 1)) / ((coeff‘𝑓)‘(deg‘𝑓))))))
43 eqid 2763 . . . . . . . . . . . . . . 15 (coeff‘𝑓) = (coeff‘𝑓)
4443coef3 26563 . . . . . . . . . . . . . 14 (𝑓 ∈ (Poly‘ℂ) → (coeff‘𝑓):ℕ0⟶ℂ)
4544adantr 486 . . . . . . . . . . . . 13 ((𝑓 ∈ (Poly‘ℂ) ∧ 1 = (deg‘𝑓)) → (coeff‘𝑓):ℕ0⟶ℂ)
46 0nn0 12631 . . . . . . . . . . . . 13 0 ∈ ℕ0
47 ffvelcdm 7089 . . . . . . . . . . . . 13 (((coeff‘𝑓):ℕ0⟶ℂ ∧ 0 ∈ ℕ0) → ((coeff‘𝑓)‘0) ∈ ℂ)
4845, 46, 47sylancl 598 . . . . . . . . . . . 12 ((𝑓 ∈ (Poly‘ℂ) ∧ 1 = (deg‘𝑓)) → ((coeff‘𝑓)‘0) ∈ ℂ)
49 1nn0 12632 . . . . . . . . . . . . 13 1 ∈ ℕ0
50 ffvelcdm 7089 . . . . . . . . . . . . 13 (((coeff‘𝑓):ℕ0⟶ℂ ∧ 1 ∈ ℕ0) → ((coeff‘𝑓)‘1) ∈ ℂ)
5145, 49, 50sylancl 598 . . . . . . . . . . . 12 ((𝑓 ∈ (Poly‘ℂ) ∧ 1 = (deg‘𝑓)) → ((coeff‘𝑓)‘1) ∈ ℂ)
52 simpr 490 . . . . . . . . . . . . . 14 ((𝑓 ∈ (Poly‘ℂ) ∧ 1 = (deg‘𝑓)) → 1 = (deg‘𝑓))
5352fveq2d 6897 . . . . . . . . . . . . 13 ((𝑓 ∈ (Poly‘ℂ) ∧ 1 = (deg‘𝑓)) → ((coeff‘𝑓)‘1) = ((coeff‘𝑓)‘(deg‘𝑓)))
54 ax-1ne0 11279 . . . . . . . . . . . . . . . . 17 1 ≠ 0
5554a1i 11 . . . . . . . . . . . . . . . 16 ((𝑓 ∈ (Poly‘ℂ) ∧ 1 = (deg‘𝑓)) → 1 ≠ 0)
5652, 55eqnetrrd 3026 . . . . . . . . . . . . . . 15 ((𝑓 ∈ (Poly‘ℂ) ∧ 1 = (deg‘𝑓)) → (deg‘𝑓) ≠ 0)
57 fveq2 6893 . . . . . . . . . . . . . . . . 17 (𝑓 = 0𝑝 → (deg‘𝑓) = (deg‘0𝑝))
58 dgr0 26593 . . . . . . . . . . . . . . . . 17 (deg‘0𝑝) = 0
5957, 58eqtrdi 2814 . . . . . . . . . . . . . . . 16 (𝑓 = 0𝑝 → (deg‘𝑓) = 0)
6059necon3i 2990 . . . . . . . . . . . . . . 15 ((deg‘𝑓) ≠ 0 → 𝑓 ≠ 0𝑝)
6156, 60syl 18 . . . . . . . . . . . . . 14 ((𝑓 ∈ (Poly‘ℂ) ∧ 1 = (deg‘𝑓)) → 𝑓 ≠ 0𝑝)
62 eqid 2763 . . . . . . . . . . . . . . . . 17 (deg‘𝑓) = (deg‘𝑓)
6362, 43dgreq0 26596 . . . . . . . . . . . . . . . 16 (𝑓 ∈ (Poly‘ℂ) → (𝑓 = 0𝑝 ↔ ((coeff‘𝑓)‘(deg‘𝑓)) = 0))
6463necon3bid 3002 . . . . . . . . . . . . . . 15 (𝑓 ∈ (Poly‘ℂ) → (𝑓 ≠ 0𝑝 ↔ ((coeff‘𝑓)‘(deg‘𝑓)) ≠ 0))
6564adantr 486 . . . . . . . . . . . . . 14 ((𝑓 ∈ (Poly‘ℂ) ∧ 1 = (deg‘𝑓)) → (𝑓 ≠ 0𝑝 ↔ ((coeff‘𝑓)‘(deg‘𝑓)) ≠ 0))
6661, 65mpbid 235 . . . . . . . . . . . . 13 ((𝑓 ∈ (Poly‘ℂ) ∧ 1 = (deg‘𝑓)) → ((coeff‘𝑓)‘(deg‘𝑓)) ≠ 0)
6753, 66eqnetrd 3025 . . . . . . . . . . . 12 ((𝑓 ∈ (Poly‘ℂ) ∧ 1 = (deg‘𝑓)) → ((coeff‘𝑓)‘1) ≠ 0)
6848, 51, 67divcld 12103 . . . . . . . . . . 11 ((𝑓 ∈ (Poly‘ℂ) ∧ 1 = (deg‘𝑓)) → (((coeff‘𝑓)‘0) / ((coeff‘𝑓)‘1)) ∈ ℂ)
6968negcld 11666 . . . . . . . . . 10 ((𝑓 ∈ (Poly‘ℂ) ∧ 1 = (deg‘𝑓)) → -(((coeff‘𝑓)‘0) / ((coeff‘𝑓)‘1)) ∈ ℂ)
70 id 23 . . . . . . . . . . 11 (𝑥 = -(((coeff‘𝑓)‘0) / ((coeff‘𝑓)‘1)) → 𝑥 = -(((coeff‘𝑓)‘0) / ((coeff‘𝑓)‘1)))
7170sumsn 15924 . . . . . . . . . 10 (( -(((coeff‘𝑓)‘0) / ((coeff‘𝑓)‘1)) ∈ ℂ ∧ -(((coeff‘𝑓)‘0) / ((coeff‘𝑓)‘1)) ∈ ℂ) → Σ𝑥 ∈ { -(((coeff‘𝑓)‘0) / ((coeff‘𝑓)‘1))}𝑥 = -(((coeff‘𝑓)‘0) / ((coeff‘𝑓)‘1)))
7269, 69, 71syl2anc 596 . . . . . . . . 9 ((𝑓 ∈ (Poly‘ℂ) ∧ 1 = (deg‘𝑓)) → Σ𝑥 ∈ { -(((coeff‘𝑓)‘0) / ((coeff‘𝑓)‘1))}𝑥 = -(((coeff‘𝑓)‘0) / ((coeff‘𝑓)‘1)))
7372adantrr 730 . . . . . . . 8 ((𝑓 ∈ (Poly‘ℂ) ∧ (1 = (deg‘𝑓) ∧ (♯‘(◡𝑓 “ {0})) = (deg‘𝑓))) → Σ𝑥 ∈ { -(((coeff‘𝑓)‘0) / ((coeff‘𝑓)‘1))}𝑥 = -(((coeff‘𝑓)‘0) / ((coeff‘𝑓)‘1)))
74 eqid 2763 . . . . . . . . . . . . . 14 (◡𝑓 “ {0}) = (◡𝑓 “ {0})
7574fta1 26641 . . . . . . . . . . . . 13 ((𝑓 ∈ (Poly‘ℂ) ∧ 𝑓 ≠ 0𝑝) → ((◡𝑓 “ {0}) ∈ Fin ∧ (♯‘(◡𝑓 “ {0})) ≤ (deg‘𝑓)))
7661, 75syldan 603 . . . . . . . . . . . 12 ((𝑓 ∈ (Poly‘ℂ) ∧ 1 = (deg‘𝑓)) → ((◡𝑓 “ {0}) ∈ Fin ∧ (♯‘(◡𝑓 “ {0})) ≤ (deg‘𝑓)))
7776simpld 500 . . . . . . . . . . 11 ((𝑓 ∈ (Poly‘ℂ) ∧ 1 = (deg‘𝑓)) → (◡𝑓 “ {0}) ∈ Fin)
7877adantrr 730 . . . . . . . . . 10 ((𝑓 ∈ (Poly‘ℂ) ∧ (1 = (deg‘𝑓) ∧ (♯‘(◡𝑓 “ {0})) = (deg‘𝑓))) → (◡𝑓 “ {0}) ∈ Fin)
7943, 62coeid2 26570 . . . . . . . . . . . . . . 15 ((𝑓 ∈ (Poly‘ℂ) ∧ -(((coeff‘𝑓)‘0) / ((coeff‘𝑓)‘1)) ∈ ℂ) → (𝑓‘ -(((coeff‘𝑓)‘0) / ((coeff‘𝑓)‘1))) = Σ𝑘 ∈ (0...(deg‘𝑓))(((coeff‘𝑓)‘𝑘) · ( -(((coeff‘𝑓)‘0) / ((coeff‘𝑓)‘1))↑𝑘)))
8069, 79syldan 603 . . . . . . . . . . . . . 14 ((𝑓 ∈ (Poly‘ℂ) ∧ 1 = (deg‘𝑓)) → (𝑓‘ -(((coeff‘𝑓)‘0) / ((coeff‘𝑓)‘1))) = Σ𝑘 ∈ (0...(deg‘𝑓))(((coeff‘𝑓)‘𝑘) · ( -(((coeff‘𝑓)‘0) / ((coeff‘𝑓)‘1))↑𝑘)))
8152oveq2d 7443 . . . . . . . . . . . . . . 15 ((𝑓 ∈ (Poly‘ℂ) ∧ 1 = (deg‘𝑓)) → (0...1) = (0...(deg‘𝑓)))
8281sumeq1d 15879 . . . . . . . . . . . . . 14 ((𝑓 ∈ (Poly‘ℂ) ∧ 1 = (deg‘𝑓)) → Σ𝑘 ∈ (0...1)(((coeff‘𝑓)‘𝑘) · ( -(((coeff‘𝑓)‘0) / ((coeff‘𝑓)‘1))↑𝑘)) = Σ𝑘 ∈ (0...(deg‘𝑓))(((coeff‘𝑓)‘𝑘) · ( -(((coeff‘𝑓)‘0) / ((coeff‘𝑓)‘1))↑𝑘)))
83 nn0uz 13013 . . . . . . . . . . . . . . . 16 ℕ0 = (ℤ≥‘0)
84 1e0p1 12871 . . . . . . . . . . . . . . . 16 1 = (0 + 1)
85 fveq2 6893 . . . . . . . . . . . . . . . . 17 (𝑘 = 1 → ((coeff‘𝑓)‘𝑘) = ((coeff‘𝑓)‘1))
86 oveq2 7435 . . . . . . . . . . . . . . . . 17 (𝑘 = 1 → ( -(((coeff‘𝑓)‘0) / ((coeff‘𝑓)‘1))↑𝑘) = ( -(((coeff‘𝑓)‘0) / ((coeff‘𝑓)‘1))↑1))
8785, 86oveq12d 7445 . . . . . . . . . . . . . . . 16 (𝑘 = 1 → (((coeff‘𝑓)‘𝑘) · ( -(((coeff‘𝑓)‘0) / ((coeff‘𝑓)‘1))↑𝑘)) = (((coeff‘𝑓)‘1) · ( -(((coeff‘𝑓)‘0) / ((coeff‘𝑓)‘1))↑1)))
8845ffvelcdmda 7092 . . . . . . . . . . . . . . . . 17 (((𝑓 ∈ (Poly‘ℂ) ∧ 1 = (deg‘𝑓)) ∧ 𝑘 ∈ ℕ0) → ((coeff‘𝑓)‘𝑘) ∈ ℂ)
89 expcl 14232 . . . . . . . . . . . . . . . . . 18 (( -(((coeff‘𝑓)‘0) / ((coeff‘𝑓)‘1)) ∈ ℂ ∧ 𝑘 ∈ ℕ0) → ( -(((coeff‘𝑓)‘0) / ((coeff‘𝑓)‘1))↑𝑘) ∈ ℂ)
9069, 89sylan 592 . . . . . . . . . . . . . . . . 17 (((𝑓 ∈ (Poly‘ℂ) ∧ 1 = (deg‘𝑓)) ∧ 𝑘 ∈ ℕ0) → ( -(((coeff‘𝑓)‘0) / ((coeff‘𝑓)‘1))↑𝑘) ∈ ℂ)
9188, 90mulcld 11339 . . . . . . . . . . . . . . . 16 (((𝑓 ∈ (Poly‘ℂ) ∧ 1 = (deg‘𝑓)) ∧ 𝑘 ∈ ℕ0) → (((coeff‘𝑓)‘𝑘) · ( -(((coeff‘𝑓)‘0) / ((coeff‘𝑓)‘1))↑𝑘)) ∈ ℂ)
92 0z 12714 . . . . . . . . . . . . . . . . . . 19 0 ∈ ℤ
9369exp0d 14293 . . . . . . . . . . . . . . . . . . . . . 22 ((𝑓 ∈ (Poly‘ℂ) ∧ 1 = (deg‘𝑓)) → ( -(((coeff‘𝑓)‘0) / ((coeff‘𝑓)‘1))↑0) = 1)
9493oveq2d 7443 . . . . . . . . . . . . . . . . . . . . 21 ((𝑓 ∈ (Poly‘ℂ) ∧ 1 = (deg‘𝑓)) → (((coeff‘𝑓)‘0) · ( -(((coeff‘𝑓)‘0) / ((coeff‘𝑓)‘1))↑0)) = (((coeff‘𝑓)‘0) · 1))
9548mulridd 11336 . . . . . . . . . . . . . . . . . . . . 21 ((𝑓 ∈ (Poly‘ℂ) ∧ 1 = (deg‘𝑓)) → (((coeff‘𝑓)‘0) · 1) = ((coeff‘𝑓)‘0))
9694, 95eqtrd 2798 . . . . . . . . . . . . . . . . . . . 20 ((𝑓 ∈ (Poly‘ℂ) ∧ 1 = (deg‘𝑓)) → (((coeff‘𝑓)‘0) · ( -(((coeff‘𝑓)‘0) / ((coeff‘𝑓)‘1))↑0)) = ((coeff‘𝑓)‘0))
9796, 48eqeltrd 2863 . . . . . . . . . . . . . . . . . . 19 ((𝑓 ∈ (Poly‘ℂ) ∧ 1 = (deg‘𝑓)) → (((coeff‘𝑓)‘0) · ( -(((coeff‘𝑓)‘0) / ((coeff‘𝑓)‘1))↑0)) ∈ ℂ)
98 fveq2 6893 . . . . . . . . . . . . . . . . . . . . 21 (𝑘 = 0 → ((coeff‘𝑓)‘𝑘) = ((coeff‘𝑓)‘0))
99 oveq2 7435 . . . . . . . . . . . . . . . . . . . . 21 (𝑘 = 0 → ( -(((coeff‘𝑓)‘0) / ((coeff‘𝑓)‘1))↑𝑘) = ( -(((coeff‘𝑓)‘0) / ((coeff‘𝑓)‘1))↑0))
10098, 99oveq12d 7445 . . . . . . . . . . . . . . . . . . . 20 (𝑘 = 0 → (((coeff‘𝑓)‘𝑘) · ( -(((coeff‘𝑓)‘0) / ((coeff‘𝑓)‘1))↑𝑘)) = (((coeff‘𝑓)‘0) · ( -(((coeff‘𝑓)‘0) / ((coeff‘𝑓)‘1))↑0)))
101100fsum1 15925 . . . . . . . . . . . . . . . . . . 19 ((0 ∈ ℤ ∧ (((coeff‘𝑓)‘0) · ( -(((coeff‘𝑓)‘0) / ((coeff‘𝑓)‘1))↑0)) ∈ ℂ) → Σ𝑘 ∈ (0...0)(((coeff‘𝑓)‘𝑘) · ( -(((coeff‘𝑓)‘0) / ((coeff‘𝑓)‘1))↑𝑘)) = (((coeff‘𝑓)‘0) · ( -(((coeff‘𝑓)‘0) / ((coeff‘𝑓)‘1))↑0)))
10292, 97, 101sylancr 599 . . . . . . . . . . . . . . . . . 18 ((𝑓 ∈ (Poly‘ℂ) ∧ 1 = (deg‘𝑓)) → Σ𝑘 ∈ (0...0)(((coeff‘𝑓)‘𝑘) · ( -(((coeff‘𝑓)‘0) / ((coeff‘𝑓)‘1))↑𝑘)) = (((coeff‘𝑓)‘0) · ( -(((coeff‘𝑓)‘0) / ((coeff‘𝑓)‘1))↑0)))
103102, 96eqtrd 2798 . . . . . . . . . . . . . . . . 17 ((𝑓 ∈ (Poly‘ℂ) ∧ 1 = (deg‘𝑓)) → Σ𝑘 ∈ (0...0)(((coeff‘𝑓)‘𝑘) · ( -(((coeff‘𝑓)‘0) / ((coeff‘𝑓)‘1))↑𝑘)) = ((coeff‘𝑓)‘0))
104103, 46jctil 529 . . . . . . . . . . . . . . . 16 ((𝑓 ∈ (Poly‘ℂ) ∧ 1 = (deg‘𝑓)) → (0 ∈ ℕ0 ∧ Σ𝑘 ∈ (0...0)(((coeff‘𝑓)‘𝑘) · ( -(((coeff‘𝑓)‘0) / ((coeff‘𝑓)‘1))↑𝑘)) = ((coeff‘𝑓)‘0)))
10569exp1d 14294 . . . . . . . . . . . . . . . . . . . 20 ((𝑓 ∈ (Poly‘ℂ) ∧ 1 = (deg‘𝑓)) → ( -(((coeff‘𝑓)‘0) / ((coeff‘𝑓)‘1))↑1) = -(((coeff‘𝑓)‘0) / ((coeff‘𝑓)‘1)))
106105oveq2d 7443 . . . . . . . . . . . . . . . . . . 19 ((𝑓 ∈ (Poly‘ℂ) ∧ 1 = (deg‘𝑓)) → (((coeff‘𝑓)‘1) · ( -(((coeff‘𝑓)‘0) / ((coeff‘𝑓)‘1))↑1)) = (((coeff‘𝑓)‘1) · -(((coeff‘𝑓)‘0) / ((coeff‘𝑓)‘1))))
10751, 68mulneg2d 11780 . . . . . . . . . . . . . . . . . . 19 ((𝑓 ∈ (Poly‘ℂ) ∧ 1 = (deg‘𝑓)) → (((coeff‘𝑓)‘1) · -(((coeff‘𝑓)‘0) / ((coeff‘𝑓)‘1))) = -(((coeff‘𝑓)‘1) · (((coeff‘𝑓)‘0) / ((coeff‘𝑓)‘1))))
10848, 51, 67divcan2d 12105 . . . . . . . . . . . . . . . . . . . 20 ((𝑓 ∈ (Poly‘ℂ) ∧ 1 = (deg‘𝑓)) → (((coeff‘𝑓)‘1) · (((coeff‘𝑓)‘0) / ((coeff‘𝑓)‘1))) = ((coeff‘𝑓)‘0))
109108negeqd 11561 . . . . . . . . . . . . . . . . . . 19 ((𝑓 ∈ (Poly‘ℂ) ∧ 1 = (deg‘𝑓)) → -(((coeff‘𝑓)‘1) · (((coeff‘𝑓)‘0) / ((coeff‘𝑓)‘1))) = -((coeff‘𝑓)‘0))
110106, 107, 1093eqtrd 2802 . . . . . . . . . . . . . . . . . 18 ((𝑓 ∈ (Poly‘ℂ) ∧ 1 = (deg‘𝑓)) → (((coeff‘𝑓)‘1) · ( -(((coeff‘𝑓)‘0) / ((coeff‘𝑓)‘1))↑1)) = -((coeff‘𝑓)‘0))
111110oveq2d 7443 . . . . . . . . . . . . . . . . 17 ((𝑓 ∈ (Poly‘ℂ) ∧ 1 = (deg‘𝑓)) → (((coeff‘𝑓)‘0) + (((coeff‘𝑓)‘1) · ( -(((coeff‘𝑓)‘0) / ((coeff‘𝑓)‘1))↑1))) = (((coeff‘𝑓)‘0) + -((coeff‘𝑓)‘0)))
11248negidd 11669 . . . . . . . . . . . . . . . . 17 ((𝑓 ∈ (Poly‘ℂ) ∧ 1 = (deg‘𝑓)) → (((coeff‘𝑓)‘0) + -((coeff‘𝑓)‘0)) = 0)
113111, 112eqtrd 2798 . . . . . . . . . . . . . . . 16 ((𝑓 ∈ (Poly‘ℂ) ∧ 1 = (deg‘𝑓)) → (((coeff‘𝑓)‘0) + (((coeff‘𝑓)‘1) · ( -(((coeff‘𝑓)‘0) / ((coeff‘𝑓)‘1))↑1))) = 0)
11483, 84, 87, 91, 104, 113fsump1i 15947 . . . . . . . . . . . . . . 15 ((𝑓 ∈ (Poly‘ℂ) ∧ 1 = (deg‘𝑓)) → (1 ∈ ℕ0 ∧ Σ𝑘 ∈ (0...1)(((coeff‘𝑓)‘𝑘) · ( -(((coeff‘𝑓)‘0) / ((coeff‘𝑓)‘1))↑𝑘)) = 0))
115114simprd 501 . . . . . . . . . . . . . 14 ((𝑓 ∈ (Poly‘ℂ) ∧ 1 = (deg‘𝑓)) → Σ𝑘 ∈ (0...1)(((coeff‘𝑓)‘𝑘) · ( -(((coeff‘𝑓)‘0) / ((coeff‘𝑓)‘1))↑𝑘)) = 0)
11680, 82, 1153eqtr2d 2804 . . . . . . . . . . . . 13 ((𝑓 ∈ (Poly‘ℂ) ∧ 1 = (deg‘𝑓)) → (𝑓‘ -(((coeff‘𝑓)‘0) / ((coeff‘𝑓)‘1))) = 0)
117 plyf 26528 . . . . . . . . . . . . . . . 16 (𝑓 ∈ (Poly‘ℂ) → 𝑓:ℂ⟶ℂ)
118117ffnd 6718 . . . . . . . . . . . . . . 15 (𝑓 ∈ (Poly‘ℂ) → 𝑓 Fn ℂ)
119118adantr 486 . . . . . . . . . . . . . 14 ((𝑓 ∈ (Poly‘ℂ) ∧ 1 = (deg‘𝑓)) → 𝑓 Fn ℂ)
120 fniniseg 7067 . . . . . . . . . . . . . 14 (𝑓 Fn ℂ → ( -(((coeff‘𝑓)‘0) / ((coeff‘𝑓)‘1)) ∈ (◡𝑓 “ {0}) ↔ ( -(((coeff‘𝑓)‘0) / ((coeff‘𝑓)‘1)) ∈ ℂ ∧ (𝑓‘ -(((coeff‘𝑓)‘0) / ((coeff‘𝑓)‘1))) = 0)))
121119, 120syl 18 . . . . . . . . . . . . 13 ((𝑓 ∈ (Poly‘ℂ) ∧ 1 = (deg‘𝑓)) → ( -(((coeff‘𝑓)‘0) / ((coeff‘𝑓)‘1)) ∈ (◡𝑓 “ {0}) ↔ ( -(((coeff‘𝑓)‘0) / ((coeff‘𝑓)‘1)) ∈ ℂ ∧ (𝑓‘ -(((coeff‘𝑓)‘0) / ((coeff‘𝑓)‘1))) = 0)))
12269, 116, 121mpbir2and 726 . . . . . . . . . . . 12 ((𝑓 ∈ (Poly‘ℂ) ∧ 1 = (deg‘𝑓)) → -(((coeff‘𝑓)‘0) / ((coeff‘𝑓)‘1)) ∈ (◡𝑓 “ {0}))
123122snssd 4746 . . . . . . . . . . 11 ((𝑓 ∈ (Poly‘ℂ) ∧ 1 = (deg‘𝑓)) → { -(((coeff‘𝑓)‘0) / ((coeff‘𝑓)‘1))} ⊆ (◡𝑓 “ {0}))
124123adantrr 730 . . . . . . . . . 10 ((𝑓 ∈ (Poly‘ℂ) ∧ (1 = (deg‘𝑓) ∧ (♯‘(◡𝑓 “ {0})) = (deg‘𝑓))) → { -(((coeff‘𝑓)‘0) / ((coeff‘𝑓)‘1))} ⊆ (◡𝑓 “ {0}))
125 hashsng 14523 . . . . . . . . . . . . . . 15 ( -(((coeff‘𝑓)‘0) / ((coeff‘𝑓)‘1)) ∈ ℂ → (♯‘{ -(((coeff‘𝑓)‘0) / ((coeff‘𝑓)‘1))}) = 1)
12669, 125syl 18 . . . . . . . . . . . . . 14 ((𝑓 ∈ (Poly‘ℂ) ∧ 1 = (deg‘𝑓)) → (♯‘{ -(((coeff‘𝑓)‘0) / ((coeff‘𝑓)‘1))}) = 1)
127126, 52eqtrd 2798 . . . . . . . . . . . . 13 ((𝑓 ∈ (Poly‘ℂ) ∧ 1 = (deg‘𝑓)) → (♯‘{ -(((coeff‘𝑓)‘0) / ((coeff‘𝑓)‘1))}) = (deg‘𝑓))
128127adantrr 730 . . . . . . . . . . . 12 ((𝑓 ∈ (Poly‘ℂ) ∧ (1 = (deg‘𝑓) ∧ (♯‘(◡𝑓 “ {0})) = (deg‘𝑓))) → (♯‘{ -(((coeff‘𝑓)‘0) / ((coeff‘𝑓)‘1))}) = (deg‘𝑓))
129 simprr 785 . . . . . . . . . . . 12 ((𝑓 ∈ (Poly‘ℂ) ∧ (1 = (deg‘𝑓) ∧ (♯‘(◡𝑓 “ {0})) = (deg‘𝑓))) → (♯‘(◡𝑓 “ {0})) = (deg‘𝑓))
130128, 129eqtr4d 2801 . . . . . . . . . . 11 ((𝑓 ∈ (Poly‘ℂ) ∧ (1 = (deg‘𝑓) ∧ (♯‘(◡𝑓 “ {0})) = (deg‘𝑓))) → (♯‘{ -(((coeff‘𝑓)‘0) / ((coeff‘𝑓)‘1))}) = (♯‘(◡𝑓 “ {0})))
131 snfi 9082 . . . . . . . . . . . . 13 { -(((coeff‘𝑓)‘0) / ((coeff‘𝑓)‘1))} ∈ Fin
132 hashen 14501 . . . . . . . . . . . . 13 (({ -(((coeff‘𝑓)‘0) / ((coeff‘𝑓)‘1))} ∈ Fin ∧ (◡𝑓 “ {0}) ∈ Fin) → ((♯‘{ -(((coeff‘𝑓)‘0) / ((coeff‘𝑓)‘1))}) = (♯‘(◡𝑓 “ {0})) ↔ { -(((coeff‘𝑓)‘0) / ((coeff‘𝑓)‘1))} ≈ (◡𝑓 “ {0})))
133131, 77, 132sylancr 599 . . . . . . . . . . . 12 ((𝑓 ∈ (Poly‘ℂ) ∧ 1 = (deg‘𝑓)) → ((♯‘{ -(((coeff‘𝑓)‘0) / ((coeff‘𝑓)‘1))}) = (♯‘(◡𝑓 “ {0})) ↔ { -(((coeff‘𝑓)‘0) / ((coeff‘𝑓)‘1))} ≈ (◡𝑓 “ {0})))
134133adantrr 730 . . . . . . . . . . 11 ((𝑓 ∈ (Poly‘ℂ) ∧ (1 = (deg‘𝑓) ∧ (♯‘(◡𝑓 “ {0})) = (deg‘𝑓))) → ((♯‘{ -(((coeff‘𝑓)‘0) / ((coeff‘𝑓)‘1))}) = (♯‘(◡𝑓 “ {0})) ↔ { -(((coeff‘𝑓)‘0) / ((coeff‘𝑓)‘1))} ≈ (◡𝑓 “ {0})))
135130, 134mpbid 235 . . . . . . . . . 10 ((𝑓 ∈ (Poly‘ℂ) ∧ (1 = (deg‘𝑓) ∧ (♯‘(◡𝑓 “ {0})) = (deg‘𝑓))) → { -(((coeff‘𝑓)‘0) / ((coeff‘𝑓)‘1))} ≈ (◡𝑓 “ {0}))
136 fisseneq 9265 . . . . . . . . . 10 (((◡𝑓 “ {0}) ∈ Fin ∧ { -(((coeff‘𝑓)‘0) / ((coeff‘𝑓)‘1))} ⊆ (◡𝑓 “ {0}) ∧ { -(((coeff‘𝑓)‘0) / ((coeff‘𝑓)‘1))} ≈ (◡𝑓 “ {0})) → { -(((coeff‘𝑓)‘0) / ((coeff‘𝑓)‘1))} = (◡𝑓 “ {0}))
13778, 124, 135, 136syl3anc 1398 . . . . . . . . 9 ((𝑓 ∈ (Poly‘ℂ) ∧ (1 = (deg‘𝑓) ∧ (♯‘(◡𝑓 “ {0})) = (deg‘𝑓))) → { -(((coeff‘𝑓)‘0) / ((coeff‘𝑓)‘1))} = (◡𝑓 “ {0}))
138137sumeq1d 15879 . . . . . . . 8 ((𝑓 ∈ (Poly‘ℂ) ∧ (1 = (deg‘𝑓) ∧ (♯‘(◡𝑓 “ {0})) = (deg‘𝑓))) → Σ𝑥 ∈ { -(((coeff‘𝑓)‘0) / ((coeff‘𝑓)‘1))}𝑥 = Σ𝑥 ∈ (◡𝑓 “ {0})𝑥)
139 1m1e0 12425 . . . . . . . . . . . . 13 (1 − 1) = 0
14052oveq1d 7442 . . . . . . . . . . . . 13 ((𝑓 ∈ (Poly‘ℂ) ∧ 1 = (deg‘𝑓)) → (1 − 1) = ((deg‘𝑓) − 1))
141139, 140eqtr3id 2812 . . . . . . . . . . . 12 ((𝑓 ∈ (Poly‘ℂ) ∧ 1 = (deg‘𝑓)) → 0 = ((deg‘𝑓) − 1))
142141fveq2d 6897 . . . . . . . . . . 11 ((𝑓 ∈ (Poly‘ℂ) ∧ 1 = (deg‘𝑓)) → ((coeff‘𝑓)‘0) = ((coeff‘𝑓)‘((deg‘𝑓) − 1)))
143142, 53oveq12d 7445 . . . . . . . . . 10 ((𝑓 ∈ (Poly‘ℂ) ∧ 1 = (deg‘𝑓)) → (((coeff‘𝑓)‘0) / ((coeff‘𝑓)‘1)) = (((coeff‘𝑓)‘((deg‘𝑓) − 1)) / ((coeff‘𝑓)‘(deg‘𝑓))))
144143negeqd 11561 . . . . . . . . 9 ((𝑓 ∈ (Poly‘ℂ) ∧ 1 = (deg‘𝑓)) → -(((coeff‘𝑓)‘0) / ((coeff‘𝑓)‘1)) = -(((coeff‘𝑓)‘((deg‘𝑓) − 1)) / ((coeff‘𝑓)‘(deg‘𝑓))))
145144adantrr 730 . . . . . . . 8 ((𝑓 ∈ (Poly‘ℂ) ∧ (1 = (deg‘𝑓) ∧ (♯‘(◡𝑓 “ {0})) = (deg‘𝑓))) → -(((coeff‘𝑓)‘0) / ((coeff‘𝑓)‘1)) = -(((coeff‘𝑓)‘((deg‘𝑓) − 1)) / ((coeff‘𝑓)‘(deg‘𝑓))))
14673, 138, 1453eqtr3d 2806 . . . . . . 7 ((𝑓 ∈ (Poly‘ℂ) ∧ (1 = (deg‘𝑓) ∧ (♯‘(◡𝑓 “ {0})) = (deg‘𝑓))) → Σ𝑥 ∈ (◡𝑓 “ {0})𝑥 = -(((coeff‘𝑓)‘((deg‘𝑓) − 1)) / ((coeff‘𝑓)‘(deg‘𝑓))))
147146ex 418 . . . . . 6 (𝑓 ∈ (Poly‘ℂ) → ((1 = (deg‘𝑓) ∧ (♯‘(◡𝑓 “ {0})) = (deg‘𝑓)) → Σ𝑥 ∈ (◡𝑓 “ {0})𝑥 = -(((coeff‘𝑓)‘((deg‘𝑓) − 1)) / ((coeff‘𝑓)‘(deg‘𝑓)))))
148147rgen 3081 . . . . 5 ∀𝑓 ∈ (Poly‘ℂ)((1 = (deg‘𝑓) ∧ (♯‘(◡𝑓 “ {0})) = (deg‘𝑓)) → Σ𝑥 ∈ (◡𝑓 “ {0})𝑥 = -(((coeff‘𝑓)‘((deg‘𝑓) − 1)) / ((coeff‘𝑓)‘(deg‘𝑓))))
149 id 23 . . . . . . . . . . . 12 (𝑦 = 𝑥 → 𝑦 = 𝑥)
150149cbvsumv 15875 . . . . . . . . . . 11 Σ𝑦 ∈ (◡𝑓 “ {0})𝑦 = Σ𝑥 ∈ (◡𝑓 “ {0})𝑥
151150eqeq1i 2768 . . . . . . . . . 10 (Σ𝑦 ∈ (◡𝑓 “ {0})𝑦 = -(((coeff‘𝑓)‘((deg‘𝑓) − 1)) / ((coeff‘𝑓)‘(deg‘𝑓))) ↔ Σ𝑥 ∈ (◡𝑓 “ {0})𝑥 = -(((coeff‘𝑓)‘((deg‘𝑓) − 1)) / ((coeff‘𝑓)‘(deg‘𝑓))))
152151imbi2i 339 . . . . . . . . 9 (((𝑑 = (deg‘𝑓) ∧ (♯‘(◡𝑓 “ {0})) = (deg‘𝑓)) → Σ𝑦 ∈ (◡𝑓 “ {0})𝑦 = -(((coeff‘𝑓)‘((deg‘𝑓) − 1)) / ((coeff‘𝑓)‘(deg‘𝑓)))) ↔ ((𝑑 = (deg‘𝑓) ∧ (♯‘(◡𝑓 “ {0})) = (deg‘𝑓)) → Σ𝑥 ∈ (◡𝑓 “ {0})𝑥 = -(((coeff‘𝑓)‘((deg‘𝑓) − 1)) / ((coeff‘𝑓)‘(deg‘𝑓)))))
153152ralbii 3111 . . . . . . . 8 (∀𝑓 ∈ (Poly‘ℂ)((𝑑 = (deg‘𝑓) ∧ (♯‘(◡𝑓 “ {0})) = (deg‘𝑓)) → Σ𝑦 ∈ (◡𝑓 “ {0})𝑦 = -(((coeff‘𝑓)‘((deg‘𝑓) − 1)) / ((coeff‘𝑓)‘(deg‘𝑓)))) ↔ ∀𝑓 ∈ (Poly‘ℂ)((𝑑 = (deg‘𝑓) ∧ (♯‘(◡𝑓 “ {0})) = (deg‘𝑓)) → Σ𝑥 ∈ (◡𝑓 “ {0})𝑥 = -(((coeff‘𝑓)‘((deg‘𝑓) − 1)) / ((coeff‘𝑓)‘(deg‘𝑓)))))
154 eqid 2763 . . . . . . . . . 10 (coeff‘𝑔) = (coeff‘𝑔)
155 eqid 2763 . . . . . . . . . 10 (deg‘𝑔) = (deg‘𝑔)
156 eqid 2763 . . . . . . . . . 10 (◡𝑔 “ {0}) = (◡𝑔 “ {0})
157 simp1r 1217 . . . . . . . . . 10 (((𝑑 ∈ ℕ ∧ 𝑔 ∈ (Poly‘ℂ)) ∧ ∀𝑓 ∈ (Poly‘ℂ)((𝑑 = (deg‘𝑓) ∧ (♯‘(◡𝑓 “ {0})) = (deg‘𝑓)) → Σ𝑦 ∈ (◡𝑓 “ {0})𝑦 = -(((coeff‘𝑓)‘((deg‘𝑓) − 1)) / ((coeff‘𝑓)‘(deg‘𝑓)))) ∧ ((𝑑 + 1) = (deg‘𝑔) ∧ (♯‘(◡𝑔 “ {0})) = (deg‘𝑔))) → 𝑔 ∈ (Poly‘ℂ))
158 simp3r 1221 . . . . . . . . . 10 (((𝑑 ∈ ℕ ∧ 𝑔 ∈ (Poly‘ℂ)) ∧ ∀𝑓 ∈ (Poly‘ℂ)((𝑑 = (deg‘𝑓) ∧ (♯‘(◡𝑓 “ {0})) = (deg‘𝑓)) → Σ𝑦 ∈ (◡𝑓 “ {0})𝑦 = -(((coeff‘𝑓)‘((deg‘𝑓) − 1)) / ((coeff‘𝑓)‘(deg‘𝑓)))) ∧ ((𝑑 + 1) = (deg‘𝑔) ∧ (♯‘(◡𝑔 “ {0})) = (deg‘𝑔))) → (♯‘(◡𝑔 “ {0})) = (deg‘𝑔))
159 simp1l 1216 . . . . . . . . . 10 (((𝑑 ∈ ℕ ∧ 𝑔 ∈ (Poly‘ℂ)) ∧ ∀𝑓 ∈ (Poly‘ℂ)((𝑑 = (deg‘𝑓) ∧ (♯‘(◡𝑓 “ {0})) = (deg‘𝑓)) → Σ𝑦 ∈ (◡𝑓 “ {0})𝑦 = -(((coeff‘𝑓)‘((deg‘𝑓) − 1)) / ((coeff‘𝑓)‘(deg‘𝑓)))) ∧ ((𝑑 + 1) = (deg‘𝑔) ∧ (♯‘(◡𝑔 “ {0})) = (deg‘𝑔))) → 𝑑 ∈ ℕ)
160 simp3l 1220 . . . . . . . . . 10 (((𝑑 ∈ ℕ ∧ 𝑔 ∈ (Poly‘ℂ)) ∧ ∀𝑓 ∈ (Poly‘ℂ)((𝑑 = (deg‘𝑓) ∧ (♯‘(◡𝑓 “ {0})) = (deg‘𝑓)) → Σ𝑦 ∈ (◡𝑓 “ {0})𝑦 = -(((coeff‘𝑓)‘((deg‘𝑓) − 1)) / ((coeff‘𝑓)‘(deg‘𝑓)))) ∧ ((𝑑 + 1) = (deg‘𝑔) ∧ (♯‘(◡𝑔 “ {0})) = (deg‘𝑔))) → (𝑑 + 1) = (deg‘𝑔))
161 simp2 1155 . . . . . . . . . . 11 (((𝑑 ∈ ℕ ∧ 𝑔 ∈ (Poly‘ℂ)) ∧ ∀𝑓 ∈ (Poly‘ℂ)((𝑑 = (deg‘𝑓) ∧ (♯‘(◡𝑓 “ {0})) = (deg‘𝑓)) → Σ𝑦 ∈ (◡𝑓 “ {0})𝑦 = -(((coeff‘𝑓)‘((deg‘𝑓) − 1)) / ((coeff‘𝑓)‘(deg‘𝑓)))) ∧ ((𝑑 + 1) = (deg‘𝑔) ∧ (♯‘(◡𝑔 “ {0})) = (deg‘𝑔))) → ∀𝑓 ∈ (Poly‘ℂ)((𝑑 = (deg‘𝑓) ∧ (♯‘(◡𝑓 “ {0})) = (deg‘𝑓)) → Σ𝑦 ∈ (◡𝑓 “ {0})𝑦 = -(((coeff‘𝑓)‘((deg‘𝑓) − 1)) / ((coeff‘𝑓)‘(deg‘𝑓)))))
162161, 153sylib 221 . . . . . . . . . 10 (((𝑑 ∈ ℕ ∧ 𝑔 ∈ (Poly‘ℂ)) ∧ ∀𝑓 ∈ (Poly‘ℂ)((𝑑 = (deg‘𝑓) ∧ (♯‘(◡𝑓 “ {0})) = (deg‘𝑓)) → Σ𝑦 ∈ (◡𝑓 “ {0})𝑦 = -(((coeff‘𝑓)‘((deg‘𝑓) − 1)) / ((coeff‘𝑓)‘(deg‘𝑓)))) ∧ ((𝑑 + 1) = (deg‘𝑔) ∧ (♯‘(◡𝑔 “ {0})) = (deg‘𝑔))) → ∀𝑓 ∈ (Poly‘ℂ)((𝑑 = (deg‘𝑓) ∧ (♯‘(◡𝑓 “ {0})) = (deg‘𝑓)) → Σ𝑥 ∈ (◡𝑓 “ {0})𝑥 = -(((coeff‘𝑓)‘((deg‘𝑓) − 1)) / ((coeff‘𝑓)‘(deg‘𝑓)))))
163 eqid 2763 . . . . . . . . . 10 (𝑔 quot (Xp ∘f − (ℂ × {𝑧}))) = (𝑔 quot (Xp ∘f − (ℂ × {𝑧})))
164154, 155, 156, 157, 158, 159, 160, 162, 163vieta1lem2 26646 . . . . . . . . 9 (((𝑑 ∈ ℕ ∧ 𝑔 ∈ (Poly‘ℂ)) ∧ ∀𝑓 ∈ (Poly‘ℂ)((𝑑 = (deg‘𝑓) ∧ (♯‘(◡𝑓 “ {0})) = (deg‘𝑓)) → Σ𝑦 ∈ (◡𝑓 “ {0})𝑦 = -(((coeff‘𝑓)‘((deg‘𝑓) − 1)) / ((coeff‘𝑓)‘(deg‘𝑓)))) ∧ ((𝑑 + 1) = (deg‘𝑔) ∧ (♯‘(◡𝑔 “ {0})) = (deg‘𝑔))) → Σ𝑥 ∈ (◡𝑔 “ {0})𝑥 = -(((coeff‘𝑔)‘((deg‘𝑔) − 1)) / ((coeff‘𝑔)‘(deg‘𝑔))))
1651643exp 1137 . . . . . . . 8 ((𝑑 ∈ ℕ ∧ 𝑔 ∈ (Poly‘ℂ)) → (∀𝑓 ∈ (Poly‘ℂ)((𝑑 = (deg‘𝑓) ∧ (♯‘(◡𝑓 “ {0})) = (deg‘𝑓)) → Σ𝑦 ∈ (◡𝑓 “ {0})𝑦 = -(((coeff‘𝑓)‘((deg‘𝑓) − 1)) / ((coeff‘𝑓)‘(deg‘𝑓)))) → (((𝑑 + 1) = (deg‘𝑔) ∧ (♯‘(◡𝑔 “ {0})) = (deg‘𝑔)) → Σ𝑥 ∈ (◡𝑔 “ {0})𝑥 = -(((coeff‘𝑔)‘((deg‘𝑔) − 1)) / ((coeff‘𝑔)‘(deg‘𝑔))))))
166153, 165biimtrrid 246 . . . . . . 7 ((𝑑 ∈ ℕ ∧ 𝑔 ∈ (Poly‘ℂ)) → (∀𝑓 ∈ (Poly‘ℂ)((𝑑 = (deg‘𝑓) ∧ (♯‘(◡𝑓 “ {0})) = (deg‘𝑓)) → Σ𝑥 ∈ (◡𝑓 “ {0})𝑥 = -(((coeff‘𝑓)‘((deg‘𝑓) − 1)) / ((coeff‘𝑓)‘(deg‘𝑓)))) → (((𝑑 + 1) = (deg‘𝑔) ∧ (♯‘(◡𝑔 “ {0})) = (deg‘𝑔)) → Σ𝑥 ∈ (◡𝑔 “ {0})𝑥 = -(((coeff‘𝑔)‘((deg‘𝑔) − 1)) / ((coeff‘𝑔)‘(deg‘𝑔))))))
167166ralrimdva 3165 . . . . . 6 (𝑑 ∈ ℕ → (∀𝑓 ∈ (Poly‘ℂ)((𝑑 = (deg‘𝑓) ∧ (♯‘(◡𝑓 “ {0})) = (deg‘𝑓)) → Σ𝑥 ∈ (◡𝑓 “ {0})𝑥 = -(((coeff‘𝑓)‘((deg‘𝑓) − 1)) / ((coeff‘𝑓)‘(deg‘𝑓)))) → ∀𝑔 ∈ (Poly‘ℂ)(((𝑑 + 1) = (deg‘𝑔) ∧ (♯‘(◡𝑔 “ {0})) = (deg‘𝑔)) → Σ𝑥 ∈ (◡𝑔 “ {0})𝑥 = -(((coeff‘𝑔)‘((deg‘𝑔) − 1)) / ((coeff‘𝑔)‘(deg‘𝑔))))))
168 fveq2 6893 . . . . . . . . . 10 (𝑔 = 𝑓 → (deg‘𝑔) = (deg‘𝑓))
169168eqeq2d 2774 . . . . . . . . 9 (𝑔 = 𝑓 → ((𝑑 + 1) = (deg‘𝑔) ↔ (𝑑 + 1) = (deg‘𝑓)))
170 cnveq 5855 . . . . . . . . . . . 12 (𝑔 = 𝑓 → ◡𝑔 = ◡𝑓)
171170imaeq1d 6056 . . . . . . . . . . 11 (𝑔 = 𝑓 → (◡𝑔 “ {0}) = (◡𝑓 “ {0}))
172171fveq2d 6897 . . . . . . . . . 10 (𝑔 = 𝑓 → (♯‘(◡𝑔 “ {0})) = (♯‘(◡𝑓 “ {0})))
173172, 168eqeq12d 2779 . . . . . . . . 9 (𝑔 = 𝑓 → ((♯‘(◡𝑔 “ {0})) = (deg‘𝑔) ↔ (♯‘(◡𝑓 “ {0})) = (deg‘𝑓)))
174169, 173anbi12d 644 . . . . . . . 8 (𝑔 = 𝑓 → (((𝑑 + 1) = (deg‘𝑔) ∧ (♯‘(◡𝑔 “ {0})) = (deg‘𝑔)) ↔ ((𝑑 + 1) = (deg‘𝑓) ∧ (♯‘(◡𝑓 “ {0})) = (deg‘𝑓))))
175171sumeq1d 15879 . . . . . . . . 9 (𝑔 = 𝑓 → Σ𝑥 ∈ (◡𝑔 “ {0})𝑥 = Σ𝑥 ∈ (◡𝑓 “ {0})𝑥)
176 fveq2 6893 . . . . . . . . . . . 12 (𝑔 = 𝑓 → (coeff‘𝑔) = (coeff‘𝑓))
177168oveq1d 7442 . . . . . . . . . . . 12 (𝑔 = 𝑓 → ((deg‘𝑔) − 1) = ((deg‘𝑓) − 1))
178176, 177fveq12d 6900 . . . . . . . . . . 11 (𝑔 = 𝑓 → ((coeff‘𝑔)‘((deg‘𝑔) − 1)) = ((coeff‘𝑓)‘((deg‘𝑓) − 1)))
179176, 168fveq12d 6900 . . . . . . . . . . 11 (𝑔 = 𝑓 → ((coeff‘𝑔)‘(deg‘𝑔)) = ((coeff‘𝑓)‘(deg‘𝑓)))
180178, 179oveq12d 7445 . . . . . . . . . 10 (𝑔 = 𝑓 → (((coeff‘𝑔)‘((deg‘𝑔) − 1)) / ((coeff‘𝑔)‘(deg‘𝑔))) = (((coeff‘𝑓)‘((deg‘𝑓) − 1)) / ((coeff‘𝑓)‘(deg‘𝑓))))
181180negeqd 11561 . . . . . . . . 9 (𝑔 = 𝑓 → -(((coeff‘𝑔)‘((deg‘𝑔) − 1)) / ((coeff‘𝑔)‘(deg‘𝑔))) = -(((coeff‘𝑓)‘((deg‘𝑓) − 1)) / ((coeff‘𝑓)‘(deg‘𝑓))))
182175, 181eqeq12d 2779 . . . . . . . 8 (𝑔 = 𝑓 → (Σ𝑥 ∈ (◡𝑔 “ {0})𝑥 = -(((coeff‘𝑔)‘((deg‘𝑔) − 1)) / ((coeff‘𝑔)‘(deg‘𝑔))) ↔ Σ𝑥 ∈ (◡𝑓 “ {0})𝑥 = -(((coeff‘𝑓)‘((deg‘𝑓) − 1)) / ((coeff‘𝑓)‘(deg‘𝑓)))))
183174, 182imbi12d 347 . . . . . . 7 (𝑔 = 𝑓 → ((((𝑑 + 1) = (deg‘𝑔) ∧ (♯‘(◡𝑔 “ {0})) = (deg‘𝑔)) → Σ𝑥 ∈ (◡𝑔 “ {0})𝑥 = -(((coeff‘𝑔)‘((deg‘𝑔) − 1)) / ((coeff‘𝑔)‘(deg‘𝑔)))) ↔ (((𝑑 + 1) = (deg‘𝑓) ∧ (♯‘(◡𝑓 “ {0})) = (deg‘𝑓)) → Σ𝑥 ∈ (◡𝑓 “ {0})𝑥 = -(((coeff‘𝑓)‘((deg‘𝑓) − 1)) / ((coeff‘𝑓)‘(deg‘𝑓))))))
184183cbvralvw 3243 . . . . . 6 (∀𝑔 ∈ (Poly‘ℂ)(((𝑑 + 1) = (deg‘𝑔) ∧ (♯‘(◡𝑔 “ {0})) = (deg‘𝑔)) → Σ𝑥 ∈ (◡𝑔 “ {0})𝑥 = -(((coeff‘𝑔)‘((deg‘𝑔) − 1)) / ((coeff‘𝑔)‘(deg‘𝑔)))) ↔ ∀𝑓 ∈ (Poly‘ℂ)(((𝑑 + 1) = (deg‘𝑓) ∧ (♯‘(◡𝑓 “ {0})) = (deg‘𝑓)) → Σ𝑥 ∈ (◡𝑓 “ {0})𝑥 = -(((coeff‘𝑓)‘((deg‘𝑓) − 1)) / ((coeff‘𝑓)‘(deg‘𝑓)))))
185167, 184imbitrdi 254 . . . . 5 (𝑑 ∈ ℕ → (∀𝑓 ∈ (Poly‘ℂ)((𝑑 = (deg‘𝑓) ∧ (♯‘(◡𝑓 “ {0})) = (deg‘𝑓)) → Σ𝑥 ∈ (◡𝑓 “ {0})𝑥 = -(((coeff‘𝑓)‘((deg‘𝑓) − 1)) / ((coeff‘𝑓)‘(deg‘𝑓)))) → ∀𝑓 ∈ (Poly‘ℂ)(((𝑑 + 1) = (deg‘𝑓) ∧ (♯‘(◡𝑓 “ {0})) = (deg‘𝑓)) → Σ𝑥 ∈ (◡𝑓 “ {0})𝑥 = -(((coeff‘𝑓)‘((deg‘𝑓) − 1)) / ((coeff‘𝑓)‘(deg‘𝑓))))))
18630, 34, 38, 42, 148, 185nnind 12363 . . . 4 (𝑁 ∈ ℕ → ∀𝑓 ∈ (Poly‘ℂ)((𝑁 = (deg‘𝑓) ∧ (♯‘(◡𝑓 “ {0})) = (deg‘𝑓)) → Σ𝑥 ∈ (◡𝑓 “ {0})𝑥 = -(((coeff‘𝑓)‘((deg‘𝑓) − 1)) / ((coeff‘𝑓)‘(deg‘𝑓)))))
18726, 186syl 18 . . 3 (𝜑 → ∀𝑓 ∈ (Poly‘ℂ)((𝑁 = (deg‘𝑓) ∧ (♯‘(◡𝑓 “ {0})) = (deg‘𝑓)) → Σ𝑥 ∈ (◡𝑓 “ {0})𝑥 = -(((coeff‘𝑓)‘((deg‘𝑓) − 1)) / ((coeff‘𝑓)‘(deg‘𝑓)))))
188 plyssc 26530 . . . 4 (Poly‘𝑆) ⊆ (Poly‘ℂ)
189 vieta1.4 . . . 4 (𝜑 → 𝐹 ∈ (Poly‘𝑆))
190188, 189sselid 3910 . . 3 (𝜑 → 𝐹 ∈ (Poly‘ℂ))
19125, 187, 190rspcdva 3580 . 2 (𝜑 → ((♯‘𝑅) = 𝑁 → Σ𝑥 ∈ 𝑅 𝑥 = -((𝐴‘(𝑁 − 1)) / (𝐴‘𝑁))))
1921, 191mpd 16 1 (𝜑 → Σ𝑥 ∈ 𝑅 𝑥 = -((𝐴‘(𝑁 − 1)) / (𝐴‘𝑁)))
Colors of variables:    wff setvar class
This proof depends on syntax axioms:   → wi 4   ↔ wb 209   ∧ wa 401   ∧ w3a 1103   = wceq 1569   ∈ wcel 2146   ≠ wne 2958  ∀wral 3079   ⊆ wss 3899  {csn 4587   class class class wbr 5105   × cxp 5652  ◡ccnv 5653   “ cima 5657   Fn wfn 6541  ⟶wf 6542  ‘cfv 6546  (class class class)co 7427   ∘f cof 7698   ≈ cen 8981  Fincfn 8984  ℂcc 11208  0cc0 11210  1c1 11211   + caddc 11213   · cmul 11215   ≤ cle 11354   − cmin 11551   -cneg 11552   / cdiv 11983  ℕcn 12345  ℕ0cn0 12616  ℤcz 12703  ...cfz 13649  ↑cexp 14214  ♯chash 14484  Σcsu 15865  0𝑝c0p 26002  Polycply 26514  Xpcidp 26515  coeffccoe 26516  degcdgr 26517   quot cquot 26623
This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1827  ax-4 1841  ax-5 1944  ax-6 2001  ax-7 2042  ax-8 2148  ax-9 2156  ax-10 2179  ax-11 2196  ax-12 2215  ax-ext 2735  ax-rep 5234  ax-sep 5251  ax-nul 5262  ax-pow 5330  ax-pr 5394  ax-un 7758  ax-inf2 9652  ax-cnex 11266  ax-resscn 11267  ax-1cn 11268  ax-icn 11269  ax-addcl 11270  ax-addrcl 11271  ax-mulcl 11272  ax-mulrcl 11273  ax-mulcom 11274  ax-addass 11275  ax-mulass 11276  ax-distr 11277  ax-i2m1 11278  ax-1ne0 11279  ax-1rid 11280  ax-rnegex 11281  ax-rrecex 11282  ax-cnre 11283  ax-pre-lttri 11284  ax-pre-lttrn 11285  ax-pre-ltadd 11286  ax-pre-mulgt0 11287  ax-pre-sup 11288
This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1572  df-fal 1582  df-ex 1812  df-nf 1816  df-sb 2101  df-mo 2567  df-eu 2597  df-clab 2742  df-cleq 2755  df-clel 2838  df-nfc 2912  df-ne 2959  df-nel 3065  df-ral 3080  df-rex 3090  df-rmo 3368  df-reu 3369  df-rab 3416  df-v 3455  df-sbc 3742  df-csb 3851  df-ss 3900  df-pss 4016  df-dif 4049  df-in 4093  df-un 4153  df-nul 4281  df-if 4485  df-pw 4561  df-sn 4588  df-pr 4590  df-op 4838  df-uni 4870  df-int 4910  df-iun 4955  df-br 5106  df-opab 5170  df-mpt 5189  df-tr 5215  df-id 5549  df-eprel 5554  df-po 5562  df-so 5563  df-fr 5607  df-se 5608  df-we 5609  df-xp 5660  df-rel 5661  df-cnv 5662  df-co 5663  df-dm 5664  df-rn 5665  df-res 5666  df-ima 5667  df-pred 6310  df-ord 6371  df-on 6372  df-lim 6373  df-suc 6374  df-iota 6500  df-fun 6548  df-fn 6549  df-f 6550  df-f1 6551  df-fo 6552  df-f1o 6553  df-fv 6554  df-isom 6555  df-riota 7384  df-ov 7430  df-oprab 7431  df-mpo 7432  df-of 7700  df-om 7885  df-1st 8008  df-2nd 8009  df-frecs 8310  df-wrecs 8341  df-recs 8390  df-rdg 8429  df-1o 8487  df-oadd 8491  df-er 8728  df-map 8860  df-pm 8861  df-en 8985  df-dom 8986  df-sdom 8987  df-fin 8988  df-sup 9444  df-inf 9445  df-oi 9514  df-dju 9992  df-card 10030  df-pnf 11355  df-mnf 11356  df-xr 11357  df-ltxr 11358  df-le 11359  df-sub 11553  df-neg 11554  df-div 11984  df-nn 12346  df-2 12415  df-3 12416  df-n0 12617  df-xnn0 12690  df-z 12704  df-uz 12976  df-rp 13131  df-fz 13650  df-fzo 13799  df-fl 13942  df-seq 14155  df-exp 14215  df-hash 14485  df-cj 15278  df-re 15279  df-im 15280  df-sqrt 15414  df-abs 15415  df-clim 15667  df-rlim 15668  df-sum 15866  df-0p 26003  df-ply 26518  df-idp 26519  df-coe 26520  df-dgr 26521  df-quot 26624
This theorem is used by:  basellem5  27424
  Copyright terms: Public domain W3C validator