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

Theorem isocnv 6221
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
Dummy variables  x  w  y  z are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 f1ocnv 5826 . . . 4  |-  ( H : A -1-1-onto-> B  ->  `' H : B -1-1-onto-> A )
21adantr 467 . . 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 6176 . . . . . . . 8  |-  ( ( H : A -1-1-onto-> B  /\  z  e.  B )  ->  ( H `  ( `' H `  z ) )  =  z )
43adantrr 723 . . . . . . 7  |-  ( ( H : A -1-1-onto-> B  /\  ( z  e.  B  /\  w  e.  B
) )  ->  ( H `  ( `' H `  z )
)  =  z )
5 f1ocnvfv2 6176 . . . . . . . 8  |-  ( ( H : A -1-1-onto-> B  /\  w  e.  B )  ->  ( H `  ( `' H `  w ) )  =  w )
65adantrl 722 . . . . . . 7  |-  ( ( H : A -1-1-onto-> B  /\  ( z  e.  B  /\  w  e.  B
) )  ->  ( H `  ( `' H `  w )
)  =  w )
74, 6breq12d 4415 . . . . . 6  |-  ( ( H : A -1-1-onto-> B  /\  ( z  e.  B  /\  w  e.  B
) )  ->  (
( H `  ( `' H `  z ) ) S ( H `
 ( `' H `  w ) )  <->  z S w ) )
87adantlr 721 . . . . 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 5814 . . . . . . 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 6020 . . . . . . . . 9  |-  ( ( `' H : B --> A  /\  z  e.  B )  ->  ( `' H `  z )  e.  A
)
12 ffvelrn 6020 . . . . . . . . 9  |-  ( ( `' H : B --> A  /\  w  e.  B )  ->  ( `' H `  w )  e.  A
)
1311, 12anim12dan 848 . . . . . . . 8  |-  ( ( `' H : B --> A  /\  ( z  e.  B  /\  w  e.  B
) )  ->  (
( `' H `  z )  e.  A  /\  ( `' H `  w )  e.  A
) )
14 breq1 4405 . . . . . . . . . . 11  |-  ( x  =  ( `' H `  z )  ->  (
x R y  <->  ( `' H `  z ) R y ) )
15 fveq2 5865 . . . . . . . . . . . 12  |-  ( x  =  ( `' H `  z )  ->  ( H `  x )  =  ( H `  ( `' H `  z ) ) )
1615breq1d 4412 . . . . . . . . . . 11  |-  ( x  =  ( `' H `  z )  ->  (
( H `  x
) S ( H `
 y )  <->  ( H `  ( `' H `  z ) ) S ( H `  y
) ) )
1714, 16bibi12d 323 . . . . . . . . . 10  |-  ( x  =  ( `' H `  z )  ->  (
( x R y  <-> 
( H `  x
) S ( H `
 y ) )  <-> 
( ( `' H `  z ) R y  <-> 
( H `  ( `' H `  z ) ) S ( H `
 y ) ) ) )
18 bicom 204 . . . . . . . . . 10  |-  ( ( ( `' H `  z ) R y  <-> 
( H `  ( `' H `  z ) ) S ( H `
 y ) )  <-> 
( ( H `  ( `' H `  z ) ) S ( H `
 y )  <->  ( `' H `  z ) R y ) )
1917, 18syl6bb 265 . . . . . . . . 9  |-  ( x  =  ( `' H `  z )  ->  (
( x R y  <-> 
( H `  x
) S ( H `
 y ) )  <-> 
( ( H `  ( `' H `  z ) ) S ( H `
 y )  <->  ( `' H `  z ) R y ) ) )
20 fveq2 5865 . . . . . . . . . . 11  |-  ( y  =  ( `' H `  w )  ->  ( H `  y )  =  ( H `  ( `' H `  w ) ) )
2120breq2d 4414 . . . . . . . . . 10  |-  ( y  =  ( `' H `  w )  ->  (
( H `  ( `' H `  z ) ) S ( H `
 y )  <->  ( H `  ( `' H `  z ) ) S ( H `  ( `' H `  w ) ) ) )
22 breq2 4406 . . . . . . . . . 10  |-  ( y  =  ( `' H `  w )  ->  (
( `' H `  z ) R y  <-> 
( `' H `  z ) R ( `' H `  w ) ) )
2321, 22bibi12d 323 . . . . . . . . 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, 23rspc2va 3160 . . . . . . . 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 474 . . . . . . 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 813 . . . . . 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 656 . . . . 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 259 . . . 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 2809 . . 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 535 . 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 5591 . 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 5591 . 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 270 1  |-  ( H 
Isom  R ,  S  ( A ,  B )  ->  `' H  Isom  S ,  R  ( B ,  A ) )
Colors of variables: wff setvar class
Syntax hints:    -> wi 4    <-> wb 188    /\ wa 371    = wceq 1444    e. wcel 1887   A.wral 2737   class class class wbr 4402   `'ccnv 4833   -->wf 5578   -1-1-onto->wf1o 5581   ` cfv 5582    Isom wiso 5583
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1669  ax-4 1682  ax-5 1758  ax-6 1805  ax-7 1851  ax-8 1889  ax-9 1896  ax-10 1915  ax-11 1920  ax-12 1933  ax-13 2091  ax-ext 2431  ax-sep 4525  ax-nul 4534  ax-pow 4581  ax-pr 4639
This theorem depends on definitions:  df-bi 189  df-or 372  df-an 373  df-3an 987  df-tru 1447  df-ex 1664  df-nf 1668  df-sb 1798  df-eu 2303  df-mo 2304  df-clab 2438  df-cleq 2444  df-clel 2447  df-nfc 2581  df-ne 2624  df-ral 2742  df-rex 2743  df-rab 2746  df-v 3047  df-sbc 3268  df-dif 3407  df-un 3409  df-in 3411  df-ss 3418  df-nul 3732  df-if 3882  df-sn 3969  df-pr 3971  df-op 3975  df-uni 4199  df-br 4403  df-opab 4462  df-id 4749  df-xp 4840  df-rel 4841  df-cnv 4842  df-co 4843  df-dm 4844  df-rn 4845  df-res 4846  df-ima 4847  df-iota 5546  df-fun 5584  df-fn 5585  df-f 5586  df-f1 5587  df-fo 5588  df-f1o 5589  df-fv 5590  df-isom 5591
This theorem is referenced by:  isores1  6225  isofr  6233  isose  6234  isopo  6237  isoso  6239  weisoeq  6246  weisoeq2  6247  fnwelem  6911  oieu  8054  oemapwe  8199  cantnffval2  8200  wemapwe  8202  infxpenlem  8444  fpwwe2lem7  9061  fpwwe2lem9  9063  infrenegsup  10591  infmsupOLD  10592  ltweuz  12175  fz1isolem  12624  ordthmeo  20817  relogiso  23547  erdsze2lem2  29927  fzisoeu  37518
  Copyright terms: Public domain W3C validator