Users' Mathboxes Mathbox for Glauco Siliprandi < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  supxrgelem Structured version   Visualization version   GIF version

Theorem supxrgelem 39553
Description: If an extended real number can be approximated from below by members of a set, then it is smaller or equal to the supremum of the set. (Contributed by Glauco Siliprandi, 17-Aug-2020.)
Hypotheses
Ref Expression
supxrgelem.xph 𝑥𝜑
supxrgelem.a (𝜑𝐴 ⊆ ℝ*)
supxrgelem.b (𝜑𝐵 ∈ ℝ*)
supxrgelem.y ((𝜑𝑥 ∈ ℝ+) → ∃𝑦𝐴 𝐵 < (𝑦 +𝑒 𝑥))
Assertion
Ref Expression
supxrgelem (𝜑𝐵 ≤ sup(𝐴, ℝ*, < ))
Distinct variable groups:   𝑥,𝐴,𝑦   𝑥,𝐵,𝑦   𝜑,𝑦
Allowed substitution hint:   𝜑(𝑥)

Proof of Theorem supxrgelem
StepHypRef Expression
1 supxrgelem.b . . . . 5 (𝜑𝐵 ∈ ℝ*)
2 pnfge 11964 . . . . 5 (𝐵 ∈ ℝ*𝐵 ≤ +∞)
31, 2syl 17 . . . 4 (𝜑𝐵 ≤ +∞)
43adantr 481 . . 3 ((𝜑 ∧ sup(𝐴, ℝ*, < ) = +∞) → 𝐵 ≤ +∞)
5 id 22 . . . . 5 (sup(𝐴, ℝ*, < ) = +∞ → sup(𝐴, ℝ*, < ) = +∞)
65eqcomd 2628 . . . 4 (sup(𝐴, ℝ*, < ) = +∞ → +∞ = sup(𝐴, ℝ*, < ))
76adantl 482 . . 3 ((𝜑 ∧ sup(𝐴, ℝ*, < ) = +∞) → +∞ = sup(𝐴, ℝ*, < ))
84, 7breqtrd 4679 . 2 ((𝜑 ∧ sup(𝐴, ℝ*, < ) = +∞) → 𝐵 ≤ sup(𝐴, ℝ*, < ))
9 simpl 473 . . 3 ((𝜑 ∧ ¬ sup(𝐴, ℝ*, < ) = +∞) → 𝜑)
10 1rp 11836 . . . . . . . 8 1 ∈ ℝ+
11 nfcv 2764 . . . . . . . . . 10 𝑥1
12 supxrgelem.xph . . . . . . . . . . . 12 𝑥𝜑
13 nfv 1843 . . . . . . . . . . . 12 𝑥1 ∈ ℝ+
1412, 13nfan 1828 . . . . . . . . . . 11 𝑥(𝜑 ∧ 1 ∈ ℝ+)
15 nfv 1843 . . . . . . . . . . 11 𝑥𝑦𝐴 𝐵 < (𝑦 +𝑒 1)
1614, 15nfim 1825 . . . . . . . . . 10 𝑥((𝜑 ∧ 1 ∈ ℝ+) → ∃𝑦𝐴 𝐵 < (𝑦 +𝑒 1))
17 eleq1 2689 . . . . . . . . . . . 12 (𝑥 = 1 → (𝑥 ∈ ℝ+ ↔ 1 ∈ ℝ+))
1817anbi2d 740 . . . . . . . . . . 11 (𝑥 = 1 → ((𝜑𝑥 ∈ ℝ+) ↔ (𝜑 ∧ 1 ∈ ℝ+)))
19 oveq2 6658 . . . . . . . . . . . . 13 (𝑥 = 1 → (𝑦 +𝑒 𝑥) = (𝑦 +𝑒 1))
2019breq2d 4665 . . . . . . . . . . . 12 (𝑥 = 1 → (𝐵 < (𝑦 +𝑒 𝑥) ↔ 𝐵 < (𝑦 +𝑒 1)))
2120rexbidv 3052 . . . . . . . . . . 11 (𝑥 = 1 → (∃𝑦𝐴 𝐵 < (𝑦 +𝑒 𝑥) ↔ ∃𝑦𝐴 𝐵 < (𝑦 +𝑒 1)))
2218, 21imbi12d 334 . . . . . . . . . 10 (𝑥 = 1 → (((𝜑𝑥 ∈ ℝ+) → ∃𝑦𝐴 𝐵 < (𝑦 +𝑒 𝑥)) ↔ ((𝜑 ∧ 1 ∈ ℝ+) → ∃𝑦𝐴 𝐵 < (𝑦 +𝑒 1))))
23 supxrgelem.y . . . . . . . . . 10 ((𝜑𝑥 ∈ ℝ+) → ∃𝑦𝐴 𝐵 < (𝑦 +𝑒 𝑥))
2411, 16, 22, 23vtoclgf 3264 . . . . . . . . 9 (1 ∈ ℝ+ → ((𝜑 ∧ 1 ∈ ℝ+) → ∃𝑦𝐴 𝐵 < (𝑦 +𝑒 1)))
2510, 24ax-mp 5 . . . . . . . 8 ((𝜑 ∧ 1 ∈ ℝ+) → ∃𝑦𝐴 𝐵 < (𝑦 +𝑒 1))
2610, 25mpan2 707 . . . . . . 7 (𝜑 → ∃𝑦𝐴 𝐵 < (𝑦 +𝑒 1))
2726adantr 481 . . . . . 6 ((𝜑 ∧ ¬ sup(𝐴, ℝ*, < ) = +∞) → ∃𝑦𝐴 𝐵 < (𝑦 +𝑒 1))
28 mnfxr 10096 . . . . . . . . . . 11 -∞ ∈ ℝ*
2928a1i 11 . . . . . . . . . 10 ((𝜑𝑦𝐴𝐵 < (𝑦 +𝑒 1)) → -∞ ∈ ℝ*)
30 supxrgelem.a . . . . . . . . . . . 12 (𝜑𝐴 ⊆ ℝ*)
3130sselda 3603 . . . . . . . . . . 11 ((𝜑𝑦𝐴) → 𝑦 ∈ ℝ*)
32313adant3 1081 . . . . . . . . . 10 ((𝜑𝑦𝐴𝐵 < (𝑦 +𝑒 1)) → 𝑦 ∈ ℝ*)
33 supxrcl 12145 . . . . . . . . . . . 12 (𝐴 ⊆ ℝ* → sup(𝐴, ℝ*, < ) ∈ ℝ*)
3430, 33syl 17 . . . . . . . . . . 11 (𝜑 → sup(𝐴, ℝ*, < ) ∈ ℝ*)
35343ad2ant1 1082 . . . . . . . . . 10 ((𝜑𝑦𝐴𝐵 < (𝑦 +𝑒 1)) → sup(𝐴, ℝ*, < ) ∈ ℝ*)
36 simpl3 1066 . . . . . . . . . . . 12 (((𝜑𝑦𝐴𝐵 < (𝑦 +𝑒 1)) ∧ ¬ -∞ < 𝑦) → 𝐵 < (𝑦 +𝑒 1))
37 simpr 477 . . . . . . . . . . . . . . . 16 (((𝜑𝑦𝐴) ∧ ¬ -∞ < 𝑦) → ¬ -∞ < 𝑦)
3831adantr 481 . . . . . . . . . . . . . . . . 17 (((𝜑𝑦𝐴) ∧ ¬ -∞ < 𝑦) → 𝑦 ∈ ℝ*)
39 ngtmnft 11997 . . . . . . . . . . . . . . . . 17 (𝑦 ∈ ℝ* → (𝑦 = -∞ ↔ ¬ -∞ < 𝑦))
4038, 39syl 17 . . . . . . . . . . . . . . . 16 (((𝜑𝑦𝐴) ∧ ¬ -∞ < 𝑦) → (𝑦 = -∞ ↔ ¬ -∞ < 𝑦))
4137, 40mpbird 247 . . . . . . . . . . . . . . 15 (((𝜑𝑦𝐴) ∧ ¬ -∞ < 𝑦) → 𝑦 = -∞)
4241oveq1d 6665 . . . . . . . . . . . . . 14 (((𝜑𝑦𝐴) ∧ ¬ -∞ < 𝑦) → (𝑦 +𝑒 1) = (-∞ +𝑒 1))
43 1re 10039 . . . . . . . . . . . . . . . . 17 1 ∈ ℝ
4443rexri 10097 . . . . . . . . . . . . . . . 16 1 ∈ ℝ*
4544a1i 11 . . . . . . . . . . . . . . 15 (((𝜑𝑦𝐴) ∧ ¬ -∞ < 𝑦) → 1 ∈ ℝ*)
46 renepnf 10087 . . . . . . . . . . . . . . . . 17 (1 ∈ ℝ → 1 ≠ +∞)
4743, 46ax-mp 5 . . . . . . . . . . . . . . . 16 1 ≠ +∞
4847a1i 11 . . . . . . . . . . . . . . 15 (((𝜑𝑦𝐴) ∧ ¬ -∞ < 𝑦) → 1 ≠ +∞)
49 xaddmnf2 12060 . . . . . . . . . . . . . . 15 ((1 ∈ ℝ* ∧ 1 ≠ +∞) → (-∞ +𝑒 1) = -∞)
5045, 48, 49syl2anc 693 . . . . . . . . . . . . . 14 (((𝜑𝑦𝐴) ∧ ¬ -∞ < 𝑦) → (-∞ +𝑒 1) = -∞)
5142, 50eqtrd 2656 . . . . . . . . . . . . 13 (((𝜑𝑦𝐴) ∧ ¬ -∞ < 𝑦) → (𝑦 +𝑒 1) = -∞)
52513adantl3 1219 . . . . . . . . . . . 12 (((𝜑𝑦𝐴𝐵 < (𝑦 +𝑒 1)) ∧ ¬ -∞ < 𝑦) → (𝑦 +𝑒 1) = -∞)
5336, 52breqtrd 4679 . . . . . . . . . . 11 (((𝜑𝑦𝐴𝐵 < (𝑦 +𝑒 1)) ∧ ¬ -∞ < 𝑦) → 𝐵 < -∞)
54 nltmnf 11963 . . . . . . . . . . . . . 14 (𝐵 ∈ ℝ* → ¬ 𝐵 < -∞)
551, 54syl 17 . . . . . . . . . . . . 13 (𝜑 → ¬ 𝐵 < -∞)
5655adantr 481 . . . . . . . . . . . 12 ((𝜑 ∧ ¬ -∞ < 𝑦) → ¬ 𝐵 < -∞)
57563ad2antl1 1223 . . . . . . . . . . 11 (((𝜑𝑦𝐴𝐵 < (𝑦 +𝑒 1)) ∧ ¬ -∞ < 𝑦) → ¬ 𝐵 < -∞)
5853, 57condan 835 . . . . . . . . . 10 ((𝜑𝑦𝐴𝐵 < (𝑦 +𝑒 1)) → -∞ < 𝑦)
5930adantr 481 . . . . . . . . . . . 12 ((𝜑𝑦𝐴) → 𝐴 ⊆ ℝ*)
60 simpr 477 . . . . . . . . . . . 12 ((𝜑𝑦𝐴) → 𝑦𝐴)
61 supxrub 12154 . . . . . . . . . . . 12 ((𝐴 ⊆ ℝ*𝑦𝐴) → 𝑦 ≤ sup(𝐴, ℝ*, < ))
6259, 60, 61syl2anc 693 . . . . . . . . . . 11 ((𝜑𝑦𝐴) → 𝑦 ≤ sup(𝐴, ℝ*, < ))
63623adant3 1081 . . . . . . . . . 10 ((𝜑𝑦𝐴𝐵 < (𝑦 +𝑒 1)) → 𝑦 ≤ sup(𝐴, ℝ*, < ))
6429, 32, 35, 58, 63xrltletrd 11992 . . . . . . . . 9 ((𝜑𝑦𝐴𝐵 < (𝑦 +𝑒 1)) → -∞ < sup(𝐴, ℝ*, < ))
65643exp 1264 . . . . . . . 8 (𝜑 → (𝑦𝐴 → (𝐵 < (𝑦 +𝑒 1) → -∞ < sup(𝐴, ℝ*, < ))))
6665adantr 481 . . . . . . 7 ((𝜑 ∧ ¬ sup(𝐴, ℝ*, < ) = +∞) → (𝑦𝐴 → (𝐵 < (𝑦 +𝑒 1) → -∞ < sup(𝐴, ℝ*, < ))))
6766rexlimdv 3030 . . . . . 6 ((𝜑 ∧ ¬ sup(𝐴, ℝ*, < ) = +∞) → (∃𝑦𝐴 𝐵 < (𝑦 +𝑒 1) → -∞ < sup(𝐴, ℝ*, < )))
6827, 67mpd 15 . . . . 5 ((𝜑 ∧ ¬ sup(𝐴, ℝ*, < ) = +∞) → -∞ < sup(𝐴, ℝ*, < ))
69 simpr 477 . . . . . . 7 ((𝜑 ∧ ¬ sup(𝐴, ℝ*, < ) = +∞) → ¬ sup(𝐴, ℝ*, < ) = +∞)
70 nltpnft 11995 . . . . . . . . 9 (sup(𝐴, ℝ*, < ) ∈ ℝ* → (sup(𝐴, ℝ*, < ) = +∞ ↔ ¬ sup(𝐴, ℝ*, < ) < +∞))
7134, 70syl 17 . . . . . . . 8 (𝜑 → (sup(𝐴, ℝ*, < ) = +∞ ↔ ¬ sup(𝐴, ℝ*, < ) < +∞))
7271adantr 481 . . . . . . 7 ((𝜑 ∧ ¬ sup(𝐴, ℝ*, < ) = +∞) → (sup(𝐴, ℝ*, < ) = +∞ ↔ ¬ sup(𝐴, ℝ*, < ) < +∞))
7369, 72mtbid 314 . . . . . 6 ((𝜑 ∧ ¬ sup(𝐴, ℝ*, < ) = +∞) → ¬ ¬ sup(𝐴, ℝ*, < ) < +∞)
7473notnotrd 128 . . . . 5 ((𝜑 ∧ ¬ sup(𝐴, ℝ*, < ) = +∞) → sup(𝐴, ℝ*, < ) < +∞)
7568, 74jca 554 . . . 4 ((𝜑 ∧ ¬ sup(𝐴, ℝ*, < ) = +∞) → (-∞ < sup(𝐴, ℝ*, < ) ∧ sup(𝐴, ℝ*, < ) < +∞))
7634adantr 481 . . . . 5 ((𝜑 ∧ ¬ sup(𝐴, ℝ*, < ) = +∞) → sup(𝐴, ℝ*, < ) ∈ ℝ*)
77 xrrebnd 11999 . . . . 5 (sup(𝐴, ℝ*, < ) ∈ ℝ* → (sup(𝐴, ℝ*, < ) ∈ ℝ ↔ (-∞ < sup(𝐴, ℝ*, < ) ∧ sup(𝐴, ℝ*, < ) < +∞)))
7876, 77syl 17 . . . 4 ((𝜑 ∧ ¬ sup(𝐴, ℝ*, < ) = +∞) → (sup(𝐴, ℝ*, < ) ∈ ℝ ↔ (-∞ < sup(𝐴, ℝ*, < ) ∧ sup(𝐴, ℝ*, < ) < +∞)))
7975, 78mpbird 247 . . 3 ((𝜑 ∧ ¬ sup(𝐴, ℝ*, < ) = +∞) → sup(𝐴, ℝ*, < ) ∈ ℝ)
80 simpl 473 . . . . 5 (((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ ¬ 𝐵 ≤ sup(𝐴, ℝ*, < )) → (𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ))
81 simpr 477 . . . . . 6 (((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ ¬ 𝐵 ≤ sup(𝐴, ℝ*, < )) → ¬ 𝐵 ≤ sup(𝐴, ℝ*, < ))
8234adantr 481 . . . . . . . 8 ((𝜑 ∧ ¬ 𝐵 ≤ sup(𝐴, ℝ*, < )) → sup(𝐴, ℝ*, < ) ∈ ℝ*)
831adantr 481 . . . . . . . 8 ((𝜑 ∧ ¬ 𝐵 ≤ sup(𝐴, ℝ*, < )) → 𝐵 ∈ ℝ*)
84 xrltnle 10105 . . . . . . . 8 ((sup(𝐴, ℝ*, < ) ∈ ℝ*𝐵 ∈ ℝ*) → (sup(𝐴, ℝ*, < ) < 𝐵 ↔ ¬ 𝐵 ≤ sup(𝐴, ℝ*, < )))
8582, 83, 84syl2anc 693 . . . . . . 7 ((𝜑 ∧ ¬ 𝐵 ≤ sup(𝐴, ℝ*, < )) → (sup(𝐴, ℝ*, < ) < 𝐵 ↔ ¬ 𝐵 ≤ sup(𝐴, ℝ*, < )))
8685adantlr 751 . . . . . 6 (((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ ¬ 𝐵 ≤ sup(𝐴, ℝ*, < )) → (sup(𝐴, ℝ*, < ) < 𝐵 ↔ ¬ 𝐵 ≤ sup(𝐴, ℝ*, < )))
8781, 86mpbird 247 . . . . 5 (((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ ¬ 𝐵 ≤ sup(𝐴, ℝ*, < )) → sup(𝐴, ℝ*, < ) < 𝐵)
88 simpll 790 . . . . . . 7 (((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ sup(𝐴, ℝ*, < ) < 𝐵) → 𝜑)
8928a1i 11 . . . . . . . . . . . 12 (((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ sup(𝐴, ℝ*, < ) < 𝐵) → -∞ ∈ ℝ*)
9088, 34syl 17 . . . . . . . . . . . 12 (((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ sup(𝐴, ℝ*, < ) < 𝐵) → sup(𝐴, ℝ*, < ) ∈ ℝ*)
9188, 1syl 17 . . . . . . . . . . . 12 (((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ sup(𝐴, ℝ*, < ) < 𝐵) → 𝐵 ∈ ℝ*)
92 mnfle 11969 . . . . . . . . . . . . . 14 (sup(𝐴, ℝ*, < ) ∈ ℝ* → -∞ ≤ sup(𝐴, ℝ*, < ))
9334, 92syl 17 . . . . . . . . . . . . 13 (𝜑 → -∞ ≤ sup(𝐴, ℝ*, < ))
9493ad2antrr 762 . . . . . . . . . . . 12 (((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ sup(𝐴, ℝ*, < ) < 𝐵) → -∞ ≤ sup(𝐴, ℝ*, < ))
95 simpr 477 . . . . . . . . . . . 12 (((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ sup(𝐴, ℝ*, < ) < 𝐵) → sup(𝐴, ℝ*, < ) < 𝐵)
9689, 90, 91, 94, 95xrlelttrd 11991 . . . . . . . . . . 11 (((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ sup(𝐴, ℝ*, < ) < 𝐵) → -∞ < 𝐵)
97 id 22 . . . . . . . . . . . . . 14 (𝜑𝜑)
9810a1i 11 . . . . . . . . . . . . . 14 (𝜑 → 1 ∈ ℝ+)
9997, 98, 25syl2anc 693 . . . . . . . . . . . . 13 (𝜑 → ∃𝑦𝐴 𝐵 < (𝑦 +𝑒 1))
10099ad2antrr 762 . . . . . . . . . . . 12 (((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ sup(𝐴, ℝ*, < ) < 𝐵) → ∃𝑦𝐴 𝐵 < (𝑦 +𝑒 1))
10113ad2ant1 1082 . . . . . . . . . . . . . . . 16 ((𝜑𝑦𝐴𝐵 < (𝑦 +𝑒 1)) → 𝐵 ∈ ℝ*)
10244a1i 11 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑦𝐴𝐵 < (𝑦 +𝑒 1)) → 1 ∈ ℝ*)
10332, 102jca 554 . . . . . . . . . . . . . . . . 17 ((𝜑𝑦𝐴𝐵 < (𝑦 +𝑒 1)) → (𝑦 ∈ ℝ* ∧ 1 ∈ ℝ*))
104 xaddcl 12070 . . . . . . . . . . . . . . . . 17 ((𝑦 ∈ ℝ* ∧ 1 ∈ ℝ*) → (𝑦 +𝑒 1) ∈ ℝ*)
105103, 104syl 17 . . . . . . . . . . . . . . . 16 ((𝜑𝑦𝐴𝐵 < (𝑦 +𝑒 1)) → (𝑦 +𝑒 1) ∈ ℝ*)
106 pnfxr 10092 . . . . . . . . . . . . . . . . 17 +∞ ∈ ℝ*
107106a1i 11 . . . . . . . . . . . . . . . 16 ((𝜑𝑦𝐴𝐵 < (𝑦 +𝑒 1)) → +∞ ∈ ℝ*)
108 simp3 1063 . . . . . . . . . . . . . . . 16 ((𝜑𝑦𝐴𝐵 < (𝑦 +𝑒 1)) → 𝐵 < (𝑦 +𝑒 1))
10931, 44, 104sylancl 694 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑦𝐴) → (𝑦 +𝑒 1) ∈ ℝ*)
110 pnfge 11964 . . . . . . . . . . . . . . . . . 18 ((𝑦 +𝑒 1) ∈ ℝ* → (𝑦 +𝑒 1) ≤ +∞)
111109, 110syl 17 . . . . . . . . . . . . . . . . 17 ((𝜑𝑦𝐴) → (𝑦 +𝑒 1) ≤ +∞)
1121113adant3 1081 . . . . . . . . . . . . . . . 16 ((𝜑𝑦𝐴𝐵 < (𝑦 +𝑒 1)) → (𝑦 +𝑒 1) ≤ +∞)
113101, 105, 107, 108, 112xrltletrd 11992 . . . . . . . . . . . . . . 15 ((𝜑𝑦𝐴𝐵 < (𝑦 +𝑒 1)) → 𝐵 < +∞)
1141133exp 1264 . . . . . . . . . . . . . 14 (𝜑 → (𝑦𝐴 → (𝐵 < (𝑦 +𝑒 1) → 𝐵 < +∞)))
115114rexlimdv 3030 . . . . . . . . . . . . 13 (𝜑 → (∃𝑦𝐴 𝐵 < (𝑦 +𝑒 1) → 𝐵 < +∞))
11688, 115syl 17 . . . . . . . . . . . 12 (((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ sup(𝐴, ℝ*, < ) < 𝐵) → (∃𝑦𝐴 𝐵 < (𝑦 +𝑒 1) → 𝐵 < +∞))
117100, 116mpd 15 . . . . . . . . . . 11 (((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ sup(𝐴, ℝ*, < ) < 𝐵) → 𝐵 < +∞)
11896, 117jca 554 . . . . . . . . . 10 (((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ sup(𝐴, ℝ*, < ) < 𝐵) → (-∞ < 𝐵𝐵 < +∞))
119 xrrebnd 11999 . . . . . . . . . . 11 (𝐵 ∈ ℝ* → (𝐵 ∈ ℝ ↔ (-∞ < 𝐵𝐵 < +∞)))
12091, 119syl 17 . . . . . . . . . 10 (((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ sup(𝐴, ℝ*, < ) < 𝐵) → (𝐵 ∈ ℝ ↔ (-∞ < 𝐵𝐵 < +∞)))
121118, 120mpbird 247 . . . . . . . . 9 (((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ sup(𝐴, ℝ*, < ) < 𝐵) → 𝐵 ∈ ℝ)
122 simpr 477 . . . . . . . . . 10 ((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) → sup(𝐴, ℝ*, < ) ∈ ℝ)
123122adantr 481 . . . . . . . . 9 (((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ sup(𝐴, ℝ*, < ) < 𝐵) → sup(𝐴, ℝ*, < ) ∈ ℝ)
124121, 123resubcld 10458 . . . . . . . 8 (((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ sup(𝐴, ℝ*, < ) < 𝐵) → (𝐵 − sup(𝐴, ℝ*, < )) ∈ ℝ)
12526, 115mpd 15 . . . . . . . . . . . . 13 (𝜑𝐵 < +∞)
126125ad2antrr 762 . . . . . . . . . . . 12 (((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ sup(𝐴, ℝ*, < ) < 𝐵) → 𝐵 < +∞)
12796, 126jca 554 . . . . . . . . . . 11 (((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ sup(𝐴, ℝ*, < ) < 𝐵) → (-∞ < 𝐵𝐵 < +∞))
128127, 120mpbird 247 . . . . . . . . . 10 (((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ sup(𝐴, ℝ*, < ) < 𝐵) → 𝐵 ∈ ℝ)
129123, 128posdifd 10614 . . . . . . . . 9 (((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ sup(𝐴, ℝ*, < ) < 𝐵) → (sup(𝐴, ℝ*, < ) < 𝐵 ↔ 0 < (𝐵 − sup(𝐴, ℝ*, < ))))
13095, 129mpbid 222 . . . . . . . 8 (((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ sup(𝐴, ℝ*, < ) < 𝐵) → 0 < (𝐵 − sup(𝐴, ℝ*, < )))
131124, 130elrpd 11869 . . . . . . 7 (((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ sup(𝐴, ℝ*, < ) < 𝐵) → (𝐵 − sup(𝐴, ℝ*, < )) ∈ ℝ+)
132 ovex 6678 . . . . . . . 8 (𝐵 − sup(𝐴, ℝ*, < )) ∈ V
133 nfcv 2764 . . . . . . . . 9 𝑥(𝐵 − sup(𝐴, ℝ*, < ))
134 nfv 1843 . . . . . . . . . . 11 𝑥(𝐵 − sup(𝐴, ℝ*, < )) ∈ ℝ+
13512, 134nfan 1828 . . . . . . . . . 10 𝑥(𝜑 ∧ (𝐵 − sup(𝐴, ℝ*, < )) ∈ ℝ+)
136 nfv 1843 . . . . . . . . . 10 𝑥𝑦𝐴 𝐵 < (𝑦 +𝑒 (𝐵 − sup(𝐴, ℝ*, < )))
137135, 136nfim 1825 . . . . . . . . 9 𝑥((𝜑 ∧ (𝐵 − sup(𝐴, ℝ*, < )) ∈ ℝ+) → ∃𝑦𝐴 𝐵 < (𝑦 +𝑒 (𝐵 − sup(𝐴, ℝ*, < ))))
138 eleq1 2689 . . . . . . . . . . 11 (𝑥 = (𝐵 − sup(𝐴, ℝ*, < )) → (𝑥 ∈ ℝ+ ↔ (𝐵 − sup(𝐴, ℝ*, < )) ∈ ℝ+))
139138anbi2d 740 . . . . . . . . . 10 (𝑥 = (𝐵 − sup(𝐴, ℝ*, < )) → ((𝜑𝑥 ∈ ℝ+) ↔ (𝜑 ∧ (𝐵 − sup(𝐴, ℝ*, < )) ∈ ℝ+)))
140 oveq2 6658 . . . . . . . . . . . 12 (𝑥 = (𝐵 − sup(𝐴, ℝ*, < )) → (𝑦 +𝑒 𝑥) = (𝑦 +𝑒 (𝐵 − sup(𝐴, ℝ*, < ))))
141140breq2d 4665 . . . . . . . . . . 11 (𝑥 = (𝐵 − sup(𝐴, ℝ*, < )) → (𝐵 < (𝑦 +𝑒 𝑥) ↔ 𝐵 < (𝑦 +𝑒 (𝐵 − sup(𝐴, ℝ*, < )))))
142141rexbidv 3052 . . . . . . . . . 10 (𝑥 = (𝐵 − sup(𝐴, ℝ*, < )) → (∃𝑦𝐴 𝐵 < (𝑦 +𝑒 𝑥) ↔ ∃𝑦𝐴 𝐵 < (𝑦 +𝑒 (𝐵 − sup(𝐴, ℝ*, < )))))
143139, 142imbi12d 334 . . . . . . . . 9 (𝑥 = (𝐵 − sup(𝐴, ℝ*, < )) → (((𝜑𝑥 ∈ ℝ+) → ∃𝑦𝐴 𝐵 < (𝑦 +𝑒 𝑥)) ↔ ((𝜑 ∧ (𝐵 − sup(𝐴, ℝ*, < )) ∈ ℝ+) → ∃𝑦𝐴 𝐵 < (𝑦 +𝑒 (𝐵 − sup(𝐴, ℝ*, < ))))))
144133, 137, 143, 23vtoclgf 3264 . . . . . . . 8 ((𝐵 − sup(𝐴, ℝ*, < )) ∈ V → ((𝜑 ∧ (𝐵 − sup(𝐴, ℝ*, < )) ∈ ℝ+) → ∃𝑦𝐴 𝐵 < (𝑦 +𝑒 (𝐵 − sup(𝐴, ℝ*, < )))))
145132, 144ax-mp 5 . . . . . . 7 ((𝜑 ∧ (𝐵 − sup(𝐴, ℝ*, < )) ∈ ℝ+) → ∃𝑦𝐴 𝐵 < (𝑦 +𝑒 (𝐵 − sup(𝐴, ℝ*, < ))))
14688, 131, 145syl2anc 693 . . . . . 6 (((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ sup(𝐴, ℝ*, < ) < 𝐵) → ∃𝑦𝐴 𝐵 < (𝑦 +𝑒 (𝐵 − sup(𝐴, ℝ*, < ))))
147 ltpnf 11954 . . . . . . . . . . . . 13 (sup(𝐴, ℝ*, < ) ∈ ℝ → sup(𝐴, ℝ*, < ) < +∞)
148147adantr 481 . . . . . . . . . . . 12 ((sup(𝐴, ℝ*, < ) ∈ ℝ ∧ 𝑦 = +∞) → sup(𝐴, ℝ*, < ) < +∞)
149 id 22 . . . . . . . . . . . . . 14 (𝑦 = +∞ → 𝑦 = +∞)
150149eqcomd 2628 . . . . . . . . . . . . 13 (𝑦 = +∞ → +∞ = 𝑦)
151150adantl 482 . . . . . . . . . . . 12 ((sup(𝐴, ℝ*, < ) ∈ ℝ ∧ 𝑦 = +∞) → +∞ = 𝑦)
152148, 151breqtrd 4679 . . . . . . . . . . 11 ((sup(𝐴, ℝ*, < ) ∈ ℝ ∧ 𝑦 = +∞) → sup(𝐴, ℝ*, < ) < 𝑦)
153152adantll 750 . . . . . . . . . 10 (((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ 𝑦 = +∞) → sup(𝐴, ℝ*, < ) < 𝑦)
154153ad5ant15 1303 . . . . . . . . 9 ((((((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ sup(𝐴, ℝ*, < ) < 𝐵) ∧ 𝑦𝐴) ∧ 𝐵 < (𝑦 +𝑒 (𝐵 − sup(𝐴, ℝ*, < )))) ∧ 𝑦 = +∞) → sup(𝐴, ℝ*, < ) < 𝑦)
155 simplll 798 . . . . . . . . . 10 ((((((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ sup(𝐴, ℝ*, < ) < 𝐵) ∧ 𝑦𝐴) ∧ 𝐵 < (𝑦 +𝑒 (𝐵 − sup(𝐴, ℝ*, < )))) ∧ ¬ 𝑦 = +∞) → ((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ sup(𝐴, ℝ*, < ) < 𝐵))
156 simpl 473 . . . . . . . . . . . . . . 15 ((((((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ sup(𝐴, ℝ*, < ) < 𝐵) ∧ 𝑦𝐴) ∧ 𝐵 < (𝑦 +𝑒 (𝐵 − sup(𝐴, ℝ*, < )))) ∧ ¬ -∞ < 𝑦) → ((((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ sup(𝐴, ℝ*, < ) < 𝐵) ∧ 𝑦𝐴) ∧ 𝐵 < (𝑦 +𝑒 (𝐵 − sup(𝐴, ℝ*, < )))))
15788, 41sylanl1 682 . . . . . . . . . . . . . . . 16 (((((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ sup(𝐴, ℝ*, < ) < 𝐵) ∧ 𝑦𝐴) ∧ ¬ -∞ < 𝑦) → 𝑦 = -∞)
158157adantlr 751 . . . . . . . . . . . . . . 15 ((((((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ sup(𝐴, ℝ*, < ) < 𝐵) ∧ 𝑦𝐴) ∧ 𝐵 < (𝑦 +𝑒 (𝐵 − sup(𝐴, ℝ*, < )))) ∧ ¬ -∞ < 𝑦) → 𝑦 = -∞)
159 simplr 792 . . . . . . . . . . . . . . . 16 ((((((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ sup(𝐴, ℝ*, < ) < 𝐵) ∧ 𝑦𝐴) ∧ 𝐵 < (𝑦 +𝑒 (𝐵 − sup(𝐴, ℝ*, < )))) ∧ 𝑦 = -∞) → 𝐵 < (𝑦 +𝑒 (𝐵 − sup(𝐴, ℝ*, < ))))
160 oveq1 6657 . . . . . . . . . . . . . . . . . 18 (𝑦 = -∞ → (𝑦 +𝑒 (𝐵 − sup(𝐴, ℝ*, < ))) = (-∞ +𝑒 (𝐵 − sup(𝐴, ℝ*, < ))))
161160adantl 482 . . . . . . . . . . . . . . . . 17 ((((((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ sup(𝐴, ℝ*, < ) < 𝐵) ∧ 𝑦𝐴) ∧ 𝐵 < (𝑦 +𝑒 (𝐵 − sup(𝐴, ℝ*, < )))) ∧ 𝑦 = -∞) → (𝑦 +𝑒 (𝐵 − sup(𝐴, ℝ*, < ))) = (-∞ +𝑒 (𝐵 − sup(𝐴, ℝ*, < ))))
162128, 123resubcld 10458 . . . . . . . . . . . . . . . . . . . 20 (((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ sup(𝐴, ℝ*, < ) < 𝐵) → (𝐵 − sup(𝐴, ℝ*, < )) ∈ ℝ)
163162rexrd 10089 . . . . . . . . . . . . . . . . . . 19 (((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ sup(𝐴, ℝ*, < ) < 𝐵) → (𝐵 − sup(𝐴, ℝ*, < )) ∈ ℝ*)
164163ad3antrrr 766 . . . . . . . . . . . . . . . . . 18 ((((((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ sup(𝐴, ℝ*, < ) < 𝐵) ∧ 𝑦𝐴) ∧ 𝐵 < (𝑦 +𝑒 (𝐵 − sup(𝐴, ℝ*, < )))) ∧ 𝑦 = -∞) → (𝐵 − sup(𝐴, ℝ*, < )) ∈ ℝ*)
165 renepnf 10087 . . . . . . . . . . . . . . . . . . . 20 ((𝐵 − sup(𝐴, ℝ*, < )) ∈ ℝ → (𝐵 − sup(𝐴, ℝ*, < )) ≠ +∞)
166124, 165syl 17 . . . . . . . . . . . . . . . . . . 19 (((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ sup(𝐴, ℝ*, < ) < 𝐵) → (𝐵 − sup(𝐴, ℝ*, < )) ≠ +∞)
167166ad3antrrr 766 . . . . . . . . . . . . . . . . . 18 ((((((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ sup(𝐴, ℝ*, < ) < 𝐵) ∧ 𝑦𝐴) ∧ 𝐵 < (𝑦 +𝑒 (𝐵 − sup(𝐴, ℝ*, < )))) ∧ 𝑦 = -∞) → (𝐵 − sup(𝐴, ℝ*, < )) ≠ +∞)
168 xaddmnf2 12060 . . . . . . . . . . . . . . . . . 18 (((𝐵 − sup(𝐴, ℝ*, < )) ∈ ℝ* ∧ (𝐵 − sup(𝐴, ℝ*, < )) ≠ +∞) → (-∞ +𝑒 (𝐵 − sup(𝐴, ℝ*, < ))) = -∞)
169164, 167, 168syl2anc 693 . . . . . . . . . . . . . . . . 17 ((((((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ sup(𝐴, ℝ*, < ) < 𝐵) ∧ 𝑦𝐴) ∧ 𝐵 < (𝑦 +𝑒 (𝐵 − sup(𝐴, ℝ*, < )))) ∧ 𝑦 = -∞) → (-∞ +𝑒 (𝐵 − sup(𝐴, ℝ*, < ))) = -∞)
170161, 169eqtrd 2656 . . . . . . . . . . . . . . . 16 ((((((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ sup(𝐴, ℝ*, < ) < 𝐵) ∧ 𝑦𝐴) ∧ 𝐵 < (𝑦 +𝑒 (𝐵 − sup(𝐴, ℝ*, < )))) ∧ 𝑦 = -∞) → (𝑦 +𝑒 (𝐵 − sup(𝐴, ℝ*, < ))) = -∞)
171159, 170breqtrd 4679 . . . . . . . . . . . . . . 15 ((((((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ sup(𝐴, ℝ*, < ) < 𝐵) ∧ 𝑦𝐴) ∧ 𝐵 < (𝑦 +𝑒 (𝐵 − sup(𝐴, ℝ*, < )))) ∧ 𝑦 = -∞) → 𝐵 < -∞)
172156, 158, 171syl2anc 693 . . . . . . . . . . . . . 14 ((((((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ sup(𝐴, ℝ*, < ) < 𝐵) ∧ 𝑦𝐴) ∧ 𝐵 < (𝑦 +𝑒 (𝐵 − sup(𝐴, ℝ*, < )))) ∧ ¬ -∞ < 𝑦) → 𝐵 < -∞)
17355ad5antr 770 . . . . . . . . . . . . . 14 ((((((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ sup(𝐴, ℝ*, < ) < 𝐵) ∧ 𝑦𝐴) ∧ 𝐵 < (𝑦 +𝑒 (𝐵 − sup(𝐴, ℝ*, < )))) ∧ ¬ -∞ < 𝑦) → ¬ 𝐵 < -∞)
174172, 173condan 835 . . . . . . . . . . . . 13 (((((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ sup(𝐴, ℝ*, < ) < 𝐵) ∧ 𝑦𝐴) ∧ 𝐵 < (𝑦 +𝑒 (𝐵 − sup(𝐴, ℝ*, < )))) → -∞ < 𝑦)
175174adantr 481 . . . . . . . . . . . 12 ((((((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ sup(𝐴, ℝ*, < ) < 𝐵) ∧ 𝑦𝐴) ∧ 𝐵 < (𝑦 +𝑒 (𝐵 − sup(𝐴, ℝ*, < )))) ∧ ¬ 𝑦 = +∞) → -∞ < 𝑦)
176 simp3 1063 . . . . . . . . . . . . . . . 16 ((𝜑𝑦𝐴 ∧ ¬ 𝑦 = +∞) → ¬ 𝑦 = +∞)
177313adant3 1081 . . . . . . . . . . . . . . . . 17 ((𝜑𝑦𝐴 ∧ ¬ 𝑦 = +∞) → 𝑦 ∈ ℝ*)
178 nltpnft 11995 . . . . . . . . . . . . . . . . 17 (𝑦 ∈ ℝ* → (𝑦 = +∞ ↔ ¬ 𝑦 < +∞))
179177, 178syl 17 . . . . . . . . . . . . . . . 16 ((𝜑𝑦𝐴 ∧ ¬ 𝑦 = +∞) → (𝑦 = +∞ ↔ ¬ 𝑦 < +∞))
180176, 179mtbid 314 . . . . . . . . . . . . . . 15 ((𝜑𝑦𝐴 ∧ ¬ 𝑦 = +∞) → ¬ ¬ 𝑦 < +∞)
181180notnotrd 128 . . . . . . . . . . . . . 14 ((𝜑𝑦𝐴 ∧ ¬ 𝑦 = +∞) → 𝑦 < +∞)
1821813adant1r 1319 . . . . . . . . . . . . 13 (((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ 𝑦𝐴 ∧ ¬ 𝑦 = +∞) → 𝑦 < +∞)
183182ad5ant135 1314 . . . . . . . . . . . 12 ((((((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ sup(𝐴, ℝ*, < ) < 𝐵) ∧ 𝑦𝐴) ∧ 𝐵 < (𝑦 +𝑒 (𝐵 − sup(𝐴, ℝ*, < )))) ∧ ¬ 𝑦 = +∞) → 𝑦 < +∞)
184175, 183jca 554 . . . . . . . . . . 11 ((((((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ sup(𝐴, ℝ*, < ) < 𝐵) ∧ 𝑦𝐴) ∧ 𝐵 < (𝑦 +𝑒 (𝐵 − sup(𝐴, ℝ*, < )))) ∧ ¬ 𝑦 = +∞) → (-∞ < 𝑦𝑦 < +∞))
18531adantlr 751 . . . . . . . . . . . . 13 (((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ 𝑦𝐴) → 𝑦 ∈ ℝ*)
186185ad5ant13 1301 . . . . . . . . . . . 12 ((((((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ sup(𝐴, ℝ*, < ) < 𝐵) ∧ 𝑦𝐴) ∧ 𝐵 < (𝑦 +𝑒 (𝐵 − sup(𝐴, ℝ*, < )))) ∧ ¬ 𝑦 = +∞) → 𝑦 ∈ ℝ*)
187 xrrebnd 11999 . . . . . . . . . . . 12 (𝑦 ∈ ℝ* → (𝑦 ∈ ℝ ↔ (-∞ < 𝑦𝑦 < +∞)))
188186, 187syl 17 . . . . . . . . . . 11 ((((((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ sup(𝐴, ℝ*, < ) < 𝐵) ∧ 𝑦𝐴) ∧ 𝐵 < (𝑦 +𝑒 (𝐵 − sup(𝐴, ℝ*, < )))) ∧ ¬ 𝑦 = +∞) → (𝑦 ∈ ℝ ↔ (-∞ < 𝑦𝑦 < +∞)))
189184, 188mpbird 247 . . . . . . . . . 10 ((((((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ sup(𝐴, ℝ*, < ) < 𝐵) ∧ 𝑦𝐴) ∧ 𝐵 < (𝑦 +𝑒 (𝐵 − sup(𝐴, ℝ*, < )))) ∧ ¬ 𝑦 = +∞) → 𝑦 ∈ ℝ)
190 simplr 792 . . . . . . . . . 10 ((((((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ sup(𝐴, ℝ*, < ) < 𝐵) ∧ 𝑦𝐴) ∧ 𝐵 < (𝑦 +𝑒 (𝐵 − sup(𝐴, ℝ*, < )))) ∧ ¬ 𝑦 = +∞) → 𝐵 < (𝑦 +𝑒 (𝐵 − sup(𝐴, ℝ*, < ))))
191121ad2antrr 762 . . . . . . . . . . . . 13 (((((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ sup(𝐴, ℝ*, < ) < 𝐵) ∧ 𝑦 ∈ ℝ) ∧ 𝐵 < (𝑦 +𝑒 (𝐵 − sup(𝐴, ℝ*, < )))) → 𝐵 ∈ ℝ)
192 simpr 477 . . . . . . . . . . . . . . . 16 ((((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ sup(𝐴, ℝ*, < ) < 𝐵) ∧ 𝑦 ∈ ℝ) → 𝑦 ∈ ℝ)
193124adantr 481 . . . . . . . . . . . . . . . 16 ((((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ sup(𝐴, ℝ*, < ) < 𝐵) ∧ 𝑦 ∈ ℝ) → (𝐵 − sup(𝐴, ℝ*, < )) ∈ ℝ)
194 rexadd 12063 . . . . . . . . . . . . . . . 16 ((𝑦 ∈ ℝ ∧ (𝐵 − sup(𝐴, ℝ*, < )) ∈ ℝ) → (𝑦 +𝑒 (𝐵 − sup(𝐴, ℝ*, < ))) = (𝑦 + (𝐵 − sup(𝐴, ℝ*, < ))))
195192, 193, 194syl2anc 693 . . . . . . . . . . . . . . 15 ((((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ sup(𝐴, ℝ*, < ) < 𝐵) ∧ 𝑦 ∈ ℝ) → (𝑦 +𝑒 (𝐵 − sup(𝐴, ℝ*, < ))) = (𝑦 + (𝐵 − sup(𝐴, ℝ*, < ))))
196192, 193readdcld 10069 . . . . . . . . . . . . . . 15 ((((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ sup(𝐴, ℝ*, < ) < 𝐵) ∧ 𝑦 ∈ ℝ) → (𝑦 + (𝐵 − sup(𝐴, ℝ*, < ))) ∈ ℝ)
197195, 196eqeltrd 2701 . . . . . . . . . . . . . 14 ((((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ sup(𝐴, ℝ*, < ) < 𝐵) ∧ 𝑦 ∈ ℝ) → (𝑦 +𝑒 (𝐵 − sup(𝐴, ℝ*, < ))) ∈ ℝ)
198197adantr 481 . . . . . . . . . . . . 13 (((((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ sup(𝐴, ℝ*, < ) < 𝐵) ∧ 𝑦 ∈ ℝ) ∧ 𝐵 < (𝑦 +𝑒 (𝐵 − sup(𝐴, ℝ*, < )))) → (𝑦 +𝑒 (𝐵 − sup(𝐴, ℝ*, < ))) ∈ ℝ)
199 simpr 477 . . . . . . . . . . . . 13 (((((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ sup(𝐴, ℝ*, < ) < 𝐵) ∧ 𝑦 ∈ ℝ) ∧ 𝐵 < (𝑦 +𝑒 (𝐵 − sup(𝐴, ℝ*, < )))) → 𝐵 < (𝑦 +𝑒 (𝐵 − sup(𝐴, ℝ*, < ))))
200191, 198, 191, 199ltsub1dd 10639 . . . . . . . . . . . 12 (((((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ sup(𝐴, ℝ*, < ) < 𝐵) ∧ 𝑦 ∈ ℝ) ∧ 𝐵 < (𝑦 +𝑒 (𝐵 − sup(𝐴, ℝ*, < )))) → (𝐵𝐵) < ((𝑦 +𝑒 (𝐵 − sup(𝐴, ℝ*, < ))) − 𝐵))
201121recnd 10068 . . . . . . . . . . . . . . 15 (((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ sup(𝐴, ℝ*, < ) < 𝐵) → 𝐵 ∈ ℂ)
202201subidd 10380 . . . . . . . . . . . . . 14 (((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ sup(𝐴, ℝ*, < ) < 𝐵) → (𝐵𝐵) = 0)
203202ad2antrr 762 . . . . . . . . . . . . 13 (((((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ sup(𝐴, ℝ*, < ) < 𝐵) ∧ 𝑦 ∈ ℝ) ∧ 𝐵 < (𝑦 +𝑒 (𝐵 − sup(𝐴, ℝ*, < )))) → (𝐵𝐵) = 0)
204192recnd 10068 . . . . . . . . . . . . . . . . . 18 ((((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ sup(𝐴, ℝ*, < ) < 𝐵) ∧ 𝑦 ∈ ℝ) → 𝑦 ∈ ℂ)
205201adantr 481 . . . . . . . . . . . . . . . . . 18 ((((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ sup(𝐴, ℝ*, < ) < 𝐵) ∧ 𝑦 ∈ ℝ) → 𝐵 ∈ ℂ)
206122recnd 10068 . . . . . . . . . . . . . . . . . . 19 ((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) → sup(𝐴, ℝ*, < ) ∈ ℂ)
207206ad2antrr 762 . . . . . . . . . . . . . . . . . 18 ((((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ sup(𝐴, ℝ*, < ) < 𝐵) ∧ 𝑦 ∈ ℝ) → sup(𝐴, ℝ*, < ) ∈ ℂ)
208204, 205, 207addsub12d 10415 . . . . . . . . . . . . . . . . 17 ((((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ sup(𝐴, ℝ*, < ) < 𝐵) ∧ 𝑦 ∈ ℝ) → (𝑦 + (𝐵 − sup(𝐴, ℝ*, < ))) = (𝐵 + (𝑦 − sup(𝐴, ℝ*, < ))))
209195, 208eqtrd 2656 . . . . . . . . . . . . . . . 16 ((((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ sup(𝐴, ℝ*, < ) < 𝐵) ∧ 𝑦 ∈ ℝ) → (𝑦 +𝑒 (𝐵 − sup(𝐴, ℝ*, < ))) = (𝐵 + (𝑦 − sup(𝐴, ℝ*, < ))))
210209oveq1d 6665 . . . . . . . . . . . . . . 15 ((((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ sup(𝐴, ℝ*, < ) < 𝐵) ∧ 𝑦 ∈ ℝ) → ((𝑦 +𝑒 (𝐵 − sup(𝐴, ℝ*, < ))) − 𝐵) = ((𝐵 + (𝑦 − sup(𝐴, ℝ*, < ))) − 𝐵))
211204, 207subcld 10392 . . . . . . . . . . . . . . . 16 ((((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ sup(𝐴, ℝ*, < ) < 𝐵) ∧ 𝑦 ∈ ℝ) → (𝑦 − sup(𝐴, ℝ*, < )) ∈ ℂ)
212205, 211pncan2d 10394 . . . . . . . . . . . . . . 15 ((((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ sup(𝐴, ℝ*, < ) < 𝐵) ∧ 𝑦 ∈ ℝ) → ((𝐵 + (𝑦 − sup(𝐴, ℝ*, < ))) − 𝐵) = (𝑦 − sup(𝐴, ℝ*, < )))
213210, 212eqtrd 2656 . . . . . . . . . . . . . 14 ((((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ sup(𝐴, ℝ*, < ) < 𝐵) ∧ 𝑦 ∈ ℝ) → ((𝑦 +𝑒 (𝐵 − sup(𝐴, ℝ*, < ))) − 𝐵) = (𝑦 − sup(𝐴, ℝ*, < )))
214213adantr 481 . . . . . . . . . . . . 13 (((((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ sup(𝐴, ℝ*, < ) < 𝐵) ∧ 𝑦 ∈ ℝ) ∧ 𝐵 < (𝑦 +𝑒 (𝐵 − sup(𝐴, ℝ*, < )))) → ((𝑦 +𝑒 (𝐵 − sup(𝐴, ℝ*, < ))) − 𝐵) = (𝑦 − sup(𝐴, ℝ*, < )))
215203, 214breq12d 4666 . . . . . . . . . . . 12 (((((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ sup(𝐴, ℝ*, < ) < 𝐵) ∧ 𝑦 ∈ ℝ) ∧ 𝐵 < (𝑦 +𝑒 (𝐵 − sup(𝐴, ℝ*, < )))) → ((𝐵𝐵) < ((𝑦 +𝑒 (𝐵 − sup(𝐴, ℝ*, < ))) − 𝐵) ↔ 0 < (𝑦 − sup(𝐴, ℝ*, < ))))
216200, 215mpbid 222 . . . . . . . . . . 11 (((((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ sup(𝐴, ℝ*, < ) < 𝐵) ∧ 𝑦 ∈ ℝ) ∧ 𝐵 < (𝑦 +𝑒 (𝐵 − sup(𝐴, ℝ*, < )))) → 0 < (𝑦 − sup(𝐴, ℝ*, < )))
217123ad2antrr 762 . . . . . . . . . . . 12 (((((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ sup(𝐴, ℝ*, < ) < 𝐵) ∧ 𝑦 ∈ ℝ) ∧ 𝐵 < (𝑦 +𝑒 (𝐵 − sup(𝐴, ℝ*, < )))) → sup(𝐴, ℝ*, < ) ∈ ℝ)
218 simplr 792 . . . . . . . . . . . 12 (((((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ sup(𝐴, ℝ*, < ) < 𝐵) ∧ 𝑦 ∈ ℝ) ∧ 𝐵 < (𝑦 +𝑒 (𝐵 − sup(𝐴, ℝ*, < )))) → 𝑦 ∈ ℝ)
219217, 218posdifd 10614 . . . . . . . . . . 11 (((((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ sup(𝐴, ℝ*, < ) < 𝐵) ∧ 𝑦 ∈ ℝ) ∧ 𝐵 < (𝑦 +𝑒 (𝐵 − sup(𝐴, ℝ*, < )))) → (sup(𝐴, ℝ*, < ) < 𝑦 ↔ 0 < (𝑦 − sup(𝐴, ℝ*, < ))))
220216, 219mpbird 247 . . . . . . . . . 10 (((((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ sup(𝐴, ℝ*, < ) < 𝐵) ∧ 𝑦 ∈ ℝ) ∧ 𝐵 < (𝑦 +𝑒 (𝐵 − sup(𝐴, ℝ*, < )))) → sup(𝐴, ℝ*, < ) < 𝑦)
221155, 189, 190, 220syl21anc 1325 . . . . . . . . 9 ((((((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ sup(𝐴, ℝ*, < ) < 𝐵) ∧ 𝑦𝐴) ∧ 𝐵 < (𝑦 +𝑒 (𝐵 − sup(𝐴, ℝ*, < )))) ∧ ¬ 𝑦 = +∞) → sup(𝐴, ℝ*, < ) < 𝑦)
222154, 221pm2.61dan 832 . . . . . . . 8 (((((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ sup(𝐴, ℝ*, < ) < 𝐵) ∧ 𝑦𝐴) ∧ 𝐵 < (𝑦 +𝑒 (𝐵 − sup(𝐴, ℝ*, < )))) → sup(𝐴, ℝ*, < ) < 𝑦)
223222ex 450 . . . . . . 7 ((((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ sup(𝐴, ℝ*, < ) < 𝐵) ∧ 𝑦𝐴) → (𝐵 < (𝑦 +𝑒 (𝐵 − sup(𝐴, ℝ*, < ))) → sup(𝐴, ℝ*, < ) < 𝑦))
224223reximdva 3017 . . . . . 6 (((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ sup(𝐴, ℝ*, < ) < 𝐵) → (∃𝑦𝐴 𝐵 < (𝑦 +𝑒 (𝐵 − sup(𝐴, ℝ*, < ))) → ∃𝑦𝐴 sup(𝐴, ℝ*, < ) < 𝑦))
225146, 224mpd 15 . . . . 5 (((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ sup(𝐴, ℝ*, < ) < 𝐵) → ∃𝑦𝐴 sup(𝐴, ℝ*, < ) < 𝑦)
22680, 87, 225syl2anc 693 . . . 4 (((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ ¬ 𝐵 ≤ sup(𝐴, ℝ*, < )) → ∃𝑦𝐴 sup(𝐴, ℝ*, < ) < 𝑦)
22759, 33syl 17 . . . . . . . . 9 ((𝜑𝑦𝐴) → sup(𝐴, ℝ*, < ) ∈ ℝ*)
22831, 227xrlenltd 10104 . . . . . . . 8 ((𝜑𝑦𝐴) → (𝑦 ≤ sup(𝐴, ℝ*, < ) ↔ ¬ sup(𝐴, ℝ*, < ) < 𝑦))
22962, 228mpbid 222 . . . . . . 7 ((𝜑𝑦𝐴) → ¬ sup(𝐴, ℝ*, < ) < 𝑦)
230229ralrimiva 2966 . . . . . 6 (𝜑 → ∀𝑦𝐴 ¬ sup(𝐴, ℝ*, < ) < 𝑦)
231 ralnex 2992 . . . . . 6 (∀𝑦𝐴 ¬ sup(𝐴, ℝ*, < ) < 𝑦 ↔ ¬ ∃𝑦𝐴 sup(𝐴, ℝ*, < ) < 𝑦)
232230, 231sylib 208 . . . . 5 (𝜑 → ¬ ∃𝑦𝐴 sup(𝐴, ℝ*, < ) < 𝑦)
233232ad2antrr 762 . . . 4 (((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ ¬ 𝐵 ≤ sup(𝐴, ℝ*, < )) → ¬ ∃𝑦𝐴 sup(𝐴, ℝ*, < ) < 𝑦)
234226, 233condan 835 . . 3 ((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) → 𝐵 ≤ sup(𝐴, ℝ*, < ))
2359, 79, 234syl2anc 693 . 2 ((𝜑 ∧ ¬ sup(𝐴, ℝ*, < ) = +∞) → 𝐵 ≤ sup(𝐴, ℝ*, < ))
2368, 235pm2.61dan 832 1 (𝜑𝐵 ≤ sup(𝐴, ℝ*, < ))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 196  wa 384  w3a 1037   = wceq 1483  wnf 1708  wcel 1990  wne 2794  wral 2912  wrex 2913  Vcvv 3200  wss 3574   class class class wbr 4653  (class class class)co 6650  supcsup 8346  cc 9934  cr 9935  0cc0 9936  1c1 9937   + caddc 9939  +∞cpnf 10071  -∞cmnf 10072  *cxr 10073   < clt 10074  cle 10075  cmin 10266  +crp 11832   +𝑒 cxad 11944
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1722  ax-4 1737  ax-5 1839  ax-6 1888  ax-7 1935  ax-8 1992  ax-9 1999  ax-10 2019  ax-11 2034  ax-12 2047  ax-13 2246  ax-ext 2602  ax-sep 4781  ax-nul 4789  ax-pow 4843  ax-pr 4906  ax-un 6949  ax-cnex 9992  ax-resscn 9993  ax-1cn 9994  ax-icn 9995  ax-addcl 9996  ax-addrcl 9997  ax-mulcl 9998  ax-mulrcl 9999  ax-mulcom 10000  ax-addass 10001  ax-mulass 10002  ax-distr 10003  ax-i2m1 10004  ax-1ne0 10005  ax-1rid 10006  ax-rnegex 10007  ax-rrecex 10008  ax-cnre 10009  ax-pre-lttri 10010  ax-pre-lttrn 10011  ax-pre-ltadd 10012  ax-pre-mulgt0 10013  ax-pre-sup 10014
This theorem depends on definitions:  df-bi 197  df-or 385  df-an 386  df-3or 1038  df-3an 1039  df-tru 1486  df-ex 1705  df-nf 1710  df-sb 1881  df-eu 2474  df-mo 2475  df-clab 2609  df-cleq 2615  df-clel 2618  df-nfc 2753  df-ne 2795  df-nel 2898  df-ral 2917  df-rex 2918  df-reu 2919  df-rmo 2920  df-rab 2921  df-v 3202  df-sbc 3436  df-csb 3534  df-dif 3577  df-un 3579  df-in 3581  df-ss 3588  df-nul 3916  df-if 4087  df-pw 4160  df-sn 4178  df-pr 4180  df-op 4184  df-uni 4437  df-iun 4522  df-br 4654  df-opab 4713  df-mpt 4730  df-id 5024  df-po 5035  df-so 5036  df-xp 5120  df-rel 5121  df-cnv 5122  df-co 5123  df-dm 5124  df-rn 5125  df-res 5126  df-ima 5127  df-iota 5851  df-fun 5890  df-fn 5891  df-f 5892  df-f1 5893  df-fo 5894  df-f1o 5895  df-fv 5896  df-riota 6611  df-ov 6653  df-oprab 6654  df-mpt2 6655  df-1st 7168  df-2nd 7169  df-er 7742  df-en 7956  df-dom 7957  df-sdom 7958  df-sup 8348  df-pnf 10076  df-mnf 10077  df-xr 10078  df-ltxr 10079  df-le 10080  df-sub 10268  df-neg 10269  df-rp 11833  df-xadd 11947
This theorem is referenced by:  supxrge  39554
  Copyright terms: Public domain W3C validator