Users' Mathboxes Mathbox for Stefan O'Rear < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  wepwsolem Unicode version

Theorem wepwsolem 26808
Description: Transfer an ordering on characteristic functions by isomorphism to the power set. (Contributed by Stefan O'Rear, 18-Jan-2015.)
Hypotheses
Ref Expression
wepwso.t  |-  T  =  { <. x ,  y
>.  |  E. z  e.  A  ( (
z  e.  y  /\  -.  z  e.  x
)  /\  A. w  e.  A  ( w R z  ->  (
w  e.  x  <->  w  e.  y ) ) ) }
wepwso.u  |-  U  =  { <. x ,  y
>.  |  E. z  e.  A  ( (
x `  z )  _E  ( y `  z
)  /\  A. w  e.  A  ( w R z  ->  (
x `  w )  =  ( y `  w ) ) ) }
wepwso.f  |-  F  =  ( a  e.  ( 2o  ^m  A ) 
|->  ( `' a " { 1o } ) )
Assertion
Ref Expression
wepwsolem  |-  ( A  e.  _V  ->  F  Isom  U ,  T  ( ( 2o  ^m  A
) ,  ~P A
) )
Distinct variable groups:    x, R, y, z, w, a    x, A, y, z, w, a   
x, F, y, z, w    T, a    U, a
Allowed substitution hints:    T( x, y, z, w)    U( x, y, z, w)    F( a)

Proof of Theorem wepwsolem
Dummy variables  b 
c are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 wepwso.f . . 3  |-  F  =  ( a  e.  ( 2o  ^m  A ) 
|->  ( `' a " { 1o } ) )
21pw2f1o2 26801 . 2  |-  ( A  e.  _V  ->  F : ( 2o  ^m  A ) -1-1-onto-> ~P A )
3 fvex 5683 . . . . . . . 8  |-  ( c `
 z )  e. 
_V
43epelc 4438 . . . . . . 7  |-  ( ( b `  z )  _E  ( c `  z )  <->  ( b `  z )  e.  ( c `  z ) )
5 elmapi 6975 . . . . . . . . . . 11  |-  ( b  e.  ( 2o  ^m  A )  ->  b : A --> 2o )
65ad2antrl 709 . . . . . . . . . 10  |-  ( ( A  e.  _V  /\  ( b  e.  ( 2o  ^m  A )  /\  c  e.  ( 2o  ^m  A ) ) )  ->  b : A --> 2o )
76ffvelrnda 5810 . . . . . . . . 9  |-  ( ( ( A  e.  _V  /\  ( b  e.  ( 2o  ^m  A )  /\  c  e.  ( 2o  ^m  A ) ) )  /\  z  e.  A )  ->  (
b `  z )  e.  2o )
8 elmapi 6975 . . . . . . . . . . 11  |-  ( c  e.  ( 2o  ^m  A )  ->  c : A --> 2o )
98ad2antll 710 . . . . . . . . . 10  |-  ( ( A  e.  _V  /\  ( b  e.  ( 2o  ^m  A )  /\  c  e.  ( 2o  ^m  A ) ) )  ->  c : A --> 2o )
109ffvelrnda 5810 . . . . . . . . 9  |-  ( ( ( A  e.  _V  /\  ( b  e.  ( 2o  ^m  A )  /\  c  e.  ( 2o  ^m  A ) ) )  /\  z  e.  A )  ->  (
c `  z )  e.  2o )
11 n0i 3577 . . . . . . . . . . . . 13  |-  ( ( b `  z )  e.  ( c `  z )  ->  -.  ( c `  z
)  =  (/) )
1211adantl 453 . . . . . . . . . . . 12  |-  ( ( ( ( b `  z )  e.  2o  /\  ( c `  z
)  e.  2o )  /\  ( b `  z )  e.  ( c `  z ) )  ->  -.  (
c `  z )  =  (/) )
13 elpri 3778 . . . . . . . . . . . . . 14  |-  ( ( c `  z )  e.  { (/) ,  1o }  ->  ( ( c `
 z )  =  (/)  \/  ( c `  z )  =  1o ) )
14 df2o3 6674 . . . . . . . . . . . . . 14  |-  2o  =  { (/) ,  1o }
1513, 14eleq2s 2480 . . . . . . . . . . . . 13  |-  ( ( c `  z )  e.  2o  ->  (
( c `  z
)  =  (/)  \/  (
c `  z )  =  1o ) )
1615ad2antlr 708 . . . . . . . . . . . 12  |-  ( ( ( ( b `  z )  e.  2o  /\  ( c `  z
)  e.  2o )  /\  ( b `  z )  e.  ( c `  z ) )  ->  ( (
c `  z )  =  (/)  \/  ( c `
 z )  =  1o ) )
17 orel1 372 . . . . . . . . . . . 12  |-  ( -.  ( c `  z
)  =  (/)  ->  (
( ( c `  z )  =  (/)  \/  ( c `  z
)  =  1o )  ->  ( c `  z )  =  1o ) )
1812, 16, 17sylc 58 . . . . . . . . . . 11  |-  ( ( ( ( b `  z )  e.  2o  /\  ( c `  z
)  e.  2o )  /\  ( b `  z )  e.  ( c `  z ) )  ->  ( c `  z )  =  1o )
19 1on 6668 . . . . . . . . . . . . . 14  |-  1o  e.  On
2019onirri 4629 . . . . . . . . . . . . 13  |-  -.  1o  e.  1o
21 eleq12 2450 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( b `  z
)  =  1o  /\  ( c `  z
)  =  1o )  ->  ( ( b `
 z )  e.  ( c `  z
)  <->  1o  e.  1o ) )
2221biimpd 199 . . . . . . . . . . . . . . . . 17  |-  ( ( ( b `  z
)  =  1o  /\  ( c `  z
)  =  1o )  ->  ( ( b `
 z )  e.  ( c `  z
)  ->  1o  e.  1o ) )
2322expcom 425 . . . . . . . . . . . . . . . 16  |-  ( ( c `  z )  =  1o  ->  (
( b `  z
)  =  1o  ->  ( ( b `  z
)  e.  ( c `
 z )  ->  1o  e.  1o ) ) )
