This is an inofficial mirror of http://metamath.tirix.org for personal testing of a visualizer extension only.

Metamath Proof Explorer

Theorem xrralrecnnge

Description: Show that A is less than B by showing that there is no positive bound on the difference. (Contributed by Glauco Siliprandi, 26-Jun-2021)

Ref Expression
Hypotheses xrralrecnnge.n 
|- F/ n ph
xrralrecnnge.a 
|- ( ph -> A e. RR )
xrralrecnnge.b 
|- ( ph -> B e. RR* )
Assertion xrralrecnnge 
|- ( ph -> ( A <_ B <-> A. n e. NN ( A - ( 1 / n ) ) <_ B ) )

Proof

Step Hyp Ref Expression
1 xrralrecnnge.n 
 |-  F/ n ph
2 xrralrecnnge.a 
 |-  ( ph -> A e. RR )
3 xrralrecnnge.b 
 |-  ( ph -> B e. RR* )
4 nfv 
 |-  F/ n A <_ B
5 1 4 nfan 
 |-  F/ n ( ph /\ A <_ B )
6 2 adantr 
 |-  ( ( ph /\ n e. NN ) -> A e. RR )
7 nnrecre 
 |-  ( n e. NN -> ( 1 / n ) e. RR )
8 7 adantl 
 |-  ( ( ph /\ n e. NN ) -> ( 1 / n ) e. RR )
9 6 8 resubcld 
 |-  ( ( ph /\ n e. NN ) -> ( A - ( 1 / n ) ) e. RR )
10 9 rexrd 
 |-  ( ( ph /\ n e. NN ) -> ( A - ( 1 / n ) ) e. RR* )
11 10 adantlr 
 |-  ( ( ( ph /\ A <_ B ) /\ n e. NN ) -> ( A - ( 1 / n ) ) e. RR* )
12 3 ad2antrr 
 |-  ( ( ( ph /\ A <_ B ) /\ n e. NN ) -> B e. RR* )
13 2 rexrd 
 |-  ( ph -> A e. RR* )
14 13 ad2antrr 
 |-  ( ( ( ph /\ A <_ B ) /\ n e. NN ) -> A e. RR* )
15 nnrp 
 |-  ( n e. NN -> n e. RR+ )
16 15 rpreccld 
 |-  ( n e. NN -> ( 1 / n ) e. RR+ )
17 16 adantl 
 |-  ( ( ph /\ n e. NN ) -> ( 1 / n ) e. RR+ )
18 6 17 ltsubrpd 
 |-  ( ( ph /\ n e. NN ) -> ( A - ( 1 / n ) ) < A )
19 18 adantlr 
 |-  ( ( ( ph /\ A <_ B ) /\ n e. NN ) -> ( A - ( 1 / n ) ) < A )
20 simplr 
 |-  ( ( ( ph /\ A <_ B ) /\ n e. NN ) -> A <_ B )
21 11 14 12 19 20 xrltletrd 
 |-  ( ( ( ph /\ A <_ B ) /\ n e. NN ) -> ( A - ( 1 / n ) ) < B )
22 11 12 21 xrltled 
 |-  ( ( ( ph /\ A <_ B ) /\ n e. NN ) -> ( A - ( 1 / n ) ) <_ B )
23 22 ex 
 |-  ( ( ph /\ A <_ B ) -> ( n e. NN -> ( A - ( 1 / n ) ) <_ B ) )
24 5 23 ralrimi 
 |-  ( ( ph /\ A <_ B ) -> A. n e. NN ( A - ( 1 / n ) ) <_ B )
25 24 ex 
 |-  ( ph -> ( A <_ B -> A. n e. NN ( A - ( 1 / n ) ) <_ B ) )
26 pnfxr 
 |-  +oo e. RR*
27 26 a1i 
 |-  ( ph -> +oo e. RR* )
28 2 ltpnfd 
 |-  ( ph -> A < +oo )
29 13 27 28 xrltled 
 |-  ( ph -> A <_ +oo )
