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

Theorem plydivlem4 24271
Description: Lemma for plydivex 24272. Induction step. (Contributed by Mario Carneiro, 26-Jul-2014.)
Hypotheses
Ref Expression
plydiv.pl ((𝜑 ∧ (𝑥𝑆𝑦𝑆)) → (𝑥 + 𝑦) ∈ 𝑆)
plydiv.tm ((𝜑 ∧ (𝑥𝑆𝑦𝑆)) → (𝑥 · 𝑦) ∈ 𝑆)
plydiv.rc ((𝜑 ∧ (𝑥𝑆𝑥 ≠ 0)) → (1 / 𝑥) ∈ 𝑆)
plydiv.m1 (𝜑 → -1 ∈ 𝑆)
plydiv.f (𝜑𝐹 ∈ (Poly‘𝑆))
plydiv.g (𝜑𝐺 ∈ (Poly‘𝑆))
plydiv.z (𝜑𝐺 ≠ 0𝑝)
plydiv.r 𝑅 = (𝐹𝑓 − (𝐺𝑓 · 𝑞))
plydiv.d (𝜑𝐷 ∈ ℕ0)
plydiv.e (𝜑 → (𝑀𝑁) = 𝐷)
plydiv.fz (𝜑𝐹 ≠ 0𝑝)
plydiv.u 𝑈 = (𝑓𝑓 − (𝐺𝑓 · 𝑝))
plydiv.h 𝐻 = (𝑧 ∈ ℂ ↦ (((𝐴𝑀) / (𝐵𝑁)) · (𝑧𝐷)))
plydiv.al (𝜑 → ∀𝑓 ∈ (Poly‘𝑆)((𝑓 = 0𝑝 ∨ ((deg‘𝑓) − 𝑁) < 𝐷) → ∃𝑝 ∈ (Poly‘𝑆)(𝑈 = 0𝑝 ∨ (deg‘𝑈) < 𝑁)))
plydiv.a 𝐴 = (coeff‘𝐹)
plydiv.b 𝐵 = (coeff‘𝐺)
plydiv.m 𝑀 = (deg‘𝐹)
plydiv.n 𝑁 = (deg‘𝐺)
Assertion
Ref Expression
plydivlem4 (𝜑 → ∃𝑞 ∈ (Poly‘𝑆)(𝑅 = 0𝑝 ∨ (deg‘𝑅) < 𝑁))
Distinct variable groups:   𝑥,𝑦,𝑧,𝐴   𝑓,𝑝,𝑞,𝑥,𝑦,𝑧,𝐹   𝑓,𝐻,𝑝,𝑞,𝑥,𝑦,𝑧   𝜑,𝑥,𝑦,𝑧   𝑥,𝐵,𝑦,𝑧   𝐷,𝑓,𝑧   𝑥,𝑀,𝑦,𝑧   𝑓,𝑁,𝑝,𝑞,𝑥,𝑦,𝑧   𝑓,𝐺,𝑝,𝑞,𝑥,𝑦,𝑧   𝑅,𝑓,𝑝,𝑥,𝑦   𝑆,𝑓,𝑝,𝑞,𝑥,𝑦,𝑧   𝜑,𝑝
Allowed substitution hints:   𝜑(𝑓,𝑞)   𝐴(𝑓,𝑞,𝑝)   𝐵(𝑓,𝑞,𝑝)   𝐷(𝑥,𝑦,𝑞,𝑝)   𝑅(𝑧,𝑞)   𝑈(𝑥,𝑦,𝑧,𝑓,𝑞,𝑝)   𝑀(𝑓,𝑞,𝑝)

