Theorem mdegmullem 25999

Description: Lemma for mdegmulle2 26000. (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 2729	. . . . . . . 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 21936	. . . . . . 7 ⊢ (𝜑 → (𝐹 · 𝐺) = (𝑐 ∈ 𝐴 ↦ (𝑅 Σg (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑐} ↦ ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑐 ∘f − 𝑑)))))))
9	8	fveq1d 6828	. . . . . 6 ⊢ (𝜑 → ((𝐹 · 𝐺)‘𝑥) = ((𝑐 ∈ 𝐴 ↦ (𝑅 Σg (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑐} ↦ ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑐 ∘f − 𝑑))))))‘𝑥))
10	9	adantr 480	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) → ((𝐹 · 𝐺)‘𝑥) = ((𝑐 ∈ 𝐴 ↦ (𝑅 Σg (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑐} ↦ ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑐 ∘f − 𝑑))))))‘𝑥))
11		breq2 5099	. . . . . . . . . 10 ⊢ (𝑐 = 𝑥 → (𝑒 ∘r ≤ 𝑐 ↔ 𝑒 ∘r ≤ 𝑥))
12	11	rabbidv 3404	. . . . . . . . 9 ⊢ (𝑐 = 𝑥 → {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑐} = {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥})
13		fvoveq1 7376	. . . . . . . . . 10 ⊢ (𝑐 = 𝑥 → (𝐺‘(𝑐 ∘f − 𝑑)) = (𝐺‘(𝑥 ∘f − 𝑑)))
14	13	oveq2d 7369	. . . . . . . . 9 ⊢ (𝑐 = 𝑥 → ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑐 ∘f − 𝑑))) = ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑥 ∘f − 𝑑))))
15	12, 14	mpteq12dv 5182	. . . . . . . 8 ⊢ (𝑐 = 𝑥 → (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑐} ↦ ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑐 ∘f − 𝑑)))) = (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ↦ ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑥 ∘f − 𝑑)))))
16	15	oveq2d 7369	. . . . . . 7 ⊢ (𝑐 = 𝑥 → (𝑅 Σg (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑐} ↦ ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑐 ∘f − 𝑑))))) = (𝑅 Σg (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ↦ ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑥 ∘f − 𝑑))))))
17		eqid 2729	. . . . . . 7 ⊢ (𝑐 ∈ 𝐴 ↦ (𝑅 Σg (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑐} ↦ ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑐 ∘f − 𝑑)))))) = (𝑐 ∈ 𝐴 ↦ (𝑅 Σg (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑐} ↦ ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑐 ∘f − 𝑑))))))
18		ovex 7386	. . . . . . 7 ⊢ (𝑅 Σg (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ↦ ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑥 ∘f − 𝑑))))) ∈ V
19	16, 17, 18	fvmpt 6934	. . . . . 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 2729	. . . . . . . . . . . . 13 ⊢ (0g‘𝑅) = (0g‘𝑅)
23		mdegmullem.h	. . . . . . . . . . . . 13 ⊢ 𝐻 = (𝑏 ∈ 𝐴 ↦ (ℂfld Σg 𝑏))
24	6	ad2antrr 726	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ∧ 𝐽 < (𝐻‘𝑑))) → 𝐹 ∈ 𝐵)
25		elrabi 3645	. . . . . . . . . . . . . . 15 ⊢ (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} → 𝑑 ∈ 𝐴)
26	25	adantl 481	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → 𝑑 ∈ 𝐴)
27	26	adantrr 717	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ∧ 𝐽 < (𝐻‘𝑑))) → 𝑑 ∈ 𝐴)
28	21, 1, 2	mdegxrcl 25988	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐹 ∈ 𝐵 → (𝐷‘𝐹) ∈ ℝ*)
29	6, 28	syl 17	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (𝐷‘𝐹) ∈ ℝ*)
30	29	ad2antrr 726	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐷‘𝐹) ∈ ℝ*)
31		nn0ssre 12406	. . . . . . . . . . . . . . . . . . 19 ⊢ ℕ0 ⊆ ℝ
32		ressxr 11178	. . . . . . . . . . . . . . . . . . 19 ⊢ ℝ ⊆ ℝ*
33	31, 32	sstri 3947	. . . . . . . . . . . . . . . . . 18 ⊢ ℕ0 ⊆ ℝ*
34		mdegmulle2.j1	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → 𝐽 ∈ ℕ0)
35	33, 34	sselid 3935	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 𝐽 ∈ ℝ*)
36	35	ad2antrr 726	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → 𝐽 ∈ ℝ*)
37	5, 23	tdeglem1 25979	. . . . . . . . . . . . . . . . . . 19 ⊢ 𝐻:𝐴⟶ℕ0
38	37	a1i 11	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → 𝐻:𝐴⟶ℕ0)
39	38, 26	ffvelcdmd 7023	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐻‘𝑑) ∈ ℕ0)
40	33, 39	sselid 3935	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐻‘𝑑) ∈ ℝ*)
41	30, 36, 40	3jca 1128	. . . . . . . . . . . . . . 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 13076	. . . . . . . . . . . . . 14 ⊢ (((𝐷‘𝐹) ∈ ℝ* ∧ 𝐽 ∈ ℝ* ∧ (𝐻‘𝑑) ∈ ℝ*) → (((𝐷‘𝐹) ≤ 𝐽 ∧ 𝐽 < (𝐻‘𝑑)) → (𝐷‘𝐹) < (𝐻‘𝑑)))
48	42, 46, 47	sylc 65	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ∧ 𝐽 < (𝐻‘𝑑))) → (𝐷‘𝐹) < (𝐻‘𝑑))
49	21, 1, 2, 22, 5, 23, 24, 27, 48	mdeglt 25986	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ∧ 𝐽 < (𝐻‘𝑑))) → (𝐹‘𝑑) = (0g‘𝑅))
50	49	oveq1d 7368	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ∧ 𝐽 < (𝐻‘𝑑))) → ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑥 ∘f − 𝑑))) = ((0g‘𝑅)(.r‘𝑅)(𝐺‘(𝑥 ∘f − 𝑑))))
51		mdegaddle.r	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝑅 ∈ Ring)
52	51	ad2antrr 726	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → 𝑅 ∈ Ring)
53		eqid 2729	. . . . . . . . . . . . . . . 16 ⊢ (Base‘𝑅) = (Base‘𝑅)
54	1, 53, 2, 5, 7	mplelf 21923	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝐺:𝐴⟶(Base‘𝑅))
55	54	ad2antrr 726	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → 𝐺:𝐴⟶(Base‘𝑅))
56		ssrab2 4033	. . . . . . . . . . . . . . 15 ⊢ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ⊆ 𝐴
57		simplrl 776	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → 𝑥 ∈ 𝐴)
58		eqid 2729	. . . . . . . . . . . . . . . . 17 ⊢ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} = {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}
59	5, 58	psrbagconcl 21852	. . . . . . . . . . . . . . . 16 ⊢ ((𝑥 ∈ 𝐴 ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝑥 ∘f − 𝑑) ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥})
60	57, 59	sylancom 588	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝑥 ∘f − 𝑑) ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥})
61	56, 60	sselid 3935	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝑥 ∘f − 𝑑) ∈ 𝐴)
62	55, 61	ffvelcdmd 7023	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐺‘(𝑥 ∘f − 𝑑)) ∈ (Base‘𝑅))
63	53, 3, 22	ringlz 20196	. . . . . . . . . . . . 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 2764	. . . . . . . . . 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 25988	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐺 ∈ 𝐵 → (𝐷‘𝐺) ∈ ℝ*)
71	7, 70	syl 17	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (𝐷‘𝐺) ∈ ℝ*)
72	71	ad2antrr 726	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐷‘𝐺) ∈ ℝ*)
73		mdegmulle2.k1	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → 𝐾 ∈ ℕ0)
74	33, 73	sselid 3935	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 𝐾 ∈ ℝ*)
75	74	ad2antrr 726	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → 𝐾 ∈ ℝ*)
76	38, 61	ffvelcdmd 7023	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐻‘(𝑥 ∘f − 𝑑)) ∈ ℕ0)
77	33, 76	sselid 3935	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐻‘(𝑥 ∘f − 𝑑)) ∈ ℝ*)
78	72, 75, 77	3jca 1128	. . . . . . . . . . . . . . 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 13076	. . . . . . . . . . . . . 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 25986	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ∧ 𝐾 < (𝐻‘(𝑥 ∘f − 𝑑)))) → (𝐺‘(𝑥 ∘f − 𝑑)) = (0g‘𝑅))
87	86	oveq2d 7369	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ∧ 𝐾 < (𝐻‘(𝑥 ∘f − 𝑑)))) → ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑥 ∘f − 𝑑))) = ((𝐹‘𝑑)(.r‘𝑅)(0g‘𝑅)))
88	1, 53, 2, 5, 6	mplelf 21923	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝐹:𝐴⟶(Base‘𝑅))
89	88	ad2antrr 726	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → 𝐹:𝐴⟶(Base‘𝑅))
90	89, 26	ffvelcdmd 7023	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐹‘𝑑) ∈ (Base‘𝑅))
91	53, 3, 22	ringrz 20197	. . . . . . . . . . . . 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 2764	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ∧ 𝐾 < (𝐻‘(𝑥 ∘f − 𝑑)))) → ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑥 ∘f − 𝑑))) = (0g‘𝑅))
95	94	anassrs 467	. . . . . . . . 9 ⊢ ((((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) ∧ 𝐾 < (𝐻‘(𝑥 ∘f − 𝑑))) → ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑥 ∘f − 𝑑))) = (0g‘𝑅))
96		simplrr 777	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐽 + 𝐾) < (𝐻‘𝑥))
97	39	nn0red 12464	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐻‘𝑑) ∈ ℝ)
98	76	nn0red 12464	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐻‘(𝑥 ∘f − 𝑑)) ∈ ℝ)
99	34	ad2antrr 726	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → 𝐽 ∈ ℕ0)
100	99	nn0red 12464	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → 𝐽 ∈ ℝ)
101	73	ad2antrr 726	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → 𝐾 ∈ ℕ0)
102	101	nn0red 12464	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → 𝐾 ∈ ℝ)
103		le2add 11620	. . . . . . . . . . . . 13 ⊢ ((((𝐻‘𝑑) ∈ ℝ ∧ (𝐻‘(𝑥 ∘f − 𝑑)) ∈ ℝ) ∧ (𝐽 ∈ ℝ ∧ 𝐾 ∈ ℝ)) → (((𝐻‘𝑑) ≤ 𝐽 ∧ (𝐻‘(𝑥 ∘f − 𝑑)) ≤ 𝐾) → ((𝐻‘𝑑) + (𝐻‘(𝑥 ∘f − 𝑑))) ≤ (𝐽 + 𝐾)))
104	97, 98, 100, 102, 103	syl22anc 838	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (((𝐻‘𝑑) ≤ 𝐽 ∧ (𝐻‘(𝑥 ∘f − 𝑑)) ≤ 𝐾) → ((𝐻‘𝑑) + (𝐻‘(𝑥 ∘f − 𝑑))) ≤ (𝐽 + 𝐾)))
105	5, 23	tdeglem3 25980	. . . . . . . . . . . . . . 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 21843	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑑 ∈ 𝐴 → 𝑑:𝐼⟶ℕ0)
110	109	3ad2ant2 1134	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑑 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴) → 𝑑:𝐼⟶ℕ0)
111	110	ffvelcdmda 7022	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝐼 ∈ 𝑉 ∧ 𝑑 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴) ∧ 𝑏 ∈ 𝐼) → (𝑑‘𝑏) ∈ ℕ0)
112	111	nn0cnd 12465	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝐼 ∈ 𝑉 ∧ 𝑑 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴) ∧ 𝑏 ∈ 𝐼) → (𝑑‘𝑏) ∈ ℂ)
113	5	psrbagf 21843	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑥 ∈ 𝐴 → 𝑥:𝐼⟶ℕ0)
114	113	3ad2ant3 1135	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑑 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴) → 𝑥:𝐼⟶ℕ0)
115	114	ffvelcdmda 7022	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝐼 ∈ 𝑉 ∧ 𝑑 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴) ∧ 𝑏 ∈ 𝐼) → (𝑥‘𝑏) ∈ ℕ0)
116	115	nn0cnd 12465	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝐼 ∈ 𝑉 ∧ 𝑑 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴) ∧ 𝑏 ∈ 𝐼) → (𝑥‘𝑏) ∈ ℂ)
117	112, 116	pncan3d 11496	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝐼 ∈ 𝑉 ∧ 𝑑 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴) ∧ 𝑏 ∈ 𝐼) → ((𝑑‘𝑏) + ((𝑥‘𝑏) − (𝑑‘𝑏))) = (𝑥‘𝑏))
118	117	mpteq2dva 5188	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑑 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴) → (𝑏 ∈ 𝐼 ↦ ((𝑑‘𝑏) + ((𝑥‘𝑏) − (𝑑‘𝑏)))) = (𝑏 ∈ 𝐼 ↦ (𝑥‘𝑏)))
119		simp1 1136	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑑 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴) → 𝐼 ∈ 𝑉)
120		fvexd 6841	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝐼 ∈ 𝑉 ∧ 𝑑 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴) ∧ 𝑏 ∈ 𝐼) → (𝑑‘𝑏) ∈ V)
121		ovexd 7388	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝐼 ∈ 𝑉 ∧ 𝑑 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴) ∧ 𝑏 ∈ 𝐼) → ((𝑥‘𝑏) − (𝑑‘𝑏)) ∈ V)
122	110	feqmptd 6895	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑑 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴) → 𝑑 = (𝑏 ∈ 𝐼 ↦ (𝑑‘𝑏)))
123		fvexd 6841	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝐼 ∈ 𝑉 ∧ 𝑑 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴) ∧ 𝑏 ∈ 𝐼) → (𝑥‘𝑏) ∈ V)
124	114	feqmptd 6895	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑑 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴) → 𝑥 = (𝑏 ∈ 𝐼 ↦ (𝑥‘𝑏)))
125	119, 123, 120, 124, 122	offval2 7637	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑑 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴) → (𝑥 ∘f − 𝑑) = (𝑏 ∈ 𝐼 ↦ ((𝑥‘𝑏) − (𝑑‘𝑏))))
126	119, 120, 121, 122, 125	offval2 7637	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑑 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴) → (𝑑 ∘f + (𝑥 ∘f − 𝑑)) = (𝑏 ∈ 𝐼 ↦ ((𝑑‘𝑏) + ((𝑥‘𝑏) − (𝑑‘𝑏)))))
127	118, 126, 124	3eqtr4d 2774	. . . . . . . . . . . . . . . 16 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑑 ∈ 𝐴 ∧ 𝑥 ∈ 𝐴) → (𝑑 ∘f + (𝑥 ∘f − 𝑑)) = 𝑥)
128	108, 26, 57, 127	syl3anc 1373	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝑑 ∘f + (𝑥 ∘f − 𝑑)) = 𝑥)
129	128	fveq2d 6830	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐻‘(𝑑 ∘f + (𝑥 ∘f − 𝑑))) = (𝐻‘𝑥))
130	106, 129	eqtr3d 2766	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → ((𝐻‘𝑑) + (𝐻‘(𝑥 ∘f − 𝑑))) = (𝐻‘𝑥))
131	130	breq1d 5105	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (((𝐻‘𝑑) + (𝐻‘(𝑥 ∘f − 𝑑))) ≤ (𝐽 + 𝐾) ↔ (𝐻‘𝑥) ≤ (𝐽 + 𝐾)))
132	104, 131	sylibd 239	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (((𝐻‘𝑑) ≤ 𝐽 ∧ (𝐻‘(𝑥 ∘f − 𝑑)) ≤ 𝐾) → (𝐻‘𝑥) ≤ (𝐽 + 𝐾)))
133	97, 100	lenltd 11280	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → ((𝐻‘𝑑) ≤ 𝐽 ↔ ¬ 𝐽 < (𝐻‘𝑑)))
134	98, 102	lenltd 11280	. . . . . . . . . . . . 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 7023	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐻‘𝑥) ∈ ℕ0)
139	138	nn0red 12464	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐻‘𝑥) ∈ ℝ)
140	34, 73	nn0addcld 12467	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝐽 + 𝐾) ∈ ℕ0)
141	140	ad2antrr 726	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐽 + 𝐾) ∈ ℕ0)
142	141	nn0red 12464	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) ∧ 𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥}) → (𝐽 + 𝐾) ∈ ℝ)
143	139, 142	lenltd 11280	. . . . . . . . . . 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 5188	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) → (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ↦ ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑥 ∘f − 𝑑)))) = (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ↦ (0g‘𝑅)))
148	147	oveq2d 7369	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) → (𝑅 Σg (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ↦ ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑥 ∘f − 𝑑))))) = (𝑅 Σg (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ↦ (0g‘𝑅))))
149		ringmnd 20146	. . . . . . . . 9 ⊢ (𝑅 ∈ Ring → 𝑅 ∈ Mnd)
150	51, 149	syl 17	. . . . . . . 8 ⊢ (𝜑 → 𝑅 ∈ Mnd)
151	150	adantr 480	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) → 𝑅 ∈ Mnd)
152		ovex 7386	. . . . . . . 8 ⊢ (ℕ0 ↑m 𝐼) ∈ V
153	5, 152	rab2ex 5284	. . . . . . 7 ⊢ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ∈ V
154	22	gsumz 18728	. . . . . . 7 ⊢ ((𝑅 ∈ Mnd ∧ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ∈ V) → (𝑅 Σg (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ↦ (0g‘𝑅))) = (0g‘𝑅))
155	151, 153, 154	sylancl 586	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) → (𝑅 Σg (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ↦ (0g‘𝑅))) = (0g‘𝑅))
156	148, 155	eqtrd 2764	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) → (𝑅 Σg (𝑑 ∈ {𝑒 ∈ 𝐴 ∣ 𝑒 ∘r ≤ 𝑥} ↦ ((𝐹‘𝑑)(.r‘𝑅)(𝐺‘(𝑥 ∘f − 𝑑))))) = (0g‘𝑅))
157	10, 20, 156	3eqtrd 2768	. . . 4 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ (𝐽 + 𝐾) < (𝐻‘𝑥))) → ((𝐹 · 𝐺)‘𝑥) = (0g‘𝑅))
158	157	expr 456	. . 3 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → ((𝐽 + 𝐾) < (𝐻‘𝑥) → ((𝐹 · 𝐺)‘𝑥) = (0g‘𝑅)))
159	158	ralrimiva 3121	. 2 ⊢ (𝜑 → ∀𝑥 ∈ 𝐴 ((𝐽 + 𝐾) < (𝐻‘𝑥) → ((𝐹 · 𝐺)‘𝑥) = (0g‘𝑅)))
160	1, 107, 51	mplringd 21948	. . . 4 ⊢ (𝜑 → 𝑌 ∈ Ring)
161	2, 4	ringcl 20153	. . . 4 ⊢ ((𝑌 ∈ Ring ∧ 𝐹 ∈ 𝐵 ∧ 𝐺 ∈ 𝐵) → (𝐹 · 𝐺) ∈ 𝐵)
162	160, 6, 7, 161	syl3anc 1373	. . 3 ⊢ (𝜑 → (𝐹 · 𝐺) ∈ 𝐵)
163	33, 140	sselid 3935	. . 3 ⊢ (𝜑 → (𝐽 + 𝐾) ∈ ℝ*)
164	21, 1, 2, 22, 5, 23	mdegleb 25985	. . 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 1540   ∈ wcel 2109  ∀wral 3044  {crab 3396  Vcvv 3438   class class class wbr 5095   ↦ cmpt 5176  ^◡ccnv 5622   “ cima 5626  ⟶wf 6482  ‘cfv 6486  (class class class)co 7353   ∘_f cof 7615   ∘_r cofr 7616   ↑_m cmap 8760  Fincfn 8879  ℝcr 11027   + caddc 11031  ℝ^*cxr 11167   < clt 11168   ≤ cle 11169   − cmin 11365  ℕcn 12146  ℕ₀cn0 12402  Basecbs 17138  ._rcmulr 17180  0_gc0g 17361   Σ_g cgsu 17362  Mndcmnd 18626  Ringcrg 20136  ℂ_fldccnfld 21279   mPoly cmpl 21831   mDeg cmdg 25974

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1910  ax-6 1967  ax-7 2008  ax-8 2111  ax-9 2119  ax-10 2142  ax-11 2158  ax-12 2178  ax-ext 2701  ax-rep 5221  ax-sep 5238  ax-nul 5248  ax-pow 5307  ax-pr 5374  ax-un 7675  ax-cnex 11084  ax-resscn 11085  ax-1cn 11086  ax-icn 11087  ax-addcl 11088  ax-addrcl 11089  ax-mulcl 11090  ax-mulrcl 11091  ax-mulcom 11092  ax-addass 11093  ax-mulass 11094  ax-distr 11095  ax-i2m1 11096  ax-1ne0 11097  ax-1rid 11098  ax-rnegex 11099  ax-rrecex 11100  ax-cnre 11101  ax-pre-lttri 11102  ax-pre-lttrn 11103  ax-pre-ltadd 11104  ax-pre-mulgt0 11105  ax-pre-sup 11106  ax-addf 11107

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1780  df-nf 1784  df-sb 2066  df-mo 2533  df-eu 2562  df-clab 2708  df-cleq 2721  df-clel 2803  df-nfc 2878  df-ne 2926  df-nel 3030  df-ral 3045  df-rex 3054  df-rmo 3345  df-reu 3346  df-rab 3397  df-v 3440  df-sbc 3745  df-csb 3854  df-dif 3908  df-un 3910  df-in 3912  df-ss 3922  df-pss 3925  df-nul 4287  df-if 4479  df-pw 4555  df-sn 4580  df-pr 4582  df-tp 4584  df-op 4586  df-uni 4862  df-int 4900  df-iun 4946  df-iin 4947  df-br 5096  df-opab 5158  df-mpt 5177  df-tr 5203  df-id 5518  df-eprel 5523  df-po 5531  df-so 5532  df-fr 5576  df-se 5577  df-we 5578  df-xp 5629  df-rel 5630  df-cnv 5631  df-co 5632  df-dm 5633  df-rn 5634  df-res 5635  df-ima 5636  df-pred 6253  df-ord 6314  df-on 6315  df-lim 6316  df-suc 6317  df-iota 6442  df-fun 6488  df-fn 6489  df-f 6490  df-f1 6491  df-fo 6492  df-f1o 6493  df-fv 6494  df-isom 6495  df-riota 7310  df-ov 7356  df-oprab 7357  df-mpo 7358  df-of 7617  df-ofr 7618  df-om 7807  df-1st 7931  df-2nd 7932  df-supp 8101  df-frecs 8221  df-wrecs 8252  df-recs 8301  df-rdg 8339  df-1o 8395  df-2o 8396  df-er 8632  df-map 8762  df-pm 8763  df-ixp 8832  df-en 8880  df-dom 8881  df-sdom 8882  df-fin 8883  df-fsupp 9271  df-sup 9351  df-oi 9421  df-card 9854  df-pnf 11170  df-mnf 11171  df-xr 11172  df-ltxr 11173  df-le 11174  df-sub 11367  df-neg 11368  df-nn 12147  df-2 12209  df-3 12210  df-4 12211  df-5 12212  df-6 12213  df-7 12214  df-8 12215  df-9 12216  df-n0 12403  df-z 12490  df-dec 12610  df-uz 12754  df-fz 13429  df-fzo 13576  df-seq 13927  df-hash 14256  df-struct 17076  df-sets 17093  df-slot 17111  df-ndx 17123  df-base 17139  df-ress 17160  df-plusg 17192  df-mulr 17193  df-starv 17194  df-sca 17195  df-vsca 17196  df-ip 17197  df-tset 17198  df-ple 17199  df-ds 17201  df-unif 17202  df-hom 17203  df-cco 17204  df-0g 17363  df-gsum 17364  df-prds 17369  df-pws 17371  df-mre 17506  df-mrc 17507  df-acs 17509  df-mgm 18532  df-sgrp 18611  df-mnd 18627  df-mhm 18675  df-submnd 18676  df-grp 18833  df-minusg 18834  df-mulg 18965  df-subg 19020  df-ghm 19110  df-cntz 19214  df-cmn 19679  df-abl 19680  df-mgp 20044  df-rng 20056  df-ur 20085  df-ring 20138  df-cring 20139  df-subrng 20449  df-subrg 20473  df-cnfld 21280  df-psr 21834  df-mpl 21836  df-mdeg 25976

This theorem is referenced by:  mdegmulle2  26000