Theorem mdegmullem 26118

Description: Lemma for mdegmulle2 26119. (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 2761	. . . . . . . 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 22042	. . . . . . 7 ⊢ (𝜑 → (𝐹 · 𝐺) = (𝑐 ∈ 𝐴 ↦ (𝑅 Σg (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑐} ↦ ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑐 ∘f − 𝑑)))))))
9	8	fveq1d 6865	. . . . . 6 ⊢ (𝜑 → ((𝐹 · 𝐺)‘𝑥) = ((𝑐 ∈ 𝐴 ↦ (𝑅 Σg (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑐} ↦ ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑐 ∘f − 𝑑))))))‘𝑥))
10	9	adantr 484	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) → ((𝐹 · 𝐺)‘𝑥) = ((𝑐 ∈ 𝐴 ↦ (𝑅 Σg (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑐} ↦ ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑐 ∘f − 𝑑))))))‘𝑥))
11		breq2 5103	. . . . . . . . . 10 ⊢ (𝑐 = 𝑥 → (𝑒 ∘r ≤ 𝑐 ↔ 𝑒 ∘r ≤ 𝑥))
12	11	rabbidv 3420	. . . . . . . . 9 ⊢ (𝑐 = 𝑥 → {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑐} = {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥})
13		fvoveq1 7415	. . . . . . . . . 10 ⊢ (𝑐 = 𝑥 → (𝐺‘(𝑐 ∘f − 𝑑)) = (𝐺‘(𝑥 ∘f − 𝑑)))
14	13	oveq2d 7408	. . . . . . . . 9 ⊢ (𝑐 = 𝑥 → ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑐 ∘f − 𝑑))) = ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑥 ∘f − 𝑑))))
15	12, 14	mpteq12dv 5186	. . . . . . . 8 ⊢ (𝑐 = 𝑥 → (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑐} ↦ ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑐 ∘f − 𝑑)))) = (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ↦ ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑥 ∘f − 𝑑)))))
16	15	oveq2d 7408	. . . . . . 7 ⊢ (𝑐 = 𝑥 → (𝑅 Σg (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑐} ↦ ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑐 ∘f − 𝑑))))) = (𝑅 Σg (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ↦ ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑥 ∘f − 𝑑))))))
17		eqid 2761	. . . . . . 7 ⊢ (𝑐 ∈ 𝐴 ↦ (𝑅 Σg (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑐} ↦ ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑐 ∘f − 𝑑)))))) = (𝑐 ∈ 𝐴 ↦ (𝑅 Σg (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑐} ↦ ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑐 ∘f − 𝑑))))))
18		ovex 7425	. . . . . . 7 ⊢ (𝑅 Σg (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ↦ ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑥 ∘f − 𝑑))))) ∈ V
19	16, 17, 18	fvmpt 6971	. . . . . 6 ⊢ (𝑥 ∈ 𝐴 → ((𝑐 ∈ 𝐴 ↦ (𝑅 Σg (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑐} ↦ ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑐 ∘f − 𝑑))))))‘𝑥) = (𝑅 Σg (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ↦ ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑥 ∘f − 𝑑))))))
20	19	ad2antrl 738	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) → ((𝑐 ∈ 𝐴 ↦ (𝑅 Σg (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑐} ↦ ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑐 ∘f − 𝑑))))))‘𝑥) = (𝑅 Σg (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ↦ ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑥 ∘f − 𝑑))))))
21		mdegaddle.d	. . . . . . . . . . . . 13 ⊢ 𝐷 = (𝐼 mDeg 𝑅)
22		eqid 2761	. . . . . . . . . . . . 13 ⊢ (0g‘𝑅) = (0g‘𝑅)
23		mdegmullem.h	. . . . . . . . . . . . 13 ⊢ 𝐻 = (𝑏 ∈ 𝐴 ↦ (ℂfld Σg 𝑏))
24	6	ad2antrr 736	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ∧ 𝐽 < (𝐻‘𝑑))) → 𝐹 ∈ 𝐵)
25		elrabi 3646	. . . . . . . . . . . . . . 15 ⊢ (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} → 𝑑 ∈ 𝐴)
26	25	adantl 485	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → 𝑑 ∈ 𝐴)
27	26	adantrr 727	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ∧ 𝐽 < (𝐻‘𝑑))) → 𝑑 ∈ 𝐴)
28	21, 1, 2	mdegxrcl 26107	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐹 ∈ 𝐵 → (𝐷‘𝐹) ∈ ℝ*)
29	6, 28	syl 17	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (𝐷‘𝐹) ∈ ℝ*)
30	29	ad2antrr 736	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐷‘𝐹) ∈ ℝ*)
31		nn0ssre 12482	. . . . . . . . . . . . . . . . . . 19 ⊢ ℕ0 ⊆ ℝ
32		ressxr 11223	. . . . . . . . . . . . . . . . . . 19 ⊢ ℝ ⊆ ℝ*
33	31, 32	sstri 3945	. . . . . . . . . . . . . . . . . 18 ⊢ ℕ0 ⊆ ℝ*
34		mdegmulle2.j1	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → 𝐽 ∈ ℕ0)
35	33, 34	sselid 3934	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 𝐽 ∈ ℝ*)
36	35	ad2antrr 736	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → 𝐽 ∈ ℝ*)
37	5, 23	tdeglem1 26098	. . . . . . . . . . . . . . . . . . 19 ⊢ 𝐻:𝐴⟶ℕ0
38	37	a1i 11	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → 𝐻:𝐴⟶ℕ0)
39	38, 26	ffvelcdmd 7062	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐻‘𝑑) ∈ ℕ0)
40	33, 39	sselid 3934	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐻‘𝑑) ∈ ℝ*)
41	30, 36, 40	3jca 1140	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → ((𝐷‘𝐹) ∈ ℝ* ∧ 𝐽 ∈ ℝ* ∧ (𝐻‘𝑑) ∈ ℝ*))
42	41	adantrr 727	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ∧ 𝐽 < (𝐻‘𝑑))) → ((𝐷‘𝐹) ∈ ℝ* ∧ 𝐽 ∈ ℝ* ∧ (𝐻‘𝑑) ∈ ℝ*))
43		mdegmulle2.j2	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (𝐷‘𝐹) ≤ 𝐽)
44	43	ad2antrr 736	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐷‘𝐹) ≤ 𝐽)
45	44	anim1i 624	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) ∧ 𝐽 < (𝐻‘𝑑)) → ((𝐷‘𝐹) ≤ 𝐽 ∧ 𝐽 < (𝐻‘𝑑)))
46	45	anasss 470	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ∧ 𝐽 < (𝐻‘𝑑))) → ((𝐷‘𝐹) ≤ 𝐽 ∧ 𝐽 < (𝐻‘𝑑)))
47		xrlelttr 13155	. . . . . . . . . . . . . 14 ⊢ (((𝐷‘𝐹) ∈ ℝ* ∧ 𝐽 ∈ ℝ* ∧ (𝐻‘𝑑) ∈ ℝ*) → (((𝐷‘𝐹) ≤ 𝐽 ∧ 𝐽 < (𝐻‘𝑑)) → (𝐷‘𝐹) < (𝐻‘𝑑)))
48	42, 46, 47	sylc 65	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ∧ 𝐽 < (𝐻‘𝑑))) → (𝐷‘𝐹) < (𝐻‘𝑑))
49	21, 1, 2, 22, 5, 23, 24, 27, 48	mdeglt 26105	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ∧ 𝐽 < (𝐻‘𝑑))) → (𝐹‘𝑑) = (0g‘𝑅))
50	49	oveq1d 7407	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ∧ 𝐽 < (𝐻‘𝑑))) → ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑥 ∘f − 𝑑))) = ((0g‘𝑅)(.r‘𝑅)(𝐺‘(𝑥 ∘f − 𝑑))))
51		mdegaddle.r	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝑅 ∈ Ring)
52	51	ad2antrr 736	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → 𝑅 ∈ Ring)
53		eqid 2761	. . . . . . . . . . . . . . . 16 ⊢ (Base‘𝑅) = (Base‘𝑅)
54	1, 53, 2, 5, 7	mplelf 22029	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝐺:𝐴⟶(Base‘𝑅))
55	54	ad2antrr 736	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → 𝐺:𝐴⟶(Base‘𝑅))
56		ssrab2 4033	. . . . . . . . . . . . . . 15 ⊢ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ⊆ 𝐴
57		simplrl 786	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → 𝑥 ∈ 𝐴)
58		eqid 2761	. . . . . . . . . . . . . . . . 17 ⊢ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} = {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}
59	5, 58	psrbagconcl 21959	. . . . . . . . . . . . . . . 16 ⊢ ((𝑥 ∈ 𝐴 ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝑥 ∘f − 𝑑) ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥})
60	57, 59	sylancom 597	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝑥 ∘f − 𝑑) ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥})
61	56, 60	sselid 3934	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝑥 ∘f − 𝑑) ∈ 𝐴)
62	55, 61	ffvelcdmd 7062	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐺‘(𝑥 ∘f − 𝑑)) ∈ (Base‘𝑅))
63	53, 3, 22	ringlz 20322	. . . . . . . . . . . . 13 ⊢ ((𝑅 ∈ Ring ∧ (𝐺‘(𝑥 ∘f − 𝑑)) ∈ (Base‘𝑅)) → ((0g‘𝑅)(.r‘𝑅)(𝐺‘(𝑥 ∘f − 𝑑))) = (0g‘𝑅))
64	52, 62, 63	syl2anc 593	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → ((0g‘𝑅)(.r‘𝑅)(𝐺‘(𝑥 ∘f − 𝑑))) = (0g‘𝑅))
65	64	adantrr 727	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ∧ 𝐽 < (𝐻‘𝑑))) → ((0g‘𝑅)(.r‘𝑅)(𝐺‘(𝑥 ∘f − 𝑑))) = (0g‘𝑅))
66	50, 65	eqtrd 2796	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ∧ 𝐽 < (𝐻‘𝑑))) → ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑥 ∘f − 𝑑))) = (0g‘𝑅))
67	66	anassrs 471	. . . . . . . . 9 ⊢ ((((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) ∧ 𝐽 < (𝐻‘𝑑)) → ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑥 ∘f − 𝑑))) = (0g‘𝑅))
68	7	ad2antrr 736	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ∧ 𝐾 < (𝐻‘(𝑥 ∘f − 𝑑)))) → 𝐺 ∈ 𝐵)
69	61	adantrr 727	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ∧ 𝐾 < (𝐻‘(𝑥 ∘f − 𝑑)))) → (𝑥 ∘f − 𝑑) ∈ 𝐴)
70	21, 1, 2	mdegxrcl 26107	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐺 ∈ 𝐵 → (𝐷‘𝐺) ∈ ℝ*)
71	7, 70	syl 17	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (𝐷‘𝐺) ∈ ℝ*)
72	71	ad2antrr 736	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐷‘𝐺) ∈ ℝ*)
73		mdegmulle2.k1	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → 𝐾 ∈ ℕ0)
74	33, 73	sselid 3934	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 𝐾 ∈ ℝ*)
75	74	ad2antrr 736	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → 𝐾 ∈ ℝ*)
76	38, 61	ffvelcdmd 7062	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐻‘(𝑥 ∘f − 𝑑)) ∈ ℕ0)
77	33, 76	sselid 3934	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐻‘(𝑥 ∘f − 𝑑)) ∈ ℝ*)
78	72, 75, 77	3jca 1140	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → ((𝐷‘𝐺) ∈ ℝ* ∧ 𝐾 ∈ ℝ* ∧ (𝐻‘(𝑥 ∘f − 𝑑)) ∈ ℝ*))
79	78	adantrr 727	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ∧ 𝐾 < (𝐻‘(𝑥 ∘f − 𝑑)))) → ((𝐷‘𝐺) ∈ ℝ* ∧ 𝐾 ∈ ℝ* ∧ (𝐻‘(𝑥 ∘f − 𝑑)) ∈ ℝ*))
80		mdegmulle2.k2	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (𝐷‘𝐺) ≤ 𝐾)
81	80	ad2antrr 736	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐷‘𝐺) ≤ 𝐾)
82	81	anim1i 624	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) ∧ 𝐾 < (𝐻‘(𝑥 ∘f − 𝑑))) → ((𝐷‘𝐺) ≤ 𝐾 ∧ 𝐾 < (𝐻‘(𝑥 ∘f − 𝑑))))
83	82	anasss 470	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ∧ 𝐾 < (𝐻‘(𝑥 ∘f − 𝑑)))) → ((𝐷‘𝐺) ≤ 𝐾 ∧ 𝐾 < (𝐻‘(𝑥 ∘f − 𝑑))))
84		xrlelttr 13155	. . . . . . . . . . . . . 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 26105	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ∧ 𝐾 < (𝐻‘(𝑥 ∘f − 𝑑)))) → (𝐺‘(𝑥 ∘f − 𝑑)) = (0g‘𝑅))
87	86	oveq2d 7408	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ∧ 𝐾 < (𝐻‘(𝑥 ∘f − 𝑑)))) → ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑥 ∘f − 𝑑))) = ((𝐹‘𝑑)(.r‘𝑅)(0g‘𝑅)))
88	1, 53, 2, 5, 6	mplelf 22029	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝐹:𝐴⟶(Base‘𝑅))
89	88	ad2antrr 736	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → 𝐹:𝐴⟶(Base‘𝑅))
90	89, 26	ffvelcdmd 7062	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐹‘𝑑) ∈ (Base‘𝑅))
91	53, 3, 22	ringrz 20323	. . . . . . . . . . . . 13 ⊢ ((𝑅 ∈ Ring ∧ (𝐹‘𝑑) ∈ (Base‘𝑅)) → ((𝐹‘𝑑)(.r‘𝑅)(0g‘𝑅)) = (0g‘𝑅))
92	52, 90, 91	syl2anc 593	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → ((𝐹‘𝑑)(.r‘𝑅)(0g‘𝑅)) = (0g‘𝑅))
93	92	adantrr 727	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ∧ 𝐾 < (𝐻‘(𝑥 ∘f − 𝑑)))) → ((𝐹‘𝑑)(.r‘𝑅)(0g‘𝑅)) = (0g‘𝑅))
94	87, 93	eqtrd 2796	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ∧ 𝐾 < (𝐻‘(𝑥 ∘f − 𝑑)))) → ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑥 ∘f − 𝑑))) = (0g‘𝑅))
95	94	anassrs 471	. . . . . . . . 9 ⊢ ((((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) ∧ 𝐾 < (𝐻‘(𝑥 ∘f − 𝑑))) → ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑥 ∘f − 𝑑))) = (0g‘𝑅))
96		simplrr 787	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐽 + 𝐾) < (𝐻‘𝑥))
97	39	nn0red 12540	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐻‘𝑑) ∈ ℝ)
98	76	nn0red 12540	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐻‘(𝑥 ∘f − 𝑑)) ∈ ℝ)
99	34	ad2antrr 736	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → 𝐽 ∈ ℕ0)
100	99	nn0red 12540	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → 𝐽 ∈ ℝ)
101	73	ad2antrr 736	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → 𝐾 ∈ ℕ0)
102	101	nn0red 12540	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → 𝐾 ∈ ℝ)
103		le2add 11666	. . . . . . . . . . . . 13 ⊢ ((((𝐻‘𝑑) ∈ ℝ ∧ (𝐻‘(𝑥 ∘f − 𝑑)) ∈ ℝ) ∧ (𝐽 ∈ ℝ ∧ 𝐾 ∈ ℝ)) → (((𝐻‘𝑑) ≤ 𝐽 ∧ (𝐻‘(𝑥 ∘f − 𝑑)) ≤ 𝐾) → ((𝐻‘𝑑) + (𝐻‘(𝑥 ∘f − 𝑑))) ≤ (𝐽 + 𝐾)))
104	97, 98, 100, 102, 103	syl22anc 849	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (((𝐻‘𝑑) ≤ 𝐽 ∧ (𝐻‘(𝑥 ∘f − 𝑑)) ≤ 𝐾) → ((𝐻‘𝑑) + (𝐻‘(𝑥 ∘f − 𝑑))) ≤ (𝐽 + 𝐾)))
105	5, 23	tdeglem3 26099	. . . . . . . . . . . . . . 15 ⊢ ((𝑑 ∈ 𝐴 ∧ (𝑥 ∘f − 𝑑) ∈ 𝐴) → (𝐻‘(𝑑 ∘f + (𝑥 ∘f − 𝑑))) = ((𝐻‘𝑑) + (𝐻‘(𝑥 ∘f − 𝑑))))
106	26, 61, 105	syl2anc 593	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐻‘(𝑑 ∘f + (𝑥 ∘f − 𝑑))) = ((𝐻‘𝑑) + (𝐻‘(𝑥 ∘f − 𝑑))))
107		mdegaddle.i	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 𝐼 ∈ 𝑉)
108	107	ad2antrr 736	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → 𝐼 ∈ 𝑉)
109	5	psrbagf 21950	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑑 ∈ 𝐴 → 𝑑:𝐼⟶ℕ0)
110	109	3ad2ant2 1146	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑑 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴) → 𝑑:𝐼⟶ℕ0)
111	110	ffvelcdmda 7061	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝐼 ∈ 𝑉 ∧ 𝑑 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴) ∧ 𝑏 ∈ 𝐼) → (𝑑‘𝑏) ∈ ℕ0)
112	111	nn0cnd 12541	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝐼 ∈ 𝑉 ∧ 𝑑 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴) ∧ 𝑏 ∈ 𝐼) → (𝑑‘𝑏) ∈ ℂ)
113	5	psrbagf 21950	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑥 ∈ 𝐴 → 𝑥:𝐼⟶ℕ0)
114	113	3ad2ant3 1147	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑑 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴) → 𝑥:𝐼⟶ℕ0)
115	114	ffvelcdmda 7061	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝐼 ∈ 𝑉 ∧ 𝑑 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴) ∧ 𝑏 ∈ 𝐼) → (𝑥‘𝑏) ∈ ℕ0)
116	115	nn0cnd 12541	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝐼 ∈ 𝑉 ∧ 𝑑 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴) ∧ 𝑏 ∈ 𝐼) → (𝑥‘𝑏) ∈ ℂ)
117	112, 116	pncan3d 11542	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝐼 ∈ 𝑉 ∧ 𝑑 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴) ∧ 𝑏 ∈ 𝐼) → ((𝑑‘𝑏) + ((𝑥‘𝑏) − (𝑑‘𝑏))) = (𝑥‘𝑏))
118	117	mpteq2dva 5192	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑑 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴) → (𝑏 ∈ 𝐼 ↦ ((𝑑‘𝑏) + ((𝑥‘𝑏) − (𝑑‘𝑏)))) = (𝑏 ∈ 𝐼 ↦ (𝑥‘𝑏)))
119		simp1 1148	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑑 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴) → 𝐼 ∈ 𝑉)
120		fvexd 6878	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝐼 ∈ 𝑉 ∧ 𝑑 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴) ∧ 𝑏 ∈ 𝐼) → (𝑑‘𝑏) ∈ V)
121		ovexd 7427	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝐼 ∈ 𝑉 ∧ 𝑑 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴) ∧ 𝑏 ∈ 𝐼) → ((𝑥‘𝑏) − (𝑑‘𝑏)) ∈ V)
122	110	feqmptd 6931	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑑 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴) → 𝑑 = (𝑏 ∈ 𝐼 ↦ (𝑑‘𝑏)))
123		fvexd 6878	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝐼 ∈ 𝑉 ∧ 𝑑 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴) ∧ 𝑏 ∈ 𝐼) → (𝑥‘𝑏) ∈ V)
124	114	feqmptd 6931	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑑 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴) → 𝑥 = (𝑏 ∈ 𝐼 ↦ (𝑥‘𝑏)))
125	119, 123, 120, 124, 122	offval2 7676	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑑 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴) → (𝑥 ∘f − 𝑑) = (𝑏 ∈ 𝐼 ↦ ((𝑥‘𝑏) − (𝑑‘𝑏))))
126	119, 120, 121, 122, 125	offval2 7676	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑑 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴) → (𝑑 ∘f + (𝑥 ∘f − 𝑑)) = (𝑏 ∈ 𝐼 ↦ ((𝑑‘𝑏) + ((𝑥‘𝑏) − (𝑑‘𝑏)))))
127	118, 126, 124	3eqtr4d 2806	. . . . . . . . . . . . . . . 16 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑑 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴) → (𝑑 ∘f + (𝑥 ∘f − 𝑑)) = 𝑥)
128	108, 26, 57, 127	syl3anc 1389	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝑑 ∘f + (𝑥 ∘f − 𝑑)) = 𝑥)
129	128	fveq2d 6867	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐻‘(𝑑 ∘f + (𝑥 ∘f − 𝑑))) = (𝐻‘𝑥))
130	106, 129	eqtr3d 2798	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → ((𝐻‘𝑑) + (𝐻‘(𝑥 ∘f − 𝑑))) = (𝐻‘𝑥))
131	130	breq1d 5109	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (((𝐻‘𝑑) + (𝐻‘(𝑥 ∘f − 𝑑))) ≤ (𝐽 + 𝐾) ↔ (𝐻‘𝑥) ≤ (𝐽 + 𝐾)))
132	104, 131	sylibd 241	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (((𝐻‘𝑑) ≤ 𝐽 ∧ (𝐻‘(𝑥 ∘f − 𝑑)) ≤ 𝐾) → (𝐻‘𝑥) ≤ (𝐽 + 𝐾)))
133	97, 100	lenltd 11326	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → ((𝐻‘𝑑) ≤ 𝐽 ↔ ¬ 𝐽 < (𝐻‘𝑑)))
134	98, 102	lenltd 11326	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → ((𝐻‘(𝑥 ∘f − 𝑑)) ≤ 𝐾 ↔ ¬ 𝐾 < (𝐻‘(𝑥 ∘f − 𝑑))))
135	133, 134	anbi12d 641	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (((𝐻‘𝑑) ≤ 𝐽 ∧ (𝐻‘(𝑥 ∘f − 𝑑)) ≤ 𝐾) ↔ (¬ 𝐽 < (𝐻‘𝑑) ∧ ¬ 𝐾 < (𝐻‘(𝑥 ∘f − 𝑑)))))
136		ioran 996	. . . . . . . . . . . 12 ⊢ (¬ (𝐽 < (𝐻‘𝑑) ∨ 𝐾 < (𝐻‘(𝑥 ∘f − 𝑑))) ↔ (¬ 𝐽 < (𝐻‘𝑑) ∧ ¬ 𝐾 < (𝐻‘(𝑥 ∘f − 𝑑))))
137	135, 136	bitr4di 291	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (((𝐻‘𝑑) ≤ 𝐽 ∧ (𝐻‘(𝑥 ∘f − 𝑑)) ≤ 𝐾) ↔ ¬ (𝐽 < (𝐻‘𝑑) ∨ 𝐾 < (𝐻‘(𝑥 ∘f − 𝑑)))))
138	38, 57	ffvelcdmd 7062	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐻‘𝑥) ∈ ℕ0)
139	138	nn0red 12540	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐻‘𝑥) ∈ ℝ)
140	34, 73	nn0addcld 12543	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝐽 + 𝐾) ∈ ℕ0)
141	140	ad2antrr 736	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐽 + 𝐾) ∈ ℕ0)
142	141	nn0red 12540	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐽 + 𝐾) ∈ ℝ)
143	139, 142	lenltd 11326	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → ((𝐻‘𝑥) ≤ (𝐽 + 𝐾) ↔ ¬ (𝐽 + 𝐾) < (𝐻‘𝑥)))
144	132, 137, 143	3imtr3d 295	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (¬ (𝐽 < (𝐻‘𝑑) ∨ 𝐾 < (𝐻‘(𝑥 ∘f − 𝑑))) → ¬ (𝐽 + 𝐾) < (𝐻‘𝑥)))
145	96, 144	mt4d 117	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐽 < (𝐻‘𝑑) ∨ 𝐾 < (𝐻‘(𝑥 ∘f − 𝑑))))
146	67, 95, 145	mpjaodan 971	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑥 ∘f − 𝑑))) = (0g‘𝑅))
147	146	mpteq2dva 5192	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) → (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ↦ ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑥 ∘f − 𝑑)))) = (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ↦ (0g‘𝑅)))
148	147	oveq2d 7408	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) → (𝑅 Σg (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ↦ ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑥 ∘f − 𝑑))))) = (𝑅 Σg (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ↦ (0g‘𝑅))))
149		ringmnd 20272	. . . . . . . . 9 ⊢ (𝑅 ∈ Ring → 𝑅 ∈ Mnd)
150	51, 149	syl 17	. . . . . . . 8 ⊢ (𝜑 → 𝑅 ∈ Mnd)
151	150	adantr 484	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) → 𝑅 ∈ Mnd)
152		ovex 7425	. . . . . . . 8 ⊢ (ℕ0 ↑m 𝐼) ∈ V
153	5, 152	rab2ex 5297	. . . . . . 7 ⊢ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ∈ V
154	22	gsumz 18853	. . . . . . 7 ⊢ ((𝑅 ∈ Mnd ∧ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ∈ V) → (𝑅 Σg (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ↦ (0g‘𝑅))) = (0g‘𝑅))
155	151, 153, 154	sylancl 595	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) → (𝑅 Σg (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ↦ (0g‘𝑅))) = (0g‘𝑅))
156	148, 155	eqtrd 2796	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) → (𝑅 Σg (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ↦ ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑥 ∘f − 𝑑))))) = (0g‘𝑅))
157	10, 20, 156	3eqtrd 2800	. . . 4 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) → ((𝐹 · 𝐺)‘𝑥) = (0g‘𝑅))
158	157	expr 460	. . 3 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → ((𝐽 + 𝐾) < (𝐻‘𝑥) → ((𝐹 · 𝐺)‘𝑥) = (0g‘𝑅)))
159	158	ralrimiva 3153	. 2 ⊢ (𝜑 → ∀𝑥 ∈ 𝐴 ((𝐽 + 𝐾) < (𝐻‘𝑥) → ((𝐹 · 𝐺)‘𝑥) = (0g‘𝑅)))
160	1, 107, 51	mplringd 22054	. . . 4 ⊢ (𝜑 → 𝑌 ∈ Ring)
161	2, 4	ringcl 20279	. . . 4 ⊢ ((𝑌 ∈ Ring ∧ 𝐹 ∈ 𝐵 ∧ 𝐺 ∈ 𝐵) → (𝐹 · 𝐺) ∈ 𝐵)
162	160, 6, 7, 161	syl3anc 1389	. . 3 ⊢ (𝜑 → (𝐹 · 𝐺) ∈ 𝐵)
163	33, 140	sselid 3934	. . 3 ⊢ (𝜑 → (𝐽 + 𝐾) ∈ ℝ*)
164	21, 1, 2, 22, 5, 23	mdegleb 26104	. . 3 ⊢ (((𝐹 · 𝐺) ∈ 𝐵 ∧ (𝐽 + 𝐾) ∈ ℝ*) → ((𝐷‘(𝐹 · 𝐺)) ≤ (𝐽 + 𝐾) ↔ ∀𝑥 ∈ 𝐴 ((𝐽 + 𝐾) < (𝐻‘𝑥) → ((𝐹 · 𝐺)‘𝑥) = (0g‘𝑅))))
165	162, 163, 164	syl2anc 593	. 2 ⊢ (𝜑 → ((𝐷‘(𝐹 · 𝐺)) ≤ (𝐽 + 𝐾) ↔ ∀𝑥 ∈ 𝐴 ((𝐽 + 𝐾) < (𝐻‘𝑥) → ((𝐹 · 𝐺)‘𝑥) = (0g‘𝑅))))
166	159, 165	mpbird 259	1 ⊢ (𝜑 → (𝐷‘(𝐹 · 𝐺)) ≤ (𝐽 + 𝐾))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 208   ∧ wa 399   ∨ wo 858   ∧ w3a 1097   = wceq 1559   ∈ wcel 2141  ∀wral 3075  {crab 3413  Vcvv 3453   class class class wbr 5099   ↦ cmpt 5180  ^◡ccnv 5644   “ cima 5648  ⟶wf 6513  ‘cfv 6517  (class class class)co 7392   ∘_f cof 7654   ∘_r cofr 7655   ↑_m cmap 8803  Fincfn 8923  ℝcr 11069   + caddc 11073  ℝ^*cxr 11212   < clt 11213   ≤ cle 11214   − cmin 11411  ℕcn 12207  ℕ₀cn0 12478  Basecbs 17228  ._rcmulr 17270  0_gc0g 17451   Σ_g cgsu 17452  Mndcmnd 18751  Ringcrg 20262  ℂ_fldccnfld 21404   mPoly cmpl 21938   mDeg cmdg 26093

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1814  ax-4 1828  ax-5 1929  ax-6 1986  ax-7 2027  ax-8 2143  ax-9 2151  ax-10 2174  ax-11 2190  ax-12 2211  ax-ext 2733  ax-rep 5226  ax-sep 5245  ax-nul 5255  ax-pow 5321  ax-pr 5389  ax-un 7714  ax-cnex 11126  ax-resscn 11127  ax-1cn 11128  ax-icn 11129  ax-addcl 11130  ax-addrcl 11131  ax-mulcl 11132  ax-mulrcl 11133  ax-mulcom 11134  ax-addass 11135  ax-mulass 11136  ax-distr 11137  ax-i2m1 11138  ax-1ne0 11139  ax-1rid 11140  ax-rnegex 11141  ax-rrecex 11142  ax-cnre 11143  ax-pre-lttri 11144  ax-pre-lttrn 11145  ax-pre-ltadd 11146  ax-pre-mulgt0 11147  ax-pre-sup 11148  ax-addf 11149

This theorem depends on definitions:  df-bi 209  df-an 400  df-or 859  df-3or 1098  df-3an 1099  df-tru 1562  df-fal 1572  df-ex 1799  df-nf 1803  df-sb 2090  df-mo 2565  df-eu 2595  df-clab 2740  df-cleq 2753  df-clel 2836  df-nfc 2910  df-ne 2957  df-nel 3061  df-ral 3076  df-rex 3086  df-rmo 3366  df-reu 3367  df-rab 3414  df-v 3455  df-sbc 3745  df-csb 3853  df-dif 3907  df-un 3909  df-in 3911  df-ss 3921  df-pss 3924  df-nul 4286  df-if 4480  df-pw 4556  df-sn 4582  df-pr 4584  df-tp 4586  df-op 4588  df-uni 4865  df-int 4905  df-iun 4950  df-iin 4951  df-br 5100  df-opab 5162  df-mpt 5181  df-tr 5207  df-id 5540  df-eprel 5545  df-po 5553  df-so 5554  df-fr 5598  df-se 5599  df-we 5600  df-xp 5651  df-rel 5652  df-cnv 5653  df-co 5654  df-dm 5655  df-rn 5656  df-res 5657  df-ima 5658  df-pred 6284  df-ord 6345  df-on 6346  df-lim 6347  df-suc 6348  df-iota 6473  df-fun 6519  df-fn 6520  df-f 6521  df-f1 6522  df-fo 6523  df-f1o 6524  df-fv 6525  df-isom 6526  df-riota 7349  df-ov 7395  df-oprab 7396  df-mpo 7397  df-of 7656  df-ofr 7657  df-om 7843  df-1st 7966  df-2nd 7967  df-supp 8136  df-frecs 8257  df-wrecs 8288  df-recs 8337  df-rdg 8376  df-1o 8432  df-2o 8433  df-er 8673  df-map 8805  df-pm 8806  df-ixp 8876  df-en 8924  df-dom 8925  df-sdom 8926  df-fin 8927  df-fsupp 9305  df-sup 9385  df-oi 9455  df-card 9894  df-pnf 11215  df-mnf 11216  df-xr 11217  df-ltxr 11218  df-le 11219  df-sub 11413  df-neg 11414  df-nn 12208  df-2 12277  df-3 12278  df-4 12279  df-5 12280  df-6 12281  df-7 12282  df-8 12283  df-9 12284  df-n0 12479  df-z 12566  df-dec 12686  df-uz 12837  df-fz 13510  df-fzo 13657  df-seq 14012  df-hash 14341  df-struct 17166  df-sets 17183  df-slot 17201  df-ndx 17213  df-base 17229  df-ress 17250  df-plusg 17282  df-mulr 17283  df-starv 17284  df-sca 17285  df-vsca 17286  df-ip 17287  df-tset 17288  df-ple 17289  df-ds 17291  df-unif 17292  df-hom 17293  df-cco 17294  df-0g 17453  df-gsum 17454  df-prds 17459  df-pws 17461  df-mre 17597  df-mrc 17598  df-acs 17600  df-mgm 18657  df-sgrp 18736  df-mnd 18752  df-mhm 18800  df-submnd 18801  df-grp 18961  df-minusg 18962  df-mulg 19093  df-subg 19148  df-ghm 19237  df-cntz 19340  df-cmn 19805  df-abl 19806  df-mgp 20170  df-rng 20182  df-ur 20211  df-ring 20264  df-cring 20265  df-subrng 20575  df-subrg 20599  df-cnfld 21405  df-psr 21941  df-mpl 21943  df-mdeg 26095

This theorem is referenced by:  mdegmulle2  26119