Theorem mdegmullem 25243

Description: Lemma for mdegmulle2 25244. (Contributed by Stefan O'Rear, 26-Mar-2015.)

Hypotheses

Ref	Expression
mdegaddle.y	⊢ 𝑌 = (𝐼 mPoly 𝑅)
mdegaddle.d	⊢ 𝐷 = (𝐼 mDeg 𝑅)
mdegaddle.i	⊢ (𝜑 → 𝐼 ∈ 𝑉)
mdegaddle.r	⊢ (𝜑 → 𝑅 ∈ Ring)
mdegmulle2.b	⊢ 𝐵 = (Base‘𝑌)
mdegmulle2.t	⊢ · = (.r‘𝑌)
mdegmulle2.f	⊢ (𝜑 → 𝐹 ∈ 𝐵)
mdegmulle2.g	⊢ (𝜑 → 𝐺 ∈ 𝐵)
mdegmulle2.j1	⊢ (𝜑 → 𝐽 ∈ ℕ0)
mdegmulle2.k1	⊢ (𝜑 → 𝐾 ∈ ℕ0)
mdegmulle2.j2	⊢ (𝜑 → (𝐷‘𝐹) ≤ 𝐽)
mdegmulle2.k2	⊢ (𝜑 → (𝐷‘𝐺) ≤ 𝐾)
mdegmullem.a	⊢ 𝐴 = {𝑎 ∈ (ℕ0 ↑m 𝐼) ∣ (◡𝑎 “ ℕ) ∈ Fin}
mdegmullem.h	⊢ 𝐻 = (𝑏 ∈ 𝐴 ↦ (ℂfld Σg 𝑏))

Assertion

Ref	Expression
mdegmullem	⊢ (𝜑 → (𝐷‘(𝐹 · 𝐺)) ≤ (𝐽 + 𝐾))

Distinct variable groups:   𝐼,𝑎,𝑏   𝑅,𝑏   𝑉,𝑏   𝐴,𝑏

Allowed substitution hints:   𝜑(𝑎,𝑏)   𝐴(𝑎)   𝐵(𝑎,𝑏)   𝐷(𝑎,𝑏)   𝑅(𝑎)   · (𝑎,𝑏)   𝐹(𝑎,𝑏)   𝐺(𝑎,𝑏)   𝐻(𝑎,𝑏)   𝐽(𝑎,𝑏)   𝐾(𝑎,𝑏)   𝑉(𝑎)   𝑌(𝑎,𝑏)

Proof of Theorem mdegmullem

Dummy variables 𝑐 𝑑 𝑥 𝑒 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		mdegaddle.y	. . . . . . . 8 ⊢ 𝑌 = (𝐼 mPoly 𝑅)
2		mdegmulle2.b	. . . . . . . 8 ⊢ 𝐵 = (Base‘𝑌)
3		eqid 2738	. . . . . . . 8 ⊢ (.r‘𝑅) = (.r‘𝑅)
4		mdegmulle2.t	. . . . . . . 8 ⊢ · = (.r‘𝑌)
5		mdegmullem.a	. . . . . . . 8 ⊢ 𝐴 = {𝑎 ∈ (ℕ0 ↑m 𝐼) ∣ (◡𝑎 “ ℕ) ∈ Fin}
6		mdegmulle2.f	. . . . . . . 8 ⊢ (𝜑 → 𝐹 ∈ 𝐵)
7		mdegmulle2.g	. . . . . . . 8 ⊢ (𝜑 → 𝐺 ∈ 𝐵)
8	1, 2, 3, 4, 5, 6, 7	mplmul 21215	. . . . . . 7 ⊢ (𝜑 → (𝐹 · 𝐺) = (𝑐 ∈ 𝐴 ↦ (𝑅 Σg (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑐} ↦ ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑐 ∘f − 𝑑)))))))
9	8	fveq1d 6776	. . . . . 6 ⊢ (𝜑 → ((𝐹 · 𝐺)‘𝑥) = ((𝑐 ∈ 𝐴 ↦ (𝑅 Σg (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑐} ↦ ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑐 ∘f − 𝑑))))))‘𝑥))
10	9	adantr 481	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) → ((𝐹 · 𝐺)‘𝑥) = ((𝑐 ∈ 𝐴 ↦ (𝑅 Σg (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑐} ↦ ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑐 ∘f − 𝑑))))))‘𝑥))
11		breq2 5078	. . . . . . . . . 10 ⊢ (𝑐 = 𝑥 → (𝑒 ∘r ≤ 𝑐 ↔ 𝑒 ∘r ≤ 𝑥))
12	11	rabbidv 3414	. . . . . . . . 9 ⊢ (𝑐 = 𝑥 → {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑐} = {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥})
13		fvoveq1 7298	. . . . . . . . . 10 ⊢ (𝑐 = 𝑥 → (𝐺‘(𝑐 ∘f − 𝑑)) = (𝐺‘(𝑥 ∘f − 𝑑)))
14	13	oveq2d 7291	. . . . . . . . 9 ⊢ (𝑐 = 𝑥 → ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑐 ∘f − 𝑑))) = ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑥 ∘f − 𝑑))))
15	12, 14	mpteq12dv 5165	. . . . . . . 8 ⊢ (𝑐 = 𝑥 → (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑐} ↦ ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑐 ∘f − 𝑑)))) = (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ↦ ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑥 ∘f − 𝑑)))))
16	15	oveq2d 7291	. . . . . . 7 ⊢ (𝑐 = 𝑥 → (𝑅 Σg (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑐} ↦ ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑐 ∘f − 𝑑))))) = (𝑅 Σg (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ↦ ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑥 ∘f − 𝑑))))))
17		eqid 2738	. . . . . . 7 ⊢ (𝑐 ∈ 𝐴 ↦ (𝑅 Σg (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑐} ↦ ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑐 ∘f − 𝑑)))))) = (𝑐 ∈ 𝐴 ↦ (𝑅 Σg (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑐} ↦ ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑐 ∘f − 𝑑))))))
18		ovex 7308	. . . . . . 7 ⊢ (𝑅 Σg (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ↦ ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑥 ∘f − 𝑑))))) ∈ V
19	16, 17, 18	fvmpt 6875	. . . . . 6 ⊢ (𝑥 ∈ 𝐴 → ((𝑐 ∈ 𝐴 ↦ (𝑅 Σg (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑐} ↦ ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑐 ∘f − 𝑑))))))‘𝑥) = (𝑅 Σg (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ↦ ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑥 ∘f − 𝑑))))))
20	19	ad2antrl 725	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) → ((𝑐 ∈ 𝐴 ↦ (𝑅 Σg (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑐} ↦ ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑐 ∘f − 𝑑))))))‘𝑥) = (𝑅 Σg (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ↦ ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑥 ∘f − 𝑑))))))
21		mdegaddle.d	. . . . . . . . . . . . 13 ⊢ 𝐷 = (𝐼 mDeg 𝑅)
22		eqid 2738	. . . . . . . . . . . . 13 ⊢ (0g‘𝑅) = (0g‘𝑅)
23		mdegmullem.h	. . . . . . . . . . . . 13 ⊢ 𝐻 = (𝑏 ∈ 𝐴 ↦ (ℂfld Σg 𝑏))
24	6	ad2antrr 723	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ∧ 𝐽 < (𝐻‘𝑑))) → 𝐹 ∈ 𝐵)
25		elrabi 3618	. . . . . . . . . . . . . . 15 ⊢ (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} → 𝑑 ∈ 𝐴)
26	25	adantl 482	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → 𝑑 ∈ 𝐴)
27	26	adantrr 714	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ∧ 𝐽 < (𝐻‘𝑑))) → 𝑑 ∈ 𝐴)
28	21, 1, 2	mdegxrcl 25232	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐹 ∈ 𝐵 → (𝐷‘𝐹) ∈ ℝ*)
29	6, 28	syl 17	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (𝐷‘𝐹) ∈ ℝ*)
30	29	ad2antrr 723	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐷‘𝐹) ∈ ℝ*)
31		nn0ssre 12237	. . . . . . . . . . . . . . . . . . 19 ⊢ ℕ0 ⊆ ℝ
32		ressxr 11019	. . . . . . . . . . . . . . . . . . 19 ⊢ ℝ ⊆ ℝ*
33	31, 32	sstri 3930	. . . . . . . . . . . . . . . . . 18 ⊢ ℕ0 ⊆ ℝ*
34		mdegmulle2.j1	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → 𝐽 ∈ ℕ0)
35	33, 34	sselid 3919	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 𝐽 ∈ ℝ*)
36	35	ad2antrr 723	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → 𝐽 ∈ ℝ*)
37	5, 23	tdeglem1 25220	. . . . . . . . . . . . . . . . . . 19 ⊢ 𝐻:𝐴⟶ℕ0
38	37	a1i 11	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → 𝐻:𝐴⟶ℕ0)
39	38, 26	ffvelrnd 6962	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐻‘𝑑) ∈ ℕ0)
40	33, 39	sselid 3919	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐻‘𝑑) ∈ ℝ*)
41	30, 36, 40	3jca 1127	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → ((𝐷‘𝐹) ∈ ℝ* ∧ 𝐽 ∈ ℝ* ∧ (𝐻‘𝑑) ∈ ℝ*))
42	41	adantrr 714	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ∧ 𝐽 < (𝐻‘𝑑))) → ((𝐷‘𝐹) ∈ ℝ* ∧ 𝐽 ∈ ℝ* ∧ (𝐻‘𝑑) ∈ ℝ*))
43		mdegmulle2.j2	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (𝐷‘𝐹) ≤ 𝐽)
44	43	ad2antrr 723	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐷‘𝐹) ≤ 𝐽)
45	44	anim1i 615	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) ∧ 𝐽 < (𝐻‘𝑑)) → ((𝐷‘𝐹) ≤ 𝐽 ∧ 𝐽 < (𝐻‘𝑑)))
46	45	anasss 467	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ∧ 𝐽 < (𝐻‘𝑑))) → ((𝐷‘𝐹) ≤ 𝐽 ∧ 𝐽 < (𝐻‘𝑑)))
47		xrlelttr 12890	. . . . . . . . . . . . . 14 ⊢ (((𝐷‘𝐹) ∈ ℝ* ∧ 𝐽 ∈ ℝ* ∧ (𝐻‘𝑑) ∈ ℝ*) → (((𝐷‘𝐹) ≤ 𝐽 ∧ 𝐽 < (𝐻‘𝑑)) → (𝐷‘𝐹) < (𝐻‘𝑑)))
48	42, 46, 47	sylc 65	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ∧ 𝐽 < (𝐻‘𝑑))) → (𝐷‘𝐹) < (𝐻‘𝑑))
49	21, 1, 2, 22, 5, 23, 24, 27, 48	mdeglt 25230	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ∧ 𝐽 < (𝐻‘𝑑))) → (𝐹‘𝑑) = (0g‘𝑅))
50	49	oveq1d 7290	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ∧ 𝐽 < (𝐻‘𝑑))) → ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑥 ∘f − 𝑑))) = ((0g‘𝑅)(.r‘𝑅)(𝐺‘(𝑥 ∘f − 𝑑))))
51		mdegaddle.r	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝑅 ∈ Ring)
52	51	ad2antrr 723	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → 𝑅 ∈ Ring)
53		eqid 2738	. . . . . . . . . . . . . . . 16 ⊢ (Base‘𝑅) = (Base‘𝑅)
54	1, 53, 2, 5, 7	mplelf 21204	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝐺:𝐴⟶(Base‘𝑅))
55	54	ad2antrr 723	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → 𝐺:𝐴⟶(Base‘𝑅))
56		ssrab2 4013	. . . . . . . . . . . . . . 15 ⊢ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ⊆ 𝐴
57		simplrl 774	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → 𝑥 ∈ 𝐴)
58		eqid 2738	. . . . . . . . . . . . . . . . 17 ⊢ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} = {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}
59	5, 58	psrbagconcl 21137	. . . . . . . . . . . . . . . 16 ⊢ ((𝑥 ∈ 𝐴 ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝑥 ∘f − 𝑑) ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥})
60	57, 59	sylancom 588	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝑥 ∘f − 𝑑) ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥})
61	56, 60	sselid 3919	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝑥 ∘f − 𝑑) ∈ 𝐴)
62	55, 61	ffvelrnd 6962	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐺‘(𝑥 ∘f − 𝑑)) ∈ (Base‘𝑅))
63	53, 3, 22	ringlz 19826	. . . . . . . . . . . . 13 ⊢ ((𝑅 ∈ Ring ∧ (𝐺‘(𝑥 ∘f − 𝑑)) ∈ (Base‘𝑅)) → ((0g‘𝑅)(.r‘𝑅)(𝐺‘(𝑥 ∘f − 𝑑))) = (0g‘𝑅))
64	52, 62, 63	syl2anc 584	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → ((0g‘𝑅)(.r‘𝑅)(𝐺‘(𝑥 ∘f − 𝑑))) = (0g‘𝑅))
65	64	adantrr 714	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ∧ 𝐽 < (𝐻‘𝑑))) → ((0g‘𝑅)(.r‘𝑅)(𝐺‘(𝑥 ∘f − 𝑑))) = (0g‘𝑅))
66	50, 65	eqtrd 2778	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ∧ 𝐽 < (𝐻‘𝑑))) → ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑥 ∘f − 𝑑))) = (0g‘𝑅))
67	66	anassrs 468	. . . . . . . . 9 ⊢ ((((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) ∧ 𝐽 < (𝐻‘𝑑)) → ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑥 ∘f − 𝑑))) = (0g‘𝑅))
68	7	ad2antrr 723	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ∧ 𝐾 < (𝐻‘(𝑥 ∘f − 𝑑)))) → 𝐺 ∈ 𝐵)
69	61	adantrr 714	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ∧ 𝐾 < (𝐻‘(𝑥 ∘f − 𝑑)))) → (𝑥 ∘f − 𝑑) ∈ 𝐴)
70	21, 1, 2	mdegxrcl 25232	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐺 ∈ 𝐵 → (𝐷‘𝐺) ∈ ℝ*)
71	7, 70	syl 17	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (𝐷‘𝐺) ∈ ℝ*)
72	71	ad2antrr 723	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐷‘𝐺) ∈ ℝ*)
73		mdegmulle2.k1	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → 𝐾 ∈ ℕ0)
74	33, 73	sselid 3919	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 𝐾 ∈ ℝ*)
75	74	ad2antrr 723	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → 𝐾 ∈ ℝ*)
76	38, 61	ffvelrnd 6962	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐻‘(𝑥 ∘f − 𝑑)) ∈ ℕ0)
77	33, 76	sselid 3919	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐻‘(𝑥 ∘f − 𝑑)) ∈ ℝ*)
78	72, 75, 77	3jca 1127	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → ((𝐷‘𝐺) ∈ ℝ* ∧ 𝐾 ∈ ℝ* ∧ (𝐻‘(𝑥 ∘f − 𝑑)) ∈ ℝ*))
79	78	adantrr 714	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ∧ 𝐾 < (𝐻‘(𝑥 ∘f − 𝑑)))) → ((𝐷‘𝐺) ∈ ℝ* ∧ 𝐾 ∈ ℝ* ∧ (𝐻‘(𝑥 ∘f − 𝑑)) ∈ ℝ*))
80		mdegmulle2.k2	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (𝐷‘𝐺) ≤ 𝐾)
81	80	ad2antrr 723	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐷‘𝐺) ≤ 𝐾)
82	81	anim1i 615	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) ∧ 𝐾 < (𝐻‘(𝑥 ∘f − 𝑑))) → ((𝐷‘𝐺) ≤ 𝐾 ∧ 𝐾 < (𝐻‘(𝑥 ∘f − 𝑑))))
83	82	anasss 467	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ∧ 𝐾 < (𝐻‘(𝑥 ∘f − 𝑑)))) → ((𝐷‘𝐺) ≤ 𝐾 ∧ 𝐾 < (𝐻‘(𝑥 ∘f − 𝑑))))
84		xrlelttr 12890	. . . . . . . . . . . . . 14 ⊢ (((𝐷‘𝐺) ∈ ℝ* ∧ 𝐾 ∈ ℝ* ∧ (𝐻‘(𝑥 ∘f − 𝑑)) ∈ ℝ*) → (((𝐷‘𝐺) ≤ 𝐾 ∧ 𝐾 < (𝐻‘(𝑥 ∘f − 𝑑))) → (𝐷‘𝐺) < (𝐻‘(𝑥 ∘f − 𝑑))))
85	79, 83, 84	sylc 65	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ∧ 𝐾 < (𝐻‘(𝑥 ∘f − 𝑑)))) → (𝐷‘𝐺) < (𝐻‘(𝑥 ∘f − 𝑑)))
86	21, 1, 2, 22, 5, 23, 68, 69, 85	mdeglt 25230	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ∧ 𝐾 < (𝐻‘(𝑥 ∘f − 𝑑)))) → (𝐺‘(𝑥 ∘f − 𝑑)) = (0g‘𝑅))
87	86	oveq2d 7291	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ∧ 𝐾 < (𝐻‘(𝑥 ∘f − 𝑑)))) → ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑥 ∘f − 𝑑))) = ((𝐹‘𝑑)(.r‘𝑅)(0g‘𝑅)))
88	1, 53, 2, 5, 6	mplelf 21204	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝐹:𝐴⟶(Base‘𝑅))
89	88	ad2antrr 723	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → 𝐹:𝐴⟶(Base‘𝑅))
90	89, 26	ffvelrnd 6962	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐹‘𝑑) ∈ (Base‘𝑅))
91	53, 3, 22	ringrz 19827	. . . . . . . . . . . . 13 ⊢ ((𝑅 ∈ Ring ∧ (𝐹‘𝑑) ∈ (Base‘𝑅)) → ((𝐹‘𝑑)(.r‘𝑅)(0g‘𝑅)) = (0g‘𝑅))
92	52, 90, 91	syl2anc 584	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → ((𝐹‘𝑑)(.r‘𝑅)(0g‘𝑅)) = (0g‘𝑅))
93	92	adantrr 714	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ∧ 𝐾 < (𝐻‘(𝑥 ∘f − 𝑑)))) → ((𝐹‘𝑑)(.r‘𝑅)(0g‘𝑅)) = (0g‘𝑅))
94	87, 93	eqtrd 2778	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ∧ 𝐾 < (𝐻‘(𝑥 ∘f − 𝑑)))) → ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑥 ∘f − 𝑑))) = (0g‘𝑅))
95	94	anassrs 468	. . . . . . . . 9 ⊢ ((((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) ∧ 𝐾 < (𝐻‘(𝑥 ∘f − 𝑑))) → ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑥 ∘f − 𝑑))) = (0g‘𝑅))
96		simplrr 775	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐽 + 𝐾) < (𝐻‘𝑥))
97	39	nn0red 12294	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐻‘𝑑) ∈ ℝ)
98	76	nn0red 12294	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐻‘(𝑥 ∘f − 𝑑)) ∈ ℝ)
99	34	ad2antrr 723	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → 𝐽 ∈ ℕ0)
100	99	nn0red 12294	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → 𝐽 ∈ ℝ)
101	73	ad2antrr 723	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → 𝐾 ∈ ℕ0)
102	101	nn0red 12294	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → 𝐾 ∈ ℝ)
103		le2add 11457	. . . . . . . . . . . . 13 ⊢ ((((𝐻‘𝑑) ∈ ℝ ∧ (𝐻‘(𝑥 ∘f − 𝑑)) ∈ ℝ) ∧ (𝐽 ∈ ℝ ∧ 𝐾 ∈ ℝ)) → (((𝐻‘𝑑) ≤ 𝐽 ∧ (𝐻‘(𝑥 ∘f − 𝑑)) ≤ 𝐾) → ((𝐻‘𝑑) + (𝐻‘(𝑥 ∘f − 𝑑))) ≤ (𝐽 + 𝐾)))
104	97, 98, 100, 102, 103	syl22anc 836	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (((𝐻‘𝑑) ≤ 𝐽 ∧ (𝐻‘(𝑥 ∘f − 𝑑)) ≤ 𝐾) → ((𝐻‘𝑑) + (𝐻‘(𝑥 ∘f − 𝑑))) ≤ (𝐽 + 𝐾)))
105	5, 23	tdeglem3 25222	. . . . . . . . . . . . . . 15 ⊢ ((𝑑 ∈ 𝐴 ∧ (𝑥 ∘f − 𝑑) ∈ 𝐴) → (𝐻‘(𝑑 ∘f + (𝑥 ∘f − 𝑑))) = ((𝐻‘𝑑) + (𝐻‘(𝑥 ∘f − 𝑑))))
106	26, 61, 105	syl2anc 584	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐻‘(𝑑 ∘f + (𝑥 ∘f − 𝑑))) = ((𝐻‘𝑑) + (𝐻‘(𝑥 ∘f − 𝑑))))
107		mdegaddle.i	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 𝐼 ∈ 𝑉)
108	107	ad2antrr 723	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → 𝐼 ∈ 𝑉)
109	5	psrbagf 21121	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑑 ∈ 𝐴 → 𝑑:𝐼⟶ℕ0)
110	109	3ad2ant2 1133	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑑 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴) → 𝑑:𝐼⟶ℕ0)
111	110	ffvelrnda 6961	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝐼 ∈ 𝑉 ∧ 𝑑 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴) ∧ 𝑏 ∈ 𝐼) → (𝑑‘𝑏) ∈ ℕ0)
112	111	nn0cnd 12295	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝐼 ∈ 𝑉 ∧ 𝑑 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴) ∧ 𝑏 ∈ 𝐼) → (𝑑‘𝑏) ∈ ℂ)
113	5	psrbagf 21121	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑥 ∈ 𝐴 → 𝑥:𝐼⟶ℕ0)
114	113	3ad2ant3 1134	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑑 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴) → 𝑥:𝐼⟶ℕ0)
115	114	ffvelrnda 6961	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝐼 ∈ 𝑉 ∧ 𝑑 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴) ∧ 𝑏 ∈ 𝐼) → (𝑥‘𝑏) ∈ ℕ0)
116	115	nn0cnd 12295	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝐼 ∈ 𝑉 ∧ 𝑑 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴) ∧ 𝑏 ∈ 𝐼) → (𝑥‘𝑏) ∈ ℂ)
117	112, 116	pncan3d 11335	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝐼 ∈ 𝑉 ∧ 𝑑 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴) ∧ 𝑏 ∈ 𝐼) → ((𝑑‘𝑏) + ((𝑥‘𝑏) − (𝑑‘𝑏))) = (𝑥‘𝑏))
118	117	mpteq2dva 5174	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑑 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴) → (𝑏 ∈ 𝐼 ↦ ((𝑑‘𝑏) + ((𝑥‘𝑏) − (𝑑‘𝑏)))) = (𝑏 ∈ 𝐼 ↦ (𝑥‘𝑏)))
119		simp1 1135	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑑 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴) → 𝐼 ∈ 𝑉)
120		fvexd 6789	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝐼 ∈ 𝑉 ∧ 𝑑 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴) ∧ 𝑏 ∈ 𝐼) → (𝑑‘𝑏) ∈ V)
121		ovexd 7310	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝐼 ∈ 𝑉 ∧ 𝑑 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴) ∧ 𝑏 ∈ 𝐼) → ((𝑥‘𝑏) − (𝑑‘𝑏)) ∈ V)
122	110	feqmptd 6837	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑑 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴) → 𝑑 = (𝑏 ∈ 𝐼 ↦ (𝑑‘𝑏)))
123		fvexd 6789	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝐼 ∈ 𝑉 ∧ 𝑑 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴) ∧ 𝑏 ∈ 𝐼) → (𝑥‘𝑏) ∈ V)
124	114	feqmptd 6837	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑑 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴) → 𝑥 = (𝑏 ∈ 𝐼 ↦ (𝑥‘𝑏)))
125	119, 123, 120, 124, 122	offval2 7553	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑑 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴) → (𝑥 ∘f − 𝑑) = (𝑏 ∈ 𝐼 ↦ ((𝑥‘𝑏) − (𝑑‘𝑏))))
126	119, 120, 121, 122, 125	offval2 7553	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑑 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴) → (𝑑 ∘f + (𝑥 ∘f − 𝑑)) = (𝑏 ∈ 𝐼 ↦ ((𝑑‘𝑏) + ((𝑥‘𝑏) − (𝑑‘𝑏)))))
127	118, 126, 124	3eqtr4d 2788	. . . . . . . . . . . . . . . 16 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑑 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴) → (𝑑 ∘f + (𝑥 ∘f − 𝑑)) = 𝑥)
128	108, 26, 57, 127	syl3anc 1370	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝑑 ∘f + (𝑥 ∘f − 𝑑)) = 𝑥)
129	128	fveq2d 6778	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐻‘(𝑑 ∘f + (𝑥 ∘f − 𝑑))) = (𝐻‘𝑥))
130	106, 129	eqtr3d 2780	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → ((𝐻‘𝑑) + (𝐻‘(𝑥 ∘f − 𝑑))) = (𝐻‘𝑥))
131	130	breq1d 5084	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (((𝐻‘𝑑) + (𝐻‘(𝑥 ∘f − 𝑑))) ≤ (𝐽 + 𝐾) ↔ (𝐻‘𝑥) ≤ (𝐽 + 𝐾)))
132	104, 131	sylibd 238	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (((𝐻‘𝑑) ≤ 𝐽 ∧ (𝐻‘(𝑥 ∘f − 𝑑)) ≤ 𝐾) → (𝐻‘𝑥) ≤ (𝐽 + 𝐾)))
133	97, 100	lenltd 11121	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → ((𝐻‘𝑑) ≤ 𝐽 ↔ ¬ 𝐽 < (𝐻‘𝑑)))
134	98, 102	lenltd 11121	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → ((𝐻‘(𝑥 ∘f − 𝑑)) ≤ 𝐾 ↔ ¬ 𝐾 < (𝐻‘(𝑥 ∘f − 𝑑))))
135	133, 134	anbi12d 631	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (((𝐻‘𝑑) ≤ 𝐽 ∧ (𝐻‘(𝑥 ∘f − 𝑑)) ≤ 𝐾) ↔ (¬ 𝐽 < (𝐻‘𝑑) ∧ ¬ 𝐾 < (𝐻‘(𝑥 ∘f − 𝑑)))))
136		ioran 981	. . . . . . . . . . . 12 ⊢ (¬ (𝐽 < (𝐻‘𝑑) ∨ 𝐾 < (𝐻‘(𝑥 ∘f − 𝑑))) ↔ (¬ 𝐽 < (𝐻‘𝑑) ∧ ¬ 𝐾 < (𝐻‘(𝑥 ∘f − 𝑑))))
137	135, 136	bitr4di 289	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (((𝐻‘𝑑) ≤ 𝐽 ∧ (𝐻‘(𝑥 ∘f − 𝑑)) ≤ 𝐾) ↔ ¬ (𝐽 < (𝐻‘𝑑) ∨ 𝐾 < (𝐻‘(𝑥 ∘f − 𝑑)))))
138	38, 57	ffvelrnd 6962	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐻‘𝑥) ∈ ℕ0)
139	138	nn0red 12294	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐻‘𝑥) ∈ ℝ)
140	34, 73	nn0addcld 12297	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝐽 + 𝐾) ∈ ℕ0)
141	140	ad2antrr 723	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐽 + 𝐾) ∈ ℕ0)
142	141	nn0red 12294	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐽 + 𝐾) ∈ ℝ)
143	139, 142	lenltd 11121	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → ((𝐻‘𝑥) ≤ (𝐽 + 𝐾) ↔ ¬ (𝐽 + 𝐾) < (𝐻‘𝑥)))
144	132, 137, 143	3imtr3d 293	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (¬ (𝐽 < (𝐻‘𝑑) ∨ 𝐾 < (𝐻‘(𝑥 ∘f − 𝑑))) → ¬ (𝐽 + 𝐾) < (𝐻‘𝑥)))
145	96, 144	mt4d 117	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐽 < (𝐻‘𝑑) ∨ 𝐾 < (𝐻‘(𝑥 ∘f − 𝑑))))
146	67, 95, 145	mpjaodan 956	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑥 ∘f − 𝑑))) = (0g‘𝑅))
147	146	mpteq2dva 5174	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) → (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ↦ ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑥 ∘f − 𝑑)))) = (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ↦ (0g‘𝑅)))
148	147	oveq2d 7291	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) → (𝑅 Σg (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ↦ ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑥 ∘f − 𝑑))))) = (𝑅 Σg (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ↦ (0g‘𝑅))))
149		ringmnd 19793	. . . . . . . . 9 ⊢ (𝑅 ∈ Ring → 𝑅 ∈ Mnd)
150	51, 149	syl 17	. . . . . . . 8 ⊢ (𝜑 → 𝑅 ∈ Mnd)
151	150	adantr 481	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) → 𝑅 ∈ Mnd)
152		ovex 7308	. . . . . . . 8 ⊢ (ℕ0 ↑m 𝐼) ∈ V
153	5, 152	rab2ex 5259	. . . . . . 7 ⊢ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ∈ V
154	22	gsumz 18474	. . . . . . 7 ⊢ ((𝑅 ∈ Mnd ∧ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ∈ V) → (𝑅 Σg (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ↦ (0g‘𝑅))) = (0g‘𝑅))
155	151, 153, 154	sylancl 586	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) → (𝑅 Σg (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ↦ (0g‘𝑅))) = (0g‘𝑅))
156	148, 155	eqtrd 2778	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) → (𝑅 Σg (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ↦ ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑥 ∘f − 𝑑))))) = (0g‘𝑅))
157	10, 20, 156	3eqtrd 2782	. . . 4 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) → ((𝐹 · 𝐺)‘𝑥) = (0g‘𝑅))
158	157	expr 457	. . 3 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → ((𝐽 + 𝐾) < (𝐻‘𝑥) → ((𝐹 · 𝐺)‘𝑥) = (0g‘𝑅)))
159	158	ralrimiva 3103	. 2 ⊢ (𝜑 → ∀𝑥 ∈ 𝐴 ((𝐽 + 𝐾) < (𝐻‘𝑥) → ((𝐹 · 𝐺)‘𝑥) = (0g‘𝑅)))
160	1	mplring 21224	. . . . 5 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑅 ∈ Ring) → 𝑌 ∈ Ring)
161	107, 51, 160	syl2anc 584	. . . 4 ⊢ (𝜑 → 𝑌 ∈ Ring)
162	2, 4	ringcl 19800	. . . 4 ⊢ ((𝑌 ∈ Ring ∧ 𝐹 ∈ 𝐵 ∧ 𝐺 ∈ 𝐵) → (𝐹 · 𝐺) ∈ 𝐵)
163	161, 6, 7, 162	syl3anc 1370	. . 3 ⊢ (𝜑 → (𝐹 · 𝐺) ∈ 𝐵)
164	33, 140	sselid 3919	. . 3 ⊢ (𝜑 → (𝐽 + 𝐾) ∈ ℝ*)
165	21, 1, 2, 22, 5, 23	mdegleb 25229	. . 3 ⊢ (((𝐹 · 𝐺) ∈ 𝐵 ∧ (𝐽 + 𝐾) ∈ ℝ*) → ((𝐷‘(𝐹 · 𝐺)) ≤ (𝐽 + 𝐾) ↔ ∀𝑥 ∈ 𝐴 ((𝐽 + 𝐾) < (𝐻‘𝑥) → ((𝐹 · 𝐺)‘𝑥) = (0g‘𝑅))))
166	163, 164, 165	syl2anc 584	. 2 ⊢ (𝜑 → ((𝐷‘(𝐹 · 𝐺)) ≤ (𝐽 + 𝐾) ↔ ∀𝑥 ∈ 𝐴 ((𝐽 + 𝐾) < (𝐻‘𝑥) → ((𝐹 · 𝐺)‘𝑥) = (0g‘𝑅))))
167	159, 166	mpbird 256	1 ⊢ (𝜑 → (𝐷‘(𝐹 · 𝐺)) ≤ (𝐽 + 𝐾))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 205   ∧ wa 396   ∨ wo 844   ∧ w3a 1086   = wceq 1539   ∈ wcel 2106  ∀wral 3064  {crab 3068  Vcvv 3432   class class class wbr 5074   ↦ cmpt 5157  ^◡ccnv 5588   “ cima 5592  ⟶wf 6429  ‘cfv 6433  (class class class)co 7275   ∘_f cof 7531   ∘_r cofr 7532   ↑_m cmap 8615  Fincfn 8733  ℝcr 10870   + caddc 10874  ℝ^*cxr 11008   < clt 11009   ≤ cle 11010   − cmin 11205  ℕcn 11973  ℕ₀cn0 12233  Basecbs 16912  ._rcmulr 16963  0_gc0g 17150   Σ_g cgsu 17151  Mndcmnd 18385  Ringcrg 19783  ℂ_fldccnfld 20597   mPoly cmpl 21109   mDeg cmdg 25215

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1798  ax-4 1812  ax-5 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-11 2154  ax-12 2171  ax-ext 2709  ax-rep 5209  ax-sep 5223  ax-nul 5230  ax-pow 5288  ax-pr 5352  ax-un 7588  ax-cnex 10927  ax-resscn 10928  ax-1cn 10929  ax-icn 10930  ax-addcl 10931  ax-addrcl 10932  ax-mulcl 10933  ax-mulrcl 10934  ax-mulcom 10935  ax-addass 10936  ax-mulass 10937  ax-distr 10938  ax-i2m1 10939  ax-1ne0 10940  ax-1rid 10941  ax-rnegex 10942  ax-rrecex 10943  ax-cnre 10944  ax-pre-lttri 10945  ax-pre-lttrn 10946  ax-pre-ltadd 10947  ax-pre-mulgt0 10948  ax-pre-sup 10949  ax-addf 10950  ax-mulf 10951

This theorem depends on definitions:  df-bi 206  df-an 397  df-or 845  df-3or 1087  df-3an 1088  df-tru 1542  df-fal 1552  df-ex 1783  df-nf 1787  df-sb 2068  df-mo 2540  df-eu 2569  df-clab 2716  df-cleq 2730  df-clel 2816  df-nfc 2889  df-ne 2944  df-nel 3050  df-ral 3069  df-rex 3070  df-rmo 3071  df-reu 3072  df-rab 3073  df-v 3434  df-sbc 3717  df-csb 3833  df-dif 3890  df-un 3892  df-in 3894  df-ss 3904  df-pss 3906  df-nul 4257  df-if 4460  df-pw 4535  df-sn 4562  df-pr 4564  df-tp 4566  df-op 4568  df-uni 4840  df-int 4880  df-iun 4926  df-iin 4927  df-br 5075  df-opab 5137  df-mpt 5158  df-tr 5192  df-id 5489  df-eprel 5495  df-po 5503  df-so 5504  df-fr 5544  df-se 5545  df-we 5546  df-xp 5595  df-rel 5596  df-cnv 5597  df-co 5598  df-dm 5599  df-rn 5600  df-res 5601  df-ima 5602  df-pred 6202  df-ord 6269  df-on 6270  df-lim 6271  df-suc 6272  df-iota 6391  df-fun 6435  df-fn 6436  df-f 6437  df-f1 6438  df-fo 6439  df-f1o 6440  df-fv 6441  df-isom 6442  df-riota 7232  df-ov 7278  df-oprab 7279  df-mpo 7280  df-of 7533  df-ofr 7534  df-om 7713  df-1st 7831  df-2nd 7832  df-supp 7978  df-frecs 8097  df-wrecs 8128  df-recs 8202  df-rdg 8241  df-1o 8297  df-er 8498  df-map 8617  df-pm 8618  df-ixp 8686  df-en 8734  df-dom 8735  df-sdom 8736  df-fin 8737  df-fsupp 9129  df-sup 9201  df-oi 9269  df-card 9697  df-pnf 11011  df-mnf 11012  df-xr 11013  df-ltxr 11014  df-le 11015  df-sub 11207  df-neg 11208  df-nn 11974  df-2 12036  df-3 12037  df-4 12038  df-5 12039  df-6 12040  df-7 12041  df-8 12042  df-9 12043  df-n0 12234  df-z 12320  df-dec 12438  df-uz 12583  df-fz 13240  df-fzo 13383  df-seq 13722  df-hash 14045  df-struct 16848  df-sets 16865  df-slot 16883  df-ndx 16895  df-base 16913  df-ress 16942  df-plusg 16975  df-mulr 16976  df-starv 16977  df-sca 16978  df-vsca 16979  df-tset 16981  df-ple 16982  df-ds 16984  df-unif 16985  df-0g 17152  df-gsum 17153  df-mre 17295  df-mrc 17296  df-acs 17298  df-mgm 18326  df-sgrp 18375  df-mnd 18386  df-mhm 18430  df-submnd 18431  df-grp 18580  df-minusg 18581  df-mulg 18701  df-subg 18752  df-ghm 18832  df-cntz 18923  df-cmn 19388  df-abl 19389  df-mgp 19721  df-ur 19738  df-ring 19785  df-cring 19786  df-subrg 20022  df-cnfld 20598  df-psr 21112  df-mpl 21114  df-mdeg 25217

This theorem is referenced by:  mdegmulle2  25244