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