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

Theorem fisupcl 8722
Description: A nonempty finite set contains its supremum. (Contributed by Jeff Madsen, 9-May-2011.)
Assertion
Ref Expression
fisupcl ((𝑅 Or 𝐴 ∧ (𝐵 ∈ Fin ∧ 𝐵 ≠ ∅ ∧ 𝐵𝐴)) → sup(𝐵, 𝐴, 𝑅) ∈ 𝐵)

Proof of Theorem fisupcl
Dummy variables 𝑥 𝑦 𝑧 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 simpl 475 . . 3 ((𝑅 Or 𝐴 ∧ (𝐵 ∈ Fin ∧ 𝐵 ≠ ∅ ∧ 𝐵𝐴)) → 𝑅 Or 𝐴)
21supval2 8708 . 2 ((𝑅 Or 𝐴 ∧ (𝐵 ∈ Fin ∧ 𝐵 ≠ ∅ ∧ 𝐵𝐴)) → sup(𝐵, 𝐴, 𝑅) = (𝑥𝐴 (∀𝑦𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦𝐴 (𝑦𝑅𝑥 → ∃𝑧𝐵 𝑦𝑅𝑧))))
3 simpr3 1176 . . . 4 ((𝑅 Or 𝐴 ∧ (𝐵 ∈ Fin ∧ 𝐵 ≠ ∅ ∧ 𝐵𝐴)) → 𝐵𝐴)
4 breq2 4927 . . . . . . . . . . 11 (𝑧 = 𝑥 → (𝑦𝑅𝑧𝑦𝑅𝑥))
54rspcev 3529 . . . . . . . . . 10 ((𝑥𝐵𝑦𝑅𝑥) → ∃𝑧𝐵 𝑦𝑅𝑧)
65ex 405 . . . . . . . . 9 (𝑥𝐵 → (𝑦𝑅𝑥 → ∃𝑧𝐵 𝑦𝑅𝑧))
76ralrimivw 3127 . . . . . . . 8 (𝑥𝐵 → ∀𝑦𝐴 (𝑦𝑅𝑥 → ∃𝑧𝐵 𝑦𝑅𝑧))
87a1d 25 . . . . . . 7 (𝑥𝐵 → (∀𝑦𝐵 (𝑦𝑅𝑥 → ∃𝑧𝐵 𝑦𝑅𝑧) → ∀𝑦𝐴 (𝑦𝑅𝑥 → ∃𝑧𝐵 𝑦𝑅𝑧)))
98anim2d 602 . . . . . 6 (𝑥𝐵 → ((∀𝑦𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦𝐵 (𝑦𝑅𝑥 → ∃𝑧𝐵 𝑦𝑅𝑧)) → (∀𝑦𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦𝐴 (𝑦𝑅𝑥 → ∃𝑧𝐵 𝑦𝑅𝑧))))
109rgen 3092 . . . . 5 𝑥𝐵 ((∀𝑦𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦𝐵 (𝑦𝑅𝑥 → ∃𝑧𝐵 𝑦𝑅𝑧)) → (∀𝑦𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦𝐴 (𝑦𝑅𝑥 → ∃𝑧𝐵 𝑦𝑅𝑧)))
1110a1i 11 . . . 4 ((𝑅 Or 𝐴 ∧ (𝐵 ∈ Fin ∧ 𝐵 ≠ ∅ ∧ 𝐵𝐴)) → ∀𝑥𝐵 ((∀𝑦𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦𝐵 (𝑦𝑅𝑥 → ∃𝑧𝐵 𝑦𝑅𝑧)) → (∀𝑦𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦𝐴 (𝑦𝑅𝑥 → ∃𝑧𝐵 𝑦𝑅𝑧))))
12 soss 5339 . . . . . 6 (𝐵𝐴 → (𝑅 Or 𝐴𝑅 Or 𝐵))
133, 1, 12sylc 65 . . . . 5 ((𝑅 Or 𝐴 ∧ (𝐵 ∈ Fin ∧ 𝐵 ≠ ∅ ∧ 𝐵𝐴)) → 𝑅 Or 𝐵)
14 simpr1 1174 . . . . 5 ((𝑅 Or 𝐴 ∧ (𝐵 ∈ Fin ∧ 𝐵 ≠ ∅ ∧ 𝐵𝐴)) → 𝐵 ∈ Fin)
15 simpr2 1175 . . . . 5 ((𝑅 Or 𝐴 ∧ (𝐵 ∈ Fin ∧ 𝐵 ≠ ∅ ∧ 𝐵𝐴)) → 𝐵 ≠ ∅)
16 fisupg 8555 . . . . 5 ((𝑅 Or 𝐵𝐵 ∈ Fin ∧ 𝐵 ≠ ∅) → ∃𝑥𝐵 (∀𝑦𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦𝐵 (𝑦𝑅𝑥 → ∃𝑧𝐵 𝑦𝑅𝑧)))
1713, 14, 15, 16syl3anc 1351 . . . 4 ((𝑅 Or 𝐴 ∧ (𝐵 ∈ Fin ∧ 𝐵 ≠ ∅ ∧ 𝐵𝐴)) → ∃𝑥𝐵 (∀𝑦𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦𝐵 (𝑦𝑅𝑥 → ∃𝑧𝐵 𝑦𝑅𝑧)))
18 fisup2g 8721 . . . . . 6 ((𝑅 Or 𝐴 ∧ (𝐵 ∈ Fin ∧ 𝐵 ≠ ∅ ∧ 𝐵𝐴)) → ∃𝑥𝐵 (∀𝑦𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦𝐴 (𝑦𝑅𝑥 → ∃𝑧𝐵 𝑦𝑅𝑧)))
19 ssrexv 3918 . . . . . 6 (𝐵𝐴 → (∃𝑥𝐵 (∀𝑦𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦𝐴 (𝑦𝑅𝑥 → ∃𝑧𝐵 𝑦𝑅𝑧)) → ∃𝑥𝐴 (∀𝑦𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦𝐴 (𝑦𝑅𝑥 → ∃𝑧𝐵 𝑦𝑅𝑧))))
203, 18, 19sylc 65 . . . . 5 ((𝑅 Or 𝐴 ∧ (𝐵 ∈ Fin ∧ 𝐵 ≠ ∅ ∧ 𝐵𝐴)) → ∃𝑥𝐴 (∀𝑦𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦𝐴 (𝑦𝑅𝑥 → ∃𝑧𝐵 𝑦𝑅𝑧)))
211, 20supeu 8707 . . . 4 ((𝑅 Or 𝐴 ∧ (𝐵 ∈ Fin ∧ 𝐵 ≠ ∅ ∧ 𝐵𝐴)) → ∃!𝑥𝐴 (∀𝑦𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦𝐴 (𝑦𝑅𝑥 → ∃𝑧𝐵 𝑦𝑅𝑧)))
22 riotass2 6958 . . . 4 (((𝐵𝐴 ∧ ∀𝑥𝐵 ((∀𝑦𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦𝐵 (𝑦𝑅𝑥 → ∃𝑧𝐵 𝑦𝑅𝑧)) → (∀𝑦𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦𝐴 (𝑦𝑅𝑥 → ∃𝑧𝐵 𝑦𝑅𝑧)))) ∧ (∃𝑥𝐵 (∀𝑦𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦𝐵 (𝑦𝑅𝑥 → ∃𝑧𝐵 𝑦𝑅𝑧)) ∧ ∃!𝑥𝐴 (∀𝑦𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦𝐴 (𝑦𝑅𝑥 → ∃𝑧𝐵 𝑦𝑅𝑧)))) → (𝑥𝐵 (∀𝑦𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦𝐵 (𝑦𝑅𝑥 → ∃𝑧𝐵 𝑦𝑅𝑧))) = (𝑥𝐴 (∀𝑦𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦𝐴 (𝑦𝑅𝑥 → ∃𝑧𝐵 𝑦𝑅𝑧))))
233, 11, 17, 21, 22syl22anc 826 . . 3 ((𝑅 Or 𝐴 ∧ (𝐵 ∈ Fin ∧ 𝐵 ≠ ∅ ∧ 𝐵𝐴)) → (𝑥𝐵 (∀𝑦𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦𝐵 (𝑦𝑅𝑥 → ∃𝑧𝐵 𝑦𝑅𝑧))) = (𝑥𝐴 (∀𝑦𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦𝐴 (𝑦𝑅𝑥 → ∃𝑧𝐵 𝑦𝑅𝑧))))
2413, 17supeu 8707 . . . 4 ((𝑅 Or 𝐴 ∧ (𝐵 ∈ Fin ∧ 𝐵 ≠ ∅ ∧ 𝐵𝐴)) → ∃!𝑥𝐵 (∀𝑦𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦𝐵 (𝑦𝑅𝑥 → ∃𝑧𝐵 𝑦𝑅𝑧)))
25 riotacl 6945 . . . 4 (∃!𝑥𝐵 (∀𝑦𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦𝐵 (𝑦𝑅𝑥 → ∃𝑧𝐵 𝑦𝑅𝑧)) → (𝑥𝐵 (∀𝑦𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦𝐵 (𝑦𝑅𝑥 → ∃𝑧𝐵 𝑦𝑅𝑧))) ∈ 𝐵)
2624, 25syl 17 . . 3 ((𝑅 Or 𝐴 ∧ (𝐵 ∈ Fin ∧ 𝐵 ≠ ∅ ∧ 𝐵𝐴)) → (𝑥𝐵 (∀𝑦𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦𝐵 (𝑦𝑅𝑥 → ∃𝑧𝐵 𝑦𝑅𝑧))) ∈ 𝐵)
2723, 26eqeltrrd 2861 . 2 ((𝑅 Or 𝐴 ∧ (𝐵 ∈ Fin ∧ 𝐵 ≠ ∅ ∧ 𝐵𝐴)) → (𝑥𝐴 (∀𝑦𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦𝐴 (𝑦𝑅𝑥 → ∃𝑧𝐵 𝑦𝑅𝑧))) ∈ 𝐵)
282, 27eqeltrd 2860 1 ((𝑅 Or 𝐴 ∧ (𝐵 ∈ Fin ∧ 𝐵 ≠ ∅ ∧ 𝐵𝐴)) → sup(𝐵, 𝐴, 𝑅) ∈ 𝐵)
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wa 387  w3a 1068   = wceq 1507  wcel 2050  wne 2961  wral 3082  wrex 3083  ∃!wreu 3084  wss 3823  c0 4172   class class class wbr 4923   Or wor 5319  crio 6930  Fincfn 8300  supcsup 8693
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1758  ax-4 1772  ax-5 1869  ax-6 1928  ax-7 1965  ax-8 2052  ax-9 2059  ax-10 2079  ax-11 2093  ax-12 2106  ax-13 2301  ax-ext 2744  ax-sep 5054  ax-nul 5061  ax-pow 5113  ax-pr 5180  ax-un 7273
This theorem depends on definitions:  df-bi 199  df-an 388  df-or 834  df-3or 1069  df-3an 1070  df-tru 1510  df-ex 1743  df-nf 1747  df-sb 2016  df-mo 2547  df-eu 2584  df-clab 2753  df-cleq 2765  df-clel 2840  df-nfc 2912  df-ne 2962  df-ral 3087  df-rex 3088  df-reu 3089  df-rmo 3090  df-rab 3091  df-v 3411  df-sbc 3676  df-dif 3826  df-un 3828  df-in 3830  df-ss 3837  df-pss 3839  df-nul 4173  df-if 4345  df-pw 4418  df-sn 4436  df-pr 4438  df-tp 4440  df-op 4442  df-uni 4707  df-br 4924  df-opab 4986  df-tr 5025  df-id 5306  df-eprel 5311  df-po 5320  df-so 5321  df-fr 5360  df-we 5362  df-xp 5407  df-rel 5408  df-cnv 5409  df-co 5410  df-dm 5411  df-rn 5412  df-res 5413  df-ima 5414  df-ord 6026  df-on 6027  df-lim 6028  df-suc 6029  df-iota 6146  df-fun 6184  df-fn 6185  df-f 6186  df-f1 6187  df-fo 6188  df-f1o 6189  df-fv 6190  df-riota 6931  df-om 7391  df-1o 7899  df-er 8083  df-en 8301  df-fin 8304  df-sup 8695
This theorem is referenced by:  supgtoreq  8723  fiinfcl  8754  supfirege  11422  fseqsupcl  13154  fsuppmapnn0fiublem  13167  isercolllem2  14877  fsumcvg3  14940  mertenslem2  15095  prdsmet  22677  prdsbl  22798  mdegldg  24357  mdegcl  24360  aannenlem2  24615  ssnnssfz  30263  oddpwdc  31257  erdszelem5  32027  poimirlem31  34364  poimirlem32  34365  totbndbnd  34509  prdsbnd  34513  rencldnfilem  38813  aomclem2  39051  fisupclrnmpt  41101  limsupequzlem  41434  fourierdlem25  41848  fourierdlem31  41854  fourierdlem37  41860  etransclem48  41998  hoicvr  42261  ssnn0ssfz  43761
  Copyright terms: Public domain W3C validator