Theorem mdegmullem 26137

Description: Lemma for mdegmulle2 26138. (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 2740	. . . . . . . 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 22054	. . . . . . 7 ⊢ (𝜑 → (𝐹 · 𝐺) = (𝑐 ∈ 𝐴 ↦ (𝑅 Σg (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑐} ↦ ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑐 ∘f − 𝑑)))))))
9	8	fveq1d 6922	. . . . . 6 ⊢ (𝜑 → ((𝐹 · 𝐺)‘𝑥) = ((𝑐 ∈ 𝐴 ↦ (𝑅 Σg (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑐} ↦ ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑐 ∘f − 𝑑))))))‘𝑥))
10	9	adantr 480	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) → ((𝐹 · 𝐺)‘𝑥) = ((𝑐 ∈ 𝐴 ↦ (𝑅 Σg (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑐} ↦ ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑐 ∘f − 𝑑))))))‘𝑥))
11		breq2 5170	. . . . . . . . . 10 ⊢ (𝑐 = 𝑥 → (𝑒 ∘r ≤ 𝑐 ↔ 𝑒 ∘r ≤ 𝑥))
12	11	rabbidv 3451	. . . . . . . . 9 ⊢ (𝑐 = 𝑥 → {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑐} = {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥})
13		fvoveq1 7471	. . . . . . . . . 10 ⊢ (𝑐 = 𝑥 → (𝐺‘(𝑐 ∘f − 𝑑)) = (𝐺‘(𝑥 ∘f − 𝑑)))
14	13	oveq2d 7464	. . . . . . . . 9 ⊢ (𝑐 = 𝑥 → ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑐 ∘f − 𝑑))) = ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑥 ∘f − 𝑑))))
15	12, 14	mpteq12dv 5257	. . . . . . . 8 ⊢ (𝑐 = 𝑥 → (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑐} ↦ ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑐 ∘f − 𝑑)))) = (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ↦ ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑥 ∘f − 𝑑)))))
16	15	oveq2d 7464	. . . . . . 7 ⊢ (𝑐 = 𝑥 → (𝑅 Σg (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑐} ↦ ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑐 ∘f − 𝑑))))) = (𝑅 Σg (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ↦ ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑥 ∘f − 𝑑))))))
17		eqid 2740	. . . . . . 7 ⊢ (𝑐 ∈ 𝐴 ↦ (𝑅 Σg (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑐} ↦ ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑐 ∘f − 𝑑)))))) = (𝑐 ∈ 𝐴 ↦ (𝑅 Σg (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑐} ↦ ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑐 ∘f − 𝑑))))))
18		ovex 7481	. . . . . . 7 ⊢ (𝑅 Σg (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ↦ ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑥 ∘f − 𝑑))))) ∈ V
19	16, 17, 18	fvmpt 7029	. . . . . 6 ⊢ (𝑥 ∈ 𝐴 → ((𝑐 ∈ 𝐴 ↦ (𝑅 Σg (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑐} ↦ ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑐 ∘f − 𝑑))))))‘𝑥) = (𝑅 Σg (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ↦ ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑥 ∘f − 𝑑))))))
20	19	ad2antrl 727	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) → ((𝑐 ∈ 𝐴 ↦ (𝑅 Σg (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑐} ↦ ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑐 ∘f − 𝑑))))))‘𝑥) = (𝑅 Σg (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ↦ ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑥 ∘f − 𝑑))))))
21		mdegaddle.d	. . . . . . . . . . . . 13 ⊢ 𝐷 = (𝐼 mDeg 𝑅)
22		eqid 2740	. . . . . . . . . . . . 13 ⊢ (0g‘𝑅) = (0g‘𝑅)
23		mdegmullem.h	. . . . . . . . . . . . 13 ⊢ 𝐻 = (𝑏 ∈ 𝐴 ↦ (ℂfld Σg 𝑏))
24	6	ad2antrr 725	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ∧ 𝐽 < (𝐻‘𝑑))) → 𝐹 ∈ 𝐵)
25		elrabi 3703	. . . . . . . . . . . . . . 15 ⊢ (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} → 𝑑 ∈ 𝐴)
26	25	adantl 481	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → 𝑑 ∈ 𝐴)
27	26	adantrr 716	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ∧ 𝐽 < (𝐻‘𝑑))) → 𝑑 ∈ 𝐴)
28	21, 1, 2	mdegxrcl 26126	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐹 ∈ 𝐵 → (𝐷‘𝐹) ∈ ℝ*)
29	6, 28	syl 17	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (𝐷‘𝐹) ∈ ℝ*)
30	29	ad2antrr 725	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐷‘𝐹) ∈ ℝ*)
31		nn0ssre 12557	. . . . . . . . . . . . . . . . . . 19 ⊢ ℕ0 ⊆ ℝ
32		ressxr 11334	. . . . . . . . . . . . . . . . . . 19 ⊢ ℝ ⊆ ℝ*
33	31, 32	sstri 4018	. . . . . . . . . . . . . . . . . 18 ⊢ ℕ0 ⊆ ℝ*
34		mdegmulle2.j1	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → 𝐽 ∈ ℕ0)
35	33, 34	sselid 4006	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 𝐽 ∈ ℝ*)
36	35	ad2antrr 725	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → 𝐽 ∈ ℝ*)
37	5, 23	tdeglem1 26117	. . . . . . . . . . . . . . . . . . 19 ⊢ 𝐻:𝐴⟶ℕ0
38	37	a1i 11	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → 𝐻:𝐴⟶ℕ0)
39	38, 26	ffvelcdmd 7119	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐻‘𝑑) ∈ ℕ0)
40	33, 39	sselid 4006	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐻‘𝑑) ∈ ℝ*)
41	30, 36, 40	3jca 1128	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → ((𝐷‘𝐹) ∈ ℝ* ∧ 𝐽 ∈ ℝ* ∧ (𝐻‘𝑑) ∈ ℝ*))
42	41	adantrr 716	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ∧ 𝐽 < (𝐻‘𝑑))) → ((𝐷‘𝐹) ∈ ℝ* ∧ 𝐽 ∈ ℝ* ∧ (𝐻‘𝑑) ∈ ℝ*))
43		mdegmulle2.j2	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (𝐷‘𝐹) ≤ 𝐽)
44	43	ad2antrr 725	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐷‘𝐹) ≤ 𝐽)
45	44	anim1i 614	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) ∧ 𝐽 < (𝐻‘𝑑)) → ((𝐷‘𝐹) ≤ 𝐽 ∧ 𝐽 < (𝐻‘𝑑)))
46	45	anasss 466	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ∧ 𝐽 < (𝐻‘𝑑))) → ((𝐷‘𝐹) ≤ 𝐽 ∧ 𝐽 < (𝐻‘𝑑)))
47		xrlelttr 13218	. . . . . . . . . . . . . 14 ⊢ (((𝐷‘𝐹) ∈ ℝ* ∧ 𝐽 ∈ ℝ* ∧ (𝐻‘𝑑) ∈ ℝ*) → (((𝐷‘𝐹) ≤ 𝐽 ∧ 𝐽 < (𝐻‘𝑑)) → (𝐷‘𝐹) < (𝐻‘𝑑)))
48	42, 46, 47	sylc 65	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ∧ 𝐽 < (𝐻‘𝑑))) → (𝐷‘𝐹) < (𝐻‘𝑑))
49	21, 1, 2, 22, 5, 23, 24, 27, 48	mdeglt 26124	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ∧ 𝐽 < (𝐻‘𝑑))) → (𝐹‘𝑑) = (0g‘𝑅))
50	49	oveq1d 7463	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ∧ 𝐽 < (𝐻‘𝑑))) → ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑥 ∘f − 𝑑))) = ((0g‘𝑅)(.r‘𝑅)(𝐺‘(𝑥 ∘f − 𝑑))))
51		mdegaddle.r	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝑅 ∈ Ring)
52	51	ad2antrr 725	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → 𝑅 ∈ Ring)
53		eqid 2740	. . . . . . . . . . . . . . . 16 ⊢ (Base‘𝑅) = (Base‘𝑅)
54	1, 53, 2, 5, 7	mplelf 22041	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝐺:𝐴⟶(Base‘𝑅))
55	54	ad2antrr 725	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → 𝐺:𝐴⟶(Base‘𝑅))
56		ssrab2 4103	. . . . . . . . . . . . . . 15 ⊢ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ⊆ 𝐴
57		simplrl 776	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → 𝑥 ∈ 𝐴)
58		eqid 2740	. . . . . . . . . . . . . . . . 17 ⊢ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} = {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}
59	5, 58	psrbagconcl 21970	. . . . . . . . . . . . . . . 16 ⊢ ((𝑥 ∈ 𝐴 ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝑥 ∘f − 𝑑) ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥})
60	57, 59	sylancom 587	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝑥 ∘f − 𝑑) ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥})
61	56, 60	sselid 4006	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝑥 ∘f − 𝑑) ∈ 𝐴)
62	55, 61	ffvelcdmd 7119	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐺‘(𝑥 ∘f − 𝑑)) ∈ (Base‘𝑅))
63	53, 3, 22	ringlz 20316	. . . . . . . . . . . . 13 ⊢ ((𝑅 ∈ Ring ∧ (𝐺‘(𝑥 ∘f − 𝑑)) ∈ (Base‘𝑅)) → ((0g‘𝑅)(.r‘𝑅)(𝐺‘(𝑥 ∘f − 𝑑))) = (0g‘𝑅))
64	52, 62, 63	syl2anc 583	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → ((0g‘𝑅)(.r‘𝑅)(𝐺‘(𝑥 ∘f − 𝑑))) = (0g‘𝑅))
65	64	adantrr 716	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ∧ 𝐽 < (𝐻‘𝑑))) → ((0g‘𝑅)(.r‘𝑅)(𝐺‘(𝑥 ∘f − 𝑑))) = (0g‘𝑅))
66	50, 65	eqtrd 2780	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ∧ 𝐽 < (𝐻‘𝑑))) → ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑥 ∘f − 𝑑))) = (0g‘𝑅))
67	66	anassrs 467	. . . . . . . . 9 ⊢ ((((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) ∧ 𝐽 < (𝐻‘𝑑)) → ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑥 ∘f − 𝑑))) = (0g‘𝑅))
68	7	ad2antrr 725	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ∧ 𝐾 < (𝐻‘(𝑥 ∘f − 𝑑)))) → 𝐺 ∈ 𝐵)
69	61	adantrr 716	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ∧ 𝐾 < (𝐻‘(𝑥 ∘f − 𝑑)))) → (𝑥 ∘f − 𝑑) ∈ 𝐴)
70	21, 1, 2	mdegxrcl 26126	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐺 ∈ 𝐵 → (𝐷‘𝐺) ∈ ℝ*)
71	7, 70	syl 17	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (𝐷‘𝐺) ∈ ℝ*)
72	71	ad2antrr 725	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐷‘𝐺) ∈ ℝ*)
73		mdegmulle2.k1	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → 𝐾 ∈ ℕ0)
74	33, 73	sselid 4006	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 𝐾 ∈ ℝ*)
75	74	ad2antrr 725	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → 𝐾 ∈ ℝ*)
76	38, 61	ffvelcdmd 7119	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐻‘(𝑥 ∘f − 𝑑)) ∈ ℕ0)
77	33, 76	sselid 4006	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐻‘(𝑥 ∘f − 𝑑)) ∈ ℝ*)
78	72, 75, 77	3jca 1128	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → ((𝐷‘𝐺) ∈ ℝ* ∧ 𝐾 ∈ ℝ* ∧ (𝐻‘(𝑥 ∘f − 𝑑)) ∈ ℝ*))
79	78	adantrr 716	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ∧ 𝐾 < (𝐻‘(𝑥 ∘f − 𝑑)))) → ((𝐷‘𝐺) ∈ ℝ* ∧ 𝐾 ∈ ℝ* ∧ (𝐻‘(𝑥 ∘f − 𝑑)) ∈ ℝ*))
80		mdegmulle2.k2	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (𝐷‘𝐺) ≤ 𝐾)
81	80	ad2antrr 725	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐷‘𝐺) ≤ 𝐾)
82	81	anim1i 614	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) ∧ 𝐾 < (𝐻‘(𝑥 ∘f − 𝑑))) → ((𝐷‘𝐺) ≤ 𝐾 ∧ 𝐾 < (𝐻‘(𝑥 ∘f − 𝑑))))
83	82	anasss 466	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ∧ 𝐾 < (𝐻‘(𝑥 ∘f − 𝑑)))) → ((𝐷‘𝐺) ≤ 𝐾 ∧ 𝐾 < (𝐻‘(𝑥 ∘f − 𝑑))))
84		xrlelttr 13218	. . . . . . . . . . . . . 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 26124	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ∧ 𝐾 < (𝐻‘(𝑥 ∘f − 𝑑)))) → (𝐺‘(𝑥 ∘f − 𝑑)) = (0g‘𝑅))
87	86	oveq2d 7464	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ∧ 𝐾 < (𝐻‘(𝑥 ∘f − 𝑑)))) → ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑥 ∘f − 𝑑))) = ((𝐹‘𝑑)(.r‘𝑅)(0g‘𝑅)))
88	1, 53, 2, 5, 6	mplelf 22041	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝐹:𝐴⟶(Base‘𝑅))
89	88	ad2antrr 725	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → 𝐹:𝐴⟶(Base‘𝑅))
90	89, 26	ffvelcdmd 7119	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐹‘𝑑) ∈ (Base‘𝑅))
91	53, 3, 22	ringrz 20317	. . . . . . . . . . . . 13 ⊢ ((𝑅 ∈ Ring ∧ (𝐹‘𝑑) ∈ (Base‘𝑅)) → ((𝐹‘𝑑)(.r‘𝑅)(0g‘𝑅)) = (0g‘𝑅))
92	52, 90, 91	syl2anc 583	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → ((𝐹‘𝑑)(.r‘𝑅)(0g‘𝑅)) = (0g‘𝑅))
93	92	adantrr 716	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ∧ 𝐾 < (𝐻‘(𝑥 ∘f − 𝑑)))) → ((𝐹‘𝑑)(.r‘𝑅)(0g‘𝑅)) = (0g‘𝑅))
94	87, 93	eqtrd 2780	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ∧ 𝐾 < (𝐻‘(𝑥 ∘f − 𝑑)))) → ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑥 ∘f − 𝑑))) = (0g‘𝑅))
95	94	anassrs 467	. . . . . . . . 9 ⊢ ((((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) ∧ 𝐾 < (𝐻‘(𝑥 ∘f − 𝑑))) → ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑥 ∘f − 𝑑))) = (0g‘𝑅))
96		simplrr 777	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐽 + 𝐾) < (𝐻‘𝑥))
97	39	nn0red 12614	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐻‘𝑑) ∈ ℝ)
98	76	nn0red 12614	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐻‘(𝑥 ∘f − 𝑑)) ∈ ℝ)
99	34	ad2antrr 725	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → 𝐽 ∈ ℕ0)
100	99	nn0red 12614	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → 𝐽 ∈ ℝ)
101	73	ad2antrr 725	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → 𝐾 ∈ ℕ0)
102	101	nn0red 12614	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → 𝐾 ∈ ℝ)
103		le2add 11772	. . . . . . . . . . . . 13 ⊢ ((((𝐻‘𝑑) ∈ ℝ ∧ (𝐻‘(𝑥 ∘f − 𝑑)) ∈ ℝ) ∧ (𝐽 ∈ ℝ ∧ 𝐾 ∈ ℝ)) → (((𝐻‘𝑑) ≤ 𝐽 ∧ (𝐻‘(𝑥 ∘f − 𝑑)) ≤ 𝐾) → ((𝐻‘𝑑) + (𝐻‘(𝑥 ∘f − 𝑑))) ≤ (𝐽 + 𝐾)))
104	97, 98, 100, 102, 103	syl22anc 838	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (((𝐻‘𝑑) ≤ 𝐽 ∧ (𝐻‘(𝑥 ∘f − 𝑑)) ≤ 𝐾) → ((𝐻‘𝑑) + (𝐻‘(𝑥 ∘f − 𝑑))) ≤ (𝐽 + 𝐾)))
105	5, 23	tdeglem3 26118	. . . . . . . . . . . . . . 15 ⊢ ((𝑑 ∈ 𝐴 ∧ (𝑥 ∘f − 𝑑) ∈ 𝐴) → (𝐻‘(𝑑 ∘f + (𝑥 ∘f − 𝑑))) = ((𝐻‘𝑑) + (𝐻‘(𝑥 ∘f − 𝑑))))
106	26, 61, 105	syl2anc 583	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐻‘(𝑑 ∘f + (𝑥 ∘f − 𝑑))) = ((𝐻‘𝑑) + (𝐻‘(𝑥 ∘f − 𝑑))))
107		mdegaddle.i	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 𝐼 ∈ 𝑉)
108	107	ad2antrr 725	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → 𝐼 ∈ 𝑉)
109	5	psrbagf 21961	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑑 ∈ 𝐴 → 𝑑:𝐼⟶ℕ0)
110	109	3ad2ant2 1134	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑑 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴) → 𝑑:𝐼⟶ℕ0)
111	110	ffvelcdmda 7118	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝐼 ∈ 𝑉 ∧ 𝑑 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴) ∧ 𝑏 ∈ 𝐼) → (𝑑‘𝑏) ∈ ℕ0)
112	111	nn0cnd 12615	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝐼 ∈ 𝑉 ∧ 𝑑 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴) ∧ 𝑏 ∈ 𝐼) → (𝑑‘𝑏) ∈ ℂ)
113	5	psrbagf 21961	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑥 ∈ 𝐴 → 𝑥:𝐼⟶ℕ0)
114	113	3ad2ant3 1135	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑑 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴) → 𝑥:𝐼⟶ℕ0)
115	114	ffvelcdmda 7118	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝐼 ∈ 𝑉 ∧ 𝑑 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴) ∧ 𝑏 ∈ 𝐼) → (𝑥‘𝑏) ∈ ℕ0)
116	115	nn0cnd 12615	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝐼 ∈ 𝑉 ∧ 𝑑 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴) ∧ 𝑏 ∈ 𝐼) → (𝑥‘𝑏) ∈ ℂ)
117	112, 116	pncan3d 11650	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝐼 ∈ 𝑉 ∧ 𝑑 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴) ∧ 𝑏 ∈ 𝐼) → ((𝑑‘𝑏) + ((𝑥‘𝑏) − (𝑑‘𝑏))) = (𝑥‘𝑏))
118	117	mpteq2dva 5266	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑑 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴) → (𝑏 ∈ 𝐼 ↦ ((𝑑‘𝑏) + ((𝑥‘𝑏) − (𝑑‘𝑏)))) = (𝑏 ∈ 𝐼 ↦ (𝑥‘𝑏)))
119		simp1 1136	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑑 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴) → 𝐼 ∈ 𝑉)
120		fvexd 6935	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝐼 ∈ 𝑉 ∧ 𝑑 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴) ∧ 𝑏 ∈ 𝐼) → (𝑑‘𝑏) ∈ V)
121		ovexd 7483	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝐼 ∈ 𝑉 ∧ 𝑑 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴) ∧ 𝑏 ∈ 𝐼) → ((𝑥‘𝑏) − (𝑑‘𝑏)) ∈ V)
122	110	feqmptd 6990	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑑 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴) → 𝑑 = (𝑏 ∈ 𝐼 ↦ (𝑑‘𝑏)))
123		fvexd 6935	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝐼 ∈ 𝑉 ∧ 𝑑 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴) ∧ 𝑏 ∈ 𝐼) → (𝑥‘𝑏) ∈ V)
124	114	feqmptd 6990	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑑 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴) → 𝑥 = (𝑏 ∈ 𝐼 ↦ (𝑥‘𝑏)))
125	119, 123, 120, 124, 122	offval2 7734	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑑 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴) → (𝑥 ∘f − 𝑑) = (𝑏 ∈ 𝐼 ↦ ((𝑥‘𝑏) − (𝑑‘𝑏))))
126	119, 120, 121, 122, 125	offval2 7734	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑑 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴) → (𝑑 ∘f + (𝑥 ∘f − 𝑑)) = (𝑏 ∈ 𝐼 ↦ ((𝑑‘𝑏) + ((𝑥‘𝑏) − (𝑑‘𝑏)))))
127	118, 126, 124	3eqtr4d 2790	. . . . . . . . . . . . . . . 16 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑑 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴) → (𝑑 ∘f + (𝑥 ∘f − 𝑑)) = 𝑥)
128	108, 26, 57, 127	syl3anc 1371	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝑑 ∘f + (𝑥 ∘f − 𝑑)) = 𝑥)
129	128	fveq2d 6924	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐻‘(𝑑 ∘f + (𝑥 ∘f − 𝑑))) = (𝐻‘𝑥))
130	106, 129	eqtr3d 2782	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → ((𝐻‘𝑑) + (𝐻‘(𝑥 ∘f − 𝑑))) = (𝐻‘𝑥))
131	130	breq1d 5176	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (((𝐻‘𝑑) + (𝐻‘(𝑥 ∘f − 𝑑))) ≤ (𝐽 + 𝐾) ↔ (𝐻‘𝑥) ≤ (𝐽 + 𝐾)))
132	104, 131	sylibd 239	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (((𝐻‘𝑑) ≤ 𝐽 ∧ (𝐻‘(𝑥 ∘f − 𝑑)) ≤ 𝐾) → (𝐻‘𝑥) ≤ (𝐽 + 𝐾)))
133	97, 100	lenltd 11436	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → ((𝐻‘𝑑) ≤ 𝐽 ↔ ¬ 𝐽 < (𝐻‘𝑑)))
134	98, 102	lenltd 11436	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → ((𝐻‘(𝑥 ∘f − 𝑑)) ≤ 𝐾 ↔ ¬ 𝐾 < (𝐻‘(𝑥 ∘f − 𝑑))))
135	133, 134	anbi12d 631	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (((𝐻‘𝑑) ≤ 𝐽 ∧ (𝐻‘(𝑥 ∘f − 𝑑)) ≤ 𝐾) ↔ (¬ 𝐽 < (𝐻‘𝑑) ∧ ¬ 𝐾 < (𝐻‘(𝑥 ∘f − 𝑑)))))
136		ioran 984	. . . . . . . . . . . 12 ⊢ (¬ (𝐽 < (𝐻‘𝑑) ∨ 𝐾 < (𝐻‘(𝑥 ∘f − 𝑑))) ↔ (¬ 𝐽 < (𝐻‘𝑑) ∧ ¬ 𝐾 < (𝐻‘(𝑥 ∘f − 𝑑))))
137	135, 136	bitr4di 289	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (((𝐻‘𝑑) ≤ 𝐽 ∧ (𝐻‘(𝑥 ∘f − 𝑑)) ≤ 𝐾) ↔ ¬ (𝐽 < (𝐻‘𝑑) ∨ 𝐾 < (𝐻‘(𝑥 ∘f − 𝑑)))))
138	38, 57	ffvelcdmd 7119	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐻‘𝑥) ∈ ℕ0)
139	138	nn0red 12614	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐻‘𝑥) ∈ ℝ)
140	34, 73	nn0addcld 12617	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝐽 + 𝐾) ∈ ℕ0)
141	140	ad2antrr 725	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐽 + 𝐾) ∈ ℕ0)
142	141	nn0red 12614	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐽 + 𝐾) ∈ ℝ)
143	139, 142	lenltd 11436	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → ((𝐻‘𝑥) ≤ (𝐽 + 𝐾) ↔ ¬ (𝐽 + 𝐾) < (𝐻‘𝑥)))
144	132, 137, 143	3imtr3d 293	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (¬ (𝐽 < (𝐻‘𝑑) ∨ 𝐾 < (𝐻‘(𝑥 ∘f − 𝑑))) → ¬ (𝐽 + 𝐾) < (𝐻‘𝑥)))
145	96, 144	mt4d 117	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐽 < (𝐻‘𝑑) ∨ 𝐾 < (𝐻‘(𝑥 ∘f − 𝑑))))
146	67, 95, 145	mpjaodan 959	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑥 ∘f − 𝑑))) = (0g‘𝑅))
147	146	mpteq2dva 5266	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) → (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ↦ ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑥 ∘f − 𝑑)))) = (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ↦ (0g‘𝑅)))
148	147	oveq2d 7464	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) → (𝑅 Σg (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ↦ ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑥 ∘f − 𝑑))))) = (𝑅 Σg (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ↦ (0g‘𝑅))))
149		ringmnd 20270	. . . . . . . . 9 ⊢ (𝑅 ∈ Ring → 𝑅 ∈ Mnd)
150	51, 149	syl 17	. . . . . . . 8 ⊢ (𝜑 → 𝑅 ∈ Mnd)
151	150	adantr 480	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) → 𝑅 ∈ Mnd)
152		ovex 7481	. . . . . . . 8 ⊢ (ℕ0 ↑m 𝐼) ∈ V
153	5, 152	rab2ex 5360	. . . . . . 7 ⊢ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ∈ V
154	22	gsumz 18871	. . . . . . 7 ⊢ ((𝑅 ∈ Mnd ∧ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ∈ V) → (𝑅 Σg (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ↦ (0g‘𝑅))) = (0g‘𝑅))
155	151, 153, 154	sylancl 585	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) → (𝑅 Σg (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ↦ (0g‘𝑅))) = (0g‘𝑅))
156	148, 155	eqtrd 2780	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) → (𝑅 Σg (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ↦ ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑥 ∘f − 𝑑))))) = (0g‘𝑅))
157	10, 20, 156	3eqtrd 2784	. . . 4 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) → ((𝐹 · 𝐺)‘𝑥) = (0g‘𝑅))
158	157	expr 456	. . 3 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → ((𝐽 + 𝐾) < (𝐻‘𝑥) → ((𝐹 · 𝐺)‘𝑥) = (0g‘𝑅)))
159	158	ralrimiva 3152	. 2 ⊢ (𝜑 → ∀𝑥 ∈ 𝐴 ((𝐽 + 𝐾) < (𝐻‘𝑥) → ((𝐹 · 𝐺)‘𝑥) = (0g‘𝑅)))
160	1, 107, 51	mplringd 22066	. . . 4 ⊢ (𝜑 → 𝑌 ∈ Ring)
161	2, 4	ringcl 20277	. . . 4 ⊢ ((𝑌 ∈ Ring ∧ 𝐹 ∈ 𝐵 ∧ 𝐺 ∈ 𝐵) → (𝐹 · 𝐺) ∈ 𝐵)
162	160, 6, 7, 161	syl3anc 1371	. . 3 ⊢ (𝜑 → (𝐹 · 𝐺) ∈ 𝐵)
163	33, 140	sselid 4006	. . 3 ⊢ (𝜑 → (𝐽 + 𝐾) ∈ ℝ*)
164	21, 1, 2, 22, 5, 23	mdegleb 26123	. . 3 ⊢ (((𝐹 · 𝐺) ∈ 𝐵 ∧ (𝐽 + 𝐾) ∈ ℝ*) → ((𝐷‘(𝐹 · 𝐺)) ≤ (𝐽 + 𝐾) ↔ ∀𝑥 ∈ 𝐴 ((𝐽 + 𝐾) < (𝐻‘𝑥) → ((𝐹 · 𝐺)‘𝑥) = (0g‘𝑅))))
165	162, 163, 164	syl2anc 583	. 2 ⊢ (𝜑 → ((𝐷‘(𝐹 · 𝐺)) ≤ (𝐽 + 𝐾) ↔ ∀𝑥 ∈ 𝐴 ((𝐽 + 𝐾) < (𝐻‘𝑥) → ((𝐹 · 𝐺)‘𝑥) = (0g‘𝑅))))
166	159, 165	mpbird 257	1 ⊢ (𝜑 → (𝐷‘(𝐹 · 𝐺)) ≤ (𝐽 + 𝐾))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 206   ∧ wa 395   ∨ wo 846   ∧ w3a 1087   = wceq 1537   ∈ wcel 2108  ∀wral 3067  {crab 3443  Vcvv 3488   class class class wbr 5166   ↦ cmpt 5249  ^◡ccnv 5699   “ cima 5703  ⟶wf 6569  ‘cfv 6573  (class class class)co 7448   ∘_f cof 7712   ∘_r cofr 7713   ↑_m cmap 8884  Fincfn 9003  ℝcr 11183   + caddc 11187  ℝ^*cxr 11323   < clt 11324   ≤ cle 11325   − cmin 11520  ℕcn 12293  ℕ₀cn0 12553  Basecbs 17258  ._rcmulr 17312  0_gc0g 17499   Σ_g cgsu 17500  Mndcmnd 18772  Ringcrg 20260  ℂ_fldccnfld 21387   mPoly cmpl 21949   mDeg cmdg 26112

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1793  ax-4 1807  ax-5 1909  ax-6 1967  ax-7 2007  ax-8 2110  ax-9 2118  ax-10 2141  ax-11 2158  ax-12 2178  ax-ext 2711  ax-rep 5303  ax-sep 5317  ax-nul 5324  ax-pow 5383  ax-pr 5447  ax-un 7770  ax-cnex 11240  ax-resscn 11241  ax-1cn 11242  ax-icn 11243  ax-addcl 11244  ax-addrcl 11245  ax-mulcl 11246  ax-mulrcl 11247  ax-mulcom 11248  ax-addass 11249  ax-mulass 11250  ax-distr 11251  ax-i2m1 11252  ax-1ne0 11253  ax-1rid 11254  ax-rnegex 11255  ax-rrecex 11256  ax-cnre 11257  ax-pre-lttri 11258  ax-pre-lttrn 11259  ax-pre-ltadd 11260  ax-pre-mulgt0 11261  ax-pre-sup 11262  ax-addf 11263

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 847  df-3or 1088  df-3an 1089  df-tru 1540  df-fal 1550  df-ex 1778  df-nf 1782  df-sb 2065  df-mo 2543  df-eu 2572  df-clab 2718  df-cleq 2732  df-clel 2819  df-nfc 2895  df-ne 2947  df-nel 3053  df-ral 3068  df-rex 3077  df-rmo 3388  df-reu 3389  df-rab 3444  df-v 3490  df-sbc 3805  df-csb 3922  df-dif 3979  df-un 3981  df-in 3983  df-ss 3993  df-pss 3996  df-nul 4353  df-if 4549  df-pw 4624  df-sn 4649  df-pr 4651  df-tp 4653  df-op 4655  df-uni 4932  df-int 4971  df-iun 5017  df-iin 5018  df-br 5167  df-opab 5229  df-mpt 5250  df-tr 5284  df-id 5593  df-eprel 5599  df-po 5607  df-so 5608  df-fr 5652  df-se 5653  df-we 5654  df-xp 5706  df-rel 5707  df-cnv 5708  df-co 5709  df-dm 5710  df-rn 5711  df-res 5712  df-ima 5713  df-pred 6332  df-ord 6398  df-on 6399  df-lim 6400  df-suc 6401  df-iota 6525  df-fun 6575  df-fn 6576  df-f 6577  df-f1 6578  df-fo 6579  df-f1o 6580  df-fv 6581  df-isom 6582  df-riota 7404  df-ov 7451  df-oprab 7452  df-mpo 7453  df-of 7714  df-ofr 7715  df-om 7904  df-1st 8030  df-2nd 8031  df-supp 8202  df-frecs 8322  df-wrecs 8353  df-recs 8427  df-rdg 8466  df-1o 8522  df-2o 8523  df-er 8763  df-map 8886  df-pm 8887  df-ixp 8956  df-en 9004  df-dom 9005  df-sdom 9006  df-fin 9007  df-fsupp 9432  df-sup 9511  df-oi 9579  df-card 10008  df-pnf 11326  df-mnf 11327  df-xr 11328  df-ltxr 11329  df-le 11330  df-sub 11522  df-neg 11523  df-nn 12294  df-2 12356  df-3 12357  df-4 12358  df-5 12359  df-6 12360  df-7 12361  df-8 12362  df-9 12363  df-n0 12554  df-z 12640  df-dec 12759  df-uz 12904  df-fz 13568  df-fzo 13712  df-seq 14053  df-hash 14380  df-struct 17194  df-sets 17211  df-slot 17229  df-ndx 17241  df-base 17259  df-ress 17288  df-plusg 17324  df-mulr 17325  df-starv 17326  df-sca 17327  df-vsca 17328  df-ip 17329  df-tset 17330  df-ple 17331  df-ds 17333  df-unif 17334  df-hom 17335  df-cco 17336  df-0g 17501  df-gsum 17502  df-prds 17507  df-pws 17509  df-mre 17644  df-mrc 17645  df-acs 17647  df-mgm 18678  df-sgrp 18757  df-mnd 18773  df-mhm 18818  df-submnd 18819  df-grp 18976  df-minusg 18977  df-mulg 19108  df-subg 19163  df-ghm 19253  df-cntz 19357  df-cmn 19824  df-abl 19825  df-mgp 20162  df-rng 20180  df-ur 20209  df-ring 20262  df-cring 20263  df-subrng 20572  df-subrg 20597  df-cnfld 21388  df-psr 21952  df-mpl 21954  df-mdeg 26114

This theorem is referenced by:  mdegmulle2  26138