ILE Home Intuitionistic Logic Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  ILE Home  >  Th. List  >  eqsupti GIF version

Theorem eqsupti 6998
Description: Sufficient condition for an element to be equal to the supremum. (Contributed by Jim Kingdon, 23-Nov-2021.)
Hypothesis
Ref Expression
supmoti.ti ((𝜑 ∧ (𝑢𝐴𝑣𝐴)) → (𝑢 = 𝑣 ↔ (¬ 𝑢𝑅𝑣 ∧ ¬ 𝑣𝑅𝑢)))
Assertion
Ref Expression
eqsupti (𝜑 → ((𝐶𝐴 ∧ ∀𝑦𝐵 ¬ 𝐶𝑅𝑦 ∧ ∀𝑦𝐴 (𝑦𝑅𝐶 → ∃𝑧𝐵 𝑦𝑅𝑧)) → sup(𝐵, 𝐴, 𝑅) = 𝐶))
Distinct variable groups:   𝑢,𝐴,𝑣,𝑦,𝑧   𝑦,𝐵,𝑧   𝑢,𝑅,𝑣,𝑦,𝑧   𝜑,𝑢,𝑣   𝑦,𝑢,𝑣,𝐶   𝑢,𝐵,𝑣,𝑧
Allowed substitution hints:   𝜑(𝑦,𝑧)   𝐶(𝑧)

