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

Theorem supmoti 6846
Description: Any class  B has at most one supremum in  A (where  R is interpreted as 'less than'). The hypothesis is satisfied by real numbers (see lttri3 7808) or other orders which correspond to tight apartnesses. (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
supmoti  |-  ( ph  ->  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 ) ) )
Distinct variable groups:    u, A, v, x    y, A, x, z    x, B, y, z    u, R, v, x    y, R, z    ph, u, v, x
Allowed substitution hints:    ph( y, z)    B( v, u)

Proof of Theorem supmoti
Dummy variable  w is distinct from all other variables.
StepHypRef Expression
1 ancom 264 . . . . . . 7  |-  ( ( A. y  e.  B  -.  x R y  /\  A. y  e.  B  -.  w R y )  <->  ( A. y  e.  B  -.  w R y  /\  A. y  e.  B  -.  x R y ) )
21anbi2ci 452 . . . . . 6  |-  ( ( ( A. y  e.  B  -.  x R y  /\  A. y  e.  B  -.  w R y )  /\  ( A. y  e.  A  ( y R w  ->  E. z  e.  B  y R z )  /\  A. y  e.  A  ( y R x  ->  E. z  e.  B  y R z ) ) )  <->  ( ( A. y  e.  A  (
y R w  ->  E. z  e.  B  y R z )  /\  A. y  e.  A  ( y R x  ->  E. z  e.  B  y R z ) )  /\  ( A. y  e.  B  -.  w R y  /\  A. y  e.  B  -.  x R y ) ) )
3 an42 559 . . . . . 6  |-  ( ( ( 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  -.  w R y  /\  A. y  e.  A  ( y R w  ->  E. z  e.  B  y R z ) ) )  <->  ( ( A. y  e.  B  -.  x R y  /\  A. y  e.  B  -.  w R y )  /\  ( A. y  e.  A  ( y R w  ->  E. z  e.  B  y R z )  /\  A. y  e.  A  ( y R x  ->  E. z  e.  B  y R z ) ) ) )
4 an42 559 . . . . . 6  |-  ( ( ( A. y  e.  A  ( y R w  ->  E. z  e.  B  y R
z )  /\  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  -.  w R y ) )  <-> 
( ( A. y  e.  A  ( y R w  ->  E. z  e.  B  y R
z )  /\  A. y  e.  A  (
y R x  ->  E. z  e.  B  y R z ) )  /\  ( A. y  e.  B  -.  w R y  /\  A. y  e.  B  -.  x R y ) ) )
52, 3, 43bitr4i 211 . . . . 5  |-  ( ( ( 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  -.  w R y  /\  A. y  e.  A  ( y R w  ->  E. z  e.  B  y R z ) ) )  <->  ( ( A. y  e.  A  (
y R w  ->  E. z  e.  B  y R z )  /\  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  -.  w R y ) ) )
6 ralnex 2401 . . . . . . . . 9  |-  ( A. y  e.  B  -.  x R y  <->  -.  E. y  e.  B  x R
y )
7 breq1 3900 . . . . . . . . . . . . 13  |-  ( y  =  x  ->  (
y R w  <->  x R w ) )
8 breq1 3900 . . . . . . . . . . . . . 14  |-  ( y  =  x  ->  (
y R z  <->  x R
z ) )
98rexbidv 2413 . . . . . . . . . . . . 13  |-  ( y  =  x  ->  ( E. z  e.  B  y R z  <->  E. z  e.  B  x R
z ) )
107, 9imbi12d 233 . . . . . . . . . . . 12  |-  ( y  =  x  ->  (
( y R w  ->  E. z  e.  B  y R z )  <->  ( x R w  ->  E. z  e.  B  x R
z ) ) )
1110rspcva 2759 . . . . . . . . . . 11  |-  ( ( x  e.  A  /\  A. y  e.  A  ( y R w  ->  E. z  e.  B  y R z ) )  ->  ( x R w  ->  E. z  e.  B  x R
z ) )
12 breq2 3901 . . . . . . . . . . . 12  |-  ( y  =  z  ->  (
x R y  <->  x R
z ) )
1312cbvrexv 2630 . . . . . . . . . . 11  |-  ( E. y  e.  B  x R y  <->  E. z  e.  B  x R
z )
1411, 13syl6ibr 161 . . . . . . . . . 10  |-  ( ( x  e.  A  /\  A. y  e.  A  ( y R w  ->  E. z  e.  B  y R z ) )  ->  ( x R w  ->  E. y  e.  B  x R
y ) )
1514con3d 603 . . . . . . . . 9  |-  ( ( x  e.  A  /\  A. y  e.  A  ( y R w  ->  E. z  e.  B  y R z ) )  ->  ( -.  E. y  e.  B  x R y  ->  -.  x R w ) )
166, 15syl5bi 151 . . . . . . . 8  |-  ( ( x  e.  A  /\  A. y  e.  A  ( y R w  ->  E. z  e.  B  y R z ) )  ->  ( A. y  e.  B  -.  x R y  ->  -.  x R w ) )
1716expimpd 358 . . . . . . 7  |-  ( x  e.  A  ->  (
( A. y  e.  A  ( y R w  ->  E. z  e.  B  y R
z )  /\  A. y  e.  B  -.  x R y )  ->  -.  x R w ) )
1817ad2antrl 479 . . . . . 6  |-  ( (
ph  /\  ( x  e.  A  /\  w  e.  A ) )  -> 
( ( A. y  e.  A  ( y R w  ->  E. z  e.  B  y R
z )  /\  A. y  e.  B  -.  x R y )  ->  -.  x R w ) )
19 ralnex 2401 . . . . . . . . 9  |-  ( A. y  e.  B  -.  w R y  <->  -.  E. y  e.  B  w R
y )
20 breq1 3900 . . . . . . . . . . . . 13  |-  ( y  =  w  ->  (
y R x  <->  w R x ) )
21 breq1 3900 . . . . . . . . . . . . . 14  |-  ( y  =  w  ->  (
y R z  <->  w R
z ) )
2221rexbidv 2413 . . . . . . . . . . . . 13  |-  ( y  =  w  ->  ( E. z  e.  B  y R z  <->  E. z  e.  B  w R
z ) )
2320, 22imbi12d 233 . . . . . . . . . . . 12  |-  ( y  =  w  ->  (
( y R x  ->  E. z  e.  B  y R z )  <->  ( w R x  ->  E. z  e.  B  w R
z ) ) )
2423rspcva 2759 . . . . . . . . . . 11  |-  ( ( w  e.  A  /\  A. y  e.  A  ( y R x  ->  E. z  e.  B  y R z ) )  ->  ( w R x  ->  E. z  e.  B  w R
z ) )
25 breq2 3901 . . . . . . . . . . . 12  |-  ( y  =  z  ->  (
w R y  <->  w R
z ) )
2625cbvrexv 2630 . . . . . . . . . . 11  |-  ( E. y  e.  B  w R y  <->  E. z  e.  B  w R
z )
2724, 26syl6ibr 161 . . . . . . . . . 10  |-  ( ( w  e.  A  /\  A. y  e.  A  ( y R x  ->  E. z  e.  B  y R z ) )  ->  ( w R x  ->  E. y  e.  B  w R
y ) )
2827con3d 603 . . . . . . . . 9  |-  ( ( w  e.  A  /\  A. y  e.  A  ( y R x  ->  E. z  e.  B  y R z ) )  ->  ( -.  E. y  e.  B  w R y  ->  -.  w R x ) )
2919, 28syl5bi 151 . . . . . . . 8  |-  ( ( w  e.  A  /\  A. y  e.  A  ( y R x  ->  E. z  e.  B  y R z ) )  ->  ( A. y  e.  B  -.  w R y  ->  -.  w R x ) )
3029expimpd 358 . . . . . . 7  |-  ( w  e.  A  ->  (
( A. y  e.  A  ( y R x  ->  E. z  e.  B  y R
z )  /\  A. y  e.  B  -.  w R y )  ->  -.  w R x ) )
3130ad2antll 480 . . . . . 6  |-  ( (
ph  /\  ( x  e.  A  /\  w  e.  A ) )  -> 
( ( A. y  e.  A  ( y R x  ->  E. z  e.  B  y R
z )  /\  A. y  e.  B  -.  w R y )  ->  -.  w R x ) )
3218, 31anim12d 331 . . . . 5  |-  ( (
ph  /\  ( x  e.  A  /\  w  e.  A ) )  -> 
( ( ( A. y  e.  A  (
y R w  ->  E. z  e.  B  y R z )  /\  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  -.  w R y ) )  ->  ( -.  x R w  /\  -.  w R x ) ) )
335, 32syl5bi 151 . . . 4  |-  ( (
ph  /\  ( x  e.  A  /\  w  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  -.  w R y  /\  A. y  e.  A  (
y R w  ->  E. z  e.  B  y R z ) ) )  ->  ( -.  x R w  /\  -.  w R x ) ) )
34 supmoti.ti . . . . . 6  |-  ( (
ph  /\  ( u  e.  A  /\  v  e.  A ) )  -> 
( u  =  v  <-> 
( -.  u R v  /\  -.  v R u ) ) )
3534ralrimivva 2489 . . . . 5  |-  ( ph  ->  A. u  e.  A  A. v  e.  A  ( u  =  v  <->  ( -.  u R v  /\  -.  v R u ) ) )
36 equequ1 1671 . . . . . . 7  |-  ( u  =  x  ->  (
u  =  v  <->  x  =  v ) )
37 breq1 3900 . . . . . . . . 9  |-  ( u  =  x  ->  (
u R v  <->  x R
v ) )
3837notbid 639 . . . . . . . 8  |-  ( u  =  x  ->  ( -.  u R v  <->  -.  x R v ) )
39 breq2 3901 . . . . . . . . 9  |-  ( u  =  x  ->  (
v R u  <->  v R x ) )
4039notbid 639 . . . . . . . 8  |-  ( u  =  x  ->  ( -.  v R u  <->  -.  v R x ) )
4138, 40anbi12d 462 . . . . . . 7  |-  ( u  =  x  ->  (
( -.  u R v  /\  -.  v R u )  <->  ( -.  x R v  /\  -.  v R x ) ) )
4236, 41bibi12d 234 . . . . . 6  |-  ( u  =  x  ->  (
( u  =  v  <-> 
( -.  u R v  /\  -.  v R u ) )  <-> 
( x  =  v  <-> 
( -.  x R v  /\  -.  v R x ) ) ) )
43 equequ2 1672 . . . . . . 7  |-  ( v  =  w  ->  (
x  =  v  <->  x  =  w ) )
44 breq2 3901 . . . . . . . . 9  |-  ( v  =  w  ->  (
x R v  <->  x R w ) )
4544notbid 639 . . . . . . . 8  |-  ( v  =  w  ->  ( -.  x R v  <->  -.  x R w ) )
46 breq1 3900 . . . . . . . . 9  |-  ( v  =  w  ->  (
v R x  <->  w R x ) )
4746notbid 639 . . . . . . . 8  |-  ( v  =  w  ->  ( -.  v R x  <->  -.  w R x ) )
4845, 47anbi12d 462 . . . . . . 7  |-  ( v  =  w  ->  (
( -.  x R v  /\  -.  v R x )  <->  ( -.  x R w  /\  -.  w R x ) ) )
4943, 48bibi12d 234 . . . . . 6  |-  ( v  =  w  ->  (
( x  =  v  <-> 
( -.  x R v  /\  -.  v R x ) )  <-> 
( x  =  w  <-> 
( -.  x R w  /\  -.  w R x ) ) ) )
5042, 49rspc2v 2774 . . . . 5  |-  ( ( x  e.  A  /\  w  e.  A )  ->  ( A. u  e.  A  A. v  e.  A  ( u  =  v  <->  ( -.  u R v  /\  -.  v R u ) )  ->  ( x  =  w  <->  ( -.  x R w  /\  -.  w R x ) ) ) )
5135, 50mpan9 277 . . . 4  |-  ( (
ph  /\  ( x  e.  A  /\  w  e.  A ) )  -> 
( x  =  w  <-> 
( -.  x R w  /\  -.  w R x ) ) )
5233, 51sylibrd 168 . . 3  |-  ( (
ph  /\  ( x  e.  A  /\  w  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  -.  w R y  /\  A. y  e.  A  (
y R w  ->  E. z  e.  B  y R z ) ) )  ->  x  =  w ) )
5352ralrimivva 2489 . 2  |-  ( ph  ->  A. x  e.  A  A. w  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  -.  w R y  /\  A. y  e.  A  (
y R w  ->  E. z  e.  B  y R z ) ) )  ->  x  =  w ) )
54 breq1 3900 . . . . . 6  |-  ( x  =  w  ->  (
x R y  <->  w R
y ) )
5554notbid 639 . . . . 5  |-  ( x  =  w  ->  ( -.  x R y  <->  -.  w R y ) )
5655ralbidv 2412 . . . 4  |-  ( x  =  w  ->  ( A. y  e.  B  -.  x R y  <->  A. y  e.  B  -.  w R y ) )
57 breq2 3901 . . . . . 6  |-  ( x  =  w  ->  (
y R x  <->  y R w ) )
5857imbi1d 230 . . . . 5  |-  ( x  =  w  ->  (
( y R x  ->  E. z  e.  B  y R z )  <->  ( y R w  ->  E. z  e.  B  y R
z ) ) )
5958ralbidv 2412 . . . 4  |-  ( x  =  w  ->  ( A. y  e.  A  ( y R x  ->  E. z  e.  B  y R z )  <->  A. y  e.  A  ( y R w  ->  E. z  e.  B  y R
z ) ) )
6056, 59anbi12d 462 . . 3  |-  ( x  =  w  ->  (
( 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  -.  w R y  /\  A. y  e.  A  (
y R w  ->  E. z  e.  B  y R z ) ) ) )
6160rmo4 2848 . 2  |-  ( 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. x  e.  A  A. w  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  -.  w R y  /\  A. y  e.  A  (
y R w  ->  E. z  e.  B  y R z ) ) )  ->  x  =  w ) )
6253, 61sylibr 133 1  |-  ( ph  ->  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 ) ) )
Colors of variables: wff set class
Syntax hints:   -. wn 3    -> wi 4    /\ wa 103    <-> wb 104    e. wcel 1463   A.wral 2391   E.wrex 2392   E*wrmo 2394   class class class wbr 3897
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 105  ax-ia2 106  ax-ia3 107  ax-in1 586  ax-in2 587  ax-io 681  ax-5 1406  ax-7 1407  ax-gen 1408  ax-ie1 1452  ax-ie2 1453  ax-8 1465  ax-10 1466  ax-11 1467  ax-i12 1468  ax-bndl 1469  ax-4 1470  ax-17 1489  ax-i9 1493  ax-ial 1497  ax-i5r 1498  ax-ext 2097
This theorem depends on definitions:  df-bi 116  df-3an 947  df-tru 1317  df-fal 1320  df-nf 1420  df-sb 1719  df-eu 1978  df-mo 1979  df-clab 2102  df-cleq 2108  df-clel 2111  df-nfc 2245  df-ral 2396  df-rex 2397  df-rmo 2399  df-v 2660  df-un 3043  df-sn 3501  df-pr 3502  df-op 3504  df-br 3898
This theorem is referenced by:  supeuti  6847  infmoti  6881
  Copyright terms: Public domain W3C validator