Metamath Proof Explorer


Theorem xralrple3

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

Ref Expression
Hypotheses xralrple3.a ⊢ φ → A ∈ ℝ *
xralrple3.b ⊢ φ → B ∈ ℝ
xralrple3.c ⊢ φ → C ∈ ℝ
xralrple3.g ⊢ φ → 0 ≤ C
Assertion xralrple3 ⊢ φ → A ≤ B ↔ ∀ x ∈ ℝ + A ≤ B + C ⁢ x

Proof

Step Hyp Ref Expression
1 xralrple3.a ⊢ φ → A ∈ ℝ *
2 xralrple3.b ⊢ φ → B ∈ ℝ
3 xralrple3.c ⊢ φ → C ∈ ℝ
4 xralrple3.g ⊢ φ → 0 ≤ C
5 1 ad2antrr ⊢ φ ∧ A ≤ B ∧ x ∈ ℝ + → A ∈ ℝ *
6 2 rexrd ⊢ φ → B ∈ ℝ *
7 6 ad2antrr ⊢ φ ∧ A ≤ B ∧ x ∈ ℝ + → B ∈ ℝ *
8 2 ad2antrr ⊢ φ ∧ A ≤ B ∧ x ∈ ℝ + → B ∈ ℝ
9 3 ad2antrr ⊢ φ ∧ A ≤ B ∧ x ∈ ℝ + → C ∈ ℝ
10 rpre ⊢ x ∈ ℝ + → x ∈ ℝ
11 10 adantl ⊢ φ ∧ A ≤ B ∧ x ∈ ℝ + → x ∈ ℝ
12 9 11 remulcld ⊢ φ ∧ A ≤ B ∧ x ∈ ℝ + → C ⁢ x ∈ ℝ
13 8 12 readdcld ⊢ φ ∧ A ≤ B ∧ x ∈ ℝ + → B + C ⁢ x ∈ ℝ
14 13 rexrd ⊢ φ ∧ A ≤ B ∧ x ∈ ℝ + → B + C ⁢ x ∈ ℝ *
15 simplr ⊢ φ ∧ A ≤ B ∧ x ∈ ℝ + → A ≤ B
16 3 adantr ⊢ φ ∧ x ∈ ℝ + → C ∈ ℝ
17 10 adantl ⊢ φ ∧ x ∈ ℝ + → x ∈ ℝ
18 4 adantr ⊢ φ ∧ x ∈ ℝ + → 0 ≤ C
19 rpge0 ⊢ x ∈ ℝ + → 0 ≤ x
20 19 adantl ⊢ φ ∧ x ∈ ℝ + → 0 ≤ x
21 16 17 18 20 mulge0d ⊢ φ ∧ x ∈ ℝ + → 0 ≤ C ⁢ x
22 2 adantr ⊢ φ ∧ x ∈ ℝ + → B ∈ ℝ
23 16 17 remulcld ⊢ φ ∧ x ∈ ℝ + → C ⁢ x ∈ ℝ
24 22 23 addge01d ⊢ φ ∧ x ∈ ℝ + → 0 ≤ C ⁢ x ↔ B ≤ B + C ⁢ x
25 21 24 mpbid ⊢ φ ∧ x ∈ ℝ + → B ≤ B + C ⁢ x
26 25 adantlr ⊢ φ ∧ A ≤ B ∧ x ∈ ℝ + → B ≤ B + C ⁢ x
27 5 7 14 15 26 xrletrd ⊢ φ ∧ A ≤ B ∧ x ∈ ℝ + → A ≤ B + C ⁢ x
28 27 ralrimiva ⊢ φ ∧ A ≤ B → ∀ x ∈ ℝ + A ≤ B + C ⁢ x
29 28 ex ⊢ φ → A ≤ B → ∀ x ∈ ℝ + A ≤ B + C ⁢ x
30 1rp ⊢ 1 ∈ ℝ +
31 oveq2 ⊢ x = 1 → C ⁢ x = C ⋅ 1
32 31 oveq2d ⊢ x = 1 → B + C ⁢ x = B + C ⋅ 1
33 32 breq2d ⊢ x = 1 → A ≤ B + C ⁢ x ↔ A ≤ B + C ⋅ 1
34 33 rspcva ⊢ 1 ∈ ℝ + ∧ ∀ x ∈ ℝ + A ≤ B + C ⁢ x → A ≤ B + C ⋅ 1
35 30 34 mpan ⊢ ∀ x ∈ ℝ + A ≤ B + C ⁢ x → A ≤ B + C ⋅ 1
36 35 ad2antlr ⊢ φ ∧ ∀ x ∈ ℝ + A ≤ B + C ⁢ x ∧ C = 0 → A ≤ B + C ⋅ 1
37 oveq1 ⊢ C = 0 → C ⋅ 1 = 0 ⋅ 1
38 0cn ⊢ 0 ∈ ℂ
39 38 mulridi ⊢ 0 ⋅ 1 = 0
40 39 a1i ⊢ C = 0 → 0 ⋅ 1 = 0
41 37 40 eqtrd ⊢ C = 0 → C ⋅ 1 = 0
42 41 oveq2d ⊢ C = 0 → B + C ⋅ 1 = B + 0
43 42 adantl ⊢ φ ∧ C = 0 → B + C ⋅ 1 = B + 0
44 2 recnd ⊢ φ → B ∈ ℂ
45 44 adantr ⊢ φ ∧ C = 0 → B ∈ ℂ
46 45 addridd ⊢ φ ∧ C = 0 → B + 0 = B
47 43 46 eqtrd ⊢ φ ∧ C = 0 → B + C ⋅ 1 = B
48 47 adantlr ⊢ φ ∧ ∀ x ∈ ℝ + A ≤ B + C ⁢ x ∧ C = 0 → B + C ⋅ 1 = B
49 36 48 breqtrd ⊢ φ ∧ ∀ x ∈ ℝ + A ≤ B + C ⁢ x ∧ C = 0 → A ≤ B
50 neqne ⊢ ¬ C = 0 → C ≠ 0
51 50 adantl ⊢ φ ∧ ¬ C = 0 → C ≠ 0
52 3 adantr ⊢ φ ∧ C ≠ 0 → C ∈ ℝ
53 0red ⊢ φ ∧ C ≠ 0 → 0 ∈ ℝ
54 4 adantr ⊢ φ ∧ C ≠ 0 → 0 ≤ C
55 simpr ⊢ φ ∧ C ≠ 0 → C ≠ 0
56 53 52 54 55 leneltd ⊢ φ ∧ C ≠ 0 → 0 < C
57 52 56 elrpd ⊢ φ ∧ C ≠ 0 → C ∈ ℝ +
58 51 57 syldan ⊢ φ ∧ ¬ C = 0 → C ∈ ℝ +
59 58 adantlr ⊢ φ ∧ ∀ x ∈ ℝ + A ≤ B + C ⁢ x ∧ ¬ C = 0 → C ∈ ℝ +
60 simpr ⊢ C ∈ ℝ + ∧ y ∈ ℝ + → y ∈ ℝ +
61 simpl ⊢ C ∈ ℝ + ∧ y ∈ ℝ + → C ∈ ℝ +
62 60 61 rpdivcld ⊢ C ∈ ℝ + ∧ y ∈ ℝ + → y C ∈ ℝ +
63 62 adantll ⊢ ∀ x ∈ ℝ + A ≤ B + C ⁢ x ∧ C ∈ ℝ + ∧ y ∈ ℝ + → y C ∈ ℝ +
64 simpll ⊢ ∀ x ∈ ℝ + A ≤ B + C ⁢ x ∧ C ∈ ℝ + ∧ y ∈ ℝ + → ∀ x ∈ ℝ + A ≤ B + C ⁢ x
65 oveq2 ⊢ x = y C → C ⁢ x = C ⁢ y C
66 65 oveq2d ⊢ x = y C → B + C ⁢ x = B + C ⁢ y C
67 66 breq2d ⊢ x = y C → A ≤ B + C ⁢ x ↔ A ≤ B + C ⁢ y C
68 67 rspcva ⊢ y C ∈ ℝ + ∧ ∀ x ∈ ℝ + A ≤ B + C ⁢ x → A ≤ B + C ⁢ y C
69 63 64 68 syl2anc ⊢ ∀ x ∈ ℝ + A ≤ B + C ⁢ x ∧ C ∈ ℝ + ∧ y ∈ ℝ + → A ≤ B + C ⁢ y C
70 69 adantlll ⊢ φ ∧ ∀ x ∈ ℝ + A ≤ B + C ⁢ x ∧ C ∈ ℝ + ∧ y ∈ ℝ + → A ≤ B + C ⁢ y C
71 60 rpcnd ⊢ C ∈ ℝ + ∧ y ∈ ℝ + → y ∈ ℂ
72 61 rpcnd ⊢ C ∈ ℝ + ∧ y ∈ ℝ + → C ∈ ℂ
73 61 rpne0d ⊢ C ∈ ℝ + ∧ y ∈ ℝ + → C ≠ 0
74 71 72 73 divcan2d ⊢ C ∈ ℝ + ∧ y ∈ ℝ + → C ⁢ y C = y
75 74 adantll ⊢ φ ∧ ∀ x ∈ ℝ + A ≤ B + C ⁢ x ∧ C ∈ ℝ + ∧ y ∈ ℝ + → C ⁢ y C = y
76 75 oveq2d ⊢ φ ∧ ∀ x ∈ ℝ + A ≤ B + C ⁢ x ∧ C ∈ ℝ + ∧ y ∈ ℝ + → B + C ⁢ y C = B + y
77 70 76 breqtrd ⊢ φ ∧ ∀ x ∈ ℝ + A ≤ B + C ⁢ x ∧ C ∈ ℝ + ∧ y ∈ ℝ + → A ≤ B + y
78 77 ralrimiva ⊢ φ ∧ ∀ x ∈ ℝ + A ≤ B + C ⁢ x ∧ C ∈ ℝ + → ∀ y ∈ ℝ + A ≤ B + y
79 xralrple ⊢ A ∈ ℝ * ∧ B ∈ ℝ → A ≤ B ↔ ∀ y ∈ ℝ + A ≤ B + y
80 1 2 79 syl2anc ⊢ φ → A ≤ B ↔ ∀ y ∈ ℝ + A ≤ B + y
81 80 ad2antrr ⊢ φ ∧ ∀ x ∈ ℝ + A ≤ B + C ⁢ x ∧ C ∈ ℝ + → A ≤ B ↔ ∀ y ∈ ℝ + A ≤ B + y
82 78 81 mpbird ⊢ φ ∧ ∀ x ∈ ℝ + A ≤ B + C ⁢ x ∧ C ∈ ℝ + → A ≤ B
83 59 82 syldan ⊢ φ ∧ ∀ x ∈ ℝ + A ≤ B + C ⁢ x ∧ ¬ C = 0 → A ≤ B
84 49 83 pm2.61dan ⊢ φ ∧ ∀ x ∈ ℝ + A ≤ B + C ⁢ x → A ≤ B
85 84 ex ⊢ φ → ∀ x ∈ ℝ + A ≤ B + C ⁢ x → A ≤ B
86 29 85 impbid ⊢ φ → A ≤ B ↔ ∀ x ∈ ℝ + A ≤ B + C ⁢ x