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 41240

Description: Lemma for irrapx1 41242. 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 485	. . . . . 6 ⊢ ((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) → 𝐵 ∈ ℝ⁺)
2	1	rpreccld 12991	. . . . 5 ⊢ ((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) → (1 / 𝐵) ∈ ℝ⁺)
3	2	rprege0d 12988	. . . 4 ⊢ ((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) → ((1 / 𝐵) ∈ ℝ ∧ 0 ≤ (1 / 𝐵)))
4		flge0nn0 13750	. . . 4 ⊢ (((1 / 𝐵) ∈ ℝ ∧ 0 ≤ (1 / 𝐵)) → (⌊‘(1 / 𝐵)) ∈ ℕ₀)
5		nn0p1nn 12476	. . . 4 ⊢ ((⌊‘(1 / 𝐵)) ∈ ℕ₀ → ((⌊‘(1 / 𝐵)) + 1) ∈ ℕ)
6	3, 4, 5	3syl 18	. . 3 ⊢ ((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) → ((⌊‘(1 / 𝐵)) + 1) ∈ ℕ)
7		irrapxlem4 41239	. . 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 776	. . . . . . 7 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → 𝑏 ∈ ℕ)
10		nnq 12911	. . . . . . 7 ⊢ (𝑏 ∈ ℕ → 𝑏 ∈ ℚ)
11	9, 10	syl 17	. . . . . 6 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → 𝑏 ∈ ℚ)
12		simplrl 775	. . . . . . 7 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → 𝑎 ∈ ℕ)
13		nnq 12911	. . . . . . 7 ⊢ (𝑎 ∈ ℕ → 𝑎 ∈ ℚ)
14	12, 13	syl 17	. . . . . 6 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → 𝑎 ∈ ℚ)
15	12	nnne0d 12227	. . . . . 6 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → 𝑎 ≠ 0)
16		qdivcl 12919	. . . . . 6 ⊢ ((𝑏 ∈ ℚ ∧ 𝑎 ∈ ℚ ∧ 𝑎 ≠ 0) → (𝑏 / 𝑎) ∈ ℚ)
17	11, 14, 15, 16	syl3anc 1371	. . . . 5 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (𝑏 / 𝑎) ∈ ℚ)
18	9	nnrpd 12979	. . . . . . 7 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → 𝑏 ∈ ℝ⁺)
19	12	nnrpd 12979	. . . . . . 7 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → 𝑎 ∈ ℝ⁺)
20	18, 19	rpdivcld 12998	. . . . . 6 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (𝑏 / 𝑎) ∈ ℝ⁺)
21	20	rpgt0d 12984	. . . . 5 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → 0 < (𝑏 / 𝑎))
22	12	nnred 12192	. . . . . . . . . . . 12 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → 𝑎 ∈ ℝ)
23	12	nnnn0d 12497	. . . . . . . . . . . . 13 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → 𝑎 ∈ ℕ₀)
24	23	nn0ge0d 12500	. . . . . . . . . . . 12 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → 0 ≤ 𝑎)
25	22, 24	absidd 15334	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (abs‘𝑎) = 𝑎)
26	25	eqcomd 2737	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → 𝑎 = (abs‘𝑎))
27	26	oveq1d 7392	. . . . . . . . 9 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (𝑎 · (abs‘((𝑏 / 𝑎) − 𝐴))) = ((abs‘𝑎) · (abs‘((𝑏 / 𝑎) − 𝐴))))
28	12	nncnd 12193	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → 𝑎 ∈ ℂ)
29		qre 12902	. . . . . . . . . . . . 13 ⊢ ((𝑏 / 𝑎) ∈ ℚ → (𝑏 / 𝑎) ∈ ℝ)
30	17, 29	syl 17	. . . . . . . . . . . 12 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (𝑏 / 𝑎) ∈ ℝ)
31		rpre 12947	. . . . . . . . . . . . 13 ⊢ (𝐴 ∈ ℝ⁺ → 𝐴 ∈ ℝ)
32	31	ad3antrrr 728	. . . . . . . . . . . 12 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → 𝐴 ∈ ℝ)
33	30, 32	resubcld 11607	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → ((𝑏 / 𝑎) − 𝐴) ∈ ℝ)
34	33	recnd 11207	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → ((𝑏 / 𝑎) − 𝐴) ∈ ℂ)
35	28, 34	absmuld 15366	. . . . . . . . 9 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (abs‘(𝑎 · ((𝑏 / 𝑎) − 𝐴))) = ((abs‘𝑎) · (abs‘((𝑏 / 𝑎) − 𝐴))))
36	27, 35	eqtr4d 2774	. . . . . . . 8 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (𝑎 · (abs‘((𝑏 / 𝑎) − 𝐴))) = (abs‘(𝑎 · ((𝑏 / 𝑎) − 𝐴))))
37		qcn 12912	. . . . . . . . . . . 12 ⊢ ((𝑏 / 𝑎) ∈ ℚ → (𝑏 / 𝑎) ∈ ℂ)
38	17, 37	syl 17	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (𝑏 / 𝑎) ∈ ℂ)
39		rpcn 12949	. . . . . . . . . . . 12 ⊢ (𝐴 ∈ ℝ⁺ → 𝐴 ∈ ℂ)
40	39	ad3antrrr 728	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → 𝐴 ∈ ℂ)
41	28, 38, 40	subdid 11635	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (𝑎 · ((𝑏 / 𝑎) − 𝐴)) = ((𝑎 · (𝑏 / 𝑎)) − (𝑎 · 𝐴)))
42	9	nncnd 12193	. . . . . . . . . . . 12 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → 𝑏 ∈ ℂ)
43	42, 28, 15	divcan2d 11957	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (𝑎 · (𝑏 / 𝑎)) = 𝑏)
44	28, 40	mulcomd 11200	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (𝑎 · 𝐴) = (𝐴 · 𝑎))
45	43, 44	oveq12d 7395	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → ((𝑎 · (𝑏 / 𝑎)) − (𝑎 · 𝐴)) = (𝑏 − (𝐴 · 𝑎)))
46	41, 45	eqtrd 2771	. . . . . . . . 9 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (𝑎 · ((𝑏 / 𝑎) − 𝐴)) = (𝑏 − (𝐴 · 𝑎)))
47	46	fveq2d 6866	. . . . . . . 8 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (abs‘(𝑎 · ((𝑏 / 𝑎) − 𝐴))) = (abs‘(𝑏 − (𝐴 · 𝑎))))
48	32, 22	remulcld 11209	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (𝐴 · 𝑎) ∈ ℝ)
49	48	recnd 11207	. . . . . . . . 9 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (𝐴 · 𝑎) ∈ ℂ)
50	42, 49	abssubd 15365	. . . . . . . 8 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (abs‘(𝑏 − (𝐴 · 𝑎))) = (abs‘((𝐴 · 𝑎) − 𝑏)))
51	36, 47, 50	3eqtrd 2775	. . . . . . 7 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (𝑎 · (abs‘((𝑏 / 𝑎) − 𝐴))) = (abs‘((𝐴 · 𝑎) − 𝑏)))
52	9	nnred 12192	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → 𝑏 ∈ ℝ)
53	48, 52	resubcld 11607	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → ((𝐴 · 𝑎) − 𝑏) ∈ ℝ)
54	53	recnd 11207	. . . . . . . . 9 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → ((𝐴 · 𝑎) − 𝑏) ∈ ℂ)
55	54	abscld 15348	. . . . . . . 8 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (abs‘((𝐴 · 𝑎) − 𝑏)) ∈ ℝ)
56		simpllr 774	. . . . . . . . . . . . . 14 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → 𝐵 ∈ ℝ⁺)
57	56	rprecred 12992	. . . . . . . . . . . . 13 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (1 / 𝐵) ∈ ℝ)
58	56	rpreccld 12991	. . . . . . . . . . . . . 14 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (1 / 𝐵) ∈ ℝ⁺)
59	58	rpge0d 12985	. . . . . . . . . . . . 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 12979	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → ((⌊‘(1 / 𝐵)) + 1) ∈ ℝ⁺)
63	62, 19	ifcld 4552	. . . . . . . . 9 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎) ∈ ℝ⁺)
64	63	rprecred 12992	. . . . . . . 8 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎)) ∈ ℝ)
65	56	rpred 12981	. . . . . . . . 9 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → 𝐵 ∈ ℝ)
66	22, 65	remulcld 11209	. . . . . . . 8 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (𝑎 · 𝐵) ∈ ℝ)
67		simpr 485	. . . . . . . 8 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎)))
68	58	rprecred 12992	. . . . . . . . 9 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (1 / (1 / 𝐵)) ∈ ℝ)
69	61	nnred 12192	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → ((⌊‘(1 / 𝐵)) + 1) ∈ ℝ)
70	69, 22	ifcld 4552	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎) ∈ ℝ)
71		fllep1 13731	. . . . . . . . . . . 12 ⊢ ((1 / 𝐵) ∈ ℝ → (1 / 𝐵) ≤ ((⌊‘(1 / 𝐵)) + 1))
72	57, 71	syl 17	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (1 / 𝐵) ≤ ((⌊‘(1 / 𝐵)) + 1))
73		max2 13131	. . . . . . . . . . . 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 11336	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (1 / 𝐵) ≤ if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))
76	58, 63	lerecd 13000	. . . . . . . . . 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 231	. . . . . . . . 9 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎)) ≤ (1 / (1 / 𝐵)))
78	65	recnd 11207	. . . . . . . . . . . 12 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → 𝐵 ∈ ℂ)
79	56	rpne0d 12986	. . . . . . . . . . . 12 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → 𝐵 ≠ 0)
80	78, 79	recrecd 11952	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (1 / (1 / 𝐵)) = 𝐵)
81	78	mullidd 11197	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (1 · 𝐵) = 𝐵)
82	80, 81	eqtr4d 2774	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (1 / (1 / 𝐵)) = (1 · 𝐵))
83	12	nnge1d 12225	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → 1 ≤ 𝑎)
84		1red 11180	. . . . . . . . . . . 12 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → 1 ∈ ℝ)
85	84, 22, 56	lemul1d 13024	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (1 ≤ 𝑎 ↔ (1 · 𝐵) ≤ (𝑎 · 𝐵)))
86	83, 85	mpbid 231	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (1 · 𝐵) ≤ (𝑎 · 𝐵))
87	82, 86	eqbrtrd 5147	. . . . . . . . 9 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (1 / (1 / 𝐵)) ≤ (𝑎 · 𝐵))
88	64, 68, 66, 77, 87	letrd 11336	. . . . . . . 8 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎)) ≤ (𝑎 · 𝐵))
89	55, 64, 66, 67, 88	ltletrd 11339	. . . . . . 7 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (abs‘((𝐴 · 𝑎) − 𝑏)) < (𝑎 · 𝐵))
90	51, 89	eqbrtrd 5147	. . . . . 6 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (𝑎 · (abs‘((𝑏 / 𝑎) − 𝐴))) < (𝑎 · 𝐵))
91	34	abscld 15348	. . . . . . 7 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (abs‘((𝑏 / 𝑎) − 𝐴)) ∈ ℝ)
92	12	nngt0d 12226	. . . . . . 7 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → 0 < 𝑎)
93		ltmul2 12030	. . . . . . 7 ⊢ (((abs‘((𝑏 / 𝑎) − 𝐴)) ∈ ℝ ∧ 𝐵 ∈ ℝ ∧ (𝑎 ∈ ℝ ∧ 0 < 𝑎)) → ((abs‘((𝑏 / 𝑎) − 𝐴)) < 𝐵 ↔ (𝑎 · (abs‘((𝑏 / 𝑎) − 𝐴))) < (𝑎 · 𝐵)))
94	91, 65, 22, 92, 93	syl112anc 1374	. . . . . 6 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → ((abs‘((𝑏 / 𝑎) − 𝐴)) < 𝐵 ↔ (𝑎 · (abs‘((𝑏 / 𝑎) − 𝐴))) < (𝑎 · 𝐵)))
95	90, 94	mpbird 256	. . . . 5 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (abs‘((𝑏 / 𝑎) − 𝐴)) < 𝐵)
96	22, 22	remulcld 11209	. . . . . . . 8 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (𝑎 · 𝑎) ∈ ℝ)
97	22, 15	msqgt0d 11746	. . . . . . . . 9 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → 0 < (𝑎 · 𝑎))
98	97	gt0ne0d 11743	. . . . . . . 8 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (𝑎 · 𝑎) ≠ 0)
99	96, 98	rereccld 12006	. . . . . . 7 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (1 / (𝑎 · 𝑎)) ∈ ℝ)
100		qdencl 16642	. . . . . . . . . . 11 ⊢ ((𝑏 / 𝑎) ∈ ℚ → (denom‘(𝑏 / 𝑎)) ∈ ℕ)
101	17, 100	syl 17	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (denom‘(𝑏 / 𝑎)) ∈ ℕ)
102	101	nnred 12192	. . . . . . . . 9 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (denom‘(𝑏 / 𝑎)) ∈ ℝ)
103	102, 102	remulcld 11209	. . . . . . . 8 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → ((denom‘(𝑏 / 𝑎)) · (denom‘(𝑏 / 𝑎))) ∈ ℝ)
104	101	nnne0d 12227	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (denom‘(𝑏 / 𝑎)) ≠ 0)
105	102, 104	msqgt0d 11746	. . . . . . . . 9 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → 0 < ((denom‘(𝑏 / 𝑎)) · (denom‘(𝑏 / 𝑎))))
106	105	gt0ne0d 11743	. . . . . . . 8 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → ((denom‘(𝑏 / 𝑎)) · (denom‘(𝑏 / 𝑎))) ≠ 0)
107	103, 106	rereccld 12006	. . . . . . 7 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (1 / ((denom‘(𝑏 / 𝑎)) · (denom‘(𝑏 / 𝑎)))) ∈ ℝ)
108	22, 15	rereccld 12006	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (1 / 𝑎) ∈ ℝ)
109		max1 13129	. . . . . . . . . . . 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 13000	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (𝑎 ≤ if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎) ↔ (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎)) ≤ (1 / 𝑎)))
112	110, 111	mpbid 231	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎)) ≤ (1 / 𝑎))
113	55, 64, 108, 67, 112	ltletrd 11339	. . . . . . . . 9 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / 𝑎))
114	28, 28, 28, 15, 15	divdiv1d 11986	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → ((𝑎 / 𝑎) / 𝑎) = (𝑎 / (𝑎 · 𝑎)))
115	28, 15	dividd 11953	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (𝑎 / 𝑎) = 1)
116	115	oveq1d 7392	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → ((𝑎 / 𝑎) / 𝑎) = (1 / 𝑎))
117	96	recnd 11207	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (𝑎 · 𝑎) ∈ ℂ)
118	28, 117, 98	divrecd 11958	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (𝑎 / (𝑎 · 𝑎)) = (𝑎 · (1 / (𝑎 · 𝑎))))
119	114, 116, 118	3eqtr3rd 2780	. . . . . . . . 9 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (𝑎 · (1 / (𝑎 · 𝑎))) = (1 / 𝑎))
120	113, 51, 119	3brtr4d 5157	. . . . . . . 8 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (𝑎 · (abs‘((𝑏 / 𝑎) − 𝐴))) < (𝑎 · (1 / (𝑎 · 𝑎))))
121		ltmul2 12030	. . . . . . . . 9 ⊢ (((abs‘((𝑏 / 𝑎) − 𝐴)) ∈ ℝ ∧ (1 / (𝑎 · 𝑎)) ∈ ℝ ∧ (𝑎 ∈ ℝ ∧ 0 < 𝑎)) → ((abs‘((𝑏 / 𝑎) − 𝐴)) < (1 / (𝑎 · 𝑎)) ↔ (𝑎 · (abs‘((𝑏 / 𝑎) − 𝐴))) < (𝑎 · (1 / (𝑎 · 𝑎)))))
122	91, 99, 22, 92, 121	syl112anc 1374	. . . . . . . 8 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → ((abs‘((𝑏 / 𝑎) − 𝐴)) < (1 / (𝑎 · 𝑎)) ↔ (𝑎 · (abs‘((𝑏 / 𝑎) − 𝐴))) < (𝑎 · (1 / (𝑎 · 𝑎)))))
123	120, 122	mpbird 256	. . . . . . 7 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (abs‘((𝑏 / 𝑎) − 𝐴)) < (1 / (𝑎 · 𝑎)))
124	9	nnzd 12550	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → 𝑏 ∈ ℤ)
125		divdenle 16650	. . . . . . . . . 10 ⊢ ((𝑏 ∈ ℤ ∧ 𝑎 ∈ ℕ) → (denom‘(𝑏 / 𝑎)) ≤ 𝑎)
126	124, 12, 125	syl2anc 584	. . . . . . . . 9 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (denom‘(𝑏 / 𝑎)) ≤ 𝑎)
127	101	nnnn0d 12497	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (denom‘(𝑏 / 𝑎)) ∈ ℕ₀)
128	127	nn0ge0d 12500	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → 0 ≤ (denom‘(𝑏 / 𝑎)))
129		le2msq 12079	. . . . . . . . . 10 ⊢ ((((denom‘(𝑏 / 𝑎)) ∈ ℝ ∧ 0 ≤ (denom‘(𝑏 / 𝑎))) ∧ (𝑎 ∈ ℝ ∧ 0 ≤ 𝑎)) → ((denom‘(𝑏 / 𝑎)) ≤ 𝑎 ↔ ((denom‘(𝑏 / 𝑎)) · (denom‘(𝑏 / 𝑎))) ≤ (𝑎 · 𝑎)))
130	102, 128, 22, 24, 129	syl22anc 837	. . . . . . . . 9 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → ((denom‘(𝑏 / 𝑎)) ≤ 𝑎 ↔ ((denom‘(𝑏 / 𝑎)) · (denom‘(𝑏 / 𝑎))) ≤ (𝑎 · 𝑎)))
131	126, 130	mpbid 231	. . . . . . . 8 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → ((denom‘(𝑏 / 𝑎)) · (denom‘(𝑏 / 𝑎))) ≤ (𝑎 · 𝑎))
132		lerec 12062	. . . . . . . . 9 ⊢ (((((denom‘(𝑏 / 𝑎)) · (denom‘(𝑏 / 𝑎))) ∈ ℝ ∧ 0 < ((denom‘(𝑏 / 𝑎)) · (denom‘(𝑏 / 𝑎)))) ∧ ((𝑎 · 𝑎) ∈ ℝ ∧ 0 < (𝑎 · 𝑎))) → (((denom‘(𝑏 / 𝑎)) · (denom‘(𝑏 / 𝑎))) ≤ (𝑎 · 𝑎) ↔ (1 / (𝑎 · 𝑎)) ≤ (1 / ((denom‘(𝑏 / 𝑎)) · (denom‘(𝑏 / 𝑎))))))
133	103, 105, 96, 97, 132	syl22anc 837	. . . . . . . 8 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (((denom‘(𝑏 / 𝑎)) · (denom‘(𝑏 / 𝑎))) ≤ (𝑎 · 𝑎) ↔ (1 / (𝑎 · 𝑎)) ≤ (1 / ((denom‘(𝑏 / 𝑎)) · (denom‘(𝑏 / 𝑎))))))
134	131, 133	mpbid 231	. . . . . . 7 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (1 / (𝑎 · 𝑎)) ≤ (1 / ((denom‘(𝑏 / 𝑎)) · (denom‘(𝑏 / 𝑎)))))
135	91, 99, 107, 123, 134	ltletrd 11339	. . . . . 6 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (abs‘((𝑏 / 𝑎) − 𝐴)) < (1 / ((denom‘(𝑏 / 𝑎)) · (denom‘(𝑏 / 𝑎)))))
136	101	nncnd 12193	. . . . . . . 8 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (denom‘(𝑏 / 𝑎)) ∈ ℂ)
137		2nn0 12454	. . . . . . . 8 ⊢ 2 ∈ ℕ₀
138		expneg 14000	. . . . . . . 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 14073	. . . . . . . 8 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → ((denom‘(𝑏 / 𝑎))↑2) = ((denom‘(𝑏 / 𝑎)) · (denom‘(𝑏 / 𝑎))))
141	140	oveq2d 7393	. . . . . . 7 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (1 / ((denom‘(𝑏 / 𝑎))↑2)) = (1 / ((denom‘(𝑏 / 𝑎)) · (denom‘(𝑏 / 𝑎)))))
142	139, 141	eqtrd 2771	. . . . . 6 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → ((denom‘(𝑏 / 𝑎))↑-2) = (1 / ((denom‘(𝑏 / 𝑎)) · (denom‘(𝑏 / 𝑎)))))
143	135, 142	breqtrrd 5153	. . . . 5 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → (abs‘((𝑏 / 𝑎) − 𝐴)) < ((denom‘(𝑏 / 𝑎))↑-2))
144		breq2 5129	. . . . . . 7 ⊢ (𝑥 = (𝑏 / 𝑎) → (0 < 𝑥 ↔ 0 < (𝑏 / 𝑎)))
145		fvoveq1 7400	. . . . . . . 8 ⊢ (𝑥 = (𝑏 / 𝑎) → (abs‘(𝑥 − 𝐴)) = (abs‘((𝑏 / 𝑎) − 𝐴)))
146	145	breq1d 5135	. . . . . . 7 ⊢ (𝑥 = (𝑏 / 𝑎) → ((abs‘(𝑥 − 𝐴)) < 𝐵 ↔ (abs‘((𝑏 / 𝑎) − 𝐴)) < 𝐵))
147		fveq2 6862	. . . . . . . . 9 ⊢ (𝑥 = (𝑏 / 𝑎) → (denom‘𝑥) = (denom‘(𝑏 / 𝑎)))
148	147	oveq1d 7392	. . . . . . . 8 ⊢ (𝑥 = (𝑏 / 𝑎) → ((denom‘𝑥)↑-2) = ((denom‘(𝑏 / 𝑎))↑-2))
149	145, 148	breq12d 5138	. . . . . . 7 ⊢ (𝑥 = (𝑏 / 𝑎) → ((abs‘(𝑥 − 𝐴)) < ((denom‘𝑥)↑-2) ↔ (abs‘((𝑏 / 𝑎) − 𝐴)) < ((denom‘(𝑏 / 𝑎))↑-2)))
150	144, 146, 149	3anbi123d 1436	. . . . . 6 ⊢ (𝑥 = (𝑏 / 𝑎) → ((0 < 𝑥 ∧ (abs‘(𝑥 − 𝐴)) < 𝐵 ∧ (abs‘(𝑥 − 𝐴)) < ((denom‘𝑥)↑-2)) ↔ (0 < (𝑏 / 𝑎) ∧ (abs‘((𝑏 / 𝑎) − 𝐴)) < 𝐵 ∧ (abs‘((𝑏 / 𝑎) − 𝐴)) < ((denom‘(𝑏 / 𝑎))↑-2))))
151	150	rspcev 3595	. . . . 5 ⊢ (((𝑏 / 𝑎) ∈ ℚ ∧ (0 < (𝑏 / 𝑎) ∧ (abs‘((𝑏 / 𝑎) − 𝐴)) < 𝐵 ∧ (abs‘((𝑏 / 𝑎) − 𝐴)) < ((denom‘(𝑏 / 𝑎))↑-2))) → ∃𝑥 ∈ ℚ (0 < 𝑥 ∧ (abs‘(𝑥 − 𝐴)) < 𝐵 ∧ (abs‘(𝑥 − 𝐴)) < ((denom‘𝑥)↑-2)))
152	17, 21, 95, 143, 151	syl13anc 1372	. . . 4 ⊢ ((((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) ∧ (abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎))) → ∃𝑥 ∈ ℚ (0 < 𝑥 ∧ (abs‘(𝑥 − 𝐴)) < 𝐵 ∧ (abs‘(𝑥 − 𝐴)) < ((denom‘𝑥)↑-2)))
153	152	ex 413	. . 3 ⊢ (((𝐴 ∈ ℝ⁺ ∧ 𝐵 ∈ ℝ⁺) ∧ (𝑎 ∈ ℕ ∧ 𝑏 ∈ ℕ)) → ((abs‘((𝐴 · 𝑎) − 𝑏)) < (1 / if(𝑎 ≤ ((⌊‘(1 / 𝐵)) + 1), ((⌊‘(1 / 𝐵)) + 1), 𝑎)) → ∃𝑥 ∈ ℚ (0 < 𝑥 ∧ (abs‘(𝑥 − 𝐴)) < 𝐵 ∧ (abs‘(𝑥 − 𝐴)) < ((denom‘𝑥)↑-2))))
154	153	rexlimdvva 3210	. 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 205 ∧ wa 396 ∧ w3a 1087 = wceq 1541 ∈ wcel 2106 ≠ wne 2939 ∃wrex 3069 ifcif 4506 class class class wbr 5125 ‘cfv 6516 (class class class)co 7377 ℂcc 11073 ℝcr 11074 0cc0 11075 1c1 11076 + caddc 11078 · cmul 11080 < clt 11213 ≤ cle 11214 − cmin 11409 -cneg 11410 / cdiv 11836 ℕcn 12177 2c2 12232 ℕ₀cn0 12437 ℤcz 12523 ℚcq 12897 ℝ⁺crp 12939 ⌊cfl 13720 ↑cexp 13992 abscabs 15146 denomcdenom 16635

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1797 ax-4 1811 ax-5 1913 ax-6 1971 ax-7 2011 ax-8 2108 ax-9 2116 ax-10 2137 ax-11 2154 ax-12 2171 ax-ext 2702 ax-rep 5262 ax-sep 5276 ax-nul 5283 ax-pow 5340 ax-pr 5404 ax-un 7692 ax-cnex 11131 ax-resscn 11132 ax-1cn 11133 ax-icn 11134 ax-addcl 11135 ax-addrcl 11136 ax-mulcl 11137 ax-mulrcl 11138 ax-mulcom 11139 ax-addass 11140 ax-mulass 11141 ax-distr 11142 ax-i2m1 11143 ax-1ne0 11144 ax-1rid 11145 ax-rnegex 11146 ax-rrecex 11147 ax-cnre 11148 ax-pre-lttri 11149 ax-pre-lttrn 11150 ax-pre-ltadd 11151 ax-pre-mulgt0 11152 ax-pre-sup 11153

