Metamath Proof Explorer


Theorem qdiff

Description: The rationals are exactly those reals for which there exist two distinct rationals that are the same distance from the original number. Similar to irrdiff but here proved with a proof which would also work in constructive mathematics. From an online post by Ingo Blechschmidt. For a proof using irrdiff , see qdiffALT . (Contributed by Jim Kingdon, 24-Apr-2026)

Ref Expression
Assertion qdiff A A q r q r A q = A r

Proof

Step Hyp Ref Expression
1 neeq1 q = A 1 q r A 1 r
2 oveq2 q = A 1 A q = A A 1
3 2 fveqeq2d q = A 1 A q = A r A A 1 = A r
4 1 3 anbi12d q = A 1 q r A q = A r A 1 r A A 1 = A r
5 4 rexbidv q = A 1 r q r A q = A r r A 1 r A A 1 = A r
6 1z 1
7 zq 1 1
8 6 7 ax-mp 1
9 qsubcl A 1 A 1
10 8 9 mpan2 A A 1
11 qaddcl A 1 A + 1
12 8 11 mpan2 A A + 1
13 qre A A
14 1rp 1 +
15 14 14 pm3.2i 1 + 1 +
16 rpaddcl 1 + 1 + 1 + 1 +
17 15 16 mp1i A 1 + 1 +
18 13 17 ltaddrpd A A < A + 1 + 1
19 13 18 ltned A A A + 1 + 1
20 19 neneqd A ¬ A = A + 1 + 1
21 20 neqcomd A ¬ A + 1 + 1 = A
22 qcn A A
23 1cnd A 1
24 22 23 23 addassd A A + 1 + 1 = A + 1 + 1
25 24 eqeq1d A A + 1 + 1 = A A + 1 + 1 = A
26 21 25 mtbird A ¬ A + 1 + 1 = A
27 22 23 addcld A A + 1
28 22 23 27 subadd2d A A 1 = A + 1 A + 1 + 1 = A
29 26 28 mtbird A ¬ A 1 = A + 1
30 29 neqned A A 1 A + 1
31 23 absnegd A 1 = 1
32 22 22 23 subsub4d A A - A - 1 = A A + 1
33 22 subidd A A A = 0
34 33 oveq1d A A - A - 1 = 0 1
35 df-neg 1 = 0 1
36 34 35 eqtr4di A A - A - 1 = 1
37 32 36 eqtr3d A A A + 1 = 1
38 37 fveq2d A A A + 1 = 1
39 22 23 nncand A A A 1 = 1
40 39 fveq2d A A A 1 = 1
41 31 38 40 3eqtr4rd A A A 1 = A A + 1
42 neeq2 r = A + 1 A 1 r A 1 A + 1
43 oveq2 r = A + 1 A r = A A + 1
44 43 fveq2d r = A + 1 A r = A A + 1
45 44 eqeq2d r = A + 1 A A 1 = A r A A 1 = A A + 1
46 42 45 anbi12d r = A + 1 A 1 r A A 1 = A r A 1 A + 1 A A 1 = A A + 1
47 46 rspcev A + 1 A 1 A + 1 A A 1 = A A + 1 r A 1 r A A 1 = A r
48 12 30 41 47 syl12anc A r A 1 r A A 1 = A r
49 5 10 48 rspcedvdw A q r q r A q = A r
50 2cnd A q r q r A q = A r 2
51 simpll A q r q r A q = A r A
52 51 recnd A q r q r A q = A r A
53 simplrl A q r q r A q = A r q
54 53 qred A q r q r A q = A r q
55 54 recnd A q r q r A q = A r q
56 52 55 mulcld A q r q r A q = A r A q
57 simplrr A q r q r A q = A r r
58 57 qred A q r q r A q = A r r
59 58 recnd A q r q r A q = A r r
60 52 59 mulcld A q r q r A q = A r A r
61 50 56 60 subdid A q r q r A q = A r 2 A q A r = 2 A q 2 A r
62 52 sqcld A q r q r A q = A r A 2
63 50 60 mulcld A q r q r A q = A r 2 A r
64 50 56 mulcld A q r q r A q = A r 2 A q
65 62 63 64 nnncan1d A q r q r A q = A r A 2 - 2 A r - A 2 2 A q = 2 A q 2 A r
66 simprr A q r q r A q = A r A q = A r
67 51 54 resubcld A q r q r A q = A r A q
68 51 58 resubcld A q r q r A q = A r A r
69 sqabs A q A r A q 2 = A r 2 A q = A r
70 67 68 69 syl2anc A q r q r A q = A r A q 2 = A r 2 A q = A r
71 66 70 mpbird A q r q r A q = A r A q 2 = A r 2
72 binom2sub A q A q 2 = A 2 - 2 A q + q 2
73 52 55 72 syl2anc A q r q r A q = A r A q 2 = A 2 - 2 A q + q 2
74 binom2sub A r A r 2 = A 2 - 2 A r + r 2
75 52 59 74 syl2anc A q r q r A q = A r A r 2 = A 2 - 2 A r + r 2
76 71 73 75 3eqtr3d A q r q r A q = A r A 2 - 2 A q + q 2 = A 2 - 2 A r + r 2
77 62 64 subcld A q r q r A q = A r A 2 2 A q
78 55 sqcld A q r q r A q = A r q 2
79 62 63 subcld A q r q r A q = A r A 2 2 A r
80 59 sqcld A q r q r A q = A r r 2
81 77 78 79 80 addsubeq4d A q r q r A q = A r A 2 - 2 A q + q 2 = A 2 - 2 A r + r 2 A 2 - 2 A r - A 2 2 A q = q 2 r 2
82 76 81 mpbid A q r q r A q = A r A 2 - 2 A r - A 2 2 A q = q 2 r 2
83 61 65 82 3eqtr2d A q r q r A q = A r 2 A q A r = q 2 r 2
84 78 80 subcld A q r q r A q = A r q 2 r 2
85 56 60 subcld A q r q r A q = A r A q A r
86 2ne0 2 0
87 86 a1i A q r q r A q = A r 2 0
88 84 50 85 87 divmuld A q r q r A q = A r q 2 r 2 2 = A q A r 2 A q A r = q 2 r 2
89 83 88 mpbird A q r q r A q = A r q 2 r 2 2 = A q A r
90 52 55 59 subdid A q r q r A q = A r A q r = A q A r
91 89 90 eqtr4d A q r q r A q = A r q 2 r 2 2 = A q r
92 84 halfcld A q r q r A q = A r q 2 r 2 2
93 55 59 subcld A q r q r A q = A r q r
94 simprl A q r q r A q = A r q r
95 55 59 94 subne0d A q r q r A q = A r q r 0
96 92 52 93 95 divmul3d A q r q r A q = A r q 2 r 2 2 q r = A q 2 r 2 2 = A q r
97 91 96 mpbird A q r q r A q = A r q 2 r 2 2 q r = A
98 qsqcl q q 2
99 53 98 syl A q r q r A q = A r q 2
100 qsqcl r r 2
101 57 100 syl A q r q r A q = A r r 2
102 qsubcl q 2 r 2 q 2 r 2
103 99 101 102 syl2anc A q r q r A q = A r q 2 r 2
104 2z 2
105 zq 2 2
106 104 105 mp1i A q r q r A q = A r 2
107 qdivcl q 2 r 2 2 2 0 q 2 r 2 2
108 103 106 87 107 syl3anc A q r q r A q = A r q 2 r 2 2
109 qsubcl q r q r
110 53 57 109 syl2anc A q r q r A q = A r q r
111 qdivcl q 2 r 2 2 q r q r 0 q 2 r 2 2 q r
112 108 110 95 111 syl3anc A q r q r A q = A r q 2 r 2 2 q r
113 97 112 eqeltrrd A q r q r A q = A r A
114 113 ex A q r q r A q = A r A
115 114 rexlimdvva A q r q r A q = A r A
116 49 115 impbid2 A A q r q r A q = A r