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 42837

Description: Lemma for irrapx1 42839. 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 484	. . . . . 6 ⊢ ((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) → 𝐵 ∈ ℝ⁺)
2	1	rpreccld 13087	. . . . 5 ⊢ ((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) → (1 / 𝐵) ∈ ℝ⁺)
3	2	rprege0d 13084	. . . 4 ⊢ ((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) → ((1 / 𝐵) ∈ ℝ ∧ 0 ≤ (1 / 𝐵)))
4		flge0nn0 13860	. . . 4 ⊢ (((1 / 𝐵) ∈ ℝ ∧ 0 ≤ (1 / 𝐵)) → (⌊‘(1 / 𝐵)) ∈ ℕ₀)
5		nn0p1nn 12565	. . . 4 ⊢ ((⌊‘(1 / 𝐵)) ∈ ℕ₀ → ((⌊‘(1 / 𝐵)) + 1) ∈ ℕ)
6	3, 4, 5	3syl 18	. . 3 ⊢ ((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) → ((⌊‘(1 / 𝐵)) + 1) ∈ ℕ)
7		irrapxlem4 42836	. . 3 ⊢ ((𝐴 ∈ ℝ⁺ ∧ ((⌊‘(1 / 𝐵)) + 1) ∈ ℕ) → ∃𝑎 ∈ ℕ ∃𝑏 ∈ ℕ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎)))
8	6, 7	syldan 591	. 2 ⊢ ((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) → ∃𝑎 ∈ ℕ ∃𝑏 ∈ ℕ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎)))
9		simplrr 778	. . . . . . 7 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → 𝑏 ∈ ℕ)
10		nnq 13004	. . . . . . 7 ⊢ (𝑏 ∈ ℕ → 𝑏 ∈ ℚ)
11	9, 10	syl 17	. . . . . 6 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → 𝑏 ∈ ℚ)
12		simplrl 777	. . . . . . 7 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → 𝑎 ∈ ℕ)
13		nnq 13004	. . . . . . 7 ⊢ (𝑎 ∈ ℕ → 𝑎 ∈ ℚ)
14	12, 13	syl 17	. . . . . 6 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → 𝑎 ∈ ℚ)
15	12	nnne0d 12316	. . . . . 6 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → 𝑎 ≠ 0)
16		qdivcl 13012	. . . . . 6 ⊢ ((𝑏 ∈ ℚ ∧ 𝑎 ∈ ℚ ∧ 𝑎 ≠ 0) → (𝑏 / 𝑎) ∈ ℚ)
17	11, 14, 15, 16	syl3anc 1373	. . . . 5 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (𝑏 / 𝑎) ∈ ℚ)
18	9	nnrpd 13075	. . . . . . 7 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → 𝑏 ∈ ℝ⁺)
19	12	nnrpd 13075	. . . . . . 7 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → 𝑎 ∈ ℝ⁺)
20	18, 19	rpdivcld 13094	. . . . . 6 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (𝑏 / 𝑎) ∈ ℝ⁺)
21	20	rpgt0d 13080	. . . . 5 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → 0 < (𝑏 / 𝑎))
22	12	nnred 12281	. . . . . . . . . . . 12 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → 𝑎 ∈ ℝ)
23	12	nnnn0d 12587	. . . . . . . . . . . . 13 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → 𝑎 ∈ ℕ₀)
24	23	nn0ge0d 12590	. . . . . . . . . . . 12 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → 0 ≤ 𝑎)
25	22, 24	absidd 15461	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (abs‘𝑎) = 𝑎)
26	25	eqcomd 2743	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → 𝑎 = (abs‘𝑎))
27	26	oveq1d 7446	. . . . . . . . 9 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (𝑎 · (abs‘((𝑏 / 𝑎) − 𝐴))) = ((abs‘𝑎) · (abs‘((𝑏 / 𝑎) − 𝐴))))
28	12	nncnd 12282	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → 𝑎 ∈ ℂ)
29		qre 12995	. . . . . . . . . . . . 13 ⊢ ((𝑏 / 𝑎) ∈ ℚ → (𝑏 / 𝑎) ∈ ℝ)
30	17, 29	syl 17	. . . . . . . . . . . 12 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (𝑏 / 𝑎) ∈ ℝ)
31		rpre 13043	. . . . . . . . . . . . 13 ⊢ (𝐴 ∈ ℝ⁺ → 𝐴 ∈ ℝ)
32	31	ad3antrrr 730	. . . . . . . . . . . 12 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → 𝐴 ∈ ℝ)
33	30, 32	resubcld 11691	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → ((𝑏 / 𝑎) − 𝐴) ∈ ℝ)
34	33	recnd 11289	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → ((𝑏 / 𝑎) − 𝐴) ∈ ℂ)
35	28, 34	absmuld 15493	. . . . . . . . 9 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (abs‘(𝑎 · ((𝑏 / 𝑎) − 𝐴))) = ((abs‘𝑎) · (abs‘((𝑏 / 𝑎) − 𝐴))))
36	27, 35	eqtr4d 2780	. . . . . . . 8 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (𝑎 · (abs‘((𝑏 / 𝑎) − 𝐴))) = (abs‘(𝑎 · ((𝑏 / 𝑎) − 𝐴))))
37		qcn 13005	. . . . . . . . . . . 12 ⊢ ((𝑏 / 𝑎) ∈ ℚ → (𝑏 / 𝑎) ∈ ℂ)
38	17, 37	syl 17	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (𝑏 / 𝑎) ∈ ℂ)
39		rpcn 13045	. . . . . . . . . . . 12 ⊢ (𝐴 ∈ ℝ⁺ → 𝐴 ∈ ℂ)
40	39	ad3antrrr 730	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → 𝐴 ∈ ℂ)
41	28, 38, 40	subdid 11719	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (𝑎 · ((𝑏 / 𝑎) − 𝐴)) = ((𝑎 · (𝑏 / 𝑎)) − (𝑎 · 𝐴)))
42	9	nncnd 12282	. . . . . . . . . . . 12 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → 𝑏 ∈ ℂ)
43	42, 28, 15	divcan2d 12045	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (𝑎 · (𝑏 / 𝑎)) = 𝑏)
44	28, 40	mulcomd 11282	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (𝑎 · 𝐴) = (𝐴 · 𝑎))
45	43, 44	oveq12d 7449	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → ((𝑎 · (𝑏 / 𝑎)) − (𝑎 · 𝐴)) = (𝑏 − (𝐴 · 𝑎)))
46	41, 45	eqtrd 2777	. . . . . . . . 9 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (𝑎 · ((𝑏 / 𝑎) − 𝐴)) = (𝑏 − (𝐴 · 𝑎)))
47	46	fveq2d 6910	. . . . . . . 8 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (abs‘(𝑎 · ((𝑏 / 𝑎) − 𝐴))) = (abs‘(𝑏 − (𝐴 · 𝑎))))
48	32, 22	remulcld 11291	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (𝐴 · 𝑎) ∈ ℝ)
49	48	recnd 11289	. . . . . . . . 9 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (𝐴 · 𝑎) ∈ ℂ)
50	42, 49	abssubd 15492	. . . . . . . 8 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (abs‘(𝑏 − (𝐴 · 𝑎))) = (abs‘((𝐴 · 𝑎) − 𝑏)))
51	36, 47, 50	3eqtrd 2781	. . . . . . 7 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (𝑎 · (abs‘((𝑏 / 𝑎) − 𝐴))) = (abs‘((𝐴 · 𝑎) − 𝑏)))
52	9	nnred 12281	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → 𝑏 ∈ ℝ)
53	48, 52	resubcld 11691	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → ((𝐴 · 𝑎) − 𝑏) ∈ ℝ)
54	53	recnd 11289	. . . . . . . . 9 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → ((𝐴 · 𝑎) − 𝑏) ∈ ℂ)
55	54	abscld 15475	. . . . . . . 8 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (abs‘((𝐴 · 𝑎) − 𝑏)) ∈ ℝ)
56		simpllr 776	. . . . . . . . . . . . . 14 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → 𝐵 ∈ ℝ⁺)
57	56	rprecred 13088	. . . . . . . . . . . . 13 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (1 / 𝐵) ∈ ℝ)
58	56	rpreccld 13087	. . . . . . . . . . . . . 14 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (1 / 𝐵) ∈ ℝ⁺)
59	58	rpge0d 13081	. . . . . . . . . . . . 13 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → 0 ≤ (1 / 𝐵))
60	57, 59, 4	syl2anc 584	. . . . . . . . . . . 12 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (⌊‘(1 / 𝐵)) ∈ ℕ₀)
61	60, 5	syl 17	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → ((⌊‘(1 / 𝐵)) + 1) ∈ ℕ)
62	61	nnrpd 13075	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → ((⌊‘(1 / 𝐵)) + 1) ∈ ℝ⁺)
63	62, 19	ifcld 4572	. . . . . . . . 9 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎) ∈ ℝ⁺)
64	63	rprecred 13088	. . . . . . . 8 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎)) ∈ ℝ)
65	56	rpred 13077	. . . . . . . . 9 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → 𝐵 ∈ ℝ)
66	22, 65	remulcld 11291	. . . . . . . 8 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (𝑎 · 𝐵) ∈ ℝ)
67		simpr 484	. . . . . . . 8 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎)))
68	58	rprecred 13088	. . . . . . . . 9 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (1 / (1 / 𝐵)) ∈ ℝ)
69	61	nnred 12281	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → ((⌊‘(1 / 𝐵)) + 1) ∈ ℝ)
70	69, 22	ifcld 4572	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎) ∈ ℝ)
71		fllep1 13841	. . . . . . . . . . . 12 ⊢ ((1 / 𝐵) ∈ ℝ → (1 / 𝐵) ≤ ((⌊‘(1 / 𝐵)) + 1))
72	57, 71	syl 17	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (1 / 𝐵) ≤ ((⌊‘(1 / 𝐵)) + 1))
73		max2 13229	. . . . . . . . . . . 12 ⊢ ((𝑎 ∈ ℝ ∧ ((⌊‘(1 / 𝐵)) + 1) ∈ ℝ) → ((⌊‘(1 / 𝐵)) + 1) ≤ if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))
74	22, 69, 73	syl2anc 584	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → ((⌊‘(1 / 𝐵)) + 1) ≤ if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))
75	57, 69, 70, 72, 74	letrd 11418	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (1 / 𝐵) ≤ if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))
76	58, 63	lerecd 13096	. . . . . . . . . 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 232	. . . . . . . . 9 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎)) ≤ (1 / (1 / 𝐵)))
78	65	recnd 11289	. . . . . . . . . . . 12 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → 𝐵 ∈ ℂ)
79	56	rpne0d 13082	. . . . . . . . . . . 12 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → 𝐵 ≠ 0)
80	78, 79	recrecd 12040	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (1 / (1 / 𝐵)) = 𝐵)
81	78	mullidd 11279	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (1 · 𝐵) = 𝐵)
82	80, 81	eqtr4d 2780	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (1 / (1 / 𝐵)) = (1 · 𝐵))
83	12	nnge1d 12314	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → 1 ≤ 𝑎)
84		1red 11262	. . . . . . . . . . . 12 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → 1 ∈ ℝ)
85	84, 22, 56	lemul1d 13120	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (1 ≤ 𝑎 ↔ (1 · 𝐵) ≤ (𝑎 · 𝐵)))
86	83, 85	mpbid 232	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (1 · 𝐵) ≤ (𝑎 · 𝐵))
87	82, 86	eqbrtrd 5165	. . . . . . . . 9 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (1 / (1 / 𝐵)) ≤ (𝑎 · 𝐵))
88	64, 68, 66, 77, 87	letrd 11418	. . . . . . . 8 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎)) ≤ (𝑎 · 𝐵))
89	55, 64, 66, 67, 88	ltletrd 11421	. . . . . . 7 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (abs‘((𝐴 · 𝑎) − 𝑏)) < (𝑎 · 𝐵))
90	51, 89	eqbrtrd 5165	. . . . . 6 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (𝑎 · (abs‘((𝑏 / 𝑎) − 𝐴))) < (𝑎 · 𝐵))
91	34	abscld 15475	. . . . . . 7 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (abs‘((𝑏 / 𝑎) − 𝐴)) ∈ ℝ)
92	12	nngt0d 12315	. . . . . . 7 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → 0 < 𝑎)
93		ltmul2 12118	. . . . . . 7 ⊢ (((abs‘((𝑏 / 𝑎) − 𝐴)) ∈ ℝ ∧ 𝐵 ∈ ℝ ∧ (𝑎 ∈ ℝ ∧ 0 < 𝑎)) → ((abs‘((𝑏 / 𝑎) − 𝐴)) < 𝐵 ↔ (𝑎 · (abs‘((𝑏 / 𝑎) − 𝐴))) < (𝑎 · 𝐵)))
94	91, 65, 22, 92, 93	syl112anc 1376	. . . . . 6 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → ((abs‘((𝑏 / 𝑎) − 𝐴)) < 𝐵 ↔ (𝑎 · (abs‘((𝑏 / 𝑎) − 𝐴))) < (𝑎 · 𝐵)))
95	90, 94	mpbird 257	. . . . 5 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (abs‘((𝑏 / 𝑎) − 𝐴)) < 𝐵)
96	22, 22	remulcld 11291	. . . . . . . 8 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (𝑎 · 𝑎) ∈ ℝ)
97	22, 15	msqgt0d 11830	. . . . . . . . 9 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → 0 < (𝑎 · 𝑎))
98	97	gt0ne0d 11827	. . . . . . . 8 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (𝑎 · 𝑎) ≠ 0)
99	96, 98	rereccld 12094	. . . . . . 7 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (1 / (𝑎 · 𝑎)) ∈ ℝ)
100		qdencl 16778	. . . . . . . . . . 11 ⊢ ((𝑏 / 𝑎) ∈ ℚ → (denom‘(𝑏 / 𝑎)) ∈ ℕ)
101	17, 100	syl 17	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (denom‘(𝑏 / 𝑎)) ∈ ℕ)
102	101	nnred 12281	. . . . . . . . 9 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (denom‘(𝑏 / 𝑎)) ∈ ℝ)
103	102, 102	remulcld 11291	. . . . . . . 8 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → ((denom‘(𝑏 / 𝑎)) · (denom‘(𝑏 / 𝑎))) ∈ ℝ)
104	101	nnne0d 12316	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (denom‘(𝑏 / 𝑎)) ≠ 0)
105	102, 104	msqgt0d 11830	. . . . . . . . 9 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → 0 < ((denom‘(𝑏 / 𝑎)) · (denom‘(𝑏 / 𝑎))))
106	105	gt0ne0d 11827	. . . . . . . 8 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → ((denom‘(𝑏 / 𝑎)) · (denom‘(𝑏 / 𝑎))) ≠ 0)
107	103, 106	rereccld 12094	. . . . . . 7 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (1 / ((denom‘(𝑏 / 𝑎)) · (denom‘(𝑏 / 𝑎)))) ∈ ℝ)
108	22, 15	rereccld 12094	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (1 / 𝑎) ∈ ℝ)
109		max1 13227	. . . . . . . . . . . 12 ⊢ ((𝑎 ∈ ℝ ∧ ((⌊‘(1 / 𝐵)) + 1) ∈ ℝ) → 𝑎 ≤ if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))
110	22, 69, 109	syl2anc 584	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → 𝑎 ≤ if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))
111	19, 63	lerecd 13096	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (𝑎 ≤ if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎) ↔ (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎)) ≤ (1 / 𝑎)))
112	110, 111	mpbid 232	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎)) ≤ (1 / 𝑎))
113	55, 64, 108, 67, 112	ltletrd 11421	. . . . . . . . 9 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / 𝑎))
114	28, 28, 28, 15, 15	divdiv1d 12074	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → ((𝑎 / 𝑎) / 𝑎) = (𝑎 / (𝑎 · 𝑎)))
115	28, 15	dividd 12041	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (𝑎 / 𝑎) = 1)
116	115	oveq1d 7446	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → ((𝑎 / 𝑎) / 𝑎) = (1 / 𝑎))
117	96	recnd 11289	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (𝑎 · 𝑎) ∈ ℂ)
118	28, 117, 98	divrecd 12046	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (𝑎 / (𝑎 · 𝑎)) = (𝑎 · (1 / (𝑎 · 𝑎))))
119	114, 116, 118	3eqtr3rd 2786	. . . . . . . . 9 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (𝑎 · (1 / (𝑎 · 𝑎))) = (1 / 𝑎))
120	113, 51, 119	3brtr4d 5175	. . . . . . . 8 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (𝑎 · (abs‘((𝑏 / 𝑎) − 𝐴))) < (𝑎 · (1 / (𝑎 · 𝑎))))
121		ltmul2 12118	. . . . . . . . 9 ⊢ (((abs‘((𝑏 / 𝑎) − 𝐴)) ∈ ℝ ∧ (1 / (𝑎 · 𝑎)) ∈ ℝ ∧ (𝑎 ∈ ℝ ∧ 0 < 𝑎)) → ((abs‘((𝑏 / 𝑎) − 𝐴)) < (1 / (𝑎 · 𝑎)) ↔ (𝑎 · (abs‘((𝑏 / 𝑎) − 𝐴))) < (𝑎 · (1 / (𝑎 · 𝑎)))))
122	91, 99, 22, 92, 121	syl112anc 1376	. . . . . . . 8 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → ((abs‘((𝑏 / 𝑎) − 𝐴)) < (1 / (𝑎 · 𝑎)) ↔ (𝑎 · (abs‘((𝑏 / 𝑎) − 𝐴))) < (𝑎 · (1 / (𝑎 · 𝑎)))))
123	120, 122	mpbird 257	. . . . . . 7 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (abs‘((𝑏 / 𝑎) − 𝐴)) < (1 / (𝑎 · 𝑎)))
124	9	nnzd 12640	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → 𝑏 ∈ ℤ)
125		divdenle 16786	. . . . . . . . . 10 ⊢ ((𝑏 ∈ ℤ ∧ 𝑎 ∈ ℕ) → (denom‘(𝑏 / 𝑎)) ≤ 𝑎)
126	124, 12, 125	syl2anc 584	. . . . . . . . 9 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (denom‘(𝑏 / 𝑎)) ≤ 𝑎)
127	101	nnnn0d 12587	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (denom‘(𝑏 / 𝑎)) ∈ ℕ₀)
128	127	nn0ge0d 12590	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → 0 ≤ (denom‘(𝑏 / 𝑎)))
129		le2msq 12168	. . . . . . . . . 10 ⊢ ((((denom‘(𝑏 / 𝑎)) ∈ ℝ ∧ 0 ≤ (denom‘(𝑏 / 𝑎))) ∧ (𝑎 ∈ ℝ ∧ 0 ≤ 𝑎)) → ((denom‘(𝑏 / 𝑎)) ≤ 𝑎 ↔ ((denom‘(𝑏 / 𝑎)) · (denom‘(𝑏 / 𝑎))) ≤ (𝑎 · 𝑎)))
130	102, 128, 22, 24, 129	syl22anc 839	. . . . . . . . 9 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → ((denom‘(𝑏 / 𝑎)) ≤ 𝑎 ↔ ((denom‘(𝑏 / 𝑎)) · (denom‘(𝑏 / 𝑎))) ≤ (𝑎 · 𝑎)))
131	126, 130	mpbid 232	. . . . . . . 8 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → ((denom‘(𝑏 / 𝑎)) · (denom‘(𝑏 / 𝑎))) ≤ (𝑎 · 𝑎))
132		lerec 12151	. . . . . . . . 9 ⊢ (((((denom‘(𝑏 / 𝑎)) · (denom‘(𝑏 / 𝑎))) ∈ ℝ ∧ 0 < ((denom‘(𝑏 / 𝑎)) · (denom‘(𝑏 / 𝑎)))) ∧ ((𝑎 · 𝑎) ∈ ℝ ∧ 0 < (𝑎 · 𝑎))) → (((denom‘(𝑏 / 𝑎)) · (denom‘(𝑏 / 𝑎))) ≤ (𝑎 · 𝑎) ↔ (1 / (𝑎 · 𝑎)) ≤ (1 / ((denom‘(𝑏 / 𝑎)) · (denom‘(𝑏 / 𝑎))))))
133	103, 105, 96, 97, 132	syl22anc 839	. . . . . . . 8 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (((denom‘(𝑏 / 𝑎)) · (denom‘(𝑏 / 𝑎))) ≤ (𝑎 · 𝑎) ↔ (1 / (𝑎 · 𝑎)) ≤ (1 / ((denom‘(𝑏 / 𝑎)) · (denom‘(𝑏 / 𝑎))))))
134	131, 133	mpbid 232	. . . . . . 7 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (1 / (𝑎 · 𝑎)) ≤ (1 / ((denom‘(𝑏 / 𝑎)) · (denom‘(𝑏 / 𝑎)))))
135	91, 99, 107, 123, 134	ltletrd 11421	. . . . . 6 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (abs‘((𝑏 / 𝑎) − 𝐴)) < (1 / ((denom‘(𝑏 / 𝑎)) · (denom‘(𝑏 / 𝑎)))))
136	101	nncnd 12282	. . . . . . . 8 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (denom‘(𝑏 / 𝑎)) ∈ ℂ)
137		2nn0 12543	. . . . . . . 8 ⊢ 2 ∈ ℕ₀
138		expneg 14110	. . . . . . . 8 ⊢ (((denom‘(𝑏 / 𝑎)) ∈ ℂ ∧ 2 ∈ ℕ₀) → ((denom‘(𝑏 / 𝑎))↑-2) = (1 / ((denom‘(𝑏 / 𝑎))↑2)))
139	136, 137, 138	sylancl 586	. . . . . . 7 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → ((denom‘(𝑏 / 𝑎))↑-2) = (1 / ((denom‘(𝑏 / 𝑎))↑2)))
140	136	sqvald 14183	. . . . . . . 8 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → ((denom‘(𝑏 / 𝑎))↑2) = ((denom‘(𝑏 / 𝑎)) · (denom‘(𝑏 / 𝑎))))
141	140	oveq2d 7447	. . . . . . 7 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (1 / ((denom‘(𝑏 / 𝑎))↑2)) = (1 / ((denom‘(𝑏 / 𝑎)) · (denom‘(𝑏 / 𝑎)))))
142	139, 141	eqtrd 2777	. . . . . 6 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → ((denom‘(𝑏 / 𝑎))↑-2) = (1 / ((denom‘(𝑏 / 𝑎)) · (denom‘(𝑏 / 𝑎)))))
143	135, 142	breqtrrd 5171	. . . . 5 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (abs‘((𝑏 / 𝑎) − 𝐴)) < ((denom‘(𝑏 / 𝑎))↑-2))
144		breq2 5147	. . . . . . 7 ⊢ (𝑥 = (𝑏 / 𝑎) → (0 < 𝑥 ↔ 0 < (𝑏 / 𝑎)))
145		fvoveq1 7454	. . . . . . . 8 ⊢ (𝑥 = (𝑏 / 𝑎) → (abs‘(𝑥 − 𝐴)) = (abs‘((𝑏 / 𝑎) − 𝐴)))
146	145	breq1d 5153	. . . . . . 7 ⊢ (𝑥 = (𝑏 / 𝑎) → ((abs‘(𝑥 − 𝐴)) < 𝐵 ↔ (abs‘((𝑏 / 𝑎) − 𝐴)) < 𝐵))
147		fveq2 6906	. . . . . . . . 9 ⊢ (𝑥 = (𝑏 / 𝑎) → (denom‘𝑥) = (denom‘(𝑏 / 𝑎)))
148	147	oveq1d 7446	. . . . . . . 8 ⊢ (𝑥 = (𝑏 / 𝑎) → ((denom‘𝑥)↑-2) = ((denom‘(𝑏 / 𝑎))↑-2))
149	145, 148	breq12d 5156	. . . . . . 7 ⊢ (𝑥 = (𝑏 / 𝑎) → ((abs‘(𝑥 − 𝐴)) < ((denom‘𝑥)↑-2) ↔ (abs‘((𝑏 / 𝑎) − 𝐴)) < ((denom‘(𝑏 / 𝑎))↑-2)))
150	144, 146, 149	3anbi123d 1438	. . . . . 6 ⊢ (𝑥 = (𝑏 / 𝑎) → ((0 < 𝑥 ∧ (abs‘(𝑥 − 𝐴)) < 𝐵 ∧ (abs‘(𝑥 − 𝐴)) < ((denom‘𝑥)↑-2)) ↔ (0 < (𝑏 / 𝑎) ∧ (abs‘((𝑏 / 𝑎) − 𝐴)) < 𝐵 ∧ (abs‘((𝑏 / 𝑎) − 𝐴)) < ((denom‘(𝑏 / 𝑎))↑-2))))
151	150	rspcev 3622	. . . . 5 ⊢ (((𝑏 / 𝑎) ∈ ℚ ∧ (0 < (𝑏 / 𝑎) ∧ (abs‘((𝑏 / 𝑎) − 𝐴)) < 𝐵 ∧ (abs‘((𝑏 / 𝑎) − 𝐴)) < ((denom‘(𝑏 / 𝑎))↑-2))) → ∃𝑥 ∈ ℚ (0 < 𝑥 ∧ (abs‘(𝑥 − 𝐴)) < 𝐵 ∧ (abs‘(𝑥 − 𝐴)) < ((denom‘𝑥)↑-2)))
152	17, 21, 95, 143, 151	syl13anc 1374	. . . 4 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → ∃𝑥 ∈ ℚ (0 < 𝑥 ∧ (abs‘(𝑥 − 𝐴)) < 𝐵 ∧ (abs‘(𝑥 − 𝐴)) < ((denom‘𝑥)↑-2)))
153	152	ex 412	. . 3 ⊢ (((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) → ((abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎)) → ∃𝑥 ∈ ℚ (0 < 𝑥 ∧ (abs‘(𝑥 − 𝐴)) < 𝐵 ∧ (abs‘(𝑥 − 𝐴)) < ((denom‘𝑥)↑-2))))
154	153	rexlimdvva 3213	. 2 ⊢ ((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) → (∃𝑎 ∈ ℕ ∃𝑏 ∈ ℕ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎)) → ∃𝑥 ∈ ℚ (0 < 𝑥 ∧ (abs‘(𝑥 − 𝐴)) < 𝐵 ∧ (abs‘(𝑥 − 𝐴)) < ((denom‘𝑥)↑-2))))
155	8, 154	mpd 15	1 ⊢ ((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) → ∃𝑥 ∈ ℚ (0 < 𝑥 ∧ (abs‘(𝑥 − 𝐴)) < 𝐵 ∧ (abs‘(𝑥 − 𝐴)) < ((denom‘𝑥)↑-2)))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ↔ wb 206 ∧ wa 395 ∧ w3a 1087 = wceq 1540 ∈ wcel 2108 ≠ wne 2940 ∃wrex 3070 ifcif 4525 class class class wbr 5143 ‘cfv 6561 (class class class)co 7431 ℂcc 11153 ℝcr 11154 0cc0 11155 1c1 11156 + caddc 11158 · cmul 11160 < clt 11295 ≤ cle 11296 − cmin 11492 -cneg 11493 / cdiv 11920 ℕcn 12266 2c2 12321 ℕ₀cn0 12526 ℤcz 12613 ℚcq 12990 ℝ⁺crp 13034 ⌊cfl 13830 ↑cexp 14102 abscabs 15273 denomcdenom 16771

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 2007 ax-8 2110 ax-9 2118 ax-10 2141 ax-11 2157 ax-12 2177 ax-ext 2708 ax-rep 5279 ax-sep 5296 ax-nul 5306 ax-pow 5365 ax-pr 5432 ax-un 7755 ax-cnex 11211 ax-resscn 11212 ax-1cn 11213 ax-icn 11214 ax-addcl 11215 ax-addrcl 11216 ax-mulcl 11217 ax-mulrcl 11218 ax-mulcom 11219 ax-addass 11220 ax-mulass 11221 ax-distr 11222 ax-i2m1 11223 ax-1ne0 11224 ax-1rid 11225 ax-rnegex 11226 ax-rrecex 11227 ax-cnre 11228 ax-pre-lttri 11229 ax-pre-lttrn 11230 ax-pre-ltadd 11231 ax-pre-mulgt0 11232 ax-pre-sup 11233

