Users' Mathboxes Mathbox for Glauco Siliprandi < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  elaa2lem Structured version   Visualization version   GIF version

Theorem elaa2lem 42875
Description: Elementhood in the set of nonzero algebraic numbers. ' Only if ' part of elaa2 42876. (Contributed by Glauco Siliprandi, 5-Apr-2020.) (Revised by AV, 1-Oct-2020.)
Hypotheses
Ref Expression
elaa2lem.a (𝜑𝐴 ∈ 𝔸)
elaa2lem.an0 (𝜑𝐴 ≠ 0)
elaa2lem.g (𝜑𝐺 ∈ (Poly‘ℤ))
elaa2lem.gn0 (𝜑𝐺 ≠ 0𝑝)
elaa2lem.ga (𝜑 → (𝐺𝐴) = 0)
elaa2lem.m 𝑀 = inf({𝑛 ∈ ℕ0 ∣ ((coeff‘𝐺)‘𝑛) ≠ 0}, ℝ, < )
elaa2lem.i 𝐼 = (𝑘 ∈ ℕ0 ↦ ((coeff‘𝐺)‘(𝑘 + 𝑀)))
elaa2lem.f 𝐹 = (𝑧 ∈ ℂ ↦ Σ𝑘 ∈ (0...((deg‘𝐺) − 𝑀))((𝐼𝑘) · (𝑧𝑘)))
Assertion
Ref Expression
elaa2lem (𝜑 → ∃𝑓 ∈ (Poly‘ℤ)(((coeff‘𝑓)‘0) ≠ 0 ∧ (𝑓𝐴) = 0))
Distinct variable groups:   𝐴,𝑓   𝐴,𝑘,𝑧   𝑓,𝐹   𝑘,𝐺   𝑛,𝐺   𝑧,𝐺   𝑘,𝐼,𝑧   𝑘,𝑀   𝑛,𝑀   𝑧,𝑀   𝜑,𝑘,𝑧
Allowed substitution hints:   𝜑(𝑓,𝑛)   𝐴(𝑛)   𝐹(𝑧,𝑘,𝑛)   𝐺(𝑓)   𝐼(𝑓,𝑛)   𝑀(𝑓)

