Metamath Proof Explorer


Theorem irrapxlem2

Description: Lemma for irrapx1 . Two multiples in the same bucket means they are very close mod 1. (Contributed by Stefan O'Rear, 12-Sep-2014)

Ref Expression
Assertion irrapxlem2 ⊢ A ∈ ℝ + ∧ B ∈ ℕ → ∃ x ∈ 0 … B ∃ y ∈ 0 … B x < y ∧ A ⁢ x mod 1 − A ⁢ y mod 1 < 1 B

Proof

Step Hyp Ref Expression
1 irrapxlem1 ⊢ A ∈ ℝ + ∧ B ∈ ℕ → ∃ x ∈ 0 … B ∃ y ∈ 0 … B x < y ∧ B ⁢ A ⁢ x mod 1 = B ⁢ A ⁢ y mod 1
2 nnre ⊢ B ∈ ℕ → B ∈ ℝ
3 2 ad3antlr ⊢ A ∈ ℝ + ∧ B ∈ ℕ ∧ x ∈ 0 … B ∧ y ∈ 0 … B → B ∈ ℝ
4 rpre ⊢ A ∈ ℝ + → A ∈ ℝ
5 4 ad3antrrr ⊢ A ∈ ℝ + ∧ B ∈ ℕ ∧ x ∈ 0 … B ∧ y ∈ 0 … B → A ∈ ℝ
6 elfzelz ⊢ x ∈ 0 … B → x ∈ ℤ
7 6 zred ⊢ x ∈ 0 … B → x ∈ ℝ
8 7 ad2antlr ⊢ A ∈ ℝ + ∧ B ∈ ℕ ∧ x ∈ 0 … B ∧ y ∈ 0 … B → x ∈ ℝ
9 5 8 remulcld ⊢ A ∈ ℝ + ∧ B ∈ ℕ ∧ x ∈ 0 … B ∧ y ∈ 0 … B → A ⁢ x ∈ ℝ
10 1rp ⊢ 1 ∈ ℝ +
11 10 a1i ⊢ A ∈ ℝ + ∧ B ∈ ℕ ∧ x ∈ 0 … B ∧ y ∈ 0 … B → 1 ∈ ℝ +
12 9 11 modcld ⊢ A ∈ ℝ + ∧ B ∈ ℕ ∧ x ∈ 0 … B ∧ y ∈ 0 … B → A ⁢ x mod 1 ∈ ℝ
13 3 12 remulcld ⊢ A ∈ ℝ + ∧ B ∈ ℕ ∧ x ∈ 0 … B ∧ y ∈ 0 … B → B ⁢ A ⁢ x mod 1 ∈ ℝ
14 intfrac ⊢ B ⁢ A ⁢ x mod 1 ∈ ℝ → B ⁢ A ⁢ x mod 1 = B ⁢ A ⁢ x mod 1 + B ⁢ A ⁢ x mod 1 mod 1
15 13 14 syl ⊢ A ∈ ℝ + ∧ B ∈ ℕ ∧ x ∈ 0 … B ∧ y ∈ 0 … B → B ⁢ A ⁢ x mod 1 = B ⁢ A ⁢ x mod 1 + B ⁢ A ⁢ x mod 1 mod 1
16 elfzelz ⊢ y ∈ 0 … B → y ∈ ℤ
17 16 zred ⊢ y ∈ 0 … B → y ∈ ℝ
18 17 adantl ⊢ A ∈ ℝ + ∧ B ∈ ℕ ∧ x ∈ 0 … B ∧ y ∈ 0 … B → y ∈ ℝ
19 5 18 remulcld ⊢ A ∈ ℝ + ∧ B ∈ ℕ ∧ x ∈ 0 … B ∧ y ∈ 0 … B → A ⁢ y ∈ ℝ
20 19 11 modcld ⊢ A ∈ ℝ + ∧ B ∈ ℕ ∧ x ∈ 0 … B ∧ y ∈ 0 … B → A ⁢ y mod 1 ∈ ℝ
21 3 20 remulcld ⊢ A ∈ ℝ + ∧ B ∈ ℕ ∧ x ∈ 0 … B ∧ y ∈ 0 … B → B ⁢ A ⁢ y mod 1 ∈ ℝ
22 intfrac ⊢ B ⁢ A ⁢ y mod 1 ∈ ℝ → B ⁢ A ⁢ y mod 1 = B ⁢ A ⁢ y mod 1 + B ⁢ A ⁢ y mod 1 mod 1
23 21 22 syl ⊢ A ∈ ℝ + ∧ B ∈ ℕ ∧ x ∈ 0 … B ∧ y ∈ 0 … B → B ⁢ A ⁢ y mod 1 = B ⁢ A ⁢ y mod 1 + B ⁢ A ⁢ y mod 1 mod 1
24 15 23 oveq12d ⊢ A ∈ ℝ + ∧ B ∈ ℕ ∧ x ∈ 0 … B ∧ y ∈ 0 … B → B ⁢ A ⁢ x mod 1 − B ⁢ A ⁢ y mod 1 = B ⁢ A ⁢ x mod 1 + B ⁢ A ⁢ x mod 1 mod 1 - B ⁢ A ⁢ y mod 1 + B ⁢ A ⁢ y mod 1 mod 1
25 24 fveq2d ⊢ A ∈ ℝ + ∧ B ∈ ℕ ∧ x ∈ 0 … B ∧ y ∈ 0 … B → B ⁢ A ⁢ x mod 1 − B ⁢ A ⁢ y mod 1 = B ⁢ A ⁢ x mod 1 + B ⁢ A ⁢ x mod 1 mod 1 - B ⁢ A ⁢ y mod 1 + B ⁢ A ⁢ y mod 1 mod 1
26 25 adantr ⊢ A ∈ ℝ + ∧ B ∈ ℕ ∧ x ∈ 0 … B ∧ y ∈ 0 … B ∧ B ⁢ A ⁢ x mod 1 = B ⁢ A ⁢ y mod 1 → B ⁢ A ⁢ x mod 1 − B ⁢ A ⁢ y mod 1 = B ⁢ A ⁢ x mod 1 + B ⁢ A ⁢ x mod 1 mod 1 - B ⁢ A ⁢ y mod 1 + B ⁢ A ⁢ y mod 1 mod 1
27 simpr ⊢ A ∈ ℝ + ∧ B ∈ ℕ ∧ x ∈ 0 … B ∧ y ∈ 0 … B ∧ B ⁢ A ⁢ x mod 1 = B ⁢ A ⁢ y mod 1 → B ⁢ A ⁢ x mod 1 = B ⁢ A ⁢ y mod 1
28 27 oveq1d ⊢ A ∈ ℝ + ∧ B ∈ ℕ ∧ x ∈ 0 … B ∧ y ∈ 0 … B ∧ B ⁢ A ⁢ x mod 1 = B ⁢ A ⁢ y mod 1 → B ⁢ A ⁢ x mod 1 + B ⁢ A ⁢ x mod 1 mod 1 = B ⁢ A ⁢ y mod 1 + B ⁢ A ⁢ x mod 1 mod 1
29 28 oveq1d ⊢ A ∈ ℝ + ∧ B ∈ ℕ ∧ x ∈ 0 … B ∧ y ∈ 0 … B ∧ B ⁢ A ⁢ x mod 1 = B ⁢ A ⁢ y mod 1 → B ⁢ A ⁢ x mod 1 + B ⁢ A ⁢ x mod 1 mod 1 - B ⁢ A ⁢ y mod 1 + B ⁢ A ⁢ y mod 1 mod 1 = B ⁢ A ⁢ y mod 1 + B ⁢ A ⁢ x mod 1 mod 1 - B ⁢ A ⁢ y mod 1 + B ⁢ A ⁢ y mod 1 mod 1
30 29 fveq2d ⊢ A ∈ ℝ + ∧ B ∈ ℕ ∧ x ∈ 0 … B ∧ y ∈ 0 … B ∧ B ⁢ A ⁢ x mod 1 = B ⁢ A ⁢ y mod 1 → B ⁢ A ⁢ x mod 1 + B ⁢ A ⁢ x mod 1 mod 1 - B ⁢ A ⁢ y mod 1 + B ⁢ A ⁢ y mod 1 mod 1 = B ⁢ A ⁢ y mod 1 + B ⁢ A ⁢ x mod 1 mod 1 - B ⁢ A ⁢ y mod 1 + B ⁢ A ⁢ y mod 1 mod 1
31 21 flcld ⊢ A ∈ ℝ + ∧ B ∈ ℕ ∧ x ∈ 0 … B ∧ y ∈ 0 … B → B ⁢ A ⁢ y mod 1 ∈ ℤ
32 31 zcnd ⊢ A ∈ ℝ + ∧ B ∈ ℕ ∧ x ∈ 0 … B ∧ y ∈ 0 … B → B ⁢ A ⁢ y mod 1 ∈ ℂ
33 13 11 modcld ⊢ A ∈ ℝ + ∧ B ∈ ℕ ∧ x ∈ 0 … B ∧ y ∈ 0 … B → B ⁢ A ⁢ x mod 1 mod 1 ∈ ℝ
34 33 recnd ⊢ A ∈ ℝ + ∧ B ∈ ℕ ∧ x ∈ 0 … B ∧ y ∈ 0 … B → B ⁢ A ⁢ x mod 1 mod 1 ∈ ℂ
35 21 11 modcld ⊢ A ∈ ℝ + ∧ B ∈ ℕ ∧ x ∈ 0 … B ∧ y ∈ 0 … B → B ⁢ A ⁢ y mod 1 mod 1 ∈ ℝ
36 35 recnd ⊢ A ∈ ℝ + ∧ B ∈ ℕ ∧ x ∈ 0 … B ∧ y ∈ 0 … B → B ⁢ A ⁢ y mod 1 mod 1 ∈ ℂ
37 32 34 36 pnpcand ⊢ A ∈ ℝ + ∧ B ∈ ℕ ∧ x ∈ 0 … B ∧ y ∈ 0 … B → B ⁢ A ⁢ y mod 1 + B ⁢ A ⁢ x mod 1 mod 1 - B ⁢ A ⁢ y mod 1 + B ⁢ A ⁢ y mod 1 mod 1 = B ⁢ A ⁢ x mod 1 mod 1 − B ⁢ A ⁢ y mod 1 mod 1
38 37 fveq2d ⊢ A ∈ ℝ + ∧ B ∈ ℕ ∧ x ∈ 0 … B ∧ y ∈ 0 … B → B ⁢ A ⁢ y mod 1 + B ⁢ A ⁢ x mod 1 mod 1 - B ⁢ A ⁢ y mod 1 + B ⁢ A ⁢ y mod 1 mod 1 = B ⁢ A ⁢ x mod 1 mod 1 − B ⁢ A ⁢ y mod 1 mod 1
39 0red ⊢ A ∈ ℝ + ∧ B ∈ ℕ ∧ x ∈ 0 … B ∧ y ∈ 0 … B → 0 ∈ ℝ
40 1red ⊢ A ∈ ℝ + ∧ B ∈ ℕ ∧ x ∈ 0 … B ∧ y ∈ 0 … B → 1 ∈ ℝ
41 modelico ⊢ B ⁢ A ⁢ x mod 1 ∈ ℝ ∧ 1 ∈ ℝ + → B ⁢ A ⁢ x mod 1 mod 1 ∈ 0 1
42 13 10 41 sylancl ⊢ A ∈ ℝ + ∧ B ∈ ℕ ∧ x ∈ 0 … B ∧ y ∈ 0 … B → B ⁢ A ⁢ x mod 1 mod 1 ∈ 0 1
43 modelico ⊢ B ⁢ A ⁢ y mod 1 ∈ ℝ ∧ 1 ∈ ℝ + → B ⁢ A ⁢ y mod 1 mod 1 ∈ 0 1
44 21 10 43 sylancl ⊢ A ∈ ℝ + ∧ B ∈ ℕ ∧ x ∈ 0 … B ∧ y ∈ 0 … B → B ⁢ A ⁢ y mod 1 mod 1 ∈ 0 1
45 icodiamlt ⊢ 0 ∈ ℝ ∧ 1 ∈ ℝ ∧ B ⁢ A ⁢ x mod 1 mod 1 ∈ 0 1 ∧ B ⁢ A ⁢ y mod 1 mod 1 ∈ 0 1 → B ⁢ A ⁢ x mod 1 mod 1 − B ⁢ A ⁢ y mod 1 mod 1 < 1 − 0
46 39 40 42 44 45 syl22anc ⊢ A ∈ ℝ + ∧ B ∈ ℕ ∧ x ∈ 0 … B ∧ y ∈ 0 … B → B ⁢ A ⁢ x mod 1 mod 1 − B ⁢ A ⁢ y mod 1 mod 1 < 1 − 0
47 1m0e1 ⊢ 1 − 0 = 1
48 46 47 breqtrdi ⊢ A ∈ ℝ + ∧ B ∈ ℕ ∧ x ∈ 0 … B ∧ y ∈ 0 … B → B ⁢ A ⁢ x mod 1 mod 1 − B ⁢ A ⁢ y mod 1 mod 1 < 1
49 38 48 eqbrtrd ⊢ A ∈ ℝ + ∧ B ∈ ℕ ∧ x ∈ 0 … B ∧ y ∈ 0 … B → B ⁢ A ⁢ y mod 1 + B ⁢ A ⁢ x mod 1 mod 1 - B ⁢ A ⁢ y mod 1 + B ⁢ A ⁢ y mod 1 mod 1 < 1
50 49 adantr ⊢ A ∈ ℝ + ∧ B ∈ ℕ ∧ x ∈ 0 … B ∧ y ∈ 0 … B ∧ B ⁢ A ⁢ x mod 1 = B ⁢ A ⁢ y mod 1 → B ⁢ A ⁢ y mod 1 + B ⁢ A ⁢ x mod 1 mod 1 - B ⁢ A ⁢ y mod 1 + B ⁢ A ⁢ y mod 1 mod 1 < 1
51 30 50 eqbrtrd ⊢ A ∈ ℝ + ∧ B ∈ ℕ ∧ x ∈ 0 … B ∧ y ∈ 0 … B ∧ B ⁢ A ⁢ x mod 1 = B ⁢ A ⁢ y mod 1 → B ⁢ A ⁢ x mod 1 + B ⁢ A ⁢ x mod 1 mod 1 - B ⁢ A ⁢ y mod 1 + B ⁢ A ⁢ y mod 1 mod 1 < 1
52 26 51 eqbrtrd ⊢ A ∈ ℝ + ∧ B ∈ ℕ ∧ x ∈ 0 … B ∧ y ∈ 0 … B ∧ B ⁢ A ⁢ x mod 1 = B ⁢ A ⁢ y mod 1 → B ⁢ A ⁢ x mod 1 − B ⁢ A ⁢ y mod 1 < 1
53 52 ex ⊢ A ∈ ℝ + ∧ B ∈ ℕ ∧ x ∈ 0 … B ∧ y ∈ 0 … B → B ⁢ A ⁢ x mod 1 = B ⁢ A ⁢ y mod 1 → B ⁢ A ⁢ x mod 1 − B ⁢ A ⁢ y mod 1 < 1
54 12 20 resubcld ⊢ A ∈ ℝ + ∧ B ∈ ℕ ∧ x ∈ 0 … B ∧ y ∈ 0 … B → A ⁢ x mod 1 − A ⁢ y mod 1 ∈ ℝ
55 54 recnd ⊢ A ∈ ℝ + ∧ B ∈ ℕ ∧ x ∈ 0 … B ∧ y ∈ 0 … B → A ⁢ x mod 1 − A ⁢ y mod 1 ∈ ℂ
56 55 abscld ⊢ A ∈ ℝ + ∧ B ∈ ℕ ∧ x ∈ 0 … B ∧ y ∈ 0 … B → A ⁢ x mod 1 − A ⁢ y mod 1 ∈ ℝ
57 nngt0 ⊢ B ∈ ℕ → 0 < B
58 57 ad3antlr ⊢ A ∈ ℝ + ∧ B ∈ ℕ ∧ x ∈ 0 … B ∧ y ∈ 0 … B → 0 < B
59 58 gt0ne0d ⊢ A ∈ ℝ + ∧ B ∈ ℕ ∧ x ∈ 0 … B ∧ y ∈ 0 … B → B ≠ 0
60 3 59 rereccld ⊢ A ∈ ℝ + ∧ B ∈ ℕ ∧ x ∈ 0 … B ∧ y ∈ 0 … B → 1 B ∈ ℝ
61 ltmul2 ⊢ A ⁢ x mod 1 − A ⁢ y mod 1 ∈ ℝ ∧ 1 B ∈ ℝ ∧ B ∈ ℝ ∧ 0 < B → A ⁢ x mod 1 − A ⁢ y mod 1 < 1 B ↔ B ⁢ A ⁢ x mod 1 − A ⁢ y mod 1 < B ⁢ 1 B
62 56 60 3 58 61 syl112anc ⊢ A ∈ ℝ + ∧ B ∈ ℕ ∧ x ∈ 0 … B ∧ y ∈ 0 … B → A ⁢ x mod 1 − A ⁢ y mod 1 < 1 B ↔ B ⁢ A ⁢ x mod 1 − A ⁢ y mod 1 < B ⁢ 1 B
63 nnnn0 ⊢ B ∈ ℕ → B ∈ ℕ 0
64 63 nn0ge0d ⊢ B ∈ ℕ → 0 ≤ B
65 64 ad3antlr ⊢ A ∈ ℝ + ∧ B ∈ ℕ ∧ x ∈ 0 … B ∧ y ∈ 0 … B → 0 ≤ B
66 3 65 absidd ⊢ A ∈ ℝ + ∧ B ∈ ℕ ∧ x ∈ 0 … B ∧ y ∈ 0 … B → B = B
67 66 eqcomd ⊢ A ∈ ℝ + ∧ B ∈ ℕ ∧ x ∈ 0 … B ∧ y ∈ 0 … B → B = B
68 67 oveq1d ⊢ A ∈ ℝ + ∧ B ∈ ℕ ∧ x ∈ 0 … B ∧ y ∈ 0 … B → B ⁢ A ⁢ x mod 1 − A ⁢ y mod 1 = B ⁢ A ⁢ x mod 1 − A ⁢ y mod 1
69 3 recnd ⊢ A ∈ ℝ + ∧ B ∈ ℕ ∧ x ∈ 0 … B ∧ y ∈ 0 … B → B ∈ ℂ
70 69 55 absmuld ⊢ A ∈ ℝ + ∧ B ∈ ℕ ∧ x ∈ 0 … B ∧ y ∈ 0 … B → B ⁢ A ⁢ x mod 1 − A ⁢ y mod 1 = B ⁢ A ⁢ x mod 1 − A ⁢ y mod 1
71 12 recnd ⊢ A ∈ ℝ + ∧ B ∈ ℕ ∧ x ∈ 0 … B ∧ y ∈ 0 … B → A ⁢ x mod 1 ∈ ℂ
72 20 recnd ⊢ A ∈ ℝ + ∧ B ∈ ℕ ∧ x ∈ 0 … B ∧ y ∈ 0 … B → A ⁢ y mod 1 ∈ ℂ
73 69 71 72 subdid ⊢ A ∈ ℝ + ∧ B ∈ ℕ ∧ x ∈ 0 … B ∧ y ∈ 0 … B → B ⁢ A ⁢ x mod 1 − A ⁢ y mod 1 = B ⁢ A ⁢ x mod 1 − B ⁢ A ⁢ y mod 1
74 73 fveq2d ⊢ A ∈ ℝ + ∧ B ∈ ℕ ∧ x ∈ 0 … B ∧ y ∈ 0 … B → B ⁢ A ⁢ x mod 1 − A ⁢ y mod 1 = B ⁢ A ⁢ x mod 1 − B ⁢ A ⁢ y mod 1
75 68 70 74 3eqtr2d ⊢ A ∈ ℝ + ∧ B ∈ ℕ ∧ x ∈ 0 … B ∧ y ∈ 0 … B → B ⁢ A ⁢ x mod 1 − A ⁢ y mod 1 = B ⁢ A ⁢ x mod 1 − B ⁢ A ⁢ y mod 1
76 69 59 recidd ⊢ A ∈ ℝ + ∧ B ∈ ℕ ∧ x ∈ 0 … B ∧ y ∈ 0 … B → B ⁢ 1 B = 1
77 75 76 breq12d ⊢ A ∈ ℝ + ∧ B ∈ ℕ ∧ x ∈ 0 … B ∧ y ∈ 0 … B → B ⁢ A ⁢ x mod 1 − A ⁢ y mod 1 < B ⁢ 1 B ↔ B ⁢ A ⁢ x mod 1 − B ⁢ A ⁢ y mod 1 < 1
78 62 77 bitrd ⊢ A ∈ ℝ + ∧ B ∈ ℕ ∧ x ∈ 0 … B ∧ y ∈ 0 … B → A ⁢ x mod 1 − A ⁢ y mod 1 < 1 B ↔ B ⁢ A ⁢ x mod 1 − B ⁢ A ⁢ y mod 1 < 1
79 53 78 sylibrd ⊢ A ∈ ℝ + ∧ B ∈ ℕ ∧ x ∈ 0 … B ∧ y ∈ 0 … B → B ⁢ A ⁢ x mod 1 = B ⁢ A ⁢ y mod 1 → A ⁢ x mod 1 − A ⁢ y mod 1 < 1 B
80 79 anim2d ⊢ A ∈ ℝ + ∧ B ∈ ℕ ∧ x ∈ 0 … B ∧ y ∈ 0 … B → x < y ∧ B ⁢ A ⁢ x mod 1 = B ⁢ A ⁢ y mod 1 → x < y ∧ A ⁢ x mod 1 − A ⁢ y mod 1 < 1 B
81 80 reximdva ⊢ A ∈ ℝ + ∧ B ∈ ℕ ∧ x ∈ 0 … B → ∃ y ∈ 0 … B x < y ∧ B ⁢ A ⁢ x mod 1 = B ⁢ A ⁢ y mod 1 → ∃ y ∈ 0 … B x < y ∧ A ⁢ x mod 1 − A ⁢ y mod 1 < 1 B
82 81 reximdva ⊢ A ∈ ℝ + ∧ B ∈ ℕ → ∃ x ∈ 0 … B ∃ y ∈ 0 … B x < y ∧ B ⁢ A ⁢ x mod 1 = B ⁢ A ⁢ y mod 1 → ∃ x ∈ 0 … B ∃ y ∈ 0 … B x < y ∧ A ⁢ x mod 1 − A ⁢ y mod 1 < 1 B
83 1 82 mpd ⊢ A ∈ ℝ + ∧ B ∈ ℕ → ∃ x ∈ 0 … B ∃ y ∈ 0 … B x < y ∧ A ⁢ x mod 1 − A ⁢ y mod 1 < 1 B