ply1divex - Metamath Proof Explorer

	Metamath Proof Explorer		< Previous Next > Nearby theorems
Mirrors > Home > MPE Home > Th. List > ply1divex		Structured version Visualization version GIF version

Theorem ply1divex 26467

Description: Lemma for ply1divalg 26468: existence part. (Contributed by Stefan O'Rear, 27-Mar-2015.)

**Hypotheses**
Ref	Expression
ply1divalg.p	⊢ 𝑃 = (Poly₁‘𝑅)
ply1divalg.d	⊢ 𝐷 = (deg₁‘𝑅)
ply1divalg.b	⊢ 𝐵 = (Base‘𝑃)
ply1divalg.m	⊢ − = (-_g‘𝑃)
ply1divalg.z	⊢ 0 = (0_g‘𝑃)
ply1divalg.t	⊢ ∙ = (._r‘𝑃)
ply1divalg.r1	⊢ (𝜑 → 𝑅 ∈ Ring)
ply1divalg.f	⊢ (𝜑 → 𝐹 ∈ 𝐵)
ply1divalg.g1	⊢ (𝜑 → 𝐺 ∈ 𝐵)
ply1divalg.g2	⊢ (𝜑 → 𝐺 ≠ 0 )
ply1divex.o	⊢ 1 = (1_r‘𝑅)
ply1divex.k	⊢ 𝐾 = (Base‘𝑅)
ply1divex.u	⊢ · = (._r‘𝑅)
ply1divex.i	⊢ (𝜑 → 𝐼 ∈ 𝐾)
ply1divex.g3	⊢ (𝜑 → (((coe₁‘𝐺)‘(𝐷‘𝐺)) · 𝐼) = 1 )

**Assertion**
Ref	Expression
ply1divex	⊢ (𝜑 → ∃𝑞 ∈ 𝐵 (𝐷‘(𝐹 − (𝐺 ∙ 𝑞))) < (𝐷‘𝐺))

Distinct variable groups: 0 ,𝑞 𝐹,𝑞 𝐼,𝑞 𝑃,𝑞 𝑅,𝑞 − ,𝑞 𝐵,𝑞 ∙ ,𝑞 𝐷,𝑞 𝐺,𝑞 𝜑,𝑞 · ,𝑞 Allowed substitution hints: 1 (𝑞) 𝐾(𝑞)

Proof of Theorem ply1divex Dummy variables 𝑑 𝑓 𝑟 𝑎 𝑔 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		fveq2 6893	. . . . 5 ⊢ (𝐹 = 0 → (𝐷‘𝐹) = (𝐷‘ 0 ))
2	1	breq1d 5115	. . . 4 ⊢ (𝐹 = 0 → ((𝐷‘𝐹) < ((𝐷‘𝐺) + 𝑑) ↔ (𝐷‘ 0 ) < ((𝐷‘𝐺) + 𝑑)))
3	2	rexbidv 3189	. . 3 ⊢ (𝐹 = 0 → (∃𝑑 ∈ ℕ₀ (𝐷‘𝐹) < ((𝐷‘𝐺) + 𝑑) ↔ ∃𝑑 ∈ ℕ₀ (𝐷‘ 0 ) < ((𝐷‘𝐺) + 𝑑)))
4		nnssnn0 12619	. . . . 5 ⊢ ℕ ⊆ ℕ₀
5		ply1divalg.r1	. . . . . . . . . 10 ⊢ (𝜑 → 𝑅 ∈ Ring)
6	5	adantr 486	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝐹 ≠ 0 ) → 𝑅 ∈ Ring)
7		ply1divalg.f	. . . . . . . . . 10 ⊢ (𝜑 → 𝐹 ∈ 𝐵)
8	7	adantr 486	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝐹 ≠ 0 ) → 𝐹 ∈ 𝐵)
9		simpr 490	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝐹 ≠ 0 ) → 𝐹 ≠ 0 )
10		ply1divalg.d	. . . . . . . . . 10 ⊢ 𝐷 = (deg₁‘𝑅)
11		ply1divalg.p	. . . . . . . . . 10 ⊢ 𝑃 = (Poly₁‘𝑅)
12		ply1divalg.z	. . . . . . . . . 10 ⊢ 0 = (0_g‘𝑃)
13		ply1divalg.b	. . . . . . . . . 10 ⊢ 𝐵 = (Base‘𝑃)
14	10, 11, 12, 13	deg1nn0cl 26418	. . . . . . . . 9 ⊢ ((𝑅 ∈ Ring ∧ 𝐹 ∈ 𝐵 ∧ 𝐹 ≠ 0 ) → (𝐷‘𝐹) ∈ ℕ₀)
15	6, 8, 9, 14	syl3anc 1398	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝐹 ≠ 0 ) → (𝐷‘𝐹) ∈ ℕ₀)
16	15	nn0red 12678	. . . . . . 7 ⊢ ((𝜑 ∧ 𝐹 ≠ 0 ) → (𝐷‘𝐹) ∈ ℝ)
17		ply1divalg.g1	. . . . . . . . . 10 ⊢ (𝜑 → 𝐺 ∈ 𝐵)
18		ply1divalg.g2	. . . . . . . . . 10 ⊢ (𝜑 → 𝐺 ≠ 0 )
19	10, 11, 12, 13	deg1nn0cl 26418	. . . . . . . . . 10 ⊢ ((𝑅 ∈ Ring ∧ 𝐺 ∈ 𝐵 ∧ 𝐺 ≠ 0 ) → (𝐷‘𝐺) ∈ ℕ₀)
20	5, 17, 18, 19	syl3anc 1398	. . . . . . . . 9 ⊢ (𝜑 → (𝐷‘𝐺) ∈ ℕ₀)
21	20	nn0red 12678	. . . . . . . 8 ⊢ (𝜑 → (𝐷‘𝐺) ∈ ℝ)
22	21	adantr 486	. . . . . . 7 ⊢ ((𝜑 ∧ 𝐹 ≠ 0 ) → (𝐷‘𝐺) ∈ ℝ)
23	16, 22	resubcld 11754	. . . . . 6 ⊢ ((𝜑 ∧ 𝐹 ≠ 0 ) → ((𝐷‘𝐹) − (𝐷‘𝐺)) ∈ ℝ)
24		arch 12613	. . . . . 6 ⊢ (((𝐷‘𝐹) − (𝐷‘𝐺)) ∈ ℝ → ∃𝑑 ∈ ℕ ((𝐷‘𝐹) − (𝐷‘𝐺)) < 𝑑)
25	23, 24	syl 18	. . . . 5 ⊢ ((𝜑 ∧ 𝐹 ≠ 0 ) → ∃𝑑 ∈ ℕ ((𝐷‘𝐹) − (𝐷‘𝐺)) < 𝑑)
26		ssrexv 3982	. . . . 5 ⊢ (ℕ ⊆ ℕ₀ → (∃𝑑 ∈ ℕ ((𝐷‘𝐹) − (𝐷‘𝐺)) < 𝑑 → ∃𝑑 ∈ ℕ₀ ((𝐷‘𝐹) − (𝐷‘𝐺)) < 𝑑))
27	4, 25, 26	mpsyl 69	. . . 4 ⊢ ((𝜑 ∧ 𝐹 ≠ 0 ) → ∃𝑑 ∈ ℕ₀ ((𝐷‘𝐹) − (𝐷‘𝐺)) < 𝑑)
28	16	adantr 486	. . . . . . 7 ⊢ (((𝜑 ∧ 𝐹 ≠ 0 ) ∧ 𝑑 ∈ ℕ₀) → (𝐷‘𝐹) ∈ ℝ)
29	21	ad2antrr 739	. . . . . . 7 ⊢ (((𝜑 ∧ 𝐹 ≠ 0 ) ∧ 𝑑 ∈ ℕ₀) → (𝐷‘𝐺) ∈ ℝ)
30		nn0re 12625	. . . . . . . 8 ⊢ (𝑑 ∈ ℕ₀ → 𝑑 ∈ ℝ)
31	30	adantl 487	. . . . . . 7 ⊢ (((𝜑 ∧ 𝐹 ≠ 0 ) ∧ 𝑑 ∈ ℕ₀) → 𝑑 ∈ ℝ)
32	28, 29, 31	ltsubadd2d 11924	. . . . . 6 ⊢ (((𝜑 ∧ 𝐹 ≠ 0 ) ∧ 𝑑 ∈ ℕ₀) → (((𝐷‘𝐹) − (𝐷‘𝐺)) < 𝑑 ↔ (𝐷‘𝐹) < ((𝐷‘𝐺) + 𝑑)))
33	32	biimpd 232	. . . . 5 ⊢ (((𝜑 ∧ 𝐹 ≠ 0 ) ∧ 𝑑 ∈ ℕ₀) → (((𝐷‘𝐹) − (𝐷‘𝐺)) < 𝑑 → (𝐷‘𝐹) < ((𝐷‘𝐺) + 𝑑)))
34	33	reximdva 3178	. . . 4 ⊢ ((𝜑 ∧ 𝐹 ≠ 0 ) → (∃𝑑 ∈ ℕ₀ ((𝐷‘𝐹) − (𝐷‘𝐺)) < 𝑑 → ∃𝑑 ∈ ℕ₀ (𝐷‘𝐹) < ((𝐷‘𝐺) + 𝑑)))
35	27, 34	mpd 16	. . 3 ⊢ ((𝜑 ∧ 𝐹 ≠ 0 ) → ∃𝑑 ∈ ℕ₀ (𝐷‘𝐹) < ((𝐷‘𝐺) + 𝑑))
36		0nn0 12631	. . . 4 ⊢ 0 ∈ ℕ₀
37	10, 11, 12	deg1z 26417	. . . . . 6 ⊢ (𝑅 ∈ Ring → (𝐷‘ 0 ) = -∞)
38	5, 37	syl 18	. . . . 5 ⊢ (𝜑 → (𝐷‘ 0 ) = -∞)
39		0re 11320	. . . . . . 7 ⊢ 0 ∈ ℝ
40		readdcl 11293	. . . . . . 7 ⊢ (((𝐷‘𝐺) ∈ ℝ ∧ 0 ∈ ℝ) → ((𝐷‘𝐺) + 0) ∈ ℝ)
41	21, 39, 40	sylancl 598	. . . . . 6 ⊢ (𝜑 → ((𝐷‘𝐺) + 0) ∈ ℝ)
42	41	mnfltd 13263	. . . . 5 ⊢ (𝜑 → -∞ < ((𝐷‘𝐺) + 0))
43	38, 42	eqbrtrd 5129	. . . 4 ⊢ (𝜑 → (𝐷‘ 0 ) < ((𝐷‘𝐺) + 0))
44		oveq2 7435	. . . . . 6 ⊢ (𝑑 = 0 → ((𝐷‘𝐺) + 𝑑) = ((𝐷‘𝐺) + 0))
45	44	breq2d 5117	. . . . 5 ⊢ (𝑑 = 0 → ((𝐷‘ 0 ) < ((𝐷‘𝐺) + 𝑑) ↔ (𝐷‘ 0 ) < ((𝐷‘𝐺) + 0)))
46	45	rspcev 3579	. . . 4 ⊢ ((0 ∈ ℕ₀ ∧ (𝐷‘ 0 ) < ((𝐷‘𝐺) + 0)) → ∃𝑑 ∈ ℕ₀ (𝐷‘ 0 ) < ((𝐷‘𝐺) + 𝑑))
47	36, 43, 46	sylancr 599	. . 3 ⊢ (𝜑 → ∃𝑑 ∈ ℕ₀ (𝐷‘ 0 ) < ((𝐷‘𝐺) + 𝑑))
48	3, 35, 47	pm2.61ne 3043	. 2 ⊢ (𝜑 → ∃𝑑 ∈ ℕ₀ (𝐷‘𝐹) < ((𝐷‘𝐺) + 𝑑))
49		fveq2 6893	. . . . . 6 ⊢ (𝑓 = 𝐹 → (𝐷‘𝑓) = (𝐷‘𝐹))
50	49	breq1d 5115	. . . . 5 ⊢ (𝑓 = 𝐹 → ((𝐷‘𝑓) < ((𝐷‘𝐺) + 𝑑) ↔ (𝐷‘𝐹) < ((𝐷‘𝐺) + 𝑑)))
51		fvoveq1 7450	. . . . . . 7 ⊢ (𝑓 = 𝐹 → (𝐷‘(𝑓 − (𝐺 ∙ 𝑞))) = (𝐷‘(𝐹 − (𝐺 ∙ 𝑞))))
52	51	breq1d 5115	. . . . . 6 ⊢ (𝑓 = 𝐹 → ((𝐷‘(𝑓 − (𝐺 ∙ 𝑞))) < (𝐷‘𝐺) ↔ (𝐷‘(𝐹 − (𝐺 ∙ 𝑞))) < (𝐷‘𝐺)))
53	52	rexbidv 3189	. . . . 5 ⊢ (𝑓 = 𝐹 → (∃𝑞 ∈ 𝐵 (𝐷‘(𝑓 − (𝐺 ∙ 𝑞))) < (𝐷‘𝐺) ↔ ∃𝑞 ∈ 𝐵 (𝐷‘(𝐹 − (𝐺 ∙ 𝑞))) < (𝐷‘𝐺)))
54	50, 53	imbi12d 347	. . . 4 ⊢ (𝑓 = 𝐹 → (((𝐷‘𝑓) < ((𝐷‘𝐺) + 𝑑) → ∃𝑞 ∈ 𝐵 (𝐷‘(𝑓 − (𝐺 ∙ 𝑞))) < (𝐷‘𝐺)) ↔ ((𝐷‘𝐹) < ((𝐷‘𝐺) + 𝑑) → ∃𝑞 ∈ 𝐵 (𝐷‘(𝐹 − (𝐺 ∙ 𝑞))) < (𝐷‘𝐺))))
55		oveq2 7435	. . . . . . . . . 10 ⊢ (𝑎 = 0 → ((𝐷‘𝐺) + 𝑎) = ((𝐷‘𝐺) + 0))
56	55	breq2d 5117	. . . . . . . . 9 ⊢ (𝑎 = 0 → ((𝐷‘𝑓) < ((𝐷‘𝐺) + 𝑎) ↔ (𝐷‘𝑓) < ((𝐷‘𝐺) + 0)))
57	56	imbi1d 344	. . . . . . . 8 ⊢ (𝑎 = 0 → (((𝐷‘𝑓) < ((𝐷‘𝐺) + 𝑎) → ∃𝑞 ∈ 𝐵 (𝐷‘(𝑓 − (𝐺 ∙ 𝑞))) < (𝐷‘𝐺)) ↔ ((𝐷‘𝑓) < ((𝐷‘𝐺) + 0) → ∃𝑞 ∈ 𝐵 (𝐷‘(𝑓 − (𝐺 ∙ 𝑞))) < (𝐷‘𝐺))))
58	57	ralbidv 3188	. . . . . . 7 ⊢ (𝑎 = 0 → (∀𝑓 ∈ 𝐵 ((𝐷‘𝑓) < ((𝐷‘𝐺) + 𝑎) → ∃𝑞 ∈ 𝐵 (𝐷‘(𝑓 − (𝐺 ∙ 𝑞))) < (𝐷‘𝐺)) ↔ ∀𝑓 ∈ 𝐵 ((𝐷‘𝑓) < ((𝐷‘𝐺) + 0) → ∃𝑞 ∈ 𝐵 (𝐷‘(𝑓 − (𝐺 ∙ 𝑞))) < (𝐷‘𝐺))))
59	58	imbi2d 343	. . . . . 6 ⊢ (𝑎 = 0 → ((𝜑 → ∀𝑓 ∈ 𝐵 ((𝐷‘𝑓) < ((𝐷‘𝐺) + 𝑎) → ∃𝑞 ∈ 𝐵 (𝐷‘(𝑓 − (𝐺 ∙ 𝑞))) < (𝐷‘𝐺))) ↔ (𝜑 → ∀𝑓 ∈ 𝐵 ((𝐷‘𝑓) < ((𝐷‘𝐺) + 0) → ∃𝑞 ∈ 𝐵 (𝐷‘(𝑓 − (𝐺 ∙ 𝑞))) < (𝐷‘𝐺)))))
60		oveq2 7435	. . . . . . . . . 10 ⊢ (𝑎 = 𝑑 → ((𝐷‘𝐺) + 𝑎) = ((𝐷‘𝐺) + 𝑑))
61	60	breq2d 5117	. . . . . . . . 9 ⊢ (𝑎 = 𝑑 → ((𝐷‘𝑓) < ((𝐷‘𝐺) + 𝑎) ↔ (𝐷‘𝑓) < ((𝐷‘𝐺) + 𝑑)))
62	61	imbi1d 344	. . . . . . . 8 ⊢ (𝑎 = 𝑑 → (((𝐷‘𝑓) < ((𝐷‘𝐺) + 𝑎) → ∃𝑞 ∈ 𝐵 (𝐷‘(𝑓 − (𝐺 ∙ 𝑞))) < (𝐷‘𝐺)) ↔ ((𝐷‘𝑓) < ((𝐷‘𝐺) + 𝑑) → ∃𝑞 ∈ 𝐵 (𝐷‘(𝑓 − (𝐺 ∙ 𝑞))) < (𝐷‘𝐺))))
63	62	ralbidv 3188	. . . . . . 7 ⊢ (𝑎 = 𝑑 → (∀𝑓 ∈ 𝐵 ((𝐷‘𝑓) < ((𝐷‘𝐺) + 𝑎) → ∃𝑞 ∈ 𝐵 (𝐷‘(𝑓 − (𝐺 ∙ 𝑞))) < (𝐷‘𝐺)) ↔ ∀𝑓 ∈ 𝐵 ((𝐷‘𝑓) < ((𝐷‘𝐺) + 𝑑) → ∃𝑞 ∈ 𝐵 (𝐷‘(𝑓 − (𝐺 ∙ 𝑞))) < (𝐷‘𝐺))))
64	63	imbi2d 343	. . . . . 6 ⊢ (𝑎 = 𝑑 → ((𝜑 → ∀𝑓 ∈ 𝐵 ((𝐷‘𝑓) < ((𝐷‘𝐺) + 𝑎) → ∃𝑞 ∈ 𝐵 (𝐷‘(𝑓 − (𝐺 ∙ 𝑞))) < (𝐷‘𝐺))) ↔ (𝜑 → ∀𝑓 ∈ 𝐵 ((𝐷‘𝑓) < ((𝐷‘𝐺) + 𝑑) → ∃𝑞 ∈ 𝐵 (𝐷‘(𝑓 − (𝐺 ∙ 𝑞))) < (𝐷‘𝐺)))))
65		oveq2 7435	. . . . . . . . . 10 ⊢ (𝑎 = (𝑑 + 1) → ((𝐷‘𝐺) + 𝑎) = ((𝐷‘𝐺) + (𝑑 + 1)))
66	65	breq2d 5117	. . . . . . . . 9 ⊢ (𝑎 = (𝑑 + 1) → ((𝐷‘𝑓) < ((𝐷‘𝐺) + 𝑎) ↔ (𝐷‘𝑓) < ((𝐷‘𝐺) + (𝑑 + 1))))
67	66	imbi1d 344	. . . . . . . 8 ⊢ (𝑎 = (𝑑 + 1) → (((𝐷‘𝑓) < ((𝐷‘𝐺) + 𝑎) → ∃𝑞 ∈ 𝐵 (𝐷‘(𝑓 − (𝐺 ∙ 𝑞))) < (𝐷‘𝐺)) ↔ ((𝐷‘𝑓) < ((𝐷‘𝐺) + (𝑑 + 1)) → ∃𝑞 ∈ 𝐵 (𝐷‘(𝑓 − (𝐺 ∙ 𝑞))) < (𝐷‘𝐺))))
68	67	ralbidv 3188	. . . . . . 7 ⊢ (𝑎 = (𝑑 + 1) → (∀𝑓 ∈ 𝐵 ((𝐷‘𝑓) < ((𝐷‘𝐺) + 𝑎) → ∃𝑞 ∈ 𝐵 (𝐷‘(𝑓 − (𝐺 ∙ 𝑞))) < (𝐷‘𝐺)) ↔ ∀𝑓 ∈ 𝐵 ((𝐷‘𝑓) < ((𝐷‘𝐺) + (𝑑 + 1)) → ∃𝑞 ∈ 𝐵 (𝐷‘(𝑓 − (𝐺 ∙ 𝑞))) < (𝐷‘𝐺))))
69	68	imbi2d 343	. . . . . 6 ⊢ (𝑎 = (𝑑 + 1) → ((𝜑 → ∀𝑓 ∈ 𝐵 ((𝐷‘𝑓) < ((𝐷‘𝐺) + 𝑎) → ∃𝑞 ∈ 𝐵 (𝐷‘(𝑓 − (𝐺 ∙ 𝑞))) < (𝐷‘𝐺))) ↔ (𝜑 → ∀𝑓 ∈ 𝐵 ((𝐷‘𝑓) < ((𝐷‘𝐺) + (𝑑 + 1)) → ∃𝑞 ∈ 𝐵 (𝐷‘(𝑓 − (𝐺 ∙ 𝑞))) < (𝐷‘𝐺)))))
70	11	ply1ring 22577	. . . . . . . . . . . 12 ⊢ (𝑅 ∈ Ring → 𝑃 ∈ Ring)
71	5, 70	syl 18	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑃 ∈ Ring)
72	13, 12	ring0cl 20508	. . . . . . . . . . 11 ⊢ (𝑃 ∈ Ring → 0 ∈ 𝐵)
73	71, 72	syl 18	. . . . . . . . . 10 ⊢ (𝜑 → 0 ∈ 𝐵)
74	73	ad2antrr 739	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐵) ∧ (𝐷‘𝑓) < ((𝐷‘𝐺) + 0)) → 0 ∈ 𝐵)
75		ply1divalg.t	. . . . . . . . . . . . . . . . 17 ⊢ ∙ = (._r‘𝑃)
76	13, 75, 12	ringrz 20537	. . . . . . . . . . . . . . . 16 ⊢ ((𝑃 ∈ Ring ∧ 𝐺 ∈ 𝐵) → (𝐺 ∙ 0 ) = 0 )
77	71, 17, 76	syl2anc 596	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝐺 ∙ 0 ) = 0 )
78	77	oveq2d 7443	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝑓 − (𝐺 ∙ 0 )) = (𝑓 − 0 ))
79	78	adantr 486	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐵) → (𝑓 − (𝐺 ∙ 0 )) = (𝑓 − 0 ))
80		ringgrp 20476	. . . . . . . . . . . . . . 15 ⊢ (𝑃 ∈ Ring → 𝑃 ∈ Grp)
81	71, 80	syl 18	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝑃 ∈ Grp)
82		ply1divalg.m	. . . . . . . . . . . . . . 15 ⊢ − = (-_g‘𝑃)
83	13, 12, 82	grpsubid1 19247	. . . . . . . . . . . . . 14 ⊢ ((𝑃 ∈ Grp ∧ 𝑓 ∈ 𝐵) → (𝑓 − 0 ) = 𝑓)
84	81, 83	sylan 592	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐵) → (𝑓 − 0 ) = 𝑓)
85	79, 84	eqtr2d 2799	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐵) → 𝑓 = (𝑓 − (𝐺 ∙ 0 )))
86	85	fveq2d 6897	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐵) → (𝐷‘𝑓) = (𝐷‘(𝑓 − (𝐺 ∙ 0 ))))
87	20	nn0cnd 12679	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝐷‘𝐺) ∈ ℂ)
88	87	addridd 11520	. . . . . . . . . . . 12 ⊢ (𝜑 → ((𝐷‘𝐺) + 0) = (𝐷‘𝐺))
89	88	adantr 486	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐵) → ((𝐷‘𝐺) + 0) = (𝐷‘𝐺))
90	86, 89	breq12d 5118	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐵) → ((𝐷‘𝑓) < ((𝐷‘𝐺) + 0) ↔ (𝐷‘(𝑓 − (𝐺 ∙ 0 ))) < (𝐷‘𝐺)))
91	90	biimpa 482	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐵) ∧ (𝐷‘𝑓) < ((𝐷‘𝐺) + 0)) → (𝐷‘(𝑓 − (𝐺 ∙ 0 ))) < (𝐷‘𝐺))
92		oveq2 7435	. . . . . . . . . . . . 13 ⊢ (𝑞 = 0 → (𝐺 ∙ 𝑞) = (𝐺 ∙ 0 ))
93	92	oveq2d 7443	. . . . . . . . . . . 12 ⊢ (𝑞 = 0 → (𝑓 − (𝐺 ∙ 𝑞)) = (𝑓 − (𝐺 ∙ 0 )))
94	93	fveq2d 6897	. . . . . . . . . . 11 ⊢ (𝑞 = 0 → (𝐷‘(𝑓 − (𝐺 ∙ 𝑞))) = (𝐷‘(𝑓 − (𝐺 ∙ 0 ))))
95	94	breq1d 5115	. . . . . . . . . 10 ⊢ (𝑞 = 0 → ((𝐷‘(𝑓 − (𝐺 ∙ 𝑞))) < (𝐷‘𝐺) ↔ (𝐷‘(𝑓 − (𝐺 ∙ 0 ))) < (𝐷‘𝐺)))
96	95	rspcev 3579	. . . . . . . . 9 ⊢ (( 0 ∈ 𝐵 ∧ (𝐷‘(𝑓 − (𝐺 ∙ 0 ))) < (𝐷‘𝐺)) → ∃𝑞 ∈ 𝐵 (𝐷‘(𝑓 − (𝐺 ∙ 𝑞))) < (𝐷‘𝐺))
97	74, 91, 96	syl2anc 596	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑓 ∈ 𝐵) ∧ (𝐷‘𝑓) < ((𝐷‘𝐺) + 0)) → ∃𝑞 ∈ 𝐵 (𝐷‘(𝑓 − (𝐺 ∙ 𝑞))) < (𝐷‘𝐺))
98	97	ex 418	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑓 ∈ 𝐵) → ((𝐷‘𝑓) < ((𝐷‘𝐺) + 0) → ∃𝑞 ∈ 𝐵 (𝐷‘(𝑓 − (𝐺 ∙ 𝑞))) < (𝐷‘𝐺)))
99	98	ralrimiva 3157	. . . . . 6 ⊢ (𝜑 → ∀𝑓 ∈ 𝐵 ((𝐷‘𝑓) < ((𝐷‘𝐺) + 0) → ∃𝑞 ∈ 𝐵 (𝐷‘(𝑓 − (𝐺 ∙ 𝑞))) < (𝐷‘𝐺)))
100		nn0addcl 12651	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝐷‘𝐺) ∈ ℕ₀ ∧ 𝑑 ∈ ℕ₀) → ((𝐷‘𝐺) + 𝑑) ∈ ℕ₀)
101	20, 100	sylan 592	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑑 ∈ ℕ₀) → ((𝐷‘𝐺) + 𝑑) ∈ ℕ₀)
102	101	adantr 486	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑑 ∈ ℕ₀) ∧ (𝑔 ∈ 𝐵 ∧ (𝐷‘𝑔) < ((𝐷‘𝐺) + (𝑑 + 1)))) → ((𝐷‘𝐺) + 𝑑) ∈ ℕ₀)
103	5	ad2antrr 739	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑑 ∈ ℕ₀) ∧ (𝑔 ∈ 𝐵 ∧ (𝐷‘𝑔) < ((𝐷‘𝐺) + (𝑑 + 1)))) → 𝑅 ∈ Ring)
104		simprl 783	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑑 ∈ ℕ₀) ∧ (𝑔 ∈ 𝐵 ∧ (𝐷‘𝑔) < ((𝐷‘𝐺) + (𝑑 + 1)))) → 𝑔 ∈ 𝐵)
105	10, 11, 13	deg1cl 26413	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑔 ∈ 𝐵 → (𝐷‘𝑔) ∈ (ℕ₀ ∪ {-∞}))
106	20	ad2antrr 739	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝜑 ∧ 𝑑 ∈ ℕ₀) ∧ 𝑔 ∈ 𝐵) → (𝐷‘𝐺) ∈ ℕ₀)
107		peano2nn0 12656	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑑 ∈ ℕ₀ → (𝑑 + 1) ∈ ℕ₀)
108	107	ad2antlr 740	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝜑 ∧ 𝑑 ∈ ℕ₀) ∧ 𝑔 ∈ 𝐵) → (𝑑 + 1) ∈ ℕ₀)
109	106, 108	nn0addcld 12681	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝜑 ∧ 𝑑 ∈ ℕ₀) ∧ 𝑔 ∈ 𝐵) → ((𝐷‘𝐺) + (𝑑 + 1)) ∈ ℕ₀)
110	109	nn0zd 12728	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ 𝑑 ∈ ℕ₀) ∧ 𝑔 ∈ 𝐵) → ((𝐷‘𝐺) + (𝑑 + 1)) ∈ ℤ)
111		degltlem1 26402	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝐷‘𝑔) ∈ (ℕ₀ ∪ {-∞}) ∧ ((𝐷‘𝐺) + (𝑑 + 1)) ∈ ℤ) → ((𝐷‘𝑔) < ((𝐷‘𝐺) + (𝑑 + 1)) ↔ (𝐷‘𝑔) ≤ (((𝐷‘𝐺) + (𝑑 + 1)) − 1)))
112	105, 110, 111	syl2an2 699	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ 𝑑 ∈ ℕ₀) ∧ 𝑔 ∈ 𝐵) → ((𝐷‘𝑔) < ((𝐷‘𝐺) + (𝑑 + 1)) ↔ (𝐷‘𝑔) ≤ (((𝐷‘𝐺) + (𝑑 + 1)) − 1)))
113	112	biimpd 232	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑑 ∈ ℕ₀) ∧ 𝑔 ∈ 𝐵) → ((𝐷‘𝑔) < ((𝐷‘𝐺) + (𝑑 + 1)) → (𝐷‘𝑔) ≤ (((𝐷‘𝐺) + (𝑑 + 1)) − 1)))
114	113	impr 460	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑑 ∈ ℕ₀) ∧ (𝑔 ∈ 𝐵 ∧ (𝐷‘𝑔) < ((𝐷‘𝐺) + (𝑑 + 1)))) → (𝐷‘𝑔) ≤ (((𝐷‘𝐺) + (𝑑 + 1)) − 1))
115	20	adantr 486	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝜑 ∧ 𝑑 ∈ ℕ₀) → (𝐷‘𝐺) ∈ ℕ₀)
116	115	nn0cnd 12679	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ 𝑑 ∈ ℕ₀) → (𝐷‘𝐺) ∈ ℂ)
117		nn0cn 12626	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑑 ∈ ℕ₀ → 𝑑 ∈ ℂ)
118	117	adantl 487	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝜑 ∧ 𝑑 ∈ ℕ₀) → 𝑑 ∈ ℂ)
119		peano2cn 11492	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑑 ∈ ℂ → (𝑑 + 1) ∈ ℂ)
120	118, 119	syl 18	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ 𝑑 ∈ ℕ₀) → (𝑑 + 1) ∈ ℂ)
121		1cnd 11312	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ 𝑑 ∈ ℕ₀) → 1 ∈ ℂ)
122	116, 120, 121	addsubassd 11699	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑑 ∈ ℕ₀) → (((𝐷‘𝐺) + (𝑑 + 1)) − 1) = ((𝐷‘𝐺) + ((𝑑 + 1) − 1)))
123		ax-1cn 11268	. . . . . . . . . . . . . . . . . . . . 21 ⊢ 1 ∈ ℂ
124		pncan 11573	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝑑 ∈ ℂ ∧ 1 ∈ ℂ) → ((𝑑 + 1) − 1) = 𝑑)
125	118, 123, 124	sylancl 598	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ 𝑑 ∈ ℕ₀) → ((𝑑 + 1) − 1) = 𝑑)
126	125	oveq2d 7443	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑑 ∈ ℕ₀) → ((𝐷‘𝐺) + ((𝑑 + 1) − 1)) = ((𝐷‘𝐺) + 𝑑))
127	122, 126	eqtrd 2798	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑑 ∈ ℕ₀) → (((𝐷‘𝐺) + (𝑑 + 1)) − 1) = ((𝐷‘𝐺) + 𝑑))
128	127	adantr 486	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑑 ∈ ℕ₀) ∧ (𝑔 ∈ 𝐵 ∧ (𝐷‘𝑔) < ((𝐷‘𝐺) + (𝑑 + 1)))) → (((𝐷‘𝐺) + (𝑑 + 1)) − 1) = ((𝐷‘𝐺) + 𝑑))
129	114, 128	breqtrd 5133	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑑 ∈ ℕ₀) ∧ (𝑔 ∈ 𝐵 ∧ (𝐷‘𝑔) < ((𝐷‘𝐺) + (𝑑 + 1)))) → (𝐷‘𝑔) ≤ ((𝐷‘𝐺) + 𝑑))
130	71	ad2antrr 739	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑑 ∈ ℕ₀) ∧ 𝑔 ∈ 𝐵) → 𝑃 ∈ Ring)
131	17	ad2antrr 739	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑑 ∈ ℕ₀) ∧ 𝑔 ∈ 𝐵) → 𝐺 ∈ 𝐵)
132	5	ad2antrr 739	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ 𝑑 ∈ ℕ₀) ∧ 𝑔 ∈ 𝐵) → 𝑅 ∈ Ring)
133		ply1divex.i	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → 𝐼 ∈ 𝐾)
134	133	ad2antrr 739	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ 𝑑 ∈ ℕ₀) ∧ 𝑔 ∈ 𝐵) → 𝐼 ∈ 𝐾)
135		eqid 2763	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (coe₁‘𝑔) = (coe₁‘𝑔)
136		ply1divex.k	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ 𝐾 = (Base‘𝑅)
137	135, 13, 11, 136	coe1f 22541	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑔 ∈ 𝐵 → (coe₁‘𝑔):ℕ₀⟶𝐾)
138	137	adantl 487	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝜑 ∧ 𝑑 ∈ ℕ₀) ∧ 𝑔 ∈ 𝐵) → (coe₁‘𝑔):ℕ₀⟶𝐾)
139		simplr 781	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝜑 ∧ 𝑑 ∈ ℕ₀) ∧ 𝑔 ∈ 𝐵) → 𝑑 ∈ ℕ₀)
140	106, 139	nn0addcld 12681	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝜑 ∧ 𝑑 ∈ ℕ₀) ∧ 𝑔 ∈ 𝐵) → ((𝐷‘𝐺) + 𝑑) ∈ ℕ₀)
141	138, 140	ffvelcdmd 7093	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ 𝑑 ∈ ℕ₀) ∧ 𝑔 ∈ 𝐵) → ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑)) ∈ 𝐾)
142		ply1divex.u	. . . . . . . . . . . . . . . . . . . . 21 ⊢ · = (._r‘𝑅)
143	136, 142	ringcl 20489	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑅 ∈ Ring ∧ 𝐼 ∈ 𝐾 ∧ ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑)) ∈ 𝐾) → (𝐼 · ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑))) ∈ 𝐾)
144	132, 134, 141, 143	syl3anc 1398	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ 𝑑 ∈ ℕ₀) ∧ 𝑔 ∈ 𝐵) → (𝐼 · ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑))) ∈ 𝐾)
145		eqid 2763	. . . . . . . . . . . . . . . . . . . 20 ⊢ (var₁‘𝑅) = (var₁‘𝑅)
146		eqid 2763	. . . . . . . . . . . . . . . . . . . 20 ⊢ ( ·_𝑠 ‘𝑃) = ( ·_𝑠 ‘𝑃)
147		eqid 2763	. . . . . . . . . . . . . . . . . . . 20 ⊢ (mulGrp‘𝑃) = (mulGrp‘𝑃)
148		eqid 2763	. . . . . . . . . . . . . . . . . . . 20 ⊢ (._g‘(mulGrp‘𝑃)) = (._g‘(mulGrp‘𝑃))
149	136, 11, 145, 146, 147, 148, 13	ply1tmcl 22603	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑅 ∈ Ring ∧ (𝐼 · ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑))) ∈ 𝐾 ∧ 𝑑 ∈ ℕ₀) → ((𝐼 · ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑)))( ·_𝑠 ‘𝑃)(𝑑(._g‘(mulGrp‘𝑃))(var₁‘𝑅))) ∈ 𝐵)
150	132, 144, 139, 149	syl3anc 1398	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑑 ∈ ℕ₀) ∧ 𝑔 ∈ 𝐵) → ((𝐼 · ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑)))( ·_𝑠 ‘𝑃)(𝑑(._g‘(mulGrp‘𝑃))(var₁‘𝑅))) ∈ 𝐵)
151	13, 75	ringcl 20489	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑃 ∈ Ring ∧ 𝐺 ∈ 𝐵 ∧ ((𝐼 · ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑)))( ·_𝑠 ‘𝑃)(𝑑(._g‘(mulGrp‘𝑃))(var₁‘𝑅))) ∈ 𝐵) → (𝐺 ∙ ((𝐼 · ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑)))( ·_𝑠 ‘𝑃)(𝑑(._g‘(mulGrp‘𝑃))(var₁‘𝑅)))) ∈ 𝐵)
152	130, 131, 150, 151	syl3anc 1398	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑑 ∈ ℕ₀) ∧ 𝑔 ∈ 𝐵) → (𝐺 ∙ ((𝐼 · ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑)))( ·_𝑠 ‘𝑃)(𝑑(._g‘(mulGrp‘𝑃))(var₁‘𝑅)))) ∈ 𝐵)
153	152	adantrr 730	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑑 ∈ ℕ₀) ∧ (𝑔 ∈ 𝐵 ∧ (𝐷‘𝑔) < ((𝐷‘𝐺) + (𝑑 + 1)))) → (𝐺 ∙ ((𝐼 · ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑)))( ·_𝑠 ‘𝑃)(𝑑(._g‘(mulGrp‘𝑃))(var₁‘𝑅)))) ∈ 𝐵)
154	106	nn0red 12678	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ 𝑑 ∈ ℕ₀) ∧ 𝑔 ∈ 𝐵) → (𝐷‘𝐺) ∈ ℝ)
155	154	leidd 11892	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑑 ∈ ℕ₀) ∧ 𝑔 ∈ 𝐵) → (𝐷‘𝐺) ≤ (𝐷‘𝐺))
156	10, 136, 11, 145, 146, 147, 148	deg1tmle 26448	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑅 ∈ Ring ∧ (𝐼 · ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑))) ∈ 𝐾 ∧ 𝑑 ∈ ℕ₀) → (𝐷‘((𝐼 · ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑)))( ·_𝑠 ‘𝑃)(𝑑(._g‘(mulGrp‘𝑃))(var₁‘𝑅)))) ≤ 𝑑)
157	132, 144, 139, 156	syl3anc 1398	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑑 ∈ ℕ₀) ∧ 𝑔 ∈ 𝐵) → (𝐷‘((𝐼 · ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑)))( ·_𝑠 ‘𝑃)(𝑑(._g‘(mulGrp‘𝑃))(var₁‘𝑅)))) ≤ 𝑑)
158	11, 10, 132, 13, 75, 131, 150, 106, 139, 155, 157	deg1mulle2 26439	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑑 ∈ ℕ₀) ∧ 𝑔 ∈ 𝐵) → (𝐷‘(𝐺 ∙ ((𝐼 · ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑)))( ·_𝑠 ‘𝑃)(𝑑(._g‘(mulGrp‘𝑃))(var₁‘𝑅))))) ≤ ((𝐷‘𝐺) + 𝑑))
159	158	adantrr 730	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑑 ∈ ℕ₀) ∧ (𝑔 ∈ 𝐵 ∧ (𝐷‘𝑔) < ((𝐷‘𝐺) + (𝑑 + 1)))) → (𝐷‘(𝐺 ∙ ((𝐼 · ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑)))( ·_𝑠 ‘𝑃)(𝑑(._g‘(mulGrp‘𝑃))(var₁‘𝑅))))) ≤ ((𝐷‘𝐺) + 𝑑))
160		eqid 2763	. . . . . . . . . . . . . . . 16 ⊢ (coe₁‘(𝐺 ∙ ((𝐼 · ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑)))( ·_𝑠 ‘𝑃)(𝑑(._g‘(mulGrp‘𝑃))(var₁‘𝑅))))) = (coe₁‘(𝐺 ∙ ((𝐼 · ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑)))( ·_𝑠 ‘𝑃)(𝑑(._g‘(mulGrp‘𝑃))(var₁‘𝑅)))))
161		eqid 2763	. . . . . . . . . . . . . . . . . . 19 ⊢ (0_g‘𝑅) = (0_g‘𝑅)
162	161, 136, 11, 145, 146, 147, 148, 13, 75, 142, 131, 132, 144, 139, 106	coe1tmmul2fv 22609	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑑 ∈ ℕ₀) ∧ 𝑔 ∈ 𝐵) → ((coe₁‘(𝐺 ∙ ((𝐼 · ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑)))( ·_𝑠 ‘𝑃)(𝑑(._g‘(mulGrp‘𝑃))(var₁‘𝑅)))))‘(𝑑 + (𝐷‘𝐺))) = (((coe₁‘𝐺)‘(𝐷‘𝐺)) · (𝐼 · ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑)))))
163	106	nn0cnd 12679	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ 𝑑 ∈ ℕ₀) ∧ 𝑔 ∈ 𝐵) → (𝐷‘𝐺) ∈ ℂ)
164	117	ad2antlr 740	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ 𝑑 ∈ ℕ₀) ∧ 𝑔 ∈ 𝐵) → 𝑑 ∈ ℂ)
165	163, 164	addcomd 11522	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ 𝑑 ∈ ℕ₀) ∧ 𝑔 ∈ 𝐵) → ((𝐷‘𝐺) + 𝑑) = (𝑑 + (𝐷‘𝐺)))
166	165	fveq2d 6897	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑑 ∈ ℕ₀) ∧ 𝑔 ∈ 𝐵) → ((coe₁‘(𝐺 ∙ ((𝐼 · ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑)))( ·_𝑠 ‘𝑃)(𝑑(._g‘(mulGrp‘𝑃))(var₁‘𝑅)))))‘((𝐷‘𝐺) + 𝑑)) = ((coe₁‘(𝐺 ∙ ((𝐼 · ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑)))( ·_𝑠 ‘𝑃)(𝑑(._g‘(mulGrp‘𝑃))(var₁‘𝑅)))))‘(𝑑 + (𝐷‘𝐺))))
167		ply1divex.g3	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → (((coe₁‘𝐺)‘(𝐷‘𝐺)) · 𝐼) = 1 )
168	167	oveq1d 7442	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → ((((coe₁‘𝐺)‘(𝐷‘𝐺)) · 𝐼) · ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑))) = ( 1 · ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑))))
169	168	ad2antrr 739	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ 𝑑 ∈ ℕ₀) ∧ 𝑔 ∈ 𝐵) → ((((coe₁‘𝐺)‘(𝐷‘𝐺)) · 𝐼) · ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑))) = ( 1 · ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑))))
170		eqid 2763	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (coe₁‘𝐺) = (coe₁‘𝐺)
171	170, 13, 11, 136	coe1f 22541	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝐺 ∈ 𝐵 → (coe₁‘𝐺):ℕ₀⟶𝐾)
172	17, 171	syl 18	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → (coe₁‘𝐺):ℕ₀⟶𝐾)
173	172	ad2antrr 739	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝜑 ∧ 𝑑 ∈ ℕ₀) ∧ 𝑔 ∈ 𝐵) → (coe₁‘𝐺):ℕ₀⟶𝐾)
174	173, 106	ffvelcdmd 7093	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ 𝑑 ∈ ℕ₀) ∧ 𝑔 ∈ 𝐵) → ((coe₁‘𝐺)‘(𝐷‘𝐺)) ∈ 𝐾)
175	136, 142	ringass 20492	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑅 ∈ Ring ∧ (((coe₁‘𝐺)‘(𝐷‘𝐺)) ∈ 𝐾 ∧ 𝐼 ∈ 𝐾 ∧ ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑)) ∈ 𝐾)) → ((((coe₁‘𝐺)‘(𝐷‘𝐺)) · 𝐼) · ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑))) = (((coe₁‘𝐺)‘(𝐷‘𝐺)) · (𝐼 · ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑)))))
176	132, 174, 134, 141, 175	syl13anc 1399	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ 𝑑 ∈ ℕ₀) ∧ 𝑔 ∈ 𝐵) → ((((coe₁‘𝐺)‘(𝐷‘𝐺)) · 𝐼) · ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑))) = (((coe₁‘𝐺)‘(𝐷‘𝐺)) · (𝐼 · ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑)))))
177		ply1divex.o	. . . . . . . . . . . . . . . . . . . . 21 ⊢ 1 = (1_r‘𝑅)
178	136, 142, 177	ringlidm 20510	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑅 ∈ Ring ∧ ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑)) ∈ 𝐾) → ( 1 · ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑))) = ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑)))
179	132, 141, 178	syl2anc 596	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ 𝑑 ∈ ℕ₀) ∧ 𝑔 ∈ 𝐵) → ( 1 · ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑))) = ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑)))
180	169, 176, 179	3eqtr3rd 2807	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑑 ∈ ℕ₀) ∧ 𝑔 ∈ 𝐵) → ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑)) = (((coe₁‘𝐺)‘(𝐷‘𝐺)) · (𝐼 · ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑)))))
181	162, 166, 180	3eqtr4rd 2809	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑑 ∈ ℕ₀) ∧ 𝑔 ∈ 𝐵) → ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑)) = ((coe₁‘(𝐺 ∙ ((𝐼 · ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑)))( ·_𝑠 ‘𝑃)(𝑑(._g‘(mulGrp‘𝑃))(var₁‘𝑅)))))‘((𝐷‘𝐺) + 𝑑)))
182	181	adantrr 730	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑑 ∈ ℕ₀) ∧ (𝑔 ∈ 𝐵 ∧ (𝐷‘𝑔) < ((𝐷‘𝐺) + (𝑑 + 1)))) → ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑)) = ((coe₁‘(𝐺 ∙ ((𝐼 · ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑)))( ·_𝑠 ‘𝑃)(𝑑(._g‘(mulGrp‘𝑃))(var₁‘𝑅)))))‘((𝐷‘𝐺) + 𝑑)))
183	10, 11, 13, 82, 102, 103, 104, 129, 153, 159, 135, 160, 182	deg1sublt 26440	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑑 ∈ ℕ₀) ∧ (𝑔 ∈ 𝐵 ∧ (𝐷‘𝑔) < ((𝐷‘𝐺) + (𝑑 + 1)))) → (𝐷‘(𝑔 − (𝐺 ∙ ((𝐼 · ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑)))( ·_𝑠 ‘𝑃)(𝑑(._g‘(mulGrp‘𝑃))(var₁‘𝑅)))))) < ((𝐷‘𝐺) + 𝑑))
184	183	adantlrr 734	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑑 ∈ ℕ₀ ∧ ∀𝑓 ∈ 𝐵 ((𝐷‘𝑓) < ((𝐷‘𝐺) + 𝑑) → ∃𝑞 ∈ 𝐵 (𝐷‘(𝑓 − (𝐺 ∙ 𝑞))) < (𝐷‘𝐺)))) ∧ (𝑔 ∈ 𝐵 ∧ (𝐷‘𝑔) < ((𝐷‘𝐺) + (𝑑 + 1)))) → (𝐷‘(𝑔 − (𝐺 ∙ ((𝐼 · ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑)))( ·_𝑠 ‘𝑃)(𝑑(._g‘(mulGrp‘𝑃))(var₁‘𝑅)))))) < ((𝐷‘𝐺) + 𝑑))
185		fveq2 6893	. . . . . . . . . . . . . . . . 17 ⊢ (𝑓 = (𝑔 − (𝐺 ∙ ((𝐼 · ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑)))( ·_𝑠 ‘𝑃)(𝑑(._g‘(mulGrp‘𝑃))(var₁‘𝑅))))) → (𝐷‘𝑓) = (𝐷‘(𝑔 − (𝐺 ∙ ((𝐼 · ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑)))( ·_𝑠 ‘𝑃)(𝑑(._g‘(mulGrp‘𝑃))(var₁‘𝑅)))))))
186	185	breq1d 5115	. . . . . . . . . . . . . . . 16 ⊢ (𝑓 = (𝑔 − (𝐺 ∙ ((𝐼 · ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑)))( ·_𝑠 ‘𝑃)(𝑑(._g‘(mulGrp‘𝑃))(var₁‘𝑅))))) → ((𝐷‘𝑓) < ((𝐷‘𝐺) + 𝑑) ↔ (𝐷‘(𝑔 − (𝐺 ∙ ((𝐼 · ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑)))( ·_𝑠 ‘𝑃)(𝑑(._g‘(mulGrp‘𝑃))(var₁‘𝑅)))))) < ((𝐷‘𝐺) + 𝑑)))
187		fvoveq1 7450	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑓 = (𝑔 − (𝐺 ∙ ((𝐼 · ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑)))( ·_𝑠 ‘𝑃)(𝑑(._g‘(mulGrp‘𝑃))(var₁‘𝑅))))) → (𝐷‘(𝑓 − (𝐺 ∙ 𝑞))) = (𝐷‘((𝑔 − (𝐺 ∙ ((𝐼 · ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑)))( ·_𝑠 ‘𝑃)(𝑑(._g‘(mulGrp‘𝑃))(var₁‘𝑅))))) − (𝐺 ∙ 𝑞))))
188	187	breq1d 5115	. . . . . . . . . . . . . . . . 17 ⊢ (𝑓 = (𝑔 − (𝐺 ∙ ((𝐼 · ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑)))( ·_𝑠 ‘𝑃)(𝑑(._g‘(mulGrp‘𝑃))(var₁‘𝑅))))) → ((𝐷‘(𝑓 − (𝐺 ∙ 𝑞))) < (𝐷‘𝐺) ↔ (𝐷‘((𝑔 − (𝐺 ∙ ((𝐼 · ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑)))( ·_𝑠 ‘𝑃)(𝑑(._g‘(mulGrp‘𝑃))(var₁‘𝑅))))) − (𝐺 ∙ 𝑞))) < (𝐷‘𝐺)))
189	188	rexbidv 3189	. . . . . . . . . . . . . . . 16 ⊢ (𝑓 = (𝑔 − (𝐺 ∙ ((𝐼 · ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑)))( ·_𝑠 ‘𝑃)(𝑑(._g‘(mulGrp‘𝑃))(var₁‘𝑅))))) → (∃𝑞 ∈ 𝐵 (𝐷‘(𝑓 − (𝐺 ∙ 𝑞))) < (𝐷‘𝐺) ↔ ∃𝑞 ∈ 𝐵 (𝐷‘((𝑔 − (𝐺 ∙ ((𝐼 · ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑)))( ·_𝑠 ‘𝑃)(𝑑(._g‘(mulGrp‘𝑃))(var₁‘𝑅))))) − (𝐺 ∙ 𝑞))) < (𝐷‘𝐺)))
190	186, 189	imbi12d 347	. . . . . . . . . . . . . . 15 ⊢ (𝑓 = (𝑔 − (𝐺 ∙ ((𝐼 · ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑)))( ·_𝑠 ‘𝑃)(𝑑(._g‘(mulGrp‘𝑃))(var₁‘𝑅))))) → (((𝐷‘𝑓) < ((𝐷‘𝐺) + 𝑑) → ∃𝑞 ∈ 𝐵 (𝐷‘(𝑓 − (𝐺 ∙ 𝑞))) < (𝐷‘𝐺)) ↔ ((𝐷‘(𝑔 − (𝐺 ∙ ((𝐼 · ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑)))( ·_𝑠 ‘𝑃)(𝑑(._g‘(mulGrp‘𝑃))(var₁‘𝑅)))))) < ((𝐷‘𝐺) + 𝑑) → ∃𝑞 ∈ 𝐵 (𝐷‘((𝑔 − (𝐺 ∙ ((𝐼 · ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑)))( ·_𝑠 ‘𝑃)(𝑑(._g‘(mulGrp‘𝑃))(var₁‘𝑅))))) − (𝐺 ∙ 𝑞))) < (𝐷‘𝐺))))
191		simplrr 790	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝑑 ∈ ℕ₀ ∧ ∀𝑓 ∈ 𝐵 ((𝐷‘𝑓) < ((𝐷‘𝐺) + 𝑑) → ∃𝑞 ∈ 𝐵 (𝐷‘(𝑓 − (𝐺 ∙ 𝑞))) < (𝐷‘𝐺)))) ∧ (𝑔 ∈ 𝐵 ∧ (𝐷‘𝑔) < ((𝐷‘𝐺) + (𝑑 + 1)))) → ∀𝑓 ∈ 𝐵 ((𝐷‘𝑓) < ((𝐷‘𝐺) + 𝑑) → ∃𝑞 ∈ 𝐵 (𝐷‘(𝑓 − (𝐺 ∙ 𝑞))) < (𝐷‘𝐺)))
192	81	ad2antrr 739	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑑 ∈ ℕ₀) ∧ 𝑔 ∈ 𝐵) → 𝑃 ∈ Grp)
193		simpr 490	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑑 ∈ ℕ₀) ∧ 𝑔 ∈ 𝐵) → 𝑔 ∈ 𝐵)
194	13, 82	grpsubcl 19242	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑃 ∈ Grp ∧ 𝑔 ∈ 𝐵 ∧ (𝐺 ∙ ((𝐼 · ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑)))( ·_𝑠 ‘𝑃)(𝑑(._g‘(mulGrp‘𝑃))(var₁‘𝑅)))) ∈ 𝐵) → (𝑔 − (𝐺 ∙ ((𝐼 · ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑)))( ·_𝑠 ‘𝑃)(𝑑(._g‘(mulGrp‘𝑃))(var₁‘𝑅))))) ∈ 𝐵)
195	192, 193, 152, 194	syl3anc 1398	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑑 ∈ ℕ₀) ∧ 𝑔 ∈ 𝐵) → (𝑔 − (𝐺 ∙ ((𝐼 · ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑)))( ·_𝑠 ‘𝑃)(𝑑(._g‘(mulGrp‘𝑃))(var₁‘𝑅))))) ∈ 𝐵)
196	195	adantrr 730	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑑 ∈ ℕ₀) ∧ (𝑔 ∈ 𝐵 ∧ (𝐷‘𝑔) < ((𝐷‘𝐺) + (𝑑 + 1)))) → (𝑔 − (𝐺 ∙ ((𝐼 · ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑)))( ·_𝑠 ‘𝑃)(𝑑(._g‘(mulGrp‘𝑃))(var₁‘𝑅))))) ∈ 𝐵)
197	196	adantlrr 734	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝑑 ∈ ℕ₀ ∧ ∀𝑓 ∈ 𝐵 ((𝐷‘𝑓) < ((𝐷‘𝐺) + 𝑑) → ∃𝑞 ∈ 𝐵 (𝐷‘(𝑓 − (𝐺 ∙ 𝑞))) < (𝐷‘𝐺)))) ∧ (𝑔 ∈ 𝐵 ∧ (𝐷‘𝑔) < ((𝐷‘𝐺) + (𝑑 + 1)))) → (𝑔 − (𝐺 ∙ ((𝐼 · ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑)))( ·_𝑠 ‘𝑃)(𝑑(._g‘(mulGrp‘𝑃))(var₁‘𝑅))))) ∈ 𝐵)
198	190, 191, 197	rspcdva 3580	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑑 ∈ ℕ₀ ∧ ∀𝑓 ∈ 𝐵 ((𝐷‘𝑓) < ((𝐷‘𝐺) + 𝑑) → ∃𝑞 ∈ 𝐵 (𝐷‘(𝑓 − (𝐺 ∙ 𝑞))) < (𝐷‘𝐺)))) ∧ (𝑔 ∈ 𝐵 ∧ (𝐷‘𝑔) < ((𝐷‘𝐺) + (𝑑 + 1)))) → ((𝐷‘(𝑔 − (𝐺 ∙ ((𝐼 · ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑)))( ·_𝑠 ‘𝑃)(𝑑(._g‘(mulGrp‘𝑃))(var₁‘𝑅)))))) < ((𝐷‘𝐺) + 𝑑) → ∃𝑞 ∈ 𝐵 (𝐷‘((𝑔 − (𝐺 ∙ ((𝐼 · ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑)))( ·_𝑠 ‘𝑃)(𝑑(._g‘(mulGrp‘𝑃))(var₁‘𝑅))))) − (𝐺 ∙ 𝑞))) < (𝐷‘𝐺)))
199	184, 198	mpd 16	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑑 ∈ ℕ₀ ∧ ∀𝑓 ∈ 𝐵 ((𝐷‘𝑓) < ((𝐷‘𝐺) + 𝑑) → ∃𝑞 ∈ 𝐵 (𝐷‘(𝑓 − (𝐺 ∙ 𝑞))) < (𝐷‘𝐺)))) ∧ (𝑔 ∈ 𝐵 ∧ (𝐷‘𝑔) < ((𝐷‘𝐺) + (𝑑 + 1)))) → ∃𝑞 ∈ 𝐵 (𝐷‘((𝑔 − (𝐺 ∙ ((𝐼 · ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑)))( ·_𝑠 ‘𝑃)(𝑑(._g‘(mulGrp‘𝑃))(var₁‘𝑅))))) − (𝐺 ∙ 𝑞))) < (𝐷‘𝐺))
200	71	ad3antrrr 743	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ 𝑑 ∈ ℕ₀) ∧ 𝑔 ∈ 𝐵) ∧ 𝑞 ∈ 𝐵) → 𝑃 ∈ Ring)
201		simpr 490	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ 𝑑 ∈ ℕ₀) ∧ 𝑔 ∈ 𝐵) ∧ 𝑞 ∈ 𝐵) → 𝑞 ∈ 𝐵)
202	150	adantr 486	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ 𝑑 ∈ ℕ₀) ∧ 𝑔 ∈ 𝐵) ∧ 𝑞 ∈ 𝐵) → ((𝐼 · ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑)))( ·_𝑠 ‘𝑃)(𝑑(._g‘(mulGrp‘𝑃))(var₁‘𝑅))) ∈ 𝐵)
203		eqid 2763	. . . . . . . . . . . . . . . . . . 19 ⊢ (+_g‘𝑃) = (+_g‘𝑃)
204	13, 203	ringacl 20519	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑃 ∈ Ring ∧ 𝑞 ∈ 𝐵 ∧ ((𝐼 · ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑)))( ·_𝑠 ‘𝑃)(𝑑(._g‘(mulGrp‘𝑃))(var₁‘𝑅))) ∈ 𝐵) → (𝑞(+_g‘𝑃)((𝐼 · ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑)))( ·_𝑠 ‘𝑃)(𝑑(._g‘(mulGrp‘𝑃))(var₁‘𝑅)))) ∈ 𝐵)
205	200, 201, 202, 204	syl3anc 1398	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝜑 ∧ 𝑑 ∈ ℕ₀) ∧ 𝑔 ∈ 𝐵) ∧ 𝑞 ∈ 𝐵) → (𝑞(+_g‘𝑃)((𝐼 · ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑)))( ·_𝑠 ‘𝑃)(𝑑(._g‘(mulGrp‘𝑃))(var₁‘𝑅)))) ∈ 𝐵)
206	81	ad3antrrr 743	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ 𝑑 ∈ ℕ₀) ∧ 𝑔 ∈ 𝐵) ∧ 𝑞 ∈ 𝐵) → 𝑃 ∈ Grp)
207		simplr 781	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ 𝑑 ∈ ℕ₀) ∧ 𝑔 ∈ 𝐵) ∧ 𝑞 ∈ 𝐵) → 𝑔 ∈ 𝐵)
208	152	adantr 486	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ 𝑑 ∈ ℕ₀) ∧ 𝑔 ∈ 𝐵) ∧ 𝑞 ∈ 𝐵) → (𝐺 ∙ ((𝐼 · ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑)))( ·_𝑠 ‘𝑃)(𝑑(._g‘(mulGrp‘𝑃))(var₁‘𝑅)))) ∈ 𝐵)
209	17	ad3antrrr 743	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ 𝑑 ∈ ℕ₀) ∧ 𝑔 ∈ 𝐵) ∧ 𝑞 ∈ 𝐵) → 𝐺 ∈ 𝐵)
210	13, 75	ringcl 20489	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((𝑃 ∈ Ring ∧ 𝐺 ∈ 𝐵 ∧ 𝑞 ∈ 𝐵) → (𝐺 ∙ 𝑞) ∈ 𝐵)
211	200, 209, 201, 210	syl3anc 1398	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ 𝑑 ∈ ℕ₀) ∧ 𝑔 ∈ 𝐵) ∧ 𝑞 ∈ 𝐵) → (𝐺 ∙ 𝑞) ∈ 𝐵)
212	13, 203, 82	grpsubsub4 19255	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝑃 ∈ Grp ∧ (𝑔 ∈ 𝐵 ∧ (𝐺 ∙ ((𝐼 · ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑)))( ·_𝑠 ‘𝑃)(𝑑(._g‘(mulGrp‘𝑃))(var₁‘𝑅)))) ∈ 𝐵 ∧ (𝐺 ∙ 𝑞) ∈ 𝐵)) → ((𝑔 − (𝐺 ∙ ((𝐼 · ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑)))( ·_𝑠 ‘𝑃)(𝑑(._g‘(mulGrp‘𝑃))(var₁‘𝑅))))) − (𝐺 ∙ 𝑞)) = (𝑔 − ((𝐺 ∙ 𝑞)(+_g‘𝑃)(𝐺 ∙ ((𝐼 · ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑)))( ·_𝑠 ‘𝑃)(𝑑(._g‘(mulGrp‘𝑃))(var₁‘𝑅)))))))
213	206, 207, 208, 211, 212	syl13anc 1399	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ 𝑑 ∈ ℕ₀) ∧ 𝑔 ∈ 𝐵) ∧ 𝑞 ∈ 𝐵) → ((𝑔 − (𝐺 ∙ ((𝐼 · ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑)))( ·_𝑠 ‘𝑃)(𝑑(._g‘(mulGrp‘𝑃))(var₁‘𝑅))))) − (𝐺 ∙ 𝑞)) = (𝑔 − ((𝐺 ∙ 𝑞)(+_g‘𝑃)(𝐺 ∙ ((𝐼 · ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑)))( ·_𝑠 ‘𝑃)(𝑑(._g‘(mulGrp‘𝑃))(var₁‘𝑅)))))))
214	13, 203, 75	ringdi 20501	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((𝑃 ∈ Ring ∧ (𝐺 ∈ 𝐵 ∧ 𝑞 ∈ 𝐵 ∧ ((𝐼 · ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑)))( ·_𝑠 ‘𝑃)(𝑑(._g‘(mulGrp‘𝑃))(var₁‘𝑅))) ∈ 𝐵)) → (𝐺 ∙ (𝑞(+_g‘𝑃)((𝐼 · ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑)))( ·_𝑠 ‘𝑃)(𝑑(._g‘(mulGrp‘𝑃))(var₁‘𝑅))))) = ((𝐺 ∙ 𝑞)(+_g‘𝑃)(𝐺 ∙ ((𝐼 · ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑)))( ·_𝑠 ‘𝑃)(𝑑(._g‘(mulGrp‘𝑃))(var₁‘𝑅))))))
215	200, 209, 201, 202, 214	syl13anc 1399	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ 𝑑 ∈ ℕ₀) ∧ 𝑔 ∈ 𝐵) ∧ 𝑞 ∈ 𝐵) → (𝐺 ∙ (𝑞(+_g‘𝑃)((𝐼 · ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑)))( ·_𝑠 ‘𝑃)(𝑑(._g‘(mulGrp‘𝑃))(var₁‘𝑅))))) = ((𝐺 ∙ 𝑞)(+_g‘𝑃)(𝐺 ∙ ((𝐼 · ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑)))( ·_𝑠 ‘𝑃)(𝑑(._g‘(mulGrp‘𝑃))(var₁‘𝑅))))))
216	215	oveq2d 7443	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ 𝑑 ∈ ℕ₀) ∧ 𝑔 ∈ 𝐵) ∧ 𝑞 ∈ 𝐵) → (𝑔 − (𝐺 ∙ (𝑞(+_g‘𝑃)((𝐼 · ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑)))( ·_𝑠 ‘𝑃)(𝑑(._g‘(mulGrp‘𝑃))(var₁‘𝑅)))))) = (𝑔 − ((𝐺 ∙ 𝑞)(+_g‘𝑃)(𝐺 ∙ ((𝐼 · ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑)))( ·_𝑠 ‘𝑃)(𝑑(._g‘(mulGrp‘𝑃))(var₁‘𝑅)))))))
217	213, 216	eqtr4d 2801	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝜑 ∧ 𝑑 ∈ ℕ₀) ∧ 𝑔 ∈ 𝐵) ∧ 𝑞 ∈ 𝐵) → ((𝑔 − (𝐺 ∙ ((𝐼 · ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑)))( ·_𝑠 ‘𝑃)(𝑑(._g‘(mulGrp‘𝑃))(var₁‘𝑅))))) − (𝐺 ∙ 𝑞)) = (𝑔 − (𝐺 ∙ (𝑞(+_g‘𝑃)((𝐼 · ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑)))( ·_𝑠 ‘𝑃)(𝑑(._g‘(mulGrp‘𝑃))(var₁‘𝑅)))))))
218	217	fveq2d 6897	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ 𝑑 ∈ ℕ₀) ∧ 𝑔 ∈ 𝐵) ∧ 𝑞 ∈ 𝐵) → (𝐷‘((𝑔 − (𝐺 ∙ ((𝐼 · ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑)))( ·_𝑠 ‘𝑃)(𝑑(._g‘(mulGrp‘𝑃))(var₁‘𝑅))))) − (𝐺 ∙ 𝑞))) = (𝐷‘(𝑔 − (𝐺 ∙ (𝑞(+_g‘𝑃)((𝐼 · ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑)))( ·_𝑠 ‘𝑃)(𝑑(._g‘(mulGrp‘𝑃))(var₁‘𝑅))))))))
219	218	breq1d 5115	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ 𝑑 ∈ ℕ₀) ∧ 𝑔 ∈ 𝐵) ∧ 𝑞 ∈ 𝐵) → ((𝐷‘((𝑔 − (𝐺 ∙ ((𝐼 · ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑)))( ·_𝑠 ‘𝑃)(𝑑(._g‘(mulGrp‘𝑃))(var₁‘𝑅))))) − (𝐺 ∙ 𝑞))) < (𝐷‘𝐺) ↔ (𝐷‘(𝑔 − (𝐺 ∙ (𝑞(+_g‘𝑃)((𝐼 · ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑)))( ·_𝑠 ‘𝑃)(𝑑(._g‘(mulGrp‘𝑃))(var₁‘𝑅))))))) < (𝐷‘𝐺)))
220	219	biimpd 232	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝜑 ∧ 𝑑 ∈ ℕ₀) ∧ 𝑔 ∈ 𝐵) ∧ 𝑞 ∈ 𝐵) → ((𝐷‘((𝑔 − (𝐺 ∙ ((𝐼 · ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑)))( ·_𝑠 ‘𝑃)(𝑑(._g‘(mulGrp‘𝑃))(var₁‘𝑅))))) − (𝐺 ∙ 𝑞))) < (𝐷‘𝐺) → (𝐷‘(𝑔 − (𝐺 ∙ (𝑞(+_g‘𝑃)((𝐼 · ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑)))( ·_𝑠 ‘𝑃)(𝑑(._g‘(mulGrp‘𝑃))(var₁‘𝑅))))))) < (𝐷‘𝐺)))
221		oveq2 7435	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑟 = (𝑞(+_g‘𝑃)((𝐼 · ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑)))( ·_𝑠 ‘𝑃)(𝑑(._g‘(mulGrp‘𝑃))(var₁‘𝑅)))) → (𝐺 ∙ 𝑟) = (𝐺 ∙ (𝑞(+_g‘𝑃)((𝐼 · ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑)))( ·_𝑠 ‘𝑃)(𝑑(._g‘(mulGrp‘𝑃))(var₁‘𝑅))))))
222	221	oveq2d 7443	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑟 = (𝑞(+_g‘𝑃)((𝐼 · ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑)))( ·_𝑠 ‘𝑃)(𝑑(._g‘(mulGrp‘𝑃))(var₁‘𝑅)))) → (𝑔 − (𝐺 ∙ 𝑟)) = (𝑔 − (𝐺 ∙ (𝑞(+_g‘𝑃)((𝐼 · ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑)))( ·_𝑠 ‘𝑃)(𝑑(._g‘(mulGrp‘𝑃))(var₁‘𝑅)))))))
223	222	fveq2d 6897	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑟 = (𝑞(+_g‘𝑃)((𝐼 · ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑)))( ·_𝑠 ‘𝑃)(𝑑(._g‘(mulGrp‘𝑃))(var₁‘𝑅)))) → (𝐷‘(𝑔 − (𝐺 ∙ 𝑟))) = (𝐷‘(𝑔 − (𝐺 ∙ (𝑞(+_g‘𝑃)((𝐼 · ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑)))( ·_𝑠 ‘𝑃)(𝑑(._g‘(mulGrp‘𝑃))(var₁‘𝑅))))))))
224	223	breq1d 5115	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑟 = (𝑞(+_g‘𝑃)((𝐼 · ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑)))( ·_𝑠 ‘𝑃)(𝑑(._g‘(mulGrp‘𝑃))(var₁‘𝑅)))) → ((𝐷‘(𝑔 − (𝐺 ∙ 𝑟))) < (𝐷‘𝐺) ↔ (𝐷‘(𝑔 − (𝐺 ∙ (𝑞(+_g‘𝑃)((𝐼 · ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑)))( ·_𝑠 ‘𝑃)(𝑑(._g‘(mulGrp‘𝑃))(var₁‘𝑅))))))) < (𝐷‘𝐺)))
225	224	rspcev 3579	. . . . . . . . . . . . . . . . 17 ⊢ (((𝑞(+_g‘𝑃)((𝐼 · ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑)))( ·_𝑠 ‘𝑃)(𝑑(._g‘(mulGrp‘𝑃))(var₁‘𝑅)))) ∈ 𝐵 ∧ (𝐷‘(𝑔 − (𝐺 ∙ (𝑞(+_g‘𝑃)((𝐼 · ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑)))( ·_𝑠 ‘𝑃)(𝑑(._g‘(mulGrp‘𝑃))(var₁‘𝑅))))))) < (𝐷‘𝐺)) → ∃𝑟 ∈ 𝐵 (𝐷‘(𝑔 − (𝐺 ∙ 𝑟))) < (𝐷‘𝐺))
226	205, 220, 225	syl6an 697	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑑 ∈ ℕ₀) ∧ 𝑔 ∈ 𝐵) ∧ 𝑞 ∈ 𝐵) → ((𝐷‘((𝑔 − (𝐺 ∙ ((𝐼 · ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑)))( ·_𝑠 ‘𝑃)(𝑑(._g‘(mulGrp‘𝑃))(var₁‘𝑅))))) − (𝐺 ∙ 𝑞))) < (𝐷‘𝐺) → ∃𝑟 ∈ 𝐵 (𝐷‘(𝑔 − (𝐺 ∙ 𝑟))) < (𝐷‘𝐺)))
227	226	rexlimdva 3166	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑑 ∈ ℕ₀) ∧ 𝑔 ∈ 𝐵) → (∃𝑞 ∈ 𝐵 (𝐷‘((𝑔 − (𝐺 ∙ ((𝐼 · ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑)))( ·_𝑠 ‘𝑃)(𝑑(._g‘(mulGrp‘𝑃))(var₁‘𝑅))))) − (𝐺 ∙ 𝑞))) < (𝐷‘𝐺) → ∃𝑟 ∈ 𝐵 (𝐷‘(𝑔 − (𝐺 ∙ 𝑟))) < (𝐷‘𝐺)))
228	227	adantrr 730	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑑 ∈ ℕ₀) ∧ (𝑔 ∈ 𝐵 ∧ (𝐷‘𝑔) < ((𝐷‘𝐺) + (𝑑 + 1)))) → (∃𝑞 ∈ 𝐵 (𝐷‘((𝑔 − (𝐺 ∙ ((𝐼 · ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑)))( ·_𝑠 ‘𝑃)(𝑑(._g‘(mulGrp‘𝑃))(var₁‘𝑅))))) − (𝐺 ∙ 𝑞))) < (𝐷‘𝐺) → ∃𝑟 ∈ 𝐵 (𝐷‘(𝑔 − (𝐺 ∙ 𝑟))) < (𝐷‘𝐺)))
229	228	adantlrr 734	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑑 ∈ ℕ₀ ∧ ∀𝑓 ∈ 𝐵 ((𝐷‘𝑓) < ((𝐷‘𝐺) + 𝑑) → ∃𝑞 ∈ 𝐵 (𝐷‘(𝑓 − (𝐺 ∙ 𝑞))) < (𝐷‘𝐺)))) ∧ (𝑔 ∈ 𝐵 ∧ (𝐷‘𝑔) < ((𝐷‘𝐺) + (𝑑 + 1)))) → (∃𝑞 ∈ 𝐵 (𝐷‘((𝑔 − (𝐺 ∙ ((𝐼 · ((coe₁‘𝑔)‘((𝐷‘𝐺) + 𝑑)))( ·_𝑠 ‘𝑃)(𝑑(._g‘(mulGrp‘𝑃))(var₁‘𝑅))))) − (𝐺 ∙ 𝑞))) < (𝐷‘𝐺) → ∃𝑟 ∈ 𝐵 (𝐷‘(𝑔 − (𝐺 ∙ 𝑟))) < (𝐷‘𝐺)))
230	199, 229	mpd 16	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑑 ∈ ℕ₀ ∧ ∀𝑓 ∈ 𝐵 ((𝐷‘𝑓) < ((𝐷‘𝐺) + 𝑑) → ∃𝑞 ∈ 𝐵 (𝐷‘(𝑓 − (𝐺 ∙ 𝑞))) < (𝐷‘𝐺)))) ∧ (𝑔 ∈ 𝐵 ∧ (𝐷‘𝑔) < ((𝐷‘𝐺) + (𝑑 + 1)))) → ∃𝑟 ∈ 𝐵 (𝐷‘(𝑔 − (𝐺 ∙ 𝑟))) < (𝐷‘𝐺))
231	230	expr 462	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑑 ∈ ℕ₀ ∧ ∀𝑓 ∈ 𝐵 ((𝐷‘𝑓) < ((𝐷‘𝐺) + 𝑑) → ∃𝑞 ∈ 𝐵 (𝐷‘(𝑓 − (𝐺 ∙ 𝑞))) < (𝐷‘𝐺)))) ∧ 𝑔 ∈ 𝐵) → ((𝐷‘𝑔) < ((𝐷‘𝐺) + (𝑑 + 1)) → ∃𝑟 ∈ 𝐵 (𝐷‘(𝑔 − (𝐺 ∙ 𝑟))) < (𝐷‘𝐺)))
232	231	ralrimiva 3157	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑑 ∈ ℕ₀ ∧ ∀𝑓 ∈ 𝐵 ((𝐷‘𝑓) < ((𝐷‘𝐺) + 𝑑) → ∃𝑞 ∈ 𝐵 (𝐷‘(𝑓 − (𝐺 ∙ 𝑞))) < (𝐷‘𝐺)))) → ∀𝑔 ∈ 𝐵 ((𝐷‘𝑔) < ((𝐷‘𝐺) + (𝑑 + 1)) → ∃𝑟 ∈ 𝐵 (𝐷‘(𝑔 − (𝐺 ∙ 𝑟))) < (𝐷‘𝐺)))
233		fveq2 6893	. . . . . . . . . . . . 13 ⊢ (𝑔 = 𝑓 → (𝐷‘𝑔) = (𝐷‘𝑓))
234	233	breq1d 5115	. . . . . . . . . . . 12 ⊢ (𝑔 = 𝑓 → ((𝐷‘𝑔) < ((𝐷‘𝐺) + (𝑑 + 1)) ↔ (𝐷‘𝑓) < ((𝐷‘𝐺) + (𝑑 + 1))))
235		fvoveq1 7450	. . . . . . . . . . . . . . 15 ⊢ (𝑔 = 𝑓 → (𝐷‘(𝑔 − (𝐺 ∙ 𝑟))) = (𝐷‘(𝑓 − (𝐺 ∙ 𝑟))))
236	235	breq1d 5115	. . . . . . . . . . . . . 14 ⊢ (𝑔 = 𝑓 → ((𝐷‘(𝑔 − (𝐺 ∙ 𝑟))) < (𝐷‘𝐺) ↔ (𝐷‘(𝑓 − (𝐺 ∙ 𝑟))) < (𝐷‘𝐺)))
237	236	rexbidv 3189	. . . . . . . . . . . . 13 ⊢ (𝑔 = 𝑓 → (∃𝑟 ∈ 𝐵 (𝐷‘(𝑔 − (𝐺 ∙ 𝑟))) < (𝐷‘𝐺) ↔ ∃𝑟 ∈ 𝐵 (𝐷‘(𝑓 − (𝐺 ∙ 𝑟))) < (𝐷‘𝐺)))
238		oveq2 7435	. . . . . . . . . . . . . . . . 17 ⊢ (𝑟 = 𝑞 → (𝐺 ∙ 𝑟) = (𝐺 ∙ 𝑞))
239	238	oveq2d 7443	. . . . . . . . . . . . . . . 16 ⊢ (𝑟 = 𝑞 → (𝑓 − (𝐺 ∙ 𝑟)) = (𝑓 − (𝐺 ∙ 𝑞)))
240	239	fveq2d 6897	. . . . . . . . . . . . . . 15 ⊢ (𝑟 = 𝑞 → (𝐷‘(𝑓 − (𝐺 ∙ 𝑟))) = (𝐷‘(𝑓 − (𝐺 ∙ 𝑞))))
241	240	breq1d 5115	. . . . . . . . . . . . . 14 ⊢ (𝑟 = 𝑞 → ((𝐷‘(𝑓 − (𝐺 ∙ 𝑟))) < (𝐷‘𝐺) ↔ (𝐷‘(𝑓 − (𝐺 ∙ 𝑞))) < (𝐷‘𝐺)))
242	241	cbvrexvw 3244	. . . . . . . . . . . . 13 ⊢ (∃𝑟 ∈ 𝐵 (𝐷‘(𝑓 − (𝐺 ∙ 𝑟))) < (𝐷‘𝐺) ↔ ∃𝑞 ∈ 𝐵 (𝐷‘(𝑓 − (𝐺 ∙ 𝑞))) < (𝐷‘𝐺))
243	237, 242	bitrdi 290	. . . . . . . . . . . 12 ⊢ (𝑔 = 𝑓 → (∃𝑟 ∈ 𝐵 (𝐷‘(𝑔 − (𝐺 ∙ 𝑟))) < (𝐷‘𝐺) ↔ ∃𝑞 ∈ 𝐵 (𝐷‘(𝑓 − (𝐺 ∙ 𝑞))) < (𝐷‘𝐺)))
244	234, 243	imbi12d 347	. . . . . . . . . . 11 ⊢ (𝑔 = 𝑓 → (((𝐷‘𝑔) < ((𝐷‘𝐺) + (𝑑 + 1)) → ∃𝑟 ∈ 𝐵 (𝐷‘(𝑔 − (𝐺 ∙ 𝑟))) < (𝐷‘𝐺)) ↔ ((𝐷‘𝑓) < ((𝐷‘𝐺) + (𝑑 + 1)) → ∃𝑞 ∈ 𝐵 (𝐷‘(𝑓 − (𝐺 ∙ 𝑞))) < (𝐷‘𝐺))))
245	244	cbvralvw 3243	. . . . . . . . . 10 ⊢ (∀𝑔 ∈ 𝐵 ((𝐷‘𝑔) < ((𝐷‘𝐺) + (𝑑 + 1)) → ∃𝑟 ∈ 𝐵 (𝐷‘(𝑔 − (𝐺 ∙ 𝑟))) < (𝐷‘𝐺)) ↔ ∀𝑓 ∈ 𝐵 ((𝐷‘𝑓) < ((𝐷‘𝐺) + (𝑑 + 1)) → ∃𝑞 ∈ 𝐵 (𝐷‘(𝑓 − (𝐺 ∙ 𝑞))) < (𝐷‘𝐺)))
246	232, 245	sylib 221	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑑 ∈ ℕ₀ ∧ ∀𝑓 ∈ 𝐵 ((𝐷‘𝑓) < ((𝐷‘𝐺) + 𝑑) → ∃𝑞 ∈ 𝐵 (𝐷‘(𝑓 − (𝐺 ∙ 𝑞))) < (𝐷‘𝐺)))) → ∀𝑓 ∈ 𝐵 ((𝐷‘𝑓) < ((𝐷‘𝐺) + (𝑑 + 1)) → ∃𝑞 ∈ 𝐵 (𝐷‘(𝑓 − (𝐺 ∙ 𝑞))) < (𝐷‘𝐺)))
247	246	exp32 426	. . . . . . . 8 ⊢ (𝜑 → (𝑑 ∈ ℕ₀ → (∀𝑓 ∈ 𝐵 ((𝐷‘𝑓) < ((𝐷‘𝐺) + 𝑑) → ∃𝑞 ∈ 𝐵 (𝐷‘(𝑓 − (𝐺 ∙ 𝑞))) < (𝐷‘𝐺)) → ∀𝑓 ∈ 𝐵 ((𝐷‘𝑓) < ((𝐷‘𝐺) + (𝑑 + 1)) → ∃𝑞 ∈ 𝐵 (𝐷‘(𝑓 − (𝐺 ∙ 𝑞))) < (𝐷‘𝐺)))))
248	247	com12 33	. . . . . . 7 ⊢ (𝑑 ∈ ℕ₀ → (𝜑 → (∀𝑓 ∈ 𝐵 ((𝐷‘𝑓) < ((𝐷‘𝐺) + 𝑑) → ∃𝑞 ∈ 𝐵 (𝐷‘(𝑓 − (𝐺 ∙ 𝑞))) < (𝐷‘𝐺)) → ∀𝑓 ∈ 𝐵 ((𝐷‘𝑓) < ((𝐷‘𝐺) + (𝑑 + 1)) → ∃𝑞 ∈ 𝐵 (𝐷‘(𝑓 − (𝐺 ∙ 𝑞))) < (𝐷‘𝐺)))))
249	248	a2d 30	. . . . . 6 ⊢ (𝑑 ∈ ℕ₀ → ((𝜑 → ∀𝑓 ∈ 𝐵 ((𝐷‘𝑓) < ((𝐷‘𝐺) + 𝑑) → ∃𝑞 ∈ 𝐵 (𝐷‘(𝑓 − (𝐺 ∙ 𝑞))) < (𝐷‘𝐺))) → (𝜑 → ∀𝑓 ∈ 𝐵 ((𝐷‘𝑓) < ((𝐷‘𝐺) + (𝑑 + 1)) → ∃𝑞 ∈ 𝐵 (𝐷‘(𝑓 − (𝐺 ∙ 𝑞))) < (𝐷‘𝐺)))))
250	59, 64, 69, 64, 99, 249	nn0ind 12804	. . . . 5 ⊢ (𝑑 ∈ ℕ₀ → (𝜑 → ∀𝑓 ∈ 𝐵 ((𝐷‘𝑓) < ((𝐷‘𝐺) + 𝑑) → ∃𝑞 ∈ 𝐵 (𝐷‘(𝑓 − (𝐺 ∙ 𝑞))) < (𝐷‘𝐺))))
251	250	impcom 413	. . . 4 ⊢ ((𝜑 ∧ 𝑑 ∈ ℕ₀) → ∀𝑓 ∈ 𝐵 ((𝐷‘𝑓) < ((𝐷‘𝐺) + 𝑑) → ∃𝑞 ∈ 𝐵 (𝐷‘(𝑓 − (𝐺 ∙ 𝑞))) < (𝐷‘𝐺)))
252	7	adantr 486	. . . 4 ⊢ ((𝜑 ∧ 𝑑 ∈ ℕ₀) → 𝐹 ∈ 𝐵)
253	54, 251, 252	rspcdva 3580	. . 3 ⊢ ((𝜑 ∧ 𝑑 ∈ ℕ₀) → ((𝐷‘𝐹) < ((𝐷‘𝐺) + 𝑑) → ∃𝑞 ∈ 𝐵 (𝐷‘(𝐹 − (𝐺 ∙ 𝑞))) < (𝐷‘𝐺)))
254	253	rexlimdva 3166	. 2 ⊢ (𝜑 → (∃𝑑 ∈ ℕ₀ (𝐷‘𝐹) < ((𝐷‘𝐺) + 𝑑) → ∃𝑞 ∈ 𝐵 (𝐷‘(𝐹 − (𝐺 ∙ 𝑞))) < (𝐷‘𝐺)))
255	48, 254	mpd 16	1 ⊢ (𝜑 → ∃𝑞 ∈ 𝐵 (𝐷‘(𝐹 − (𝐺 ∙ 𝑞))) < (𝐷‘𝐺))

