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

Theorem plydivlem4 23855
 Description: Lemma for plydivex 23856. 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 23754 . . . . . . . 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 23852 . . . . . . . . . . . 12 (𝜑 → 0 ∈ 𝑆)
9 plydiv.a . . . . . . . . . . . . 13 𝐴 = (coeff‘𝐹)
109coef2 23791 . . . . . . . . . . . 12 ((𝐹 ∈ (Poly‘𝑆) ∧ 0 ∈ 𝑆) → 𝐴:ℕ0𝑆)
111, 8, 10syl2anc 691 . . . . . . . . . . 11 (𝜑𝐴:ℕ0𝑆)
12 plydiv.m . . . . . . . . . . . 12 𝑀 = (deg‘𝐹)
13 dgrcl 23793 . . . . . . . . . . . . 13 (𝐹 ∈ (Poly‘𝑆) → (deg‘𝐹) ∈ ℕ0)
141, 13syl 17 . . . . . . . . . . . 12 (𝜑 → (deg‘𝐹) ∈ ℕ0)
1512, 14syl5eqel 2692 . . . . . . . . . . 11 (𝜑𝑀 ∈ ℕ0)
1611, 15ffvelrnd 6268 . . . . . . . . . 10 (𝜑 → (𝐴𝑀) ∈ 𝑆)
173, 16sseldd 3569 . . . . . . . . 9 (𝜑 → (𝐴𝑀) ∈ ℂ)
18 plydiv.g . . . . . . . . . . . 12 (𝜑𝐺 ∈ (Poly‘𝑆))
19 plydiv.b . . . . . . . . . . . . 13 𝐵 = (coeff‘𝐺)
2019coef2 23791 . . . . . . . . . . . 12 ((𝐺 ∈ (Poly‘𝑆) ∧ 0 ∈ 𝑆) → 𝐵:ℕ0𝑆)
2118, 8, 20syl2anc 691 . . . . . . . . . . 11 (𝜑𝐵:ℕ0𝑆)
22 plydiv.n . . . . . . . . . . . 12 𝑁 = (deg‘𝐺)
23 dgrcl 23793 . . . . . . . . . . . . 13 (𝐺 ∈ (Poly‘𝑆) → (deg‘𝐺) ∈ ℕ0)
2418, 23syl 17 . . . . . . . . . . . 12 (𝜑 → (deg‘𝐺) ∈ ℕ0)
2522, 24syl5eqel 2692 . . . . . . . . . . 11 (𝜑𝑁 ∈ ℕ0)
2621, 25ffvelrnd 6268 . . . . . . . . . 10 (𝜑 → (𝐵𝑁) ∈ 𝑆)
273, 26sseldd 3569 . . . . . . . . 9 (𝜑 → (𝐵𝑁) ∈ ℂ)
28 plydiv.z . . . . . . . . . 10 (𝜑𝐺 ≠ 0𝑝)
2922, 19dgreq0 23825 . . . . . . . . . . . 12 (𝐺 ∈ (Poly‘𝑆) → (𝐺 = 0𝑝 ↔ (𝐵𝑁) = 0))
3018, 29syl 17 . . . . . . . . . . 11 (𝜑 → (𝐺 = 0𝑝 ↔ (𝐵𝑁) = 0))
3130necon3bid 2826 . . . . . . . . . 10 (𝜑 → (𝐺 ≠ 0𝑝 ↔ (𝐵𝑁) ≠ 0))
3228, 31mpbid 221 . . . . . . . . 9 (𝜑 → (𝐵𝑁) ≠ 0)
3317, 27, 32divrecd 10683 . . . . . . . 8 (𝜑 → ((𝐴𝑀) / (𝐵𝑁)) = ((𝐴𝑀) · (1 / (𝐵𝑁))))
34 fvex 6113 . . . . . . . . . . . 12 (𝐵𝑁) ∈ V
35 eleq1 2676 . . . . . . . . . . . . . . 15 (𝑥 = (𝐵𝑁) → (𝑥𝑆 ↔ (𝐵𝑁) ∈ 𝑆))
36 neeq1 2844 . . . . . . . . . . . . . . 15 (𝑥 = (𝐵𝑁) → (𝑥 ≠ 0 ↔ (𝐵𝑁) ≠ 0))
3735, 36anbi12d 743 . . . . . . . . . . . . . 14 (𝑥 = (𝐵𝑁) → ((𝑥𝑆𝑥 ≠ 0) ↔ ((𝐵𝑁) ∈ 𝑆 ∧ (𝐵𝑁) ≠ 0)))
3837anbi2d 736 . . . . . . . . . . . . 13 (𝑥 = (𝐵𝑁) → ((𝜑 ∧ (𝑥𝑆𝑥 ≠ 0)) ↔ (𝜑 ∧ ((𝐵𝑁) ∈ 𝑆 ∧ (𝐵𝑁) ≠ 0))))
39 oveq2 6557 . . . . . . . . . . . . . 14 (𝑥 = (𝐵𝑁) → (1 / 𝑥) = (1 / (𝐵𝑁)))
4039eleq1d 2672 . . . . . . . . . . . . 13 (𝑥 = (𝐵𝑁) → ((1 / 𝑥) ∈ 𝑆 ↔ (1 / (𝐵𝑁)) ∈ 𝑆))
4138, 40imbi12d 333 . . . . . . . . . . . 12 (𝑥 = (𝐵𝑁) → (((𝜑 ∧ (𝑥𝑆𝑥 ≠ 0)) → (1 / 𝑥) ∈ 𝑆) ↔ ((𝜑 ∧ ((𝐵𝑁) ∈ 𝑆 ∧ (𝐵𝑁) ≠ 0)) → (1 / (𝐵𝑁)) ∈ 𝑆)))
4234, 41, 6vtocl 3232 . . . . . . . . . . 11 ((𝜑 ∧ ((𝐵𝑁) ∈ 𝑆 ∧ (𝐵𝑁) ≠ 0)) → (1 / (𝐵𝑁)) ∈ 𝑆)
4342ex 449 . . . . . . . . . 10 (𝜑 → (((𝐵𝑁) ∈ 𝑆 ∧ (𝐵𝑁) ≠ 0) → (1 / (𝐵𝑁)) ∈ 𝑆))
4426, 32, 43mp2and 711 . . . . . . . . 9 (𝜑 → (1 / (𝐵𝑁)) ∈ 𝑆)
455, 16, 44caovcld 6725 . . . . . . . 8 (𝜑 → ((𝐴𝑀) · (1 / (𝐵𝑁))) ∈ 𝑆)
4633, 45eqeltrd 2688 . . . . . . 7 (𝜑 → ((𝐴𝑀) / (𝐵𝑁)) ∈ 𝑆)
47 plydiv.d . . . . . . 7 (𝜑𝐷 ∈ ℕ0)
48 plydiv.h . . . . . . . 8 𝐻 = (𝑧 ∈ ℂ ↦ (((𝐴𝑀) / (𝐵𝑁)) · (𝑧𝐷)))
4948ply1term 23764 . . . . . . 7 ((𝑆 ⊆ ℂ ∧ ((𝐴𝑀) / (𝐵𝑁)) ∈ 𝑆𝐷 ∈ ℕ0) → 𝐻 ∈ (Poly‘𝑆))
503, 46, 47, 49syl3anc 1318 . . . . . 6 (𝜑𝐻 ∈ (Poly‘𝑆))
5150adantr 480 . . . . 5 ((𝜑𝑝 ∈ (Poly‘𝑆)) → 𝐻 ∈ (Poly‘𝑆))
52 simpr 476 . . . . 5 ((𝜑𝑝 ∈ (Poly‘𝑆)) → 𝑝 ∈ (Poly‘𝑆))
534adantlr 747 . . . . 5 (((𝜑𝑝 ∈ (Poly‘𝑆)) ∧ (𝑥𝑆𝑦𝑆)) → (𝑥 + 𝑦) ∈ 𝑆)
5451, 52, 53plyadd 23777 . . . 4 ((𝜑𝑝 ∈ (Poly‘𝑆)) → (𝐻𝑓 + 𝑝) ∈ (Poly‘𝑆))
5554adantr 480 . . 3 (((𝜑𝑝 ∈ (Poly‘𝑆)) ∧ (((𝐹𝑓 − (𝐻𝑓 · 𝐺)) ∘𝑓 − (𝐺𝑓 · 𝑝)) = 0𝑝 ∨ (deg‘((𝐹𝑓 − (𝐻𝑓 · 𝐺)) ∘𝑓 − (𝐺𝑓 · 𝑝))) < 𝑁)) → (𝐻𝑓 + 𝑝) ∈ (Poly‘𝑆))
56 cnex 9896 . . . . . . . . 9 ℂ ∈ V
5756a1i 11 . . . . . . . 8 ((𝜑𝑝 ∈ (Poly‘𝑆)) → ℂ ∈ V)
581adantr 480 . . . . . . . . 9 ((𝜑𝑝 ∈ (Poly‘𝑆)) → 𝐹 ∈ (Poly‘𝑆))
59 plyf 23758 . . . . . . . . 9 (𝐹 ∈ (Poly‘𝑆) → 𝐹:ℂ⟶ℂ)
6058, 59syl 17 . . . . . . . 8 ((𝜑𝑝 ∈ (Poly‘𝑆)) → 𝐹:ℂ⟶ℂ)
61 mulcl 9899 . . . . . . . . . 10 ((𝑥 ∈ ℂ ∧ 𝑦 ∈ ℂ) → (𝑥 · 𝑦) ∈ ℂ)
6261adantl 481 . . . . . . . . 9 (((𝜑𝑝 ∈ (Poly‘𝑆)) ∧ (𝑥 ∈ ℂ ∧ 𝑦 ∈ ℂ)) → (𝑥 · 𝑦) ∈ ℂ)
63 plyf 23758 . . . . . . . . . 10 (𝐻 ∈ (Poly‘𝑆) → 𝐻:ℂ⟶ℂ)
6451, 63syl 17 . . . . . . . . 9 ((𝜑𝑝 ∈ (Poly‘𝑆)) → 𝐻:ℂ⟶ℂ)
6518adantr 480 . . . . . . . . . 10 ((𝜑𝑝 ∈ (Poly‘𝑆)) → 𝐺 ∈ (Poly‘𝑆))
66 plyf 23758 . . . . . . . . . 10 (𝐺 ∈ (Poly‘𝑆) → 𝐺:ℂ⟶ℂ)
6765, 66syl 17 . . . . . . . . 9 ((𝜑𝑝 ∈ (Poly‘𝑆)) → 𝐺:ℂ⟶ℂ)
68 inidm 3784 . . . . . . . . 9 (ℂ ∩ ℂ) = ℂ
6962, 64, 67, 57, 57, 68off 6810 . . . . . . . 8 ((𝜑𝑝 ∈ (Poly‘𝑆)) → (𝐻𝑓 · 𝐺):ℂ⟶ℂ)
70 plyf 23758 . . . . . . . . . 10 (𝑝 ∈ (Poly‘𝑆) → 𝑝:ℂ⟶ℂ)
7170adantl 481 . . . . . . . . 9 ((𝜑𝑝 ∈ (Poly‘𝑆)) → 𝑝:ℂ⟶ℂ)
7262, 67, 71, 57, 57, 68off 6810 . . . . . . . 8 ((𝜑𝑝 ∈ (Poly‘𝑆)) → (𝐺𝑓 · 𝑝):ℂ⟶ℂ)
73 subsub4 10193 . . . . . . . . 9 ((𝑥 ∈ ℂ ∧ 𝑦 ∈ ℂ ∧ 𝑧 ∈ ℂ) → ((𝑥𝑦) − 𝑧) = (𝑥 − (𝑦 + 𝑧)))
7473adantl 481 . . . . . . . 8 (((𝜑𝑝 ∈ (Poly‘𝑆)) ∧ (𝑥 ∈ ℂ ∧ 𝑦 ∈ ℂ ∧ 𝑧 ∈ ℂ)) → ((𝑥𝑦) − 𝑧) = (𝑥 − (𝑦 + 𝑧)))
7557, 60, 69, 72, 74caofass 6829 . . . . . . 7 ((𝜑𝑝 ∈ (Poly‘𝑆)) → ((𝐹𝑓 − (𝐻𝑓 · 𝐺)) ∘𝑓 − (𝐺𝑓 · 𝑝)) = (𝐹𝑓 − ((𝐻𝑓 · 𝐺) ∘𝑓 + (𝐺𝑓 · 𝑝))))
76 mulcom 9901 . . . . . . . . . . . 12 ((𝑥 ∈ ℂ ∧ 𝑦 ∈ ℂ) → (𝑥 · 𝑦) = (𝑦 · 𝑥))
7776adantl 481 . . . . . . . . . . 11 (((𝜑𝑝 ∈ (Poly‘𝑆)) ∧ (𝑥 ∈ ℂ ∧ 𝑦 ∈ ℂ)) → (𝑥 · 𝑦) = (𝑦 · 𝑥))
7857, 64, 67, 77caofcom 6827 . . . . . . . . . 10 ((𝜑𝑝 ∈ (Poly‘𝑆)) → (𝐻𝑓 · 𝐺) = (𝐺𝑓 · 𝐻))
7978oveq1d 6564 . . . . . . . . 9 ((𝜑𝑝 ∈ (Poly‘𝑆)) → ((𝐻𝑓 · 𝐺) ∘𝑓 + (𝐺𝑓 · 𝑝)) = ((𝐺𝑓 · 𝐻) ∘𝑓 + (𝐺𝑓 · 𝑝)))
80 adddi 9904 . . . . . . . . . . 11 ((𝑥 ∈ ℂ ∧ 𝑦 ∈ ℂ ∧ 𝑧 ∈ ℂ) → (𝑥 · (𝑦 + 𝑧)) = ((𝑥 · 𝑦) + (𝑥 · 𝑧)))
8180adantl 481 . . . . . . . . . 10 (((𝜑𝑝 ∈ (Poly‘𝑆)) ∧ (𝑥 ∈ ℂ ∧ 𝑦 ∈ ℂ ∧ 𝑧 ∈ ℂ)) → (𝑥 · (𝑦 + 𝑧)) = ((𝑥 · 𝑦) + (𝑥 · 𝑧)))
8257, 67, 64, 71, 81caofdi 6831 . . . . . . . . 9 ((𝜑𝑝 ∈ (Poly‘𝑆)) → (𝐺𝑓 · (𝐻𝑓 + 𝑝)) = ((𝐺𝑓 · 𝐻) ∘𝑓 + (𝐺𝑓 · 𝑝)))
8379, 82eqtr4d 2647 . . . . . . . 8 ((𝜑𝑝 ∈ (Poly‘𝑆)) → ((𝐻𝑓 · 𝐺) ∘𝑓 + (𝐺𝑓 · 𝑝)) = (𝐺𝑓 · (𝐻𝑓 + 𝑝)))
8483oveq2d 6565 . . . . . . 7 ((𝜑𝑝 ∈ (Poly‘𝑆)) → (𝐹𝑓 − ((𝐻𝑓 · 𝐺) ∘𝑓 + (𝐺𝑓 · 𝑝))) = (𝐹𝑓 − (𝐺𝑓 · (𝐻𝑓 + 𝑝))))
8575, 84eqtrd 2644 . . . . . 6 ((𝜑𝑝 ∈ (Poly‘𝑆)) → ((𝐹𝑓 − (𝐻𝑓 · 𝐺)) ∘𝑓 − (𝐺𝑓 · 𝑝)) = (𝐹𝑓 − (𝐺𝑓 · (𝐻𝑓 + 𝑝))))
8685eqeq1d 2612 . . . . 5 ((𝜑𝑝 ∈ (Poly‘𝑆)) → (((𝐹𝑓 − (𝐻𝑓 · 𝐺)) ∘𝑓 − (𝐺𝑓 · 𝑝)) = 0𝑝 ↔ (𝐹𝑓 − (𝐺𝑓 · (𝐻𝑓 + 𝑝))) = 0𝑝))
8785fveq2d 6107 . . . . . 6 ((𝜑𝑝 ∈ (Poly‘𝑆)) → (deg‘((𝐹𝑓 − (𝐻𝑓 · 𝐺)) ∘𝑓 − (𝐺𝑓 · 𝑝))) = (deg‘(𝐹𝑓 − (𝐺𝑓 · (𝐻𝑓 + 𝑝)))))
8887breq1d 4593 . . . . 5 ((𝜑𝑝 ∈ (Poly‘𝑆)) → ((deg‘((𝐹𝑓 − (𝐻𝑓 · 𝐺)) ∘𝑓 − (𝐺𝑓 · 𝑝))) < 𝑁 ↔ (deg‘(𝐹𝑓 − (𝐺𝑓 · (𝐻𝑓 + 𝑝)))) < 𝑁))
8986, 88orbi12d 742 . . . 4 ((𝜑𝑝 ∈ (Poly‘𝑆)) → ((((𝐹𝑓 − (𝐻𝑓 · 𝐺)) ∘𝑓 − (𝐺𝑓 · 𝑝)) = 0𝑝 ∨ (deg‘((𝐹𝑓 − (𝐻𝑓 · 𝐺)) ∘𝑓 − (𝐺𝑓 · 𝑝))) < 𝑁) ↔ ((𝐹𝑓 − (𝐺𝑓 · (𝐻𝑓 + 𝑝))) = 0𝑝 ∨ (deg‘(𝐹𝑓 − (𝐺𝑓 · (𝐻𝑓 + 𝑝)))) < 𝑁)))
9089biimpa 500 . . 3 (((𝜑𝑝 ∈ (Poly‘𝑆)) ∧ (((𝐹𝑓 − (𝐻𝑓 · 𝐺)) ∘𝑓 − (𝐺𝑓 · 𝑝)) = 0𝑝 ∨ (deg‘((𝐹𝑓 − (𝐻𝑓 · 𝐺)) ∘𝑓 − (𝐺𝑓 · 𝑝))) < 𝑁)) → ((𝐹𝑓 − (𝐺𝑓 · (𝐻𝑓 + 𝑝))) = 0𝑝 ∨ (deg‘(𝐹𝑓 − (𝐺𝑓 · (𝐻𝑓 + 𝑝)))) < 𝑁))
91 plydiv.r . . . . . . 7 𝑅 = (𝐹𝑓 − (𝐺𝑓 · 𝑞))
92 oveq2 6557 . . . . . . . 8 (𝑞 = (𝐻𝑓 + 𝑝) → (𝐺𝑓 · 𝑞) = (𝐺𝑓 · (𝐻𝑓 + 𝑝)))
9392oveq2d 6565 . . . . . . 7 (𝑞 = (𝐻𝑓 + 𝑝) → (𝐹𝑓 − (𝐺𝑓 · 𝑞)) = (𝐹𝑓 − (𝐺𝑓 · (𝐻𝑓 + 𝑝))))
9491, 93syl5eq 2656 . . . . . 6 (𝑞 = (𝐻𝑓 + 𝑝) → 𝑅 = (𝐹𝑓 − (𝐺𝑓 · (𝐻𝑓 + 𝑝))))
9594eqeq1d 2612 . . . . 5 (𝑞 = (𝐻𝑓 + 𝑝) → (𝑅 = 0𝑝 ↔ (𝐹𝑓 − (𝐺𝑓 · (𝐻𝑓 + 𝑝))) = 0𝑝))
9694fveq2d 6107 . . . . . 6 (𝑞 = (𝐻𝑓 + 𝑝) → (deg‘𝑅) = (deg‘(𝐹𝑓 − (𝐺𝑓 · (𝐻𝑓 + 𝑝)))))
9796breq1d 4593 . . . . 5 (𝑞 = (𝐻𝑓 + 𝑝) → ((deg‘𝑅) < 𝑁 ↔ (deg‘(𝐹𝑓 − (𝐺𝑓 · (𝐻𝑓 + 𝑝)))) < 𝑁))
9895, 97orbi12d 742 . . . 4 (𝑞 = (𝐻𝑓 + 𝑝) → ((𝑅 = 0𝑝 ∨ (deg‘𝑅) < 𝑁) ↔ ((𝐹𝑓 − (𝐺𝑓 · (𝐻𝑓 + 𝑝))) = 0𝑝 ∨ (deg‘(𝐹𝑓 − (𝐺𝑓 · (𝐻𝑓 + 𝑝)))) < 𝑁)))
9998rspcev 3282 . . 3 (((𝐻𝑓 + 𝑝) ∈ (Poly‘𝑆) ∧ ((𝐹𝑓 − (𝐺𝑓 · (𝐻𝑓 + 𝑝))) = 0𝑝 ∨ (deg‘(𝐹𝑓 − (𝐺𝑓 · (𝐻𝑓 + 𝑝)))) < 𝑁)) → ∃𝑞 ∈ (Poly‘𝑆)(𝑅 = 0𝑝 ∨ (deg‘𝑅) < 𝑁))
10055, 90, 99syl2anc 691 . 2 (((𝜑𝑝 ∈ (Poly‘𝑆)) ∧ (((𝐹𝑓 − (𝐻𝑓 · 𝐺)) ∘𝑓 − (𝐺𝑓 · 𝑝)) = 0𝑝 ∨ (deg‘((𝐹𝑓 − (𝐻𝑓 · 𝐺)) ∘𝑓 − (𝐺𝑓 · 𝑝))) < 𝑁)) → ∃𝑞 ∈ (Poly‘𝑆)(𝑅 = 0𝑝 ∨ (deg‘𝑅) < 𝑁))
10150, 18, 4, 5plymul 23778 . . . 4 (𝜑 → (𝐻𝑓 · 𝐺) ∈ (Poly‘𝑆))
1021, 101, 4, 5, 7plysub 23779 . . 3 (𝜑 → (𝐹𝑓 − (𝐻𝑓 · 𝐺)) ∈ (Poly‘𝑆))
103 plydiv.al . . 3 (𝜑 → ∀𝑓 ∈ (Poly‘𝑆)((𝑓 = 0𝑝 ∨ ((deg‘𝑓) − 𝑁) < 𝐷) → ∃𝑝 ∈ (Poly‘𝑆)(𝑈 = 0𝑝 ∨ (deg‘𝑈) < 𝑁)))
104 eqid 2610 . . . . . . 7 (deg‘(𝐻𝑓 · 𝐺)) = (deg‘(𝐻𝑓 · 𝐺))
10512, 104dgrsub 23832 . . . . . 6 ((𝐹 ∈ (Poly‘𝑆) ∧ (𝐻𝑓 · 𝐺) ∈ (Poly‘𝑆)) → (deg‘(𝐹𝑓 − (𝐻𝑓 · 𝐺))) ≤ if(𝑀 ≤ (deg‘(𝐻𝑓 · 𝐺)), (deg‘(𝐻𝑓 · 𝐺)), 𝑀))
1061, 101, 105syl2anc 691 . . . . 5 (𝜑 → (deg‘(𝐹𝑓 − (𝐻𝑓 · 𝐺))) ≤ if(𝑀 ≤ (deg‘(𝐻𝑓 · 𝐺)), (deg‘(𝐻𝑓 · 𝐺)), 𝑀))
107 plydiv.fz . . . . . . . . . . . . 13 (𝜑𝐹 ≠ 0𝑝)
10812, 9dgreq0 23825 . . . . . . . . . . . . . . 15 (𝐹 ∈ (Poly‘𝑆) → (𝐹 = 0𝑝 ↔ (𝐴𝑀) = 0))
1091, 108syl 17 . . . . . . . . . . . . . 14 (𝜑 → (𝐹 = 0𝑝 ↔ (𝐴𝑀) = 0))
110109necon3bid 2826 . . . . . . . . . . . . 13 (𝜑 → (𝐹 ≠ 0𝑝 ↔ (𝐴𝑀) ≠ 0))
111107, 110mpbid 221 . . . . . . . . . . . 12 (𝜑 → (𝐴𝑀) ≠ 0)
11217, 27, 111, 32divne0d 10696 . . . . . . . . . . 11 (𝜑 → ((𝐴𝑀) / (𝐵𝑁)) ≠ 0)
1133, 46sseldd 3569 . . . . . . . . . . . . 13 (𝜑 → ((𝐴𝑀) / (𝐵𝑁)) ∈ ℂ)
11448coe1term 23819 . . . . . . . . . . . . 13 ((((𝐴𝑀) / (𝐵𝑁)) ∈ ℂ ∧ 𝐷 ∈ ℕ0𝐷 ∈ ℕ0) → ((coeff‘𝐻)‘𝐷) = if(𝐷 = 𝐷, ((𝐴𝑀) / (𝐵𝑁)), 0))
115113, 47, 47, 114syl3anc 1318 . . . . . . . . . . . 12 (𝜑 → ((coeff‘𝐻)‘𝐷) = if(𝐷 = 𝐷, ((𝐴𝑀) / (𝐵𝑁)), 0))
116 eqid 2610 . . . . . . . . . . . . 13 𝐷 = 𝐷
117116iftruei 4043 . . . . . . . . . . . 12 if(𝐷 = 𝐷, ((𝐴𝑀) / (𝐵𝑁)), 0) = ((𝐴𝑀) / (𝐵𝑁))
118115, 117syl6eq 2660 . . . . . . . . . . 11 (𝜑 → ((coeff‘𝐻)‘𝐷) = ((𝐴𝑀) / (𝐵𝑁)))
119 c0ex 9913 . . . . . . . . . . . . 13 0 ∈ V
120119fvconst2 6374 . . . . . . . . . . . 12 (𝐷 ∈ ℕ0 → ((ℕ0 × {0})‘𝐷) = 0)
12147, 120syl 17 . . . . . . . . . . 11 (𝜑 → ((ℕ0 × {0})‘𝐷) = 0)
122112, 118, 1213netr4d 2859 . . . . . . . . . 10 (𝜑 → ((coeff‘𝐻)‘𝐷) ≠ ((ℕ0 × {0})‘𝐷))
123 fveq2 6103 . . . . . . . . . . . . 13 (𝐻 = 0𝑝 → (coeff‘𝐻) = (coeff‘0𝑝))
124 coe0 23816 . . . . . . . . . . . . 13 (coeff‘0𝑝) = (ℕ0 × {0})
125123, 124syl6eq 2660 . . . . . . . . . . . 12 (𝐻 = 0𝑝 → (coeff‘𝐻) = (ℕ0 × {0}))
126125fveq1d 6105 . . . . . . . . . . 11 (𝐻 = 0𝑝 → ((coeff‘𝐻)‘𝐷) = ((ℕ0 × {0})‘𝐷))
127126necon3i 2814 . . . . . . . . . 10 (((coeff‘𝐻)‘𝐷) ≠ ((ℕ0 × {0})‘𝐷) → 𝐻 ≠ 0𝑝)
128122, 127syl 17 . . . . . . . . 9 (𝜑𝐻 ≠ 0𝑝)
129 eqid 2610 . . . . . . . . . 10 (deg‘𝐻) = (deg‘𝐻)
130129, 22dgrmul 23830 . . . . . . . . 9 (((𝐻 ∈ (Poly‘𝑆) ∧ 𝐻 ≠ 0𝑝) ∧ (𝐺 ∈ (Poly‘𝑆) ∧ 𝐺 ≠ 0𝑝)) → (deg‘(𝐻𝑓 · 𝐺)) = ((deg‘𝐻) + 𝑁))
13150, 128, 18, 28, 130syl22anc 1319 . . . . . . . 8 (𝜑 → (deg‘(𝐻𝑓 · 𝐺)) = ((deg‘𝐻) + 𝑁))
13248dgr1term 23820 . . . . . . . . . . . 12 ((((𝐴𝑀) / (𝐵𝑁)) ∈ ℂ ∧ ((𝐴𝑀) / (𝐵𝑁)) ≠ 0 ∧ 𝐷 ∈ ℕ0) → (deg‘𝐻) = 𝐷)
133113, 112, 47, 132syl3anc 1318 . . . . . . . . . . 11 (𝜑 → (deg‘𝐻) = 𝐷)
134 plydiv.e . . . . . . . . . . 11 (𝜑 → (𝑀𝑁) = 𝐷)
135133, 134eqtr4d 2647 . . . . . . . . . 10 (𝜑 → (deg‘𝐻) = (𝑀𝑁))
136135oveq1d 6564 . . . . . . . . 9 (𝜑 → ((deg‘𝐻) + 𝑁) = ((𝑀𝑁) + 𝑁))
13715nn0cnd 11230 . . . . . . . . . 10 (𝜑𝑀 ∈ ℂ)
13825nn0cnd 11230 . . . . . . . . . 10 (𝜑𝑁 ∈ ℂ)
139137, 138npcand 10275 . . . . . . . . 9 (𝜑 → ((𝑀𝑁) + 𝑁) = 𝑀)
140136, 139eqtrd 2644 . . . . . . . 8 (𝜑 → ((deg‘𝐻) + 𝑁) = 𝑀)
141131, 140eqtrd 2644 . . . . . . 7 (𝜑 → (deg‘(𝐻𝑓 · 𝐺)) = 𝑀)
142141ifeq1d 4054 . . . . . 6 (𝜑 → if(𝑀 ≤ (deg‘(𝐻𝑓 · 𝐺)), (deg‘(𝐻𝑓 · 𝐺)), 𝑀) = if(𝑀 ≤ (deg‘(𝐻𝑓 · 𝐺)), 𝑀, 𝑀))
143 ifid 4075 . . . . . 6 if(𝑀 ≤ (deg‘(𝐻𝑓 · 𝐺)), 𝑀, 𝑀) = 𝑀
144142, 143syl6eq 2660 . . . . 5 (𝜑 → if(𝑀 ≤ (deg‘(𝐻𝑓 · 𝐺)), (deg‘(𝐻𝑓 · 𝐺)), 𝑀) = 𝑀)
145106, 144breqtrd 4609 . . . 4 (𝜑 → (deg‘(𝐹𝑓 − (𝐻𝑓 · 𝐺))) ≤ 𝑀)
146 eqid 2610 . . . . . . . 8 (coeff‘(𝐻𝑓 · 𝐺)) = (coeff‘(𝐻𝑓 · 𝐺))
1479, 146coesub 23817 . . . . . . 7 ((𝐹 ∈ (Poly‘𝑆) ∧ (𝐻𝑓 · 𝐺) ∈ (Poly‘𝑆)) → (coeff‘(𝐹𝑓 − (𝐻𝑓 · 𝐺))) = (𝐴𝑓 − (coeff‘(𝐻𝑓 · 𝐺))))
1481, 101, 147syl2anc 691 . . . . . 6 (𝜑 → (coeff‘(𝐹𝑓 − (𝐻𝑓 · 𝐺))) = (𝐴𝑓 − (coeff‘(𝐻𝑓 · 𝐺))))
149148fveq1d 6105 . . . . 5 (𝜑 → ((coeff‘(𝐹𝑓 − (𝐻𝑓 · 𝐺)))‘𝑀) = ((𝐴𝑓 − (coeff‘(𝐻𝑓 · 𝐺)))‘𝑀))
1509coef3 23792 . . . . . . . 8 (𝐹 ∈ (Poly‘𝑆) → 𝐴:ℕ0⟶ℂ)
151 ffn 5958 . . . . . . . 8 (𝐴:ℕ0⟶ℂ → 𝐴 Fn ℕ0)
1521, 150, 1513syl 18 . . . . . . 7 (𝜑𝐴 Fn ℕ0)
153146coef3 23792 . . . . . . . 8 ((𝐻𝑓 · 𝐺) ∈ (Poly‘𝑆) → (coeff‘(𝐻𝑓 · 𝐺)):ℕ0⟶ℂ)
154 ffn 5958 . . . . . . . 8 ((coeff‘(𝐻𝑓 · 𝐺)):ℕ0⟶ℂ → (coeff‘(𝐻𝑓 · 𝐺)) Fn ℕ0)
155101, 153, 1543syl 18 . . . . . . 7 (𝜑 → (coeff‘(𝐻𝑓 · 𝐺)) Fn ℕ0)
156 nn0ex 11175 . . . . . . . 8 0 ∈ V
157156a1i 11 . . . . . . 7 (𝜑 → ℕ0 ∈ V)
158 inidm 3784 . . . . . . 7 (ℕ0 ∩ ℕ0) = ℕ0
159 eqidd 2611 . . . . . . 7 ((𝜑𝑀 ∈ ℕ0) → (𝐴𝑀) = (𝐴𝑀))
160 eqid 2610 . . . . . . . . . . 11 (coeff‘𝐻) = (coeff‘𝐻)
161160, 19, 129, 22coemulhi 23814 . . . . . . . . . 10 ((𝐻 ∈ (Poly‘𝑆) ∧ 𝐺 ∈ (Poly‘𝑆)) → ((coeff‘(𝐻𝑓 · 𝐺))‘((deg‘𝐻) + 𝑁)) = (((coeff‘𝐻)‘(deg‘𝐻)) · (𝐵𝑁)))
16250, 18, 161syl2anc 691 . . . . . . . . 9 (𝜑 → ((coeff‘(𝐻𝑓 · 𝐺))‘((deg‘𝐻) + 𝑁)) = (((coeff‘𝐻)‘(deg‘𝐻)) · (𝐵𝑁)))
163140fveq2d 6107 . . . . . . . . 9 (𝜑 → ((coeff‘(𝐻𝑓 · 𝐺))‘((deg‘𝐻) + 𝑁)) = ((coeff‘(𝐻𝑓 · 𝐺))‘𝑀))
164133fveq2d 6107 . . . . . . . . . . . 12 (𝜑 → ((coeff‘𝐻)‘(deg‘𝐻)) = ((coeff‘𝐻)‘𝐷))
165164, 118eqtrd 2644 . . . . . . . . . . 11 (𝜑 → ((coeff‘𝐻)‘(deg‘𝐻)) = ((𝐴𝑀) / (𝐵𝑁)))
166165oveq1d 6564 . . . . . . . . . 10 (𝜑 → (((coeff‘𝐻)‘(deg‘𝐻)) · (𝐵𝑁)) = (((𝐴𝑀) / (𝐵𝑁)) · (𝐵𝑁)))
16717, 27, 32divcan1d 10681 . . . . . . . . . 10 (𝜑 → (((𝐴𝑀) / (𝐵𝑁)) · (𝐵𝑁)) = (𝐴𝑀))
168166, 167eqtrd 2644 . . . . . . . . 9 (𝜑 → (((coeff‘𝐻)‘(deg‘𝐻)) · (𝐵𝑁)) = (𝐴𝑀))
169162, 163, 1683eqtr3d 2652 . . . . . . . 8 (𝜑 → ((coeff‘(𝐻𝑓 · 𝐺))‘𝑀) = (𝐴𝑀))
170169adantr 480 . . . . . . 7 ((𝜑𝑀 ∈ ℕ0) → ((coeff‘(𝐻𝑓 · 𝐺))‘𝑀) = (𝐴𝑀))
171152, 155, 157, 157, 158, 159, 170ofval 6804 . . . . . 6 ((𝜑𝑀 ∈ ℕ0) → ((𝐴𝑓 − (coeff‘(𝐻𝑓 · 𝐺)))‘𝑀) = ((𝐴𝑀) − (𝐴𝑀)))
17215, 171mpdan 699 . . . . 5 (𝜑 → ((𝐴𝑓 − (coeff‘(𝐻𝑓 · 𝐺)))‘𝑀) = ((𝐴𝑀) − (𝐴𝑀)))
17317subidd 10259 . . . . 5 (𝜑 → ((𝐴𝑀) − (𝐴𝑀)) = 0)
174149, 172, 1733eqtrd 2648 . . . 4 (𝜑 → ((coeff‘(𝐹𝑓 − (𝐻𝑓 · 𝐺)))‘𝑀) = 0)
175 dgrcl 23793 . . . . . . . . . 10 ((𝐹𝑓 − (𝐻𝑓 · 𝐺)) ∈ (Poly‘𝑆) → (deg‘(𝐹𝑓 − (𝐻𝑓 · 𝐺))) ∈ ℕ0)
176102, 175syl 17 . . . . . . . . 9 (𝜑 → (deg‘(𝐹𝑓 − (𝐻𝑓 · 𝐺))) ∈ ℕ0)
177176nn0red 11229 . . . . . . . 8 (𝜑 → (deg‘(𝐹𝑓 − (𝐻𝑓 · 𝐺))) ∈ ℝ)
17815nn0red 11229 . . . . . . . 8 (𝜑𝑀 ∈ ℝ)
17925nn0red 11229 . . . . . . . 8 (𝜑𝑁 ∈ ℝ)
180177, 178, 179ltsub1d 10515 . . . . . . 7 (𝜑 → ((deg‘(𝐹𝑓 − (𝐻𝑓 · 𝐺))) < 𝑀 ↔ ((deg‘(𝐹𝑓 − (𝐻𝑓 · 𝐺))) − 𝑁) < (𝑀𝑁)))
181134breq2d 4595 . . . . . . 7 (𝜑 → (((deg‘(𝐹𝑓 − (𝐻𝑓 · 𝐺))) − 𝑁) < (𝑀𝑁) ↔ ((deg‘(𝐹𝑓 − (𝐻𝑓 · 𝐺))) − 𝑁) < 𝐷))
182180, 181bitrd 267 . . . . . 6 (𝜑 → ((deg‘(𝐹𝑓 − (𝐻𝑓 · 𝐺))) < 𝑀 ↔ ((deg‘(𝐹𝑓 − (𝐻𝑓 · 𝐺))) − 𝑁) < 𝐷))
183182orbi2d 734 . . . . 5 (𝜑 → (((𝐹𝑓 − (𝐻𝑓 · 𝐺)) = 0𝑝 ∨ (deg‘(𝐹𝑓 − (𝐻𝑓 · 𝐺))) < 𝑀) ↔ ((𝐹𝑓 − (𝐻𝑓 · 𝐺)) = 0𝑝 ∨ ((deg‘(𝐹𝑓 − (𝐻𝑓 · 𝐺))) − 𝑁) < 𝐷)))
184 eqid 2610 . . . . . . 7 (deg‘(𝐹𝑓 − (𝐻𝑓 · 𝐺))) = (deg‘(𝐹𝑓 − (𝐻𝑓 · 𝐺)))
185 eqid 2610 . . . . . . 7 (coeff‘(𝐹𝑓 − (𝐻𝑓 · 𝐺))) = (coeff‘(𝐹𝑓 − (𝐻𝑓 · 𝐺)))
186184, 185dgrlt 23826 . . . . . 6 (((𝐹𝑓 − (𝐻𝑓 · 𝐺)) ∈ (Poly‘𝑆) ∧ 𝑀 ∈ ℕ0) → (((𝐹𝑓 − (𝐻𝑓 · 𝐺)) = 0𝑝 ∨ (deg‘(𝐹𝑓 − (𝐻𝑓 · 𝐺))) < 𝑀) ↔ ((deg‘(𝐹𝑓 − (𝐻𝑓 · 𝐺))) ≤ 𝑀 ∧ ((coeff‘(𝐹𝑓 − (𝐻𝑓 · 𝐺)))‘𝑀) = 0)))
187102, 15, 186syl2anc 691 . . . . 5 (𝜑 → (((𝐹𝑓 − (𝐻𝑓 · 𝐺)) = 0𝑝 ∨ (deg‘(𝐹𝑓 − (𝐻𝑓 · 𝐺))) < 𝑀) ↔ ((deg‘(𝐹𝑓 − (𝐻𝑓 · 𝐺))) ≤ 𝑀 ∧ ((coeff‘(𝐹𝑓 − (𝐻𝑓 · 𝐺)))‘𝑀) = 0)))
188183, 187bitr3d 269 . . . 4 (𝜑 → (((𝐹𝑓 − (𝐻𝑓 · 𝐺)) = 0𝑝 ∨ ((deg‘(𝐹𝑓 − (𝐻𝑓 · 𝐺))) − 𝑁) < 𝐷) ↔ ((deg‘(𝐹𝑓 − (𝐻𝑓 · 𝐺))) ≤ 𝑀 ∧ ((coeff‘(𝐹𝑓 − (𝐻𝑓 · 𝐺)))‘𝑀) = 0)))
189145, 174, 188mpbir2and 959 . . 3 (𝜑 → ((𝐹𝑓 − (𝐻𝑓 · 𝐺)) = 0𝑝 ∨ ((deg‘(𝐹𝑓 − (𝐻𝑓 · 𝐺))) − 𝑁) < 𝐷))
190 eqeq1 2614 . . . . . 6 (𝑓 = (𝐹𝑓 − (𝐻𝑓 · 𝐺)) → (𝑓 = 0𝑝 ↔ (𝐹𝑓 − (𝐻𝑓 · 𝐺)) = 0𝑝))
191 fveq2 6103 . . . . . . . 8 (𝑓 = (𝐹𝑓 − (𝐻𝑓 · 𝐺)) → (deg‘𝑓) = (deg‘(𝐹𝑓 − (𝐻𝑓 · 𝐺))))
192191oveq1d 6564 . . . . . . 7 (𝑓 = (𝐹𝑓 − (𝐻𝑓 · 𝐺)) → ((deg‘𝑓) − 𝑁) = ((deg‘(𝐹𝑓 − (𝐻𝑓 · 𝐺))) − 𝑁))
193192breq1d 4593 . . . . . 6 (𝑓 = (𝐹𝑓 − (𝐻𝑓 · 𝐺)) → (((deg‘𝑓) − 𝑁) < 𝐷 ↔ ((deg‘(𝐹𝑓 − (𝐻𝑓 · 𝐺))) − 𝑁) < 𝐷))
194190, 193orbi12d 742 . . . . 5 (𝑓 = (𝐹𝑓 − (𝐻𝑓 · 𝐺)) → ((𝑓 = 0𝑝 ∨ ((deg‘𝑓) − 𝑁) < 𝐷) ↔ ((𝐹𝑓 − (𝐻𝑓 · 𝐺)) = 0𝑝 ∨ ((deg‘(𝐹𝑓 − (𝐻𝑓 · 𝐺))) − 𝑁) < 𝐷)))
195 plydiv.u . . . . . . . . 9 𝑈 = (𝑓𝑓 − (𝐺𝑓 · 𝑝))
196 oveq1 6556 . . . . . . . . 9 (𝑓 = (𝐹𝑓 − (𝐻𝑓 · 𝐺)) → (𝑓𝑓 − (𝐺𝑓 · 𝑝)) = ((𝐹𝑓 − (𝐻𝑓 · 𝐺)) ∘𝑓 − (𝐺𝑓 · 𝑝)))
197195, 196syl5eq 2656 . . . . . . . 8 (𝑓 = (𝐹𝑓 − (𝐻𝑓 · 𝐺)) → 𝑈 = ((𝐹𝑓 − (𝐻𝑓 · 𝐺)) ∘𝑓 − (𝐺𝑓 · 𝑝)))
198197eqeq1d 2612 . . . . . . 7 (𝑓 = (𝐹𝑓 − (𝐻𝑓 · 𝐺)) → (𝑈 = 0𝑝 ↔ ((𝐹𝑓 − (𝐻𝑓 · 𝐺)) ∘𝑓 − (𝐺𝑓 · 𝑝)) = 0𝑝))
199197fveq2d 6107 . . . . . . . 8 (𝑓 = (𝐹𝑓 − (𝐻𝑓 · 𝐺)) → (deg‘𝑈) = (deg‘((𝐹𝑓 − (𝐻𝑓 · 𝐺)) ∘𝑓 − (𝐺𝑓 · 𝑝))))
200199breq1d 4593 . . . . . . 7 (𝑓 = (𝐹𝑓 − (𝐻𝑓 · 𝐺)) → ((deg‘𝑈) < 𝑁 ↔ (deg‘((𝐹𝑓 − (𝐻𝑓 · 𝐺)) ∘𝑓 − (𝐺𝑓 · 𝑝))) < 𝑁))
201198, 200orbi12d 742 . . . . . 6 (𝑓 = (𝐹𝑓 − (𝐻𝑓 · 𝐺)) → ((𝑈 = 0𝑝 ∨ (deg‘𝑈) < 𝑁) ↔ (((𝐹𝑓 − (𝐻𝑓 · 𝐺)) ∘𝑓 − (𝐺𝑓 · 𝑝)) = 0𝑝 ∨ (deg‘((𝐹𝑓 − (𝐻𝑓 · 𝐺)) ∘𝑓 − (𝐺𝑓 · 𝑝))) < 𝑁)))
202201rexbidv 3034 . . . . 5 (𝑓 = (𝐹𝑓 − (𝐻𝑓 · 𝐺)) → (∃𝑝 ∈ (Poly‘𝑆)(𝑈 = 0𝑝 ∨ (deg‘𝑈) < 𝑁) ↔ ∃𝑝 ∈ (Poly‘𝑆)(((𝐹𝑓 − (𝐻𝑓 · 𝐺)) ∘𝑓 − (𝐺𝑓 · 𝑝)) = 0𝑝 ∨ (deg‘((𝐹𝑓 − (𝐻𝑓 · 𝐺)) ∘𝑓 − (𝐺𝑓 · 𝑝))) < 𝑁)))
203194, 202imbi12d 333 . . . 4 (𝑓 = (𝐹𝑓 − (𝐻𝑓 · 𝐺)) → (((𝑓 = 0𝑝 ∨ ((deg‘𝑓) − 𝑁) < 𝐷) → ∃𝑝 ∈ (Poly‘𝑆)(𝑈 = 0𝑝 ∨ (deg‘𝑈) < 𝑁)) ↔ (((𝐹𝑓 − (𝐻𝑓 · 𝐺)) = 0𝑝 ∨ ((deg‘(𝐹𝑓 − (𝐻𝑓 · 𝐺))) − 𝑁) < 𝐷) → ∃𝑝 ∈ (Poly‘𝑆)(((𝐹𝑓 − (𝐻𝑓 · 𝐺)) ∘𝑓 − (𝐺𝑓 · 𝑝)) = 0𝑝 ∨ (deg‘((𝐹𝑓 − (𝐻𝑓 · 𝐺)) ∘𝑓 − (𝐺𝑓 · 𝑝))) < 𝑁))))
204203rspcv 3278 . . 3 ((𝐹𝑓 − (𝐻𝑓 · 𝐺)) ∈ (Poly‘𝑆) → (∀𝑓 ∈ (Poly‘𝑆)((𝑓 = 0𝑝 ∨ ((deg‘𝑓) − 𝑁) < 𝐷) → ∃𝑝 ∈ (Poly‘𝑆)(𝑈 = 0𝑝 ∨ (deg‘𝑈) < 𝑁)) → (((𝐹𝑓 − (𝐻𝑓 · 𝐺)) = 0𝑝 ∨ ((deg‘(𝐹𝑓 − (𝐻𝑓 · 𝐺))) − 𝑁) < 𝐷) → ∃𝑝 ∈ (Poly‘𝑆)(((𝐹𝑓 − (𝐻𝑓 · 𝐺)) ∘𝑓 − (𝐺𝑓 · 𝑝)) = 0𝑝 ∨ (deg‘((𝐹𝑓 − (𝐻𝑓 · 𝐺)) ∘𝑓 − (𝐺𝑓 · 𝑝))) < 𝑁))))
205102, 103, 189, 204syl3c 64 . 2 (𝜑 → ∃𝑝 ∈ (Poly‘𝑆)(((𝐹𝑓 − (𝐻𝑓 · 𝐺)) ∘𝑓 − (𝐺𝑓 · 𝑝)) = 0𝑝 ∨ (deg‘((𝐹𝑓 − (𝐻𝑓 · 𝐺)) ∘𝑓 − (𝐺𝑓 · 𝑝))) < 𝑁))
206100, 205r19.29a 3060 1 (𝜑 → ∃𝑞 ∈ (Poly‘𝑆)(𝑅 = 0𝑝 ∨ (deg‘𝑅) < 𝑁))
 Colors of variables: wff setvar class Syntax hints:   → wi 4   ↔ wb 195   ∨ wo 382   ∧ wa 383   ∧ w3a 1031   = wceq 1475   ∈ wcel 1977   ≠ wne 2780  ∀wral 2896  ∃wrex 2897  Vcvv 3173   ⊆ wss 3540  ifcif 4036  {csn 4125   class class class wbr 4583   ↦ cmpt 4643   × cxp 5036   Fn wfn 5799  ⟶wf 5800  ‘cfv 5804  (class class class)co 6549   ∘𝑓 cof 6793  ℂcc 9813  0cc0 9815  1c1 9816   + caddc 9818   · cmul 9820   < clt 9953   ≤ cle 9954   − cmin 10145  -cneg 10146   / cdiv 10563  ℕ0cn0 11169  ↑cexp 12722  0𝑝c0p 23242  Polycply 23744  coeffccoe 23746  degcdgr 23747 This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1713  ax-4 1728  ax-5 1827  ax-6 1875  ax-7 1922  ax-8 1979  ax-9 1986  ax-10 2006  ax-11 2021  ax-12 2034  ax-13 2234  ax-ext 2590  ax-rep 4699  ax-sep 4709  ax-nul 4717  ax-pow 4769  ax-pr 4833  ax-un 6847  ax-inf2 8421  ax-cnex 9871  ax-resscn 9872  ax-1cn 9873  ax-icn 9874  ax-addcl 9875  ax-addrcl 9876  ax-mulcl 9877  ax-mulrcl 9878  ax-mulcom 9879  ax-addass 9880  ax-mulass 9881  ax-distr 9882  ax-i2m1 9883  ax-1ne0 9884  ax-1rid 9885  ax-rnegex 9886  ax-rrecex 9887  ax-cnre 9888  ax-pre-lttri 9889  ax-pre-lttrn 9890  ax-pre-ltadd 9891  ax-pre-mulgt0 9892  ax-pre-sup 9893  ax-addf 9894 This theorem depends on definitions:  df-bi 196  df-or 384  df-an 385  df-3or 1032  df-3an 1033  df-tru 1478  df-fal 1481  df-ex 1696  df-nf 1701  df-sb 1868  df-eu 2462  df-mo 2463  df-clab 2597  df-cleq 2603  df-clel 2606  df-nfc 2740  df-ne 2782  df-nel 2783  df-ral 2901  df-rex 2902  df-reu 2903  df-rmo 2904  df-rab 2905  df-v 3175  df-sbc 3403  df-csb 3500  df-dif 3543  df-un 3545  df-in 3547  df-ss 3554  df-pss 3556  df-nul 3875  df-if 4037  df-pw 4110  df-sn 4126  df-pr 4128  df-tp 4130  df-op 4132  df-uni 4373  df-int 4411  df-iun 4457  df-br 4584  df-opab 4644  df-mpt 4645  df-tr 4681  df-eprel 4949  df-id 4953  df-po 4959  df-so 4960  df-fr 4997  df-se 4998  df-we 4999  df-xp 5044  df-rel 5045  df-cnv 5046  df-co 5047  df-dm 5048  df-rn 5049  df-res 5050  df-ima 5051  df-pred 5597  df-ord 5643  df-on 5644  df-lim 5645  df-suc 5646  df-iota 5768  df-fun 5806  df-fn 5807  df-f 5808  df-f1 5809  df-fo 5810  df-f1o 5811  df-fv 5812  df-isom 5813  df-riota 6511  df-ov 6552  df-oprab 6553  df-mpt2 6554  df-of 6795  df-om 6958  df-1st 7059  df-2nd 7060  df-wrecs 7294  df-recs 7355  df-rdg 7393  df-1o 7447  df-oadd 7451  df-er 7629  df-map 7746  df-pm 7747  df-en 7842  df-dom 7843  df-sdom 7844  df-fin 7845  df-sup 8231  df-inf 8232  df-oi 8298  df-card 8648  df-pnf 9955  df-mnf 9956  df-xr 9957  df-ltxr 9958  df-le 9959  df-sub 10147  df-neg 10148  df-div 10564  df-nn 10898  df-2 10956  df-3 10957  df-n0 11170  df-z 11255  df-uz 11564  df-rp 11709  df-fz 12198  df-fzo 12335  df-fl 12455  df-seq 12664  df-exp 12723  df-hash 12980  df-cj 13687  df-re 13688  df-im 13689  df-sqrt 13823  df-abs 13824  df-clim 14067  df-rlim 14068  df-sum 14265  df-0p 23243  df-ply 23748  df-coe 23750  df-dgr 23751 This theorem is referenced by:  plydivex  23856
 Copyright terms: Public domain W3C validator