This theorem depends on definitions: df-bi 207 df-an 396 df-or 849 df-3or 1088 df-3an 1089 df-tru 1543 df-fal 1553 df-ex 1780 df-nf 1784 df-sb 2065 df-mo 2540 df-eu 2569 df-clab 2715 df-cleq 2729 df-clel 2816 df-nfc 2892 df-ne 2941 df-nel 3047 df-ral 3062 df-rex 3071 df-rmo 3380 df-reu 3381 df-rab 3437 df-v 3482 df-sbc 3789 df-csb 3900 df-dif 3954 df-un 3956 df-in 3958 df-ss 3968 df-pss 3971 df-nul 4334 df-if 4526 df-pw 4602 df-sn 4627 df-pr 4629 df-op 4633 df-uni 4908 df-int 4947 df-iun 4993 df-br 5144 df-opab 5206 df-mpt 5226 df-tr 5260 df-id 5578 df-eprel 5584 df-po 5592 df-so 5593 df-fr 5637 df-we 5639 df-xp 5691 df-rel 5692 df-cnv 5693 df-co 5694 df-dm 5695 df-rn 5696 df-res 5697 df-ima 5698 df-pred 6321 df-ord 6387 df-on 6388 df-lim 6389 df-suc 6390 df-iota 6514 df-fun 6563 df-fn 6564 df-f 6565 df-f1 6566 df-fo 6567 df-f1o 6568 df-fv 6569 df-riota 7388 df-ov 7434 df-oprab 7435 df-mpo 7436 df-om 7888 df-1st 8014 df-2nd 8015 df-frecs 8306 df-wrecs 8337 df-recs 8411 df-rdg 8450 df-1o 8506 df-oadd 8510 df-er 8745 df-en 8986 df-dom 8987 df-sdom 8988 df-fin 8989 df-sup 9482 df-inf 9483 df-card 9979 df-pnf 11297 df-mnf 11298 df-xr 11299 df-ltxr 11300 df-le 11301 df-sub 11494 df-neg 11495 df-div 11921 df-nn 12267 df-2 12329 df-3 12330 df-n0 12527 df-xnn0 12600 df-z 12614 df-uz 12879 df-q 12991 df-rp 13035 df-ico 13393 df-fz 13548 df-fl 13832 df-mod 13910 df-seq 14043 df-exp 14103 df-hash 14370 df-cj 15138 df-re 15139 df-im 15140 df-sqrt 15274 df-abs 15275 df-dvds 16291 df-gcd 16532 df-numer 16772 df-denom 16773

This theorem is referenced by: irrapxlem6 42838

W3C validator