Proof of Theorem eqsupti
Dummy variable 𝑥 is distinct from all other variables.
StepHypRef Expression
1 supmoti.ti . . . . 5 ((𝜑 ∧ (𝑢𝐴𝑣𝐴)) → (𝑢 = 𝑣 ↔ (¬ 𝑢𝑅𝑣 ∧ ¬ 𝑣𝑅𝑢)))
21adantlr 477 . . . 4 (((𝜑 ∧ (𝐶𝐴 ∧ ∀𝑦𝐵 ¬ 𝐶𝑅𝑦 ∧ ∀𝑦𝐴 (𝑦𝑅𝐶 → ∃𝑧𝐵 𝑦𝑅𝑧))) ∧ (𝑢𝐴𝑣𝐴)) → (𝑢 = 𝑣 ↔ (¬ 𝑢𝑅𝑣 ∧ ¬ 𝑣𝑅𝑢)))
3 breq1 4008 . . . . . . . . . 10 (𝑥 = 𝐶 → (𝑥𝑅𝑦𝐶𝑅𝑦))
43notbid 667 . . . . . . . . 9 (𝑥 = 𝐶 → (¬ 𝑥𝑅𝑦 ↔ ¬ 𝐶𝑅𝑦))
54ralbidv 2477 . . . . . . . 8 (𝑥 = 𝐶 → (∀𝑦𝐵 ¬ 𝑥𝑅𝑦 ↔ ∀𝑦𝐵 ¬ 𝐶𝑅𝑦))
6 breq2 4009 . . . . . . . . . 10 (𝑥 = 𝐶 → (𝑦𝑅𝑥𝑦𝑅𝐶))
76imbi1d 231 . . . . . . . . 9 (𝑥 = 𝐶 → ((𝑦𝑅𝑥 → ∃𝑧𝐵 𝑦𝑅𝑧) ↔ (𝑦𝑅𝐶 → ∃𝑧𝐵 𝑦𝑅𝑧)))
87ralbidv 2477 . . . . . . . 8 (𝑥 = 𝐶 → (∀𝑦𝐴 (𝑦𝑅𝑥 → ∃𝑧𝐵 𝑦𝑅𝑧) ↔ ∀𝑦𝐴 (𝑦𝑅𝐶 → ∃𝑧𝐵 𝑦𝑅𝑧)))
95, 8anbi12d 473 . . . . . . 7 (𝑥 = 𝐶 → ((∀𝑦𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦𝐴 (𝑦𝑅𝑥 → ∃𝑧𝐵 𝑦𝑅𝑧)) ↔ (∀𝑦𝐵 ¬ 𝐶𝑅𝑦 ∧ ∀𝑦𝐴 (𝑦𝑅𝐶 → ∃𝑧𝐵 𝑦𝑅𝑧))))
109rspcev 2843 . . . . . 6 ((𝐶𝐴 ∧ (∀𝑦𝐵 ¬ 𝐶𝑅𝑦 ∧ ∀𝑦𝐴 (𝑦𝑅𝐶 → ∃𝑧𝐵 𝑦𝑅𝑧))) → ∃𝑥𝐴 (∀𝑦𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦𝐴 (𝑦𝑅𝑥 → ∃𝑧𝐵 𝑦𝑅𝑧)))
11103impb 1199 . . . . 5 ((𝐶𝐴 ∧ ∀𝑦𝐵 ¬ 𝐶𝑅𝑦 ∧ ∀𝑦𝐴 (𝑦𝑅𝐶 → ∃𝑧𝐵 𝑦𝑅𝑧)) → ∃𝑥𝐴 (∀𝑦𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦𝐴 (𝑦𝑅𝑥 → ∃𝑧𝐵 𝑦𝑅𝑧)))
1211adantl 277 . . . 4 ((𝜑 ∧ (𝐶𝐴 ∧ ∀𝑦𝐵 ¬ 𝐶𝑅𝑦 ∧ ∀𝑦𝐴 (𝑦𝑅𝐶 → ∃𝑧𝐵 𝑦𝑅𝑧))) → ∃𝑥𝐴 (∀𝑦𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦𝐴 (𝑦𝑅𝑥 → ∃𝑧𝐵 𝑦𝑅𝑧)))
132, 12supval2ti 6997 . . 3 ((𝜑 ∧ (𝐶𝐴 ∧ ∀𝑦𝐵 ¬ 𝐶𝑅𝑦 ∧ ∀𝑦𝐴 (𝑦𝑅𝐶 → ∃𝑧𝐵 𝑦𝑅𝑧))) → sup(𝐵, 𝐴, 𝑅) = (𝑥𝐴 (∀𝑦𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦𝐴 (𝑦𝑅𝑥 → ∃𝑧𝐵 𝑦𝑅𝑧))))
14 3simpc 996 . . . . 5 ((𝐶𝐴 ∧ ∀𝑦𝐵 ¬ 𝐶𝑅𝑦 ∧ ∀𝑦𝐴 (𝑦𝑅𝐶 → ∃𝑧𝐵 𝑦𝑅𝑧)) → (∀𝑦𝐵 ¬ 𝐶𝑅𝑦 ∧ ∀𝑦𝐴 (𝑦𝑅𝐶 → ∃𝑧𝐵 𝑦𝑅𝑧)))
1514adantl 277 . . . 4 ((𝜑 ∧ (𝐶𝐴 ∧ ∀𝑦𝐵 ¬ 𝐶𝑅𝑦 ∧ ∀𝑦𝐴 (𝑦𝑅𝐶 → ∃𝑧𝐵 𝑦𝑅𝑧))) → (∀𝑦𝐵 ¬ 𝐶𝑅𝑦 ∧ ∀𝑦𝐴 (𝑦𝑅𝐶 → ∃𝑧𝐵 𝑦𝑅𝑧)))
16 simpr1 1003 . . . . 5 ((𝜑 ∧ (𝐶𝐴 ∧ ∀𝑦𝐵 ¬ 𝐶𝑅𝑦 ∧ ∀𝑦𝐴 (𝑦𝑅𝐶 → ∃𝑧𝐵 𝑦𝑅𝑧))) → 𝐶𝐴)
172, 12supeuti 6996 . . . . 5 ((𝜑 ∧ (𝐶𝐴 ∧ ∀𝑦𝐵 ¬ 𝐶𝑅𝑦 ∧ ∀𝑦𝐴 (𝑦𝑅𝐶 → ∃𝑧𝐵 𝑦𝑅𝑧))) → ∃!𝑥𝐴 (∀𝑦𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦𝐴 (𝑦𝑅𝑥 → ∃𝑧𝐵 𝑦𝑅𝑧)))
189riota2 5856 . . . . 5 ((𝐶𝐴 ∧ ∃!𝑥𝐴 (∀𝑦𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦𝐴 (𝑦𝑅𝑥 → ∃𝑧𝐵 𝑦𝑅𝑧))) → ((∀𝑦𝐵 ¬ 𝐶𝑅𝑦 ∧ ∀𝑦𝐴 (𝑦𝑅𝐶 → ∃𝑧𝐵 𝑦𝑅𝑧)) ↔ (𝑥𝐴 (∀𝑦𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦𝐴 (𝑦𝑅𝑥 → ∃𝑧𝐵 𝑦𝑅𝑧))) = 𝐶))
1916, 17, 18syl2anc 411 . . . 4 ((𝜑 ∧ (𝐶𝐴 ∧ ∀𝑦𝐵 ¬ 𝐶𝑅𝑦 ∧ ∀𝑦𝐴 (𝑦𝑅𝐶 → ∃𝑧𝐵 𝑦𝑅𝑧))) → ((∀𝑦𝐵 ¬ 𝐶𝑅𝑦 ∧ ∀𝑦𝐴 (𝑦𝑅𝐶 → ∃𝑧𝐵 𝑦𝑅𝑧)) ↔ (𝑥𝐴 (∀𝑦𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦𝐴 (𝑦𝑅𝑥 → ∃𝑧𝐵 𝑦𝑅𝑧))) = 𝐶))
2015, 19mpbid 147 . . 3 ((𝜑 ∧ (𝐶𝐴 ∧ ∀𝑦𝐵 ¬ 𝐶𝑅𝑦 ∧ ∀𝑦𝐴 (𝑦𝑅𝐶 → ∃𝑧𝐵 𝑦𝑅𝑧))) → (𝑥𝐴 (∀𝑦𝐵 ¬ 𝑥𝑅𝑦 ∧ ∀𝑦𝐴 (𝑦𝑅𝑥 → ∃𝑧𝐵 𝑦𝑅𝑧))) = 𝐶)
2113, 20eqtrd 2210 . 2 ((𝜑 ∧ (𝐶𝐴 ∧ ∀𝑦𝐵 ¬ 𝐶𝑅𝑦 ∧ ∀𝑦𝐴 (𝑦𝑅𝐶 → ∃𝑧𝐵 𝑦𝑅𝑧))) → sup(𝐵, 𝐴, 𝑅) = 𝐶)
2221ex 115 1 (𝜑 → ((𝐶𝐴 ∧ ∀𝑦𝐵 ¬ 𝐶𝑅𝑦 ∧ ∀𝑦𝐴 (𝑦𝑅𝐶 → ∃𝑧𝐵 𝑦𝑅𝑧)) → sup(𝐵, 𝐴, 𝑅) = 𝐶))
Colors of variables: wff set class
Syntax hints:  ¬ wn 3  wi 4  wa 104  wb 105  w3a 978   = wceq 1353  wcel 2148  wral 2455  wrex 2456  ∃!wreu 2457   class class class wbr 4005  crio 5833  supcsup 6984
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-in1 614  ax-in2 615  ax-io 709  ax-5 1447  ax-7 1448  ax-gen 1449  ax-ie1 1493  ax-ie2 1494  ax-8 1504  ax-10 1505  ax-11 1506  ax-i12 1507  ax-bndl 1509  ax-4 1510  ax-17 1526  ax-i9 1530  ax-ial 1534  ax-i5r 1535  ax-ext 2159
This theorem depends on definitions:  df-bi 117  df-3an 980  df-tru 1356  df-fal 1359  df-nf 1461  df-sb 1763  df-eu 2029  df-mo 2030  df-clab 2164  df-cleq 2170  df-clel 2173  df-nfc 2308  df-ral 2460  df-rex 2461  df-reu 2462  df-rmo 2463  df-rab 2464  df-v 2741  df-sbc 2965  df-un 3135  df-sn 3600  df-pr 3601  df-op 3603  df-uni 3812  df-br 4006  df-iota 5180  df-riota 5834  df-sup 6986
This theorem is referenced by:  eqsuptid  6999  eqinfti  7022  maxabs  11221  xrmaxif  11262  suprzcl2dc  11959  bezoutlemsup  12013  suplociccex  14291
  Copyright terms: Public domain W3C validator