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

Theorem tpostpos 6289
Description: Value of the double transposition for a general class 
F. (Contributed by Mario Carneiro, 16-Sep-2015.)
Assertion
Ref Expression
tpostpos  |- tpos tpos  F  =  ( F  i^i  (
( ( _V  X.  _V )  u.  { (/) } )  X.  _V )
)

Proof of Theorem tpostpos
Dummy variables  x  y  w  z are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 reltpos 6275 . 2  |-  Rel tpos tpos  F
2 inss2 3371 . . 3  |-  ( F  i^i  ( ( ( _V  X.  _V )  u.  { (/) } )  X. 
_V ) )  C_  ( ( ( _V 
X.  _V )  u.  { (/)
} )  X.  _V )
3 relxp 4753 . . 3  |-  Rel  (
( ( _V  X.  _V )  u.  { (/) } )  X.  _V )
4 relss 4731 . . 3  |-  ( ( F  i^i  ( ( ( _V  X.  _V )  u.  { (/) } )  X.  _V ) ) 
C_  ( ( ( _V  X.  _V )  u.  { (/) } )  X. 
_V )  ->  ( Rel  ( ( ( _V 
X.  _V )  u.  { (/)
} )  X.  _V )  ->  Rel  ( F  i^i  ( ( ( _V 
X.  _V )  u.  { (/)
} )  X.  _V ) ) ) )
52, 3, 4mp2 16 . 2  |-  Rel  ( F  i^i  ( ( ( _V  X.  _V )  u.  { (/) } )  X. 
_V ) )
6 relcnv 5024 . . . . . . . . 9  |-  Rel  `' dom tpos  F
7 df-rel 4651 . . . . . . . . 9  |-  ( Rel  `' dom tpos  F  <->  `' dom tpos  F  C_  ( _V 
X.  _V ) )
86, 7mpbi 145 . . . . . . . 8  |-  `' dom tpos  F 
C_  ( _V  X.  _V )
9 simpl 109 . . . . . . . 8  |-  ( ( w  e.  `' dom tpos  F  /\  U. `' {
w }tpos  F z
)  ->  w  e.  `' dom tpos  F )
108, 9sselid 3168 . . . . . . 7  |-  ( ( w  e.  `' dom tpos  F  /\  U. `' {
w }tpos  F z
)  ->  w  e.  ( _V  X.  _V )
)
11 simpr 110 . . . . . . 7  |-  ( ( w F z  /\  w  e.  ( _V  X.  _V ) )  ->  w  e.  ( _V  X.  _V ) )
12 elvv 4706 . . . . . . . . 9  |-  ( w  e.  ( _V  X.  _V )  <->  E. x E. y  w  =  <. x ,  y >. )
13 eleq1 2252 . . . . . . . . . . . . . 14  |-  ( w  =  <. x ,  y
>.  ->  ( w  e.  `' dom tpos  F  <->  <. x ,  y
>.  e.  `' dom tpos  F ) )
14 vex 2755 . . . . . . . . . . . . . . 15  |-  x  e. 
_V
15 vex 2755 . . . . . . . . . . . . . . 15  |-  y  e. 
_V
1614, 15opelcnv 4827 . . . . . . . . . . . . . 14  |-  ( <.
x ,  y >.  e.  `' dom tpos  F  <->  <. y ,  x >.  e.  dom tpos  F )
1713, 16bitrdi 196 . . . . . . . . . . . . 13  |-  ( w  =  <. x ,  y
>.  ->  ( w  e.  `' dom tpos  F  <->  <. y ,  x >.  e.  dom tpos  F )
)
18 sneq 3618 . . . . . . . . . . . . . . . . 17  |-  ( w  =  <. x ,  y
>.  ->  { w }  =  { <. x ,  y
>. } )
1918cnveqd 4821 . . . . . . . . . . . . . . . 16  |-  ( w  =  <. x ,  y
>.  ->  `' { w }  =  `' { <. x ,  y >. } )
2019unieqd 3835 . . . . . . . . . . . . . . 15  |-  ( w  =  <. x ,  y
>.  ->  U. `' { w }  =  U. `' { <. x ,  y >. } )
21 opswapg 5133 . . . . . . . . . . . . . . . 16  |-  ( ( x  e.  _V  /\  y  e.  _V )  ->  U. `' { <. x ,  y >. }  =  <. y ,  x >. )
2214, 15, 21mp2an 426 . . . . . . . . . . . . . . 15  |-  U. `' { <. x ,  y
>. }  =  <. y ,  x >.
2320, 22eqtrdi 2238 . . . . . . . . . . . . . 14  |-  ( w  =  <. x ,  y
>.  ->  U. `' { w }  =  <. y ,  x >. )
2423breq1d 4028 . . . . . . . . . . . . 13  |-  ( w  =  <. x ,  y
>.  ->  ( U. `' { w }tpos  F
z  <->  <. y ,  x >.tpos  F z ) )
2517, 24anbi12d 473 . . . . . . . . . . . 12  |-  ( w  =  <. x ,  y
>.  ->  ( ( w  e.  `' dom tpos  F  /\  U. `' { w }tpos  F
z )  <->  ( <. y ,  x >.  e.  dom tpos  F  /\  <. y ,  x >.tpos  F z ) ) )
2615, 14opex 4247 . . . . . . . . . . . . . . 15  |-  <. y ,  x >.  e.  _V
27 vex 2755 . . . . . . . . . . . . . . 15  |-  z  e. 
_V
2826, 27breldm 4849 . . . . . . . . . . . . . 14  |-  ( <.
y ,  x >.tpos  F z  ->  <. y ,  x >.  e.  dom tpos  F )
2928pm4.71ri 392 . . . . . . . . . . . . 13  |-  ( <.
y ,  x >.tpos  F z  <->  ( <. y ,  x >.  e.  dom tpos  F  /\  <. y ,  x >.tpos  F z ) )
30 brtposg 6279 . . . . . . . . . . . . . 14  |-  ( ( y  e.  _V  /\  x  e.  _V  /\  z  e.  _V )  ->  ( <. y ,  x >.tpos  F z  <->  <. x ,  y
>. F z ) )
3115, 14, 27, 30mp3an 1348 . . . . . . . . . . . . 13  |-  ( <.
y ,  x >.tpos  F z  <->  <. x ,  y
>. F z )
3229, 31bitr3i 186 . . . . . . . . . . . 12  |-  ( (
<. y ,  x >.  e. 
dom tpos  F  /\  <. y ,  x >.tpos  F z )  <->  <. x ,  y >. F z )
3325, 32bitrdi 196 . . . . . . . . . . 11  |-  ( w  =  <. x ,  y
>.  ->  ( ( w  e.  `' dom tpos  F  /\  U. `' { w }tpos  F
z )  <->  <. x ,  y >. F z ) )
34 breq1 4021 . . . . . . . . . . 11  |-  ( w  =  <. x ,  y
>.  ->  ( w F z  <->  <. x ,  y
>. F z ) )
3533, 34bitr4d 191 . . . . . . . . . 10  |-  ( w  =  <. x ,  y
>.  ->  ( ( w  e.  `' dom tpos  F  /\  U. `' { w }tpos  F
z )  <->  w F
z ) )
3635exlimivv 1908 . . . . . . . . 9  |-  ( E. x E. y  w  =  <. x ,  y
>.  ->  ( ( w  e.  `' dom tpos  F  /\  U. `' { w }tpos  F
z )  <->  w F
z ) )
3712, 36sylbi 121 . . . . . . . 8  |-  ( w  e.  ( _V  X.  _V )  ->  ( ( w  e.  `' dom tpos  F  /\  U. `' {
w }tpos  F z
)  <->  w F z ) )
38 iba 300 . . . . . . . 8  |-  ( w  e.  ( _V  X.  _V )  ->  ( w F z  <->  ( w F z  /\  w  e.  ( _V  X.  _V ) ) ) )
3937, 38bitrd 188 . . . . . . 7  |-  ( w  e.  ( _V  X.  _V )  ->  ( ( w  e.  `' dom tpos  F  /\  U. `' {
w }tpos  F z
)  <->  ( w F z  /\  w  e.  ( _V  X.  _V ) ) ) )
4010, 11, 39pm5.21nii 705 . . . . . 6  |-  ( ( w  e.  `' dom tpos  F  /\  U. `' {
w }tpos  F z
)  <->  ( w F z  /\  w  e.  ( _V  X.  _V ) ) )
41 elsni 3625 . . . . . . . . . . . . . . . 16  |-  ( w  e.  { (/) }  ->  w  =  (/) )
4241sneqd 3620 . . . . . . . . . . . . . . 15  |-  ( w  e.  { (/) }  ->  { w }  =  { (/)
} )
4342cnveqd 4821 . . . . . . . . . . . . . 14  |-  ( w  e.  { (/) }  ->  `' { w }  =  `' { (/) } )
44 cnvsn0 5115 . . . . . . . . . . . . . 14  |-  `' { (/)
}  =  (/)
4543, 44eqtrdi 2238 . . . . . . . . . . . . 13  |-  ( w  e.  { (/) }  ->  `' { w }  =  (/) )
4645unieqd 3835 . . . . . . . . . . . 12  |-  ( w  e.  { (/) }  ->  U. `' { w }  =  U. (/) )
47 uni0 3851 . . . . . . . . . . . 12  |-  U. (/)  =  (/)
4846, 47eqtrdi 2238 . . . . . . . . . . 11  |-  ( w  e.  { (/) }  ->  U. `' { w }  =  (/) )
4948breq1d 4028 . . . . . . . . . 10  |-  ( w  e.  { (/) }  ->  ( U. `' { w }tpos  F z  <->  (/)tpos  F z ) )
50 brtpos0 6277 . . . . . . . . . . 11  |-  ( z  e.  _V  ->  ( (/)tpos  F z  <->  (/) F z ) )
5127, 50ax-mp 5 . . . . . . . . . 10  |-  ( (/)tpos  F z  <->  (/) F z )
5249, 51bitrdi 196 . . . . . . . . 9  |-  ( w  e.  { (/) }  ->  ( U. `' { w }tpos  F z  <->  (/) F z ) )
5341breq1d 4028 . . . . . . . . 9  |-  ( w  e.  { (/) }  ->  ( w F z  <->  (/) F z ) )
5452, 53bitr4d 191 . . . . . . . 8  |-  ( w  e.  { (/) }  ->  ( U. `' { w }tpos  F z  <->  w F
z ) )
5554pm5.32i 454 . . . . . . 7  |-  ( ( w  e.  { (/) }  /\  U. `' {
w }tpos  F z
)  <->  ( w  e. 
{ (/) }  /\  w F z ) )
56 ancom 266 . . . . . . 7  |-  ( ( w  e.  { (/) }  /\  w F z )  <->  ( w F z  /\  w  e. 
{ (/) } ) )
5755, 56bitri 184 . . . . . 6  |-  ( ( w  e.  { (/) }  /\  U. `' {
w }tpos  F z
)  <->  ( w F z  /\  w  e. 
{ (/) } ) )
5840, 57orbi12i 765 . . . . 5  |-  ( ( ( w  e.  `' dom tpos  F  /\  U. `' { w }tpos  F
z )  \/  (
w  e.  { (/) }  /\  U. `' {
w }tpos  F z
) )  <->  ( (
w F z  /\  w  e.  ( _V  X.  _V ) )  \/  ( w F z  /\  w  e.  { (/)
} ) ) )
59 andir 820 . . . . 5  |-  ( ( ( w  e.  `' dom tpos  F  \/  w  e. 
{ (/) } )  /\  U. `' { w }tpos  F
z )  <->  ( (
w  e.  `' dom tpos  F  /\  U. `' {
w }tpos  F z
)  \/  ( w  e.  { (/) }  /\  U. `' { w }tpos  F
z ) ) )
60 andi 819 . . . . 5  |-  ( ( w F z  /\  ( w  e.  ( _V  X.  _V )  \/  w  e.  { (/) } ) )  <->  ( (
w F z  /\  w  e.  ( _V  X.  _V ) )  \/  ( w F z  /\  w  e.  { (/)
} ) ) )
6158, 59, 603bitr4i 212 . . . 4  |-  ( ( ( w  e.  `' dom tpos  F  \/  w  e. 
{ (/) } )  /\  U. `' { w }tpos  F
z )  <->  ( w F z  /\  (
w  e.  ( _V 
X.  _V )  \/  w  e.  { (/) } ) ) )
62 elun 3291 . . . . 5  |-  ( w  e.  ( `' dom tpos  F  u.  { (/) } )  <-> 
( w  e.  `' dom tpos  F  \/  w  e. 
{ (/) } ) )
6362anbi1i 458 . . . 4  |-  ( ( w  e.  ( `' dom tpos  F  u.  { (/) } )  /\  U. `' { w }tpos  F
z )  <->  ( (
w  e.  `' dom tpos  F  \/  w  e.  { (/)
} )  /\  U. `' { w }tpos  F
z ) )
64 brxp 4675 . . . . . . 7  |-  ( w ( ( ( _V 
X.  _V )  u.  { (/)
} )  X.  _V ) z  <->  ( w  e.  ( ( _V  X.  _V )  u.  { (/) } )  /\  z  e. 
_V ) )
6527, 64mpbiran2 943 . . . . . 6  |-  ( w ( ( ( _V 
X.  _V )  u.  { (/)
} )  X.  _V ) z  <->  w  e.  ( ( _V  X.  _V )  u.  { (/) } ) )
66 elun 3291 . . . . . 6  |-  ( w  e.  ( ( _V 
X.  _V )  u.  { (/)
} )  <->  ( w  e.  ( _V  X.  _V )  \/  w  e.  {
(/) } ) )
6765, 66bitri 184 . . . . 5  |-  ( w ( ( ( _V 
X.  _V )  u.  { (/)
} )  X.  _V ) z  <->  ( w  e.  ( _V  X.  _V )  \/  w  e.  {
(/) } ) )
6867anbi2i 457 . . . 4  |-  ( ( w F z  /\  w ( ( ( _V  X.  _V )  u.  { (/) } )  X. 
_V ) z )  <-> 
( w F z  /\  ( w  e.  ( _V  X.  _V )  \/  w  e.  {
(/) } ) ) )
6961, 63, 683bitr4i 212 . . 3  |-  ( ( w  e.  ( `' dom tpos  F  u.  { (/) } )  /\  U. `' { w }tpos  F
z )  <->  ( w F z  /\  w
( ( ( _V 
X.  _V )  u.  { (/)
} )  X.  _V ) z ) )
70 brtpos2 6276 . . . 4  |-  ( z  e.  _V  ->  (
wtpos tpos  F z  <->  ( w  e.  ( `' dom tpos  F  u.  {
(/) } )  /\  U. `' { w }tpos  F
z ) ) )
7127, 70ax-mp 5 . . 3  |-  ( wtpos tpos  F z  <->  ( w  e.  ( `' dom tpos  F  u.  {
(/) } )  /\  U. `' { w }tpos  F
z ) )
72 brin 4070 . . 3  |-  ( w ( F  i^i  (
( ( _V  X.  _V )  u.  { (/) } )  X.  _V )
) z  <->  ( w F z  /\  w
( ( ( _V 
X.  _V )  u.  { (/)
} )  X.  _V ) z ) )
7369, 71, 723bitr4i 212 . 2  |-  ( wtpos tpos  F z  <->  w ( F  i^i  ( ( ( _V  X.  _V )  u.  { (/) } )  X. 
_V ) ) z )
741, 5, 73eqbrriv 4739 1  |- tpos tpos  F  =  ( F  i^i  (
( ( _V  X.  _V )  u.  { (/) } )  X.  _V )
)
Colors of variables: wff set class
Syntax hints:    /\ wa 104    <-> wb 105    \/ wo 709    = wceq 1364   E.wex 1503    e. wcel 2160   _Vcvv 2752    u. cun 3142    i^i cin 3143    C_ wss 3144   (/)c0 3437   {csn 3607   <.cop 3610   U.cuni 3824   class class class wbr 4018    X. cxp 4642   `'ccnv 4643   dom cdm 4644   Rel wrel 4649  tpos ctpos 6269
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 615  ax-in2 616  ax-io 710  ax-5 1458  ax-7 1459  ax-gen 1460  ax-ie1 1504  ax-ie2 1505  ax-8 1515  ax-10 1516  ax-11 1517  ax-i12 1518  ax-bndl 1520  ax-4 1521  ax-17 1537  ax-i9 1541  ax-ial 1545  ax-i5r 1546  ax-13 2162  ax-14 2163  ax-ext 2171  ax-sep 4136  ax-nul 4144  ax-pow 4192  ax-pr 4227  ax-un 4451
This theorem depends on definitions:  df-bi 117  df-3an 982  df-tru 1367  df-fal 1370  df-nf 1472  df-sb 1774  df-eu 2041  df-mo 2042  df-clab 2176  df-cleq 2182  df-clel 2185  df-nfc 2321  df-ne 2361  df-ral 2473  df-rex 2474  df-rab 2477  df-v 2754  df-sbc 2978  df-dif 3146  df-un 3148  df-in 3150  df-ss 3157  df-nul 3438  df-pw 3592  df-sn 3613  df-pr 3614  df-op 3616  df-uni 3825  df-br 4019  df-opab 4080  df-mpt 4081  df-id 4311  df-xp 4650  df-rel 4651  df-cnv 4652  df-co 4653  df-dm 4654  df-rn 4655  df-res 4656  df-ima 4657  df-iota 5196  df-fun 5237  df-fn 5238  df-fv 5243  df-tpos 6270
This theorem is referenced by:  tpostpos2  6290
  Copyright terms: Public domain W3C validator