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

Theorem isocnv 6232
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 5839 . . . 4  |-  ( H : A -1-1-onto-> B  ->  `' H : B -1-1-onto-> A )
21adantr 466 . . 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 6187 . . . . . . . 8  |-  ( ( H : A -1-1-onto-> B  /\  z  e.  B )  ->  ( H `  ( `' H `  z ) )  =  z )
43adantrr 721 . . . . . . 7  |-  ( ( H : A -1-1-onto-> B  /\  ( z  e.  B  /\  w  e.  B
) )  ->  ( H `  ( `' H `  z )
)  =  z )
5 f1ocnvfv2 6187 . . . . . . . 8  |-  ( ( H : A -1-1-onto-> B  /\  w  e.  B )  ->  ( H `  ( `' H `  w ) )  =  w )
65adantrl 720 . . . . . . 7  |-  ( ( H : A -1-1-onto-> B  /\  ( z  e.  B  /\  w  e.  B
) )  ->  ( H `  ( `' H `  w )
)  =  w )
74, 6breq12d 4433 . . . . . 6  |-  ( ( H : A -1-1-onto-> B  /\  ( z  e.  B  /\  w  e.  B
) )  ->  (
( H `  ( `' H `  z ) ) S ( H `
 ( `' H `  w ) )  <->  z S w ) )
87adantlr 719 . . . . 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 5827 . . . . . . 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 6031 . . . . . . . . 9  |-  ( ( `' H : B --> A  /\  z  e.  B )  ->  ( `' H `  z )  e.  A
)
12 ffvelrn 6031 . . . . . . . . 9  |-  ( ( `' H : B --> A  /\  w  e.  B )  ->  ( `' H `  w )  e.  A
)
1311, 12anim12dan 845 . . . . . . . 8  |-  ( ( `' H : B --> A  /\  ( z  e.  B  /\  w  e.  B
) )  ->  (
( `' H `  z )  e.  A  /\  ( `' H `  w )  e.  A
) )
14 breq1 4423 . . . . . . . . . . 11  |-  ( x  =  ( `' H `  z )  ->  (
x R y  <->  ( `' H `  z ) R y ) )
15 fveq2 5877 . . . . . . . . . . . 12  |-  ( x  =  ( `' H `  z )  ->  ( H `  x )  =  ( H `  ( `' H `  z ) ) )
1615breq1d 4430 . . . . . . . . . . 11  |-  ( x  =  ( `' H `  z )  ->  (
( H `  x
) S ( H `
 y )  <->  ( H `  ( `' H `  z ) ) S ( H `  y
) ) )
1714, 16bibi12d 322 . . . . . . . . . 10  |-  ( x  =  ( `' H `  z )  ->  (
( x R y  <-> 
( H `  x
) S ( H `
 y ) )  <-> 
( ( `' H `  z ) R y  <-> 
( H `  ( `' H `  z ) ) S ( H `
 y ) ) ) )
18 bicom 203 . . . . . . . . . 10  |-  ( ( ( `' H `  z ) R y  <-> 
( H `  ( `' H `  z ) ) S ( H `
 y ) )  <-> 
( ( H `  ( `' H `  z ) ) S ( H `
 y )  <->  ( `' H `  z ) R y ) )
1917, 18syl6bb 264 . . . . . . . . 9  |-  ( x  =  ( `' H `  z )  ->  (
( x R y  <-> 
( H `  x
) S ( H `
 y ) )  <-> 
( ( H `  ( `' H `  z ) ) S ( H `
 y )  <->  ( `' H `  z ) R y ) ) )
20 fveq2 5877 . . . . . . . . . . 11  |-  ( y  =  ( `' H `  w )  ->  ( H `  y )  =  ( H `  ( `' H `  w ) ) )
2120breq2d 4432 . . . . . . . . . 10  |-  ( y  =  ( `' H `  w )  ->  (
( H `  ( `' H `  z ) ) S ( H `
 y )  <->  ( H `  ( `' H `  z ) ) S ( H `  ( `' H `  w ) ) ) )
22 breq2 4424 . . . . . . . . . 10  |-  ( y  =  ( `' H `  w )  ->  (
( `' H `  z ) R y  <-> 
( `' H `  z ) R ( `' H `  w ) ) )
2321, 22bibi12d 322 . . . . . . . . 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 3192 . . . . . . . 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 473 . . . . . . 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 811 . . . . . 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 654 . . . . 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 258 . . . 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 2846 . . 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 534 . 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 5606 . 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 5606 . 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 269 1  |-  ( H 
Isom  R ,  S  ( A ,  B )  ->  `' H  Isom  S ,  R  ( B ,  A ) )
Colors of variables: wff setvar class
Syntax hints:    -> wi 4    <-> wb 187    /\ wa 370    = wceq 1437    e. wcel 1868   A.wral 2775   class class class wbr 4420   `'ccnv 4848   -->wf 5593   -1-1-onto->wf1o 5596   ` cfv 5597    Isom wiso 5598
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1665  ax-4 1678  ax-5 1748  ax-6 1794  ax-7 1839  ax-8 1870  ax-9 1872  ax-10 1887  ax-11 1892  ax-12 1905  ax-13 2053  ax-ext 2400  ax-sep 4543  ax-nul 4551  ax-pow 4598  ax-pr 4656
This theorem depends on definitions:  df-bi 188  df-or 371  df-an 372  df-3an 984  df-tru 1440  df-ex 1660  df-nf 1664  df-sb 1787  df-eu 2269  df-mo 2270  df-clab 2408  df-cleq 2414  df-clel 2417  df-nfc 2572  df-ne 2620  df-ral 2780  df-rex 2781  df-rab 2784  df-v 3083  df-sbc 3300  df-dif 3439  df-un 3441  df-in 3443  df-ss 3450  df-nul 3762  df-if 3910  df-sn 3997  df-pr 3999  df-op 4003  df-uni 4217  df-br 4421  df-opab 4480  df-id 4764  df-xp 4855  df-rel 4856  df-cnv 4857  df-co 4858  df-dm 4859  df-rn 4860  df-res 4861  df-ima 4862  df-iota 5561  df-fun 5599  df-fn 5600  df-f 5601  df-f1 5602  df-fo 5603  df-f1o 5604  df-fv 5605  df-isom 5606
This theorem is referenced by:  isores1  6236  isofr  6244  isose  6245  isopo  6248  isoso  6250  weisoeq  6257  weisoeq2  6258  fnwelem  6918  oieu  8056  oemapwe  8200  cantnffval2  8201  wemapwe  8203  infxpenlem  8445  fpwwe2lem7  9061  fpwwe2lem9  9063  infrenegsup  10591  infmsupOLD  10592  ltweuz  12174  fz1isolem  12621  ordthmeo  20801  relogiso  23531  erdsze2lem2  29920  fzisoeu  37357
  Copyright terms: Public domain W3C validator