Metamath Proof Explorer


Theorem infrpge

Description: The infimum of a nonempty, bounded subset of extended reals can be approximated from above by an element of the set. (Contributed by Glauco Siliprandi, 11-Oct-2020)

Ref Expression
Hypotheses infrpge.xph ⊢ Ⅎ x φ
infrpge.a ⊢ φ → A ⊆ ℝ *
infrpge.an0 ⊢ φ → A ≠ ∅
infrpge.bnd ⊢ φ → ∃ x ∈ ℝ ∀ y ∈ A x ≤ y
infrpge.b ⊢ φ → B ∈ ℝ +
Assertion infrpge ⊢ φ → ∃ z ∈ A z ≤ inf A ℝ * < + 𝑒 B

Proof

Step Hyp Ref Expression
1 infrpge.xph ⊢ Ⅎ x φ
2 infrpge.a ⊢ φ → A ⊆ ℝ *
3 infrpge.an0 ⊢ φ → A ≠ ∅
4 infrpge.bnd ⊢ φ → ∃ x ∈ ℝ ∀ y ∈ A x ≤ y
5 infrpge.b ⊢ φ → B ∈ ℝ +
6 n0 ⊢ A ≠ ∅ ↔ ∃ z z ∈ A
7 6 biimpi ⊢ A ≠ ∅ → ∃ z z ∈ A
8 3 7 syl ⊢ φ → ∃ z z ∈ A
9 8 adantr ⊢ φ ∧ inf A ℝ * < = +∞ → ∃ z z ∈ A
10 nfv ⊢ Ⅎ z φ ∧ inf A ℝ * < = +∞
11 simpr ⊢ φ ∧ inf A ℝ * < = +∞ ∧ z ∈ A → z ∈ A
12 2 adantr ⊢ φ ∧ z ∈ A → A ⊆ ℝ *
13 simpr ⊢ φ ∧ z ∈ A → z ∈ A
14 12 13 sseldd ⊢ φ ∧ z ∈ A → z ∈ ℝ *
15 pnfge ⊢ z ∈ ℝ * → z ≤ +∞
16 14 15 syl ⊢ φ ∧ z ∈ A → z ≤ +∞
17 16 adantlr ⊢ φ ∧ inf A ℝ * < = +∞ ∧ z ∈ A → z ≤ +∞
18 oveq1 ⊢ inf A ℝ * < = +∞ → inf A ℝ * < + 𝑒 B = +∞ + 𝑒 B
19 18 adantl ⊢ φ ∧ inf A ℝ * < = +∞ → inf A ℝ * < + 𝑒 B = +∞ + 𝑒 B
20 5 rpxrd ⊢ φ → B ∈ ℝ *
21 5 rpred ⊢ φ → B ∈ ℝ
22 renemnf ⊢ B ∈ ℝ → B ≠ −∞
23 21 22 syl ⊢ φ → B ≠ −∞
24 xaddpnf2 ⊢ B ∈ ℝ * ∧ B ≠ −∞ → +∞ + 𝑒 B = +∞
25 20 23 24 syl2anc ⊢ φ → +∞ + 𝑒 B = +∞
26 25 adantr ⊢ φ ∧ inf A ℝ * < = +∞ → +∞ + 𝑒 B = +∞
27 19 26 eqtr2d ⊢ φ ∧ inf A ℝ * < = +∞ → +∞ = inf A ℝ * < + 𝑒 B
28 27 adantr ⊢ φ ∧ inf A ℝ * < = +∞ ∧ z ∈ A → +∞ = inf A ℝ * < + 𝑒 B
29 17 28 breqtrd ⊢ φ ∧ inf A ℝ * < = +∞ ∧ z ∈ A → z ≤ inf A ℝ * < + 𝑒 B
30 11 29 jca ⊢ φ ∧ inf A ℝ * < = +∞ ∧ z ∈ A → z ∈ A ∧ z ≤ inf A ℝ * < + 𝑒 B
31 30 ex ⊢ φ ∧ inf A ℝ * < = +∞ → z ∈ A → z ∈ A ∧ z ≤ inf A ℝ * < + 𝑒 B
32 10 31 eximd ⊢ φ ∧ inf A ℝ * < = +∞ → ∃ z z ∈ A → ∃ z z ∈ A ∧ z ≤ inf A ℝ * < + 𝑒 B
33 9 32 mpd ⊢ φ ∧ inf A ℝ * < = +∞ → ∃ z z ∈ A ∧ z ≤ inf A ℝ * < + 𝑒 B
34 df-rex ⊢ ∃ z ∈ A z ≤ inf A ℝ * < + 𝑒 B ↔ ∃ z z ∈ A ∧ z ≤ inf A ℝ * < + 𝑒 B
35 33 34 sylibr ⊢ φ ∧ inf A ℝ * < = +∞ → ∃ z ∈ A z ≤ inf A ℝ * < + 𝑒 B
36 simpl ⊢ φ ∧ ¬ inf A ℝ * < = +∞ → φ
37 nfv ⊢ Ⅎ x −∞ < inf A ℝ * <
38 mnfxr ⊢ −∞ ∈ ℝ *
39 38 a1i ⊢ φ ∧ x ∈ ℝ ∧ ∀ y ∈ A x ≤ y → −∞ ∈ ℝ *
40 rexr ⊢ x ∈ ℝ → x ∈ ℝ *
41 40 3ad2ant2 ⊢ φ ∧ x ∈ ℝ ∧ ∀ y ∈ A x ≤ y → x ∈ ℝ *
42 infxrcl ⊢ A ⊆ ℝ * → inf A ℝ * < ∈ ℝ *
43 2 42 syl ⊢ φ → inf A ℝ * < ∈ ℝ *
44 43 3ad2ant1 ⊢ φ ∧ x ∈ ℝ ∧ ∀ y ∈ A x ≤ y → inf A ℝ * < ∈ ℝ *
45 mnflt ⊢ x ∈ ℝ → −∞ < x
46 45 3ad2ant2 ⊢ φ ∧ x ∈ ℝ ∧ ∀ y ∈ A x ≤ y → −∞ < x
47 simp3 ⊢ φ ∧ x ∈ ℝ ∧ ∀ y ∈ A x ≤ y → ∀ y ∈ A x ≤ y
48 2 adantr ⊢ φ ∧ x ∈ ℝ → A ⊆ ℝ *
49 40 adantl ⊢ φ ∧ x ∈ ℝ → x ∈ ℝ *
50 infxrgelb ⊢ A ⊆ ℝ * ∧ x ∈ ℝ * → x ≤ inf A ℝ * < ↔ ∀ y ∈ A x ≤ y
51 48 49 50 syl2anc ⊢ φ ∧ x ∈ ℝ → x ≤ inf A ℝ * < ↔ ∀ y ∈ A x ≤ y
52 51 3adant3 ⊢ φ ∧ x ∈ ℝ ∧ ∀ y ∈ A x ≤ y → x ≤ inf A ℝ * < ↔ ∀ y ∈ A x ≤ y
53 47 52 mpbird ⊢ φ ∧ x ∈ ℝ ∧ ∀ y ∈ A x ≤ y → x ≤ inf A ℝ * <
54 39 41 44 46 53 xrltletrd ⊢ φ ∧ x ∈ ℝ ∧ ∀ y ∈ A x ≤ y → −∞ < inf A ℝ * <
55 54 3exp ⊢ φ → x ∈ ℝ → ∀ y ∈ A x ≤ y → −∞ < inf A ℝ * <
56 1 37 55 rexlimd ⊢ φ → ∃ x ∈ ℝ ∀ y ∈ A x ≤ y → −∞ < inf A ℝ * <
57 4 56 mpd ⊢ φ → −∞ < inf A ℝ * <
58 57 adantr ⊢ φ ∧ ¬ inf A ℝ * < = +∞ → −∞ < inf A ℝ * <
59 neqne ⊢ ¬ inf A ℝ * < = +∞ → inf A ℝ * < ≠ +∞
60 59 adantl ⊢ φ ∧ ¬ inf A ℝ * < = +∞ → inf A ℝ * < ≠ +∞
61 43 adantr ⊢ φ ∧ ¬ inf A ℝ * < = +∞ → inf A ℝ * < ∈ ℝ *
62 60 61 nepnfltpnf ⊢ φ ∧ ¬ inf A ℝ * < = +∞ → inf A ℝ * < < +∞
63 58 62 jca ⊢ φ ∧ ¬ inf A ℝ * < = +∞ → −∞ < inf A ℝ * < ∧ inf A ℝ * < < +∞
64 xrrebnd ⊢ inf A ℝ * < ∈ ℝ * → inf A ℝ * < ∈ ℝ ↔ −∞ < inf A ℝ * < ∧ inf A ℝ * < < +∞
65 43 64 syl ⊢ φ → inf A ℝ * < ∈ ℝ ↔ −∞ < inf A ℝ * < ∧ inf A ℝ * < < +∞
66 65 adantr ⊢ φ ∧ ¬ inf A ℝ * < = +∞ → inf A ℝ * < ∈ ℝ ↔ −∞ < inf A ℝ * < ∧ inf A ℝ * < < +∞
67 63 66 mpbird ⊢ φ ∧ ¬ inf A ℝ * < = +∞ → inf A ℝ * < ∈ ℝ
68 simpr ⊢ φ ∧ inf A ℝ * < ∈ ℝ → inf A ℝ * < ∈ ℝ
69 5 adantr ⊢ φ ∧ inf A ℝ * < ∈ ℝ → B ∈ ℝ +
70 68 69 ltaddrpd ⊢ φ ∧ inf A ℝ * < ∈ ℝ → inf A ℝ * < < inf A ℝ * < + B
71 21 adantr ⊢ φ ∧ inf A ℝ * < ∈ ℝ → B ∈ ℝ
72 rexadd ⊢ inf A ℝ * < ∈ ℝ ∧ B ∈ ℝ → inf A ℝ * < + 𝑒 B = inf A ℝ * < + B
73 68 71 72 syl2anc ⊢ φ ∧ inf A ℝ * < ∈ ℝ → inf A ℝ * < + 𝑒 B = inf A ℝ * < + B
74 73 eqcomd ⊢ φ ∧ inf A ℝ * < ∈ ℝ → inf A ℝ * < + B = inf A ℝ * < + 𝑒 B
75 70 74 breqtrd ⊢ φ ∧ inf A ℝ * < ∈ ℝ → inf A ℝ * < < inf A ℝ * < + 𝑒 B
76 43 adantr ⊢ φ ∧ inf A ℝ * < ∈ ℝ → inf A ℝ * < ∈ ℝ *
77 43 20 xaddcld ⊢ φ → inf A ℝ * < + 𝑒 B ∈ ℝ *
78 77 adantr ⊢ φ ∧ inf A ℝ * < ∈ ℝ → inf A ℝ * < + 𝑒 B ∈ ℝ *
79 xrltnle ⊢ inf A ℝ * < ∈ ℝ * ∧ inf A ℝ * < + 𝑒 B ∈ ℝ * → inf A ℝ * < < inf A ℝ * < + 𝑒 B ↔ ¬ inf A ℝ * < + 𝑒 B ≤ inf A ℝ * <
80 76 78 79 syl2anc ⊢ φ ∧ inf A ℝ * < ∈ ℝ → inf A ℝ * < < inf A ℝ * < + 𝑒 B ↔ ¬ inf A ℝ * < + 𝑒 B ≤ inf A ℝ * <
81 75 80 mpbid ⊢ φ ∧ inf A ℝ * < ∈ ℝ → ¬ inf A ℝ * < + 𝑒 B ≤ inf A ℝ * <
82 36 67 81 syl2anc ⊢ φ ∧ ¬ inf A ℝ * < = +∞ → ¬ inf A ℝ * < + 𝑒 B ≤ inf A ℝ * <
83 simpr ⊢ φ ∧ ¬ inf A ℝ * < + 𝑒 B ≤ inf A ℝ * < → ¬ inf A ℝ * < + 𝑒 B ≤ inf A ℝ * <
84 simpl ⊢ φ ∧ ¬ inf A ℝ * < + 𝑒 B ≤ inf A ℝ * < → φ
85 infxrgelb ⊢ A ⊆ ℝ * ∧ inf A ℝ * < + 𝑒 B ∈ ℝ * → inf A ℝ * < + 𝑒 B ≤ inf A ℝ * < ↔ ∀ z ∈ A inf A ℝ * < + 𝑒 B ≤ z
86 2 77 85 syl2anc ⊢ φ → inf A ℝ * < + 𝑒 B ≤ inf A ℝ * < ↔ ∀ z ∈ A inf A ℝ * < + 𝑒 B ≤ z
87 84 86 syl ⊢ φ ∧ ¬ inf A ℝ * < + 𝑒 B ≤ inf A ℝ * < → inf A ℝ * < + 𝑒 B ≤ inf A ℝ * < ↔ ∀ z ∈ A inf A ℝ * < + 𝑒 B ≤ z
88 83 87 mtbid ⊢ φ ∧ ¬ inf A ℝ * < + 𝑒 B ≤ inf A ℝ * < → ¬ ∀ z ∈ A inf A ℝ * < + 𝑒 B ≤ z
89 rexnal ⊢ ∃ z ∈ A ¬ inf A ℝ * < + 𝑒 B ≤ z ↔ ¬ ∀ z ∈ A inf A ℝ * < + 𝑒 B ≤ z
90 88 89 sylibr ⊢ φ ∧ ¬ inf A ℝ * < + 𝑒 B ≤ inf A ℝ * < → ∃ z ∈ A ¬ inf A ℝ * < + 𝑒 B ≤ z
91 36 82 90 syl2anc ⊢ φ ∧ ¬ inf A ℝ * < = +∞ → ∃ z ∈ A ¬ inf A ℝ * < + 𝑒 B ≤ z
92 14 adantr ⊢ φ ∧ z ∈ A ∧ ¬ inf A ℝ * < + 𝑒 B ≤ z → z ∈ ℝ *
93 77 ad2antrr ⊢ φ ∧ z ∈ A ∧ ¬ inf A ℝ * < + 𝑒 B ≤ z → inf A ℝ * < + 𝑒 B ∈ ℝ *
94 simpr ⊢ φ ∧ z ∈ A ∧ ¬ inf A ℝ * < + 𝑒 B ≤ z → ¬ inf A ℝ * < + 𝑒 B ≤ z
95 xrltnle ⊢ z ∈ ℝ * ∧ inf A ℝ * < + 𝑒 B ∈ ℝ * → z < inf A ℝ * < + 𝑒 B ↔ ¬ inf A ℝ * < + 𝑒 B ≤ z
96 92 93 95 syl2anc ⊢ φ ∧ z ∈ A ∧ ¬ inf A ℝ * < + 𝑒 B ≤ z → z < inf A ℝ * < + 𝑒 B ↔ ¬ inf A ℝ * < + 𝑒 B ≤ z
97 94 96 mpbird ⊢ φ ∧ z ∈ A ∧ ¬ inf A ℝ * < + 𝑒 B ≤ z → z < inf A ℝ * < + 𝑒 B
98 92 93 97 xrltled ⊢ φ ∧ z ∈ A ∧ ¬ inf A ℝ * < + 𝑒 B ≤ z → z ≤ inf A ℝ * < + 𝑒 B
99 98 ex ⊢ φ ∧ z ∈ A → ¬ inf A ℝ * < + 𝑒 B ≤ z → z ≤ inf A ℝ * < + 𝑒 B
100 99 adantlr ⊢ φ ∧ ¬ inf A ℝ * < = +∞ ∧ z ∈ A → ¬ inf A ℝ * < + 𝑒 B ≤ z → z ≤ inf A ℝ * < + 𝑒 B
101 100 reximdva ⊢ φ ∧ ¬ inf A ℝ * < = +∞ → ∃ z ∈ A ¬ inf A ℝ * < + 𝑒 B ≤ z → ∃ z ∈ A z ≤ inf A ℝ * < + 𝑒 B
102 91 101 mpd ⊢ φ ∧ ¬ inf A ℝ * < = +∞ → ∃ z ∈ A z ≤ inf A ℝ * < + 𝑒 B
103 35 102 pm2.61dan ⊢ φ → ∃ z ∈ A z ≤ inf A ℝ * < + 𝑒 B