Metamath Proof Explorer

Theorem f1oiso

Description: Any one-to-one onto function determines an isomorphism with an induced relation S . Proposition 6.33 of TakeutiZaring p. 34. (Contributed by NM, 30-Apr-2004)

Ref Expression
Assertion f1oiso 
|- ( ( H : A -1-1-onto-> B /\ S = { <. z , w >. | E. x e. A E. y e. A ( ( z = ( H ` x ) /\ w = ( H ` y ) ) /\ x R y ) } ) -> H Isom R , S ( A , B ) )

Proof

Step Hyp Ref Expression
1 simpl 
 |-  ( ( H : A -1-1-onto-> B /\ S = { <. z , w >. | E. x e. A E. y e. A ( ( z = ( H ` x ) /\ w = ( H ` y ) ) /\ x R y ) } ) -> H : A -1-1-onto-> B )
2 f1of1 
 |-  ( H : A -1-1-onto-> B -> H : A -1-1-> B )
3 df-br 
 |-  ( ( H ` v ) S ( H ` u ) <-> <. ( H ` v ) , ( H ` u ) >. e. S )
4 eleq2 
 |-  ( S = { <. z , w >. | E. x e. A E. y e. A ( ( z = ( H ` x ) /\ w = ( H ` y ) ) /\ x R y ) } -> ( <. ( H ` v ) , ( H ` u ) >. e. S <-> <. ( H ` v ) , ( H ` u ) >. e. { <. z , w >. | E. x e. A E. y e. A ( ( z = ( H ` x ) /\ w = ( H ` y ) ) /\ x R y ) } ) )
5 fvex 
 |-  ( H ` v ) e. _V
6 fvex 
 |-  ( H ` u ) e. _V
7 eqeq1 
 |-  ( z = ( H ` v ) -> ( z = ( H ` x ) <-> ( H ` v ) = ( H ` x ) ) )
8 7 anbi1d 
 |-  ( z = ( H ` v ) -> ( ( z = ( H ` x ) /\ w = ( H ` y ) ) <-> ( ( H ` v ) = ( H ` x ) /\ w = ( H ` y ) ) ) )
9 8 anbi1d 
 |-  ( z = ( H ` v ) -> ( ( ( z = ( H ` x ) /\ w = ( H ` y ) ) /\ x R y ) <-> ( ( ( H ` v ) = ( H ` x ) /\ w = ( H ` y ) ) /\ x R y ) ) )
10 9 2rexbidv 
 |-  ( z = ( H ` v ) -> ( E. x e. A E. y e. A ( ( z = ( H ` x ) /\ w = ( H ` y ) ) /\ x R y ) <-> E. x e. A E. y e. A ( ( ( H ` v ) = ( H ` x ) /\ w = ( H ` y ) ) /\ x R y ) ) )
11 eqeq1 
 |-  ( w = ( H ` u ) -> ( w = ( H ` y ) <-> ( H ` u ) = ( H ` y ) ) )
12 11 anbi2d 
 |-  ( w = ( H ` u ) -> ( ( ( H ` v ) = ( H ` x ) /\ w = ( H ` y ) ) <-> ( ( H ` v ) = ( H ` x ) /\ ( H ` u ) = ( H ` y ) ) ) )
13 12 anbi1d 
 |-  ( w = ( H ` u ) -> ( ( ( ( H ` v ) = ( H ` x ) /\ w = ( H ` y ) ) /\ x R y ) <-> ( ( ( H ` v ) = ( H ` x ) /\ ( H ` u ) = ( H ` y ) ) /\ x R y ) ) )
14 13 2rexbidv 
 |-  ( w = ( H ` u ) -> ( E. x e. A E. y e. A ( ( ( H ` v ) = ( H ` x ) /\ w = ( H ` y ) ) /\ x R y ) <-> E. x e. A E. y e. A ( ( ( H ` v ) = ( H ` x ) /\ ( H ` u ) = ( H ` y ) ) /\ x R y ) ) )
15 5 6 10 14 opelopab 
 |-  ( <. ( H ` v ) , ( H ` u ) >. e. { <. z , w >. | E. x e. A E. y e. A ( ( z = ( H ` x ) /\ w = ( H ` y ) ) /\ x R y ) } <-> E. x e. A E. y e. A ( ( ( H ` v ) = ( H ` x ) /\ ( H ` u ) = ( H ` y ) ) /\ x R y ) )
16 anass 
 |-  ( ( ( ( H ` v ) = ( H ` x ) /\ ( H ` u ) = ( H ` y ) ) /\ x R y ) <-> ( ( H ` v ) = ( H ` x ) /\ ( ( H ` u ) = ( H ` y ) /\ x R y ) ) )
