Metamath Proof Explorer

Theorem irrapx1

Description: Dirichlet's approximation theorem. Every positive irrational number has infinitely many rational approximations which are closer than the inverse squares of their reduced denominators. Lemma 61 in vandenDries p. 42. (Contributed by Stefan O'Rear, 14-Sep-2014)

Ref Expression
Assertion irrapx1 
|- ( A e. ( RR+ \ QQ ) -> { y e. QQ | ( 0 < y /\ ( abs ` ( y - A ) ) < ( ( denom ` y ) ^ -u 2 ) ) } ~~ NN )

Proof

Step Hyp Ref Expression
1 qnnen 
 |-  QQ ~~ NN
2 nnenom 
 |-  NN ~~ _om
3 1 2 entri 
 |-  QQ ~~ _om
4 3 2 pm3.2i 
 |-  ( QQ ~~ _om /\ NN ~~ _om )
5 ssrab2 
 |-  { y e. QQ | ( 0 < y /\ ( abs ` ( y - A ) ) < ( ( denom ` y ) ^ -u 2 ) ) } C_ QQ
6 qssre 
 |-  QQ C_ RR
7 5 6 sstri 
 |-  { y e. QQ | ( 0 < y /\ ( abs ` ( y - A ) ) < ( ( denom ` y ) ^ -u 2 ) ) } C_ RR
8 7 a1i 
 |-  ( A e. ( RR+ \ QQ ) -> { y e. QQ | ( 0 < y /\ ( abs ` ( y - A ) ) < ( ( denom ` y ) ^ -u 2 ) ) } C_ RR )
9 eldifi 
 |-  ( A e. ( RR+ \ QQ ) -> A e. RR+ )
10 9 rpred 
 |-  ( A e. ( RR+ \ QQ ) -> A e. RR )
11 eldifn 
 |-  ( A e. ( RR+ \ QQ ) -> -. A e. QQ )
12 elrabi 
 |-  ( A e. { y e. QQ | ( 0 < y /\ ( abs ` ( y - A ) ) < ( ( denom ` y ) ^ -u 2 ) ) } -> A e. QQ )
13 11 12 nsyl 
 |-  ( A e. ( RR+ \ QQ ) -> -. A e. { y e. QQ | ( 0 < y /\ ( abs ` ( y - A ) ) < ( ( denom ` y ) ^ -u 2 ) ) } )
14 irrapxlem6 
 |-  ( ( A e. RR+ /\ a e. RR+ ) -> E. b e. { y e. QQ | ( 0 < y /\ ( abs ` ( y - A ) ) < ( ( denom ` y ) ^ -u 2 ) ) } ( abs ` ( b - A ) ) < a )
15 9 14 sylan 
 |-  ( ( A e. ( RR+ \ QQ ) /\ a e. RR+ ) -> E. b e. { y e. QQ | ( 0 < y /\ ( abs ` ( y - A ) ) < ( ( denom ` y ) ^ -u 2 ) ) } ( abs ` ( b - A ) ) < a )
16 15 ralrimiva 
 |-  ( A e. ( RR+ \ QQ ) -> A. a e. RR+ E. b e. { y e. QQ | ( 0 < y /\ ( abs ` ( y - A ) ) < ( ( denom ` y ) ^ -u 2 ) ) } ( abs ` ( b - A ) ) < a )
17 rencldnfi 
 |-  ( ( ( { y e. QQ | ( 0 < y /\ ( abs ` ( y - A ) ) < ( ( denom ` y ) ^ -u 2 ) ) } C_ RR /\ A e. RR /\ -. A e. { y e. QQ | ( 0 < y /\ ( abs ` ( y - A ) ) < ( ( denom ` y ) ^ -u 2 ) ) } ) /\ A. a e. RR+ E. b e. { y e. QQ | ( 0 < y /\ ( abs ` ( y - A ) ) < ( ( denom ` y ) ^ -u 2 ) ) } ( abs ` ( b - A ) ) < a ) -> -. { y e. QQ | ( 0 < y /\ ( abs ` ( y - A ) ) < ( ( denom ` y ) ^ -u 2 ) ) } e. Fin )
18 8 10 13 16 17 syl31anc 
 |-  ( A e. ( RR+ \ QQ ) -> -. { y e. QQ | ( 0 < y /\ ( abs ` ( y - A ) ) < ( ( denom ` y ) ^ -u 2 ) ) } e. Fin )
19 18 5 jctil 
 |-  ( A e. ( RR+ \ QQ ) -> ( { y e. QQ | ( 0 < y /\ ( abs ` ( y - A ) ) < ( ( denom ` y ) ^ -u 2 ) ) } C_ QQ /\ -. { y e. QQ | ( 0 < y /\ ( abs ` ( y - A ) ) < ( ( denom ` y ) ^ -u 2 ) ) } e. Fin ) )
20 ctbnfien 
 |-  ( ( ( QQ ~~ _om /\ NN ~~ _om ) /\ ( { y e. QQ | ( 0 < y /\ ( abs ` ( y - A ) ) < ( ( denom ` y ) ^ -u 2 ) ) } C_ QQ /\ -. { y e. QQ | ( 0 < y /\ ( abs ` ( y - A ) ) < ( ( denom ` y ) ^ -u 2 ) ) } e. Fin ) ) -> { y e. QQ | ( 0 < y /\ ( abs ` ( y - A ) ) < ( ( denom ` y ) ^ -u 2 ) ) } ~~ NN )
21 4 19 20 sylancr 
 |-  ( A e. ( RR+ \ QQ ) -> { y e. QQ | ( 0 < y /\ ( abs ` ( y - A ) ) < ( ( denom ` y ) ^ -u 2 ) ) } ~~ NN )