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

Theorem ssrel 5207
Description: A subclass relationship depends only on a relation's ordered pairs. Theorem 3.2(i) of [Monk1] p. 33. (Contributed by NM, 2-Aug-1994.) (Proof shortened by Andrew Salmon, 27-Aug-2011.) Remove dependency on ax-sep 4781, ax-nul 4789, ax-pr 4906. (Revised by KP, 25-Oct-2021.)
Assertion
Ref Expression
ssrel  |-  ( Rel 
A  ->  ( A  C_  B  <->  A. x A. y
( <. x ,  y
>.  e.  A  ->  <. x ,  y >.  e.  B
) ) )
Distinct variable groups:    x, y, A    x, B, y

Proof of Theorem ssrel
Dummy variable  z is distinct from all other variables.
StepHypRef Expression
1 ssel 3597 . . 3  |-  ( A 
C_  B  ->  ( <. x ,  y >.  e.  A  ->  <. x ,  y >.  e.  B
) )
21alrimivv 1856 . 2  |-  ( A 
C_  B  ->  A. x A. y ( <. x ,  y >.  e.  A  -> 
<. x ,  y >.  e.  B ) )
3 df-rel 5121 . . . . . . 7  |-  ( Rel 
A  <->  A  C_  ( _V 
X.  _V ) )
4 dfss2 3591 . . . . . . 7  |-  ( A 
C_  ( _V  X.  _V )  <->  A. z ( z  e.  A  ->  z  e.  ( _V  X.  _V ) ) )
53, 4sylbb 209 . . . . . 6  |-  ( Rel 
A  ->  A. z
( z  e.  A  ->  z  e.  ( _V 
X.  _V ) ) )
6 df-xp 5120 . . . . . . . . . 10  |-  ( _V 
X.  _V )  =  { <. x ,  y >.  |  ( x  e. 
_V  /\  y  e.  _V ) }
7 df-opab 4713 . . . . . . . . . 10  |-  { <. x ,  y >.  |  ( x  e.  _V  /\  y  e.  _V ) }  =  { z  |  E. x E. y
( z  =  <. x ,  y >.  /\  (
x  e.  _V  /\  y  e.  _V )
) }
86, 7eqtri 2644 . . . . . . . . 9  |-  ( _V 
X.  _V )  =  {
z  |  E. x E. y ( z  = 
<. x ,  y >.  /\  ( x  e.  _V  /\  y  e.  _V )
) }
98abeq2i 2735 . . . . . . . 8  |-  ( z  e.  ( _V  X.  _V )  <->  E. x E. y
( z  =  <. x ,  y >.  /\  (
x  e.  _V  /\  y  e.  _V )
) )
10 simpl 473 . . . . . . . . 9  |-  ( ( z  =  <. x ,  y >.  /\  (
x  e.  _V  /\  y  e.  _V )
)  ->  z  =  <. x ,  y >.
)
11102eximi 1763 . . . . . . . 8  |-  ( E. x E. y ( z  =  <. x ,  y >.  /\  (
x  e.  _V  /\  y  e.  _V )
)  ->  E. x E. y  z  =  <. x ,  y >.
)
129, 11sylbi 207 . . . . . . 7  |-  ( z  e.  ( _V  X.  _V )  ->  E. x E. y  z  =  <. x ,  y >.
)
1312imim2i 16 . . . . . 6  |-  ( ( z  e.  A  -> 
z  e.  ( _V 
X.  _V ) )  -> 
( z  e.  A  ->  E. x E. y 
z  =  <. x ,  y >. )
)
145, 13sylg 1750 . . . . 5  |-  ( Rel 
A  ->  A. z
( z  e.  A  ->  E. x E. y 
z  =  <. x ,  y >. )
)
15 eleq1 2689 . . . . . . . . . . . 12  |-  ( z  =  <. x ,  y
>.  ->  ( z  e.  A  <->  <. x ,  y
>.  e.  A ) )
16 eleq1 2689 . . . . . . . . . . . 12  |-  ( z  =  <. x ,  y
>.  ->  ( z  e.  B  <->  <. x ,  y
>.  e.  B ) )
1715, 16imbi12d 334 . . . . . . . . . . 11  |-  ( z  =  <. x ,  y
>.  ->  ( ( z  e.  A  ->  z  e.  B )  <->  ( <. x ,  y >.  e.  A  -> 
<. x ,  y >.  e.  B ) ) )
1817biimprcd 240 . . . . . . . . . 10  |-  ( (
<. x ,  y >.  e.  A  ->  <. x ,  y >.  e.  B
)  ->  ( z  =  <. x ,  y
>.  ->  ( z  e.  A  ->  z  e.  B ) ) )
19182alimi 1740 . . . . . . . . 9  |-  ( A. x A. y ( <.
x ,  y >.  e.  A  ->  <. x ,  y >.  e.  B
)  ->  A. x A. y ( z  = 
<. x ,  y >.  ->  ( z  e.  A  ->  z  e.  B ) ) )
20 19.23vv 1903 . . . . . . . . 9  |-  ( A. x A. y ( z  =  <. x ,  y
>.  ->  ( z  e.  A  ->  z  e.  B ) )  <->  ( E. x E. y  z  = 
<. x ,  y >.  ->  ( z  e.  A  ->  z  e.  B ) ) )
2119, 20sylib 208 . . . . . . . 8  |-  ( A. x A. y ( <.
x ,  y >.  e.  A  ->  <. x ,  y >.  e.  B
)  ->  ( E. x E. y  z  = 
<. x ,  y >.  ->  ( z  e.  A  ->  z  e.  B ) ) )
2221com23 86 . . . . . . 7  |-  ( A. x A. y ( <.
x ,  y >.  e.  A  ->  <. x ,  y >.  e.  B
)  ->  ( z  e.  A  ->  ( E. x E. y  z  =  <. x ,  y
>.  ->  z  e.  B
) ) )
2322a2d 29 . . . . . 6  |-  ( A. x A. y ( <.
x ,  y >.  e.  A  ->  <. x ,  y >.  e.  B
)  ->  ( (
z  e.  A  ->  E. x E. y  z  =  <. x ,  y
>. )  ->  ( z  e.  A  ->  z  e.  B ) ) )
2423alimdv 1845 . . . . 5  |-  ( A. x A. y ( <.
x ,  y >.  e.  A  ->  <. x ,  y >.  e.  B
)  ->  ( A. z ( z  e.  A  ->  E. x E. y  z  =  <. x ,  y >.
)  ->  A. z
( z  e.  A  ->  z  e.  B ) ) )
2514, 24syl5 34 . . . 4  |-  ( A. x A. y ( <.
x ,  y >.  e.  A  ->  <. x ,  y >.  e.  B
)  ->  ( Rel  A  ->  A. z ( z  e.  A  ->  z  e.  B ) ) )
26 dfss2 3591 . . . 4  |-  ( A 
C_  B  <->  A. z
( z  e.  A  ->  z  e.  B ) )
2725, 26syl6ibr 242 . . 3  |-  ( A. x A. y ( <.
x ,  y >.  e.  A  ->  <. x ,  y >.  e.  B
)  ->  ( Rel  A  ->  A  C_  B
) )
2827com12 32 . 2  |-  ( Rel 
A  ->  ( A. x A. y ( <.
x ,  y >.  e.  A  ->  <. x ,  y >.  e.  B
)  ->  A  C_  B
) )
292, 28impbid2 216 1  |-  ( Rel 
A  ->  ( A  C_  B  <->  A. x A. y
( <. x ,  y
>.  e.  A  ->  <. x ,  y >.  e.  B
) ) )
Colors of variables: wff setvar class
Syntax hints:    -> wi 4    <-> wb 196    /\ wa 384   A.wal 1481    = wceq 1483   E.wex 1704    e. wcel 1990   {cab 2608   _Vcvv 3200    C_ wss 3574   <.cop 4183   {copab 4712    X. cxp 5112   Rel wrel 5119
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1722  ax-4 1737  ax-5 1839  ax-6 1888  ax-7 1935  ax-9 1999  ax-10 2019  ax-11 2034  ax-12 2047  ax-13 2246  ax-ext 2602
This theorem depends on definitions:  df-bi 197  df-or 385  df-an 386  df-tru 1486  df-ex 1705  df-nf 1710  df-sb 1881  df-clab 2609  df-cleq 2615  df-clel 2618  df-in 3581  df-ss 3588  df-opab 4713  df-xp 5120  df-rel 5121
This theorem is referenced by:  eqrel  5209  relssi  5211  relssdv  5212  cotrg  5507  cnvsym  5510  intasym  5511  intirr  5514  codir  5516  qfto  5517  dfso2  31644  dfpo2  31645  dffun10  32021  imagesset  32060  ssrel3  34067  undmrnresiss  37910  cnvssco  37912
  Copyright terms: Public domain W3C validator