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

Theorem infm3 12280
Description: The completeness axiom for reals in terms of infimum: a nonempty, bounded-below set of reals has an infimum. Dual of sup3 12278. (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 3902 . . . . . . . . 9 (𝐴 ⊆ ℝ → (𝑣 ∈ 𝐴 → 𝑣 ∈ ℝ))
21pm4.71rd 572 . . . . . . . 8 (𝐴 ⊆ ℝ → (𝑣 ∈ 𝐴 ↔ (𝑣 ∈ ℝ ∧ 𝑣 ∈ 𝐴)))
32exbidv 1953 . . . . . . 7 (𝐴 ⊆ ℝ → (∃𝑣 𝑣 ∈ 𝐴 ↔ ∃𝑣(𝑣 ∈ ℝ ∧ 𝑣 ∈ 𝐴)))
4 df-rex 3087 . . . . . . . 8 (∃𝑣 ∈ ℝ 𝑣 ∈ 𝐴 ↔ ∃𝑣(𝑣 ∈ ℝ ∧ 𝑣 ∈ 𝐴))
5 renegcl 11625 . . . . . . . . 9 (𝑤 ∈ ℝ → -𝑤 ∈ ℝ)
6 infm3lem 12279 . . . . . . . . 9 (𝑣 ∈ ℝ → ∃𝑤 ∈ ℝ 𝑣 = -𝑤)
7 eleq1 2848 . . . . . . . . 9 (𝑣 = -𝑤 → (𝑣 ∈ 𝐴 ↔ -𝑤 ∈ 𝐴))
85, 6, 7rexxfr 5377 . . . . . . . 8 (∃𝑣 ∈ ℝ 𝑣 ∈ 𝐴 ↔ ∃𝑤 ∈ ℝ -𝑤 ∈ 𝐴)
94, 8bitr3i 280 . . . . . . 7 (∃𝑣(𝑣 ∈ ℝ ∧ 𝑣 ∈ 𝐴) ↔ ∃𝑤 ∈ ℝ -𝑤 ∈ 𝐴)
103, 9bitrdi 290 . . . . . 6 (𝐴 ⊆ ℝ → (∃𝑣 𝑣 ∈ 𝐴 ↔ ∃𝑤 ∈ ℝ -𝑤 ∈ 𝐴))
11 n0 4299 . . . . . 6 (𝐴 ≠ ∅ ↔ ∃𝑣 𝑣 ∈ 𝐴)
12 rabn0 4338 . . . . . 6 ({𝑤 ∈ ℝ ∣ -𝑤 ∈ 𝐴} ≠ ∅ ↔ ∃𝑤 ∈ ℝ -𝑤 ∈ 𝐴)
1310, 11, 123bitr4g 317 . . . . 5 (𝐴 ⊆ ℝ → (𝐴 ≠ ∅ ↔ {𝑤 ∈ ℝ ∣ -𝑤 ∈ 𝐴} ≠ ∅))
14 ssel 3902 . . . . . . . . . . . 12 (𝐴 ⊆ ℝ → (𝑦 ∈ 𝐴 → 𝑦 ∈ ℝ))
1514pm4.71rd 572 . . . . . . . . . . 11 (𝐴 ⊆ ℝ → (𝑦 ∈ 𝐴 ↔ (𝑦 ∈ ℝ ∧ 𝑦 ∈ 𝐴)))
1615imbi1d 344 . . . . . . . . . 10 (𝐴 ⊆ ℝ → ((𝑦 ∈ 𝐴 → 𝑥 ≤ 𝑦) ↔ ((𝑦 ∈ ℝ ∧ 𝑦 ∈ 𝐴) → 𝑥 ≤ 𝑦)))
17 impexp 456 . . . . . . . . . 10 (((𝑦 ∈ ℝ ∧ 𝑦 ∈ 𝐴) → 𝑥 ≤ 𝑦) ↔ (𝑦 ∈ ℝ → (𝑦 ∈ 𝐴 → 𝑥 ≤ 𝑦)))
1816, 17bitrdi 290 . . . . . . . . 9 (𝐴 ⊆ ℝ → ((𝑦 ∈ 𝐴 → 𝑥 ≤ 𝑦) ↔ (𝑦 ∈ ℝ → (𝑦 ∈ 𝐴 → 𝑥 ≤ 𝑦))))
1918albidv 1952 . . . . . . . 8 (𝐴 ⊆ ℝ → (∀𝑦(𝑦 ∈ 𝐴 → 𝑥 ≤ 𝑦) ↔ ∀𝑦(𝑦 ∈ ℝ → (𝑦 ∈ 𝐴 → 𝑥 ≤ 𝑦))))
20 df-ral 3077 . . . . . . . 8 (∀𝑦 ∈ 𝐴 𝑥 ≤ 𝑦 ↔ ∀𝑦(𝑦 ∈ 𝐴 → 𝑥 ≤ 𝑦))
21 renegcl 11625 . . . . . . . . . 10 (𝑣 ∈ ℝ → -𝑣 ∈ ℝ)
22 infm3lem 12279 . . . . . . . . . 10 (𝑦 ∈ ℝ → ∃𝑣 ∈ ℝ 𝑦 = -𝑣)
23 eleq1 2848 . . . . . . . . . . 11 (𝑦 = -𝑣 → (𝑦 ∈ 𝐴 ↔ -𝑣 ∈ 𝐴))
24 breq2 5106 . . . . . . . . . . 11 (𝑦 = -𝑣 → (𝑥 ≤ 𝑦 ↔ 𝑥 ≤ -𝑣))
2523, 24imbi12d 347 . . . . . . . . . 10 (𝑦 = -𝑣 → ((𝑦 ∈ 𝐴 → 𝑥 ≤ 𝑦) ↔ ( -𝑣 ∈ 𝐴 → 𝑥 ≤ -𝑣)))
2621, 22, 25ralxfr 5375 . . . . . . . . 9 (∀𝑦 ∈ ℝ (𝑦 ∈ 𝐴 → 𝑥 ≤ 𝑦) ↔ ∀𝑣 ∈ ℝ ( -𝑣 ∈ 𝐴 → 𝑥 ≤ -𝑣))
27 df-ral 3077 . . . . . . . . 9 (∀𝑦 ∈ ℝ (𝑦 ∈ 𝐴 → 𝑥 ≤ 𝑦) ↔ ∀𝑦(𝑦 ∈ ℝ → (𝑦 ∈ 𝐴 → 𝑥 ≤ 𝑦)))
2826, 27bitr3i 280 . . . . . . . 8 (∀𝑣 ∈ ℝ ( -𝑣 ∈ 𝐴 → 𝑥 ≤ -𝑣) ↔ ∀𝑦(𝑦 ∈ ℝ → (𝑦 ∈ 𝐴 → 𝑥 ≤ 𝑦)))
2919, 20, 283bitr4g 317 . . . . . . 7 (𝐴 ⊆ ℝ → (∀𝑦 ∈ 𝐴 𝑥 ≤ 𝑦 ↔ ∀𝑣 ∈ ℝ ( -𝑣 ∈ 𝐴 → 𝑥 ≤ -𝑣)))
3029rexbidv 3186 . . . . . 6 (𝐴 ⊆ ℝ → (∃𝑥 ∈ ℝ ∀𝑦 ∈ 𝐴 𝑥 ≤ 𝑦 ↔ ∃𝑥 ∈ ℝ ∀𝑣 ∈ ℝ ( -𝑣 ∈ 𝐴 → 𝑥 ≤ -𝑣)))
31 renegcl 11625 . . . . . . . 8 (𝑢 ∈ ℝ → -𝑢 ∈ ℝ)
32 infm3lem 12279 . . . . . . . 8 (𝑥 ∈ ℝ → ∃𝑢 ∈ ℝ 𝑥 = -𝑢)
33 breq1 5105 . . . . . . . . . 10 (𝑥 = -𝑢 → (𝑥 ≤ -𝑣 ↔ -𝑢 ≤ -𝑣))
3433imbi2d 343 . . . . . . . . 9 (𝑥 = -𝑢 → (( -𝑣 ∈ 𝐴 → 𝑥 ≤ -𝑣) ↔ ( -𝑣 ∈ 𝐴 → -𝑢 ≤ -𝑣)))
3534ralbidv 3185 . . . . . . . 8 (𝑥 = -𝑢 → (∀𝑣 ∈ ℝ ( -𝑣 ∈ 𝐴 → 𝑥 ≤ -𝑣) ↔ ∀𝑣 ∈ ℝ ( -𝑣 ∈ 𝐴 → -𝑢 ≤ -𝑣)))
3631, 32, 35rexxfr 5377 . . . . . . 7 (∃𝑥 ∈ ℝ ∀𝑣 ∈ ℝ ( -𝑣 ∈ 𝐴 → 𝑥 ≤ -𝑣) ↔ ∃𝑢 ∈ ℝ ∀𝑣 ∈ ℝ ( -𝑣 ∈ 𝐴 → -𝑢 ≤ -𝑣))
37 negeq 11553 . . . . . . . . . . . . . . 15 (𝑤 = 𝑣 → -𝑤 = -𝑣)
3837eleq1d 2845 . . . . . . . . . . . . . 14 (𝑤 = 𝑣 → ( -𝑤 ∈ 𝐴 ↔ -𝑣 ∈ 𝐴))
3938elrab 3644 . . . . . . . . . . . . 13 (𝑣 ∈ {𝑤 ∈ ℝ ∣ -𝑤 ∈ 𝐴} ↔ (𝑣 ∈ ℝ ∧ -𝑣 ∈ 𝐴))
4039imbi1i 352 . . . . . . . . . . . 12 ((𝑣 ∈ {𝑤 ∈ ℝ ∣ -𝑤 ∈ 𝐴} → 𝑣 ≤ 𝑢) ↔ ((𝑣 ∈ ℝ ∧ -𝑣 ∈ 𝐴) → 𝑣 ≤ 𝑢))
41 impexp 456 . . . . . . . . . . . 12 (((𝑣 ∈ ℝ ∧ -𝑣 ∈ 𝐴) → 𝑣 ≤ 𝑢) ↔ (𝑣 ∈ ℝ → ( -𝑣 ∈ 𝐴 → 𝑣 ≤ 𝑢)))
4240, 41bitri 278 . . . . . . . . . . 11 ((𝑣 ∈ {𝑤 ∈ ℝ ∣ -𝑤 ∈ 𝐴} → 𝑣 ≤ 𝑢) ↔ (𝑣 ∈ ℝ → ( -𝑣 ∈ 𝐴 → 𝑣 ≤ 𝑢)))
4342albii 1851 . . . . . . . . . 10 (∀𝑣(𝑣 ∈ {𝑤 ∈ ℝ ∣ -𝑤 ∈ 𝐴} → 𝑣 ≤ 𝑢) ↔ ∀𝑣(𝑣 ∈ ℝ → ( -𝑣 ∈ 𝐴 → 𝑣 ≤ 𝑢)))
44 df-ral 3077 . . . . . . . . . 10 (∀𝑣 ∈ {𝑤 ∈ ℝ ∣ -𝑤 ∈ 𝐴}𝑣 ≤ 𝑢 ↔ ∀𝑣(𝑣 ∈ {𝑤 ∈ ℝ ∣ -𝑤 ∈ 𝐴} → 𝑣 ≤ 𝑢))
45 df-ral 3077 . . . . . . . . . 10 (∀𝑣 ∈ ℝ ( -𝑣 ∈ 𝐴 → 𝑣 ≤ 𝑢) ↔ ∀𝑣(𝑣 ∈ ℝ → ( -𝑣 ∈ 𝐴 → 𝑣 ≤ 𝑢)))
4643, 44, 453bitr4ri 307 . . . . . . . . 9 (∀𝑣 ∈ ℝ ( -𝑣 ∈ 𝐴 → 𝑣 ≤ 𝑢) ↔ ∀𝑣 ∈ {𝑤 ∈ ℝ ∣ -𝑤 ∈ 𝐴}𝑣 ≤ 𝑢)
47 leneg 11823 . . . . . . . . . . . 12 ((𝑣 ∈ ℝ ∧ 𝑢 ∈ ℝ) → (𝑣 ≤ 𝑢 ↔ -𝑢 ≤ -𝑣))
4847ancoms 464 . . . . . . . . . . 11 ((𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ) → (𝑣 ≤ 𝑢 ↔ -𝑢 ≤ -𝑣))
4948imbi2d 343 . . . . . . . . . 10 ((𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ) → (( -𝑣 ∈ 𝐴 → 𝑣 ≤ 𝑢) ↔ ( -𝑣 ∈ 𝐴 → -𝑢 ≤ -𝑣)))
5049ralbidva 3183 . . . . . . . . 9 (𝑢 ∈ ℝ → (∀𝑣 ∈ ℝ ( -𝑣 ∈ 𝐴 → 𝑣 ≤ 𝑢) ↔ ∀𝑣 ∈ ℝ ( -𝑣 ∈ 𝐴 → -𝑢 ≤ -𝑣)))
5146, 50bitr3id 288 . . . . . . . 8 (𝑢 ∈ ℝ → (∀𝑣 ∈ {𝑤 ∈ ℝ ∣ -𝑤 ∈ 𝐴}𝑣 ≤ 𝑢 ↔ ∀𝑣 ∈ ℝ ( -𝑣 ∈ 𝐴 → -𝑢 ≤ -𝑣)))
5251rexbiia 3107 . . . . . . 7 (∃𝑢 ∈ ℝ ∀𝑣 ∈ {𝑤 ∈ ℝ ∣ -𝑤 ∈ 𝐴}𝑣 ≤ 𝑢 ↔ ∃𝑢 ∈ ℝ ∀𝑣 ∈ ℝ ( -𝑣 ∈ 𝐴 → -𝑢 ≤ -𝑣))
5336, 52bitr4i 281 . . . . . 6 (∃𝑥 ∈ ℝ ∀𝑣 ∈ ℝ ( -𝑣 ∈ 𝐴 → 𝑥 ≤ -𝑣) ↔ ∃𝑢 ∈ ℝ ∀𝑣 ∈ {𝑤 ∈ ℝ ∣ -𝑤 ∈ 𝐴}𝑣 ≤ 𝑢)
5430, 53bitrdi 290 . . . . 5 (𝐴 ⊆ ℝ → (∃𝑥 ∈ ℝ ∀𝑦 ∈ 𝐴 𝑥 ≤ 𝑦 ↔ ∃𝑢 ∈ ℝ ∀𝑣 ∈ {𝑤 ∈ ℝ ∣ -𝑤 ∈ 𝐴}𝑣 ≤ 𝑢))
5513, 54anbi12d 644 . . . 4 (𝐴 ⊆ ℝ → ((𝐴 ≠ ∅ ∧ ∃𝑥 ∈ ℝ ∀𝑦 ∈ 𝐴 𝑥 ≤ 𝑦) ↔ ({𝑤 ∈ ℝ ∣ -𝑤 ∈ 𝐴} ≠ ∅ ∧ ∃𝑢 ∈ ℝ ∀𝑣 ∈ {𝑤 ∈ ℝ ∣ -𝑤 ∈ 𝐴}𝑣 ≤ 𝑢)))
56 ssrab2 4005 . . . . 5 {𝑤 ∈ ℝ ∣ -𝑤 ∈ 𝐴} ⊆ ℝ
57 sup3 12278 . . . . 5 (({𝑤 ∈ ℝ ∣ -𝑤 ∈ 𝐴} ⊆ ℝ ∧ {𝑤 ∈ ℝ ∣ -𝑤 ∈ 𝐴} ≠ ∅ ∧ ∃𝑢 ∈ ℝ ∀𝑣 ∈ {𝑤 ∈ ℝ ∣ -𝑤 ∈ 𝐴}𝑣 ≤ 𝑢) → ∃𝑢 ∈ ℝ (∀𝑣 ∈ {𝑤 ∈ ℝ ∣ -𝑤 ∈ 𝐴} ¬ 𝑢 < 𝑣 ∧ ∀𝑣 ∈ ℝ (𝑣 < 𝑢 → ∃𝑡 ∈ {𝑤 ∈ ℝ ∣ -𝑤 ∈ 𝐴}𝑣 < 𝑡)))
5856, 57mp3an1 1477 . . . 4 (({𝑤 ∈ ℝ ∣ -𝑤 ∈ 𝐴} ≠ ∅ ∧ ∃𝑢 ∈ ℝ ∀𝑣 ∈ {𝑤 ∈ ℝ ∣ -𝑤 ∈ 𝐴}𝑣 ≤ 𝑢) → ∃𝑢 ∈ ℝ (∀𝑣 ∈ {𝑤 ∈ ℝ ∣ -𝑤 ∈ 𝐴} ¬ 𝑢 < 𝑣 ∧ ∀𝑣 ∈ ℝ (𝑣 < 𝑢 → ∃𝑡 ∈ {𝑤 ∈ ℝ ∣ -𝑤 ∈ 𝐴}𝑣 < 𝑡)))
5955, 58biimtrdi 256 . . 3 (𝐴 ⊆ ℝ → ((𝐴 ≠ ∅ ∧ ∃𝑥 ∈ ℝ ∀𝑦 ∈ 𝐴 𝑥 ≤ 𝑦) → ∃𝑢 ∈ ℝ (∀𝑣 ∈ {𝑤 ∈ ℝ ∣ -𝑤 ∈ 𝐴} ¬ 𝑢 < 𝑣 ∧ ∀𝑣 ∈ ℝ (𝑣 < 𝑢 → ∃𝑡 ∈ {𝑤 ∈ ℝ ∣ -𝑤 ∈ 𝐴}𝑣 < 𝑡))))
6015imbi1d 344 . . . . . . . . 9 (𝐴 ⊆ ℝ → ((𝑦 ∈ 𝐴 → ¬ 𝑦 < 𝑥) ↔ ((𝑦 ∈ ℝ ∧ 𝑦 ∈ 𝐴) → ¬ 𝑦 < 𝑥)))
61 impexp 456 . . . . . . . . 9 (((𝑦 ∈ ℝ ∧ 𝑦 ∈ 𝐴) → ¬ 𝑦 < 𝑥) ↔ (𝑦 ∈ ℝ → (𝑦 ∈ 𝐴 → ¬ 𝑦 < 𝑥)))
6260, 61bitrdi 290 . . . . . . . 8 (𝐴 ⊆ ℝ → ((𝑦 ∈ 𝐴 → ¬ 𝑦 < 𝑥) ↔ (𝑦 ∈ ℝ → (𝑦 ∈ 𝐴 → ¬ 𝑦 < 𝑥))))
6362albidv 1952 . . . . . . 7 (𝐴 ⊆ ℝ → (∀𝑦(𝑦 ∈ 𝐴 → ¬ 𝑦 < 𝑥) ↔ ∀𝑦(𝑦 ∈ ℝ → (𝑦 ∈ 𝐴 → ¬ 𝑦 < 𝑥))))
64 df-ral 3077 . . . . . . 7 (∀𝑦 ∈ 𝐴 ¬ 𝑦 < 𝑥 ↔ ∀𝑦(𝑦 ∈ 𝐴 → ¬ 𝑦 < 𝑥))
65 breq1 5105 . . . . . . . . . . 11 (𝑦 = -𝑣 → (𝑦 < 𝑥 ↔ -𝑣 < 𝑥))
6665notbid 321 . . . . . . . . . 10 (𝑦 = -𝑣 → (¬ 𝑦 < 𝑥 ↔ ¬ -𝑣 < 𝑥))
6723, 66imbi12d 347 . . . . . . . . 9 (𝑦 = -𝑣 → ((𝑦 ∈ 𝐴 → ¬ 𝑦 < 𝑥) ↔ ( -𝑣 ∈ 𝐴 → ¬ -𝑣 < 𝑥)))
6821, 22, 67ralxfr 5375 . . . . . . . 8 (∀𝑦 ∈ ℝ (𝑦 ∈ 𝐴 → ¬ 𝑦 < 𝑥) ↔ ∀𝑣 ∈ ℝ ( -𝑣 ∈ 𝐴 → ¬ -𝑣 < 𝑥))
69 df-ral 3077 . . . . . . . 8 (∀𝑦 ∈ ℝ (𝑦 ∈ 𝐴 → ¬ 𝑦 < 𝑥) ↔ ∀𝑦(𝑦 ∈ ℝ → (𝑦 ∈ 𝐴 → ¬ 𝑦 < 𝑥)))
7068, 69bitr3i 280 . . . . . . 7 (∀𝑣 ∈ ℝ ( -𝑣 ∈ 𝐴 → ¬ -𝑣 < 𝑥) ↔ ∀𝑦(𝑦 ∈ ℝ → (𝑦 ∈ 𝐴 → ¬ 𝑦 < 𝑥)))
7163, 64, 703bitr4g 317 . . . . . 6 (𝐴 ⊆ ℝ → (∀𝑦 ∈ 𝐴 ¬ 𝑦 < 𝑥 ↔ ∀𝑣 ∈ ℝ ( -𝑣 ∈ 𝐴 → ¬ -𝑣 < 𝑥)))
72 breq2 5106 . . . . . . . . 9 (𝑦 = -𝑣 → (𝑥 < 𝑦 ↔ 𝑥 < -𝑣))
73 breq2 5106 . . . . . . . . . 10 (𝑦 = -𝑣 → (𝑧 < 𝑦 ↔ 𝑧 < -𝑣))
7473rexbidv 3186 . . . . . . . . 9 (𝑦 = -𝑣 → (∃𝑧 ∈ 𝐴 𝑧 < 𝑦 ↔ ∃𝑧 ∈ 𝐴 𝑧 < -𝑣))
7572, 74imbi12d 347 . . . . . . . 8 (𝑦 = -𝑣 → ((𝑥 < 𝑦 → ∃𝑧 ∈ 𝐴 𝑧 < 𝑦) ↔ (𝑥 < -𝑣 → ∃𝑧 ∈ 𝐴 𝑧 < -𝑣)))
7621, 22, 75ralxfr 5375 . . . . . . 7 (∀𝑦 ∈ ℝ (𝑥 < 𝑦 → ∃𝑧 ∈ 𝐴 𝑧 < 𝑦) ↔ ∀𝑣 ∈ ℝ (𝑥 < -𝑣 → ∃𝑧 ∈ 𝐴 𝑧 < -𝑣))
77 ssel 3902 . . . . . . . . . . . . 13 (𝐴 ⊆ ℝ → (𝑧 ∈ 𝐴 → 𝑧 ∈ ℝ))
7877adantrd 497 . . . . . . . . . . . 12 (𝐴 ⊆ ℝ → ((𝑧 ∈ 𝐴 ∧ 𝑧 < -𝑣) → 𝑧 ∈ ℝ))
7978pm4.71rd 572 . . . . . . . . . . 11 (𝐴 ⊆ ℝ → ((𝑧 ∈ 𝐴 ∧ 𝑧 < -𝑣) ↔ (𝑧 ∈ ℝ ∧ (𝑧 ∈ 𝐴 ∧ 𝑧 < -𝑣))))
8079exbidv 1953 . . . . . . . . . 10 (𝐴 ⊆ ℝ → (∃𝑧(𝑧 ∈ 𝐴 ∧ 𝑧 < -𝑣) ↔ ∃𝑧(𝑧 ∈ ℝ ∧ (𝑧 ∈ 𝐴 ∧ 𝑧 < -𝑣))))
81 df-rex 3087 . . . . . . . . . 10 (∃𝑧 ∈ 𝐴 𝑧 < -𝑣 ↔ ∃𝑧(𝑧 ∈ 𝐴 ∧ 𝑧 < -𝑣))
82 renegcl 11625 . . . . . . . . . . . 12 (𝑡 ∈ ℝ → -𝑡 ∈ ℝ)
83 infm3lem 12279 . . . . . . . . . . . 12 (𝑧 ∈ ℝ → ∃𝑡 ∈ ℝ 𝑧 = -𝑡)
84 eleq1 2848 . . . . . . . . . . . . 13 (𝑧 = -𝑡 → (𝑧 ∈ 𝐴 ↔ -𝑡 ∈ 𝐴))
85 breq1 5105 . . . . . . . . . . . . 13 (𝑧 = -𝑡 → (𝑧 < -𝑣 ↔ -𝑡 < -𝑣))
8684, 85anbi12d 644 . . . . . . . . . . . 12 (𝑧 = -𝑡 → ((𝑧 ∈ 𝐴 ∧ 𝑧 < -𝑣) ↔ ( -𝑡 ∈ 𝐴 ∧ -𝑡 < -𝑣)))
8782, 83, 86rexxfr 5377 . . . . . . . . . . 11 (∃𝑧 ∈ ℝ (𝑧 ∈ 𝐴 ∧ 𝑧 < -𝑣) ↔ ∃𝑡 ∈ ℝ ( -𝑡 ∈ 𝐴 ∧ -𝑡 < -𝑣))
88 df-rex 3087 . . . . . . . . . . 11 (∃𝑧 ∈ ℝ (𝑧 ∈ 𝐴 ∧ 𝑧 < -𝑣) ↔ ∃𝑧(𝑧 ∈ ℝ ∧ (𝑧 ∈ 𝐴 ∧ 𝑧 < -𝑣)))
8987, 88bitr3i 280 . . . . . . . . . 10 (∃𝑡 ∈ ℝ ( -𝑡 ∈ 𝐴 ∧ -𝑡 < -𝑣) ↔ ∃𝑧(𝑧 ∈ ℝ ∧ (𝑧 ∈ 𝐴 ∧ 𝑧 < -𝑣)))
9080, 81, 893bitr4g 317 . . . . . . . . 9 (𝐴 ⊆ ℝ → (∃𝑧 ∈ 𝐴 𝑧 < -𝑣 ↔ ∃𝑡 ∈ ℝ ( -𝑡 ∈ 𝐴 ∧ -𝑡 < -𝑣)))
9190imbi2d 343 . . . . . . . 8 (𝐴 ⊆ ℝ → ((𝑥 < -𝑣 → ∃𝑧 ∈ 𝐴 𝑧 < -𝑣) ↔ (𝑥 < -𝑣 → ∃𝑡 ∈ ℝ ( -𝑡 ∈ 𝐴 ∧ -𝑡 < -𝑣))))
9291ralbidv 3185 . . . . . . 7 (𝐴 ⊆ ℝ → (∀𝑣 ∈ ℝ (𝑥 < -𝑣 → ∃𝑧 ∈ 𝐴 𝑧 < -𝑣) ↔ ∀𝑣 ∈ ℝ (𝑥 < -𝑣 → ∃𝑡 ∈ ℝ ( -𝑡 ∈ 𝐴 ∧ -𝑡 < -𝑣))))
9376, 92bitrid 286 . . . . . 6 (𝐴 ⊆ ℝ → (∀𝑦 ∈ ℝ (𝑥 < 𝑦 → ∃𝑧 ∈ 𝐴 𝑧 < 𝑦) ↔ ∀𝑣 ∈ ℝ (𝑥 < -𝑣 → ∃𝑡 ∈ ℝ ( -𝑡 ∈ 𝐴 ∧ -𝑡 < -𝑣))))
9471, 93anbi12d 644 . . . . 5 (𝐴 ⊆ ℝ → ((∀𝑦 ∈ 𝐴 ¬ 𝑦 < 𝑥 ∧ ∀𝑦 ∈ ℝ (𝑥 < 𝑦 → ∃𝑧 ∈ 𝐴 𝑧 < 𝑦)) ↔ (∀𝑣 ∈ ℝ ( -𝑣 ∈ 𝐴 → ¬ -𝑣 < 𝑥) ∧ ∀𝑣 ∈ ℝ (𝑥 < -𝑣 → ∃𝑡 ∈ ℝ ( -𝑡 ∈ 𝐴 ∧ -𝑡 < -𝑣)))))
9594rexbidv 3186 . . . 4 (𝐴 ⊆ ℝ → (∃𝑥 ∈ ℝ (∀𝑦 ∈ 𝐴 ¬ 𝑦 < 𝑥 ∧ ∀𝑦 ∈ ℝ (𝑥 < 𝑦 → ∃𝑧 ∈ 𝐴 𝑧 < 𝑦)) ↔ ∃𝑥 ∈ ℝ (∀𝑣 ∈ ℝ ( -𝑣 ∈ 𝐴 → ¬ -𝑣 < 𝑥) ∧ ∀𝑣 ∈ ℝ (𝑥 < -𝑣 → ∃𝑡 ∈ ℝ ( -𝑡 ∈ 𝐴 ∧ -𝑡 < -𝑣)))))
96 breq2 5106 . . . . . . . . . 10 (𝑥 = -𝑢 → ( -𝑣 < 𝑥 ↔ -𝑣 < -𝑢))
9796notbid 321 . . . . . . . . 9 (𝑥 = -𝑢 → (¬ -𝑣 < 𝑥 ↔ ¬ -𝑣 < -𝑢))
9897imbi2d 343 . . . . . . . 8 (𝑥 = -𝑢 → (( -𝑣 ∈ 𝐴 → ¬ -𝑣 < 𝑥) ↔ ( -𝑣 ∈ 𝐴 → ¬ -𝑣 < -𝑢)))
9998ralbidv 3185 . . . . . . 7 (𝑥 = -𝑢 → (∀𝑣 ∈ ℝ ( -𝑣 ∈ 𝐴 → ¬ -𝑣 < 𝑥) ↔ ∀𝑣 ∈ ℝ ( -𝑣 ∈ 𝐴 → ¬ -𝑣 < -𝑢)))
100 breq1 5105 . . . . . . . . 9 (𝑥 = -𝑢 → (𝑥 < -𝑣 ↔ -𝑢 < -𝑣))
101100imbi1d 344 . . . . . . . 8 (𝑥 = -𝑢 → ((𝑥 < -𝑣 → ∃𝑡 ∈ ℝ ( -𝑡 ∈ 𝐴 ∧ -𝑡 < -𝑣)) ↔ ( -𝑢 < -𝑣 → ∃𝑡 ∈ ℝ ( -𝑡 ∈ 𝐴 ∧ -𝑡 < -𝑣))))
102101ralbidv 3185 . . . . . . 7 (𝑥 = -𝑢 → (∀𝑣 ∈ ℝ (𝑥 < -𝑣 → ∃𝑡 ∈ ℝ ( -𝑡 ∈ 𝐴 ∧ -𝑡 < -𝑣)) ↔ ∀𝑣 ∈ ℝ ( -𝑢 < -𝑣 → ∃𝑡 ∈ ℝ ( -𝑡 ∈ 𝐴 ∧ -𝑡 < -𝑣))))
10399, 102anbi12d 644 . . . . . 6 (𝑥 = -𝑢 → ((∀𝑣 ∈ ℝ ( -𝑣 ∈ 𝐴 → ¬ -𝑣 < 𝑥) ∧ ∀𝑣 ∈ ℝ (𝑥 < -𝑣 → ∃𝑡 ∈ ℝ ( -𝑡 ∈ 𝐴 ∧ -𝑡 < -𝑣))) ↔ (∀𝑣 ∈ ℝ ( -𝑣 ∈ 𝐴 → ¬ -𝑣 < -𝑢) ∧ ∀𝑣 ∈ ℝ ( -𝑢 < -𝑣 → ∃𝑡 ∈ ℝ ( -𝑡 ∈ 𝐴 ∧ -𝑡 < -𝑣)))))
10431, 32, 103rexxfr 5377 . . . . 5 (∃𝑥 ∈ ℝ (∀𝑣 ∈ ℝ ( -𝑣 ∈ 𝐴 → ¬ -𝑣 < 𝑥) ∧ ∀𝑣 ∈ ℝ (𝑥 < -𝑣 → ∃𝑡 ∈ ℝ ( -𝑡 ∈ 𝐴 ∧ -𝑡 < -𝑣))) ↔ ∃𝑢 ∈ ℝ (∀𝑣 ∈ ℝ ( -𝑣 ∈ 𝐴 → ¬ -𝑣 < -𝑢) ∧ ∀𝑣 ∈ ℝ ( -𝑢 < -𝑣 → ∃𝑡 ∈ ℝ ( -𝑡 ∈ 𝐴 ∧ -𝑡 < -𝑣))))
10539imbi1i 352 . . . . . . . . . . 11 ((𝑣 ∈ {𝑤 ∈ ℝ ∣ -𝑤 ∈ 𝐴} → ¬ 𝑢 < 𝑣) ↔ ((𝑣 ∈ ℝ ∧ -𝑣 ∈ 𝐴) → ¬ 𝑢 < 𝑣))
106 impexp 456 . . . . . . . . . . 11 (((𝑣 ∈ ℝ ∧ -𝑣 ∈ 𝐴) → ¬ 𝑢 < 𝑣) ↔ (𝑣 ∈ ℝ → ( -𝑣 ∈ 𝐴 → ¬ 𝑢 < 𝑣)))
107105, 106bitri 278 . . . . . . . . . 10 ((𝑣 ∈ {𝑤 ∈ ℝ ∣ -𝑤 ∈ 𝐴} → ¬ 𝑢 < 𝑣) ↔ (𝑣 ∈ ℝ → ( -𝑣 ∈ 𝐴 → ¬ 𝑢 < 𝑣)))
108107albii 1851 . . . . . . . . 9 (∀𝑣(𝑣 ∈ {𝑤 ∈ ℝ ∣ -𝑤 ∈ 𝐴} → ¬ 𝑢 < 𝑣) ↔ ∀𝑣(𝑣 ∈ ℝ → ( -𝑣 ∈ 𝐴 → ¬ 𝑢 < 𝑣)))
109 df-ral 3077 . . . . . . . . 9 (∀𝑣 ∈ {𝑤 ∈ ℝ ∣ -𝑤 ∈ 𝐴} ¬ 𝑢 < 𝑣 ↔ ∀𝑣(𝑣 ∈ {𝑤 ∈ ℝ ∣ -𝑤 ∈ 𝐴} → ¬ 𝑢 < 𝑣))
110 df-ral 3077 . . . . . . . . 9 (∀𝑣 ∈ ℝ ( -𝑣 ∈ 𝐴 → ¬ 𝑢 < 𝑣) ↔ ∀𝑣(𝑣 ∈ ℝ → ( -𝑣 ∈ 𝐴 → ¬ 𝑢 < 𝑣)))
111108, 109, 1103bitr4ri 307 . . . . . . . 8 (∀𝑣 ∈ ℝ ( -𝑣 ∈ 𝐴 → ¬ 𝑢 < 𝑣) ↔ ∀𝑣 ∈ {𝑤 ∈ ℝ ∣ -𝑤 ∈ 𝐴} ¬ 𝑢 < 𝑣)
112 ltneg 11820 . . . . . . . . . . 11 ((𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ) → (𝑢 < 𝑣 ↔ -𝑣 < -𝑢))
113112notbid 321 . . . . . . . . . 10 ((𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ) → (¬ 𝑢 < 𝑣 ↔ ¬ -𝑣 < -𝑢))
114113imbi2d 343 . . . . . . . . 9 ((𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ) → (( -𝑣 ∈ 𝐴 → ¬ 𝑢 < 𝑣) ↔ ( -𝑣 ∈ 𝐴 → ¬ -𝑣 < -𝑢)))
115114ralbidva 3183 . . . . . . . 8 (𝑢 ∈ ℝ → (∀𝑣 ∈ ℝ ( -𝑣 ∈ 𝐴 → ¬ 𝑢 < 𝑣) ↔ ∀𝑣 ∈ ℝ ( -𝑣 ∈ 𝐴 → ¬ -𝑣 < -𝑢)))
116111, 115bitr3id 288 . . . . . . 7 (𝑢 ∈ ℝ → (∀𝑣 ∈ {𝑤 ∈ ℝ ∣ -𝑤 ∈ 𝐴} ¬ 𝑢 < 𝑣 ↔ ∀𝑣 ∈ ℝ ( -𝑣 ∈ 𝐴 → ¬ -𝑣 < -𝑢)))
117 ltneg 11820 . . . . . . . . . 10 ((𝑣 ∈ ℝ ∧ 𝑢 ∈ ℝ) → (𝑣 < 𝑢 ↔ -𝑢 < -𝑣))
118117ancoms 464 . . . . . . . . 9 ((𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ) → (𝑣 < 𝑢 ↔ -𝑢 < -𝑣))
119 negeq 11553 . . . . . . . . . . . . 13 (𝑤 = 𝑡 → -𝑤 = -𝑡)
120119eleq1d 2845 . . . . . . . . . . . 12 (𝑤 = 𝑡 → ( -𝑤 ∈ 𝐴 ↔ -𝑡 ∈ 𝐴))
121120rexrab 3653 . . . . . . . . . . 11 (∃𝑡 ∈ {𝑤 ∈ ℝ ∣ -𝑤 ∈ 𝐴}𝑣 < 𝑡 ↔ ∃𝑡 ∈ ℝ ( -𝑡 ∈ 𝐴 ∧ 𝑣 < 𝑡))
122 ltneg 11820 . . . . . . . . . . . . 13 ((𝑣 ∈ ℝ ∧ 𝑡 ∈ ℝ) → (𝑣 < 𝑡 ↔ -𝑡 < -𝑣))
123122anbi2d 642 . . . . . . . . . . . 12 ((𝑣 ∈ ℝ ∧ 𝑡 ∈ ℝ) → (( -𝑡 ∈ 𝐴 ∧ 𝑣 < 𝑡) ↔ ( -𝑡 ∈ 𝐴 ∧ -𝑡 < -𝑣)))
124123rexbidva 3184 . . . . . . . . . . 11 (𝑣 ∈ ℝ → (∃𝑡 ∈ ℝ ( -𝑡 ∈ 𝐴 ∧ 𝑣 < 𝑡) ↔ ∃𝑡 ∈ ℝ ( -𝑡 ∈ 𝐴 ∧ -𝑡 < -𝑣)))
125121, 124bitrid 286 . . . . . . . . . 10 (𝑣 ∈ ℝ → (∃𝑡 ∈ {𝑤 ∈ ℝ ∣ -𝑤 ∈ 𝐴}𝑣 < 𝑡 ↔ ∃𝑡 ∈ ℝ ( -𝑡 ∈ 𝐴 ∧ -𝑡 < -𝑣)))
126125adantl 487 . . . . . . . . 9 ((𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ) → (∃𝑡 ∈ {𝑤 ∈ ℝ ∣ -𝑤 ∈ 𝐴}𝑣 < 𝑡 ↔ ∃𝑡 ∈ ℝ ( -𝑡 ∈ 𝐴 ∧ -𝑡 < -𝑣)))
127118, 126imbi12d 347 . . . . . . . 8 ((𝑢 ∈ ℝ ∧ 𝑣 ∈ ℝ) → ((𝑣 < 𝑢 → ∃𝑡 ∈ {𝑤 ∈ ℝ ∣ -𝑤 ∈ 𝐴}𝑣 < 𝑡) ↔ ( -𝑢 < -𝑣 → ∃𝑡 ∈ ℝ ( -𝑡 ∈ 𝐴 ∧ -𝑡 < -𝑣))))
128127ralbidva 3183 . . . . . . 7 (𝑢 ∈ ℝ → (∀𝑣 ∈ ℝ (𝑣 < 𝑢 → ∃𝑡 ∈ {𝑤 ∈ ℝ ∣ -𝑤 ∈ 𝐴}𝑣 < 𝑡) ↔ ∀𝑣 ∈ ℝ ( -𝑢 < -𝑣 → ∃𝑡 ∈ ℝ ( -𝑡 ∈ 𝐴 ∧ -𝑡 < -𝑣))))
129116, 128anbi12d 644 . . . . . 6 (𝑢 ∈ ℝ → ((∀𝑣 ∈ {𝑤 ∈ ℝ ∣ -𝑤 ∈ 𝐴} ¬ 𝑢 < 𝑣 ∧ ∀𝑣 ∈ ℝ (𝑣 < 𝑢 → ∃𝑡 ∈ {𝑤 ∈ ℝ ∣ -𝑤 ∈ 𝐴}𝑣 < 𝑡)) ↔ (∀𝑣 ∈ ℝ ( -𝑣 ∈ 𝐴 → ¬ -𝑣 < -𝑢) ∧ ∀𝑣 ∈ ℝ ( -𝑢 < -𝑣 → ∃𝑡 ∈ ℝ ( -𝑡 ∈ 𝐴 ∧ -𝑡 < -𝑣)))))
130129rexbiia 3107 . . . . 5 (∃𝑢 ∈ ℝ (∀𝑣 ∈ {𝑤 ∈ ℝ ∣ -𝑤 ∈ 𝐴} ¬ 𝑢 < 𝑣 ∧ ∀𝑣 ∈ ℝ (𝑣 < 𝑢 → ∃𝑡 ∈ {𝑤 ∈ ℝ ∣ -𝑤 ∈ 𝐴}𝑣 < 𝑡)) ↔ ∃𝑢 ∈ ℝ (∀𝑣 ∈ ℝ ( -𝑣 ∈ 𝐴 → ¬ -𝑣 < -𝑢) ∧ ∀𝑣 ∈ ℝ ( -𝑢 < -𝑣 → ∃𝑡 ∈ ℝ ( -𝑡 ∈ 𝐴 ∧ -𝑡 < -𝑣))))
131104, 130bitr4i 281 . . . 4 (∃𝑥 ∈ ℝ (∀𝑣 ∈ ℝ ( -𝑣 ∈ 𝐴 → ¬ -𝑣 < 𝑥) ∧ ∀𝑣 ∈ ℝ (𝑥 < -𝑣 → ∃𝑡 ∈ ℝ ( -𝑡 ∈ 𝐴 ∧ -𝑡 < -𝑣))) ↔ ∃𝑢 ∈ ℝ (∀𝑣 ∈ {𝑤 ∈ ℝ ∣ -𝑤 ∈ 𝐴} ¬ 𝑢 < 𝑣 ∧ ∀𝑣 ∈ ℝ (𝑣 < 𝑢 → ∃𝑡 ∈ {𝑤 ∈ ℝ ∣ -𝑤 ∈ 𝐴}𝑣 < 𝑡)))
13295, 131bitrdi 290 . . 3 (𝐴 ⊆ ℝ → (∃𝑥 ∈ ℝ (∀𝑦 ∈ 𝐴 ¬ 𝑦 < 𝑥 ∧ ∀𝑦 ∈ ℝ (𝑥 < 𝑦 → ∃𝑧 ∈ 𝐴 𝑧 < 𝑦)) ↔ ∃𝑢 ∈ ℝ (∀𝑣 ∈ {𝑤 ∈ ℝ ∣ -𝑤 ∈ 𝐴} ¬ 𝑢 < 𝑣 ∧ ∀𝑣 ∈ ℝ (𝑣 < 𝑢 → ∃𝑡 ∈ {𝑤 ∈ ℝ ∣ -𝑤 ∈ 𝐴}𝑣 < 𝑡))))
13359, 132sylibrd 262 . 2 (𝐴 ⊆ ℝ → ((𝐴 ≠ ∅ ∧ ∃𝑥 ∈ ℝ ∀𝑦 ∈ 𝐴 𝑥 ≤ 𝑦) → ∃𝑥 ∈ ℝ (∀𝑦 ∈ 𝐴 ¬ 𝑦 < 𝑥 ∧ ∀𝑦 ∈ ℝ (𝑥 < 𝑦 → ∃𝑧 ∈ 𝐴 𝑧 < 𝑦))))
1341333impib 1134 1 ((𝐴 ⊆ ℝ ∧ 𝐴 ≠ ∅ ∧ ∃𝑥 ∈ ℝ ∀𝑦 ∈ 𝐴 𝑥 ≤ 𝑦) → ∃𝑥 ∈ ℝ (∀𝑦 ∈ 𝐴 ¬ 𝑦 < 𝑥 ∧ ∀𝑦 ∈ ℝ (𝑥 < 𝑦 → ∃𝑧 ∈ 𝐴 𝑧 < 𝑦)))
Colors of variables:    wff setvar class
This proof depends on syntax axioms:  ¬ wn 3   → wi 4   ↔ wb 209   ∧ wa 401   ∧ w3a 1103  ∀wal 1567   = wceq 1569  ∃wex 1811   ∈ wcel 2144   ≠ wne 2955  ∀wral 3076  ∃wrex 3086  {crab 3412   ⊆ wss 3895  ∅c0 4278   class class class wbr 5102  ℝcr 11203   < clt 11347   ≤ cle 11348   -cneg 11546
This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1827  ax-4 1841  ax-5 1942  ax-6 1999  ax-7 2040  ax-8 2146  ax-9 2154  ax-10 2177  ax-11 2193  ax-12 2212  ax-ext 2732  ax-sep 5248  ax-nul 5259  ax-pow 5326  ax-pr 5390  ax-un 7752  ax-resscn 11261  ax-1cn 11262  ax-icn 11263  ax-addcl 11264  ax-addrcl 11265  ax-mulcl 11266  ax-mulrcl 11267  ax-mulcom 11268  ax-addass 11269  ax-mulass 11270  ax-distr 11271  ax-i2m1 11272  ax-1ne0 11273  ax-1rid 11274  ax-rnegex 11275  ax-rrecex 11276  ax-cnre 11277  ax-pre-lttri 11278  ax-pre-lttrn 11279  ax-pre-ltadd 11280  ax-pre-mulgt0 11281  ax-pre-sup 11282
This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1572  df-fal 1582  df-ex 1812  df-nf 1816  df-sb 2099  df-mo 2564  df-eu 2594  df-clab 2739  df-cleq 2752  df-clel 2835  df-nfc 2909  df-ne 2956  df-nel 3062  df-ral 3077  df-rex 3087  df-reu 3366  df-rab 3413  df-v 3452  df-sbc 3739  df-csb 3847  df-ss 3896  df-dif 4047  df-in 4091  df-un 4151  df-nul 4279  df-if 4482  df-pw 4558  df-sn 4585  df-pr 4587  df-op 4835  df-uni 4867  df-br 5103  df-opab 5167  df-mpt 5186  df-id 5545  df-po 5558  df-so 5559  df-xp 5656  df-rel 5657  df-cnv 5658  df-co 5659  df-dm 5660  df-rn 5661  df-res 5662  df-ima 5663  df-iota 6494  df-fun 6541  df-fn 6542  df-f 6543  df-f1 6544  df-fo 6545  df-f1o 6546  df-fv 6547  df-riota 7378  df-ov 7424  df-oprab 7425  df-mpo 7426  df-er 8721  df-en 8978  df-dom 8979  df-sdom 8980  df-pnf 11349  df-mnf 11350  df-xr 11351  df-ltxr 11352  df-le 11353  df-sub 11547  df-neg 11548
This theorem is used by:  infrecl  12303  infrenegsup  12304  infregelb  12305  infrelb  12306  xrinfmsslem  13442  gtinf  37200  infrglb  46696
  Copyright terms: Public domain W3C validator