30 29 ad2antrr 
 |-  ( ( ( ph /\ A. n e. NN ( A - ( 1 / n ) ) <_ B ) /\ B = +oo ) -> A <_ +oo )
31 id 
 |-  ( B = +oo -> B = +oo )
32 31 eqcomd 
 |-  ( B = +oo -> +oo = B )
33 32 adantl 
 |-  ( ( ( ph /\ A. n e. NN ( A - ( 1 / n ) ) <_ B ) /\ B = +oo ) -> +oo = B )
34 30 33 breqtrd 
 |-  ( ( ( ph /\ A. n e. NN ( A - ( 1 / n ) ) <_ B ) /\ B = +oo ) -> A <_ B )
35 3 ad2antrr 
 |-  ( ( ( ph /\ A. n e. NN ( A - ( 1 / n ) ) <_ B ) /\ -. B = +oo ) -> B e. RR* )
36 1nn 
 |-  1 e. NN
37 36 a1i 
 |-  ( A. n e. NN ( A - ( 1 / n ) ) <_ B -> 1 e. NN )
38 id 
 |-  ( A. n e. NN ( A - ( 1 / n ) ) <_ B -> A. n e. NN ( A - ( 1 / n ) ) <_ B )
39 oveq2 
 |-  ( n = 1 -> ( 1 / n ) = ( 1 / 1 ) )
40 39 oveq2d 
 |-  ( n = 1 -> ( A - ( 1 / n ) ) = ( A - ( 1 / 1 ) ) )
41 40 breq1d 
 |-  ( n = 1 -> ( ( A - ( 1 / n ) ) <_ B <-> ( A - ( 1 / 1 ) ) <_ B ) )
42 41 rspcva 
 |-  ( ( 1 e. NN /\ A. n e. NN ( A - ( 1 / n ) ) <_ B ) -> ( A - ( 1 / 1 ) ) <_ B )
43 37 38 42 syl2anc 
 |-  ( A. n e. NN ( A - ( 1 / n ) ) <_ B -> ( A - ( 1 / 1 ) ) <_ B )
44 43 adantr 
 |-  ( ( A. n e. NN ( A - ( 1 / n ) ) <_ B /\ B = -oo ) -> ( A - ( 1 / 1 ) ) <_ B )
45 simpr 
 |-  ( ( A. n e. NN ( A - ( 1 / n ) ) <_ B /\ B = -oo ) -> B = -oo )
46 44 45 breqtrd 
 |-  ( ( A. n e. NN ( A - ( 1 / n ) ) <_ B /\ B = -oo ) -> ( A - ( 1 / 1 ) ) <_ -oo )
47 46 adantll 
 |-  ( ( ( ph /\ A. n e. NN ( A - ( 1 / n ) ) <_ B ) /\ B = -oo ) -> ( A - ( 1 / 1 ) ) <_ -oo )
48 1red 
 |-  ( ph -> 1 e. RR )
49 ax-1ne0 
 |-  1 =/= 0
50 49 a1i 
 |-  ( ph -> 1 =/= 0 )
51 48 48 50 redivcld 
 |-  ( ph -> ( 1 / 1 ) e. RR )
52 2 51 resubcld 
 |-  ( ph -> ( A - ( 1 / 1 ) ) e. RR )
53 52 mnfltd 
 |-  ( ph -> -oo < ( A - ( 1 / 1 ) ) )
54 mnfxr 
 |-  -oo e. RR*
55 54 a1i 
 |-  ( ph -> -oo e. RR* )
56 52 rexrd 
 |-  ( ph -> ( A - ( 1 / 1 ) ) e. RR* )
57 55 56 xrltnled 
 |-  ( ph -> ( -oo < ( A - ( 1 / 1 ) ) <-> -. ( A - ( 1 / 1 ) ) <_ -oo ) )
58 53 57 mpbid 
 |-  ( ph -> -. ( A - ( 1 / 1 ) ) <_ -oo )
59 58 ad2antrr 
 |-  ( ( ( ph /\ A. n e. NN ( A - ( 1 / n ) ) <_ B ) /\ B = -oo ) -> -. ( A - ( 1 / 1 ) ) <_ -oo )
