irrapxlem5 - Mathbox for Stefan O'Rear

	Mathbox for Stefan O'Rear		< Previous Next > Nearby theorems
Mirrors > Home > MPE Home > Th. List > Mathboxes > irrapxlem5		Structured version Visualization version GIF version

Theorem irrapxlem5 43553

Description: Lemma for irrapx1 43555. Switching to real intervals and fraction syntax. (Contributed by Stefan O'Rear, 13-Sep-2014.)

**Assertion**
Ref	Expression
irrapxlem5	⊢ ((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) → ∃𝑥 ∈ ℚ (0 < 𝑥 ∧ (abs‘(𝑥 − 𝐴)) < 𝐵 ∧ (abs‘(𝑥 − 𝐴)) < ((denom‘𝑥)↑-2)))

Distinct variable groups: 𝑥,𝐴 𝑥,𝐵

Proof of Theorem irrapxlem5 Dummy variables 𝑎 𝑏 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		simpr 489	. . . . . 6 ⊢ ((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) → 𝐵 ∈ ℝ⁺)
2	1	rpreccld 13065	. . . . 5 ⊢ ((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) → (1 / 𝐵) ∈ ℝ⁺)
3	2	rprege0d 13062	. . . 4 ⊢ ((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) → ((1 / 𝐵) ∈ ℝ ∧ 0 ≤ (1 / 𝐵)))
4		flge0nn0 13849	. . . 4 ⊢ (((1 / 𝐵) ∈ ℝ ∧ 0 ≤ (1 / 𝐵)) → (⌊‘(1 / 𝐵)) ∈ ℕ₀)
5		nn0p1nn 12538	. . . 4 ⊢ ((⌊‘(1 / 𝐵)) ∈ ℕ₀ → ((⌊‘(1 / 𝐵)) + 1) ∈ ℕ)
6	3, 4, 5	3syl 19	. . 3 ⊢ ((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) → ((⌊‘(1 / 𝐵)) + 1) ∈ ℕ)
7		irrapxlem4 43552	. . 3 ⊢ ((𝐴 ∈ ℝ⁺ ∧ ((⌊‘(1 / 𝐵)) + 1) ∈ ℕ) → ∃𝑎 ∈ ℕ ∃𝑏 ∈ ℕ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎)))
8	6, 7	syldan 602	. 2 ⊢ ((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) → ∃𝑎 ∈ ℕ ∃𝑏 ∈ ℕ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎)))
9		simplrr 789	. . . . . . 7 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → 𝑏 ∈ ℕ)
10		nnq 12981	. . . . . . 7 ⊢ (𝑏 ∈ ℕ → 𝑏 ∈ ℚ)
11	9, 10	syl 18	. . . . . 6 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → 𝑏 ∈ ℚ)
12		simplrl 788	. . . . . . 7 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → 𝑎 ∈ ℕ)
13		nnq 12981	. . . . . . 7 ⊢ (𝑎 ∈ ℕ → 𝑎 ∈ ℚ)
14	12, 13	syl 18	. . . . . 6 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → 𝑎 ∈ ℚ)
15	12	nnne0d 12281	. . . . . 6 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → 𝑎 ≠ 0)
16		qdivcl 12989	. . . . . 6 ⊢ ((𝑏 ∈ ℚ ∧ 𝑎 ∈ ℚ ∧ 𝑎 ≠ 0) → (𝑏 / 𝑎) ∈ ℚ)
17	11, 14, 15, 16	syl3anc 1398	. . . . 5 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (𝑏 / 𝑎) ∈ ℚ)
18	9	nnrpd 13053	. . . . . . 7 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → 𝑏 ∈ ℝ⁺)
19	12	nnrpd 13053	. . . . . . 7 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → 𝑎 ∈ ℝ⁺)
20	18, 19	rpdivcld 13072	. . . . . 6 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (𝑏 / 𝑎) ∈ ℝ⁺)
21	20	rpgt0d 13058	. . . . 5 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → 0 < (𝑏 / 𝑎))
22	12	nnred 12243	. . . . . . . . . . . 12 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → 𝑎 ∈ ℝ)
23	12	nnnn0d 12560	. . . . . . . . . . . . 13 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → 𝑎 ∈ ℕ₀)
24	23	nn0ge0d 12563	. . . . . . . . . . . 12 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → 0 ≤ 𝑎)
25	22, 24	absidd 15470	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (abs‘𝑎) = 𝑎)
26	25	eqcomd 2769	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → 𝑎 = (abs‘𝑎))
27	26	oveq1d 7425	. . . . . . . . 9 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (𝑎 · (abs‘((𝑏 / 𝑎) − 𝐴))) = ((abs‘𝑎) · (abs‘((𝑏 / 𝑎) − 𝐴))))
28	12	nncnd 12244	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → 𝑎 ∈ ℂ)
29		qre 12972	. . . . . . . . . . . . 13 ⊢ ((𝑏 / 𝑎) ∈ ℚ → (𝑏 / 𝑎) ∈ ℝ)
30	17, 29	syl 18	. . . . . . . . . . . 12 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (𝑏 / 𝑎) ∈ ℝ)
31		rpre 13020	. . . . . . . . . . . . 13 ⊢ (𝐴 ∈ ℝ⁺ → 𝐴 ∈ ℝ)
32	31	ad3antrrr 742	. . . . . . . . . . . 12 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → 𝐴 ∈ ℝ)
33	30, 32	resubcld 11637	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → ((𝑏 / 𝑎) − 𝐴) ∈ ℝ)
34	33	recnd 11232	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → ((𝑏 / 𝑎) − 𝐴) ∈ ℂ)
35	28, 34	absmuld 15504	. . . . . . . . 9 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (abs‘(𝑎 · ((𝑏 / 𝑎) − 𝐴))) = ((abs‘𝑎) · (abs‘((𝑏 / 𝑎) − 𝐴))))
36	27, 35	eqtr4d 2801	. . . . . . . 8 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (𝑎 · (abs‘((𝑏 / 𝑎) − 𝐴))) = (abs‘(𝑎 · ((𝑏 / 𝑎) − 𝐴))))
37		qcn 12982	. . . . . . . . . . . 12 ⊢ ((𝑏 / 𝑎) ∈ ℚ → (𝑏 / 𝑎) ∈ ℂ)
38	17, 37	syl 18	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (𝑏 / 𝑎) ∈ ℂ)
39		rpcn 13022	. . . . . . . . . . . 12 ⊢ (𝐴 ∈ ℝ⁺ → 𝐴 ∈ ℂ)
40	39	ad3antrrr 742	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → 𝐴 ∈ ℂ)
41	28, 38, 40	subdid 11665	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (𝑎 · ((𝑏 / 𝑎) − 𝐴)) = ((𝑎 · (𝑏 / 𝑎)) − (𝑎 · 𝐴)))
42	9	nncnd 12244	. . . . . . . . . . . 12 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → 𝑏 ∈ ℂ)
43	42, 28, 15	divcan2d 11988	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (𝑎 · (𝑏 / 𝑎)) = 𝑏)
44	28, 40	mulcomd 11225	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (𝑎 · 𝐴) = (𝐴 · 𝑎))
45	43, 44	oveq12d 7428	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → ((𝑎 · (𝑏 / 𝑎)) − (𝑎 · 𝐴)) = (𝑏 − (𝐴 · 𝑎)))
46	41, 45	eqtrd 2798	. . . . . . . . 9 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (𝑎 · ((𝑏 / 𝑎) − 𝐴)) = (𝑏 − (𝐴 · 𝑎)))
47	46	fveq2d 6885	. . . . . . . 8 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (abs‘(𝑎 · ((𝑏 / 𝑎) − 𝐴))) = (abs‘(𝑏 − (𝐴 · 𝑎))))
48	32, 22	remulcld 11234	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (𝐴 · 𝑎) ∈ ℝ)
49	48	recnd 11232	. . . . . . . . 9 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (𝐴 · 𝑎) ∈ ℂ)
50	42, 49	abssubd 15503	. . . . . . . 8 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (abs‘(𝑏 − (𝐴 · 𝑎))) = (abs‘((𝐴 · 𝑎) − 𝑏)))
51	36, 47, 50	3eqtrd 2802	. . . . . . 7 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (𝑎 · (abs‘((𝑏 / 𝑎) − 𝐴))) = (abs‘((𝐴 · 𝑎) − 𝑏)))
52	9	nnred 12243	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → 𝑏 ∈ ℝ)
53	48, 52	resubcld 11637	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → ((𝐴 · 𝑎) − 𝑏) ∈ ℝ)
54	53	recnd 11232	. . . . . . . . 9 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → ((𝐴 · 𝑎) − 𝑏) ∈ ℂ)
55	54	abscld 15486	. . . . . . . 8 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (abs‘((𝐴 · 𝑎) − 𝑏)) ∈ ℝ)
56		simpllr 787	. . . . . . . . . . . . . 14 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → 𝐵 ∈ ℝ⁺)
57	56	rprecred 13066	. . . . . . . . . . . . 13 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (1 / 𝐵) ∈ ℝ)
58	56	rpreccld 13065	. . . . . . . . . . . . . 14 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (1 / 𝐵) ∈ ℝ⁺)
59	58	rpge0d 13059	. . . . . . . . . . . . 13 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → 0 ≤ (1 / 𝐵))
60	57, 59, 4	syl2anc 595	. . . . . . . . . . . 12 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (⌊‘(1 / 𝐵)) ∈ ℕ₀)
61	60, 5	syl 18	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → ((⌊‘(1 / 𝐵)) + 1) ∈ ℕ)
62	61	nnrpd 13053	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → ((⌊‘(1 / 𝐵)) + 1) ∈ ℝ⁺)
63	62, 19	ifcld 4534	. . . . . . . . 9 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎) ∈ ℝ⁺)
64	63	rprecred 13066	. . . . . . . 8 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎)) ∈ ℝ)
65	56	rpred 13055	. . . . . . . . 9 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → 𝐵 ∈ ℝ)
66	22, 65	remulcld 11234	. . . . . . . 8 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (𝑎 · 𝐵) ∈ ℝ)
67		simpr 489	. . . . . . . 8 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎)))
68	58	rprecred 13066	. . . . . . . . 9 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (1 / (1 / 𝐵)) ∈ ℝ)
69	61	nnred 12243	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → ((⌊‘(1 / 𝐵)) + 1) ∈ ℝ)
70	69, 22	ifcld 4534	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎) ∈ ℝ)
71		fllep1 13830	. . . . . . . . . . . 12 ⊢ ((1 / 𝐵) ∈ ℝ → (1 / 𝐵) ≤ ((⌊‘(1 / 𝐵)) + 1))
72	57, 71	syl 18	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (1 / 𝐵) ≤ ((⌊‘(1 / 𝐵)) + 1))
73		max2 13208	. . . . . . . . . . . 12 ⊢ ((𝑎 ∈ ℝ ∧ ((⌊‘(1 / 𝐵)) + 1) ∈ ℝ) → ((⌊‘(1 / 𝐵)) + 1) ≤ if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))
74	22, 69, 73	syl2anc 595	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → ((⌊‘(1 / 𝐵)) + 1) ≤ if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))
75	57, 69, 70, 72, 74	letrd 11362	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (1 / 𝐵) ≤ if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))
76	58, 63	lerecd 13074	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → ((1 / 𝐵) ≤ if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎) ↔ (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎)) ≤ (1 / (1 / 𝐵))))
77	75, 76	mpbid 235	. . . . . . . . 9 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎)) ≤ (1 / (1 / 𝐵)))
78	65	recnd 11232	. . . . . . . . . . . 12 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → 𝐵 ∈ ℂ)
79	56	rpne0d 13060	. . . . . . . . . . . 12 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → 𝐵 ≠ 0)
80	78, 79	recrecd 11983	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (1 / (1 / 𝐵)) = 𝐵)
81	78	mullidd 11222	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (1 · 𝐵) = 𝐵)
82	80, 81	eqtr4d 2801	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (1 / (1 / 𝐵)) = (1 · 𝐵))
83	12	nnge1d 12279	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → 1 ≤ 𝑎)
84		1red 11204	. . . . . . . . . . . 12 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → 1 ∈ ℝ)
85	84, 22, 56	lemul1d 13098	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (1 ≤ 𝑎 ↔ (1 · 𝐵) ≤ (𝑎 · 𝐵)))
86	83, 85	mpbid 235	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (1 · 𝐵) ≤ (𝑎 · 𝐵))
87	82, 86	eqbrtrd 5133	. . . . . . . . 9 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (1 / (1 / 𝐵)) ≤ (𝑎 · 𝐵))
88	64, 68, 66, 77, 87	letrd 11362	. . . . . . . 8 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎)) ≤ (𝑎 · 𝐵))
89	55, 64, 66, 67, 88	ltletrd 11365	. . . . . . 7 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (abs‘((𝐴 · 𝑎) − 𝑏)) < (𝑎 · 𝐵))
90	51, 89	eqbrtrd 5133	. . . . . 6 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (𝑎 · (abs‘((𝑏 / 𝑎) − 𝐴))) < (𝑎 · 𝐵))
91	34	abscld 15486	. . . . . . 7 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (abs‘((𝑏 / 𝑎) − 𝐴)) ∈ ℝ)
92	12	nngt0d 12280	. . . . . . 7 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → 0 < 𝑎)
93		ltmul2 12061	. . . . . . 7 ⊢ (((abs‘((𝑏 / 𝑎) − 𝐴)) ∈ ℝ ∧ 𝐵 ∈ ℝ ∧ (𝑎 ∈ ℝ ∧ 0 < 𝑎)) → ((abs‘((𝑏 / 𝑎) − 𝐴)) < 𝐵 ↔ (𝑎 · (abs‘((𝑏 / 𝑎) − 𝐴))) < (𝑎 · 𝐵)))
94	91, 65, 22, 92, 93	syl112anc 1401	. . . . . 6 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → ((abs‘((𝑏 / 𝑎) − 𝐴)) < 𝐵 ↔ (𝑎 · (abs‘((𝑏 / 𝑎) − 𝐴))) < (𝑎 · 𝐵)))
95	90, 94	mpbird 260	. . . . 5 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (abs‘((𝑏 / 𝑎) − 𝐴)) < 𝐵)
96	22, 22	remulcld 11234	. . . . . . . 8 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (𝑎 · 𝑎) ∈ ℝ)
97	22, 15	msqgt0d 11776	. . . . . . . . 9 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → 0 < (𝑎 · 𝑎))
98	97	gt0ne0d 11773	. . . . . . . 8 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (𝑎 · 𝑎) ≠ 0)
99	96, 98	rereccld 12037	. . . . . . 7 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (1 / (𝑎 · 𝑎)) ∈ ℝ)
100		qdencl 16795	. . . . . . . . . . 11 ⊢ ((𝑏 / 𝑎) ∈ ℚ → (denom‘(𝑏 / 𝑎)) ∈ ℕ)
101	17, 100	syl 18	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (denom‘(𝑏 / 𝑎)) ∈ ℕ)
102	101	nnred 12243	. . . . . . . . 9 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (denom‘(𝑏 / 𝑎)) ∈ ℝ)
103	102, 102	remulcld 11234	. . . . . . . 8 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → ((denom‘(𝑏 / 𝑎)) · (denom‘(𝑏 / 𝑎))) ∈ ℝ)
104	101	nnne0d 12281	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (denom‘(𝑏 / 𝑎)) ≠ 0)
105	102, 104	msqgt0d 11776	. . . . . . . . 9 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → 0 < ((denom‘(𝑏 / 𝑎)) · (denom‘(𝑏 / 𝑎))))
106	105	gt0ne0d 11773	. . . . . . . 8 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → ((denom‘(𝑏 / 𝑎)) · (denom‘(𝑏 / 𝑎))) ≠ 0)
107	103, 106	rereccld 12037	. . . . . . 7 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (1 / ((denom‘(𝑏 / 𝑎)) · (denom‘(𝑏 / 𝑎)))) ∈ ℝ)
108	22, 15	rereccld 12037	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (1 / 𝑎) ∈ ℝ)
109		max1 13206	. . . . . . . . . . . 12 ⊢ ((𝑎 ∈ ℝ ∧ ((⌊‘(1 / 𝐵)) + 1) ∈ ℝ) → 𝑎 ≤ if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))
110	22, 69, 109	syl2anc 595	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → 𝑎 ≤ if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))
111	19, 63	lerecd 13074	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (𝑎 ≤ if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎) ↔ (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎)) ≤ (1 / 𝑎)))
112	110, 111	mpbid 235	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎)) ≤ (1 / 𝑎))
113	55, 64, 108, 67, 112	ltletrd 11365	. . . . . . . . 9 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / 𝑎))
114	28, 28, 28, 15, 15	divdiv1d 12017	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → ((𝑎 / 𝑎) / 𝑎) = (𝑎 / (𝑎 · 𝑎)))
115	28, 15	dividd 11984	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (𝑎 / 𝑎) = 1)
116	115	oveq1d 7425	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → ((𝑎 / 𝑎) / 𝑎) = (1 / 𝑎))
117	96	recnd 11232	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (𝑎 · 𝑎) ∈ ℂ)
118	28, 117, 98	divrecd 11989	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (𝑎 / (𝑎 · 𝑎)) = (𝑎 · (1 / (𝑎 · 𝑎))))
119	114, 116, 118	3eqtr3rd 2807	. . . . . . . . 9 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (𝑎 · (1 / (𝑎 · 𝑎))) = (1 / 𝑎))
120	113, 51, 119	3brtr4d 5143	. . . . . . . 8 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (𝑎 · (abs‘((𝑏 / 𝑎) − 𝐴))) < (𝑎 · (1 / (𝑎 · 𝑎))))
121		ltmul2 12061	. . . . . . . . 9 ⊢ (((abs‘((𝑏 / 𝑎) − 𝐴)) ∈ ℝ ∧ (1 / (𝑎 · 𝑎)) ∈ ℝ ∧ (𝑎 ∈ ℝ ∧ 0 < 𝑎)) → ((abs‘((𝑏 / 𝑎) − 𝐴)) < (1 / (𝑎 · 𝑎)) ↔ (𝑎 · (abs‘((𝑏 / 𝑎) − 𝐴))) < (𝑎 · (1 / (𝑎 · 𝑎)))))
122	91, 99, 22, 92, 121	syl112anc 1401	. . . . . . . 8 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → ((abs‘((𝑏 / 𝑎) − 𝐴)) < (1 / (𝑎 · 𝑎)) ↔ (𝑎 · (abs‘((𝑏 / 𝑎) − 𝐴))) < (𝑎 · (1 / (𝑎 · 𝑎)))))
123	120, 122	mpbird 260	. . . . . . 7 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (abs‘((𝑏 / 𝑎) − 𝐴)) < (1 / (𝑎 · 𝑎)))
124	9	nnzd 12612	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → 𝑏 ∈ ℤ)
125		divdenle 16803	. . . . . . . . . 10 ⊢ ((𝑏 ∈ ℤ ∧ 𝑎 ∈ ℕ) → (denom‘(𝑏 / 𝑎)) ≤ 𝑎)
126	124, 12, 125	syl2anc 595	. . . . . . . . 9 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (denom‘(𝑏 / 𝑎)) ≤ 𝑎)
127	101	nnnn0d 12560	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (denom‘(𝑏 / 𝑎)) ∈ ℕ₀)
128	127	nn0ge0d 12563	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → 0 ≤ (denom‘(𝑏 / 𝑎)))
129		le2msq 12110	. . . . . . . . . 10 ⊢ ((((denom‘(𝑏 / 𝑎)) ∈ ℝ ∧ 0 ≤ (denom‘(𝑏 / 𝑎))) ∧ (𝑎 ∈ ℝ ∧ 0 ≤ 𝑎)) → ((denom‘(𝑏 / 𝑎)) ≤ 𝑎 ↔ ((denom‘(𝑏 / 𝑎)) · (denom‘(𝑏 / 𝑎))) ≤ (𝑎 · 𝑎)))
130	102, 128, 22, 24, 129	syl22anc 851	. . . . . . . . 9 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → ((denom‘(𝑏 / 𝑎)) ≤ 𝑎 ↔ ((denom‘(𝑏 / 𝑎)) · (denom‘(𝑏 / 𝑎))) ≤ (𝑎 · 𝑎)))
131	126, 130	mpbid 235	. . . . . . . 8 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → ((denom‘(𝑏 / 𝑎)) · (denom‘(𝑏 / 𝑎))) ≤ (𝑎 · 𝑎))
132		lerec 12093	. . . . . . . . 9 ⊢ (((((denom‘(𝑏 / 𝑎)) · (denom‘(𝑏 / 𝑎))) ∈ ℝ ∧ 0 < ((denom‘(𝑏 / 𝑎)) · (denom‘(𝑏 / 𝑎)))) ∧ ((𝑎 · 𝑎) ∈ ℝ ∧ 0 < (𝑎 · 𝑎))) → (((denom‘(𝑏 / 𝑎)) · (denom‘(𝑏 / 𝑎))) ≤ (𝑎 · 𝑎) ↔ (1 / (𝑎 · 𝑎)) ≤ (1 / ((denom‘(𝑏 / 𝑎)) · (denom‘(𝑏 / 𝑎))))))
133	103, 105, 96, 97, 132	syl22anc 851	. . . . . . . 8 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (((denom‘(𝑏 / 𝑎)) · (denom‘(𝑏 / 𝑎))) ≤ (𝑎 · 𝑎) ↔ (1 / (𝑎 · 𝑎)) ≤ (1 / ((denom‘(𝑏 / 𝑎)) · (denom‘(𝑏 / 𝑎))))))
134	131, 133	mpbid 235	. . . . . . 7 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (1 / (𝑎 · 𝑎)) ≤ (1 / ((denom‘(𝑏 / 𝑎)) · (denom‘(𝑏 / 𝑎)))))
135	91, 99, 107, 123, 134	ltletrd 11365	. . . . . 6 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (abs‘((𝑏 / 𝑎) − 𝐴)) < (1 / ((denom‘(𝑏 / 𝑎)) · (denom‘(𝑏 / 𝑎)))))
136	101	nncnd 12244	. . . . . . . 8 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (denom‘(𝑏 / 𝑎)) ∈ ℂ)
137		2nn0 12516	. . . . . . . 8 ⊢ 2 ∈ ℕ₀
138		expneg 14101	. . . . . . . 8 ⊢ (((denom‘(𝑏 / 𝑎)) ∈ ℂ ∧ 2 ∈ ℕ₀) → ((denom‘(𝑏 / 𝑎))↑-2) = (1 / ((denom‘(𝑏 / 𝑎))↑2)))
139	136, 137, 138	sylancl 597	. . . . . . 7 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → ((denom‘(𝑏 / 𝑎))↑-2) = (1 / ((denom‘(𝑏 / 𝑎))↑2)))
140	136	sqvald 14175	. . . . . . . 8 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → ((denom‘(𝑏 / 𝑎))↑2) = ((denom‘(𝑏 / 𝑎)) · (denom‘(𝑏 / 𝑎))))
141	140	oveq2d 7426	. . . . . . 7 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (1 / ((denom‘(𝑏 / 𝑎))↑2)) = (1 / ((denom‘(𝑏 / 𝑎)) · (denom‘(𝑏 / 𝑎)))))
142	139, 141	eqtrd 2798	. . . . . 6 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → ((denom‘(𝑏 / 𝑎))↑-2) = (1 / ((denom‘(𝑏 / 𝑎)) · (denom‘(𝑏 / 𝑎)))))
143	135, 142	breqtrrd 5139	. . . . 5 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (abs‘((𝑏 / 𝑎) − 𝐴)) < ((denom‘(𝑏 / 𝑎))↑-2))
144		breq2 5113	. . . . . . 7 ⊢ (𝑥 = (𝑏 / 𝑎) → (0 < 𝑥 ↔ 0 < (𝑏 / 𝑎)))
145		fvoveq1 7433	. . . . . . . 8 ⊢ (𝑥 = (𝑏 / 𝑎) → (abs‘(𝑥 − 𝐴)) = (abs‘((𝑏 / 𝑎) − 𝐴)))
146	145	breq1d 5119	. . . . . . 7 ⊢ (𝑥 = (𝑏 / 𝑎) → ((abs‘(𝑥 − 𝐴)) < 𝐵 ↔ (abs‘((𝑏 / 𝑎) − 𝐴)) < 𝐵))
147		fveq2 6881	. . . . . . . . 9 ⊢ (𝑥 = (𝑏 / 𝑎) → (denom‘𝑥) = (denom‘(𝑏 / 𝑎)))
148	147	oveq1d 7425	. . . . . . . 8 ⊢ (𝑥 = (𝑏 / 𝑎) → ((denom‘𝑥)↑-2) = ((denom‘(𝑏 / 𝑎))↑-2))
149	145, 148	breq12d 5122	. . . . . . 7 ⊢ (𝑥 = (𝑏 / 𝑎) → ((abs‘(𝑥 − 𝐴)) < ((denom‘𝑥)↑-2) ↔ (abs‘((𝑏 / 𝑎) − 𝐴)) < ((denom‘(𝑏 / 𝑎))↑-2)))
150	144, 146, 149	3anbi123d 1464	. . . . . 6 ⊢ (𝑥 = (𝑏 / 𝑎) → ((0 < 𝑥 ∧ (abs‘(𝑥 − 𝐴)) < 𝐵 ∧ (abs‘(𝑥 − 𝐴)) < ((denom‘𝑥)↑-2)) ↔ (0 < (𝑏 / 𝑎) ∧ (abs‘((𝑏 / 𝑎) − 𝐴)) < 𝐵 ∧ (abs‘((𝑏 / 𝑎) − 𝐴)) < ((denom‘(𝑏 / 𝑎))↑-2))))
151	150	rspcev 3581	. . . . 5 ⊢ (((𝑏 / 𝑎) ∈ ℚ ∧ (0 < (𝑏 / 𝑎) ∧ (abs‘((𝑏 / 𝑎) − 𝐴)) < 𝐵 ∧ (abs‘((𝑏 / 𝑎) − 𝐴)) < ((denom‘(𝑏 / 𝑎))↑-2))) → ∃𝑥 ∈ ℚ (0 < 𝑥 ∧ (abs‘(𝑥 − 𝐴)) < 𝐵 ∧ (abs‘(𝑥 − 𝐴)) < ((denom‘𝑥)↑-2)))
152	17, 21, 95, 143, 151	syl13anc 1399	. . . 4 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → ∃𝑥 ∈ ℚ (0 < 𝑥 ∧ (abs‘(𝑥 − 𝐴)) < 𝐵 ∧ (abs‘(𝑥 − 𝐴)) < ((denom‘𝑥)↑-2)))
153	152	ex 417	. . 3 ⊢ (((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) → ((abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎)) → ∃𝑥 ∈ ℚ (0 < 𝑥 ∧ (abs‘(𝑥 − 𝐴)) < 𝐵 ∧ (abs‘(𝑥 − 𝐴)) < ((denom‘𝑥)↑-2))))
154	153	rexlimdvva 3222	. 2 ⊢ ((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) → (∃𝑎 ∈ ℕ ∃𝑏 ∈ ℕ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎)) → ∃𝑥 ∈ ℚ (0 < 𝑥 ∧ (abs‘(𝑥 − 𝐴)) < 𝐵 ∧ (abs‘(𝑥 − 𝐴)) < ((denom‘𝑥)↑-2))))
155	8, 154	mpd 16	1 ⊢ ((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) → ∃𝑥 ∈ ℚ (0 < 𝑥 ∧ (abs‘(𝑥 − 𝐴)) < 𝐵 ∧ (abs‘(𝑥 − 𝐴)) < ((denom‘𝑥)↑-2)))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ↔ wb 209 ∧ wa 400 ∧ w3a 1103 = wceq 1570 ∈ wcel 2143 ≠ wne 2958 ∃wrex 3089 ifcif 4487 class class class wbr 5109 ‘cfv 6536 (class class class)co 7410 ℂcc 11093 ℝcr 11094 0cc0 11095 1c1 11096 + caddc 11098 · cmul 11100 < clt 11238 ≤ cle 11239 − cmin 11436 -cneg 11437 / cdiv 11866 ℕcn 12228 2c2 12290 ℕ₀cn0 12499 ℤcz 12586 ℚcq 12967 ℝ⁺crp 13011 ⌊cfl 13819 ↑cexp 14093 abscabs 15281 denomcdenom 16788

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1825 ax-4 1839 ax-5 1940 ax-6 1997 ax-7 2038 ax-8 2145 ax-9 2153 ax-10 2176 ax-11 2192 ax-12 2213 ax-ext 2735 ax-rep 5238 ax-sep 5257 ax-nul 5269 ax-pow 5336 ax-pr 5404 ax-un 7732 ax-cnex 11151 ax-resscn 11152 ax-1cn 11153 ax-icn 11154 ax-addcl 11155 ax-addrcl 11156 ax-mulcl 11157 ax-mulrcl 11158 ax-mulcom 11159 ax-addass 11160 ax-mulass 11161 ax-distr 11162 ax-i2m1 11163 ax-1ne0 11164 ax-1rid 11165 ax-rnegex 11166 ax-rrecex 11167 ax-cnre 11168 ax-pre-lttri 11169 ax-pre-lttrn 11170 ax-pre-ltadd 11171 ax-pre-mulgt0 11172 ax-pre-sup 11173