This theorem depends on definitions: df-bi 206 df-an 397 df-or 846 df-3or 1088 df-3an 1089 df-tru 1544 df-fal 1554 df-ex 1782 df-nf 1786 df-sb 2068 df-mo 2533 df-eu 2562 df-clab 2709 df-cleq 2723 df-clel 2809 df-nfc 2884 df-ne 2940 df-nel 3046 df-ral 3061 df-rex 3070 df-rmo 3364 df-reu 3365 df-rab 3419 df-v 3461 df-sbc 3758 df-csb 3874 df-dif 3931 df-un 3933 df-in 3935 df-ss 3945 df-pss 3947 df-nul 4303 df-if 4507 df-pw 4582 df-sn 4607 df-pr 4609 df-op 4613 df-uni 4886 df-int 4928 df-iun 4976 df-br 5126 df-opab 5188 df-mpt 5209 df-tr 5243 df-id 5551 df-eprel 5557 df-po 5565 df-so 5566 df-fr 5608 df-we 5610 df-xp 5659 df-rel 5660 df-cnv 5661 df-co 5662 df-dm 5663 df-rn 5664 df-res 5665 df-ima 5666 df-pred 6273 df-ord 6340 df-on 6341 df-lim 6342 df-suc 6343 df-iota 6468 df-fun 6518 df-fn 6519 df-f 6520 df-f1 6521 df-fo 6522 df-f1o 6523 df-fv 6524 df-riota 7333 df-ov 7380 df-oprab 7381 df-mpo 7382 df-om 7823 df-1st 7941 df-2nd 7942 df-frecs 8232 df-wrecs 8263 df-recs 8337 df-rdg 8376 df-1o 8432 df-oadd 8436 df-er 8670 df-en 8906 df-dom 8907 df-sdom 8908 df-fin 8909 df-sup 9402 df-inf 9403 df-card 9899 df-pnf 11215 df-mnf 11216 df-xr 11217 df-ltxr 11218 df-le 11219 df-sub 11411 df-neg 11412 df-div 11837 df-nn 12178 df-2 12240 df-3 12241 df-n0 12438 df-xnn0 12510 df-z 12524 df-uz 12788 df-q 12898 df-rp 12940 df-ico 13295 df-fz 13450 df-fl 13722 df-mod 13800 df-seq 13932 df-exp 13993 df-hash 14256 df-cj 15011 df-re 15012 df-im 15013 df-sqrt 15147 df-abs 15148 df-dvds 16163 df-gcd 16401 df-numer 16636 df-denom 16637

This theorem is referenced by: irrapxlem6 41241

W3C validator