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

Theorem supub 9456
Description: A supremum is an upper bound. See also supcl 9455 and suplub 9457.

This proof demonstrates how to expand an iota-based definition (df-iota 6494) using riotacl2 7384.

(Contributed by NM, 12-Oct-2004.) (Proof shortened by Mario Carneiro, 24-Dec-2016.)

Hypotheses
Ref Expression
supmo.1 (𝜑𝑅 Or 𝐴)
supcl.2 (𝜑 → ∃𝑥𝐴 (∀𝑦𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦𝐴 (𝑦𝑅𝑥 → ∃𝑧𝐵 𝑦𝑅𝑧)))
Assertion
Ref Expression
supub (𝜑 → (𝐶𝐵 → ¬ sup(𝐵, 𝐴, 𝑅)𝑅𝐶))
Distinct variable groups:   𝑥,𝑦,𝑧,𝐴   𝑥,𝑅,𝑦,𝑧   𝑥,𝐵,𝑦,𝑧
Allowed substitution hints:   𝜑(𝑥,𝑦,𝑧)   𝐶(𝑥,𝑦,𝑧)

Proof of Theorem supub
Dummy variable 𝑤 is distinct from all other variables.
StepHypRef Expression
1 simpl 481 . . . . . 6 ((∀𝑦𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦𝐴 (𝑦𝑅𝑥 → ∃𝑧𝐵 𝑦𝑅𝑧)) → ∀𝑦𝐵 ¬ 𝑥𝑅𝑦)
21a1i 11 . . . . 5 (𝑥𝐴 → ((∀𝑦𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦𝐴 (𝑦𝑅𝑥 → ∃𝑧𝐵 𝑦𝑅𝑧)) → ∀𝑦𝐵 ¬ 𝑥𝑅𝑦))
32ss2rabi 4073 . . . 4 {𝑥𝐴 ∣ (∀𝑦𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦𝐴 (𝑦𝑅𝑥 → ∃𝑧𝐵 𝑦𝑅𝑧))} ⊆ {𝑥𝐴 ∣ ∀𝑦𝐵 ¬ 𝑥𝑅𝑦}
4 supmo.1 . . . . . 6 (𝜑𝑅 Or 𝐴)
54supval2 9452 . . . . 5 (𝜑 → sup(𝐵, 𝐴, 𝑅) = (𝑥𝐴 (∀𝑦𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦𝐴 (𝑦𝑅𝑥 → ∃𝑧𝐵 𝑦𝑅𝑧))))
6 supcl.2 . . . . . . 7 (𝜑 → ∃𝑥𝐴 (∀𝑦𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦𝐴 (𝑦𝑅𝑥 → ∃𝑧𝐵 𝑦𝑅𝑧)))
74, 6supeu 9451 . . . . . 6 (𝜑 → ∃!𝑥𝐴 (∀𝑦𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦𝐴 (𝑦𝑅𝑥 → ∃𝑧𝐵 𝑦𝑅𝑧)))
8 riotacl2 7384 . . . . . 6 (∃!𝑥𝐴 (∀𝑦𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦𝐴 (𝑦𝑅𝑥 → ∃𝑧𝐵 𝑦𝑅𝑧)) → (𝑥𝐴 (∀𝑦𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦𝐴 (𝑦𝑅𝑥 → ∃𝑧𝐵 𝑦𝑅𝑧))) ∈ {𝑥𝐴 ∣ (∀𝑦𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦𝐴 (𝑦𝑅𝑥 → ∃𝑧𝐵 𝑦𝑅𝑧))})
97, 8syl 17 . . . . 5 (𝜑 → (𝑥𝐴 (∀𝑦𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦𝐴 (𝑦𝑅𝑥 → ∃𝑧𝐵 𝑦𝑅𝑧))) ∈ {𝑥𝐴 ∣ (∀𝑦𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦𝐴 (𝑦𝑅𝑥 → ∃𝑧𝐵 𝑦𝑅𝑧))})
105, 9eqeltrd 2831 . . . 4 (𝜑 → sup(𝐵, 𝐴, 𝑅) ∈ {𝑥𝐴 ∣ (∀𝑦𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦𝐴 (𝑦𝑅𝑥 → ∃𝑧𝐵 𝑦𝑅𝑧))})
113, 10sselid 3979 . . 3 (𝜑 → sup(𝐵, 𝐴, 𝑅) ∈ {𝑥𝐴 ∣ ∀𝑦𝐵 ¬ 𝑥𝑅𝑦})
12 breq2 5151 . . . . . . . 8 (𝑦 = 𝑤 → (𝑥𝑅𝑦𝑥𝑅𝑤))
1312notbid 317 . . . . . . 7 (𝑦 = 𝑤 → (¬ 𝑥𝑅𝑦 ↔ ¬ 𝑥𝑅𝑤))
1413cbvralvw 3232 . . . . . 6 (∀𝑦𝐵 ¬ 𝑥𝑅𝑦 ↔ ∀𝑤𝐵 ¬ 𝑥𝑅𝑤)
15 breq1 5150 . . . . . . . 8 (𝑥 = sup(𝐵, 𝐴, 𝑅) → (𝑥𝑅𝑤 ↔ sup(𝐵, 𝐴, 𝑅)𝑅𝑤))
1615notbid 317 . . . . . . 7 (𝑥 = sup(𝐵, 𝐴, 𝑅) → (¬ 𝑥𝑅𝑤 ↔ ¬ sup(𝐵, 𝐴, 𝑅)𝑅𝑤))
1716ralbidv 3175 . . . . . 6 (𝑥 = sup(𝐵, 𝐴, 𝑅) → (∀𝑤𝐵 ¬ 𝑥𝑅𝑤 ↔ ∀𝑤𝐵 ¬ sup(𝐵, 𝐴, 𝑅)𝑅𝑤))
1814, 17bitrid 282 . . . . 5 (𝑥 = sup(𝐵, 𝐴, 𝑅) → (∀𝑦𝐵 ¬ 𝑥𝑅𝑦 ↔ ∀𝑤𝐵 ¬ sup(𝐵, 𝐴, 𝑅)𝑅𝑤))
1918elrab 3682 . . . 4 (sup(𝐵, 𝐴, 𝑅) ∈ {𝑥𝐴 ∣ ∀𝑦𝐵 ¬ 𝑥𝑅𝑦} ↔ (sup(𝐵, 𝐴, 𝑅) ∈ 𝐴 ∧ ∀𝑤𝐵 ¬ sup(𝐵, 𝐴, 𝑅)𝑅𝑤))
2019simprbi 495 . . 3 (sup(𝐵, 𝐴, 𝑅) ∈ {𝑥𝐴 ∣ ∀𝑦𝐵 ¬ 𝑥𝑅𝑦} → ∀𝑤𝐵 ¬ sup(𝐵, 𝐴, 𝑅)𝑅𝑤)
2111, 20syl 17 . 2 (𝜑 → ∀𝑤𝐵 ¬ sup(𝐵, 𝐴, 𝑅)𝑅𝑤)
22 breq2 5151 . . . 4 (𝑤 = 𝐶 → (sup(𝐵, 𝐴, 𝑅)𝑅𝑤 ↔ sup(𝐵, 𝐴, 𝑅)𝑅𝐶))
2322notbid 317 . . 3 (𝑤 = 𝐶 → (¬ sup(𝐵, 𝐴, 𝑅)𝑅𝑤 ↔ ¬ sup(𝐵, 𝐴, 𝑅)𝑅𝐶))
2423rspccv 3608 . 2 (∀𝑤𝐵 ¬ sup(𝐵, 𝐴, 𝑅)𝑅𝑤 → (𝐶𝐵 → ¬ sup(𝐵, 𝐴, 𝑅)𝑅𝐶))
2521, 24syl 17 1 (𝜑 → (𝐶𝐵 → ¬ sup(𝐵, 𝐴, 𝑅)𝑅𝐶))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wa 394   = wceq 1539  wcel 2104  wral 3059  wrex 3068  ∃!wreu 3372  {crab 3430   class class class wbr 5147   Or wor 5586  crio 7366  supcsup 9437
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1911  ax-6 1969  ax-7 2009  ax-8 2106  ax-9 2114  ax-10 2135  ax-11 2152  ax-12 2169  ax-ext 2701
This theorem depends on definitions:  df-bi 206  df-an 395  df-or 844  df-3or 1086  df-3an 1087  df-tru 1542  df-fal 1552  df-ex 1780  df-nf 1784  df-sb 2066  df-mo 2532  df-eu 2561  df-clab 2708  df-cleq 2722  df-clel 2808  df-nfc 2883  df-ne 2939  df-ral 3060  df-rex 3069  df-rmo 3374  df-reu 3375  df-rab 3431  df-v 3474  df-sbc 3777  df-dif 3950  df-un 3952  df-in 3954  df-ss 3964  df-nul 4322  df-if 4528  df-sn 4628  df-pr 4630  df-op 4634  df-uni 4908  df-br 5148  df-po 5587  df-so 5588  df-iota 6494  df-riota 7367  df-sup 9439
This theorem is referenced by:  suplub2  9458  supgtoreq  9467  supiso  9472  inflb  9486  suprub  12179  suprzub  12927  supxrun  13299  supxrub  13307  dgrub  25983  supssd  32201  ssnnssfz  32265  oddpwdc  33651  itg2addnclem  36842  supubt  36910  ssnn0ssfz  47113
  Copyright terms: Public domain W3C validator