Colors of variables: wff setvar class

This proof depends on syntax axioms: → wi 4 ↔ wb 209 ∧ wa 401 = wceq 1569 ∈ wcel 2146 ≠ wne 2958 ∀wral 3079 ∃wrex 3089 ⊆ wss 3899 ∪ cun 4151 {csn 4587 class class class wbr 5105 ⟶wf 6542 ‘cfv 6546 (class class class)co 7427 ℂcc 11208 ℝcr 11209 0cc0 11210 1c1 11211 + caddc 11213 -∞cmnf 11351 < clt 11353 ≤ cle 11354 − cmin 11551 ℕcn 12345 ℕ₀cn0 12616 ℤcz 12703 Basecbs 17399 +_gcplusg 17440 ._rcmulr 17441 ·_𝑠 cvsca 17444 0_gc0g 17622 Grpcgrp 19156 -_gcsg 19158 ._gcmg 19289 mulGrpcmgp 20372 1_rcur 20419 Ringcrg 20471 var₁cv1 22506 Poly₁cpl1 22507 coe₁cco1 22508 deg₁cdg1 26384

This proof depends on axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1827 ax-4 1841 ax-5 1944 ax-6 2001 ax-7 2042 ax-8 2148 ax-9 2156 ax-10 2179 ax-11 2196 ax-12 2215 ax-ext 2735 ax-rep 5234 ax-sep 5251 ax-nul 5262 ax-pow 5330 ax-pr 5394 ax-un 7758 ax-cnex 11266 ax-resscn 11267 ax-1cn 11268 ax-icn 11269 ax-addcl 11270 ax-addrcl 11271 ax-mulcl 11272 ax-mulrcl 11273 ax-mulcom 11274 ax-addass 11275 ax-mulass 11276 ax-distr 11277 ax-i2m1 11278 ax-1ne0 11279 ax-1rid 11280 ax-rnegex 11281 ax-rrecex 11282 ax-cnre 11283 ax-pre-lttri 11284 ax-pre-lttrn 11285 ax-pre-ltadd 11286 ax-pre-mulgt0 11287 ax-pre-sup 11288 ax-addf 11289

This proof depends on definitions: df-bi 210 df-an 402 df-or 862 df-3or 1104 df-3an 1105 df-tru 1572 df-fal 1582 df-ex 1812 df-nf 1816 df-sb 2101 df-mo 2567 df-eu 2597 df-clab 2742 df-cleq 2755 df-clel 2838 df-nfc 2912 df-ne 2959 df-nel 3065 df-ral 3080 df-rex 3090 df-rmo 3368 df-reu 3369 df-rab 3416 df-v 3455 df-sbc 3742 df-csb 3851 df-ss 3900 df-pss 4016 df-dif 4049 df-in 4093 df-un 4153 df-nul 4281 df-if 4485 df-pw 4561 df-sn 4588 df-pr 4590 df-tp 4592 df-op 4838 df-uni 4870 df-int 4910 df-iun 4955 df-iin 4956 df-br 5106 df-opab 5170 df-mpt 5189 df-tr 5215 df-id 5549 df-eprel 5554 df-po 5562 df-so 5563 df-fr 5607 df-se 5608 df-we 5609 df-xp 5660 df-rel 5661 df-cnv 5662 df-co 5663 df-dm 5664 df-rn 5665 df-res 5666 df-ima 5667 df-pred 6310 df-ord 6371 df-on 6372 df-lim 6373 df-suc 6374 df-iota 6500 df-fun 6548 df-fn 6549 df-f 6550 df-f1 6551 df-fo 6552 df-f1o 6553 df-fv 6554 df-isom 6555 df-riota 7384 df-ov 7430 df-oprab 7431 df-mpo 7432 df-of 7700 df-ofr 7701 df-om 7885 df-1st 8008 df-2nd 8009 df-supp 8188 df-tpos 8254 df-frecs 8310 df-wrecs 8341 df-recs 8390 df-rdg 8429 df-1o 8487 df-2o 8488 df-er 8728 df-map 8860 df-pm 8861 df-ixp 8937 df-en 8985 df-dom 8986 df-sdom 8987 df-fin 8988 df-fsupp 9365 df-sup 9444 df-oi 9514 df-card 10030 df-pnf 11355 df-mnf 11356 df-xr 11357 df-ltxr 11358 df-le 11359 df-sub 11553 df-neg 11554 df-nn 12346 df-2 12415 df-3 12416 df-4 12417 df-5 12418 df-6 12419 df-7 12420 df-8 12421 df-9 12422 df-n0 12617 df-z 12704 df-dec 12825 df-uz 12976 df-fz 13650 df-fzo 13799 df-seq 14155 df-hash 14485 df-struct 17337 df-sets 17354 df-slot 17372 df-ndx 17384 df-base 17400 df-ress 17421 df-plusg 17453 df-mulr 17454 df-starv 17455 df-sca 17456 df-vsca 17457 df-ip 17458 df-tset 17459 df-ple 17460 df-ds 17462 df-unif 17463 df-hom 17464 df-cco 17465 df-0g 17624 df-gsum 17625 df-prds 17630 df-pws 17632 df-mre 17768 df-mrc 17769 df-acs 17771 df-mgm 18828 df-sgrp 18920 df-mnd 18936 df-mhm 18990 df-submnd 18991 df-grp 19159 df-minusg 19160 df-sbg 19161 df-mulg 19290 df-subg 19345 df-ghm 19440 df-cntz 19543 df-cmn 20008 df-abl 20009 df-mgp 20373 df-rng 20387 df-ur 20420 df-ring 20473 df-cring 20474 df-oppr 20579 df-dvdsr 20599 df-unit 20600 df-invr 20630 df-subrng 20810 df-subrg 20834 df-rlreg 20958 df-lmod 21149 df-lss 21219 df-cnfld 21691 df-psr 22229 df-mvr 22230 df-mpl 22231 df-opsr 22233 df-psr1 22510 df-vr1 22511 df-ply1 22512 df-coe1 22513 df-mdeg 26385 df-deg1 26386

This theorem is used by: ply1divalg 26468

W3C validator