17 f1fveq 
 |-  ( ( H : A -1-1-> B /\ ( v e. A /\ x e. A ) ) -> ( ( H ` v ) = ( H ` x ) <-> v = x ) )
18 equcom 
 |-  ( v = x <-> x = v )
19 17 18 bitrdi 
 |-  ( ( H : A -1-1-> B /\ ( v e. A /\ x e. A ) ) -> ( ( H ` v ) = ( H ` x ) <-> x = v ) )
20 19 anassrs 
 |-  ( ( ( H : A -1-1-> B /\ v e. A ) /\ x e. A ) -> ( ( H ` v ) = ( H ` x ) <-> x = v ) )
21 20 anbi1d 
 |-  ( ( ( H : A -1-1-> B /\ v e. A ) /\ x e. A ) -> ( ( ( H ` v ) = ( H ` x ) /\ ( ( H ` u ) = ( H ` y ) /\ x R y ) ) <-> ( x = v /\ ( ( H ` u ) = ( H ` y ) /\ x R y ) ) ) )
22 16 21 bitrid 
 |-  ( ( ( H : A -1-1-> B /\ v e. A ) /\ x e. A ) -> ( ( ( ( H ` v ) = ( H ` x ) /\ ( H ` u ) = ( H ` y ) ) /\ x R y ) <-> ( x = v /\ ( ( H ` u ) = ( H ` y ) /\ x R y ) ) ) )
23 22 rexbidv 
 |-  ( ( ( H : A -1-1-> B /\ v e. A ) /\ x e. A ) -> ( E. y e. A ( ( ( H ` v ) = ( H ` x ) /\ ( H ` u ) = ( H ` y ) ) /\ x R y ) <-> E. y e. A ( x = v /\ ( ( H ` u ) = ( H ` y ) /\ x R y ) ) ) )
24 r19.42v 
 |-  ( E. y e. A ( x = v /\ ( ( H ` u ) = ( H ` y ) /\ x R y ) ) <-> ( x = v /\ E. y e. A ( ( H ` u ) = ( H ` y ) /\ x R y ) ) )
25 23 24 bitrdi 
 |-  ( ( ( H : A -1-1-> B /\ v e. A ) /\ x e. A ) -> ( E. y e. A ( ( ( H ` v ) = ( H ` x ) /\ ( H ` u ) = ( H ` y ) ) /\ x R y ) <-> ( x = v /\ E. y e. A ( ( H ` u ) = ( H ` y ) /\ x R y ) ) ) )
26 25 rexbidva 
 |-  ( ( H : A -1-1-> B /\ v e. A ) -> ( E. x e. A E. y e. A ( ( ( H ` v ) = ( H ` x ) /\ ( H ` u ) = ( H ` y ) ) /\ x R y ) <-> E. x e. A ( x = v /\ E. y e. A ( ( H ` u ) = ( H ` y ) /\ x R y ) ) ) )
27 breq1 
 |-  ( x = v -> ( x R y <-> v R y ) )
28 27 anbi2d 
 |-  ( x = v -> ( ( ( H ` u ) = ( H ` y ) /\ x R y ) <-> ( ( H ` u ) = ( H ` y ) /\ v R y ) ) )
29 28 rexbidv 
 |-  ( x = v -> ( E. y e. A ( ( H ` u ) = ( H ` y ) /\ x R y ) <-> E. y e. A ( ( H ` u ) = ( H ` y ) /\ v R y ) ) )
30 29 ceqsrexv 
 |-  ( v e. A -> ( E. x e. A ( x = v /\ E. y e. A ( ( H ` u ) = ( H ` y ) /\ x R y ) ) <-> E. y e. A ( ( H ` u ) = ( H ` y ) /\ v R y ) ) )
31 30 adantl 
 |-  ( ( H : A -1-1-> B /\ v e. A ) -> ( E. x e. A ( x = v /\ E. y e. A ( ( H ` u ) = ( H ` y ) /\ x R y ) ) <-> E. y e. A ( ( H ` u ) = ( H ` y ) /\ v R y ) ) )
32 26 31 bitrd 
 |-  ( ( H : A -1-1-> B /\ v e. A ) -> ( E. x e. A E. y e. A ( ( ( H ` v ) = ( H ` x ) /\ ( H ` u ) = ( H ` y ) ) /\ x R y ) <-> E. y e. A ( ( H ` u ) = ( H ` y ) /\ v R y ) ) )
33 f1fveq 
 |-  ( ( H : A -1-1-> B /\ ( u e. A /\ y e. A ) ) -> ( ( H ` u ) = ( H ` y ) <-> u = y ) )
34 equcom 
 |-  ( u = y <-> y = u )
35 33 34 bitrdi 
 |-  ( ( H : A -1-1-> B /\ ( u e. A /\ y e. A ) ) -> ( ( H ` u ) = ( H ` y ) <-> y = u ) )
