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

Theorem eqsupti 6798
Description: Sufficient condition for an element to be equal to the supremum. (Contributed by Jim Kingdon, 23-Nov-2021.)
Hypothesis
Ref Expression
supmoti.ti  |-  ( (
ph  /\  ( u  e.  A  /\  v  e.  A ) )  -> 
( u  =  v  <-> 
( -.  u R v  /\  -.  v R u ) ) )
Assertion
Ref Expression
eqsupti  |-  ( ph  ->  ( ( C  e.  A  /\  A. y  e.  B  -.  C R y  /\  A. y  e.  A  (
y R C  ->  E. z  e.  B  y R z ) )  ->  sup ( B ,  A ,  R )  =  C ) )
Distinct variable groups:    u, A, v, y, z    y, B, z    u, R, v, y, z    ph, u, v    y, u, v, C   
u, B, v, z
Allowed substitution hints:    ph( y, z)    C( z)

Proof of Theorem eqsupti
Dummy variable  x is distinct from all other variables.
StepHypRef Expression
1 supmoti.ti . . . . 5  |-  ( (
ph  /\  ( u  e.  A  /\  v  e.  A ) )  -> 
( u  =  v  <-> 
( -.  u R v  /\  -.  v R u ) ) )
21adantlr 464 . . . 4  |-  ( ( ( ph  /\  ( C  e.  A  /\  A. y  e.  B  -.  C R y  /\  A. y  e.  A  (
y R C  ->  E. z  e.  B  y R z ) ) )  /\  ( u  e.  A  /\  v  e.  A ) )  -> 
( u  =  v  <-> 
( -.  u R v  /\  -.  v R u ) ) )
3 breq1 3878 . . . . . . . . . 10  |-  ( x  =  C  ->  (
x R y  <->  C R
y ) )
43notbid 633 . . . . . . . . 9  |-  ( x  =  C  ->  ( -.  x R y  <->  -.  C R y ) )
54ralbidv 2396 . . . . . . . 8  |-  ( x  =  C  ->  ( A. y  e.  B  -.  x R y  <->  A. y  e.  B  -.  C R y ) )
6 breq2 3879 . . . . . . . . . 10  |-  ( x  =  C  ->  (
y R x  <->  y R C ) )
76imbi1d 230 . . . . . . . . 9  |-  ( x  =  C  ->  (
( y R x  ->  E. z  e.  B  y R z )  <->  ( y R C  ->  E. z  e.  B  y R
z ) ) )
87ralbidv 2396 . . . . . . . 8  |-  ( x  =  C  ->  ( A. y  e.  A  ( y R x  ->  E. z  e.  B  y R z )  <->  A. y  e.  A  ( y R C  ->  E. z  e.  B  y R
z ) ) )
95, 8anbi12d 460 . . . . . . 7  |-  ( x  =  C  ->  (
( A. y  e.  B  -.  x R y  /\  A. y  e.  A  ( y R x  ->  E. z  e.  B  y R
z ) )  <->  ( A. y  e.  B  -.  C R y  /\  A. y  e.  A  (
y R C  ->  E. z  e.  B  y R z ) ) ) )
109rspcev 2744 . . . . . 6  |-  ( ( C  e.  A  /\  ( A. y  e.  B  -.  C R y  /\  A. y  e.  A  ( y R C  ->  E. z  e.  B  y R z ) ) )  ->  E. x  e.  A  ( A. y  e.  B  -.  x R y  /\  A. y  e.  A  (
y R x  ->  E. z  e.  B  y R z ) ) )
11103impb 1145 . . . . 5  |-  ( ( C  e.  A  /\  A. y  e.  B  -.  C R y  /\  A. y  e.  A  (
y R C  ->  E. z  e.  B  y R z ) )  ->  E. x  e.  A  ( A. y  e.  B  -.  x R y  /\  A. y  e.  A  ( y R x  ->  E. z  e.  B  y R z ) ) )
1211adantl 273 . . . 4  |-  ( (
ph  /\  ( C  e.  A  /\  A. y  e.  B  -.  C R y  /\  A. y  e.  A  (
y R C  ->  E. z  e.  B  y R z ) ) )  ->  E. x  e.  A  ( A. y  e.  B  -.  x R y  /\  A. y  e.  A  (
y R x  ->  E. z  e.  B  y R z ) ) )
132, 12supval2ti 6797 . . 3  |-  ( (
ph  /\  ( C  e.  A  /\  A. y  e.  B  -.  C R y  /\  A. y  e.  A  (
y R C  ->  E. z  e.  B  y R z ) ) )  ->  sup ( B ,  A ,  R )  =  (
iota_ x  e.  A  ( A. y  e.  B  -.  x R y  /\  A. y  e.  A  ( y R x  ->  E. z  e.  B  y R z ) ) ) )
14 3simpc 948 . . . . 5  |-  ( ( C  e.  A  /\  A. y  e.  B  -.  C R y  /\  A. y  e.  A  (
y R C  ->  E. z  e.  B  y R z ) )  ->  ( A. y  e.  B  -.  C R y  /\  A. y  e.  A  (
y R C  ->  E. z  e.  B  y R z ) ) )
1514adantl 273 . . . 4  |-  ( (
ph  /\  ( C  e.  A  /\  A. y  e.  B  -.  C R y  /\  A. y  e.  A  (
y R C  ->  E. z  e.  B  y R z ) ) )  ->  ( A. y  e.  B  -.  C R y  /\  A. y  e.  A  (
y R C  ->  E. z  e.  B  y R z ) ) )
16 simpr1 955 . . . . 5  |-  ( (
ph  /\  ( C  e.  A  /\  A. y  e.  B  -.  C R y  /\  A. y  e.  A  (
y R C  ->  E. z  e.  B  y R z ) ) )  ->  C  e.  A )
172, 12supeuti 6796 . . . . 5  |-  ( (
ph  /\  ( C  e.  A  /\  A. y  e.  B  -.  C R y  /\  A. y  e.  A  (
y R C  ->  E. z  e.  B  y R z ) ) )  ->  E! x  e.  A  ( A. y  e.  B  -.  x R y  /\  A. y  e.  A  (
y R x  ->  E. z  e.  B  y R z ) ) )
189riota2 5684 . . . . 5  |-  ( ( C  e.  A  /\  E! x  e.  A  ( A. y  e.  B  -.  x R y  /\  A. y  e.  A  ( y R x  ->  E. z  e.  B  y R z ) ) )  ->  ( ( A. y  e.  B  -.  C R y  /\  A. y  e.  A  ( y R C  ->  E. z  e.  B  y R z ) )  <-> 
( iota_ x  e.  A  ( A. y  e.  B  -.  x R y  /\  A. y  e.  A  ( y R x  ->  E. z  e.  B  y R z ) ) )  =  C ) )
1916, 17, 18syl2anc 406 . . . 4  |-  ( (
ph  /\  ( C  e.  A  /\  A. y  e.  B  -.  C R y  /\  A. y  e.  A  (
y R C  ->  E. z  e.  B  y R z ) ) )  ->  ( ( A. y  e.  B  -.  C R y  /\  A. y  e.  A  ( y R C  ->  E. z  e.  B  y R z ) )  <-> 
( iota_ x  e.  A  ( A. y  e.  B  -.  x R y  /\  A. y  e.  A  ( y R x  ->  E. z  e.  B  y R z ) ) )  =  C ) )
2015, 19mpbid 146 . . 3  |-  ( (
ph  /\  ( C  e.  A  /\  A. y  e.  B  -.  C R y  /\  A. y  e.  A  (
y R C  ->  E. z  e.  B  y R z ) ) )  ->  ( iota_ x  e.  A  ( A. y  e.  B  -.  x R y  /\  A. y  e.  A  (
y R x  ->  E. z  e.  B  y R z ) ) )  =  C )
2113, 20eqtrd 2132 . 2  |-  ( (
ph  /\  ( C  e.  A  /\  A. y  e.  B  -.  C R y  /\  A. y  e.  A  (
y R C  ->  E. z  e.  B  y R z ) ) )  ->  sup ( B ,  A ,  R )  =  C )
2221ex 114 1  |-  ( ph  ->  ( ( C  e.  A  /\  A. y  e.  B  -.  C R y  /\  A. y  e.  A  (
y R C  ->  E. z  e.  B  y R z ) )  ->  sup ( B ,  A ,  R )  =  C ) )
Colors of variables: wff set class
Syntax hints:   -. wn 3    -> wi 4    /\ wa 103    <-> wb 104    /\ w3a 930    = wceq 1299    e. wcel 1448   A.wral 2375   E.wrex 2376   E!wreu 2377   class class class wbr 3875   iota_crio 5661   supcsup 6784
This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-mp 7  ax-ia1 105  ax-ia2 106  ax-ia3 107  ax-in1 584  ax-in2 585  ax-io 671  ax-5 1391  ax-7 1392  ax-gen 1393  ax-ie1 1437  ax-ie2 1438  ax-8 1450  ax-10 1451  ax-11 1452  ax-i12 1453  ax-bndl 1454  ax-4 1455  ax-17 1474  ax-i9 1478  ax-ial 1482  ax-i5r 1483  ax-ext 2082
This theorem depends on definitions:  df-bi 116  df-3an 932  df-tru 1302  df-fal 1305  df-nf 1405  df-sb 1704  df-eu 1963  df-mo 1964  df-clab 2087  df-cleq 2093  df-clel 2096  df-nfc 2229  df-ral 2380  df-rex 2381  df-reu 2382  df-rmo 2383  df-rab 2384  df-v 2643  df-sbc 2863  df-un 3025  df-sn 3480  df-pr 3481  df-op 3483  df-uni 3684  df-br 3876  df-iota 5024  df-riota 5662  df-sup 6786
This theorem is referenced by:  eqsuptid  6799  eqinfti  6822  maxabs  10821  xrmaxif  10859  bezoutlemsup  11490
  Copyright terms: Public domain W3C validator