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

Theorem isocnv 5747
Description: Converse law for isomorphism. Proposition 6.30(2) of [TakeutiZaring] p. 33. (Contributed by NM, 27-Apr-2004.)
Assertion
Ref Expression
isocnv  |-  ( H 
Isom  R ,  S  ( A ,  B )  ->  `' H  Isom  S ,  R  ( B ,  A ) )

Proof of Theorem isocnv
StepHypRef Expression
1 f1ocnv 5409 . . . 4  |-  ( H : A -1-1-onto-> B  ->  `' H : B -1-1-onto-> A )
21adantr 453 . . 3  |-  ( ( H : A -1-1-onto-> B  /\  A. x  e.  A  A. y  e.  A  (
x R y  <->  ( H `  x ) S ( H `  y ) ) )  ->  `' H : B -1-1-onto-> A )
3 f1ocnvfv2 5713 . . . . . . . 8  |-  ( ( H : A -1-1-onto-> B  /\  z  e.  B )  ->  ( H `  ( `' H `  z ) )  =  z )
43adantrr 700 . . . . . . 7  |-  ( ( H : A -1-1-onto-> B  /\  ( z  e.  B  /\  w  e.  B
) )  ->  ( H `  ( `' H `  z )
)  =  z )
5 f1ocnvfv2 5713 . . . . . . . 8  |-  ( ( H : A -1-1-onto-> B  /\  w  e.  B )  ->  ( H `  ( `' H `  w ) )  =  w )
65adantrl 699 . . . . . . 7  |-  ( ( H : A -1-1-onto-> B  /\  ( z  e.  B  /\  w  e.  B
) )  ->  ( H `  ( `' H `  w )
)  =  w )
74, 6breq12d 3996 . . . . . 6  |-  ( ( H : A -1-1-onto-> B  /\  ( z  e.  B  /\  w  e.  B
) )  ->  (
( H `  ( `' H `  z ) ) S ( H `
 ( `' H `  w ) )  <->  z S w ) )
87adantlr 698 . . . . 5  |-  ( ( ( H : A -1-1-onto-> B  /\  A. x  e.  A  A. y  e.  A  ( x R y  <-> 
( H `  x
) S ( H `
 y ) ) )  /\  ( z  e.  B  /\  w  e.  B ) )  -> 
( ( H `  ( `' H `  z ) ) S ( H `
 ( `' H `  w ) )  <->  z S w ) )
9 f1of 5396 . . . . . . 7  |-  ( `' H : B -1-1-onto-> A  ->  `' H : B --> A )
101, 9syl 17 . . . . . 6  |-  ( H : A -1-1-onto-> B  ->  `' H : B --> A )
11 ffvelrn 5583 . . . . . . . . 9  |-  ( ( `' H : B --> A  /\  z  e.  B )  ->  ( `' H `  z )  e.  A
)
12 ffvelrn 5583 . . . . . . . . 9  |-  ( ( `' H : B --> A  /\  w  e.  B )  ->  ( `' H `  w )  e.  A
)
1311, 12anim12dan 813 . . . . . . . 8  |-  ( ( `' H : B --> A  /\  ( z  e.  B  /\  w  e.  B
) )  ->  (
( `' H `  z )  e.  A  /\  ( `' H `  w )  e.  A
) )
14 breq1 3986 . . . . . . . . . . 11  |-  ( x  =  ( `' H `  z )  ->  (
x R y  <->  ( `' H `  z ) R y ) )
15 fveq2 5444 . . . . . . . . . . . 12  |-  ( x  =  ( `' H `  z )  ->  ( H `  x )  =  ( H `  ( `' H `  z ) ) )
1615breq1d 3993 . . . . . . . . . . 11  |-  ( x  =  ( `' H `  z )  ->  (
( H `  x
) S ( H `
 y )  <->  ( H `  ( `' H `  z ) ) S ( H `  y
) ) )
1714, 16bibi12d 314 . . . . . . . . . 10  |-  ( x  =  ( `' H `  z )  ->  (
( x R y  <-> 
( H `  x
) S ( H `
 y ) )  <-> 
( ( `' H `  z ) R y  <-> 
( H `  ( `' H `  z ) ) S ( H `
 y ) ) ) )
18 bicom 193 . . . . . . . . . 10  |-  ( ( ( `' H `  z ) R y  <-> 
( H `  ( `' H `  z ) ) S ( H `
 y ) )  <-> 
( ( H `  ( `' H `  z ) ) S ( H `
 y )  <->  ( `' H `  z ) R y ) )
1917, 18syl6bb 254 . . . . . . . . 9  |-  ( x  =  ( `' H `  z )  ->  (
( x R y  <-> 
( H `  x
) S ( H `
 y ) )  <-> 
( ( H `  ( `' H `  z ) ) S ( H `
 y )  <->  ( `' H `  z ) R y ) ) )
20 fveq2 5444 . . . . . . . . . . 11  |-  ( y  =  ( `' H `  w )  ->  ( H `  y )  =  ( H `  ( `' H `  w ) ) )
2120breq2d 3995 . . . . . . . . . 10  |-  ( y  =  ( `' H `  w )  ->  (
( H `  ( `' H `  z ) ) S ( H `
 y )  <->  ( H `  ( `' H `  z ) ) S ( H `  ( `' H `  w ) ) ) )
22 breq2 3987 . . . . . . . . . 10  |-  ( y  =  ( `' H `  w )  ->  (
( `' H `  z ) R y  <-> 
( `' H `  z ) R ( `' H `  w ) ) )
2321, 22bibi12d 314 . . . . . . . . 9  |-  ( y  =  ( `' H `  w )  ->  (
( ( H `  ( `' H `  z ) ) S ( H `
 y )  <->  ( `' H `  z ) R y )  <->  ( ( H `  ( `' H `  z )
) S ( H `
 ( `' H `  w ) )  <->  ( `' H `  z ) R ( `' H `  w ) ) ) )
2419, 23rcla42va 2859 . . . . . . . 8  |-  ( ( ( ( `' H `  z )  e.  A  /\  ( `' H `  w )  e.  A
)  /\  A. x  e.  A  A. y  e.  A  ( x R y  <->  ( H `  x ) S ( H `  y ) ) )  ->  (
( H `  ( `' H `  z ) ) S ( H `
 ( `' H `  w ) )  <->  ( `' H `  z ) R ( `' H `  w ) ) )
2513, 24sylan 459 . . . . . . 7  |-  ( ( ( `' H : B
--> A  /\  ( z  e.  B  /\  w  e.  B ) )  /\  A. x  e.  A  A. y  e.  A  (
x R y  <->  ( H `  x ) S ( H `  y ) ) )  ->  (
( H `  ( `' H `  z ) ) S ( H `
 ( `' H `  w ) )  <->  ( `' H `  z ) R ( `' H `  w ) ) )
2625an32s 782 . . . . . 6  |-  ( ( ( `' H : B
--> A  /\  A. x  e.  A  A. y  e.  A  ( x R y  <->  ( H `  x ) S ( H `  y ) ) )  /\  (
z  e.  B  /\  w  e.  B )
)  ->  ( ( H `  ( `' H `  z )
) S ( H `
 ( `' H `  w ) )  <->  ( `' H `  z ) R ( `' H `  w ) ) )
2710, 26sylanl1 634 . . . . 5  |-  ( ( ( H : A -1-1-onto-> B  /\  A. x  e.  A  A. y  e.  A  ( x R y  <-> 
( H `  x
) S ( H `
 y ) ) )  /\  ( z  e.  B  /\  w  e.  B ) )  -> 
( ( H `  ( `' H `  z ) ) S ( H `
 ( `' H `  w ) )  <->  ( `' H `  z ) R ( `' H `  w ) ) )
288, 27bitr3d 248 . . . 4  |-  ( ( ( H : A -1-1-onto-> B  /\  A. x  e.  A  A. y  e.  A  ( x R y  <-> 
( H `  x
) S ( H `
 y ) ) )  /\  ( z  e.  B  /\  w  e.  B ) )  -> 
( z S w  <-> 
( `' H `  z ) R ( `' H `  w ) ) )
2928ralrimivva 2608 . . 3  |-  ( ( H : A -1-1-onto-> B  /\  A. x  e.  A  A. y  e.  A  (
x R y  <->  ( H `  x ) S ( H `  y ) ) )  ->  A. z  e.  B  A. w  e.  B  ( z S w  <->  ( `' H `  z ) R ( `' H `  w ) ) )
302, 29jca 520 . 2  |-  ( ( H : A -1-1-onto-> B  /\  A. x  e.  A  A. y  e.  A  (
x R y  <->  ( H `  x ) S ( H `  y ) ) )  ->  ( `' H : B -1-1-onto-> A  /\  A. z  e.  B  A. w  e.  B  (
z S w  <->  ( `' H `  z ) R ( `' H `  w ) ) ) )
31 df-isom 4676 . 2  |-  ( H 
Isom  R ,  S  ( A ,  B )  <-> 
( H : A -1-1-onto-> B  /\  A. x  e.  A  A. y  e.  A  ( x R y  <-> 
( H `  x
) S ( H `
 y ) ) ) )
32 df-isom 4676 . 2  |-  ( `' H  Isom  S ,  R  ( B ,  A )  <->  ( `' H : B -1-1-onto-> A  /\  A. z  e.  B  A. w  e.  B  ( z S w  <->  ( `' H `  z ) R ( `' H `  w ) ) ) )
3330, 31, 323imtr4i 259 1  |-  ( H 
Isom  R ,  S  ( A ,  B )  ->  `' H  Isom  S ,  R  ( B ,  A ) )
Colors of variables: wff set class
Syntax hints:    -> wi 6    <-> wb 178    /\ wa 360    = wceq 1619    e. wcel 1621   A.wral 2516   class class class wbr 3983   `'ccnv 4646   -->wf 4655   -1-1-onto->wf1o 4658   ` cfv 4659    Isom wiso 4660
This theorem is referenced by:  isores1  5751  isofr  5759  isose  5760  isopo  5763  isoso  5765  weisoeq  5773  weisoeq2  5774  fnwelem  6150  oieu  7208  oemapwe  7350  cantnffval2  7351  wemapwe  7354  infxpenlem  7595  fpwwe2lem7  8212  fpwwe2lem9  8214  infmsup  9686  ltweuz  10976  fz1isolem  11350  ordthmeo  17441  relogiso  19899  erdsze2lem2  23093
This theorem was proved from axioms:  ax-1 7  ax-2 8  ax-3 9  ax-mp 10  ax-5 1533  ax-6 1534  ax-7 1535  ax-gen 1536  ax-8 1623  ax-11 1624  ax-13 1625  ax-14 1626  ax-17 1628  ax-12o 1664  ax-10 1678  ax-9 1684  ax-4 1692  ax-16 1927  ax-ext 2237  ax-sep 4101  ax-nul 4109  ax-pr 4172  ax-un 4470
This theorem depends on definitions:  df-bi 179  df-or 361  df-an 362  df-3an 941  df-tru 1315  df-ex 1538  df-nf 1540  df-sb 1884  df-eu 2121  df-mo 2122  df-clab 2243  df-cleq 2249  df-clel 2252  df-nfc 2381  df-ne 2421  df-ral 2521  df-rex 2522  df-rab 2525  df-v 2759  df-sbc 2953  df-dif 3116  df-un 3118  df-in 3120  df-ss 3127  df-nul 3417  df-if 3526  df-sn 3606  df-pr 3607  df-op 3609  df-uni 3788  df-br 3984  df-opab 4038  df-id 4267  df-xp 4661  df-rel 4662  df-cnv 4663  df-co 4664  df-dm 4665  df-rn 4666  df-res 4667  df-ima 4668  df-fun 4669  df-fn 4670  df-f 4671  df-f1 4672  df-fo 4673  df-f1o 4674  df-fv 4675  df-isom 4676
  Copyright terms: Public domain W3C validator