Theorem mdegmullem 26131

Description: Lemma for mdegmulle2 26132. (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 2734	. . . . . . . 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 22048	. . . . . . 7 ⊢ (𝜑 → (𝐹 · 𝐺) = (𝑐 ∈ 𝐴 ↦ (𝑅 Σg (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑐} ↦ ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑐 ∘f − 𝑑)))))))
9	8	fveq1d 6908	. . . . . 6 ⊢ (𝜑 → ((𝐹 · 𝐺)‘𝑥) = ((𝑐 ∈ 𝐴 ↦ (𝑅 Σg (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑐} ↦ ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑐 ∘f − 𝑑))))))‘𝑥))
10	9	adantr 480	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) → ((𝐹 · 𝐺)‘𝑥) = ((𝑐 ∈ 𝐴 ↦ (𝑅 Σg (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑐} ↦ ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑐 ∘f − 𝑑))))))‘𝑥))
11		breq2 5151	. . . . . . . . . 10 ⊢ (𝑐 = 𝑥 → (𝑒 ∘r ≤ 𝑐 ↔ 𝑒 ∘r ≤ 𝑥))
12	11	rabbidv 3440	. . . . . . . . 9 ⊢ (𝑐 = 𝑥 → {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑐} = {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥})
13		fvoveq1 7453	. . . . . . . . . 10 ⊢ (𝑐 = 𝑥 → (𝐺‘(𝑐 ∘f − 𝑑)) = (𝐺‘(𝑥 ∘f − 𝑑)))
14	13	oveq2d 7446	. . . . . . . . 9 ⊢ (𝑐 = 𝑥 → ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑐 ∘f − 𝑑))) = ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑥 ∘f − 𝑑))))
15	12, 14	mpteq12dv 5238	. . . . . . . 8 ⊢ (𝑐 = 𝑥 → (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑐} ↦ ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑐 ∘f − 𝑑)))) = (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ↦ ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑥 ∘f − 𝑑)))))
16	15	oveq2d 7446	. . . . . . 7 ⊢ (𝑐 = 𝑥 → (𝑅 Σg (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑐} ↦ ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑐 ∘f − 𝑑))))) = (𝑅 Σg (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ↦ ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑥 ∘f − 𝑑))))))
17		eqid 2734	. . . . . . 7 ⊢ (𝑐 ∈ 𝐴 ↦ (𝑅 Σg (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑐} ↦ ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑐 ∘f − 𝑑)))))) = (𝑐 ∈ 𝐴 ↦ (𝑅 Σg (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑐} ↦ ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑐 ∘f − 𝑑))))))
18		ovex 7463	. . . . . . 7 ⊢ (𝑅 Σg (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ↦ ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑥 ∘f − 𝑑))))) ∈ V
19	16, 17, 18	fvmpt 7015	. . . . . 6 ⊢ (𝑥 ∈ 𝐴 → ((𝑐 ∈ 𝐴 ↦ (𝑅 Σg (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑐} ↦ ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑐 ∘f − 𝑑))))))‘𝑥) = (𝑅 Σg (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ↦ ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑥 ∘f − 𝑑))))))
20	19	ad2antrl 728	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) → ((𝑐 ∈ 𝐴 ↦ (𝑅 Σg (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑐} ↦ ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑐 ∘f − 𝑑))))))‘𝑥) = (𝑅 Σg (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ↦ ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑥 ∘f − 𝑑))))))
21		mdegaddle.d	. . . . . . . . . . . . 13 ⊢ 𝐷 = (𝐼 mDeg 𝑅)
22		eqid 2734	. . . . . . . . . . . . 13 ⊢ (0g‘𝑅) = (0g‘𝑅)
23		mdegmullem.h	. . . . . . . . . . . . 13 ⊢ 𝐻 = (𝑏 ∈ 𝐴 ↦ (ℂfld Σg 𝑏))
24	6	ad2antrr 726	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ∧ 𝐽 < (𝐻‘𝑑))) → 𝐹 ∈ 𝐵)
25		elrabi 3689	. . . . . . . . . . . . . . 15 ⊢ (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} → 𝑑 ∈ 𝐴)
26	25	adantl 481	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → 𝑑 ∈ 𝐴)
27	26	adantrr 717	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ∧ 𝐽 < (𝐻‘𝑑))) → 𝑑 ∈ 𝐴)
28	21, 1, 2	mdegxrcl 26120	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐹 ∈ 𝐵 → (𝐷‘𝐹) ∈ ℝ*)
29	6, 28	syl 17	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (𝐷‘𝐹) ∈ ℝ*)
30	29	ad2antrr 726	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐷‘𝐹) ∈ ℝ*)
31		nn0ssre 12527	. . . . . . . . . . . . . . . . . . 19 ⊢ ℕ0 ⊆ ℝ
32		ressxr 11302	. . . . . . . . . . . . . . . . . . 19 ⊢ ℝ ⊆ ℝ*
33	31, 32	sstri 4004	. . . . . . . . . . . . . . . . . 18 ⊢ ℕ0 ⊆ ℝ*
34		mdegmulle2.j1	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → 𝐽 ∈ ℕ0)
35	33, 34	sselid 3992	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 𝐽 ∈ ℝ*)
36	35	ad2antrr 726	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → 𝐽 ∈ ℝ*)
37	5, 23	tdeglem1 26111	. . . . . . . . . . . . . . . . . . 19 ⊢ 𝐻:𝐴⟶ℕ0
38	37	a1i 11	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → 𝐻:𝐴⟶ℕ0)
39	38, 26	ffvelcdmd 7104	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐻‘𝑑) ∈ ℕ0)
40	33, 39	sselid 3992	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐻‘𝑑) ∈ ℝ*)
41	30, 36, 40	3jca 1127	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → ((𝐷‘𝐹) ∈ ℝ* ∧ 𝐽 ∈ ℝ* ∧ (𝐻‘𝑑) ∈ ℝ*))
42	41	adantrr 717	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ∧ 𝐽 < (𝐻‘𝑑))) → ((𝐷‘𝐹) ∈ ℝ* ∧ 𝐽 ∈ ℝ* ∧ (𝐻‘𝑑) ∈ ℝ*))
43		mdegmulle2.j2	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (𝐷‘𝐹) ≤ 𝐽)
44	43	ad2antrr 726	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐷‘𝐹) ≤ 𝐽)
45	44	anim1i 615	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) ∧ 𝐽 < (𝐻‘𝑑)) → ((𝐷‘𝐹) ≤ 𝐽 ∧ 𝐽 < (𝐻‘𝑑)))
46	45	anasss 466	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ∧ 𝐽 < (𝐻‘𝑑))) → ((𝐷‘𝐹) ≤ 𝐽 ∧ 𝐽 < (𝐻‘𝑑)))
47		xrlelttr 13194	. . . . . . . . . . . . . 14 ⊢ (((𝐷‘𝐹) ∈ ℝ* ∧ 𝐽 ∈ ℝ* ∧ (𝐻‘𝑑) ∈ ℝ*) → (((𝐷‘𝐹) ≤ 𝐽 ∧ 𝐽 < (𝐻‘𝑑)) → (𝐷‘𝐹) < (𝐻‘𝑑)))
48	42, 46, 47	sylc 65	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ∧ 𝐽 < (𝐻‘𝑑))) → (𝐷‘𝐹) < (𝐻‘𝑑))
49	21, 1, 2, 22, 5, 23, 24, 27, 48	mdeglt 26118	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ∧ 𝐽 < (𝐻‘𝑑))) → (𝐹‘𝑑) = (0g‘𝑅))
50	49	oveq1d 7445	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ∧ 𝐽 < (𝐻‘𝑑))) → ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑥 ∘f − 𝑑))) = ((0g‘𝑅)(.r‘𝑅)(𝐺‘(𝑥 ∘f − 𝑑))))
51		mdegaddle.r	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝑅 ∈ Ring)
52	51	ad2antrr 726	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → 𝑅 ∈ Ring)
53		eqid 2734	. . . . . . . . . . . . . . . 16 ⊢ (Base‘𝑅) = (Base‘𝑅)
54	1, 53, 2, 5, 7	mplelf 22035	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝐺:𝐴⟶(Base‘𝑅))
55	54	ad2antrr 726	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → 𝐺:𝐴⟶(Base‘𝑅))
56		ssrab2 4089	. . . . . . . . . . . . . . 15 ⊢ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ⊆ 𝐴
57		simplrl 777	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → 𝑥 ∈ 𝐴)
58		eqid 2734	. . . . . . . . . . . . . . . . 17 ⊢ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} = {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}
59	5, 58	psrbagconcl 21964	. . . . . . . . . . . . . . . 16 ⊢ ((𝑥 ∈ 𝐴 ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝑥 ∘f − 𝑑) ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥})
60	57, 59	sylancom 588	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝑥 ∘f − 𝑑) ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥})
61	56, 60	sselid 3992	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝑥 ∘f − 𝑑) ∈ 𝐴)
62	55, 61	ffvelcdmd 7104	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐺‘(𝑥 ∘f − 𝑑)) ∈ (Base‘𝑅))
63	53, 3, 22	ringlz 20306	. . . . . . . . . . . . 13 ⊢ ((𝑅 ∈ Ring ∧ (𝐺‘(𝑥 ∘f − 𝑑)) ∈ (Base‘𝑅)) → ((0g‘𝑅)(.r‘𝑅)(𝐺‘(𝑥 ∘f − 𝑑))) = (0g‘𝑅))
64	52, 62, 63	syl2anc 584	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → ((0g‘𝑅)(.r‘𝑅)(𝐺‘(𝑥 ∘f − 𝑑))) = (0g‘𝑅))
65	64	adantrr 717	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ∧ 𝐽 < (𝐻‘𝑑))) → ((0g‘𝑅)(.r‘𝑅)(𝐺‘(𝑥 ∘f − 𝑑))) = (0g‘𝑅))
66	50, 65	eqtrd 2774	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ∧ 𝐽 < (𝐻‘𝑑))) → ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑥 ∘f − 𝑑))) = (0g‘𝑅))
67	66	anassrs 467	. . . . . . . . 9 ⊢ ((((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) ∧ 𝐽 < (𝐻‘𝑑)) → ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑥 ∘f − 𝑑))) = (0g‘𝑅))
68	7	ad2antrr 726	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ∧ 𝐾 < (𝐻‘(𝑥 ∘f − 𝑑)))) → 𝐺 ∈ 𝐵)
69	61	adantrr 717	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ∧ 𝐾 < (𝐻‘(𝑥 ∘f − 𝑑)))) → (𝑥 ∘f − 𝑑) ∈ 𝐴)
70	21, 1, 2	mdegxrcl 26120	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐺 ∈ 𝐵 → (𝐷‘𝐺) ∈ ℝ*)
71	7, 70	syl 17	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (𝐷‘𝐺) ∈ ℝ*)
72	71	ad2antrr 726	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐷‘𝐺) ∈ ℝ*)
73		mdegmulle2.k1	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → 𝐾 ∈ ℕ0)
74	33, 73	sselid 3992	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 𝐾 ∈ ℝ*)
75	74	ad2antrr 726	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → 𝐾 ∈ ℝ*)
76	38, 61	ffvelcdmd 7104	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐻‘(𝑥 ∘f − 𝑑)) ∈ ℕ0)
77	33, 76	sselid 3992	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐻‘(𝑥 ∘f − 𝑑)) ∈ ℝ*)
78	72, 75, 77	3jca 1127	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → ((𝐷‘𝐺) ∈ ℝ* ∧ 𝐾 ∈ ℝ* ∧ (𝐻‘(𝑥 ∘f − 𝑑)) ∈ ℝ*))
79	78	adantrr 717	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ∧ 𝐾 < (𝐻‘(𝑥 ∘f − 𝑑)))) → ((𝐷‘𝐺) ∈ ℝ* ∧ 𝐾 ∈ ℝ* ∧ (𝐻‘(𝑥 ∘f − 𝑑)) ∈ ℝ*))
80		mdegmulle2.k2	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (𝐷‘𝐺) ≤ 𝐾)
81	80	ad2antrr 726	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐷‘𝐺) ≤ 𝐾)
82	81	anim1i 615	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) ∧ 𝐾 < (𝐻‘(𝑥 ∘f − 𝑑))) → ((𝐷‘𝐺) ≤ 𝐾 ∧ 𝐾 < (𝐻‘(𝑥 ∘f − 𝑑))))
83	82	anasss 466	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ∧ 𝐾 < (𝐻‘(𝑥 ∘f − 𝑑)))) → ((𝐷‘𝐺) ≤ 𝐾 ∧ 𝐾 < (𝐻‘(𝑥 ∘f − 𝑑))))
84		xrlelttr 13194	. . . . . . . . . . . . . 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 26118	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ∧ 𝐾 < (𝐻‘(𝑥 ∘f − 𝑑)))) → (𝐺‘(𝑥 ∘f − 𝑑)) = (0g‘𝑅))
87	86	oveq2d 7446	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ∧ 𝐾 < (𝐻‘(𝑥 ∘f − 𝑑)))) → ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑥 ∘f − 𝑑))) = ((𝐹‘𝑑)(.r‘𝑅)(0g‘𝑅)))
88	1, 53, 2, 5, 6	mplelf 22035	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝐹:𝐴⟶(Base‘𝑅))
89	88	ad2antrr 726	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → 𝐹:𝐴⟶(Base‘𝑅))
90	89, 26	ffvelcdmd 7104	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐹‘𝑑) ∈ (Base‘𝑅))
91	53, 3, 22	ringrz 20307	. . . . . . . . . . . . 13 ⊢ ((𝑅 ∈ Ring ∧ (𝐹‘𝑑) ∈ (Base‘𝑅)) → ((𝐹‘𝑑)(.r‘𝑅)(0g‘𝑅)) = (0g‘𝑅))
92	52, 90, 91	syl2anc 584	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → ((𝐹‘𝑑)(.r‘𝑅)(0g‘𝑅)) = (0g‘𝑅))
93	92	adantrr 717	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ∧ 𝐾 < (𝐻‘(𝑥 ∘f − 𝑑)))) → ((𝐹‘𝑑)(.r‘𝑅)(0g‘𝑅)) = (0g‘𝑅))
94	87, 93	eqtrd 2774	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ∧ 𝐾 < (𝐻‘(𝑥 ∘f − 𝑑)))) → ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑥 ∘f − 𝑑))) = (0g‘𝑅))
95	94	anassrs 467	. . . . . . . . 9 ⊢ ((((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) ∧ 𝐾 < (𝐻‘(𝑥 ∘f − 𝑑))) → ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑥 ∘f − 𝑑))) = (0g‘𝑅))
96		simplrr 778	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐽 + 𝐾) < (𝐻‘𝑥))
97	39	nn0red 12585	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐻‘𝑑) ∈ ℝ)
98	76	nn0red 12585	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐻‘(𝑥 ∘f − 𝑑)) ∈ ℝ)
99	34	ad2antrr 726	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → 𝐽 ∈ ℕ0)
100	99	nn0red 12585	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → 𝐽 ∈ ℝ)
101	73	ad2antrr 726	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → 𝐾 ∈ ℕ0)
102	101	nn0red 12585	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → 𝐾 ∈ ℝ)
103		le2add 11742	. . . . . . . . . . . . 13 ⊢ ((((𝐻‘𝑑) ∈ ℝ ∧ (𝐻‘(𝑥 ∘f − 𝑑)) ∈ ℝ) ∧ (𝐽 ∈ ℝ ∧ 𝐾 ∈ ℝ)) → (((𝐻‘𝑑) ≤ 𝐽 ∧ (𝐻‘(𝑥 ∘f − 𝑑)) ≤ 𝐾) → ((𝐻‘𝑑) + (𝐻‘(𝑥 ∘f − 𝑑))) ≤ (𝐽 + 𝐾)))
104	97, 98, 100, 102, 103	syl22anc 839	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (((𝐻‘𝑑) ≤ 𝐽 ∧ (𝐻‘(𝑥 ∘f − 𝑑)) ≤ 𝐾) → ((𝐻‘𝑑) + (𝐻‘(𝑥 ∘f − 𝑑))) ≤ (𝐽 + 𝐾)))
105	5, 23	tdeglem3 26112	. . . . . . . . . . . . . . 15 ⊢ ((𝑑 ∈ 𝐴 ∧ (𝑥 ∘f − 𝑑) ∈ 𝐴) → (𝐻‘(𝑑 ∘f + (𝑥 ∘f − 𝑑))) = ((𝐻‘𝑑) + (𝐻‘(𝑥 ∘f − 𝑑))))
106	26, 61, 105	syl2anc 584	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐻‘(𝑑 ∘f + (𝑥 ∘f − 𝑑))) = ((𝐻‘𝑑) + (𝐻‘(𝑥 ∘f − 𝑑))))
107		mdegaddle.i	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 𝐼 ∈ 𝑉)
108	107	ad2antrr 726	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → 𝐼 ∈ 𝑉)
109	5	psrbagf 21955	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑑 ∈ 𝐴 → 𝑑:𝐼⟶ℕ0)
110	109	3ad2ant2 1133	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑑 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴) → 𝑑:𝐼⟶ℕ0)
111	110	ffvelcdmda 7103	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝐼 ∈ 𝑉 ∧ 𝑑 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴) ∧ 𝑏 ∈ 𝐼) → (𝑑‘𝑏) ∈ ℕ0)
112	111	nn0cnd 12586	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝐼 ∈ 𝑉 ∧ 𝑑 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴) ∧ 𝑏 ∈ 𝐼) → (𝑑‘𝑏) ∈ ℂ)
113	5	psrbagf 21955	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑥 ∈ 𝐴 → 𝑥:𝐼⟶ℕ0)
114	113	3ad2ant3 1134	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑑 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴) → 𝑥:𝐼⟶ℕ0)
115	114	ffvelcdmda 7103	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝐼 ∈ 𝑉 ∧ 𝑑 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴) ∧ 𝑏 ∈ 𝐼) → (𝑥‘𝑏) ∈ ℕ0)
116	115	nn0cnd 12586	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝐼 ∈ 𝑉 ∧ 𝑑 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴) ∧ 𝑏 ∈ 𝐼) → (𝑥‘𝑏) ∈ ℂ)
117	112, 116	pncan3d 11620	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝐼 ∈ 𝑉 ∧ 𝑑 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴) ∧ 𝑏 ∈ 𝐼) → ((𝑑‘𝑏) + ((𝑥‘𝑏) − (𝑑‘𝑏))) = (𝑥‘𝑏))
118	117	mpteq2dva 5247	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑑 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴) → (𝑏 ∈ 𝐼 ↦ ((𝑑‘𝑏) + ((𝑥‘𝑏) − (𝑑‘𝑏)))) = (𝑏 ∈ 𝐼 ↦ (𝑥‘𝑏)))
119		simp1 1135	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑑 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴) → 𝐼 ∈ 𝑉)
120		fvexd 6921	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝐼 ∈ 𝑉 ∧ 𝑑 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴) ∧ 𝑏 ∈ 𝐼) → (𝑑‘𝑏) ∈ V)
121		ovexd 7465	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝐼 ∈ 𝑉 ∧ 𝑑 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴) ∧ 𝑏 ∈ 𝐼) → ((𝑥‘𝑏) − (𝑑‘𝑏)) ∈ V)
122	110	feqmptd 6976	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑑 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴) → 𝑑 = (𝑏 ∈ 𝐼 ↦ (𝑑‘𝑏)))
123		fvexd 6921	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝐼 ∈ 𝑉 ∧ 𝑑 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴) ∧ 𝑏 ∈ 𝐼) → (𝑥‘𝑏) ∈ V)
124	114	feqmptd 6976	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑑 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴) → 𝑥 = (𝑏 ∈ 𝐼 ↦ (𝑥‘𝑏)))
125	119, 123, 120, 124, 122	offval2 7716	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑑 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴) → (𝑥 ∘f − 𝑑) = (𝑏 ∈ 𝐼 ↦ ((𝑥‘𝑏) − (𝑑‘𝑏))))
126	119, 120, 121, 122, 125	offval2 7716	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑑 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴) → (𝑑 ∘f + (𝑥 ∘f − 𝑑)) = (𝑏 ∈ 𝐼 ↦ ((𝑑‘𝑏) + ((𝑥‘𝑏) − (𝑑‘𝑏)))))
127	118, 126, 124	3eqtr4d 2784	. . . . . . . . . . . . . . . 16 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑑 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴) → (𝑑 ∘f + (𝑥 ∘f − 𝑑)) = 𝑥)
128	108, 26, 57, 127	syl3anc 1370	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝑑 ∘f + (𝑥 ∘f − 𝑑)) = 𝑥)
129	128	fveq2d 6910	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐻‘(𝑑 ∘f + (𝑥 ∘f − 𝑑))) = (𝐻‘𝑥))
130	106, 129	eqtr3d 2776	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → ((𝐻‘𝑑) + (𝐻‘(𝑥 ∘f − 𝑑))) = (𝐻‘𝑥))
131	130	breq1d 5157	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (((𝐻‘𝑑) + (𝐻‘(𝑥 ∘f − 𝑑))) ≤ (𝐽 + 𝐾) ↔ (𝐻‘𝑥) ≤ (𝐽 + 𝐾)))
132	104, 131	sylibd 239	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (((𝐻‘𝑑) ≤ 𝐽 ∧ (𝐻‘(𝑥 ∘f − 𝑑)) ≤ 𝐾) → (𝐻‘𝑥) ≤ (𝐽 + 𝐾)))
133	97, 100	lenltd 11404	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → ((𝐻‘𝑑) ≤ 𝐽 ↔ ¬ 𝐽 < (𝐻‘𝑑)))
134	98, 102	lenltd 11404	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → ((𝐻‘(𝑥 ∘f − 𝑑)) ≤ 𝐾 ↔ ¬ 𝐾 < (𝐻‘(𝑥 ∘f − 𝑑))))
135	133, 134	anbi12d 632	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (((𝐻‘𝑑) ≤ 𝐽 ∧ (𝐻‘(𝑥 ∘f − 𝑑)) ≤ 𝐾) ↔ (¬ 𝐽 < (𝐻‘𝑑) ∧ ¬ 𝐾 < (𝐻‘(𝑥 ∘f − 𝑑)))))
136		ioran 985	. . . . . . . . . . . 12 ⊢ (¬ (𝐽 < (𝐻‘𝑑) ∨ 𝐾 < (𝐻‘(𝑥 ∘f − 𝑑))) ↔ (¬ 𝐽 < (𝐻‘𝑑) ∧ ¬ 𝐾 < (𝐻‘(𝑥 ∘f − 𝑑))))
137	135, 136	bitr4di 289	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (((𝐻‘𝑑) ≤ 𝐽 ∧ (𝐻‘(𝑥 ∘f − 𝑑)) ≤ 𝐾) ↔ ¬ (𝐽 < (𝐻‘𝑑) ∨ 𝐾 < (𝐻‘(𝑥 ∘f − 𝑑)))))
138	38, 57	ffvelcdmd 7104	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐻‘𝑥) ∈ ℕ0)
139	138	nn0red 12585	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐻‘𝑥) ∈ ℝ)
140	34, 73	nn0addcld 12588	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝐽 + 𝐾) ∈ ℕ0)
141	140	ad2antrr 726	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐽 + 𝐾) ∈ ℕ0)
142	141	nn0red 12585	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐽 + 𝐾) ∈ ℝ)
143	139, 142	lenltd 11404	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → ((𝐻‘𝑥) ≤ (𝐽 + 𝐾) ↔ ¬ (𝐽 + 𝐾) < (𝐻‘𝑥)))
144	132, 137, 143	3imtr3d 293	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (¬ (𝐽 < (𝐻‘𝑑) ∨ 𝐾 < (𝐻‘(𝑥 ∘f − 𝑑))) → ¬ (𝐽 + 𝐾) < (𝐻‘𝑥)))
145	96, 144	mt4d 117	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐽 < (𝐻‘𝑑) ∨ 𝐾 < (𝐻‘(𝑥 ∘f − 𝑑))))
146	67, 95, 145	mpjaodan 960	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑥 ∘f − 𝑑))) = (0g‘𝑅))
147	146	mpteq2dva 5247	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) → (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ↦ ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑥 ∘f − 𝑑)))) = (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ↦ (0g‘𝑅)))
148	147	oveq2d 7446	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) → (𝑅 Σg (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ↦ ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑥 ∘f − 𝑑))))) = (𝑅 Σg (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ↦ (0g‘𝑅))))
149		ringmnd 20260	. . . . . . . . 9 ⊢ (𝑅 ∈ Ring → 𝑅 ∈ Mnd)
150	51, 149	syl 17	. . . . . . . 8 ⊢ (𝜑 → 𝑅 ∈ Mnd)
151	150	adantr 480	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) → 𝑅 ∈ Mnd)
152		ovex 7463	. . . . . . . 8 ⊢ (ℕ0 ↑m 𝐼) ∈ V
153	5, 152	rab2ex 5347	. . . . . . 7 ⊢ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ∈ V
154	22	gsumz 18861	. . . . . . 7 ⊢ ((𝑅 ∈ Mnd ∧ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ∈ V) → (𝑅 Σg (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ↦ (0g‘𝑅))) = (0g‘𝑅))
155	151, 153, 154	sylancl 586	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) → (𝑅 Σg (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ↦ (0g‘𝑅))) = (0g‘𝑅))
156	148, 155	eqtrd 2774	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) → (𝑅 Σg (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ↦ ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑥 ∘f − 𝑑))))) = (0g‘𝑅))
157	10, 20, 156	3eqtrd 2778	. . . 4 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) → ((𝐹 · 𝐺)‘𝑥) = (0g‘𝑅))
158	157	expr 456	. . 3 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → ((𝐽 + 𝐾) < (𝐻‘𝑥) → ((𝐹 · 𝐺)‘𝑥) = (0g‘𝑅)))
159	158	ralrimiva 3143	. 2 ⊢ (𝜑 → ∀𝑥 ∈ 𝐴 ((𝐽 + 𝐾) < (𝐻‘𝑥) → ((𝐹 · 𝐺)‘𝑥) = (0g‘𝑅)))
160	1, 107, 51	mplringd 22060	. . . 4 ⊢ (𝜑 → 𝑌 ∈ Ring)
161	2, 4	ringcl 20267	. . . 4 ⊢ ((𝑌 ∈ Ring ∧ 𝐹 ∈ 𝐵 ∧ 𝐺 ∈ 𝐵) → (𝐹 · 𝐺) ∈ 𝐵)
162	160, 6, 7, 161	syl3anc 1370	. . 3 ⊢ (𝜑 → (𝐹 · 𝐺) ∈ 𝐵)
163	33, 140	sselid 3992	. . 3 ⊢ (𝜑 → (𝐽 + 𝐾) ∈ ℝ*)
164	21, 1, 2, 22, 5, 23	mdegleb 26117	. . 3 ⊢ (((𝐹 · 𝐺) ∈ 𝐵 ∧ (𝐽 + 𝐾) ∈ ℝ*) → ((𝐷‘(𝐹 · 𝐺)) ≤ (𝐽 + 𝐾) ↔ ∀𝑥 ∈ 𝐴 ((𝐽 + 𝐾) < (𝐻‘𝑥) → ((𝐹 · 𝐺)‘𝑥) = (0g‘𝑅))))
165	162, 163, 164	syl2anc 584	. 2 ⊢ (𝜑 → ((𝐷‘(𝐹 · 𝐺)) ≤ (𝐽 + 𝐾) ↔ ∀𝑥 ∈ 𝐴 ((𝐽 + 𝐾) < (𝐻‘𝑥) → ((𝐹 · 𝐺)‘𝑥) = (0g‘𝑅))))
166	159, 165	mpbird 257	1 ⊢ (𝜑 → (𝐷‘(𝐹 · 𝐺)) ≤ (𝐽 + 𝐾))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 206   ∧ wa 395   ∨ wo 847   ∧ w3a 1086   = wceq 1536   ∈ wcel 2105  ∀wral 3058  {crab 3432  Vcvv 3477   class class class wbr 5147   ↦ cmpt 5230  ^◡ccnv 5687   “ cima 5691  ⟶wf 6558  ‘cfv 6562  (class class class)co 7430   ∘_f cof 7694   ∘_r cofr 7695   ↑_m cmap 8864  Fincfn 8983  ℝcr 11151   + caddc 11155  ℝ^*cxr 11291   < clt 11292   ≤ cle 11293   − cmin 11489  ℕcn 12263  ℕ₀cn0 12523  Basecbs 17244  ._rcmulr 17298  0_gc0g 17485   Σ_g cgsu 17486  Mndcmnd 18759  Ringcrg 20250  ℂ_fldccnfld 21381   mPoly cmpl 21943   mDeg cmdg 26106

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1791  ax-4 1805  ax-5 1907  ax-6 1964  ax-7 2004  ax-8 2107  ax-9 2115  ax-10 2138  ax-11 2154  ax-12 2174  ax-ext 2705  ax-rep 5284  ax-sep 5301  ax-nul 5311  ax-pow 5370  ax-pr 5437  ax-un 7753  ax-cnex 11208  ax-resscn 11209  ax-1cn 11210  ax-icn 11211  ax-addcl 11212  ax-addrcl 11213  ax-mulcl 11214  ax-mulrcl 11215  ax-mulcom 11216  ax-addass 11217  ax-mulass 11218  ax-distr 11219  ax-i2m1 11220  ax-1ne0 11221  ax-1rid 11222  ax-rnegex 11223  ax-rrecex 11224  ax-cnre 11225  ax-pre-lttri 11226  ax-pre-lttrn 11227  ax-pre-ltadd 11228  ax-pre-mulgt0 11229  ax-pre-sup 11230  ax-addf 11231

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1539  df-fal 1549  df-ex 1776  df-nf 1780  df-sb 2062  df-mo 2537  df-eu 2566  df-clab 2712  df-cleq 2726  df-clel 2813  df-nfc 2889  df-ne 2938  df-nel 3044  df-ral 3059  df-rex 3068  df-rmo 3377  df-reu 3378  df-rab 3433  df-v 3479  df-sbc 3791  df-csb 3908  df-dif 3965  df-un 3967  df-in 3969  df-ss 3979  df-pss 3982  df-nul 4339  df-if 4531  df-pw 4606  df-sn 4631  df-pr 4633  df-tp 4635  df-op 4637  df-uni 4912  df-int 4951  df-iun 4997  df-iin 4998  df-br 5148  df-opab 5210  df-mpt 5231  df-tr 5265  df-id 5582  df-eprel 5588  df-po 5596  df-so 5597  df-fr 5640  df-se 5641  df-we 5642  df-xp 5694  df-rel 5695  df-cnv 5696  df-co 5697  df-dm 5698  df-rn 5699  df-res 5700  df-ima 5701  df-pred 6322  df-ord 6388  df-on 6389  df-lim 6390  df-suc 6391  df-iota 6515  df-fun 6564  df-fn 6565  df-f 6566  df-f1 6567  df-fo 6568  df-f1o 6569  df-fv 6570  df-isom 6571  df-riota 7387  df-ov 7433  df-oprab 7434  df-mpo 7435  df-of 7696  df-ofr 7697  df-om 7887  df-1st 8012  df-2nd 8013  df-supp 8184  df-frecs 8304  df-wrecs 8335  df-recs 8409  df-rdg 8448  df-1o 8504  df-2o 8505  df-er 8743  df-map 8866  df-pm 8867  df-ixp 8936  df-en 8984  df-dom 8985  df-sdom 8986  df-fin 8987  df-fsupp 9399  df-sup 9479  df-oi 9547  df-card 9976  df-pnf 11294  df-mnf 11295  df-xr 11296  df-ltxr 11297  df-le 11298  df-sub 11491  df-neg 11492  df-nn 12264  df-2 12326  df-3 12327  df-4 12328  df-5 12329  df-6 12330  df-7 12331  df-8 12332  df-9 12333  df-n0 12524  df-z 12611  df-dec 12731  df-uz 12876  df-fz 13544  df-fzo 13691  df-seq 14039  df-hash 14366  df-struct 17180  df-sets 17197  df-slot 17215  df-ndx 17227  df-base 17245  df-ress 17274  df-plusg 17310  df-mulr 17311  df-starv 17312  df-sca 17313  df-vsca 17314  df-ip 17315  df-tset 17316  df-ple 17317  df-ds 17319  df-unif 17320  df-hom 17321  df-cco 17322  df-0g 17487  df-gsum 17488  df-prds 17493  df-pws 17495  df-mre 17630  df-mrc 17631  df-acs 17633  df-mgm 18665  df-sgrp 18744  df-mnd 18760  df-mhm 18808  df-submnd 18809  df-grp 18966  df-minusg 18967  df-mulg 19098  df-subg 19153  df-ghm 19243  df-cntz 19347  df-cmn 19814  df-abl 19815  df-mgp 20152  df-rng 20170  df-ur 20199  df-ring 20252  df-cring 20253  df-subrng 20562  df-subrg 20586  df-cnfld 21382  df-psr 21946  df-mpl 21948  df-mdeg 26108

This theorem is referenced by:  mdegmulle2  26132