36 35 anassrs 
 |-  ( ( ( H : A -1-1-> B /\ u e. A ) /\ y e. A ) -> ( ( H ` u ) = ( H ` y ) <-> y = u ) )
37 36 anbi1d 
 |-  ( ( ( H : A -1-1-> B /\ u e. A ) /\ y e. A ) -> ( ( ( H ` u ) = ( H ` y ) /\ v R y ) <-> ( y = u /\ v R y ) ) )
38 37 rexbidva 
 |-  ( ( H : A -1-1-> B /\ u e. A ) -> ( E. y e. A ( ( H ` u ) = ( H ` y ) /\ v R y ) <-> E. y e. A ( y = u /\ v R y ) ) )
39 breq2 
 |-  ( y = u -> ( v R y <-> v R u ) )
40 39 ceqsrexv 
 |-  ( u e. A -> ( E. y e. A ( y = u /\ v R y ) <-> v R u ) )
41 40 adantl 
 |-  ( ( H : A -1-1-> B /\ u e. A ) -> ( E. y e. A ( y = u /\ v R y ) <-> v R u ) )
42 38 41 bitrd 
 |-  ( ( H : A -1-1-> B /\ u e. A ) -> ( E. y e. A ( ( H ` u ) = ( H ` y ) /\ v R y ) <-> v R u ) )
43 32 42 sylan9bb 
 |-  ( ( ( H : A -1-1-> B /\ v e. A ) /\ ( H : A -1-1-> B /\ u e. A ) ) -> ( E. x e. A E. y e. A ( ( ( H ` v ) = ( H ` x ) /\ ( H ` u ) = ( H ` y ) ) /\ x R y ) <-> v R u ) )
44 43 anandis 
 |-  ( ( H : A -1-1-> B /\ ( v e. A /\ u e. A ) ) -> ( E. x e. A E. y e. A ( ( ( H ` v ) = ( H ` x ) /\ ( H ` u ) = ( H ` y ) ) /\ x R y ) <-> v R u ) )
45 15 44 bitrid 
 |-  ( ( H : A -1-1-> B /\ ( v e. A /\ u e. A ) ) -> ( <. ( H ` v ) , ( H ` u ) >. e. { <. z , w >. | E. x e. A E. y e. A ( ( z = ( H ` x ) /\ w = ( H ` y ) ) /\ x R y ) } <-> v R u ) )
46 4 45 sylan9bbr 
 |-  ( ( ( H : A -1-1-> B /\ ( v e. A /\ u e. A ) ) /\ S = { <. z , w >. | E. x e. A E. y e. A ( ( z = ( H ` x ) /\ w = ( H ` y ) ) /\ x R y ) } ) -> ( <. ( H ` v ) , ( H ` u ) >. e. S <-> v R u ) )
47 46 an32s 
 |-  ( ( ( H : A -1-1-> B /\ S = { <. z , w >. | E. x e. A E. y e. A ( ( z = ( H ` x ) /\ w = ( H ` y ) ) /\ x R y ) } ) /\ ( v e. A /\ u e. A ) ) -> ( <. ( H ` v ) , ( H ` u ) >. e. S <-> v R u ) )
48 3 47 bitr2id 
 |-  ( ( ( H : A -1-1-> B /\ S = { <. z , w >. | E. x e. A E. y e. A ( ( z = ( H ` x ) /\ w = ( H ` y ) ) /\ x R y ) } ) /\ ( v e. A /\ u e. A ) ) -> ( v R u <-> ( H ` v ) S ( H ` u ) ) )
49 48 ralrimivva 
 |-  ( ( H : A -1-1-> B /\ S = { <. z , w >. | E. x e. A E. y e. A ( ( z = ( H ` x ) /\ w = ( H ` y ) ) /\ x R y ) } ) -> A. v e. A A. u e. A ( v R u <-> ( H ` v ) S ( H ` u ) ) )
50 2 49 sylan 
 |-  ( ( H : A -1-1-onto-> B /\ S = { <. z , w >. | E. x e. A E. y e. A ( ( z = ( H ` x ) /\ w = ( H ` y ) ) /\ x R y ) } ) -> A. v e. A A. u e. A ( v R u <-> ( H ` v ) S ( H ` u ) ) )
51 df-isom 
 |-  ( H Isom R , S ( A , B ) <-> ( H : A -1-1-onto-> B /\ A. v e. A A. u e. A ( v R u <-> ( H ` v ) S ( H ` u ) ) ) )
52 1 50 51 sylanbrc 
 |-  ( ( H : A -1-1-onto-> B /\ S = { <. z , w >. | E. x e. A E. y e. A ( ( z = ( H ` x ) /\ w = ( H ` y ) ) /\ x R y ) } ) -> H Isom R , S ( A , B ) )