Proof of Theorem plydivlem4
StepHypRef Expression
1 plydiv.f . . . . . . . 8 (𝜑𝐹 ∈ (Poly‘𝑆))
2 plybss 24170 . . . . . . . 8 (𝐹 ∈ (Poly‘𝑆) → 𝑆 ⊆ ℂ)
31, 2syl 17 . . . . . . 7 (𝜑𝑆 ⊆ ℂ)
4 plydiv.pl . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑥𝑆𝑦𝑆)) → (𝑥 + 𝑦) ∈ 𝑆)
5 plydiv.tm . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑥𝑆𝑦𝑆)) → (𝑥 · 𝑦) ∈ 𝑆)
6 plydiv.rc . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑥𝑆𝑥 ≠ 0)) → (1 / 𝑥) ∈ 𝑆)
7 plydiv.m1 . . . . . . . . . . . . 13 (𝜑 → -1 ∈ 𝑆)
84, 5, 6, 7plydivlem1 24268 . . . . . . . . . . . 12 (𝜑 → 0 ∈ 𝑆)
9 plydiv.a . . . . . . . . . . . . 13 𝐴 = (coeff‘𝐹)
109coef2 24207 . . . . . . . . . . . 12 ((𝐹 ∈ (Poly‘𝑆) ∧ 0 ∈ 𝑆) → 𝐴:ℕ0𝑆)
111, 8, 10syl2anc 696 . . . . . . . . . . 11 (𝜑𝐴:ℕ0𝑆)
12 plydiv.m . . . . . . . . . . . 12 𝑀 = (deg‘𝐹)
13 dgrcl 24209 . . . . . . . . . . . . 13 (𝐹 ∈ (Poly‘𝑆) → (deg‘𝐹) ∈ ℕ0)
141, 13syl 17 . . . . . . . . . . . 12 (𝜑 → (deg‘𝐹) ∈ ℕ0)
1512, 14syl5eqel 2844 . . . . . . . . . . 11 (𝜑𝑀 ∈ ℕ0)
1611, 15ffvelrnd 6525 . . . . . . . . . 10 (𝜑 → (𝐴𝑀) ∈ 𝑆)
173, 16sseldd 3746 . . . . . . . . 9 (𝜑 → (𝐴𝑀) ∈ ℂ)
18 plydiv.g . . . . . . . . . . . 12 (𝜑𝐺 ∈ (Poly‘𝑆))
19 plydiv.b . . . . . . . . . . . . 13 𝐵 = (coeff‘𝐺)
2019coef2 24207 . . . . . . . . . . . 12 ((𝐺 ∈ (Poly‘𝑆) ∧ 0 ∈ 𝑆) → 𝐵:ℕ0𝑆)
2118, 8, 20syl2anc 696 . . . . . . . . . . 11 (𝜑𝐵:ℕ0𝑆)
22 plydiv.n . . . . . . . . . . . 12 𝑁 = (deg‘𝐺)
23 dgrcl 24209 . . . . . . . . . . . . 13 (𝐺 ∈ (Poly‘𝑆) → (deg‘𝐺) ∈ ℕ0)
2418, 23syl 17 . . . . . . . . . . . 12 (𝜑 → (deg‘𝐺) ∈ ℕ0)
2522, 24syl5eqel 2844 . . . . . . . . . . 11 (𝜑𝑁 ∈ ℕ0)
2621, 25ffvelrnd 6525 . . . . . . . . . 10 (𝜑 → (𝐵𝑁) ∈ 𝑆)
273, 26sseldd 3746 . . . . . . . . 9 (𝜑 → (𝐵𝑁) ∈ ℂ)
28 plydiv.z . . . . . . . . . 10 (𝜑𝐺 ≠ 0𝑝)
2922, 19dgreq0 24241 . . . . . . . . . . . 12 (𝐺 ∈ (Poly‘𝑆) → (𝐺 = 0𝑝 ↔ (𝐵𝑁) = 0))
3018, 29syl 17 . . . . . . . . . . 11 (𝜑 → (𝐺 = 0𝑝 ↔ (𝐵𝑁) = 0))
3130necon3bid 2977 . . . . . . . . . 10 (𝜑 → (𝐺 ≠ 0𝑝 ↔ (𝐵𝑁) ≠ 0))
3228, 31mpbid 222 . . . . . . . . 9 (𝜑 → (𝐵𝑁) ≠ 0)
3317, 27, 32divrecd 11017 . . . . . . . 8 (𝜑 → ((𝐴𝑀) / (𝐵𝑁)) = ((𝐴𝑀) · (1 / (𝐵𝑁))))
34 fvex 6364 . . . . . . . . . . . 12 (𝐵𝑁) ∈ V
35 eleq1 2828 . . . . . . . . . . . . . . 15 (𝑥 = (𝐵𝑁) → (𝑥𝑆 ↔ (𝐵𝑁) ∈ 𝑆))
36 neeq1 2995 . . . . . . . . . . . . . . 15 (𝑥 = (𝐵𝑁) → (𝑥 ≠ 0 ↔ (𝐵𝑁) ≠ 0))
3735, 36anbi12d 749 . . . . . . . . . . . . . 14 (𝑥 = (𝐵𝑁) → ((𝑥𝑆𝑥 ≠ 0) ↔ ((𝐵𝑁) ∈ 𝑆 ∧ (𝐵𝑁) ≠ 0)))
3837anbi2d 742 . . . . . . . . . . . . 13 (𝑥 = (𝐵𝑁) → ((𝜑 ∧ (𝑥𝑆𝑥 ≠ 0)) ↔ (𝜑 ∧ ((𝐵𝑁) ∈ 𝑆 ∧ (𝐵𝑁) ≠ 0))))
39 oveq2 6823 . . . . . . . . . . . . . 14 (𝑥 = (𝐵𝑁) → (1 / 𝑥) = (1 / (𝐵𝑁)))
4039eleq1d 2825 . . . . . . . . . . . . 13 (𝑥 = (𝐵𝑁) → ((1 / 𝑥) ∈ 𝑆 ↔ (1 / (𝐵𝑁)) ∈ 𝑆))
4138, 40imbi12d 333 . . . . . . . . . . . 12 (𝑥 = (𝐵𝑁) → (((𝜑 ∧ (𝑥𝑆𝑥 ≠ 0)) → (1 / 𝑥) ∈ 𝑆) ↔ ((𝜑 ∧ ((𝐵𝑁) ∈ 𝑆 ∧ (𝐵𝑁) ≠ 0)) → (1 / (𝐵𝑁)) ∈ 𝑆)))
4234, 41, 6vtocl 3400 . . . . . . . . . . 11 ((𝜑 ∧ ((𝐵𝑁) ∈ 𝑆 ∧ (𝐵𝑁) ≠ 0)) → (1 / (𝐵𝑁)) ∈ 𝑆)
4342ex 449 . . . . . . . . . 10 (𝜑 → (((𝐵𝑁) ∈ 𝑆 ∧ (𝐵𝑁) ≠ 0) → (1 / (𝐵𝑁)) ∈ 𝑆))
4426, 32, 43mp2and 717 . . . . . . . . 9 (𝜑 → (1 / (𝐵𝑁)) ∈ 𝑆)
455, 16, 44caovcld 6994 . . . . . . . 8 (𝜑 → ((𝐴𝑀) · (1 / (𝐵𝑁))) ∈ 𝑆)
4633, 45eqeltrd 2840 . . . . . . 7 (𝜑 → ((𝐴𝑀) / (𝐵𝑁)) ∈ 𝑆)
47 plydiv.d . . . . . . 7 (𝜑𝐷 ∈ ℕ0)
48 plydiv.h . . . . . . . 8 𝐻 = (𝑧 ∈ ℂ ↦ (((𝐴𝑀) / (𝐵𝑁)) · (𝑧𝐷)))
4948ply1term 24180 . . . . . . 7 ((𝑆 ⊆ ℂ ∧ ((𝐴𝑀) / (𝐵𝑁)) ∈ 𝑆𝐷 ∈ ℕ0) → 𝐻 ∈ (Poly‘𝑆))
503, 46, 47, 49syl3anc 1477 . . . . . 6 (𝜑𝐻 ∈ (Poly‘𝑆))
5150adantr 472 . . . . 5 ((𝜑𝑝 ∈ (Poly‘𝑆)) → 𝐻 ∈ (Poly‘𝑆))
52 simpr 479 . . . . 5 ((𝜑𝑝 ∈ (Poly‘𝑆)) → 𝑝 ∈ (Poly‘𝑆))
534adantlr 753 . . . . 5 (((𝜑𝑝 ∈ (Poly‘𝑆)) ∧ (𝑥𝑆𝑦𝑆)) → (𝑥 + 𝑦) ∈ 𝑆)
5451, 52, 53plyadd 24193 . . . 4 ((𝜑𝑝 ∈ (Poly‘𝑆)) → (𝐻𝑓 + 𝑝) ∈ (Poly‘𝑆))
5554adantr 472 . . 3 (((𝜑𝑝 ∈ (Poly‘𝑆)) ∧ (((𝐹𝑓 − (𝐻𝑓 · 𝐺)) ∘𝑓 − (𝐺𝑓 · 𝑝)) = 0𝑝 ∨ (deg‘((𝐹𝑓 − (𝐻𝑓 · 𝐺)) ∘𝑓 − (𝐺𝑓 · 𝑝))) < 𝑁)) → (𝐻𝑓 + 𝑝) ∈ (Poly‘𝑆))
56 cnex 10230 . . . . . . . . 9 ℂ ∈ V
5756a1i 11 . . . . . . . 8 ((𝜑𝑝 ∈ (Poly‘𝑆)) → ℂ ∈ V)
581adantr 472 . . . . . . . . 9 ((𝜑𝑝 ∈ (Poly‘𝑆)) → 𝐹 ∈ (Poly‘𝑆))
59 plyf 24174 . . . . . . . . 9 (𝐹 ∈ (Poly‘𝑆) → 𝐹:ℂ⟶ℂ)
6058, 59syl 17 . . . . . . . 8 ((𝜑𝑝 ∈ (Poly‘𝑆)) → 𝐹:ℂ⟶ℂ)
61 mulcl 10233 . . . . . . . . . 10 ((𝑥 ∈ ℂ ∧ 𝑦 ∈ ℂ) → (𝑥 · 𝑦) ∈ ℂ)
6261adantl 473 . . . . . . . . 9 (((𝜑𝑝 ∈ (Poly‘𝑆)) ∧ (𝑥 ∈ ℂ ∧ 𝑦 ∈ ℂ)) → (𝑥 · 𝑦) ∈ ℂ)
63 plyf 24174 . . . . . . . . . 10 (𝐻 ∈ (Poly‘𝑆) → 𝐻:ℂ⟶ℂ)
6451, 63syl 17 . . . . . . . . 9 ((𝜑𝑝 ∈ (Poly‘𝑆)) → 𝐻:ℂ⟶ℂ)
6518adantr 472 . . . . . . . . . 10 ((𝜑𝑝 ∈ (Poly‘𝑆)) → 𝐺 ∈ (Poly‘𝑆))
66 plyf 24174 . . . . . . . . . 10 (𝐺 ∈ (Poly‘𝑆) → 𝐺:ℂ⟶ℂ)
6765, 66syl 17 . . . . . . . . 9 ((𝜑𝑝 ∈ (Poly‘𝑆)) → 𝐺:ℂ⟶ℂ)
68 inidm 3966 . . . . . . . . 9 (ℂ ∩ ℂ) = ℂ
6962, 64, 67, 57, 57, 68off 7079 . . . . . . . 8 ((𝜑𝑝 ∈ (Poly‘𝑆)) → (𝐻𝑓 · 𝐺):ℂ⟶ℂ)
70 plyf 24174 . . . . . . . . . 10 (𝑝 ∈ (Poly‘𝑆) → 𝑝:ℂ⟶ℂ)
7170adantl 473 . . . . . . . . 9 ((𝜑𝑝 ∈ (Poly‘𝑆)) → 𝑝:ℂ⟶ℂ)
7262, 67, 71, 57, 57, 68off 7079 . . . . . . . 8 ((𝜑𝑝 ∈ (Poly‘𝑆)) → (𝐺𝑓 · 𝑝):ℂ⟶ℂ)
73 subsub4 10527 . . . . . . . . 9 ((𝑥 ∈ ℂ ∧ 𝑦 ∈ ℂ ∧ 𝑧 ∈ ℂ) → ((𝑥𝑦) − 𝑧) = (𝑥 − (𝑦 + 𝑧)))
7473adantl 473 . . . . . . . 8 (((𝜑𝑝 ∈ (Poly‘𝑆)) ∧ (𝑥 ∈ ℂ ∧ 𝑦 ∈ ℂ ∧ 𝑧 ∈ ℂ)) → ((𝑥𝑦) − 𝑧) = (𝑥 − (𝑦 + 𝑧)))
7557, 60, 69, 72, 74caofass 7098 . . . . . . 7 ((𝜑𝑝 ∈ (Poly‘𝑆)) → ((𝐹𝑓 − (𝐻𝑓 · 𝐺)) ∘𝑓 − (𝐺𝑓 · 𝑝)) = (𝐹𝑓 − ((𝐻𝑓 · 𝐺) ∘𝑓 + (𝐺𝑓 · 𝑝))))
76 mulcom 10235 . . . . . . . . . . . 12 ((𝑥 ∈ ℂ ∧ 𝑦 ∈ ℂ) → (𝑥 · 𝑦) = (𝑦 · 𝑥))
7776adantl 473 . . . . . . . . . . 11 (((𝜑𝑝 ∈ (Poly‘𝑆)) ∧ (𝑥 ∈ ℂ ∧ 𝑦 ∈ ℂ)) → (𝑥 · 𝑦) = (𝑦 · 𝑥))
7857, 64, 67, 77caofcom 7096 . . . . . . . . . 10 ((𝜑𝑝 ∈ (Poly‘𝑆)) → (𝐻𝑓 · 𝐺) = (𝐺𝑓 · 𝐻))
7978oveq1d 6830 . . . . . . . . 9 ((𝜑𝑝 ∈ (Poly‘𝑆)) → ((𝐻𝑓 · 𝐺) ∘𝑓 + (𝐺𝑓 · 𝑝)) = ((𝐺𝑓 · 𝐻) ∘𝑓 + (𝐺𝑓 · 𝑝)))
80 adddi 10238 . . . . . . . . . . 11 ((𝑥 ∈ ℂ ∧ 𝑦 ∈ ℂ ∧ 𝑧 ∈ ℂ) → (𝑥 · (𝑦 + 𝑧)) = ((𝑥 · 𝑦) + (𝑥 · 𝑧)))
8180adantl 473 . . . . . . . . . 10 (((𝜑𝑝 ∈ (Poly‘𝑆)) ∧ (𝑥 ∈ ℂ ∧ 𝑦 ∈ ℂ ∧ 𝑧 ∈ ℂ)) → (𝑥 · (𝑦 + 𝑧)) = ((𝑥 · 𝑦) + (𝑥 · 𝑧)))
8257, 67, 64, 71, 81caofdi 7100 . . . . . . . . 9 ((𝜑𝑝 ∈ (Poly‘𝑆)) → (𝐺𝑓 · (𝐻𝑓 + 𝑝)) = ((𝐺𝑓 · 𝐻) ∘𝑓 + (𝐺𝑓 · 𝑝)))
8379, 82eqtr4d 2798 . . . . . . . 8 ((𝜑𝑝 ∈ (Poly‘𝑆)) → ((𝐻𝑓 · 𝐺) ∘𝑓 + (𝐺𝑓 · 𝑝)) = (𝐺𝑓 · (𝐻𝑓 + 𝑝)))
8483oveq2d 6831 . . . . . . 7 ((𝜑𝑝 ∈ (Poly‘𝑆)) → (𝐹𝑓 − ((𝐻𝑓 · 𝐺) ∘𝑓 + (𝐺𝑓 · 𝑝))) = (𝐹𝑓 − (𝐺𝑓 · (𝐻𝑓 + 𝑝))))
8575, 84eqtrd 2795 . . . . . 6 ((𝜑𝑝 ∈ (Poly‘𝑆)) → ((𝐹𝑓 − (𝐻𝑓 · 𝐺)) ∘𝑓 − (𝐺𝑓 · 𝑝)) = (𝐹𝑓 − (𝐺𝑓 · (𝐻𝑓 + 𝑝))))
8685eqeq1d 2763 . . . . 5 ((𝜑𝑝 ∈ (Poly‘𝑆)) → (((𝐹𝑓 − (𝐻𝑓 · 𝐺)) ∘𝑓 − (𝐺𝑓 · 𝑝)) = 0𝑝 ↔ (𝐹𝑓 − (𝐺𝑓 · (𝐻𝑓 + 𝑝))) = 0𝑝))
8785fveq2d 6358 . . . . . 6 ((𝜑𝑝 ∈ (Poly‘𝑆)) → (deg‘((𝐹𝑓 − (𝐻𝑓 · 𝐺)) ∘𝑓 − (𝐺𝑓 · 𝑝))) = (deg‘(𝐹𝑓 − (𝐺𝑓 · (𝐻𝑓 + 𝑝)))))
8887breq1d 4815 . . . . 5 ((𝜑𝑝 ∈ (Poly‘𝑆)) → ((deg‘((𝐹𝑓 − (𝐻𝑓 · 𝐺)) ∘𝑓 − (𝐺𝑓 · 𝑝))) < 𝑁 ↔ (deg‘(𝐹𝑓 − (𝐺𝑓 · (𝐻𝑓 + 𝑝)))) < 𝑁))
8986, 88orbi12d 748 . . . 4 ((𝜑𝑝 ∈ (Poly‘𝑆)) → ((((𝐹𝑓 − (𝐻𝑓 · 𝐺)) ∘𝑓 − (𝐺𝑓 · 𝑝)) = 0𝑝 ∨ (deg‘((𝐹𝑓 − (𝐻𝑓 · 𝐺)) ∘𝑓 − (𝐺𝑓 · 𝑝))) < 𝑁) ↔ ((𝐹𝑓 − (𝐺𝑓 · (𝐻𝑓 + 𝑝))) = 0𝑝 ∨ (deg‘(𝐹𝑓 − (𝐺𝑓 · (𝐻𝑓 + 𝑝)))) < 𝑁)))
9089biimpa 502 . . 3 (((𝜑𝑝 ∈ (Poly‘𝑆)) ∧ (((𝐹𝑓 − (𝐻𝑓 · 𝐺)) ∘𝑓 − (𝐺𝑓 · 𝑝)) = 0𝑝 ∨ (deg‘((𝐹𝑓 − (𝐻𝑓 · 𝐺)) ∘𝑓 − (𝐺𝑓 · 𝑝))) < 𝑁)) → ((𝐹𝑓 − (𝐺𝑓 · (𝐻𝑓 + 𝑝))) = 0𝑝 ∨ (deg‘(𝐹𝑓 − (𝐺𝑓 · (𝐻𝑓 + 𝑝)))) < 𝑁))
91 plydiv.r . . . . . . 7 𝑅 = (𝐹𝑓 − (𝐺𝑓 · 𝑞))
92 oveq2 6823 . . . . . . . 8 (𝑞 = (𝐻𝑓 + 𝑝) → (𝐺𝑓 · 𝑞) = (𝐺𝑓 · (𝐻𝑓 + 𝑝)))
9392oveq2d 6831 . . . . . . 7 (𝑞 = (𝐻𝑓 + 𝑝) → (𝐹𝑓 − (𝐺𝑓 · 𝑞)) = (𝐹𝑓 − (𝐺𝑓 · (𝐻𝑓 + 𝑝))))
9491, 93syl5eq 2807 . . . . . 6 (𝑞 = (𝐻𝑓 + 𝑝) → 𝑅 = (𝐹𝑓 − (𝐺𝑓 · (𝐻𝑓 + 𝑝))))
9594eqeq1d 2763 . . . . 5 (𝑞 = (𝐻𝑓 + 𝑝) → (𝑅 = 0𝑝 ↔ (𝐹𝑓 − (𝐺𝑓 · (𝐻𝑓 + 𝑝))) = 0𝑝))
9694fveq2d 6358 . . . . . 6 (𝑞 = (𝐻𝑓 + 𝑝) → (deg‘𝑅) = (deg‘(𝐹𝑓 − (𝐺𝑓 · (𝐻𝑓 + 𝑝)))))
9796breq1d 4815 . . . . 5 (𝑞 = (𝐻𝑓 + 𝑝) → ((deg‘𝑅) < 𝑁 ↔ (deg‘(𝐹𝑓 − (𝐺𝑓 · (𝐻𝑓 + 𝑝)))) < 𝑁))
9895, 97orbi12d 748 . . . 4 (𝑞 = (𝐻𝑓 + 𝑝) → ((𝑅 = 0𝑝 ∨ (deg‘𝑅) < 𝑁) ↔ ((𝐹𝑓 − (𝐺𝑓 · (𝐻𝑓 + 𝑝))) = 0𝑝 ∨ (deg‘(𝐹𝑓 − (𝐺𝑓 · (𝐻𝑓 + 𝑝)))) < 𝑁)))
9998rspcev 3450 . . 3 (((𝐻𝑓 + 𝑝) ∈ (Poly‘𝑆) ∧ ((𝐹𝑓 − (𝐺𝑓 · (𝐻𝑓 + 𝑝))) = 0𝑝 ∨ (deg‘(𝐹𝑓 − (𝐺𝑓 · (𝐻𝑓 + 𝑝)))) < 𝑁)) → ∃𝑞 ∈ (Poly‘𝑆)(𝑅 = 0𝑝 ∨ (deg‘𝑅) < 𝑁))
10055, 90, 99syl2anc 696 . 2 (((𝜑𝑝 ∈ (Poly‘𝑆)) ∧ (((𝐹𝑓 − (𝐻𝑓 · 𝐺)) ∘𝑓 − (𝐺𝑓 · 𝑝)) = 0𝑝 ∨ (deg‘((𝐹𝑓 − (𝐻𝑓 · 𝐺)) ∘𝑓 − (𝐺𝑓 · 𝑝))) < 𝑁)) → ∃𝑞 ∈ (Poly‘𝑆)(𝑅 = 0𝑝 ∨ (deg‘𝑅) < 𝑁))
10150, 18, 4, 5plymul 24194 . . . . . 6 (𝜑 → (𝐻𝑓 · 𝐺) ∈ (Poly‘𝑆))
102 eqid 2761 . . . . . . 7 (deg‘(𝐻𝑓 · 𝐺)) = (deg‘(𝐻𝑓 · 𝐺))
10312, 102dgrsub 24248 . . . . . 6 ((𝐹 ∈ (Poly‘𝑆) ∧ (𝐻𝑓 · 𝐺) ∈ (Poly‘𝑆)) → (deg‘(𝐹𝑓 − (𝐻𝑓 · 𝐺))) ≤ if(𝑀 ≤ (deg‘(𝐻𝑓 · 𝐺)), (deg‘(𝐻𝑓 · 𝐺)), 𝑀))
1041, 101, 103syl2anc 696 . . . . 5 (𝜑 → (deg‘(𝐹𝑓 − (𝐻𝑓 · 𝐺))) ≤ if(𝑀 ≤ (deg‘(𝐻𝑓 · 𝐺)), (deg‘(𝐻𝑓 · 𝐺)), 𝑀))
105 plydiv.fz . . . . . . . . . . . . 13 (𝜑𝐹 ≠ 0𝑝)
10612, 9dgreq0 24241 . . . . . . . . . . . . . . 15 (𝐹 ∈ (Poly‘𝑆) → (𝐹 = 0𝑝 ↔ (𝐴𝑀) = 0))
1071, 106syl 17 . . . . . . . . . . . . . 14 (𝜑 → (𝐹 = 0𝑝 ↔ (𝐴𝑀) = 0))
108107necon3bid 2977 . . . . . . . . . . . . 13 (𝜑 → (𝐹 ≠ 0𝑝 ↔ (𝐴𝑀) ≠ 0))
109105, 108mpbid 222 . . . . . . . . . . . 12 (𝜑 → (𝐴𝑀) ≠ 0)
11017, 27, 109, 32divne0d 11030 . . . . . . . . . . 11 (𝜑 → ((𝐴𝑀) / (𝐵𝑁)) ≠ 0)
1113, 46sseldd 3746 . . . . . . . . . . . . 13 (𝜑 → ((𝐴𝑀) / (𝐵𝑁)) ∈ ℂ)
11248coe1term 24235 . . . . . . . . . . . . 13 ((((𝐴𝑀) / (𝐵𝑁)) ∈ ℂ ∧ 𝐷 ∈ ℕ0𝐷 ∈ ℕ0) → ((coeff‘𝐻)‘𝐷) = if(𝐷 = 𝐷, ((𝐴𝑀) / (𝐵𝑁)), 0))
113111, 47, 47, 112syl3anc 1477 . . . . . . . . . . . 12 (𝜑 → ((coeff‘𝐻)‘𝐷) = if(𝐷 = 𝐷, ((𝐴𝑀) / (𝐵𝑁)), 0))
114 eqid 2761 . . . . . . . . . . . . 13 𝐷 = 𝐷
115114iftruei 4238 . . . . . . . . . . . 12 if(𝐷 = 𝐷, ((𝐴𝑀) / (𝐵𝑁)), 0) = ((𝐴𝑀) / (𝐵𝑁))
116113, 115syl6eq 2811 . . . . . . . . . . 11 (𝜑 → ((coeff‘𝐻)‘𝐷) = ((𝐴𝑀) / (𝐵𝑁)))
117 c0ex 10247 . . . . . . . . . . . . 13 0 ∈ V
118117fvconst2 6635 . . . . . . . . . . . 12 (𝐷 ∈ ℕ0 → ((ℕ0 × {0})‘𝐷) = 0)
11947, 118syl 17 . . . . . . . . . . 11 (𝜑 → ((ℕ0 × {0})‘𝐷) = 0)
120110, 116, 1193netr4d 3010 . . . . . . . . . 10 (𝜑 → ((coeff‘𝐻)‘𝐷) ≠ ((ℕ0 × {0})‘𝐷))
121 fveq2 6354 . . . . . . . . . . . . 13 (𝐻 = 0𝑝 → (coeff‘𝐻) = (coeff‘0𝑝))
122 coe0 24232 . . . . . . . . . . . . 13 (coeff‘0𝑝) = (ℕ0 × {0})
123121, 122syl6eq 2811 . . . . . . . . . . . 12 (𝐻 = 0𝑝 → (coeff‘𝐻) = (ℕ0 × {0}))
124123fveq1d 6356 . . . . . . . . . . 11 (𝐻 = 0𝑝 → ((coeff‘𝐻)‘𝐷) = ((ℕ0 × {0})‘𝐷))
125124necon3i 2965 . . . . . . . . . 10 (((coeff‘𝐻)‘𝐷) ≠ ((ℕ0 × {0})‘𝐷) → 𝐻 ≠ 0𝑝)
126120, 125syl 17 . . . . . . . . 9 (𝜑𝐻 ≠ 0𝑝)
127 eqid 2761 . . . . . . . . . 10 (deg‘𝐻) = (deg‘𝐻)
128127, 22dgrmul 24246 . . . . . . . . 9 (((𝐻 ∈ (Poly‘𝑆) ∧ 𝐻 ≠ 0𝑝) ∧ (𝐺 ∈ (Poly‘𝑆) ∧ 𝐺 ≠ 0𝑝)) → (deg‘(𝐻𝑓 · 𝐺)) = ((deg‘𝐻) + 𝑁))
12950, 126, 18, 28, 128syl22anc 1478 . . . . . . . 8 (𝜑 → (deg‘(𝐻𝑓 · 𝐺)) = ((deg‘𝐻) + 𝑁))
13048dgr1term 24236 . . . . . . . . . . . 12 ((((𝐴𝑀) / (𝐵𝑁)) ∈ ℂ ∧ ((𝐴𝑀) / (𝐵𝑁)) ≠ 0 ∧ 𝐷 ∈ ℕ0) → (deg‘𝐻) = 𝐷)
131111, 110, 47, 130syl3anc 1477 . . . . . . . . . . 11 (𝜑 → (deg‘𝐻) = 𝐷)
132 plydiv.e . . . . . . . . . . 11 (𝜑 → (𝑀𝑁) = 𝐷)
133131, 132eqtr4d 2798 . . . . . . . . . 10 (𝜑 → (deg‘𝐻) = (𝑀𝑁))
134133oveq1d 6830 . . . . . . . . 9 (𝜑 → ((deg‘𝐻) + 𝑁) = ((𝑀𝑁) + 𝑁))
13515nn0cnd 11566 . . . . . . . . . 10 (𝜑𝑀 ∈ ℂ)
13625nn0cnd 11566 . . . . . . . . . 10 (𝜑𝑁 ∈ ℂ)
137135, 136npcand 10609 . . . . . . . . 9 (𝜑 → ((𝑀𝑁) + 𝑁) = 𝑀)
138134, 137eqtrd 2795 . . . . . . . 8 (𝜑 → ((deg‘𝐻) + 𝑁) = 𝑀)
139129, 138eqtrd 2795 . . . . . . 7 (𝜑 → (deg‘(𝐻𝑓 · 𝐺)) = 𝑀)
140139ifeq1d 4249 . . . . . 6 (𝜑 → if(𝑀 ≤ (deg‘(𝐻𝑓 · 𝐺)), (deg‘(𝐻𝑓 · 𝐺)), 𝑀) = if(𝑀 ≤ (deg‘(𝐻𝑓 · 𝐺)), 𝑀, 𝑀))
141 ifid 4270 . . . . . 6 if(𝑀 ≤ (deg‘(𝐻𝑓 · 𝐺)), 𝑀, 𝑀) = 𝑀
142140, 141syl6eq 2811 . . . . 5 (𝜑 → if(𝑀 ≤ (deg‘(𝐻𝑓 · 𝐺)), (deg‘(𝐻𝑓 · 𝐺)), 𝑀) = 𝑀)
143104, 142breqtrd 4831 . . . 4 (𝜑 → (deg‘(𝐹𝑓 − (𝐻𝑓 · 𝐺))) ≤ 𝑀)
144 eqid 2761 . . . . . . . 8 (coeff‘(𝐻𝑓 · 𝐺)) = (coeff‘(𝐻𝑓 · 𝐺))
1459, 144coesub 24233 . . . . . . 7 ((𝐹 ∈ (Poly‘𝑆) ∧ (𝐻𝑓 · 𝐺) ∈ (Poly‘𝑆)) → (coeff‘(𝐹𝑓 − (𝐻𝑓 · 𝐺))) = (𝐴𝑓 − (coeff‘(𝐻𝑓 · 𝐺))))
1461, 101, 145syl2anc 696 . . . . . 6 (𝜑 → (coeff‘(𝐹𝑓 − (𝐻𝑓 · 𝐺))) = (𝐴𝑓 − (coeff‘(𝐻𝑓 · 𝐺))))
147146fveq1d 6356 . . . . 5 (𝜑 → ((coeff‘(𝐹𝑓 − (𝐻𝑓 · 𝐺)))‘𝑀) = ((𝐴𝑓 − (coeff‘(𝐻𝑓 · 𝐺)))‘𝑀))
1489coef3 24208 . . . . . . . 8 (𝐹 ∈ (Poly‘𝑆) → 𝐴:ℕ0⟶ℂ)
149 ffn 6207 . . . . . . . 8 (𝐴:ℕ0⟶ℂ → 𝐴 Fn ℕ0)
1501, 148, 1493syl 18 . . . . . . 7 (𝜑𝐴 Fn ℕ0)
151144coef3 24208 . . . . . . . 8 ((𝐻𝑓 · 𝐺) ∈ (Poly‘𝑆) → (coeff‘(𝐻𝑓 · 𝐺)):ℕ0⟶ℂ)
152 ffn 6207 . . . . . . . 8 ((coeff‘(𝐻𝑓 · 𝐺)):ℕ0⟶ℂ → (coeff‘(𝐻𝑓 · 𝐺)) Fn ℕ0)
153101, 151, 1523syl 18 . . . . . . 7 (𝜑 → (coeff‘(𝐻𝑓 · 𝐺)) Fn ℕ0)
154 nn0ex 11511 . . . . . . . 8 0 ∈ V
155154a1i 11 . . . . . . 7 (𝜑 → ℕ0 ∈ V)
156 inidm 3966 . . . . . . 7 (ℕ0 ∩ ℕ0) = ℕ0
157 eqidd 2762 . . . . . . 7 ((𝜑𝑀 ∈ ℕ0) → (𝐴𝑀) = (𝐴𝑀))
158 eqid 2761 . . . . . . . . . . 11 (coeff‘𝐻) = (coeff‘𝐻)
159158, 19, 127, 22coemulhi 24230 . . . . . . . . . 10 ((𝐻 ∈ (Poly‘𝑆) ∧ 𝐺 ∈ (Poly‘𝑆)) → ((coeff‘(𝐻𝑓 · 𝐺))‘((deg‘𝐻) + 𝑁)) = (((coeff‘𝐻)‘(deg‘𝐻)) · (𝐵𝑁)))
16050, 18, 159syl2anc 696 . . . . . . . . 9 (𝜑 → ((coeff‘(𝐻𝑓 · 𝐺))‘((deg‘𝐻) + 𝑁)) = (((coeff‘𝐻)‘(deg‘𝐻)) · (𝐵𝑁)))
161138fveq2d 6358 . . . . . . . . 9 (𝜑 → ((coeff‘(𝐻𝑓 · 𝐺))‘((deg‘𝐻) + 𝑁)) = ((coeff‘(𝐻𝑓 · 𝐺))‘𝑀))
162131fveq2d 6358 . . . . . . . . . . . 12 (𝜑 → ((coeff‘𝐻)‘(deg‘𝐻)) = ((coeff‘𝐻)‘𝐷))
163162, 116eqtrd 2795 . . . . . . . . . . 11 (𝜑 → ((coeff‘𝐻)‘(deg‘𝐻)) = ((𝐴𝑀) / (𝐵𝑁)))
164163oveq1d 6830 . . . . . . . . . 10 (𝜑 → (((coeff‘𝐻)‘(deg‘𝐻)) · (𝐵𝑁)) = (((𝐴𝑀) / (𝐵𝑁)) · (𝐵𝑁)))
16517, 27, 32divcan1d 11015 . . . . . . . . . 10 (𝜑 → (((𝐴𝑀) / (𝐵𝑁)) · (𝐵𝑁)) = (𝐴𝑀))
166164, 165eqtrd 2795 . . . . . . . . 9 (𝜑 → (((coeff‘𝐻)‘(deg‘𝐻)) · (𝐵𝑁)) = (𝐴𝑀))
167160, 161, 1663eqtr3d 2803 . . . . . . . 8 (𝜑 → ((coeff‘(𝐻𝑓 · 𝐺))‘𝑀) = (𝐴𝑀))
168167adantr 472 . . . . . . 7 ((𝜑𝑀 ∈ ℕ0) → ((coeff‘(𝐻𝑓 · 𝐺))‘𝑀) = (𝐴𝑀))
169150, 153, 155, 155, 156, 157, 168ofval 7073 . . . . . 6 ((𝜑𝑀 ∈ ℕ0) → ((𝐴𝑓 − (coeff‘(𝐻𝑓 · 𝐺)))‘𝑀) = ((𝐴𝑀) − (𝐴𝑀)))
17015, 169mpdan 705 . . . . 5 (𝜑 → ((𝐴𝑓 − (coeff‘(𝐻𝑓 · 𝐺)))‘𝑀) = ((𝐴𝑀) − (𝐴𝑀)))
17117subidd 10593 . . . . 5 (𝜑 → ((𝐴𝑀) − (𝐴𝑀)) = 0)
172147, 170, 1713eqtrd 2799 . . . 4 (𝜑 → ((coeff‘(𝐹𝑓 − (𝐻𝑓 · 𝐺)))‘𝑀) = 0)
1731, 101, 4, 5, 7plysub 24195 . . . . . . . . . 10 (𝜑 → (𝐹𝑓 − (𝐻𝑓 · 𝐺)) ∈ (Poly‘𝑆))
174 dgrcl 24209 . . . . . . . . . 10 ((𝐹𝑓 − (𝐻𝑓 · 𝐺)) ∈ (Poly‘𝑆) → (deg‘(𝐹𝑓 − (𝐻𝑓 · 𝐺))) ∈ ℕ0)
175173, 174syl 17 . . . . . . . . 9 (𝜑 → (deg‘(𝐹𝑓 − (𝐻𝑓 · 𝐺))) ∈ ℕ0)
176175nn0red 11565 . . . . . . . 8 (𝜑 → (deg‘(𝐹𝑓 − (𝐻𝑓 · 𝐺))) ∈ ℝ)
17715nn0red 11565 . . . . . . . 8 (𝜑𝑀 ∈ ℝ)
17825nn0red 11565 . . . . . . . 8 (𝜑𝑁 ∈ ℝ)
179176, 177, 178ltsub1d 10849 . . . . . . 7 (𝜑 → ((deg‘(𝐹𝑓 − (𝐻𝑓 · 𝐺))) < 𝑀 ↔ ((deg‘(𝐹𝑓 − (𝐻𝑓 · 𝐺))) − 𝑁) < (𝑀𝑁)))
180132breq2d 4817 . . . . . . 7 (𝜑 → (((deg‘(𝐹𝑓 − (𝐻𝑓 · 𝐺))) − 𝑁) < (𝑀𝑁) ↔ ((deg‘(𝐹𝑓 − (𝐻𝑓 · 𝐺))) − 𝑁) < 𝐷))
181179, 180bitrd 268 . . . . . 6 (𝜑 → ((deg‘(𝐹𝑓 − (𝐻𝑓 · 𝐺))) < 𝑀 ↔ ((deg‘(𝐹𝑓 − (𝐻𝑓 · 𝐺))) − 𝑁) < 𝐷))
182181orbi2d 740 . . . . 5 (𝜑 → (((𝐹𝑓 − (𝐻𝑓 · 𝐺)) = 0𝑝 ∨ (deg‘(𝐹𝑓 − (𝐻𝑓 · 𝐺))) < 𝑀) ↔ ((𝐹𝑓 − (𝐻𝑓 · 𝐺)) = 0𝑝 ∨ ((deg‘(𝐹𝑓 − (𝐻𝑓 · 𝐺))) − 𝑁) < 𝐷)))
183 eqid 2761 . . . . . . 7 (deg‘(𝐹𝑓 − (𝐻𝑓 · 𝐺))) = (deg‘(𝐹𝑓 − (𝐻𝑓 · 𝐺)))
184 eqid 2761 . . . . . . 7 (coeff‘(𝐹𝑓 − (𝐻𝑓 · 𝐺))) = (coeff‘(𝐹𝑓 − (𝐻𝑓 · 𝐺)))
185183, 184dgrlt 24242 . . . . . 6 (((𝐹𝑓 − (𝐻𝑓 · 𝐺)) ∈ (Poly‘𝑆) ∧ 𝑀 ∈ ℕ0) → (((𝐹𝑓 − (𝐻𝑓 · 𝐺)) = 0𝑝 ∨ (deg‘(𝐹𝑓 − (𝐻𝑓 · 𝐺))) < 𝑀) ↔ ((deg‘(𝐹𝑓 − (𝐻𝑓 · 𝐺))) ≤ 𝑀 ∧ ((coeff‘(𝐹𝑓 − (𝐻𝑓 · 𝐺)))‘𝑀) = 0)))
186173, 15, 185syl2anc 696 . . . . 5 (𝜑 → (((𝐹𝑓 − (𝐻𝑓 · 𝐺)) = 0𝑝 ∨ (deg‘(𝐹𝑓 − (𝐻𝑓 · 𝐺))) < 𝑀) ↔ ((deg‘(𝐹𝑓 − (𝐻𝑓 · 𝐺))) ≤ 𝑀 ∧ ((coeff‘(𝐹𝑓 − (𝐻𝑓 · 𝐺)))‘𝑀) = 0)))
187182, 186bitr3d 270 . . . 4 (𝜑 → (((𝐹𝑓 − (𝐻𝑓 · 𝐺)) = 0𝑝 ∨ ((deg‘(𝐹𝑓 − (𝐻𝑓 · 𝐺))) − 𝑁) < 𝐷) ↔ ((deg‘(𝐹𝑓 − (𝐻𝑓 · 𝐺))) ≤ 𝑀 ∧ ((coeff‘(𝐹𝑓 − (𝐻𝑓 · 𝐺)))‘𝑀) = 0)))
188143, 172, 187mpbir2and 995 . . 3 (𝜑 → ((𝐹𝑓 − (𝐻𝑓 · 𝐺)) = 0𝑝 ∨ ((deg‘(𝐹𝑓 − (𝐻𝑓 · 𝐺))) − 𝑁) < 𝐷))
189 eqeq1 2765 . . . . . 6 (𝑓 = (𝐹𝑓 − (𝐻𝑓 · 𝐺)) → (𝑓 = 0𝑝 ↔ (𝐹𝑓 − (𝐻𝑓 · 𝐺)) = 0𝑝))
190 fveq2 6354 . . . . . . . 8 (𝑓 = (𝐹𝑓 − (𝐻𝑓 · 𝐺)) → (deg‘𝑓) = (deg‘(𝐹𝑓 − (𝐻𝑓 · 𝐺))))
191190oveq1d 6830 . . . . . . 7 (𝑓 = (𝐹𝑓 − (𝐻𝑓 · 𝐺)) → ((deg‘𝑓) − 𝑁) = ((deg‘(𝐹𝑓 − (𝐻𝑓 · 𝐺))) − 𝑁))
192191breq1d 4815 . . . . . 6 (𝑓 = (𝐹𝑓 − (𝐻𝑓 · 𝐺)) → (((deg‘𝑓) − 𝑁) < 𝐷 ↔ ((deg‘(𝐹𝑓 − (𝐻𝑓 · 𝐺))) − 𝑁) < 𝐷))
193189, 192orbi12d 748 . . . . 5 (𝑓 = (𝐹𝑓 − (𝐻𝑓 · 𝐺)) → ((𝑓 = 0𝑝 ∨ ((deg‘𝑓) − 𝑁) < 𝐷) ↔ ((𝐹𝑓 − (𝐻𝑓 · 𝐺)) = 0𝑝 ∨ ((deg‘(𝐹𝑓 − (𝐻𝑓 · 𝐺))) − 𝑁) < 𝐷)))
194 plydiv.u . . . . . . . . 9 𝑈 = (𝑓𝑓 − (𝐺𝑓 · 𝑝))
195 oveq1 6822 . . . . . . . . 9 (𝑓 = (𝐹𝑓 − (𝐻𝑓 · 𝐺)) → (𝑓𝑓 − (𝐺𝑓 · 𝑝)) = ((𝐹𝑓 − (𝐻𝑓 · 𝐺)) ∘𝑓 − (𝐺𝑓 · 𝑝)))
196194, 195syl5eq 2807 . . . . . . . 8 (𝑓 = (𝐹𝑓 − (𝐻𝑓 · 𝐺)) → 𝑈 = ((𝐹𝑓 − (𝐻𝑓 · 𝐺)) ∘𝑓 − (𝐺𝑓 · 𝑝)))
197196eqeq1d 2763 . . . . . . 7 (𝑓 = (𝐹𝑓 − (𝐻𝑓 · 𝐺)) → (𝑈 = 0𝑝 ↔ ((𝐹𝑓 − (𝐻𝑓 · 𝐺)) ∘𝑓 − (𝐺𝑓 · 𝑝)) = 0𝑝))
198196fveq2d 6358 . . . . . . . 8 (𝑓 = (𝐹𝑓 − (𝐻𝑓 · 𝐺)) → (deg‘𝑈) = (deg‘((𝐹𝑓 − (𝐻𝑓 · 𝐺)) ∘𝑓 − (𝐺𝑓 · 𝑝))))
199198breq1d 4815 . . . . . . 7 (𝑓 = (𝐹𝑓 − (𝐻𝑓 · 𝐺)) → ((deg‘𝑈) < 𝑁 ↔ (deg‘((𝐹𝑓 − (𝐻𝑓 · 𝐺)) ∘𝑓 − (𝐺𝑓 · 𝑝))) < 𝑁))
200197, 199orbi12d 748 . . . . . 6 (𝑓 = (𝐹𝑓 − (𝐻𝑓 · 𝐺)) → ((𝑈 = 0𝑝 ∨ (deg‘𝑈) < 𝑁) ↔ (((𝐹𝑓 − (𝐻𝑓 · 𝐺)) ∘𝑓 − (𝐺𝑓 · 𝑝)) = 0𝑝 ∨ (deg‘((𝐹𝑓 − (𝐻𝑓 · 𝐺)) ∘𝑓 − (𝐺𝑓 · 𝑝))) < 𝑁)))
201200rexbidv 3191 . . . . 5 (𝑓 = (𝐹𝑓 − (𝐻𝑓 · 𝐺)) → (∃𝑝 ∈ (Poly‘𝑆)(𝑈 = 0𝑝 ∨ (deg‘𝑈) < 𝑁) ↔ ∃𝑝 ∈ (Poly‘𝑆)(((𝐹𝑓 − (𝐻𝑓 · 𝐺)) ∘𝑓 − (𝐺𝑓 · 𝑝)) = 0𝑝 ∨ (deg‘((𝐹𝑓 − (𝐻𝑓 · 𝐺)) ∘𝑓 − (𝐺𝑓 · 𝑝))) < 𝑁)))
202193, 201imbi12d 333 . . . 4 (𝑓 = (𝐹𝑓 − (𝐻𝑓 · 𝐺)) → (((𝑓 = 0𝑝 ∨ ((deg‘𝑓) − 𝑁) < 𝐷) → ∃𝑝 ∈ (Poly‘𝑆)(𝑈 = 0𝑝 ∨ (deg‘𝑈) < 𝑁)) ↔ (((𝐹𝑓 − (𝐻𝑓 · 𝐺)) = 0𝑝 ∨ ((deg‘(𝐹𝑓 − (𝐻𝑓 · 𝐺))) − 𝑁) < 𝐷) → ∃𝑝 ∈ (Poly‘𝑆)(((𝐹𝑓 − (𝐻𝑓 · 𝐺)) ∘𝑓 − (𝐺𝑓 · 𝑝)) = 0𝑝 ∨ (deg‘((𝐹𝑓 − (𝐻𝑓 · 𝐺)) ∘𝑓 − (𝐺𝑓 · 𝑝))) < 𝑁))))
203 plydiv.al . . . 4 (𝜑 → ∀𝑓 ∈ (Poly‘𝑆)((𝑓 = 0𝑝 ∨ ((deg‘𝑓) − 𝑁) < 𝐷) → ∃𝑝 ∈ (Poly‘𝑆)(𝑈 = 0𝑝 ∨ (deg‘𝑈) < 𝑁)))
204202, 203, 173rspcdva 3456 . . 3 (𝜑 → (((𝐹𝑓 − (𝐻𝑓 · 𝐺)) = 0𝑝 ∨ ((deg‘(𝐹𝑓 − (𝐻𝑓 · 𝐺))) − 𝑁) < 𝐷) → ∃𝑝 ∈ (Poly‘𝑆)(((𝐹𝑓 − (𝐻𝑓 · 𝐺)) ∘𝑓 − (𝐺𝑓 · 𝑝)) = 0𝑝 ∨ (deg‘((𝐹𝑓 − (𝐻𝑓 · 𝐺)) ∘𝑓 − (𝐺𝑓 · 𝑝))) < 𝑁)))
205188, 204mpd 15 . 2 (𝜑 → ∃𝑝 ∈ (Poly‘𝑆)(((𝐹𝑓 − (𝐻𝑓 · 𝐺)) ∘𝑓 − (𝐺𝑓 · 𝑝)) = 0𝑝 ∨ (deg‘((𝐹𝑓 − (𝐻𝑓 · 𝐺)) ∘𝑓 − (𝐺𝑓 · 𝑝))) < 𝑁))
206100, 205r19.29a 3217 1 (𝜑 → ∃𝑞 ∈ (Poly‘𝑆)(𝑅 = 0𝑝 ∨ (deg‘𝑅) < 𝑁))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 196  wo 382  wa 383  w3a 1072   = wceq 1632  wcel 2140  wne 2933  wral 3051  wrex 3052  Vcvv 3341  wss 3716  ifcif 4231  {csn 4322   class class class wbr 4805  cmpt 4882   × cxp 5265   Fn wfn 6045  wf 6046  cfv 6050  (class class class)co 6815  𝑓 cof 7062  cc 10147  0cc0 10149  1c1 10150   + caddc 10152   · cmul 10154   < clt 10287  cle 10288  cmin 10479  -cneg 10480   / cdiv 10897  0cn0 11505  cexp 13075  0𝑝c0p 23656  Polycply 24160  coeffccoe 24162  degcdgr 24163
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1871  ax-4 1886  ax-5 1989  ax-6 2055  ax-7 2091  ax-8 2142  ax-9 2149  ax-10 2169  ax-11 2184  ax-12 2197  ax-13 2392  ax-ext 2741  ax-rep 4924  ax-sep 4934  ax-nul 4942  ax-pow 4993  ax-pr 5056  ax-un 7116  ax-inf2 8714  ax-cnex 10205  ax-resscn 10206  ax-1cn 10207  ax-icn 10208  ax-addcl 10209  ax-addrcl 10210  ax-mulcl 10211  ax-mulrcl 10212  ax-mulcom 10213  ax-addass 10214  ax-mulass 10215  ax-distr 10216  ax-i2m1 10217  ax-1ne0 10218  ax-1rid 10219  ax-rnegex 10220  ax-rrecex 10221  ax-cnre 10222  ax-pre-lttri 10223  ax-pre-lttrn 10224  ax-pre-ltadd 10225  ax-pre-mulgt0 10226  ax-pre-sup 10227  ax-addf 10228
This theorem depends on definitions:  df-bi 197  df-or 384  df-an 385  df-3or 1073  df-3an 1074  df-tru 1635  df-fal 1638  df-ex 1854  df-nf 1859  df-sb 2048  df-eu 2612  df-mo 2613  df-clab 2748  df-cleq 2754  df-clel 2757  df-nfc 2892  df-ne 2934  df-nel 3037  df-ral 3056  df-rex 3057  df-reu 3058  df-rmo 3059  df-rab 3060  df-v 3343  df-sbc 3578  df-csb 3676  df-dif 3719  df-un 3721  df-in 3723  df-ss 3730  df-pss 3732  df-nul 4060  df-if 4232  df-pw 4305  df-sn 4323  df-pr 4325  df-tp 4327  df-op 4329  df-uni 4590  df-int 4629  df-iun 4675  df-br 4806  df-opab 4866  df-mpt 4883  df-tr 4906  df-id 5175  df-eprel 5180  df-po 5188  df-so 5189  df-fr 5226  df-se 5227  df-we 5228  df-xp 5273  df-rel 5274  df-cnv 5275  df-co 5276  df-dm 5277  df-rn 5278  df-res 5279  df-ima 5280  df-pred 5842  df-ord 5888  df-on 5889  df-lim 5890  df-suc 5891  df-iota 6013  df-fun 6052  df-fn 6053  df-f 6054  df-f1 6055  df-fo 6056  df-f1o 6057  df-fv 6058  df-isom 6059  df-riota 6776  df-ov 6818  df-oprab 6819  df-mpt2 6820  df-of 7064  df-om 7233  df-1st 7335  df-2nd 7336  df-wrecs 7578  df-recs 7639  df-rdg 7677  df-1o 7731  df-oadd 7735  df-er 7914  df-map 8028  df-pm 8029  df-en 8125  df-dom 8126  df-sdom 8127  df-fin 8128  df-sup 8516  df-inf 8517  df-oi 8583  df-card 8976  df-pnf 10289  df-mnf 10290  df-xr 10291  df-ltxr 10292  df-le 10293  df-sub 10481  df-neg 10482  df-div 10898  df-nn 11234  df-2 11292  df-3 11293  df-n0 11506  df-z 11591  df-uz 11901  df-rp 12047  df-fz 12541  df-fzo 12681  df-fl 12808  df-seq 13017  df-exp 13076  df-hash 13333  df-cj 14059  df-re 14060  df-im 14061  df-sqrt 14195  df-abs 14196  df-clim 14439  df-rlim 14440  df-sum 14637  df-0p 23657  df-ply 24164  df-coe 24166  df-dgr 24167
This theorem is referenced by:  plydivex  24272
  Copyright terms: Public domain W3C validator