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

Theorem dftpos4 6258
Description: Alternate definition of tpos. (Contributed by Mario Carneiro, 4-Oct-2015.)
Assertion
Ref Expression
dftpos4  |- tpos  F  =  ( F  o.  (
x  e.  ( ( _V  X.  _V )  u.  { (/) } )  |->  U. `' { x } ) )
Distinct variable group:    x, F

Proof of Theorem dftpos4
Dummy variables  y  w  z are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 df-tpos 6240 . . 3  |- tpos  F  =  ( F  o.  (
x  e.  ( `' dom  F  u.  { (/)
} )  |->  U. `' { x } ) )
2 relcnv 5002 . . . . . . 7  |-  Rel  `' dom  F
3 df-rel 4630 . . . . . . 7  |-  ( Rel  `' dom  F  <->  `' dom  F 
C_  ( _V  X.  _V ) )
42, 3mpbi 145 . . . . . 6  |-  `' dom  F 
C_  ( _V  X.  _V )
5 unss1 3304 . . . . . 6  |-  ( `' dom  F  C_  ( _V  X.  _V )  -> 
( `' dom  F  u.  { (/) } )  C_  ( ( _V  X.  _V )  u.  { (/) } ) )
6 resmpt 4951 . . . . . 6  |-  ( ( `' dom  F  u.  { (/)
} )  C_  (
( _V  X.  _V )  u.  { (/) } )  ->  ( ( x  e.  ( ( _V 
X.  _V )  u.  { (/)
} )  |->  U. `' { x } )  |`  ( `' dom  F  u.  { (/) } ) )  =  ( x  e.  ( `' dom  F  u.  { (/) } )  |->  U. `' { x } ) )
74, 5, 6mp2b 8 . . . . 5  |-  ( ( x  e.  ( ( _V  X.  _V )  u.  { (/) } )  |->  U. `' { x } )  |`  ( `' dom  F  u.  { (/) } ) )  =  ( x  e.  ( `' dom  F  u.  { (/) } )  |->  U. `' { x } )
8 resss 4927 . . . . 5  |-  ( ( x  e.  ( ( _V  X.  _V )  u.  { (/) } )  |->  U. `' { x } )  |`  ( `' dom  F  u.  { (/) } ) ) 
C_  ( x  e.  ( ( _V  X.  _V )  u.  { (/) } )  |->  U. `' { x } )
97, 8eqsstrri 3188 . . . 4  |-  ( x  e.  ( `' dom  F  u.  { (/) } ) 
|->  U. `' { x } )  C_  (
x  e.  ( ( _V  X.  _V )  u.  { (/) } )  |->  U. `' { x } )
10 coss2 4779 . . . 4  |-  ( ( x  e.  ( `' dom  F  u.  { (/)
} )  |->  U. `' { x } ) 
C_  ( x  e.  ( ( _V  X.  _V )  u.  { (/) } )  |->  U. `' { x } )  ->  ( F  o.  ( x  e.  ( `' dom  F  u.  { (/) } )  |->  U. `' { x } ) )  C_  ( F  o.  ( x  e.  ( ( _V  X.  _V )  u.  { (/) } ) 
|->  U. `' { x } ) ) )
119, 10ax-mp 5 . . 3  |-  ( F  o.  ( x  e.  ( `' dom  F  u.  { (/) } )  |->  U. `' { x } ) )  C_  ( F  o.  ( x  e.  ( ( _V  X.  _V )  u.  { (/) } ) 
|->  U. `' { x } ) )
121, 11eqsstri 3187 . 2  |- tpos  F  C_  ( F  o.  (
x  e.  ( ( _V  X.  _V )  u.  { (/) } )  |->  U. `' { x } ) )
13 relco 5123 . . 3  |-  Rel  ( F  o.  ( x  e.  ( ( _V  X.  _V )  u.  { (/) } )  |->  U. `' { x } ) )
14 vex 2740 . . . . 5  |-  y  e. 
_V
15 vex 2740 . . . . 5  |-  z  e. 
_V
1614, 15opelco 4795 . . . 4  |-  ( <.
y ,  z >.  e.  ( F  o.  (
x  e.  ( ( _V  X.  _V )  u.  { (/) } )  |->  U. `' { x } ) )  <->  E. w ( y ( x  e.  ( ( _V  X.  _V )  u.  { (/) } ) 
|->  U. `' { x } ) w  /\  w F z ) )
17 vex 2740 . . . . . . . . 9  |-  w  e. 
_V
18 eleq1 2240 . . . . . . . . . 10  |-  ( x  =  y  ->  (
x  e.  ( ( _V  X.  _V )  u.  { (/) } )  <->  y  e.  ( ( _V  X.  _V )  u.  { (/) } ) ) )
19 sneq 3602 . . . . . . . . . . . . 13  |-  ( x  =  y  ->  { x }  =  { y } )
2019cnveqd 4799 . . . . . . . . . . . 12  |-  ( x  =  y  ->  `' { x }  =  `' { y } )
2120unieqd 3818 . . . . . . . . . . 11  |-  ( x  =  y  ->  U. `' { x }  =  U. `' { y } )
2221eqeq2d 2189 . . . . . . . . . 10  |-  ( x  =  y  ->  (
z  =  U. `' { x }  <->  z  =  U. `' { y } ) )
2318, 22anbi12d 473 . . . . . . . . 9  |-  ( x  =  y  ->  (
( x  e.  ( ( _V  X.  _V )  u.  { (/) } )  /\  z  =  U. `' { x } )  <-> 
( y  e.  ( ( _V  X.  _V )  u.  { (/) } )  /\  z  =  U. `' { y } ) ) )
24 eqeq1 2184 . . . . . . . . . 10  |-  ( z  =  w  ->  (
z  =  U. `' { y }  <->  w  =  U. `' { y } ) )
2524anbi2d 464 . . . . . . . . 9  |-  ( z  =  w  ->  (
( y  e.  ( ( _V  X.  _V )  u.  { (/) } )  /\  z  =  U. `' { y } )  <-> 
( y  e.  ( ( _V  X.  _V )  u.  { (/) } )  /\  w  =  U. `' { y } ) ) )
26 df-mpt 4063 . . . . . . . . 9  |-  ( x  e.  ( ( _V 
X.  _V )  u.  { (/)
} )  |->  U. `' { x } )  =  { <. x ,  z >.  |  ( x  e.  ( ( _V  X.  _V )  u.  { (/) } )  /\  z  =  U. `' {
x } ) }
2714, 17, 23, 25, 26brab 4269 . . . . . . . 8  |-  ( y ( x  e.  ( ( _V  X.  _V )  u.  { (/) } ) 
|->  U. `' { x } ) w  <->  ( y  e.  ( ( _V  X.  _V )  u.  { (/) } )  /\  w  = 
U. `' { y } ) )
28 simplr 528 . . . . . . . . . . . 12  |-  ( ( ( y  e.  ( ( _V  X.  _V )  u.  { (/) } )  /\  w  =  U. `' { y } )  /\  w F z )  ->  w  =  U. `' { y } )
2917, 15breldm 4827 . . . . . . . . . . . . 13  |-  ( w F z  ->  w  e.  dom  F )
3029adantl 277 . . . . . . . . . . . 12  |-  ( ( ( y  e.  ( ( _V  X.  _V )  u.  { (/) } )  /\  w  =  U. `' { y } )  /\  w F z )  ->  w  e.  dom  F )
3128, 30eqeltrrd 2255 . . . . . . . . . . 11  |-  ( ( ( y  e.  ( ( _V  X.  _V )  u.  { (/) } )  /\  w  =  U. `' { y } )  /\  w F z )  ->  U. `' {
y }  e.  dom  F )
32 elvv 4685 . . . . . . . . . . . . . 14  |-  ( y  e.  ( _V  X.  _V )  <->  E. z E. w  y  =  <. z ,  w >. )
33 opswapg 5111 . . . . . . . . . . . . . . . . . . 19  |-  ( ( z  e.  _V  /\  w  e.  _V )  ->  U. `' { <. z ,  w >. }  =  <. w ,  z >.
)
3415, 17, 33mp2an 426 . . . . . . . . . . . . . . . . . 18  |-  U. `' { <. z ,  w >. }  =  <. w ,  z >.
3534eleq1i 2243 . . . . . . . . . . . . . . . . 17  |-  ( U. `' { <. z ,  w >. }  e.  dom  F  <->  <.
w ,  z >.  e.  dom  F )
3615, 17opelcnv 4805 . . . . . . . . . . . . . . . . 17  |-  ( <.
z ,  w >.  e.  `' dom  F  <->  <. w ,  z >.  e.  dom  F )
3735, 36bitr4i 187 . . . . . . . . . . . . . . . 16  |-  ( U. `' { <. z ,  w >. }  e.  dom  F  <->  <.
z ,  w >.  e.  `' dom  F )
38 sneq 3602 . . . . . . . . . . . . . . . . . . . 20  |-  ( y  =  <. z ,  w >.  ->  { y }  =  { <. z ,  w >. } )
3938cnveqd 4799 . . . . . . . . . . . . . . . . . . 19  |-  ( y  =  <. z ,  w >.  ->  `' { y }  =  `' { <. z ,  w >. } )
4039unieqd 3818 . . . . . . . . . . . . . . . . . 18  |-  ( y  =  <. z ,  w >.  ->  U. `' { y }  =  U. `' { <. z ,  w >. } )
4140eleq1d 2246 . . . . . . . . . . . . . . . . 17  |-  ( y  =  <. z ,  w >.  ->  ( U. `' { y }  e.  dom  F  <->  U. `' { <. z ,  w >. }  e.  dom  F ) )
42 eleq1 2240 . . . . . . . . . . . . . . . . 17  |-  ( y  =  <. z ,  w >.  ->  ( y  e.  `' dom  F  <->  <. z ,  w >.  e.  `' dom  F ) )
4341, 42bibi12d 235 . . . . . . . . . . . . . . . 16  |-  ( y  =  <. z ,  w >.  ->  ( ( U. `' { y }  e.  dom  F  <->  y  e.  `' dom  F )  <->  ( U. `' { <. z ,  w >. }  e.  dom  F  <->  <.
z ,  w >.  e.  `' dom  F ) ) )
4437, 43mpbiri 168 . . . . . . . . . . . . . . 15  |-  ( y  =  <. z ,  w >.  ->  ( U. `' { y }  e.  dom  F  <->  y  e.  `' dom  F ) )
4544exlimivv 1896 . . . . . . . . . . . . . 14  |-  ( E. z E. w  y  =  <. z ,  w >.  ->  ( U. `' { y }  e.  dom  F  <->  y  e.  `' dom  F ) )
4632, 45sylbi 121 . . . . . . . . . . . . 13  |-  ( y  e.  ( _V  X.  _V )  ->  ( U. `' { y }  e.  dom  F  <->  y  e.  `' dom  F ) )
4746biimpcd 159 . . . . . . . . . . . 12  |-  ( U. `' { y }  e.  dom  F  ->  ( y  e.  ( _V  X.  _V )  ->  y  e.  `' dom  F ) )
48 elun1 3302 . . . . . . . . . . . 12  |-  ( y  e.  `' dom  F  ->  y  e.  ( `' dom  F  u.  { (/)
} ) )
4947, 48syl6 33 . . . . . . . . . . 11  |-  ( U. `' { y }  e.  dom  F  ->  ( y  e.  ( _V  X.  _V )  ->  y  e.  ( `' dom  F  u.  { (/)
} ) ) )
5031, 49syl 14 . . . . . . . . . 10  |-  ( ( ( y  e.  ( ( _V  X.  _V )  u.  { (/) } )  /\  w  =  U. `' { y } )  /\  w F z )  ->  ( y  e.  ( _V  X.  _V )  ->  y  e.  ( `' dom  F  u.  { (/)
} ) ) )
51 elun2 3303 . . . . . . . . . . 11  |-  ( y  e.  { (/) }  ->  y  e.  ( `' dom  F  u.  { (/) } ) )
5251a1i 9 . . . . . . . . . 10  |-  ( ( ( y  e.  ( ( _V  X.  _V )  u.  { (/) } )  /\  w  =  U. `' { y } )  /\  w F z )  ->  ( y  e.  { (/) }  ->  y  e.  ( `' dom  F  u.  { (/) } ) ) )
53 simpll 527 . . . . . . . . . . 11  |-  ( ( ( y  e.  ( ( _V  X.  _V )  u.  { (/) } )  /\  w  =  U. `' { y } )  /\  w F z )  ->  y  e.  ( ( _V  X.  _V )  u.  { (/) } ) )
54 elun 3276 . . . . . . . . . . 11  |-  ( y  e.  ( ( _V 
X.  _V )  u.  { (/)
} )  <->  ( y  e.  ( _V  X.  _V )  \/  y  e.  {
(/) } ) )
5553, 54sylib 122 . . . . . . . . . 10  |-  ( ( ( y  e.  ( ( _V  X.  _V )  u.  { (/) } )  /\  w  =  U. `' { y } )  /\  w F z )  ->  ( y  e.  ( _V  X.  _V )  \/  y  e.  {
(/) } ) )
5650, 52, 55mpjaod 718 . . . . . . . . 9  |-  ( ( ( y  e.  ( ( _V  X.  _V )  u.  { (/) } )  /\  w  =  U. `' { y } )  /\  w F z )  ->  y  e.  ( `' dom  F  u.  { (/)
} ) )
57 simpr 110 . . . . . . . . . 10  |-  ( ( ( y  e.  ( ( _V  X.  _V )  u.  { (/) } )  /\  w  =  U. `' { y } )  /\  w F z )  ->  w F
z )
5828, 57eqbrtrrd 4024 . . . . . . . . 9  |-  ( ( ( y  e.  ( ( _V  X.  _V )  u.  { (/) } )  /\  w  =  U. `' { y } )  /\  w F z )  ->  U. `' {
y } F z )
5956, 58jca 306 . . . . . . . 8  |-  ( ( ( y  e.  ( ( _V  X.  _V )  u.  { (/) } )  /\  w  =  U. `' { y } )  /\  w F z )  ->  ( y  e.  ( `' dom  F  u.  { (/) } )  /\  U. `' { y } F
z ) )
6027, 59sylanb 284 . . . . . . 7  |-  ( ( y ( x  e.  ( ( _V  X.  _V )  u.  { (/) } )  |->  U. `' { x } ) w  /\  w F z )  -> 
( y  e.  ( `' dom  F  u.  { (/)
} )  /\  U. `' { y } F
z ) )
61 brtpos2 6246 . . . . . . . 8  |-  ( z  e.  _V  ->  (
ytpos  F z  <->  ( y  e.  ( `' dom  F  u.  { (/) } )  /\  U. `' { y } F
z ) ) )
6215, 61ax-mp 5 . . . . . . 7  |-  ( ytpos 
F z  <->  ( y  e.  ( `' dom  F  u.  { (/) } )  /\  U. `' { y } F
z ) )
6360, 62sylibr 134 . . . . . 6  |-  ( ( y ( x  e.  ( ( _V  X.  _V )  u.  { (/) } )  |->  U. `' { x } ) w  /\  w F z )  -> 
ytpos  F z )
64 df-br 4001 . . . . . 6  |-  ( ytpos 
F z  <->  <. y ,  z >.  e. tpos  F )
6563, 64sylib 122 . . . . 5  |-  ( ( y ( x  e.  ( ( _V  X.  _V )  u.  { (/) } )  |->  U. `' { x } ) w  /\  w F z )  ->  <. y ,  z >.  e. tpos  F )
6665exlimiv 1598 . . . 4  |-  ( E. w ( y ( x  e.  ( ( _V  X.  _V )  u.  { (/) } )  |->  U. `' { x } ) w  /\  w F z )  ->  <. y ,  z >.  e. tpos  F
)
6716, 66sylbi 121 . . 3  |-  ( <.
y ,  z >.  e.  ( F  o.  (
x  e.  ( ( _V  X.  _V )  u.  { (/) } )  |->  U. `' { x } ) )  ->  <. y ,  z >.  e. tpos  F )
6813, 67relssi 4714 . 2  |-  ( F  o.  ( x  e.  ( ( _V  X.  _V )  u.  { (/) } )  |->  U. `' { x } ) )  C_ tpos  F
6912, 68eqssi 3171 1  |- tpos  F  =  ( F  o.  (
x  e.  ( ( _V  X.  _V )  u.  { (/) } )  |->  U. `' { x } ) )
Colors of variables: wff set class
Syntax hints:    -> wi 4    /\ wa 104    <-> wb 105    \/ wo 708    = wceq 1353   E.wex 1492    e. wcel 2148   _Vcvv 2737    u. cun 3127    C_ wss 3129   (/)c0 3422   {csn 3591   <.cop 3594   U.cuni 3807   class class class wbr 4000    |-> cmpt 4061    X. cxp 4621   `'ccnv 4622   dom cdm 4623    |` cres 4625    o. ccom 4627   Rel wrel 4628  tpos ctpos 6239
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-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-13 2150  ax-14 2151  ax-ext 2159  ax-sep 4118  ax-pow 4171  ax-pr 4206  ax-un 4430
This theorem depends on definitions:  df-bi 117  df-3an 980  df-tru 1356  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-rab 2464  df-v 2739  df-sbc 2963  df-un 3133  df-in 3135  df-ss 3142  df-pw 3576  df-sn 3597  df-pr 3598  df-op 3600  df-uni 3808  df-br 4001  df-opab 4062  df-mpt 4063  df-id 4290  df-xp 4629  df-rel 4630  df-cnv 4631  df-co 4632  df-dm 4633  df-rn 4634  df-res 4635  df-ima 4636  df-iota 5174  df-fun 5214  df-fn 5215  df-fv 5220  df-tpos 6240
This theorem is referenced by:  tposco  6270  nftpos  6274
  Copyright terms: Public domain W3C validator