Proof of Theorem elaa2lem
Dummy variable 𝑗 is distinct from all other variables.
StepHypRef Expression
1 elaa2lem.f . . . 4 𝐹 = (𝑧 ∈ ℂ ↦ Σ𝑘 ∈ (0...((deg‘𝐺) − 𝑀))((𝐼𝑘) · (𝑧𝑘)))
21a1i 11 . . 3 (𝜑𝐹 = (𝑧 ∈ ℂ ↦ Σ𝑘 ∈ (0...((deg‘𝐺) − 𝑀))((𝐼𝑘) · (𝑧𝑘))))
3 zsscn 11977 . . . . 5 ℤ ⊆ ℂ
43a1i 11 . . . 4 (𝜑 → ℤ ⊆ ℂ)
5 elaa2lem.g . . . . . . . . 9 (𝜑𝐺 ∈ (Poly‘ℤ))
6 dgrcl 24830 . . . . . . . . 9 (𝐺 ∈ (Poly‘ℤ) → (deg‘𝐺) ∈ ℕ0)
75, 6syl 17 . . . . . . . 8 (𝜑 → (deg‘𝐺) ∈ ℕ0)
87nn0zd 12073 . . . . . . 7 (𝜑 → (deg‘𝐺) ∈ ℤ)
9 elaa2lem.m . . . . . . . . 9 𝑀 = inf({𝑛 ∈ ℕ0 ∣ ((coeff‘𝐺)‘𝑛) ≠ 0}, ℝ, < )
10 ssrab2 4007 . . . . . . . . . 10 {𝑛 ∈ ℕ0 ∣ ((coeff‘𝐺)‘𝑛) ≠ 0} ⊆ ℕ0
11 nn0uz 12268 . . . . . . . . . . . . 13 0 = (ℤ‘0)
1210, 11sseqtri 3951 . . . . . . . . . . . 12 {𝑛 ∈ ℕ0 ∣ ((coeff‘𝐺)‘𝑛) ≠ 0} ⊆ (ℤ‘0)
1312a1i 11 . . . . . . . . . . 11 (𝜑 → {𝑛 ∈ ℕ0 ∣ ((coeff‘𝐺)‘𝑛) ≠ 0} ⊆ (ℤ‘0))
14 elaa2lem.gn0 . . . . . . . . . . . . . . . . 17 (𝜑𝐺 ≠ 0𝑝)
1514neneqd 2992 . . . . . . . . . . . . . . . 16 (𝜑 → ¬ 𝐺 = 0𝑝)
16 eqid 2798 . . . . . . . . . . . . . . . . . 18 (deg‘𝐺) = (deg‘𝐺)
17 eqid 2798 . . . . . . . . . . . . . . . . . 18 (coeff‘𝐺) = (coeff‘𝐺)
1816, 17dgreq0 24862 . . . . . . . . . . . . . . . . 17 (𝐺 ∈ (Poly‘ℤ) → (𝐺 = 0𝑝 ↔ ((coeff‘𝐺)‘(deg‘𝐺)) = 0))
195, 18syl 17 . . . . . . . . . . . . . . . 16 (𝜑 → (𝐺 = 0𝑝 ↔ ((coeff‘𝐺)‘(deg‘𝐺)) = 0))
2015, 19mtbid 327 . . . . . . . . . . . . . . 15 (𝜑 → ¬ ((coeff‘𝐺)‘(deg‘𝐺)) = 0)
2120neqned 2994 . . . . . . . . . . . . . 14 (𝜑 → ((coeff‘𝐺)‘(deg‘𝐺)) ≠ 0)
227, 21jca 515 . . . . . . . . . . . . 13 (𝜑 → ((deg‘𝐺) ∈ ℕ0 ∧ ((coeff‘𝐺)‘(deg‘𝐺)) ≠ 0))
23 fveq2 6645 . . . . . . . . . . . . . . 15 (𝑛 = (deg‘𝐺) → ((coeff‘𝐺)‘𝑛) = ((coeff‘𝐺)‘(deg‘𝐺)))
2423neeq1d 3046 . . . . . . . . . . . . . 14 (𝑛 = (deg‘𝐺) → (((coeff‘𝐺)‘𝑛) ≠ 0 ↔ ((coeff‘𝐺)‘(deg‘𝐺)) ≠ 0))
2524elrab 3628 . . . . . . . . . . . . 13 ((deg‘𝐺) ∈ {𝑛 ∈ ℕ0 ∣ ((coeff‘𝐺)‘𝑛) ≠ 0} ↔ ((deg‘𝐺) ∈ ℕ0 ∧ ((coeff‘𝐺)‘(deg‘𝐺)) ≠ 0))
2622, 25sylibr 237 . . . . . . . . . . . 12 (𝜑 → (deg‘𝐺) ∈ {𝑛 ∈ ℕ0 ∣ ((coeff‘𝐺)‘𝑛) ≠ 0})
2726ne0d 4251 . . . . . . . . . . 11 (𝜑 → {𝑛 ∈ ℕ0 ∣ ((coeff‘𝐺)‘𝑛) ≠ 0} ≠ ∅)
28 infssuzcl 12320 . . . . . . . . . . 11 (({𝑛 ∈ ℕ0 ∣ ((coeff‘𝐺)‘𝑛) ≠ 0} ⊆ (ℤ‘0) ∧ {𝑛 ∈ ℕ0 ∣ ((coeff‘𝐺)‘𝑛) ≠ 0} ≠ ∅) → inf({𝑛 ∈ ℕ0 ∣ ((coeff‘𝐺)‘𝑛) ≠ 0}, ℝ, < ) ∈ {𝑛 ∈ ℕ0 ∣ ((coeff‘𝐺)‘𝑛) ≠ 0})
2913, 27, 28syl2anc 587 . . . . . . . . . 10 (𝜑 → inf({𝑛 ∈ ℕ0 ∣ ((coeff‘𝐺)‘𝑛) ≠ 0}, ℝ, < ) ∈ {𝑛 ∈ ℕ0 ∣ ((coeff‘𝐺)‘𝑛) ≠ 0})
3010, 29sseldi 3913 . . . . . . . . 9 (𝜑 → inf({𝑛 ∈ ℕ0 ∣ ((coeff‘𝐺)‘𝑛) ≠ 0}, ℝ, < ) ∈ ℕ0)
319, 30eqeltrid 2894 . . . . . . . 8 (𝜑𝑀 ∈ ℕ0)
3231nn0zd 12073 . . . . . . 7 (𝜑𝑀 ∈ ℤ)
338, 32zsubcld 12080 . . . . . 6 (𝜑 → ((deg‘𝐺) − 𝑀) ∈ ℤ)
349a1i 11 . . . . . . . 8 (𝜑𝑀 = inf({𝑛 ∈ ℕ0 ∣ ((coeff‘𝐺)‘𝑛) ≠ 0}, ℝ, < ))
35 infssuzle 12319 . . . . . . . . 9 (({𝑛 ∈ ℕ0 ∣ ((coeff‘𝐺)‘𝑛) ≠ 0} ⊆ (ℤ‘0) ∧ (deg‘𝐺) ∈ {𝑛 ∈ ℕ0 ∣ ((coeff‘𝐺)‘𝑛) ≠ 0}) → inf({𝑛 ∈ ℕ0 ∣ ((coeff‘𝐺)‘𝑛) ≠ 0}, ℝ, < ) ≤ (deg‘𝐺))
3613, 26, 35syl2anc 587 . . . . . . . 8 (𝜑 → inf({𝑛 ∈ ℕ0 ∣ ((coeff‘𝐺)‘𝑛) ≠ 0}, ℝ, < ) ≤ (deg‘𝐺))
3734, 36eqbrtrd 5052 . . . . . . 7 (𝜑𝑀 ≤ (deg‘𝐺))
387nn0red 11944 . . . . . . . 8 (𝜑 → (deg‘𝐺) ∈ ℝ)
3931nn0red 11944 . . . . . . . 8 (𝜑𝑀 ∈ ℝ)
4038, 39subge0d 11219 . . . . . . 7 (𝜑 → (0 ≤ ((deg‘𝐺) − 𝑀) ↔ 𝑀 ≤ (deg‘𝐺)))
4137, 40mpbird 260 . . . . . 6 (𝜑 → 0 ≤ ((deg‘𝐺) − 𝑀))
4233, 41jca 515 . . . . 5 (𝜑 → (((deg‘𝐺) − 𝑀) ∈ ℤ ∧ 0 ≤ ((deg‘𝐺) − 𝑀)))
43 elnn0z 11982 . . . . 5 (((deg‘𝐺) − 𝑀) ∈ ℕ0 ↔ (((deg‘𝐺) − 𝑀) ∈ ℤ ∧ 0 ≤ ((deg‘𝐺) − 𝑀)))
4442, 43sylibr 237 . . . 4 (𝜑 → ((deg‘𝐺) − 𝑀) ∈ ℕ0)
45 0zd 11981 . . . . . . . 8 (𝐺 ∈ (Poly‘ℤ) → 0 ∈ ℤ)
4617coef2 24828 . . . . . . . 8 ((𝐺 ∈ (Poly‘ℤ) ∧ 0 ∈ ℤ) → (coeff‘𝐺):ℕ0⟶ℤ)
475, 45, 46syl2anc2 588 . . . . . . 7 (𝜑 → (coeff‘𝐺):ℕ0⟶ℤ)
4847adantr 484 . . . . . 6 ((𝜑𝑘 ∈ ℕ0) → (coeff‘𝐺):ℕ0⟶ℤ)
49 simpr 488 . . . . . . 7 ((𝜑𝑘 ∈ ℕ0) → 𝑘 ∈ ℕ0)
5031adantr 484 . . . . . . 7 ((𝜑𝑘 ∈ ℕ0) → 𝑀 ∈ ℕ0)
5149, 50nn0addcld 11947 . . . . . 6 ((𝜑𝑘 ∈ ℕ0) → (𝑘 + 𝑀) ∈ ℕ0)
5248, 51ffvelrnd 6829 . . . . 5 ((𝜑𝑘 ∈ ℕ0) → ((coeff‘𝐺)‘(𝑘 + 𝑀)) ∈ ℤ)
53 elaa2lem.i . . . . 5 𝐼 = (𝑘 ∈ ℕ0 ↦ ((coeff‘𝐺)‘(𝑘 + 𝑀)))
5452, 53fmptd 6855 . . . 4 (𝜑𝐼:ℕ0⟶ℤ)
55 elplyr 24798 . . . 4 ((ℤ ⊆ ℂ ∧ ((deg‘𝐺) − 𝑀) ∈ ℕ0𝐼:ℕ0⟶ℤ) → (𝑧 ∈ ℂ ↦ Σ𝑘 ∈ (0...((deg‘𝐺) − 𝑀))((𝐼𝑘) · (𝑧𝑘))) ∈ (Poly‘ℤ))
564, 44, 54, 55syl3anc 1368 . . 3 (𝜑 → (𝑧 ∈ ℂ ↦ Σ𝑘 ∈ (0...((deg‘𝐺) − 𝑀))((𝐼𝑘) · (𝑧𝑘))) ∈ (Poly‘ℤ))
572, 56eqeltrd 2890 . 2 (𝜑𝐹 ∈ (Poly‘ℤ))
58 simpr 488 . . . . . . . . . 10 (((𝜑𝑘 ∈ ℕ0) ∧ 𝑘 ≤ ((deg‘𝐺) − 𝑀)) → 𝑘 ≤ ((deg‘𝐺) − 𝑀))
5958iftrued 4433 . . . . . . . . 9 (((𝜑𝑘 ∈ ℕ0) ∧ 𝑘 ≤ ((deg‘𝐺) − 𝑀)) → if(𝑘 ≤ ((deg‘𝐺) − 𝑀), ((coeff‘𝐺)‘(𝑘 + 𝑀)), 0) = ((coeff‘𝐺)‘(𝑘 + 𝑀)))
60 iffalse 4434 . . . . . . . . . . 11 𝑘 ≤ ((deg‘𝐺) − 𝑀) → if(𝑘 ≤ ((deg‘𝐺) − 𝑀), ((coeff‘𝐺)‘(𝑘 + 𝑀)), 0) = 0)
6160adantl 485 . . . . . . . . . 10 (((𝜑𝑘 ∈ ℕ0) ∧ ¬ 𝑘 ≤ ((deg‘𝐺) − 𝑀)) → if(𝑘 ≤ ((deg‘𝐺) − 𝑀), ((coeff‘𝐺)‘(𝑘 + 𝑀)), 0) = 0)
62 simpr 488 . . . . . . . . . . . . . . 15 (((𝜑𝑘 ∈ ℕ0) ∧ ¬ 𝑘 ≤ ((deg‘𝐺) − 𝑀)) → ¬ 𝑘 ≤ ((deg‘𝐺) − 𝑀))
6338ad2antrr 725 . . . . . . . . . . . . . . . . 17 (((𝜑𝑘 ∈ ℕ0) ∧ ¬ 𝑘 ≤ ((deg‘𝐺) − 𝑀)) → (deg‘𝐺) ∈ ℝ)
6439ad2antrr 725 . . . . . . . . . . . . . . . . 17 (((𝜑𝑘 ∈ ℕ0) ∧ ¬ 𝑘 ≤ ((deg‘𝐺) − 𝑀)) → 𝑀 ∈ ℝ)
6563, 64resubcld 11057 . . . . . . . . . . . . . . . 16 (((𝜑𝑘 ∈ ℕ0) ∧ ¬ 𝑘 ≤ ((deg‘𝐺) − 𝑀)) → ((deg‘𝐺) − 𝑀) ∈ ℝ)
66 nn0re 11894 . . . . . . . . . . . . . . . . 17 (𝑘 ∈ ℕ0𝑘 ∈ ℝ)
6766ad2antlr 726 . . . . . . . . . . . . . . . 16 (((𝜑𝑘 ∈ ℕ0) ∧ ¬ 𝑘 ≤ ((deg‘𝐺) − 𝑀)) → 𝑘 ∈ ℝ)
6865, 67ltnled 10776 . . . . . . . . . . . . . . 15 (((𝜑𝑘 ∈ ℕ0) ∧ ¬ 𝑘 ≤ ((deg‘𝐺) − 𝑀)) → (((deg‘𝐺) − 𝑀) < 𝑘 ↔ ¬ 𝑘 ≤ ((deg‘𝐺) − 𝑀)))
6962, 68mpbird 260 . . . . . . . . . . . . . 14 (((𝜑𝑘 ∈ ℕ0) ∧ ¬ 𝑘 ≤ ((deg‘𝐺) − 𝑀)) → ((deg‘𝐺) − 𝑀) < 𝑘)
7063, 64, 67ltsubaddd 11225 . . . . . . . . . . . . . 14 (((𝜑𝑘 ∈ ℕ0) ∧ ¬ 𝑘 ≤ ((deg‘𝐺) − 𝑀)) → (((deg‘𝐺) − 𝑀) < 𝑘 ↔ (deg‘𝐺) < (𝑘 + 𝑀)))
7169, 70mpbid 235 . . . . . . . . . . . . 13 (((𝜑𝑘 ∈ ℕ0) ∧ ¬ 𝑘 ≤ ((deg‘𝐺) − 𝑀)) → (deg‘𝐺) < (𝑘 + 𝑀))
72 olc 865 . . . . . . . . . . . . 13 ((deg‘𝐺) < (𝑘 + 𝑀) → (𝐺 = 0𝑝 ∨ (deg‘𝐺) < (𝑘 + 𝑀)))
7371, 72syl 17 . . . . . . . . . . . 12 (((𝜑𝑘 ∈ ℕ0) ∧ ¬ 𝑘 ≤ ((deg‘𝐺) − 𝑀)) → (𝐺 = 0𝑝 ∨ (deg‘𝐺) < (𝑘 + 𝑀)))
745ad2antrr 725 . . . . . . . . . . . . 13 (((𝜑𝑘 ∈ ℕ0) ∧ ¬ 𝑘 ≤ ((deg‘𝐺) − 𝑀)) → 𝐺 ∈ (Poly‘ℤ))
7551adantr 484 . . . . . . . . . . . . 13 (((𝜑𝑘 ∈ ℕ0) ∧ ¬ 𝑘 ≤ ((deg‘𝐺) − 𝑀)) → (𝑘 + 𝑀) ∈ ℕ0)
7616, 17dgrlt 24863 . . . . . . . . . . . . 13 ((𝐺 ∈ (Poly‘ℤ) ∧ (𝑘 + 𝑀) ∈ ℕ0) → ((𝐺 = 0𝑝 ∨ (deg‘𝐺) < (𝑘 + 𝑀)) ↔ ((deg‘𝐺) ≤ (𝑘 + 𝑀) ∧ ((coeff‘𝐺)‘(𝑘 + 𝑀)) = 0)))
7774, 75, 76syl2anc 587 . . . . . . . . . . . 12 (((𝜑𝑘 ∈ ℕ0) ∧ ¬ 𝑘 ≤ ((deg‘𝐺) − 𝑀)) → ((𝐺 = 0𝑝 ∨ (deg‘𝐺) < (𝑘 + 𝑀)) ↔ ((deg‘𝐺) ≤ (𝑘 + 𝑀) ∧ ((coeff‘𝐺)‘(𝑘 + 𝑀)) = 0)))
7873, 77mpbid 235 . . . . . . . . . . 11 (((𝜑𝑘 ∈ ℕ0) ∧ ¬ 𝑘 ≤ ((deg‘𝐺) − 𝑀)) → ((deg‘𝐺) ≤ (𝑘 + 𝑀) ∧ ((coeff‘𝐺)‘(𝑘 + 𝑀)) = 0))
7978simprd 499 . . . . . . . . . 10 (((𝜑𝑘 ∈ ℕ0) ∧ ¬ 𝑘 ≤ ((deg‘𝐺) − 𝑀)) → ((coeff‘𝐺)‘(𝑘 + 𝑀)) = 0)
8061, 79eqtr4d 2836 . . . . . . . . 9 (((𝜑𝑘 ∈ ℕ0) ∧ ¬ 𝑘 ≤ ((deg‘𝐺) − 𝑀)) → if(𝑘 ≤ ((deg‘𝐺) − 𝑀), ((coeff‘𝐺)‘(𝑘 + 𝑀)), 0) = ((coeff‘𝐺)‘(𝑘 + 𝑀)))
8159, 80pm2.61dan 812 . . . . . . . 8 ((𝜑𝑘 ∈ ℕ0) → if(𝑘 ≤ ((deg‘𝐺) − 𝑀), ((coeff‘𝐺)‘(𝑘 + 𝑀)), 0) = ((coeff‘𝐺)‘(𝑘 + 𝑀)))
8281mpteq2dva 5125 . . . . . . 7 (𝜑 → (𝑘 ∈ ℕ0 ↦ if(𝑘 ≤ ((deg‘𝐺) − 𝑀), ((coeff‘𝐺)‘(𝑘 + 𝑀)), 0)) = (𝑘 ∈ ℕ0 ↦ ((coeff‘𝐺)‘(𝑘 + 𝑀))))
8347, 4fssd 6502 . . . . . . . . . 10 (𝜑 → (coeff‘𝐺):ℕ0⟶ℂ)
8483adantr 484 . . . . . . . . 9 ((𝜑𝑘 ∈ (0...((deg‘𝐺) − 𝑀))) → (coeff‘𝐺):ℕ0⟶ℂ)
85 elfznn0 12995 . . . . . . . . . . 11 (𝑘 ∈ (0...((deg‘𝐺) − 𝑀)) → 𝑘 ∈ ℕ0)
8685adantl 485 . . . . . . . . . 10 ((𝜑𝑘 ∈ (0...((deg‘𝐺) − 𝑀))) → 𝑘 ∈ ℕ0)
8731adantr 484 . . . . . . . . . 10 ((𝜑𝑘 ∈ (0...((deg‘𝐺) − 𝑀))) → 𝑀 ∈ ℕ0)
8886, 87nn0addcld 11947 . . . . . . . . 9 ((𝜑𝑘 ∈ (0...((deg‘𝐺) − 𝑀))) → (𝑘 + 𝑀) ∈ ℕ0)
8984, 88ffvelrnd 6829 . . . . . . . 8 ((𝜑𝑘 ∈ (0...((deg‘𝐺) − 𝑀))) → ((coeff‘𝐺)‘(𝑘 + 𝑀)) ∈ ℂ)
90 eqidd 2799 . . . . . . . . . . 11 ((𝜑𝑧 ∈ ℂ) → (0...((deg‘𝐺) − 𝑀)) = (0...((deg‘𝐺) − 𝑀)))
91 simpl 486 . . . . . . . . . . . . . 14 ((𝜑𝑘 ∈ (0...((deg‘𝐺) − 𝑀))) → 𝜑)
9253a1i 11 . . . . . . . . . . . . . . 15 (𝜑𝐼 = (𝑘 ∈ ℕ0 ↦ ((coeff‘𝐺)‘(𝑘 + 𝑀))))
9392, 52fvmpt2d 6758 . . . . . . . . . . . . . 14 ((𝜑𝑘 ∈ ℕ0) → (𝐼𝑘) = ((coeff‘𝐺)‘(𝑘 + 𝑀)))
9491, 86, 93syl2anc 587 . . . . . . . . . . . . 13 ((𝜑𝑘 ∈ (0...((deg‘𝐺) − 𝑀))) → (𝐼𝑘) = ((coeff‘𝐺)‘(𝑘 + 𝑀)))
9594adantlr 714 . . . . . . . . . . . 12 (((𝜑𝑧 ∈ ℂ) ∧ 𝑘 ∈ (0...((deg‘𝐺) − 𝑀))) → (𝐼𝑘) = ((coeff‘𝐺)‘(𝑘 + 𝑀)))
9695oveq1d 7150 . . . . . . . . . . 11 (((𝜑𝑧 ∈ ℂ) ∧ 𝑘 ∈ (0...((deg‘𝐺) − 𝑀))) → ((𝐼𝑘) · (𝑧𝑘)) = (((coeff‘𝐺)‘(𝑘 + 𝑀)) · (𝑧𝑘)))
9790, 96sumeq12rdv 15056 . . . . . . . . . 10 ((𝜑𝑧 ∈ ℂ) → Σ𝑘 ∈ (0...((deg‘𝐺) − 𝑀))((𝐼𝑘) · (𝑧𝑘)) = Σ𝑘 ∈ (0...((deg‘𝐺) − 𝑀))(((coeff‘𝐺)‘(𝑘 + 𝑀)) · (𝑧𝑘)))
9897mpteq2dva 5125 . . . . . . . . 9 (𝜑 → (𝑧 ∈ ℂ ↦ Σ𝑘 ∈ (0...((deg‘𝐺) − 𝑀))((𝐼𝑘) · (𝑧𝑘))) = (𝑧 ∈ ℂ ↦ Σ𝑘 ∈ (0...((deg‘𝐺) − 𝑀))(((coeff‘𝐺)‘(𝑘 + 𝑀)) · (𝑧𝑘))))
992, 98eqtrd 2833 . . . . . . . 8 (𝜑𝐹 = (𝑧 ∈ ℂ ↦ Σ𝑘 ∈ (0...((deg‘𝐺) − 𝑀))(((coeff‘𝐺)‘(𝑘 + 𝑀)) · (𝑧𝑘))))
10057, 44, 89, 99coeeq2 24839 . . . . . . 7 (𝜑 → (coeff‘𝐹) = (𝑘 ∈ ℕ0 ↦ if(𝑘 ≤ ((deg‘𝐺) − 𝑀), ((coeff‘𝐺)‘(𝑘 + 𝑀)), 0)))
10182, 100, 923eqtr4d 2843 . . . . . 6 (𝜑 → (coeff‘𝐹) = 𝐼)
102101fveq1d 6647 . . . . 5 (𝜑 → ((coeff‘𝐹)‘0) = (𝐼‘0))
103 oveq1 7142 . . . . . . . . 9 (𝑘 = 0 → (𝑘 + 𝑀) = (0 + 𝑀))
104103adantl 485 . . . . . . . 8 ((𝜑𝑘 = 0) → (𝑘 + 𝑀) = (0 + 𝑀))
1053, 32sseldi 3913 . . . . . . . . . 10 (𝜑𝑀 ∈ ℂ)
106105addid2d 10830 . . . . . . . . 9 (𝜑 → (0 + 𝑀) = 𝑀)
107106adantr 484 . . . . . . . 8 ((𝜑𝑘 = 0) → (0 + 𝑀) = 𝑀)
108104, 107eqtrd 2833 . . . . . . 7 ((𝜑𝑘 = 0) → (𝑘 + 𝑀) = 𝑀)
109108fveq2d 6649 . . . . . 6 ((𝜑𝑘 = 0) → ((coeff‘𝐺)‘(𝑘 + 𝑀)) = ((coeff‘𝐺)‘𝑀))
110 0nn0 11900 . . . . . . 7 0 ∈ ℕ0
111110a1i 11 . . . . . 6 (𝜑 → 0 ∈ ℕ0)
11247, 31ffvelrnd 6829 . . . . . 6 (𝜑 → ((coeff‘𝐺)‘𝑀) ∈ ℤ)
11392, 109, 111, 112fvmptd 6752 . . . . 5 (𝜑 → (𝐼‘0) = ((coeff‘𝐺)‘𝑀))
114 eqidd 2799 . . . . 5 (𝜑 → ((coeff‘𝐺)‘𝑀) = ((coeff‘𝐺)‘𝑀))
115102, 113, 1143eqtrd 2837 . . . 4 (𝜑 → ((coeff‘𝐹)‘0) = ((coeff‘𝐺)‘𝑀))
11634, 29eqeltrd 2890 . . . . . 6 (𝜑𝑀 ∈ {𝑛 ∈ ℕ0 ∣ ((coeff‘𝐺)‘𝑛) ≠ 0})
117 fveq2 6645 . . . . . . . 8 (𝑛 = 𝑀 → ((coeff‘𝐺)‘𝑛) = ((coeff‘𝐺)‘𝑀))
118117neeq1d 3046 . . . . . . 7 (𝑛 = 𝑀 → (((coeff‘𝐺)‘𝑛) ≠ 0 ↔ ((coeff‘𝐺)‘𝑀) ≠ 0))
119118elrab 3628 . . . . . 6 (𝑀 ∈ {𝑛 ∈ ℕ0 ∣ ((coeff‘𝐺)‘𝑛) ≠ 0} ↔ (𝑀 ∈ ℕ0 ∧ ((coeff‘𝐺)‘𝑀) ≠ 0))
120116, 119sylib 221 . . . . 5 (𝜑 → (𝑀 ∈ ℕ0 ∧ ((coeff‘𝐺)‘𝑀) ≠ 0))
121120simprd 499 . . . 4 (𝜑 → ((coeff‘𝐺)‘𝑀) ≠ 0)
122115, 121eqnetrd 3054 . . 3 (𝜑 → ((coeff‘𝐹)‘0) ≠ 0)
1235, 45syl 17 . . . . . . 7 (𝜑 → 0 ∈ ℤ)
124 aasscn 24914 . . . . . . . . . . 11 𝔸 ⊆ ℂ
125 elaa2lem.a . . . . . . . . . . 11 (𝜑𝐴 ∈ 𝔸)
126124, 125sseldi 3913 . . . . . . . . . 10 (𝜑𝐴 ∈ ℂ)
12791, 126syl 17 . . . . . . . . 9 ((𝜑𝑘 ∈ (0...((deg‘𝐺) − 𝑀))) → 𝐴 ∈ ℂ)
128127, 86expcld 13506 . . . . . . . 8 ((𝜑𝑘 ∈ (0...((deg‘𝐺) − 𝑀))) → (𝐴𝑘) ∈ ℂ)
12989, 128mulcld 10650 . . . . . . 7 ((𝜑𝑘 ∈ (0...((deg‘𝐺) − 𝑀))) → (((coeff‘𝐺)‘(𝑘 + 𝑀)) · (𝐴𝑘)) ∈ ℂ)
130 fvoveq1 7158 . . . . . . . 8 (𝑘 = (𝑗𝑀) → ((coeff‘𝐺)‘(𝑘 + 𝑀)) = ((coeff‘𝐺)‘((𝑗𝑀) + 𝑀)))
131 oveq2 7143 . . . . . . . 8 (𝑘 = (𝑗𝑀) → (𝐴𝑘) = (𝐴↑(𝑗𝑀)))
132130, 131oveq12d 7153 . . . . . . 7 (𝑘 = (𝑗𝑀) → (((coeff‘𝐺)‘(𝑘 + 𝑀)) · (𝐴𝑘)) = (((coeff‘𝐺)‘((𝑗𝑀) + 𝑀)) · (𝐴↑(𝑗𝑀))))
13332, 123, 33, 129, 132fsumshft 15127 . . . . . 6 (𝜑 → Σ𝑘 ∈ (0...((deg‘𝐺) − 𝑀))(((coeff‘𝐺)‘(𝑘 + 𝑀)) · (𝐴𝑘)) = Σ𝑗 ∈ ((0 + 𝑀)...(((deg‘𝐺) − 𝑀) + 𝑀))(((coeff‘𝐺)‘((𝑗𝑀) + 𝑀)) · (𝐴↑(𝑗𝑀))))
1343, 8sseldi 3913 . . . . . . . . . 10 (𝜑 → (deg‘𝐺) ∈ ℂ)
135134, 105npcand 10990 . . . . . . . . 9 (𝜑 → (((deg‘𝐺) − 𝑀) + 𝑀) = (deg‘𝐺))
136106, 135oveq12d 7153 . . . . . . . 8 (𝜑 → ((0 + 𝑀)...(((deg‘𝐺) − 𝑀) + 𝑀)) = (𝑀...(deg‘𝐺)))
137136sumeq1d 15050 . . . . . . 7 (𝜑 → Σ𝑗 ∈ ((0 + 𝑀)...(((deg‘𝐺) − 𝑀) + 𝑀))(((coeff‘𝐺)‘((𝑗𝑀) + 𝑀)) · (𝐴↑(𝑗𝑀))) = Σ𝑗 ∈ (𝑀...(deg‘𝐺))(((coeff‘𝐺)‘((𝑗𝑀) + 𝑀)) · (𝐴↑(𝑗𝑀))))
138 elfzelz 12902 . . . . . . . . . . . . . 14 (𝑗 ∈ (𝑀...(deg‘𝐺)) → 𝑗 ∈ ℤ)
139138adantl 485 . . . . . . . . . . . . 13 ((𝜑𝑗 ∈ (𝑀...(deg‘𝐺))) → 𝑗 ∈ ℤ)
1403, 139sseldi 3913 . . . . . . . . . . . 12 ((𝜑𝑗 ∈ (𝑀...(deg‘𝐺))) → 𝑗 ∈ ℂ)
141105adantr 484 . . . . . . . . . . . 12 ((𝜑𝑗 ∈ (𝑀...(deg‘𝐺))) → 𝑀 ∈ ℂ)
142140, 141npcand 10990 . . . . . . . . . . 11 ((𝜑𝑗 ∈ (𝑀...(deg‘𝐺))) → ((𝑗𝑀) + 𝑀) = 𝑗)
143142fveq2d 6649 . . . . . . . . . 10 ((𝜑𝑗 ∈ (𝑀...(deg‘𝐺))) → ((coeff‘𝐺)‘((𝑗𝑀) + 𝑀)) = ((coeff‘𝐺)‘𝑗))
144143oveq1d 7150 . . . . . . . . 9 ((𝜑𝑗 ∈ (𝑀...(deg‘𝐺))) → (((coeff‘𝐺)‘((𝑗𝑀) + 𝑀)) · (𝐴↑(𝑗𝑀))) = (((coeff‘𝐺)‘𝑗) · (𝐴↑(𝑗𝑀))))
145126adantr 484 . . . . . . . . . . . 12 ((𝜑𝑗 ∈ (𝑀...(deg‘𝐺))) → 𝐴 ∈ ℂ)
146 elaa2lem.an0 . . . . . . . . . . . . 13 (𝜑𝐴 ≠ 0)
147146adantr 484 . . . . . . . . . . . 12 ((𝜑𝑗 ∈ (𝑀...(deg‘𝐺))) → 𝐴 ≠ 0)
14832adantr 484 . . . . . . . . . . . 12 ((𝜑𝑗 ∈ (𝑀...(deg‘𝐺))) → 𝑀 ∈ ℤ)
149145, 147, 148, 139expsubd 13517 . . . . . . . . . . 11 ((𝜑𝑗 ∈ (𝑀...(deg‘𝐺))) → (𝐴↑(𝑗𝑀)) = ((𝐴𝑗) / (𝐴𝑀)))
150149oveq2d 7151 . . . . . . . . . 10 ((𝜑𝑗 ∈ (𝑀...(deg‘𝐺))) → (((coeff‘𝐺)‘𝑗) · (𝐴↑(𝑗𝑀))) = (((coeff‘𝐺)‘𝑗) · ((𝐴𝑗) / (𝐴𝑀))))
15183adantr 484 . . . . . . . . . . . . 13 ((𝜑𝑗 ∈ (𝑀...(deg‘𝐺))) → (coeff‘𝐺):ℕ0⟶ℂ)
152 0red 10633 . . . . . . . . . . . . . . . 16 ((𝜑𝑗 ∈ (𝑀...(deg‘𝐺))) → 0 ∈ ℝ)
15339adantr 484 . . . . . . . . . . . . . . . 16 ((𝜑𝑗 ∈ (𝑀...(deg‘𝐺))) → 𝑀 ∈ ℝ)
154139zred 12075 . . . . . . . . . . . . . . . 16 ((𝜑𝑗 ∈ (𝑀...(deg‘𝐺))) → 𝑗 ∈ ℝ)
15531nn0ge0d 11946 . . . . . . . . . . . . . . . . 17 (𝜑 → 0 ≤ 𝑀)
156155adantr 484 . . . . . . . . . . . . . . . 16 ((𝜑𝑗 ∈ (𝑀...(deg‘𝐺))) → 0 ≤ 𝑀)
157 elfzle1 12905 . . . . . . . . . . . . . . . . 17 (𝑗 ∈ (𝑀...(deg‘𝐺)) → 𝑀𝑗)
158157adantl 485 . . . . . . . . . . . . . . . 16 ((𝜑𝑗 ∈ (𝑀...(deg‘𝐺))) → 𝑀𝑗)
159152, 153, 154, 156, 158letrd 10786 . . . . . . . . . . . . . . 15 ((𝜑𝑗 ∈ (𝑀...(deg‘𝐺))) → 0 ≤ 𝑗)
160139, 159jca 515 . . . . . . . . . . . . . 14 ((𝜑𝑗 ∈ (𝑀...(deg‘𝐺))) → (𝑗 ∈ ℤ ∧ 0 ≤ 𝑗))
161 elnn0z 11982 . . . . . . . . . . . . . 14 (𝑗 ∈ ℕ0 ↔ (𝑗 ∈ ℤ ∧ 0 ≤ 𝑗))
162160, 161sylibr 237 . . . . . . . . . . . . 13 ((𝜑𝑗 ∈ (𝑀...(deg‘𝐺))) → 𝑗 ∈ ℕ0)
163151, 162ffvelrnd 6829 . . . . . . . . . . . 12 ((𝜑𝑗 ∈ (𝑀...(deg‘𝐺))) → ((coeff‘𝐺)‘𝑗) ∈ ℂ)
164145, 162expcld 13506 . . . . . . . . . . . 12 ((𝜑𝑗 ∈ (𝑀...(deg‘𝐺))) → (𝐴𝑗) ∈ ℂ)
165126, 31expcld 13506 . . . . . . . . . . . . 13 (𝜑 → (𝐴𝑀) ∈ ℂ)
166165adantr 484 . . . . . . . . . . . 12 ((𝜑𝑗 ∈ (𝑀...(deg‘𝐺))) → (𝐴𝑀) ∈ ℂ)
167145, 147, 148expne0d 13512 . . . . . . . . . . . 12 ((𝜑𝑗 ∈ (𝑀...(deg‘𝐺))) → (𝐴𝑀) ≠ 0)
168163, 164, 166, 167divassd 11440 . . . . . . . . . . 11 ((𝜑𝑗 ∈ (𝑀...(deg‘𝐺))) → ((((coeff‘𝐺)‘𝑗) · (𝐴𝑗)) / (𝐴𝑀)) = (((coeff‘𝐺)‘𝑗) · ((𝐴𝑗) / (𝐴𝑀))))
169168eqcomd 2804 . . . . . . . . . 10 ((𝜑𝑗 ∈ (𝑀...(deg‘𝐺))) → (((coeff‘𝐺)‘𝑗) · ((𝐴𝑗) / (𝐴𝑀))) = ((((coeff‘𝐺)‘𝑗) · (𝐴𝑗)) / (𝐴𝑀)))
170150, 169eqtr2d 2834 . . . . . . . . 9 ((𝜑𝑗 ∈ (𝑀...(deg‘𝐺))) → ((((coeff‘𝐺)‘𝑗) · (𝐴𝑗)) / (𝐴𝑀)) = (((coeff‘𝐺)‘𝑗) · (𝐴↑(𝑗𝑀))))
171144, 170eqtr4d 2836 . . . . . . . 8 ((𝜑𝑗 ∈ (𝑀...(deg‘𝐺))) → (((coeff‘𝐺)‘((𝑗𝑀) + 𝑀)) · (𝐴↑(𝑗𝑀))) = ((((coeff‘𝐺)‘𝑗) · (𝐴𝑗)) / (𝐴𝑀)))
172171sumeq2dv 15052 . . . . . . 7 (𝜑 → Σ𝑗 ∈ (𝑀...(deg‘𝐺))(((coeff‘𝐺)‘((𝑗𝑀) + 𝑀)) · (𝐴↑(𝑗𝑀))) = Σ𝑗 ∈ (𝑀...(deg‘𝐺))((((coeff‘𝐺)‘𝑗) · (𝐴𝑗)) / (𝐴𝑀)))
173137, 172eqtrd 2833 . . . . . 6 (𝜑 → Σ𝑗 ∈ ((0 + 𝑀)...(((deg‘𝐺) − 𝑀) + 𝑀))(((coeff‘𝐺)‘((𝑗𝑀) + 𝑀)) · (𝐴↑(𝑗𝑀))) = Σ𝑗 ∈ (𝑀...(deg‘𝐺))((((coeff‘𝐺)‘𝑗) · (𝐴𝑗)) / (𝐴𝑀)))
17431, 11eleqtrdi 2900 . . . . . . . 8 (𝜑𝑀 ∈ (ℤ‘0))
175 fzss1 12941 . . . . . . . 8 (𝑀 ∈ (ℤ‘0) → (𝑀...(deg‘𝐺)) ⊆ (0...(deg‘𝐺)))
176174, 175syl 17 . . . . . . 7 (𝜑 → (𝑀...(deg‘𝐺)) ⊆ (0...(deg‘𝐺)))
177163, 164mulcld 10650 . . . . . . . 8 ((𝜑𝑗 ∈ (𝑀...(deg‘𝐺))) → (((coeff‘𝐺)‘𝑗) · (𝐴𝑗)) ∈ ℂ)
178177, 166, 167divcld 11405 . . . . . . 7 ((𝜑𝑗 ∈ (𝑀...(deg‘𝐺))) → ((((coeff‘𝐺)‘𝑗) · (𝐴𝑗)) / (𝐴𝑀)) ∈ ℂ)
17932ad2antrr 725 . . . . . . . . . . . . . . . . 17 (((𝜑𝑗 ∈ ((0...(deg‘𝐺)) ∖ (𝑀...(deg‘𝐺)))) ∧ ¬ 𝑗 < 𝑀) → 𝑀 ∈ ℤ)
1808ad2antrr 725 . . . . . . . . . . . . . . . . 17 (((𝜑𝑗 ∈ ((0...(deg‘𝐺)) ∖ (𝑀...(deg‘𝐺)))) ∧ ¬ 𝑗 < 𝑀) → (deg‘𝐺) ∈ ℤ)
181 eldifi 4054 . . . . . . . . . . . . . . . . . . 19 (𝑗 ∈ ((0...(deg‘𝐺)) ∖ (𝑀...(deg‘𝐺))) → 𝑗 ∈ (0...(deg‘𝐺)))
182 elfznn0 12995 . . . . . . . . . . . . . . . . . . . 20 (𝑗 ∈ (0...(deg‘𝐺)) → 𝑗 ∈ ℕ0)
183182nn0zd 12073 . . . . . . . . . . . . . . . . . . 19 (𝑗 ∈ (0...(deg‘𝐺)) → 𝑗 ∈ ℤ)
184181, 183syl 17 . . . . . . . . . . . . . . . . . 18 (𝑗 ∈ ((0...(deg‘𝐺)) ∖ (𝑀...(deg‘𝐺))) → 𝑗 ∈ ℤ)
185184ad2antlr 726 . . . . . . . . . . . . . . . . 17 (((𝜑𝑗 ∈ ((0...(deg‘𝐺)) ∖ (𝑀...(deg‘𝐺)))) ∧ ¬ 𝑗 < 𝑀) → 𝑗 ∈ ℤ)
186179, 180, 1853jca 1125 . . . . . . . . . . . . . . . 16 (((𝜑𝑗 ∈ ((0...(deg‘𝐺)) ∖ (𝑀...(deg‘𝐺)))) ∧ ¬ 𝑗 < 𝑀) → (𝑀 ∈ ℤ ∧ (deg‘𝐺) ∈ ℤ ∧ 𝑗 ∈ ℤ))
187 simpr 488 . . . . . . . . . . . . . . . . 17 (((𝜑𝑗 ∈ ((0...(deg‘𝐺)) ∖ (𝑀...(deg‘𝐺)))) ∧ ¬ 𝑗 < 𝑀) → ¬ 𝑗 < 𝑀)
18839ad2antrr 725 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑗 ∈ ((0...(deg‘𝐺)) ∖ (𝑀...(deg‘𝐺)))) ∧ ¬ 𝑗 < 𝑀) → 𝑀 ∈ ℝ)
189185zred 12075 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑗 ∈ ((0...(deg‘𝐺)) ∖ (𝑀...(deg‘𝐺)))) ∧ ¬ 𝑗 < 𝑀) → 𝑗 ∈ ℝ)
190188, 189lenltd 10775 . . . . . . . . . . . . . . . . 17 (((𝜑𝑗 ∈ ((0...(deg‘𝐺)) ∖ (𝑀...(deg‘𝐺)))) ∧ ¬ 𝑗 < 𝑀) → (𝑀𝑗 ↔ ¬ 𝑗 < 𝑀))
191187, 190mpbird 260 . . . . . . . . . . . . . . . 16 (((𝜑𝑗 ∈ ((0...(deg‘𝐺)) ∖ (𝑀...(deg‘𝐺)))) ∧ ¬ 𝑗 < 𝑀) → 𝑀𝑗)
192 elfzle2 12906 . . . . . . . . . . . . . . . . . 18 (𝑗 ∈ (0...(deg‘𝐺)) → 𝑗 ≤ (deg‘𝐺))
193181, 192syl 17 . . . . . . . . . . . . . . . . 17 (𝑗 ∈ ((0...(deg‘𝐺)) ∖ (𝑀...(deg‘𝐺))) → 𝑗 ≤ (deg‘𝐺))
194193ad2antlr 726 . . . . . . . . . . . . . . . 16 (((𝜑𝑗 ∈ ((0...(deg‘𝐺)) ∖ (𝑀...(deg‘𝐺)))) ∧ ¬ 𝑗 < 𝑀) → 𝑗 ≤ (deg‘𝐺))
195186, 191, 194jca32 519 . . . . . . . . . . . . . . 15 (((𝜑𝑗 ∈ ((0...(deg‘𝐺)) ∖ (𝑀...(deg‘𝐺)))) ∧ ¬ 𝑗 < 𝑀) → ((𝑀 ∈ ℤ ∧ (deg‘𝐺) ∈ ℤ ∧ 𝑗 ∈ ℤ) ∧ (𝑀𝑗𝑗 ≤ (deg‘𝐺))))
196 elfz2 12892 . . . . . . . . . . . . . . 15 (𝑗 ∈ (𝑀...(deg‘𝐺)) ↔ ((𝑀 ∈ ℤ ∧ (deg‘𝐺) ∈ ℤ ∧ 𝑗 ∈ ℤ) ∧ (𝑀𝑗𝑗 ≤ (deg‘𝐺))))
197195, 196sylibr 237 . . . . . . . . . . . . . 14 (((𝜑𝑗 ∈ ((0...(deg‘𝐺)) ∖ (𝑀...(deg‘𝐺)))) ∧ ¬ 𝑗 < 𝑀) → 𝑗 ∈ (𝑀...(deg‘𝐺)))
198 eldifn 4055 . . . . . . . . . . . . . . 15 (𝑗 ∈ ((0...(deg‘𝐺)) ∖ (𝑀...(deg‘𝐺))) → ¬ 𝑗 ∈ (𝑀...(deg‘𝐺)))
199198ad2antlr 726 . . . . . . . . . . . . . 14 (((𝜑𝑗 ∈ ((0...(deg‘𝐺)) ∖ (𝑀...(deg‘𝐺)))) ∧ ¬ 𝑗 < 𝑀) → ¬ 𝑗 ∈ (𝑀...(deg‘𝐺)))
200197, 199condan 817 . . . . . . . . . . . . 13 ((𝜑𝑗 ∈ ((0...(deg‘𝐺)) ∖ (𝑀...(deg‘𝐺)))) → 𝑗 < 𝑀)
201200adantr 484 . . . . . . . . . . . 12 (((𝜑𝑗 ∈ ((0...(deg‘𝐺)) ∖ (𝑀...(deg‘𝐺)))) ∧ ¬ ((coeff‘𝐺)‘𝑗) = 0) → 𝑗 < 𝑀)
2029a1i 11 . . . . . . . . . . . . . 14 (((𝜑𝑗 ∈ ((0...(deg‘𝐺)) ∖ (𝑀...(deg‘𝐺)))) ∧ ¬ ((coeff‘𝐺)‘𝑗) = 0) → 𝑀 = inf({𝑛 ∈ ℕ0 ∣ ((coeff‘𝐺)‘𝑛) ≠ 0}, ℝ, < ))
20312a1i 11 . . . . . . . . . . . . . . 15 (((𝜑𝑗 ∈ ((0...(deg‘𝐺)) ∖ (𝑀...(deg‘𝐺)))) ∧ ¬ ((coeff‘𝐺)‘𝑗) = 0) → {𝑛 ∈ ℕ0 ∣ ((coeff‘𝐺)‘𝑛) ≠ 0} ⊆ (ℤ‘0))
204181, 182syl 17 . . . . . . . . . . . . . . . . . . 19 (𝑗 ∈ ((0...(deg‘𝐺)) ∖ (𝑀...(deg‘𝐺))) → 𝑗 ∈ ℕ0)
205204adantr 484 . . . . . . . . . . . . . . . . . 18 ((𝑗 ∈ ((0...(deg‘𝐺)) ∖ (𝑀...(deg‘𝐺))) ∧ ¬ ((coeff‘𝐺)‘𝑗) = 0) → 𝑗 ∈ ℕ0)
206 neqne 2995 . . . . . . . . . . . . . . . . . . 19 (¬ ((coeff‘𝐺)‘𝑗) = 0 → ((coeff‘𝐺)‘𝑗) ≠ 0)
207206adantl 485 . . . . . . . . . . . . . . . . . 18 ((𝑗 ∈ ((0...(deg‘𝐺)) ∖ (𝑀...(deg‘𝐺))) ∧ ¬ ((coeff‘𝐺)‘𝑗) = 0) → ((coeff‘𝐺)‘𝑗) ≠ 0)
208205, 207jca 515 . . . . . . . . . . . . . . . . 17 ((𝑗 ∈ ((0...(deg‘𝐺)) ∖ (𝑀...(deg‘𝐺))) ∧ ¬ ((coeff‘𝐺)‘𝑗) = 0) → (𝑗 ∈ ℕ0 ∧ ((coeff‘𝐺)‘𝑗) ≠ 0))
209 fveq2 6645 . . . . . . . . . . . . . . . . . . 19 (𝑛 = 𝑗 → ((coeff‘𝐺)‘𝑛) = ((coeff‘𝐺)‘𝑗))
210209neeq1d 3046 . . . . . . . . . . . . . . . . . 18 (𝑛 = 𝑗 → (((coeff‘𝐺)‘𝑛) ≠ 0 ↔ ((coeff‘𝐺)‘𝑗) ≠ 0))
211210elrab 3628 . . . . . . . . . . . . . . . . 17 (𝑗 ∈ {𝑛 ∈ ℕ0 ∣ ((coeff‘𝐺)‘𝑛) ≠ 0} ↔ (𝑗 ∈ ℕ0 ∧ ((coeff‘𝐺)‘𝑗) ≠ 0))
212208, 211sylibr 237 . . . . . . . . . . . . . . . 16 ((𝑗 ∈ ((0...(deg‘𝐺)) ∖ (𝑀...(deg‘𝐺))) ∧ ¬ ((coeff‘𝐺)‘𝑗) = 0) → 𝑗 ∈ {𝑛 ∈ ℕ0 ∣ ((coeff‘𝐺)‘𝑛) ≠ 0})
213212adantll 713 . . . . . . . . . . . . . . 15 (((𝜑𝑗 ∈ ((0...(deg‘𝐺)) ∖ (𝑀...(deg‘𝐺)))) ∧ ¬ ((coeff‘𝐺)‘𝑗) = 0) → 𝑗 ∈ {𝑛 ∈ ℕ0 ∣ ((coeff‘𝐺)‘𝑛) ≠ 0})
214 infssuzle 12319 . . . . . . . . . . . . . . 15 (({𝑛 ∈ ℕ0 ∣ ((coeff‘𝐺)‘𝑛) ≠ 0} ⊆ (ℤ‘0) ∧ 𝑗 ∈ {𝑛 ∈ ℕ0 ∣ ((coeff‘𝐺)‘𝑛) ≠ 0}) → inf({𝑛 ∈ ℕ0 ∣ ((coeff‘𝐺)‘𝑛) ≠ 0}, ℝ, < ) ≤ 𝑗)
215203, 213, 214syl2anc 587 . . . . . . . . . . . . . 14 (((𝜑𝑗 ∈ ((0...(deg‘𝐺)) ∖ (𝑀...(deg‘𝐺)))) ∧ ¬ ((coeff‘𝐺)‘𝑗) = 0) → inf({𝑛 ∈ ℕ0 ∣ ((coeff‘𝐺)‘𝑛) ≠ 0}, ℝ, < ) ≤ 𝑗)
216202, 215eqbrtrd 5052 . . . . . . . . . . . . 13 (((𝜑𝑗 ∈ ((0...(deg‘𝐺)) ∖ (𝑀...(deg‘𝐺)))) ∧ ¬ ((coeff‘𝐺)‘𝑗) = 0) → 𝑀𝑗)
21739ad2antrr 725 . . . . . . . . . . . . . 14 (((𝜑𝑗 ∈ ((0...(deg‘𝐺)) ∖ (𝑀...(deg‘𝐺)))) ∧ ¬ ((coeff‘𝐺)‘𝑗) = 0) → 𝑀 ∈ ℝ)
218184zred 12075 . . . . . . . . . . . . . . 15 (𝑗 ∈ ((0...(deg‘𝐺)) ∖ (𝑀...(deg‘𝐺))) → 𝑗 ∈ ℝ)
219218ad2antlr 726 . . . . . . . . . . . . . 14 (((𝜑𝑗 ∈ ((0...(deg‘𝐺)) ∖ (𝑀...(deg‘𝐺)))) ∧ ¬ ((coeff‘𝐺)‘𝑗) = 0) → 𝑗 ∈ ℝ)
220217, 219lenltd 10775 . . . . . . . . . . . . 13 (((𝜑𝑗 ∈ ((0...(deg‘𝐺)) ∖ (𝑀...(deg‘𝐺)))) ∧ ¬ ((coeff‘𝐺)‘𝑗) = 0) → (𝑀𝑗 ↔ ¬ 𝑗 < 𝑀))
221216, 220mpbid 235 . . . . . . . . . . . 12 (((𝜑𝑗 ∈ ((0...(deg‘𝐺)) ∖ (𝑀...(deg‘𝐺)))) ∧ ¬ ((coeff‘𝐺)‘𝑗) = 0) → ¬ 𝑗 < 𝑀)
222201, 221condan 817 . . . . . . . . . . 11 ((𝜑𝑗 ∈ ((0...(deg‘𝐺)) ∖ (𝑀...(deg‘𝐺)))) → ((coeff‘𝐺)‘𝑗) = 0)
223222oveq1d 7150 . . . . . . . . . 10 ((𝜑𝑗 ∈ ((0...(deg‘𝐺)) ∖ (𝑀...(deg‘𝐺)))) → (((coeff‘𝐺)‘𝑗) · (𝐴𝑗)) = (0 · (𝐴𝑗)))
224126adantr 484 . . . . . . . . . . . 12 ((𝜑𝑗 ∈ ((0...(deg‘𝐺)) ∖ (𝑀...(deg‘𝐺)))) → 𝐴 ∈ ℂ)
225204adantl 485 . . . . . . . . . . . 12 ((𝜑𝑗 ∈ ((0...(deg‘𝐺)) ∖ (𝑀...(deg‘𝐺)))) → 𝑗 ∈ ℕ0)
226224, 225expcld 13506 . . . . . . . . . . 11 ((𝜑𝑗 ∈ ((0...(deg‘𝐺)) ∖ (𝑀...(deg‘𝐺)))) → (𝐴𝑗) ∈ ℂ)
227226mul02d 10827 . . . . . . . . . 10 ((𝜑𝑗 ∈ ((0...(deg‘𝐺)) ∖ (𝑀...(deg‘𝐺)))) → (0 · (𝐴𝑗)) = 0)
228223, 227eqtrd 2833 . . . . . . . . 9 ((𝜑𝑗 ∈ ((0...(deg‘𝐺)) ∖ (𝑀...(deg‘𝐺)))) → (((coeff‘𝐺)‘𝑗) · (𝐴𝑗)) = 0)
229228oveq1d 7150 . . . . . . . 8 ((𝜑𝑗 ∈ ((0...(deg‘𝐺)) ∖ (𝑀...(deg‘𝐺)))) → ((((coeff‘𝐺)‘𝑗) · (𝐴𝑗)) / (𝐴𝑀)) = (0 / (𝐴𝑀)))
230126, 146, 32expne0d 13512 . . . . . . . . . 10 (𝜑 → (𝐴𝑀) ≠ 0)
231165, 230div0d 11404 . . . . . . . . 9 (𝜑 → (0 / (𝐴𝑀)) = 0)
232231adantr 484 . . . . . . . 8 ((𝜑𝑗 ∈ ((0...(deg‘𝐺)) ∖ (𝑀...(deg‘𝐺)))) → (0 / (𝐴𝑀)) = 0)
233229, 232eqtrd 2833 . . . . . . 7 ((𝜑𝑗 ∈ ((0...(deg‘𝐺)) ∖ (𝑀...(deg‘𝐺)))) → ((((coeff‘𝐺)‘𝑗) · (𝐴𝑗)) / (𝐴𝑀)) = 0)
234 fzfid 13336 . . . . . . 7 (𝜑 → (0...(deg‘𝐺)) ∈ Fin)
235176, 178, 233, 234fsumss 15074 . . . . . 6 (𝜑 → Σ𝑗 ∈ (𝑀...(deg‘𝐺))((((coeff‘𝐺)‘𝑗) · (𝐴𝑗)) / (𝐴𝑀)) = Σ𝑗 ∈ (0...(deg‘𝐺))((((coeff‘𝐺)‘𝑗) · (𝐴𝑗)) / (𝐴𝑀)))
236133, 173, 2353eqtrd 2837 . . . . 5 (𝜑 → Σ𝑘 ∈ (0...((deg‘𝐺) − 𝑀))(((coeff‘𝐺)‘(𝑘 + 𝑀)) · (𝐴𝑘)) = Σ𝑗 ∈ (0...(deg‘𝐺))((((coeff‘𝐺)‘𝑗) · (𝐴𝑗)) / (𝐴𝑀)))
23786, 52syldan 594 . . . . . . . . . 10 ((𝜑𝑘 ∈ (0...((deg‘𝐺) − 𝑀))) → ((coeff‘𝐺)‘(𝑘 + 𝑀)) ∈ ℤ)
23853fvmpt2 6756 . . . . . . . . . 10 ((𝑘 ∈ ℕ0 ∧ ((coeff‘𝐺)‘(𝑘 + 𝑀)) ∈ ℤ) → (𝐼𝑘) = ((coeff‘𝐺)‘(𝑘 + 𝑀)))
23986, 237, 238syl2anc 587 . . . . . . . . 9 ((𝜑𝑘 ∈ (0...((deg‘𝐺) − 𝑀))) → (𝐼𝑘) = ((coeff‘𝐺)‘(𝑘 + 𝑀)))
240239adantlr 714 . . . . . . . 8 (((𝜑𝑧 = 𝐴) ∧ 𝑘 ∈ (0...((deg‘𝐺) − 𝑀))) → (𝐼𝑘) = ((coeff‘𝐺)‘(𝑘 + 𝑀)))
241 oveq1 7142 . . . . . . . . 9 (𝑧 = 𝐴 → (𝑧𝑘) = (𝐴𝑘))
242241ad2antlr 726 . . . . . . . 8 (((𝜑𝑧 = 𝐴) ∧ 𝑘 ∈ (0...((deg‘𝐺) − 𝑀))) → (𝑧𝑘) = (𝐴𝑘))
243240, 242oveq12d 7153 . . . . . . 7 (((𝜑𝑧 = 𝐴) ∧ 𝑘 ∈ (0...((deg‘𝐺) − 𝑀))) → ((𝐼𝑘) · (𝑧𝑘)) = (((coeff‘𝐺)‘(𝑘 + 𝑀)) · (𝐴𝑘)))
244243sumeq2dv 15052 . . . . . 6 ((𝜑𝑧 = 𝐴) → Σ𝑘 ∈ (0...((deg‘𝐺) − 𝑀))((𝐼𝑘) · (𝑧𝑘)) = Σ𝑘 ∈ (0...((deg‘𝐺) − 𝑀))(((coeff‘𝐺)‘(𝑘 + 𝑀)) · (𝐴𝑘)))
245 fzfid 13336 . . . . . . 7 (𝜑 → (0...((deg‘𝐺) − 𝑀)) ∈ Fin)
246245, 129fsumcl 15082 . . . . . 6 (𝜑 → Σ𝑘 ∈ (0...((deg‘𝐺) − 𝑀))(((coeff‘𝐺)‘(𝑘 + 𝑀)) · (𝐴𝑘)) ∈ ℂ)
2472, 244, 126, 246fvmptd 6752 . . . . 5 (𝜑 → (𝐹𝐴) = Σ𝑘 ∈ (0...((deg‘𝐺) − 𝑀))(((coeff‘𝐺)‘(𝑘 + 𝑀)) · (𝐴𝑘)))
24817, 16coeid2 24836 . . . . . . . 8 ((𝐺 ∈ (Poly‘ℤ) ∧ 𝐴 ∈ ℂ) → (𝐺𝐴) = Σ𝑗 ∈ (0...(deg‘𝐺))(((coeff‘𝐺)‘𝑗) · (𝐴𝑗)))
2495, 126, 248syl2anc 587 . . . . . . 7 (𝜑 → (𝐺𝐴) = Σ𝑗 ∈ (0...(deg‘𝐺))(((coeff‘𝐺)‘𝑗) · (𝐴𝑗)))
250249oveq1d 7150 . . . . . 6 (𝜑 → ((𝐺𝐴) / (𝐴𝑀)) = (Σ𝑗 ∈ (0...(deg‘𝐺))(((coeff‘𝐺)‘𝑗) · (𝐴𝑗)) / (𝐴𝑀)))
25183adantr 484 . . . . . . . . 9 ((𝜑𝑗 ∈ (0...(deg‘𝐺))) → (coeff‘𝐺):ℕ0⟶ℂ)
252182adantl 485 . . . . . . . . 9 ((𝜑𝑗 ∈ (0...(deg‘𝐺))) → 𝑗 ∈ ℕ0)
253251, 252ffvelrnd 6829 . . . . . . . 8 ((𝜑𝑗 ∈ (0...(deg‘𝐺))) → ((coeff‘𝐺)‘𝑗) ∈ ℂ)
254126adantr 484 . . . . . . . . 9 ((𝜑𝑗 ∈ (0...(deg‘𝐺))) → 𝐴 ∈ ℂ)
255254, 252expcld 13506 . . . . . . . 8 ((𝜑𝑗 ∈ (0...(deg‘𝐺))) → (𝐴𝑗) ∈ ℂ)
256253, 255mulcld 10650 . . . . . . 7 ((𝜑𝑗 ∈ (0...(deg‘𝐺))) → (((coeff‘𝐺)‘𝑗) · (𝐴𝑗)) ∈ ℂ)
257234, 165, 256, 230fsumdivc 15133 . . . . . 6 (𝜑 → (Σ𝑗 ∈ (0...(deg‘𝐺))(((coeff‘𝐺)‘𝑗) · (𝐴𝑗)) / (𝐴𝑀)) = Σ𝑗 ∈ (0...(deg‘𝐺))((((coeff‘𝐺)‘𝑗) · (𝐴𝑗)) / (𝐴𝑀)))
258250, 257eqtrd 2833 . . . . 5 (𝜑 → ((𝐺𝐴) / (𝐴𝑀)) = Σ𝑗 ∈ (0...(deg‘𝐺))((((coeff‘𝐺)‘𝑗) · (𝐴𝑗)) / (𝐴𝑀)))
259236, 247, 2583eqtr4d 2843 . . . 4 (𝜑 → (𝐹𝐴) = ((𝐺𝐴) / (𝐴𝑀)))
260 elaa2lem.ga . . . . 5 (𝜑 → (𝐺𝐴) = 0)
261260oveq1d 7150 . . . 4 (𝜑 → ((𝐺𝐴) / (𝐴𝑀)) = (0 / (𝐴𝑀)))
262259, 261, 2313eqtrd 2837 . . 3 (𝜑 → (𝐹𝐴) = 0)
263122, 262jca 515 . 2 (𝜑 → (((coeff‘𝐹)‘0) ≠ 0 ∧ (𝐹𝐴) = 0))
264 fveq2 6645 . . . . . 6 (𝑓 = 𝐹 → (coeff‘𝑓) = (coeff‘𝐹))
265264fveq1d 6647 . . . . 5 (𝑓 = 𝐹 → ((coeff‘𝑓)‘0) = ((coeff‘𝐹)‘0))
266265neeq1d 3046 . . . 4 (𝑓 = 𝐹 → (((coeff‘𝑓)‘0) ≠ 0 ↔ ((coeff‘𝐹)‘0) ≠ 0))
267 fveq1 6644 . . . . 5 (𝑓 = 𝐹 → (𝑓𝐴) = (𝐹𝐴))
268267eqeq1d 2800 . . . 4 (𝑓 = 𝐹 → ((𝑓𝐴) = 0 ↔ (𝐹𝐴) = 0))
269266, 268anbi12d 633 . . 3 (𝑓 = 𝐹 → ((((coeff‘𝑓)‘0) ≠ 0 ∧ (𝑓𝐴) = 0) ↔ (((coeff‘𝐹)‘0) ≠ 0 ∧ (𝐹𝐴) = 0)))
270269rspcev 3571 . 2 ((𝐹 ∈ (Poly‘ℤ) ∧ (((coeff‘𝐹)‘0) ≠ 0 ∧ (𝐹𝐴) = 0)) → ∃𝑓 ∈ (Poly‘ℤ)(((coeff‘𝑓)‘0) ≠ 0 ∧ (𝑓𝐴) = 0))
27157, 263, 270syl2anc 587 1 (𝜑 → ∃𝑓 ∈ (Poly‘ℤ)(((coeff‘𝑓)‘0) ≠ 0 ∧ (𝑓𝐴) = 0))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 209  wa 399  wo 844  w3a 1084   = wceq 1538  wcel 2111  wne 2987  wrex 3107  {crab 3110  cdif 3878  wss 3881  c0 4243  ifcif 4425   class class class wbr 5030  cmpt 5110  wf 6320  cfv 6324  (class class class)co 7135  infcinf 8889  cc 10524  cr 10525  0cc0 10526   + caddc 10529   · cmul 10531   < clt 10664  cle 10665  cmin 10859   / cdiv 11286  0cn0 11885  cz 11969  cuz 12231  ...cfz 12885  cexp 13425  Σcsu 15034  0𝑝c0p 24273  Polycply 24781  coeffccoe 24783  degcdgr 24784  𝔸caa 24910
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1911  ax-6 1970  ax-7 2015  ax-8 2113  ax-9 2121  ax-10 2142  ax-11 2158  ax-12 2175  ax-ext 2770  ax-rep 5154  ax-sep 5167  ax-nul 5174  ax-pow 5231  ax-pr 5295  ax-un 7441  ax-inf2 9088  ax-cnex 10582  ax-resscn 10583  ax-1cn 10584  ax-icn 10585  ax-addcl 10586  ax-addrcl 10587  ax-mulcl 10588  ax-mulrcl 10589  ax-mulcom 10590  ax-addass 10591  ax-mulass 10592  ax-distr 10593  ax-i2m1 10594  ax-1ne0 10595  ax-1rid 10596  ax-rnegex 10597  ax-rrecex 10598  ax-cnre 10599  ax-pre-lttri 10600  ax-pre-lttrn 10601  ax-pre-ltadd 10602  ax-pre-mulgt0 10603  ax-pre-sup 10604  ax-addf 10605
This theorem depends on definitions:  df-bi 210  df-an 400  df-or 845  df-3or 1085  df-3an 1086  df-tru 1541  df-fal 1551  df-ex 1782  df-nf 1786  df-sb 2070  df-mo 2598  df-eu 2629  df-clab 2777  df-cleq 2791  df-clel 2870  df-nfc 2938  df-ne 2988  df-nel 3092  df-ral 3111  df-rex 3112  df-reu 3113  df-rmo 3114  df-rab 3115  df-v 3443  df-sbc 3721  df-csb 3829  df-dif 3884  df-un 3886  df-in 3888  df-ss 3898  df-pss 3900  df-nul 4244  df-if 4426  df-pw 4499  df-sn 4526  df-pr 4528  df-tp 4530  df-op 4532  df-uni 4801  df-int 4839  df-iun 4883  df-br 5031  df-opab 5093  df-mpt 5111  df-tr 5137  df-id 5425  df-eprel 5430  df-po 5438  df-so 5439  df-fr 5478  df-se 5479  df-we 5480  df-xp 5525  df-rel 5526  df-cnv 5527  df-co 5528  df-dm 5529  df-rn 5530  df-res 5531  df-ima 5532  df-pred 6116  df-ord 6162  df-on 6163  df-lim 6164  df-suc 6165  df-iota 6283  df-fun 6326  df-fn 6327  df-f 6328  df-f1 6329  df-fo 6330  df-f1o 6331  df-fv 6332  df-isom 6333  df-riota 7093  df-ov 7138  df-oprab 7139  df-mpo 7140  df-of 7389  df-om 7561  df-1st 7671  df-2nd 7672  df-wrecs 7930  df-recs 7991  df-rdg 8029  df-1o 8085  df-oadd 8089  df-er 8272  df-map 8391  df-pm 8392  df-en 8493  df-dom 8494  df-sdom 8495  df-fin 8496  df-sup 8890  df-inf 8891  df-oi 8958  df-card 9352  df-pnf 10666  df-mnf 10667  df-xr 10668  df-ltxr 10669  df-le 10670  df-sub 10861  df-neg 10862  df-div 11287  df-nn 11626  df-2 11688  df-3 11689  df-n0 11886  df-z 11970  df-uz 12232  df-rp 12378  df-fz 12886  df-fzo 13029  df-fl 13157  df-seq 13365  df-exp 13426  df-hash 13687  df-cj 14450  df-re 14451  df-im 14452  df-sqrt 14586  df-abs 14587  df-clim 14837  df-rlim 14838  df-sum 15035  df-0p 24274  df-ply 24785  df-coe 24787  df-dgr 24788  df-aa 24911
This theorem is referenced by:  elaa2  42876
  Copyright terms: Public domain W3C validator