60 47 59 pm2.65da 
 |-  ( ( ph /\ A. n e. NN ( A - ( 1 / n ) ) <_ B ) -> -. B = -oo )
61 60 neqned 
 |-  ( ( ph /\ A. n e. NN ( A - ( 1 / n ) ) <_ B ) -> B =/= -oo )
62 61 adantr 
 |-  ( ( ( ph /\ A. n e. NN ( A - ( 1 / n ) ) <_ B ) /\ -. B = +oo ) -> B =/= -oo )
63 neqne 
 |-  ( -. B = +oo -> B =/= +oo )
64 63 adantl 
 |-  ( ( ( ph /\ A. n e. NN ( A - ( 1 / n ) ) <_ B ) /\ -. B = +oo ) -> B =/= +oo )
65 35 62 64 xrred 
 |-  ( ( ( ph /\ A. n e. NN ( A - ( 1 / n ) ) <_ B ) /\ -. B = +oo ) -> B e. RR )
66 nfv 
 |-  F/ n B e. RR
67 1 66 nfan 
 |-  F/ n ( ph /\ B e. RR )
68 13 adantr 
 |-  ( ( ph /\ B e. RR ) -> A e. RR* )
69 simpr 
 |-  ( ( ph /\ B e. RR ) -> B e. RR )
70 67 68 69 xrralrecnnle 
 |-  ( ( ph /\ B e. RR ) -> ( A <_ B <-> A. n e. NN A <_ ( B + ( 1 / n ) ) ) )
71 6 adantlr 
 |-  ( ( ( ph /\ B e. RR ) /\ n e. NN ) -> A e. RR )
72 7 adantl 
 |-  ( ( ( ph /\ B e. RR ) /\ n e. NN ) -> ( 1 / n ) e. RR )
73 69 adantr 
 |-  ( ( ( ph /\ B e. RR ) /\ n e. NN ) -> B e. RR )
74 71 72 73 lesubaddd 
 |-  ( ( ( ph /\ B e. RR ) /\ n e. NN ) -> ( ( A - ( 1 / n ) ) <_ B <-> A <_ ( B + ( 1 / n ) ) ) )
75 74 bicomd 
 |-  ( ( ( ph /\ B e. RR ) /\ n e. NN ) -> ( A <_ ( B + ( 1 / n ) ) <-> ( A - ( 1 / n ) ) <_ B ) )
76 67 75 ralbida 
 |-  ( ( ph /\ B e. RR ) -> ( A. n e. NN A <_ ( B + ( 1 / n ) ) <-> A. n e. NN ( A - ( 1 / n ) ) <_ B ) )
77 70 76 bitr2d 
 |-  ( ( ph /\ B e. RR ) -> ( A. n e. NN ( A - ( 1 / n ) ) <_ B <-> A <_ B ) )
78 77 biimpd 
 |-  ( ( ph /\ B e. RR ) -> ( A. n e. NN ( A - ( 1 / n ) ) <_ B -> A <_ B ) )
79 78 imp 
 |-  ( ( ( ph /\ B e. RR ) /\ A. n e. NN ( A - ( 1 / n ) ) <_ B ) -> A <_ B )
80 79 an32s 
 |-  ( ( ( ph /\ A. n e. NN ( A - ( 1 / n ) ) <_ B ) /\ B e. RR ) -> A <_ B )
81 65 80 syldan 
 |-  ( ( ( ph /\ A. n e. NN ( A - ( 1 / n ) ) <_ B ) /\ -. B = +oo ) -> A <_ B )
82 34 81 pm2.61dan 
 |-  ( ( ph /\ A. n e. NN ( A - ( 1 / n ) ) <_ B ) -> A <_ B )
83 82 ex 
 |-  ( ph -> ( A. n e. NN ( A - ( 1 / n ) ) <_ B -> A <_ B ) )
84 25 83 impbid 
 |-  ( ph -> ( A <_ B <-> A. n e. NN ( A - ( 1 / n ) ) <_ B ) )