2423com3r 75 . . . . . . . . . . . . . . 15  |-  ( ( b `  z )  e.  ( c `  z )  ->  (
( c `  z
)  =  1o  ->  ( ( b `  z
)  =  1o  ->  1o  e.  1o ) ) )
2524imp 419 . . . . . . . . . . . . . 14  |-  ( ( ( b `  z
)  e.  ( c `
 z )  /\  ( c `  z
)  =  1o )  ->  ( ( b `
 z )  =  1o  ->  1o  e.  1o ) )
2625adantll 695 . . . . . . . . . . . . 13  |-  ( ( ( ( ( b `
 z )  e.  2o  /\  ( c `
 z )  e.  2o )  /\  (
b `  z )  e.  ( c `  z
) )  /\  (
c `  z )  =  1o )  ->  (
( b `  z
)  =  1o  ->  1o  e.  1o ) )
2720, 26mtoi 171 . . . . . . . . . . . 12  |-  ( ( ( ( ( b `
 z )  e.  2o  /\  ( c `
 z )  e.  2o )  /\  (
b `  z )  e.  ( c `  z
) )  /\  (
c `  z )  =  1o )  ->  -.  ( b `  z
)  =  1o )
2818, 27mpdan 650 . . . . . . . . . . 11  |-  ( ( ( ( b `  z )  e.  2o  /\  ( c `  z
)  e.  2o )  /\  ( b `  z )  e.  ( c `  z ) )  ->  -.  (
b `  z )  =  1o )
2918, 28jca 519 . . . . . . . . . 10  |-  ( ( ( ( b `  z )  e.  2o  /\  ( c `  z
)  e.  2o )  /\  ( b `  z )  e.  ( c `  z ) )  ->  ( (
c `  z )  =  1o  /\  -.  (
b `  z )  =  1o ) )
30 elpri 3778 . . . . . . . . . . . . . . . 16  |-  ( ( b `  z )  e.  { (/) ,  1o }  ->  ( ( b `
 z )  =  (/)  \/  ( b `  z )  =  1o ) )
3130, 14eleq2s 2480 . . . . . . . . . . . . . . 15  |-  ( ( b `  z )  e.  2o  ->  (
( b `  z
)  =  (/)  \/  (
b `  z )  =  1o ) )
3231adantr 452 . . . . . . . . . . . . . 14  |-  ( ( ( b `  z
)  e.  2o  /\  ( c `  z
)  e.  2o )  ->  ( ( b `
 z )  =  (/)  \/  ( b `  z )  =  1o ) )
33 orel2 373 . . . . . . . . . . . . . 14  |-  ( -.  ( b `  z
)  =  1o  ->  ( ( ( b `  z )  =  (/)  \/  ( b `  z
)  =  1o )  ->  ( b `  z )  =  (/) ) )
3432, 33mpan9 456 . . . . . . . . . . . . 13  |-  ( ( ( ( b `  z )  e.  2o  /\  ( c `  z
)  e.  2o )  /\  -.  ( b `
 z )  =  1o )  ->  (
b `  z )  =  (/) )
3534adantrl 697 . . . . . . . . . . . 12  |-  ( ( ( ( b `  z )  e.  2o  /\  ( c `  z
)  e.  2o )  /\  ( ( c `
 z )  =  1o  /\  -.  (
b `  z )  =  1o ) )  -> 
( b `  z
)  =  (/) )
36 0lt1o 6685 . . . . . . . . . . . 12  |-  (/)  e.  1o
3735, 36syl6eqel 2476 . . . . . . . . . . 11  |-  ( ( ( ( b `  z )  e.  2o  /\  ( c `  z
)  e.  2o )  /\  ( ( c `
 z )  =  1o  /\  -.  (
b `  z )  =  1o ) )  -> 
( b `  z
)  e.  1o )
38 simprl 733 . . . . . . . . . . 11  |-  ( ( ( ( b `  z )  e.  2o  /\  ( c `  z
)  e.  2o )  /\  ( ( c `
 z )  =  1o  /\  -.  (
b `  z )  =  1o ) )  -> 
( c `  z
)  =  1o )
3937, 38eleqtrrd 2465 . . . . . . . . . 10  |-  ( ( ( ( b `  z )  e.  2o  /\  ( c `  z
)  e.  2o )  /\  ( ( c `
 z )  =  1o  /\  -.  (
b `  z )  =  1o ) )  -> 
( b `  z
)  e.  ( c `
 z ) )
4029, 39impbida 806 . . . . . . . . 9  |-  ( ( ( b `  z
)  e.  2o  /\  ( c `  z
)  e.  2o )  ->  ( ( b `
 z )  e.  ( c `  z
)  <->  ( ( c `
 z )  =  1o  /\  -.  (
b `  z )  =  1o ) ) )
417, 10, 40syl2anc 643 . . . . . . . 8  |-  ( ( ( A  e.  _V  /\  ( b  e.  ( 2o  ^m  A )  /\  c  e.  ( 2o  ^m  A ) ) )  /\  z  e.  A )  ->  (
( b `  z
)  e.  ( c `
 z )  <->  ( (
c `  z )  =  1o  /\  -.  (
b `  z )  =  1o ) ) )
42 simplrr 738 . . . . . . . . . 10  |-  ( ( ( A  e.  _V  /\  ( b  e.  ( 2o  ^m  A )  /\  c  e.  ( 2o  ^m  A ) ) )  /\  z  e.  A )  ->  c  e.  ( 2o  ^m  A
) )
431pw2f1o2val2 26803 . . . . . . . . . 10  |-  ( ( c  e.  ( 2o 
^m  A )  /\  z  e.  A )  ->  ( z  e.  ( F `  c )  <-> 
( c `  z
)  =  1o ) )
4442, 43sylancom 649 . . . . . . . . 9  |-  ( ( ( A  e.  _V  /\  ( b  e.  ( 2o  ^m  A )  /\  c  e.  ( 2o  ^m  A ) ) )  /\  z  e.  A )  ->  (
z  e.  ( F `
 c )  <->  ( c `  z )  =  1o ) )
45 simplrl 737 . . . . . . . . . . 11  |-  ( ( ( A  e.  _V  /\  ( b  e.  ( 2o  ^m  A )  /\  c  e.  ( 2o  ^m  A ) ) )  /\  z  e.  A )  ->  b  e.  ( 2o  ^m  A
) )
461pw2f1o2val2 26803 . . . . . . . . . . 11  |-  ( ( b  e.  ( 2o 
^m  A )  /\  z  e.  A )  ->  ( z  e.  ( F `  b )  <-> 
( b `  z
)  =  1o ) )
4745, 46sylancom 649 . . . . . . . . . 10  |-  ( ( ( A  e.  _V  /\  ( b  e.  ( 2o  ^m  A )  /\  c  e.  ( 2o  ^m  A ) ) )  /\  z  e.  A )  ->  (
z  e.  ( F `
 b )  <->  ( b `  z )  =  1o ) )
4847notbid 286 . . . . . . . . 9  |-  ( ( ( A  e.  _V  /\  ( b  e.  ( 2o  ^m  A )  /\  c  e.  ( 2o  ^m  A ) ) )  /\  z  e.  A )  ->  ( -.  z  e.  ( F `  b )  <->  -.  ( b `  z
)  =  1o ) )
4944, 48anbi12d 692 . . . . . . . 8  |-  ( ( ( A  e.  _V  /\  ( b  e.  ( 2o  ^m  A )  /\  c  e.  ( 2o  ^m  A ) ) )  /\  z  e.  A )  ->  (
( z  e.  ( F `  c )  /\  -.  z  e.  ( F `  b
) )  <->  ( (
c `  z )  =  1o  /\  -.  (
b `  z )  =  1o ) ) )
5041, 49bitr4d 248 . . . . . . 7  |-  ( ( ( A  e.  _V  /\  ( b  e.  ( 2o  ^m  A )  /\  c  e.  ( 2o  ^m  A ) ) )  /\  z  e.  A )  ->  (
( b `  z
)  e.  ( c `
 z )  <->  ( z  e.  ( F `  c
)  /\  -.  z  e.  ( F `  b
) ) ) )
514, 50syl5bb 249 . . . . . 6  |-  ( ( ( A  e.  _V  /\  ( b  e.  ( 2o  ^m  A )  /\  c  e.  ( 2o  ^m  A ) ) )  /\  z  e.  A )  ->  (
( b `  z
)  _E  ( c `
 z )  <->  ( z  e.  ( F `  c
)  /\  -.  z  e.  ( F `  b
) ) ) )
526ffvelrnda 5810 . . . . . . . . . . 11  |-  ( ( ( A  e.  _V  /\  ( b  e.  ( 2o  ^m  A )  /\  c  e.  ( 2o  ^m  A ) ) )  /\  w  e.  A )  ->  (
b `  w )  e.  2o )
539ffvelrnda 5810 . . . . . . . . . . 11  |-  ( ( ( A  e.  _V  /\  ( b  e.  ( 2o  ^m  A )  /\  c  e.  ( 2o  ^m  A ) ) )  /\  w  e.  A )  ->  (
c `  w )  e.  2o )
54 eqeq1 2394 . . . . . . . . . . . 12  |-  ( ( b `  w )  =  ( c `  w )  ->  (
( b `  w
)  =  1o  <->  ( c `  w )  =  1o ) )
55 simplr 732 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ( b `
 w )  e.  2o  /\  ( c `
 w )  e.  2o )  /\  (
b `  w )  =  (/) )  /\  (
( b `  w
)  =  1o  <->  ( c `  w )  =  1o ) )  ->  (
b `  w )  =  (/) )
56 1n0 6676 . . . . . . . . . . . . . . . . . . . . 21  |-  1o  =/=  (/)
5756necomi 2633 . . . . . . . . . . . . . . . . . . . 20  |-  (/)  =/=  1o
58 df-ne 2553 . . . . . . . . . . . . . . . . . . . 20  |-  ( (/)  =/=  1o  <->  -.  (/)  =  1o )
5957, 58mpbi 200 . . . . . . . . . . . . . . . . . . 19  |-  -.  (/)  =  1o
60 eqeq1 2394 . . . . . . . . . . . . . . . . . . 19  |-  ( ( b `  w )  =  (/)  ->  ( ( b `  w )  =  1o  <->  (/)  =  1o ) )
6159, 60mtbiri 295 . . . . . . . . . . . . . . . . . 18  |-  ( ( b `  w )  =  (/)  ->  -.  (
b `  w )  =  1o )
6261ad2antlr 708 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( ( b `
 w )  e.  2o  /\  ( c `
 w )  e.  2o )  /\  (
b `  w )  =  (/) )  /\  (
( b `  w
)  =  1o  <->  ( c `  w )  =  1o ) )  ->  -.  ( b `  w
)  =  1o )
63 simpr 448 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( ( b `
 w )  e.  2o  /\  ( c `
 w )  e.  2o )  /\  (
b `  w )  =  (/) )  /\  (
( b `  w
)  =  1o  <->  ( c `  w )  =  1o ) )  ->  (
( b `  w
)  =  1o  <->  ( c `  w )  =  1o ) )
6462, 63mtbid 292 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( ( b `
 w )  e.  2o  /\  ( c `
 w )  e.  2o )  /\  (
b `  w )  =  (/) )  /\  (
( b `  w
)  =  1o  <->  ( c `  w )  =  1o ) )  ->  -.  ( c `  w
)  =  1o )
65 elpri 3778 . . . . . . . . . . . . . . . . . 18  |-  ( ( c `  w )  e.  { (/) ,  1o }  ->  ( ( c `
 w )  =  (/)  \/  ( c `  w )  =  1o ) )