This theorem depends on definitions: df-bi 210 df-an 401 df-or 861 df-3or 1104 df-3an 1105 df-tru 1573 df-fal 1583 df-ex 1810 df-nf 1814 df-sb 2097 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 3369 df-reu 3370 df-rab 3417 df-v 3457 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 4488 df-pw 4564 df-sn 4590 df-pr 4592 df-op 4596 df-uni 4873 df-int 4913 df-iun 4958 df-br 5110 df-opab 5174 df-mpt 5193 df-tr 5219 df-id 5556 df-eprel 5561 df-po 5569 df-so 5570 df-fr 5614 df-we 5616 df-xp 5667 df-rel 5668 df-cnv 5669 df-co 5670 df-dm 5671 df-rn 5672 df-res 5673 df-ima 5674 df-pred 6302 df-ord 6363 df-on 6364 df-lim 6365 df-suc 6366 df-iota 6492 df-fun 6538 df-fn 6539 df-f 6540 df-f1 6541 df-fo 6542 df-f1o 6543 df-fv 6544 df-riota 7367 df-ov 7413 df-oprab 7414 df-mpo 7415 df-om 7859 df-1st 7982 df-2nd 7983 df-frecs 8274 df-wrecs 8305 df-recs 8354 df-rdg 8393 df-1o 8449 df-oadd 8453 df-er 8690 df-en 8940 df-dom 8941 df-sdom 8942 df-fin 8943 df-sup 9398 df-inf 9399 df-card 9921 df-pnf 11240 df-mnf 11241 df-xr 11242 df-ltxr 11243 df-le 11244 df-sub 11438 df-neg 11439 df-div 11867 df-nn 12229 df-2 12298 df-3 12299 df-n0 12500 df-xnn0 12573 df-z 12587 df-uz 12858 df-q 12968 df-rp 13012 df-ico 13373 df-fz 13531 df-fl 13821 df-mod 13899 df-seq 14034 df-exp 14094 df-hash 14363 df-cj 15146 df-re 15147 df-im 15148 df-sqrt 15282 df-abs 15283 df-dvds 16306 df-gcd 16548 df-numer 16789 df-denom 16790

This theorem is referenced by: irrapxlem6 43554

W3C validator