MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  infm3 Structured version   Visualization version   GIF version

Theorem infm3 11943
Description: The completeness axiom for reals in terms of infimum: a nonempty, bounded-below set of reals has an infimum. (This theorem is the dual of sup3 11941.) (Contributed by NM, 14-Jun-2005.)
Assertion
Ref Expression
infm3 ((𝐴 ⊆ ℝ ∧ 𝐴 ≠ ∅ ∧ ∃𝑥 ∈ ℝ ∀𝑦𝐴 𝑥𝑦) → ∃𝑥 ∈ ℝ (∀𝑦𝐴 ¬ 𝑦 < 𝑥 ∧ ∀𝑦 ∈ ℝ (𝑥 < 𝑦 → ∃𝑧𝐴 𝑧 < 𝑦)))
Distinct variable group:   𝑥,𝑦,𝑧,𝐴

Proof of Theorem infm3
Dummy variables 𝑤 𝑣 𝑢 𝑡 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 ssel 3915 . . . . . . . . 9 (𝐴 ⊆ ℝ → (𝑣𝐴𝑣 ∈ ℝ))
21pm4.71rd 563 . . . . . . . 8 (𝐴 ⊆ ℝ → (𝑣𝐴 ↔ (𝑣 ∈ ℝ ∧ 𝑣𝐴)))
32exbidv 1925 . . . . . . 7 (𝐴 ⊆ ℝ → (∃𝑣 𝑣𝐴 ↔ ∃𝑣(𝑣 ∈ ℝ ∧ 𝑣𝐴)))
4 df-rex 3071 . . . . . . . 8 (∃𝑣 ∈ ℝ 𝑣𝐴 ↔ ∃𝑣(𝑣 ∈ ℝ ∧ 𝑣𝐴))
5 renegcl 11293 . . . . . . . . 9 (𝑤 ∈ ℝ → -𝑤 ∈ ℝ)
6 infm3lem 11942 . . . . . . . . 9 (𝑣 ∈ ℝ → ∃𝑤 ∈ ℝ 𝑣 = -𝑤)
7 eleq1 2827 . . . . . . . . 9 (𝑣 = -𝑤 → (𝑣𝐴 ↔ -𝑤𝐴))
85, 6, 7rexxfr 5340 . . . . . . . 8 (∃𝑣 ∈ ℝ 𝑣𝐴 ↔ ∃𝑤 ∈ ℝ -𝑤𝐴)
94, 8bitr3i 276 . . . . . . 7 (∃𝑣(𝑣 ∈ ℝ ∧ 𝑣𝐴) ↔ ∃𝑤 ∈ ℝ -𝑤𝐴)
103, 9bitrdi 287 . . . . . 6 (𝐴 ⊆ ℝ → (∃𝑣 𝑣𝐴 ↔ ∃𝑤 ∈ ℝ -𝑤𝐴))
11 n0 4281 . . . . . 6 (𝐴 ≠ ∅ ↔ ∃𝑣 𝑣𝐴)
12 rabn0 4320 . . . . . 6 ({𝑤 ∈ ℝ ∣ -𝑤𝐴} ≠ ∅ ↔ ∃𝑤 ∈ ℝ -𝑤𝐴)
1310, 11, 123bitr4g 314 . . . . 5 (𝐴 ⊆ ℝ → (𝐴 ≠ ∅ ↔ {𝑤 ∈ ℝ ∣ -𝑤𝐴} ≠ ∅))
14 ssel 3915 . . . . . . . . . . . 12 (𝐴 ⊆ ℝ → (𝑦𝐴𝑦 ∈ ℝ))
1514pm4.71rd 563 . . . . . . . . . . 11 (𝐴 ⊆ ℝ → (𝑦𝐴 ↔ (𝑦 ∈ ℝ ∧ 𝑦𝐴)))
1615imbi1d 342 . . . . . . . . . 10 (𝐴 ⊆ ℝ → ((𝑦𝐴𝑥𝑦) ↔ ((𝑦 ∈ ℝ ∧ 𝑦𝐴) → 𝑥𝑦)))
17 impexp 451 . . . . . . . . . 10 (((𝑦 ∈ ℝ ∧ 𝑦𝐴) → 𝑥𝑦) ↔ (𝑦 ∈ ℝ → (𝑦𝐴𝑥𝑦)))
1816, 17bitrdi 287 . . . . . . . . 9 (𝐴 ⊆ ℝ → ((𝑦𝐴𝑥𝑦) ↔ (𝑦 ∈ ℝ → (𝑦𝐴𝑥𝑦))))
1918albidv 1924 . . . . . . . 8 (𝐴 ⊆ ℝ → (∀𝑦(𝑦𝐴𝑥𝑦) ↔ ∀𝑦(𝑦 ∈ ℝ → (𝑦𝐴𝑥𝑦))))
20 df-ral 3070 . . . . . . . 8 (∀𝑦𝐴 𝑥𝑦 ↔ ∀𝑦(𝑦𝐴𝑥𝑦))
21 renegcl 11293 . . . . . . . . . 10 (𝑣 ∈ ℝ → -𝑣 ∈ ℝ)
22 infm3lem 11942 . . . . . . . . . 10 (𝑦 ∈ ℝ → ∃𝑣 ∈ ℝ 𝑦 = -𝑣)
23 eleq1 2827 . . . . . . . . . . 11 (𝑦 = -𝑣 → (𝑦𝐴 ↔ -𝑣𝐴))
24 breq2 5079 . . . . . . . . . . 11 (𝑦 = -𝑣 → (𝑥𝑦𝑥 ≤ -𝑣))
2523, 24imbi12d 345 . . . . . . . . . 10 (𝑦 = -𝑣 → ((𝑦𝐴𝑥𝑦) ↔ (-𝑣𝐴𝑥 ≤ -𝑣)))
2621, 22, 25ralxfr 5338 . . . . . . . . 9 (∀𝑦 ∈ ℝ (𝑦𝐴𝑥𝑦) ↔ ∀𝑣 ∈ ℝ (-𝑣𝐴𝑥 ≤ -𝑣))
27 df-ral 3070 . . . . . . . . 9 (∀𝑦 ∈ ℝ (𝑦𝐴𝑥𝑦) ↔ ∀𝑦(𝑦 ∈ ℝ → (𝑦𝐴𝑥𝑦)))
2826, 27bitr3i 276 . . . . . . . 8 (∀𝑣 ∈ ℝ (-𝑣𝐴𝑥 ≤ -𝑣) ↔ ∀𝑦(𝑦 ∈ ℝ → (𝑦𝐴𝑥𝑦)))
2919, 20, 283bitr4g 314 . . . . . . 7 (𝐴 ⊆ ℝ → (∀𝑦𝐴 𝑥𝑦 ↔ ∀𝑣 ∈ ℝ (-𝑣𝐴𝑥 ≤ -𝑣)))
3029rexbidv 3227 . . . . . 6 (𝐴 ⊆ ℝ → (∃𝑥 ∈ ℝ ∀𝑦𝐴 𝑥𝑦 ↔ ∃𝑥 ∈ ℝ ∀𝑣 ∈ ℝ (-𝑣𝐴𝑥 ≤ -𝑣)))
31 renegcl 11293 . . . . . . . 8 (𝑢 ∈ ℝ → -𝑢 ∈ ℝ)
32 infm3lem 11942 . . . . . . . 8 (𝑥 ∈ ℝ → ∃𝑢 ∈ ℝ 𝑥 = -𝑢)
33 breq1 5078 . . . . . . . . . 10 (𝑥 = -𝑢 → (𝑥 ≤ -𝑣 ↔ -𝑢 ≤ -𝑣))
3433imbi2d 341 . . . . . . . . 9 (𝑥 = -𝑢 → ((-𝑣𝐴𝑥 ≤ -𝑣) ↔ (-𝑣𝐴 → -𝑢 ≤ -𝑣)))
3534ralbidv 3113 . . . . . . . 8 (𝑥 = -𝑢 → (∀𝑣 ∈ ℝ (-𝑣𝐴𝑥 ≤ -𝑣) ↔ ∀𝑣 ∈ ℝ (-𝑣𝐴 → -𝑢 ≤ -𝑣)))
3631, 32, 35rexxfr 5340 . . . . . . 7 (∃𝑥 ∈ ℝ ∀𝑣 ∈ ℝ (-𝑣𝐴𝑥 ≤ -𝑣) ↔ ∃𝑢 ∈ ℝ ∀𝑣 ∈ ℝ (-𝑣𝐴 → -𝑢 ≤ -𝑣))
37 negeq 11222 . . . . . . . . . . . . . . 15 (𝑤 = 𝑣 → -𝑤 = -𝑣)
3837eleq1d 2824 . . . . . . . . . . . . . 14 (𝑤 = 𝑣 → (-𝑤𝐴 ↔ -𝑣𝐴))
3938elrab 3625 . . . . . . . . . . . . 13 (𝑣 ∈ {𝑤 ∈ ℝ ∣ -𝑤𝐴} ↔ (𝑣 ∈ ℝ ∧ -𝑣𝐴))
4039imbi1i 350 . . . . . . . . . . . 12 ((𝑣 ∈ {𝑤 ∈ ℝ ∣ -𝑤𝐴} → 𝑣𝑢) ↔ ((𝑣 ∈ ℝ ∧ -𝑣𝐴) → 𝑣𝑢))
41 impexp 451 . . . . . . . . . . . 12 (((𝑣 ∈ ℝ ∧ -𝑣𝐴) → 𝑣𝑢) ↔ (𝑣 ∈ ℝ → (-𝑣𝐴𝑣𝑢)))
4240, 41bitri 274 . . . . . . . . . . 11 ((𝑣 ∈ {𝑤 ∈ ℝ ∣ -𝑤𝐴} → 𝑣𝑢) ↔ (𝑣 ∈ ℝ → (-𝑣𝐴𝑣𝑢)))
4342albii 1822 . . . . . . . . . 10 (∀𝑣(𝑣 ∈ {𝑤 ∈ ℝ ∣ -𝑤𝐴} → 𝑣𝑢) ↔ ∀𝑣(𝑣 ∈ ℝ → (-𝑣𝐴𝑣𝑢)))
44 df-ral 3070 . . . . . . . . . 10 (∀𝑣 ∈ {𝑤 ∈ ℝ ∣ -𝑤𝐴}𝑣𝑢 ↔ ∀𝑣(𝑣 ∈ {𝑤 ∈ ℝ ∣ -𝑤𝐴} → 𝑣𝑢))
45 df-ral 3070 . . . . . . . . . 10 (∀𝑣 ∈ ℝ (-𝑣𝐴𝑣𝑢) ↔ ∀𝑣(𝑣 ∈ ℝ → (-𝑣𝐴𝑣𝑢)))
4643, 44, 453bitr4ri 304 . . . . . . . . 9 (∀𝑣 ∈ ℝ (-𝑣𝐴𝑣𝑢) ↔ ∀𝑣 ∈ {𝑤 ∈ ℝ ∣ -𝑤𝐴}𝑣𝑢)
47 leneg 11487 . . . . . . . . . . . 12 ((𝑣 ∈ ℝ ∧ 𝑢 ∈ ℝ) → (𝑣𝑢 ↔ -𝑢 ≤ -𝑣))
4847ancoms 459 . . . . . . . . . . 11 ((𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ) → (𝑣𝑢 ↔ -𝑢 ≤ -𝑣))
4948imbi2d 341 . . . . . . . . . 10 ((𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ) → ((-𝑣𝐴𝑣𝑢) ↔ (-𝑣𝐴 → -𝑢 ≤ -𝑣)))
5049ralbidva 3112 . . . . . . . . 9 (𝑢 ∈ ℝ → (∀𝑣 ∈ ℝ (-𝑣𝐴𝑣𝑢) ↔ ∀𝑣 ∈ ℝ (-𝑣𝐴 → -𝑢 ≤ -𝑣)))
5146, 50bitr3id 285 . . . . . . . 8 (𝑢 ∈ ℝ → (∀𝑣 ∈ {𝑤 ∈ ℝ ∣ -𝑤𝐴}𝑣𝑢 ↔ ∀𝑣 ∈ ℝ (-𝑣𝐴 → -𝑢 ≤ -𝑣)))
5251rexbiia 3181 . . . . . . 7 (∃𝑢 ∈ ℝ ∀𝑣 ∈ {𝑤 ∈ ℝ ∣ -𝑤𝐴}𝑣𝑢 ↔ ∃𝑢 ∈ ℝ ∀𝑣 ∈ ℝ (-𝑣𝐴 → -𝑢 ≤ -𝑣))
5336, 52bitr4i 277 . . . . . 6 (∃𝑥 ∈ ℝ ∀𝑣 ∈ ℝ (-𝑣𝐴𝑥 ≤ -𝑣) ↔ ∃𝑢 ∈ ℝ ∀𝑣 ∈ {𝑤 ∈ ℝ ∣ -𝑤𝐴}𝑣𝑢)
5430, 53bitrdi 287 . . . . 5 (𝐴 ⊆ ℝ → (∃𝑥 ∈ ℝ ∀𝑦𝐴 𝑥𝑦 ↔ ∃𝑢 ∈ ℝ ∀𝑣 ∈ {𝑤 ∈ ℝ ∣ -𝑤𝐴}𝑣𝑢))
5513, 54anbi12d 631 . . . 4 (𝐴 ⊆ ℝ → ((𝐴 ≠ ∅ ∧ ∃𝑥 ∈ ℝ ∀𝑦𝐴 𝑥𝑦) ↔ ({𝑤 ∈ ℝ ∣ -𝑤𝐴} ≠ ∅ ∧ ∃𝑢 ∈ ℝ ∀𝑣 ∈ {𝑤 ∈ ℝ ∣ -𝑤𝐴}𝑣𝑢)))
56 ssrab2 4014 . . . . 5 {𝑤 ∈ ℝ ∣ -𝑤𝐴} ⊆ ℝ
57 sup3 11941 . . . . 5 (({𝑤 ∈ ℝ ∣ -𝑤𝐴} ⊆ ℝ ∧ {𝑤 ∈ ℝ ∣ -𝑤𝐴} ≠ ∅ ∧ ∃𝑢 ∈ ℝ ∀𝑣 ∈ {𝑤 ∈ ℝ ∣ -𝑤𝐴}𝑣𝑢) → ∃𝑢 ∈ ℝ (∀𝑣 ∈ {𝑤 ∈ ℝ ∣ -𝑤𝐴} ¬ 𝑢 < 𝑣 ∧ ∀𝑣 ∈ ℝ (𝑣 < 𝑢 → ∃𝑡 ∈ {𝑤 ∈ ℝ ∣ -𝑤𝐴}𝑣 < 𝑡)))
5856, 57mp3an1 1447 . . . 4 (({𝑤 ∈ ℝ ∣ -𝑤𝐴} ≠ ∅ ∧ ∃𝑢 ∈ ℝ ∀𝑣 ∈ {𝑤 ∈ ℝ ∣ -𝑤𝐴}𝑣𝑢) → ∃𝑢 ∈ ℝ (∀𝑣 ∈ {𝑤 ∈ ℝ ∣ -𝑤𝐴} ¬ 𝑢 < 𝑣 ∧ ∀𝑣 ∈ ℝ (𝑣 < 𝑢 → ∃𝑡 ∈ {𝑤 ∈ ℝ ∣ -𝑤𝐴}𝑣 < 𝑡)))
5955, 58syl6bi 252 . . 3 (𝐴 ⊆ ℝ → ((𝐴 ≠ ∅ ∧ ∃𝑥 ∈ ℝ ∀𝑦𝐴 𝑥𝑦) → ∃𝑢 ∈ ℝ (∀𝑣 ∈ {𝑤 ∈ ℝ ∣ -𝑤𝐴} ¬ 𝑢 < 𝑣 ∧ ∀𝑣 ∈ ℝ (𝑣 < 𝑢 → ∃𝑡 ∈ {𝑤 ∈ ℝ ∣ -𝑤𝐴}𝑣 < 𝑡))))
6015imbi1d 342 . . . . . . . . 9 (𝐴 ⊆ ℝ → ((𝑦𝐴 → ¬ 𝑦 < 𝑥) ↔ ((𝑦 ∈ ℝ ∧ 𝑦𝐴) → ¬ 𝑦 < 𝑥)))
61 impexp 451 . . . . . . . . 9 (((𝑦 ∈ ℝ ∧ 𝑦𝐴) → ¬ 𝑦 < 𝑥) ↔ (𝑦 ∈ ℝ → (𝑦𝐴 → ¬ 𝑦 < 𝑥)))
6260, 61bitrdi 287 . . . . . . . 8 (𝐴 ⊆ ℝ → ((𝑦𝐴 → ¬ 𝑦 < 𝑥) ↔ (𝑦 ∈ ℝ → (𝑦𝐴 → ¬ 𝑦 < 𝑥))))
6362albidv 1924 . . . . . . 7 (𝐴 ⊆ ℝ → (∀𝑦(𝑦𝐴 → ¬ 𝑦 < 𝑥) ↔ ∀𝑦(𝑦 ∈ ℝ → (𝑦𝐴 → ¬ 𝑦 < 𝑥))))
64 df-ral 3070 . . . . . . 7 (∀𝑦𝐴 ¬ 𝑦 < 𝑥 ↔ ∀𝑦(𝑦𝐴 → ¬ 𝑦 < 𝑥))
65 breq1 5078 . . . . . . . . . . 11 (𝑦 = -𝑣 → (𝑦 < 𝑥 ↔ -𝑣 < 𝑥))
6665notbid 318 . . . . . . . . . 10 (𝑦 = -𝑣 → (¬ 𝑦 < 𝑥 ↔ ¬ -𝑣 < 𝑥))
6723, 66imbi12d 345 . . . . . . . . 9 (𝑦 = -𝑣 → ((𝑦𝐴 → ¬ 𝑦 < 𝑥) ↔ (-𝑣𝐴 → ¬ -𝑣 < 𝑥)))
6821, 22, 67ralxfr 5338 . . . . . . . 8 (∀𝑦 ∈ ℝ (𝑦𝐴 → ¬ 𝑦 < 𝑥) ↔ ∀𝑣 ∈ ℝ (-𝑣𝐴 → ¬ -𝑣 < 𝑥))
69 df-ral 3070 . . . . . . . 8 (∀𝑦 ∈ ℝ (𝑦𝐴 → ¬ 𝑦 < 𝑥) ↔ ∀𝑦(𝑦 ∈ ℝ → (𝑦𝐴 → ¬ 𝑦 < 𝑥)))
7068, 69bitr3i 276 . . . . . . 7 (∀𝑣 ∈ ℝ (-𝑣𝐴 → ¬ -𝑣 < 𝑥) ↔ ∀𝑦(𝑦 ∈ ℝ → (𝑦𝐴 → ¬ 𝑦 < 𝑥)))
7163, 64, 703bitr4g 314 . . . . . 6 (𝐴 ⊆ ℝ → (∀𝑦𝐴 ¬ 𝑦 < 𝑥 ↔ ∀𝑣 ∈ ℝ (-𝑣𝐴 → ¬ -𝑣 < 𝑥)))
72 breq2 5079 . . . . . . . . 9 (𝑦 = -𝑣 → (𝑥 < 𝑦𝑥 < -𝑣))
73 breq2 5079 . . . . . . . . . 10 (𝑦 = -𝑣 → (𝑧 < 𝑦𝑧 < -𝑣))
7473rexbidv 3227 . . . . . . . . 9 (𝑦 = -𝑣 → (∃𝑧𝐴 𝑧 < 𝑦 ↔ ∃𝑧𝐴 𝑧 < -𝑣))
7572, 74imbi12d 345 . . . . . . . 8 (𝑦 = -𝑣 → ((𝑥 < 𝑦 → ∃𝑧𝐴 𝑧 < 𝑦) ↔ (𝑥 < -𝑣 → ∃𝑧𝐴 𝑧 < -𝑣)))
7621, 22, 75ralxfr 5338 . . . . . . 7 (∀𝑦 ∈ ℝ (𝑥 < 𝑦 → ∃𝑧𝐴 𝑧 < 𝑦) ↔ ∀𝑣 ∈ ℝ (𝑥 < -𝑣 → ∃𝑧𝐴 𝑧 < -𝑣))
77 ssel 3915 . . . . . . . . . . . . 13 (𝐴 ⊆ ℝ → (𝑧𝐴𝑧 ∈ ℝ))
7877adantrd 492 . . . . . . . . . . . 12 (𝐴 ⊆ ℝ → ((𝑧𝐴𝑧 < -𝑣) → 𝑧 ∈ ℝ))
7978pm4.71rd 563 . . . . . . . . . . 11 (𝐴 ⊆ ℝ → ((𝑧𝐴𝑧 < -𝑣) ↔ (𝑧 ∈ ℝ ∧ (𝑧𝐴𝑧 < -𝑣))))
8079exbidv 1925 . . . . . . . . . 10 (𝐴 ⊆ ℝ → (∃𝑧(𝑧𝐴𝑧 < -𝑣) ↔ ∃𝑧(𝑧 ∈ ℝ ∧ (𝑧𝐴𝑧 < -𝑣))))
81 df-rex 3071 . . . . . . . . . 10 (∃𝑧𝐴 𝑧 < -𝑣 ↔ ∃𝑧(𝑧𝐴𝑧 < -𝑣))
82 renegcl 11293 . . . . . . . . . . . 12 (𝑡 ∈ ℝ → -𝑡 ∈ ℝ)
83 infm3lem 11942 . . . . . . . . . . . 12 (𝑧 ∈ ℝ → ∃𝑡 ∈ ℝ 𝑧 = -𝑡)
84 eleq1 2827 . . . . . . . . . . . . 13 (𝑧 = -𝑡 → (𝑧𝐴 ↔ -𝑡𝐴))
85 breq1 5078 . . . . . . . . . . . . 13 (𝑧 = -𝑡 → (𝑧 < -𝑣 ↔ -𝑡 < -𝑣))
8684, 85anbi12d 631 . . . . . . . . . . . 12 (𝑧 = -𝑡 → ((𝑧𝐴𝑧 < -𝑣) ↔ (-𝑡𝐴 ∧ -𝑡 < -𝑣)))
8782, 83, 86rexxfr 5340 . . . . . . . . . . 11 (∃𝑧 ∈ ℝ (𝑧𝐴𝑧 < -𝑣) ↔ ∃𝑡 ∈ ℝ (-𝑡𝐴 ∧ -𝑡 < -𝑣))
88 df-rex 3071 . . . . . . . . . . 11 (∃𝑧 ∈ ℝ (𝑧𝐴𝑧 < -𝑣) ↔ ∃𝑧(𝑧 ∈ ℝ ∧ (𝑧𝐴𝑧 < -𝑣)))
8987, 88bitr3i 276 . . . . . . . . . 10 (∃𝑡 ∈ ℝ (-𝑡𝐴 ∧ -𝑡 < -𝑣) ↔ ∃𝑧(𝑧 ∈ ℝ ∧ (𝑧𝐴𝑧 < -𝑣)))
9080, 81, 893bitr4g 314 . . . . . . . . 9 (𝐴 ⊆ ℝ → (∃𝑧𝐴 𝑧 < -𝑣 ↔ ∃𝑡 ∈ ℝ (-𝑡𝐴 ∧ -𝑡 < -𝑣)))
9190imbi2d 341 . . . . . . . 8 (𝐴 ⊆ ℝ → ((𝑥 < -𝑣 → ∃𝑧𝐴 𝑧 < -𝑣) ↔ (𝑥 < -𝑣 → ∃𝑡 ∈ ℝ (-𝑡𝐴 ∧ -𝑡 < -𝑣))))
9291ralbidv 3113 . . . . . . 7 (𝐴 ⊆ ℝ → (∀𝑣 ∈ ℝ (𝑥 < -𝑣 → ∃𝑧𝐴 𝑧 < -𝑣) ↔ ∀𝑣 ∈ ℝ (𝑥 < -𝑣 → ∃𝑡 ∈ ℝ (-𝑡𝐴 ∧ -𝑡 < -𝑣))))
9376, 92bitrid 282 . . . . . 6 (𝐴 ⊆ ℝ → (∀𝑦 ∈ ℝ (𝑥 < 𝑦 → ∃𝑧𝐴 𝑧 < 𝑦) ↔ ∀𝑣 ∈ ℝ (𝑥 < -𝑣 → ∃𝑡 ∈ ℝ (-𝑡𝐴 ∧ -𝑡 < -𝑣))))
9471, 93anbi12d 631 . . . . 5 (𝐴 ⊆ ℝ → ((∀𝑦𝐴 ¬ 𝑦 < 𝑥 ∧ ∀𝑦 ∈ ℝ (𝑥 < 𝑦 → ∃𝑧𝐴 𝑧 < 𝑦)) ↔ (∀𝑣 ∈ ℝ (-𝑣𝐴 → ¬ -𝑣 < 𝑥) ∧ ∀𝑣 ∈ ℝ (𝑥 < -𝑣 → ∃𝑡 ∈ ℝ (-𝑡𝐴 ∧ -𝑡 < -𝑣)))))
9594rexbidv 3227 . . . 4 (𝐴 ⊆ ℝ → (∃𝑥 ∈ ℝ (∀𝑦𝐴 ¬ 𝑦 < 𝑥 ∧ ∀𝑦 ∈ ℝ (𝑥 < 𝑦 → ∃𝑧𝐴 𝑧 < 𝑦)) ↔ ∃𝑥 ∈ ℝ (∀𝑣 ∈ ℝ (-𝑣𝐴 → ¬ -𝑣 < 𝑥) ∧ ∀𝑣 ∈ ℝ (𝑥 < -𝑣 → ∃𝑡 ∈ ℝ (-𝑡𝐴 ∧ -𝑡 < -𝑣)))))
96 breq2 5079 . . . . . . . . . 10 (𝑥 = -𝑢 → (-𝑣 < 𝑥 ↔ -𝑣 < -𝑢))
9796notbid 318 . . . . . . . . 9 (𝑥 = -𝑢 → (¬ -𝑣 < 𝑥 ↔ ¬ -𝑣 < -𝑢))
9897imbi2d 341 . . . . . . . 8 (𝑥 = -𝑢 → ((-𝑣𝐴 → ¬ -𝑣 < 𝑥) ↔ (-𝑣𝐴 → ¬ -𝑣 < -𝑢)))
9998ralbidv 3113 . . . . . . 7 (𝑥 = -𝑢 → (∀𝑣 ∈ ℝ (-𝑣𝐴 → ¬ -𝑣 < 𝑥) ↔ ∀𝑣 ∈ ℝ (-𝑣𝐴 → ¬ -𝑣 < -𝑢)))
100 breq1 5078 . . . . . . . . 9 (𝑥 = -𝑢 → (𝑥 < -𝑣 ↔ -𝑢 < -𝑣))
101100imbi1d 342 . . . . . . . 8 (𝑥 = -𝑢 → ((𝑥 < -𝑣 → ∃𝑡 ∈ ℝ (-𝑡𝐴 ∧ -𝑡 < -𝑣)) ↔ (-𝑢 < -𝑣 → ∃𝑡 ∈ ℝ (-𝑡𝐴 ∧ -𝑡 < -𝑣))))
102101ralbidv 3113 . . . . . . 7 (𝑥 = -𝑢 → (∀𝑣 ∈ ℝ (𝑥 < -𝑣 → ∃𝑡 ∈ ℝ (-𝑡𝐴 ∧ -𝑡 < -𝑣)) ↔ ∀𝑣 ∈ ℝ (-𝑢 < -𝑣 → ∃𝑡 ∈ ℝ (-𝑡𝐴 ∧ -𝑡 < -𝑣))))
10399, 102anbi12d 631 . . . . . 6 (𝑥 = -𝑢 → ((∀𝑣 ∈ ℝ (-𝑣𝐴 → ¬ -𝑣 < 𝑥) ∧ ∀𝑣 ∈ ℝ (𝑥 < -𝑣 → ∃𝑡 ∈ ℝ (-𝑡𝐴 ∧ -𝑡 < -𝑣))) ↔ (∀𝑣 ∈ ℝ (-𝑣𝐴 → ¬ -𝑣 < -𝑢) ∧ ∀𝑣 ∈ ℝ (-𝑢 < -𝑣 → ∃𝑡 ∈ ℝ (-𝑡𝐴 ∧ -𝑡 < -𝑣)))))
10431, 32, 103rexxfr 5340 . . . . 5 (∃𝑥 ∈ ℝ (∀𝑣 ∈ ℝ (-𝑣𝐴 → ¬ -𝑣 < 𝑥) ∧ ∀𝑣 ∈ ℝ (𝑥 < -𝑣 → ∃𝑡 ∈ ℝ (-𝑡𝐴 ∧ -𝑡 < -𝑣))) ↔ ∃𝑢 ∈ ℝ (∀𝑣 ∈ ℝ (-𝑣𝐴 → ¬ -𝑣 < -𝑢) ∧ ∀𝑣 ∈ ℝ (-𝑢 < -𝑣 → ∃𝑡 ∈ ℝ (-𝑡𝐴 ∧ -𝑡 < -𝑣))))
10539imbi1i 350 . . . . . . . . . . 11 ((𝑣 ∈ {𝑤 ∈ ℝ ∣ -𝑤𝐴} → ¬ 𝑢 < 𝑣) ↔ ((𝑣 ∈ ℝ ∧ -𝑣𝐴) → ¬ 𝑢 < 𝑣))
106 impexp 451 . . . . . . . . . . 11 (((𝑣 ∈ ℝ ∧ -𝑣𝐴) → ¬ 𝑢 < 𝑣) ↔ (𝑣 ∈ ℝ → (-𝑣𝐴 → ¬ 𝑢 < 𝑣)))
107105, 106bitri 274 . . . . . . . . . 10 ((𝑣 ∈ {𝑤 ∈ ℝ ∣ -𝑤𝐴} → ¬ 𝑢 < 𝑣) ↔ (𝑣 ∈ ℝ → (-𝑣𝐴 → ¬ 𝑢 < 𝑣)))
108107albii 1822 . . . . . . . . 9 (∀𝑣(𝑣 ∈ {𝑤 ∈ ℝ ∣ -𝑤𝐴} → ¬ 𝑢 < 𝑣) ↔ ∀𝑣(𝑣 ∈ ℝ → (-𝑣𝐴 → ¬ 𝑢 < 𝑣)))
109 df-ral 3070 . . . . . . . . 9 (∀𝑣 ∈ {𝑤 ∈ ℝ ∣ -𝑤𝐴} ¬ 𝑢 < 𝑣 ↔ ∀𝑣(𝑣 ∈ {𝑤 ∈ ℝ ∣ -𝑤𝐴} → ¬ 𝑢 < 𝑣))
110 df-ral 3070 . . . . . . . . 9 (∀𝑣 ∈ ℝ (-𝑣𝐴 → ¬ 𝑢 < 𝑣) ↔ ∀𝑣(𝑣 ∈ ℝ → (-𝑣𝐴 → ¬ 𝑢 < 𝑣)))
111108, 109, 1103bitr4ri 304 . . . . . . . 8 (∀𝑣 ∈ ℝ (-𝑣𝐴 → ¬ 𝑢 < 𝑣) ↔ ∀𝑣 ∈ {𝑤 ∈ ℝ ∣ -𝑤𝐴} ¬ 𝑢 < 𝑣)
112 ltneg 11484 . . . . . . . . . . 11 ((𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ) → (𝑢 < 𝑣 ↔ -𝑣 < -𝑢))
113112notbid 318 . . . . . . . . . 10 ((𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ) → (¬ 𝑢 < 𝑣 ↔ ¬ -𝑣 < -𝑢))
114113imbi2d 341 . . . . . . . . 9 ((𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ) → ((-𝑣𝐴 → ¬ 𝑢 < 𝑣) ↔ (-𝑣𝐴 → ¬ -𝑣 < -𝑢)))
115114ralbidva 3112 . . . . . . . 8 (𝑢 ∈ ℝ → (∀𝑣 ∈ ℝ (-𝑣𝐴 → ¬ 𝑢 < 𝑣) ↔ ∀𝑣 ∈ ℝ (-𝑣𝐴 → ¬ -𝑣 < -𝑢)))
116111, 115bitr3id 285 . . . . . . 7 (𝑢 ∈ ℝ → (∀𝑣 ∈ {𝑤 ∈ ℝ ∣ -𝑤𝐴} ¬ 𝑢 < 𝑣 ↔ ∀𝑣 ∈ ℝ (-𝑣𝐴 → ¬ -𝑣 < -𝑢)))
117 ltneg 11484 . . . . . . . . . 10 ((𝑣 ∈ ℝ ∧ 𝑢 ∈ ℝ) → (𝑣 < 𝑢 ↔ -𝑢 < -𝑣))
118117ancoms 459 . . . . . . . . 9 ((𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ) → (𝑣 < 𝑢 ↔ -𝑢 < -𝑣))
119 negeq 11222 . . . . . . . . . . . . 13 (𝑤 = 𝑡 → -𝑤 = -𝑡)
120119eleq1d 2824 . . . . . . . . . . . 12 (𝑤 = 𝑡 → (-𝑤𝐴 ↔ -𝑡𝐴))
121120rexrab 3634 . . . . . . . . . . 11 (∃𝑡 ∈ {𝑤 ∈ ℝ ∣ -𝑤𝐴}𝑣 < 𝑡 ↔ ∃𝑡 ∈ ℝ (-𝑡𝐴𝑣 < 𝑡))
122 ltneg 11484 . . . . . . . . . . . . 13 ((𝑣 ∈ ℝ ∧ 𝑡 ∈ ℝ) → (𝑣 < 𝑡 ↔ -𝑡 < -𝑣))
123122anbi2d 629 . . . . . . . . . . . 12 ((𝑣 ∈ ℝ ∧ 𝑡 ∈ ℝ) → ((-𝑡𝐴𝑣 < 𝑡) ↔ (-𝑡𝐴 ∧ -𝑡 < -𝑣)))
124123rexbidva 3226 . . . . . . . . . . 11 (𝑣 ∈ ℝ → (∃𝑡 ∈ ℝ (-𝑡𝐴𝑣 < 𝑡) ↔ ∃𝑡 ∈ ℝ (-𝑡𝐴 ∧ -𝑡 < -𝑣)))
125121, 124bitrid 282 . . . . . . . . . 10 (𝑣 ∈ ℝ → (∃𝑡 ∈ {𝑤 ∈ ℝ ∣ -𝑤𝐴}𝑣 < 𝑡 ↔ ∃𝑡 ∈ ℝ (-𝑡𝐴 ∧ -𝑡 < -𝑣)))
126125adantl 482 . . . . . . . . 9 ((𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ) → (∃𝑡 ∈ {𝑤 ∈ ℝ ∣ -𝑤𝐴}𝑣 < 𝑡 ↔ ∃𝑡 ∈ ℝ (-𝑡𝐴 ∧ -𝑡 < -𝑣)))
127118, 126imbi12d 345 . . . . . . . 8 ((𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ) → ((𝑣 < 𝑢 → ∃𝑡 ∈ {𝑤 ∈ ℝ ∣ -𝑤𝐴}𝑣 < 𝑡) ↔ (-𝑢 < -𝑣 → ∃𝑡 ∈ ℝ (-𝑡𝐴 ∧ -𝑡 < -𝑣))))
128127ralbidva 3112 . . . . . . 7 (𝑢 ∈ ℝ → (∀𝑣 ∈ ℝ (𝑣 < 𝑢 → ∃𝑡 ∈ {𝑤 ∈ ℝ ∣ -𝑤𝐴}𝑣 < 𝑡) ↔ ∀𝑣 ∈ ℝ (-𝑢 < -𝑣 → ∃𝑡 ∈ ℝ (-𝑡𝐴 ∧ -𝑡 < -𝑣))))
129116, 128anbi12d 631 . . . . . 6 (𝑢 ∈ ℝ → ((∀𝑣 ∈ {𝑤 ∈ ℝ ∣ -𝑤𝐴} ¬ 𝑢 < 𝑣 ∧ ∀𝑣 ∈ ℝ (𝑣 < 𝑢 → ∃𝑡 ∈ {𝑤 ∈ ℝ ∣ -𝑤𝐴}𝑣 < 𝑡)) ↔ (∀𝑣 ∈ ℝ (-𝑣𝐴 → ¬ -𝑣 < -𝑢) ∧ ∀𝑣 ∈ ℝ (-𝑢 < -𝑣 → ∃𝑡 ∈ ℝ (-𝑡𝐴 ∧ -𝑡 < -𝑣)))))
130129rexbiia 3181 . . . . 5 (∃𝑢 ∈ ℝ (∀𝑣 ∈ {𝑤 ∈ ℝ ∣ -𝑤𝐴} ¬ 𝑢 < 𝑣 ∧ ∀𝑣 ∈ ℝ (𝑣 < 𝑢 → ∃𝑡 ∈ {𝑤 ∈ ℝ ∣ -𝑤𝐴}𝑣 < 𝑡)) ↔ ∃𝑢 ∈ ℝ (∀𝑣 ∈ ℝ (-𝑣𝐴 → ¬ -𝑣 < -𝑢) ∧ ∀𝑣 ∈ ℝ (-𝑢 < -𝑣 → ∃𝑡 ∈ ℝ (-𝑡𝐴 ∧ -𝑡 < -𝑣))))
131104, 130bitr4i 277 . . . 4 (∃𝑥 ∈ ℝ (∀𝑣 ∈ ℝ (-𝑣𝐴 → ¬ -𝑣 < 𝑥) ∧ ∀𝑣 ∈ ℝ (𝑥 < -𝑣 → ∃𝑡 ∈ ℝ (-𝑡𝐴 ∧ -𝑡 < -𝑣))) ↔ ∃𝑢 ∈ ℝ (∀𝑣 ∈ {𝑤 ∈ ℝ ∣ -𝑤𝐴} ¬ 𝑢 < 𝑣 ∧ ∀𝑣 ∈ ℝ (𝑣 < 𝑢 → ∃𝑡 ∈ {𝑤 ∈ ℝ ∣ -𝑤𝐴}𝑣 < 𝑡)))
13295, 131bitrdi 287 . . 3 (𝐴 ⊆ ℝ → (∃𝑥 ∈ ℝ (∀𝑦𝐴 ¬ 𝑦 < 𝑥 ∧ ∀𝑦 ∈ ℝ (𝑥 < 𝑦 → ∃𝑧𝐴 𝑧 < 𝑦)) ↔ ∃𝑢 ∈ ℝ (∀𝑣 ∈ {𝑤 ∈ ℝ ∣ -𝑤𝐴} ¬ 𝑢 < 𝑣 ∧ ∀𝑣 ∈ ℝ (𝑣 < 𝑢 → ∃𝑡 ∈ {𝑤 ∈ ℝ ∣ -𝑤𝐴}𝑣 < 𝑡))))
13359, 132sylibrd 258 . 2 (𝐴 ⊆ ℝ → ((𝐴 ≠ ∅ ∧ ∃𝑥 ∈ ℝ ∀𝑦𝐴 𝑥𝑦) → ∃𝑥 ∈ ℝ (∀𝑦𝐴 ¬ 𝑦 < 𝑥 ∧ ∀𝑦 ∈ ℝ (𝑥 < 𝑦 → ∃𝑧𝐴 𝑧 < 𝑦))))
1341333impib 1115 1 ((𝐴 ⊆ ℝ ∧ 𝐴 ≠ ∅ ∧ ∃𝑥 ∈ ℝ ∀𝑦𝐴 𝑥𝑦) → ∃𝑥 ∈ ℝ (∀𝑦𝐴 ¬ 𝑦 < 𝑥 ∧ ∀𝑦 ∈ ℝ (𝑥 < 𝑦 → ∃𝑧𝐴 𝑧 < 𝑦)))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 205  wa 396  w3a 1086  wal 1537   = wceq 1539  wex 1782  wcel 2107  wne 2944  wral 3065  wrex 3066  {crab 3069  wss 3888  c0 4257   class class class wbr 5075  cr 10879   < clt 11018  cle 11019  -cneg 11215
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1798  ax-4 1812  ax-5 1914  ax-6 1972  ax-7 2012  ax-8 2109  ax-9 2117  ax-10 2138  ax-11 2155  ax-12 2172  ax-ext 2710  ax-sep 5224  ax-nul 5231  ax-pow 5289  ax-pr 5353  ax-un 7597  ax-resscn 10937  ax-1cn 10938  ax-icn 10939  ax-addcl 10940  ax-addrcl 10941  ax-mulcl 10942  ax-mulrcl 10943  ax-mulcom 10944  ax-addass 10945  ax-mulass 10946  ax-distr 10947  ax-i2m1 10948  ax-1ne0 10949  ax-1rid 10950  ax-rnegex 10951  ax-rrecex 10952  ax-cnre 10953  ax-pre-lttri 10954  ax-pre-lttrn 10955  ax-pre-ltadd 10956  ax-pre-mulgt0 10957  ax-pre-sup 10958
This theorem depends on definitions:  df-bi 206  df-an 397  df-or 845  df-3or 1087  df-3an 1088  df-tru 1542  df-fal 1552  df-ex 1783  df-nf 1787  df-sb 2069  df-mo 2541  df-eu 2570  df-clab 2717  df-cleq 2731  df-clel 2817  df-nfc 2890  df-ne 2945  df-nel 3051  df-ral 3070  df-rex 3071  df-reu 3073  df-rab 3074  df-v 3435  df-sbc 3718  df-csb 3834  df-dif 3891  df-un 3893  df-in 3895  df-ss 3905  df-nul 4258  df-if 4461  df-pw 4536  df-sn 4563  df-pr 4565  df-op 4569  df-uni 4841  df-br 5076  df-opab 5138  df-mpt 5159  df-id 5490  df-po 5504  df-so 5505  df-xp 5596  df-rel 5597  df-cnv 5598  df-co 5599  df-dm 5600  df-rn 5601  df-res 5602  df-ima 5603  df-iota 6395  df-fun 6439  df-fn 6440  df-f 6441  df-f1 6442  df-fo 6443  df-f1o 6444  df-fv 6445  df-riota 7241  df-ov 7287  df-oprab 7288  df-mpo 7289  df-er 8507  df-en 8743  df-dom 8744  df-sdom 8745  df-pnf 11020  df-mnf 11021  df-xr 11022  df-ltxr 11023  df-le 11024  df-sub 11216  df-neg 11217
This theorem is referenced by:  infrecl  11966  infrenegsup  11967  infregelb  11968  infrelb  11969  xrinfmsslem  13051  gtinf  34517  infrglb  43138
  Copyright terms: Public domain W3C validator