6665, 14eleq2s 2480 . . . . . . . . . . . . . . . . 17  |-  ( ( c `  w )  e.  2o  ->  (
( c `  w
)  =  (/)  \/  (
c `  w )  =  1o ) )
6766ad3antlr 712 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( ( b `
 w )  e.  2o  /\  ( c `
 w )  e.  2o )  /\  (
b `  w )  =  (/) )  /\  (
( b `  w
)  =  1o  <->  ( c `  w )  =  1o ) )  ->  (
( c `  w
)  =  (/)  \/  (
c `  w )  =  1o ) )
68 orel2 373 . . . . . . . . . . . . . . . 16  |-  ( -.  ( c `  w
)  =  1o  ->  ( ( ( c `  w )  =  (/)  \/  ( c `  w
)  =  1o )  ->  ( c `  w )  =  (/) ) )
6964, 67, 68sylc 58 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ( b `
 w )  e.  2o  /\  ( c `
 w )  e.  2o )  /\  (
b `  w )  =  (/) )  /\  (
( b `  w
)  =  1o  <->  ( c `  w )  =  1o ) )  ->  (
c `  w )  =  (/) )
7055, 69eqtr4d 2423 . . . . . . . . . . . . . 14  |-  ( ( ( ( ( b `
 w )  e.  2o  /\  ( c `
 w )  e.  2o )  /\  (
b `  w )  =  (/) )  /\  (
( b `  w
)  =  1o  <->  ( c `  w )  =  1o ) )  ->  (
b `  w )  =  ( c `  w ) )
7170ex 424 . . . . . . . . . . . . 13  |-  ( ( ( ( b `  w )  e.  2o  /\  ( c `  w
)  e.  2o )  /\  ( b `  w )  =  (/) )  ->  ( ( ( b `  w )  =  1o  <->  ( c `  w )  =  1o )  ->  ( b `  w )  =  ( c `  w ) ) )
72 simplr 732 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ( b `
 w )  e.  2o  /\  ( c `
 w )  e.  2o )  /\  (
b `  w )  =  1o )  /\  (
( b `  w
)  =  1o  <->  ( c `  w )  =  1o ) )  ->  (
b `  w )  =  1o )
73 simpr 448 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( ( b `
 w )  e.  2o  /\  ( c `
 w )  e.  2o )  /\  (
b `  w )  =  1o )  /\  (
( b `  w
)  =  1o  <->  ( c `  w )  =  1o ) )  ->  (
( b `  w
)  =  1o  <->  ( c `  w )  =  1o ) )
7472, 73mpbid 202 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ( b `
 w )  e.  2o  /\  ( c `
 w )  e.  2o )  /\  (
b `  w )  =  1o )  /\  (
( b `  w
)  =  1o  <->  ( c `  w )  =  1o ) )  ->  (
c `  w )  =  1o )
7572, 74eqtr4d 2423 . . . . . . . . . . . . . 14  |-  ( ( ( ( ( b `
 w )  e.  2o  /\  ( c `
 w )  e.  2o )  /\  (
b `  w )  =  1o )  /\  (
( b `  w
)  =  1o  <->  ( c `  w )  =  1o ) )  ->  (
b `  w )  =  ( c `  w ) )
7675ex 424 . . . . . . . . . . . . 13  |-  ( ( ( ( b `  w )  e.  2o  /\  ( c `  w
)  e.  2o )  /\  ( b `  w )  =  1o )  ->  ( (
( b `  w
)  =  1o  <->  ( c `  w )  =  1o )  ->  ( b `  w )  =  ( c `  w ) ) )
77 elpri 3778 . . . . . . . . . . . . . . 15  |-  ( ( b `  w )  e.  { (/) ,  1o }  ->  ( ( b `
 w )  =  (/)  \/  ( b `  w )  =  1o ) )
7877, 14eleq2s 2480 . . . . . . . . . . . . . 14  |-  ( ( b `  w )  e.  2o  ->  (
( b `  w
)  =  (/)  \/  (
b `  w )  =  1o ) )
7978adantr 452 . . . . . . . . . . . . 13  |-  ( ( ( b `  w
)  e.  2o  /\  ( c `  w
)  e.  2o )  ->  ( ( b `
 w )  =  (/)  \/  ( b `  w )  =  1o ) )
8071, 76, 79mpjaodan 762 . . . . . . . . . . . 12  |-  ( ( ( b `  w
)  e.  2o  /\  ( c `  w
)  e.  2o )  ->  ( ( ( b `  w )  =  1o  <->  ( c `  w )  =  1o )  ->  ( b `  w )  =  ( c `  w ) ) )
8154, 80impbid2 196 . . . . . . . . . . 11  |-  ( ( ( b `  w
)  e.  2o  /\  ( c `  w
)  e.  2o )  ->  ( ( b `
 w )  =  ( c `  w
)  <->  ( ( b `
 w )  =  1o  <->  ( c `  w )  =  1o ) ) )
8252, 53, 81syl2anc 643 . . . . . . . . . 10  |-  ( ( ( A  e.  _V  /\  ( b  e.  ( 2o  ^m  A )  /\  c  e.  ( 2o  ^m  A ) ) )  /\  w  e.  A )  ->  (
( b `  w
)  =  ( c `
 w )  <->  ( (
b `  w )  =  1o  <->  ( c `  w )  =  1o ) ) )
83 simplrl 737 . . . . . . . . . . . 12  |-  ( ( ( A  e.  _V  /\  ( b  e.  ( 2o  ^m  A )  /\  c  e.  ( 2o  ^m  A ) ) )  /\  w  e.  A )  ->  b  e.  ( 2o  ^m  A
) )
841pw2f1o2val2 26803 . . . . . . . . . . . 12  |-  ( ( b  e.  ( 2o 
^m  A )  /\  w  e.  A )  ->  ( w  e.  ( F `  b )  <-> 
( b `  w
)  =  1o ) )
8583, 84sylancom 649 . . . . . . . . . . 11  |-  ( ( ( A  e.  _V  /\  ( b  e.  ( 2o  ^m  A )  /\  c  e.  ( 2o  ^m  A ) ) )  /\  w  e.  A )  ->  (
w  e.  ( F `
 b )  <->  ( b `  w )  =  1o ) )
86 simplrr 738 . . . . . . . . . . . 12  |-  ( ( ( A  e.  _V  /\  ( b  e.  ( 2o  ^m  A )  /\  c  e.  ( 2o  ^m  A ) ) )  /\  w  e.  A )  ->  c  e.  ( 2o  ^m  A
) )
871pw2f1o2val2 26803 . . . . . . . . . . . 12  |-  ( ( c  e.  ( 2o 
^m  A )  /\  w  e.  A )  ->  ( w  e.  ( F `  c )  <-> 
( c `  w
)  =  1o ) )
8886, 87sylancom 649 . . . . . . . . . . 11  |-  ( ( ( A  e.  _V  /\  ( b  e.  ( 2o  ^m  A )  /\  c  e.  ( 2o  ^m  A ) ) )  /\  w  e.  A )  ->  (
w  e.  ( F `
 c )  <->  ( c `  w )  =  1o ) )
8985, 88bibi12d 313 . . . . . . . . . 10  |-  ( ( ( A  e.  _V  /\  ( b  e.  ( 2o  ^m  A )  /\  c  e.  ( 2o  ^m  A ) ) )  /\  w  e.  A )  ->  (
( w  e.  ( F `  b )  <-> 
w  e.  ( F `
 c ) )  <-> 
( ( b `  w )  =  1o  <->  ( c `  w )  =  1o ) ) )
9082, 89bitr4d 248 . . . . . . . . 9  |-  ( ( ( A  e.  _V  /\  ( b  e.  ( 2o  ^m  A )  /\  c  e.  ( 2o  ^m  A ) ) )  /\  w  e.  A )  ->  (
( b `  w
)  =  ( c `
 w )  <->  ( w  e.  ( F `  b
)  <->  w  e.  ( F `  c )
) ) )
9190imbi2d 308 . . . . . . . 8  |-  ( ( ( A  e.  _V  /\  ( b  e.  ( 2o  ^m  A )  /\  c  e.  ( 2o  ^m  A ) ) )  /\  w  e.  A )  ->  (
( w R z  ->  ( b `  w )  =  ( c `  w ) )  <->  ( w R z  ->  ( w  e.  ( F `  b
)  <->  w  e.  ( F `  c )
) ) ) )
9291ralbidva 2666 . . . . . . 7  |-  ( ( A  e.  _V  /\  ( b  e.  ( 2o  ^m  A )  /\  c  e.  ( 2o  ^m  A ) ) )  ->  ( A. w  e.  A  ( w R z  ->  ( b `  w )  =  ( c `  w ) )  <->  A. w  e.  A  ( w R z  ->  ( w  e.  ( F `  b
)  <->  w  e.  ( F `  c )
) ) ) )
9392adantr 452 . . . . . 6  |-  ( ( ( A  e.  _V  /\  ( b  e.  ( 2o  ^m  A )  /\  c  e.  ( 2o  ^m  A ) ) )  /\  z  e.  A )  ->  ( A. w  e.  A  ( w R z  ->  ( b `  w )  =  ( c `  w ) )  <->  A. w  e.  A  ( w R z  ->  ( w  e.  ( F `  b
)  <->  w  e.  ( F `  c )
) ) ) )
9451, 93anbi12d 692 . . . . 5  |-  ( ( ( A  e.  _V  /\  ( b  e.  ( 2o  ^m  A )  /\  c  e.  ( 2o  ^m  A ) ) )  /\  z  e.  A )  ->  (
( ( b `  z )  _E  (
c `  z )  /\  A. w  e.  A  ( w R z  ->  ( b `  w )  =  ( c `  w ) ) )  <->  ( (
z  e.  ( F `
 c )  /\  -.  z  e.  ( F `  b )
)  /\  A. w  e.  A  ( w R z  ->  (
w  e.  ( F `
 b )  <->  w  e.  ( F `  c ) ) ) ) ) )
9594rexbidva 2667 . . . 4  |-  ( ( A  e.  _V  /\  ( b  e.  ( 2o  ^m  A )  /\  c  e.  ( 2o  ^m  A ) ) )  ->  ( E. z  e.  A  ( ( b `  z )  _E  (
c `  z )  /\  A. w  e.  A  ( w R z  ->  ( b `  w )  =  ( c `  w ) ) )  <->  E. z  e.  A  ( (
z  e.  ( F `
 c )  /\  -.  z  e.  ( F `  b )
)  /\  A. w  e.  A  ( w R z  ->  (
w  e.  ( F `
 b )  <->  w  e.  ( F `  c ) ) ) ) ) )
96 vex 2903 . . . . 5  |-  b  e. 
_V
97 vex 2903 . . . . 5  |-  c  e. 
_V
98 fveq1 5668 . . . . . . . 8  |-  ( x  =  b  ->  (
x `  z )  =  ( b `  z ) )
99 fveq1 5668 . . . . . . . 8  |-  ( y  =  c  ->  (
y `  z )  =  ( c `  z ) )
10098, 99breqan12d 4169 . . . . . . 7  |-  ( ( x  =  b  /\  y  =  c )  ->  ( ( x `  z )  _E  (
y `  z )  <->  ( b `  z )  _E  ( c `  z ) ) )
101 fveq1 5668 . . . . . . . . . 10  |-  ( x  =  b  ->  (
x `  w )  =  ( b `  w ) )
102 fveq1 5668 . . . . . . . . . 10  |-  ( y  =  c  ->  (
y `  w )  =  ( c `  w ) )
103101, 102eqeqan12d 2403 . . . . . . . . 9  |-  ( ( x  =  b  /\  y  =  c )  ->  ( ( x `  w )  =  ( y `  w )  <-> 
( b `  w
)  =  ( c `
 w ) ) )
104103imbi2d 308 . . . . . . . 8  |-  ( ( x  =  b  /\  y  =  c )  ->  ( ( w R z  ->  ( x `  w )  =  ( y `  w ) )  <->  ( w R z  ->  ( b `  w )  =  ( c `  w ) ) ) )
105104ralbidv 2670 . . . . . . 7  |-  ( ( x  =  b  /\  y  =  c )  ->  ( A. w  e.  A  ( w R z  ->  ( x `  w )  =  ( y `  w ) )  <->  A. w  e.  A  ( w R z  ->  ( b `  w )  =  ( c `  w ) ) ) )
106100, 105anbi12d 692 . . . . . 6  |-  ( ( x  =  b  /\  y  =  c )  ->  ( ( ( x `
 z )  _E  ( y `  z
)  /\  A. w  e.  A  ( w R z  ->  (
x `  w )  =  ( y `  w ) ) )  <-> 
( ( b `  z )  _E  (
c `  z )  /\  A. w  e.  A  ( w R z  ->  ( b `  w )  =  ( c `  w ) ) ) ) )
107106rexbidv 2671 . . . . 5  |-  ( ( x  =  b  /\  y  =  c )  ->  ( E. z  e.  A  ( ( x `
 z )  _E  ( y `  z
)  /\  A. w  e.  A  ( w R z  ->  (
x `  w )  =  ( y `  w ) ) )  <->  E. z  e.  A  ( ( b `  z )  _E  (
c `  z )  /\  A. w  e.  A  ( w R z  ->  ( b `  w )  =  ( c `  w ) ) ) ) )
108 wepwso.u . . . . 5  |-  U  =  { <. x ,  y
>.  |  E. z  e.  A  ( (
x `  z )  _E  ( y `  z
)  /\  A. w  e.  A  ( w R z  ->  (
x `  w )  =  ( y `  w ) ) ) }
10996, 97, 107, 108braba 4414 . . . 4  |-  ( b U c  <->  E. z  e.  A  ( (
b `  z )  _E  ( c `  z
)  /\  A. w  e.  A  ( w R z  ->  (
b `  w )  =  ( c `  w ) ) ) )
110 fvex 5683 . . . . 5  |-  ( F `
 b )  e. 
_V
111 fvex 5683 . . . . 5  |-  ( F `
 c )  e. 
_V
112 eleq2 2449 . . . . . . . 8  |-  ( y  =  ( F `  c )  ->  (
z  e.  y  <->  z  e.  ( F `  c ) ) )
113 eleq2 2449 . . . . . . . . 9  |-  ( x  =  ( F `  b )  ->  (
z  e.  x  <->  z  e.  ( F `  b ) ) )
114113notbid 286 . . . . . . . 8  |-  ( x  =  ( F `  b )  ->  ( -.  z  e.  x  <->  -.  z  e.  ( F `
 b ) ) )
115112, 114bi2anan9r 845 . . . . . . 7  |-  ( ( x  =  ( F `
 b )  /\  y  =  ( F `  c ) )  -> 
( ( z  e.  y  /\  -.  z  e.  x )  <->  ( z  e.  ( F `  c
)  /\  -.  z  e.  ( F `  b
) ) ) )
116 eleq2 2449 . . . . . . . . . 10  |-  ( x  =  ( F `  b )  ->  (
w  e.  x  <->  w  e.  ( F `  b ) ) )
117 eleq2 2449 . . . . . . . . . 10  |-  ( y  =  ( F `  c )  ->  (
w  e.  y  <->  w  e.  ( F `  c ) ) )
118116, 117bi2bian9 846 . . . . . . . . 9  |-  ( ( x  =  ( F `
 b )  /\  y  =  ( F `  c ) )  -> 
( ( w  e.  x  <->  w  e.  y
)  <->  ( w  e.  ( F `  b
)  <->  w  e.  ( F `  c )
) ) )
119118imbi2d 308 . . . . . . . 8  |-  ( ( x  =  ( F `
 b )  /\  y  =  ( F `  c ) )  -> 
( ( w R z  ->  ( w  e.  x  <->  w  e.  y
) )  <->  ( w R z  ->  (
w  e.  ( F `
 b )  <->  w  e.  ( F `  c ) ) ) ) )
120119ralbidv 2670 . . . . . . 7  |-  ( ( x  =  ( F `
 b )  /\  y  =  ( F `  c ) )  -> 
( A. w  e.  A  ( w R z  ->  ( w  e.  x  <->  w  e.  y
) )  <->  A. w  e.  A  ( w R z  ->  (
w  e.  ( F `
 b )  <->  w  e.  ( F `  c ) ) ) ) )
121115, 120anbi12d 692 . . . . . 6  |-  ( ( x  =  ( F `
 b )  /\  y  =  ( F `  c ) )  -> 
( ( ( z  e.  y  /\  -.  z  e.  x )  /\  A. w  e.  A  ( w R z  ->  ( w  e.  x  <->  w  e.  y
) ) )  <->  ( (
z  e.  ( F `
 c )  /\  -.  z  e.  ( F `  b )
)  /\  A. w  e.  A  ( w R z  ->  (
w  e.  ( F `
 b )  <->  w  e.  ( F `  c ) ) ) ) ) )
122121rexbidv 2671 . . . . 5  |-  ( ( x  =  ( F `
 b )  /\  y  =  ( F `  c ) )  -> 
( E. z  e.  A  ( ( z  e.  y  /\  -.  z  e.  x )  /\  A. w  e.  A  ( w R z  ->  ( w  e.  x  <->  w  e.  y
) ) )  <->  E. z  e.  A  ( (
z  e.  ( F `
 c )  /\  -.  z  e.  ( F `  b )
)  /\  A. w  e.  A  ( w R z  ->  (
w  e.  ( F `
 b )  <->  w  e.  ( F `  c ) ) ) ) ) )
123 wepwso.t . . . . 5  |-  T  =  { <. x ,  y
>.  |  E. z  e.  A  ( (
z  e.  y  /\  -.  z  e.  x
)  /\  A. w  e.  A  ( w R z  ->  (
w  e.  x  <->  w  e.  y ) ) ) }
124110, 111, 122, 123braba 4414 . . . 4  |-  ( ( F `  b ) T ( F `  c )  <->  E. z  e.  A  ( (
z  e.  ( F `
 c )  /\  -.  z  e.  ( F `  b )
)  /\  A. w  e.  A  ( w R z  ->  (
w  e.  ( F `
 b )  <->  w  e.  ( F `  c ) ) ) ) )
12595, 109, 1243bitr4g 280 . . 3  |-  ( ( A  e.  _V  /\  ( b  e.  ( 2o  ^m  A )  /\  c  e.  ( 2o  ^m  A ) ) )  ->  (
b U c  <->  ( F `  b ) T ( F `  c ) ) )
126125ralrimivva 2742 . 2  |-  ( A  e.  _V  ->  A. b  e.  ( 2o  ^m  A
) A. c  e.  ( 2o  ^m  A
) ( b U c  <->  ( F `  b ) T ( F `  c ) ) )
127 df-isom 5404 . 2  |-  ( F 
Isom  U ,  T  ( ( 2o  ^m  A
) ,  ~P A
)  <->  ( F :
( 2o  ^m  A
)
-1-1-onto-> ~P A  /\  A. b  e.  ( 2o  ^m  A
) A. c  e.  ( 2o  ^m  A
) ( b U c  <->  ( F `  b ) T ( F `  c ) ) ) )
1282, 126, 127sylanbrc 646 1  |-  ( A  e.  _V  ->  F  Isom  U ,  T  ( ( 2o  ^m  A
) ,  ~P A
) )
Colors of variables: wff set class
Syntax hints:   -. wn 3    -> wi 4    <-> wb 177    \/ wo 358    /\ wa 359    = wceq 1649    e. wcel 1717    =/= wne 2551   A.wral 2650   E.wrex 2651   _Vcvv 2900   (/)c0 3572   ~Pcpw 3743   {csn 3758   {cpr 3759   class class class wbr 4154   {copab 4207    e. cmpt 4208    _E cep 4434   `'ccnv 4818   "cima 4822   -->wf 5391   -1-1-onto->wf1o 5394   ` cfv 5395    Isom wiso 5396  (class class class)co 6021   1oc1o 6654   2oc2o 6655    ^m cmap 6955
This theorem is referenced by:  wepwso  26809
This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-3 7  ax-mp 8  ax-gen 1552  ax-5 1563  ax-17 1623  ax-9 1661  ax-8 1682  ax-13 1719  ax-14 1721  ax-6 1736  ax-7 1741  ax-11 1753  ax-12 1939  ax-ext 2369  ax-rep 4262  ax-sep 4272  ax-nul 4280  ax-pow 4319  ax-pr 4345  ax-un 4642
This theorem depends on definitions:  df-bi 178  df-or 360  df-an 361  df-3or 937  df-3an 938  df-tru 1325  df-ex 1548  df-nf 1551  df-sb 1656  df-eu 2243  df-mo 2244  df-clab 2375  df-cleq 2381  df-clel 2384  df-nfc 2513  df-ne 2553  df-ral 2655  df-rex 2656  df-reu 2657  df-rab 2659  df-v 2902  df-sbc 3106  df-csb 3196  df-dif 3267  df-un 3269  df-in 3271  df-ss 3278  df-pss 3280  df-nul 3573  df-if 3684  df-pw 3745  df-sn 3764  df-pr 3765  df-tp 3766  df-op 3767  df-uni 3959  df-iun 4038  df-br 4155  df-opab 4209  df-mpt 4210  df-tr 4245  df-eprel 4436  df-id 4440  df-po 4445  df-so 4446  df-fr 4483  df-we 4485  df-ord 4526  df-on 4527  df-suc 4529  df-xp 4825  df-rel 4826  df-cnv 4827  df-co 4828  df-dm 4829  df-rn 4830  df-res 4831  df-ima 4832  df-iota 5359  df-fun 5397  df-fn 5398  df-f 5399  df-f1 5400  df-fo 5401  df-f1o 5402  df-fv 5403  df-isom 5404  df-ov 6024  df-oprab 6025  df-mpt2 6026  df-1st 6289  df-2nd 6290  df-1o 6661  df-2o 6662  df-map 6957
  Copyright terms: Public domain W3C validator