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

Theorem dfac3 7764
Description: Equivalence of two versions of the Axiom of Choice. The left-hand side is defined as the Axiom of Choice (first form) of [Enderton] p. 49. The right-hand side is the Axiom of Choice of [TakeutiZaring] p. 83. The proof does not depend on AC. (Contributed by NM, 24-Mar-2004.) (Revised by Stefan O'Rear, 22-Feb-2015.)
Assertion
Ref Expression
dfac3  |-  (CHOICE  <->  A. x E. f A. z  e.  x  ( z  =/=  (/)  ->  ( f `  z )  e.  z ) )
Distinct variable group:    x, f, z

Proof of Theorem dfac3
Dummy variables  y  w  v  u are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 df-ac 7759 . 2  |-  (CHOICE  <->  A. y E. f ( f  C_  y  /\  f  Fn  dom  y ) )
2 vex 2804 . . . . . . . 8  |-  x  e. 
_V
32uniex 4532 . . . . . . . 8  |-  U. x  e.  _V
42, 3xpex 4817 . . . . . . 7  |-  ( x  X.  U. x )  e.  _V
5 simpl 443 . . . . . . . . . 10  |-  ( ( w  e.  x  /\  v  e.  w )  ->  w  e.  x )
6 elunii 3848 . . . . . . . . . . 11  |-  ( ( v  e.  w  /\  w  e.  x )  ->  v  e.  U. x
)
76ancoms 439 . . . . . . . . . 10  |-  ( ( w  e.  x  /\  v  e.  w )  ->  v  e.  U. x
)
85, 7jca 518 . . . . . . . . 9  |-  ( ( w  e.  x  /\  v  e.  w )  ->  ( w  e.  x  /\  v  e.  U. x
) )
98ssopab2i 4308 . . . . . . . 8  |-  { <. w ,  v >.  |  ( w  e.  x  /\  v  e.  w ) }  C_  { <. w ,  v >.  |  ( w  e.  x  /\  v  e.  U. x
) }
10 df-xp 4711 . . . . . . . 8  |-  ( x  X.  U. x )  =  { <. w ,  v >.  |  ( w  e.  x  /\  v  e.  U. x
) }
119, 10sseqtr4i 3224 . . . . . . 7  |-  { <. w ,  v >.  |  ( w  e.  x  /\  v  e.  w ) }  C_  ( x  X.  U. x )
124, 11ssexi 4175 . . . . . 6  |-  { <. w ,  v >.  |  ( w  e.  x  /\  v  e.  w ) }  e.  _V
13 sseq2 3213 . . . . . . . 8  |-  ( y  =  { <. w ,  v >.  |  ( w  e.  x  /\  v  e.  w ) }  ->  ( f  C_  y 
<->  f  C_  { <. w ,  v >.  |  ( w  e.  x  /\  v  e.  w ) } ) )
14 dmeq 4895 . . . . . . . . 9  |-  ( y  =  { <. w ,  v >.  |  ( w  e.  x  /\  v  e.  w ) }  ->  dom  y  =  dom  { <. w ,  v
>.  |  ( w  e.  x  /\  v  e.  w ) } )
1514fneq2d 5352 . . . . . . . 8  |-  ( y  =  { <. w ,  v >.  |  ( w  e.  x  /\  v  e.  w ) }  ->  ( f  Fn 
dom  y  <->  f  Fn  dom  { <. w ,  v
>.  |  ( w  e.  x  /\  v  e.  w ) } ) )
1613, 15anbi12d 691 . . . . . . 7  |-  ( y  =  { <. w ,  v >.  |  ( w  e.  x  /\  v  e.  w ) }  ->  ( ( f 
C_  y  /\  f  Fn  dom  y )  <->  ( f  C_ 
{ <. w ,  v
>.  |  ( w  e.  x  /\  v  e.  w ) }  /\  f  Fn  dom  { <. w ,  v >.  |  ( w  e.  x  /\  v  e.  w ) } ) ) )
1716exbidv 1616 . . . . . 6  |-  ( y  =  { <. w ,  v >.  |  ( w  e.  x  /\  v  e.  w ) }  ->  ( E. f
( f  C_  y  /\  f  Fn  dom  y )  <->  E. f
( f  C_  { <. w ,  v >.  |  ( w  e.  x  /\  v  e.  w ) }  /\  f  Fn  dom  {
<. w ,  v >.  |  ( w  e.  x  /\  v  e.  w ) } ) ) )
1812, 17spcv 2887 . . . . 5  |-  ( A. y E. f ( f 
C_  y  /\  f  Fn  dom  y )  ->  E. f ( f  C_  {
<. w ,  v >.  |  ( w  e.  x  /\  v  e.  w ) }  /\  f  Fn  dom  { <. w ,  v >.  |  ( w  e.  x  /\  v  e.  w ) } ) )
19 fndm 5359 . . . . . . . . . . . . 13  |-  ( f  Fn  dom  { <. w ,  v >.  |  ( w  e.  x  /\  v  e.  w ) }  ->  dom  f  =  dom  { <. w ,  v
>.  |  ( w  e.  x  /\  v  e.  w ) } )
20 eleq2 2357 . . . . . . . . . . . . . 14  |-  ( dom  f  =  dom  { <. w ,  v >.  |  ( w  e.  x  /\  v  e.  w ) }  ->  ( z  e.  dom  f  <->  z  e.  dom  { <. w ,  v >.  |  ( w  e.  x  /\  v  e.  w ) } ) )
21 dmopab 4905 . . . . . . . . . . . . . . . 16  |-  dom  { <. w ,  v >.  |  ( w  e.  x  /\  v  e.  w ) }  =  { w  |  E. v ( w  e.  x  /\  v  e.  w ) }
2221eleq2i 2360 . . . . . . . . . . . . . . 15  |-  ( z  e.  dom  { <. w ,  v >.  |  ( w  e.  x  /\  v  e.  w ) } 
<->  z  e.  { w  |  E. v ( w  e.  x  /\  v  e.  w ) } )
23 vex 2804 . . . . . . . . . . . . . . . 16  |-  z  e. 
_V
24 elequ1 1699 . . . . . . . . . . . . . . . . . 18  |-  ( w  =  z  ->  (
w  e.  x  <->  z  e.  x ) )
25 eleq2 2357 . . . . . . . . . . . . . . . . . 18  |-  ( w  =  z  ->  (
v  e.  w  <->  v  e.  z ) )
2624, 25anbi12d 691 . . . . . . . . . . . . . . . . 17  |-  ( w  =  z  ->  (
( w  e.  x  /\  v  e.  w
)  <->  ( z  e.  x  /\  v  e.  z ) ) )
2726exbidv 1616 . . . . . . . . . . . . . . . 16  |-  ( w  =  z  ->  ( E. v ( w  e.  x  /\  v  e.  w )  <->  E. v
( z  e.  x  /\  v  e.  z
) ) )
2823, 27elab 2927 . . . . . . . . . . . . . . 15  |-  ( z  e.  { w  |  E. v ( w  e.  x  /\  v  e.  w ) }  <->  E. v
( z  e.  x  /\  v  e.  z
) )
29 19.42v 1858 . . . . . . . . . . . . . . . 16  |-  ( E. v ( z  e.  x  /\  v  e.  z )  <->  ( z  e.  x  /\  E. v 
v  e.  z ) )
30 n0 3477 . . . . . . . . . . . . . . . . 17  |-  ( z  =/=  (/)  <->  E. v  v  e.  z )
3130anbi2i 675 . . . . . . . . . . . . . . . 16  |-  ( ( z  e.  x  /\  z  =/=  (/) )  <->  ( z  e.  x  /\  E. v 
v  e.  z ) )
3229, 31bitr4i 243 . . . . . . . . . . . . . . 15  |-  ( E. v ( z  e.  x  /\  v  e.  z )  <->  ( z  e.  x  /\  z  =/=  (/) ) )
3322, 28, 323bitrri 263 . . . . . . . . . . . . . 14  |-  ( ( z  e.  x  /\  z  =/=  (/) )  <->  z  e.  dom  { <. w ,  v
>.  |  ( w  e.  x  /\  v  e.  w ) } )
3420, 33syl6rbbr 255 . . . . . . . . . . . . 13  |-  ( dom  f  =  dom  { <. w ,  v >.  |  ( w  e.  x  /\  v  e.  w ) }  ->  ( ( z  e.  x  /\  z  =/=  (/) )  <->  z  e.  dom  f ) )
3519, 34syl 15 . . . . . . . . . . . 12  |-  ( f  Fn  dom  { <. w ,  v >.  |  ( w  e.  x  /\  v  e.  w ) }  ->  ( ( z  e.  x  /\  z  =/=  (/) )  <->  z  e.  dom  f ) )
3635adantl 452 . . . . . . . . . . 11  |-  ( ( f  C_  { <. w ,  v >.  |  ( w  e.  x  /\  v  e.  w ) }  /\  f  Fn  dom  {
<. w ,  v >.  |  ( w  e.  x  /\  v  e.  w ) } )  ->  ( ( z  e.  x  /\  z  =/=  (/) )  <->  z  e.  dom  f ) )
37 fnfun 5357 . . . . . . . . . . . 12  |-  ( f  Fn  dom  { <. w ,  v >.  |  ( w  e.  x  /\  v  e.  w ) }  ->  Fun  f )
38 funfvima3 5771 . . . . . . . . . . . . 13  |-  ( ( Fun  f  /\  f  C_ 
{ <. w ,  v
>.  |  ( w  e.  x  /\  v  e.  w ) } )  ->  ( z  e. 
dom  f  ->  (
f `  z )  e.  ( { <. w ,  v >.  |  ( w  e.  x  /\  v  e.  w ) } " { z } ) ) )
3938ancoms 439 . . . . . . . . . . . 12  |-  ( ( f  C_  { <. w ,  v >.  |  ( w  e.  x  /\  v  e.  w ) }  /\  Fun  f )  ->  ( z  e. 
dom  f  ->  (
f `  z )  e.  ( { <. w ,  v >.  |  ( w  e.  x  /\  v  e.  w ) } " { z } ) ) )
4037, 39sylan2 460 . . . . . . . . . . 11  |-  ( ( f  C_  { <. w ,  v >.  |  ( w  e.  x  /\  v  e.  w ) }  /\  f  Fn  dom  {
<. w ,  v >.  |  ( w  e.  x  /\  v  e.  w ) } )  ->  ( z  e. 
dom  f  ->  (
f `  z )  e.  ( { <. w ,  v >.  |  ( w  e.  x  /\  v  e.  w ) } " { z } ) ) )
4136, 40sylbid 206 . . . . . . . . . 10  |-  ( ( f  C_  { <. w ,  v >.  |  ( w  e.  x  /\  v  e.  w ) }  /\  f  Fn  dom  {
<. w ,  v >.  |  ( w  e.  x  /\  v  e.  w ) } )  ->  ( ( z  e.  x  /\  z  =/=  (/) )  ->  (
f `  z )  e.  ( { <. w ,  v >.  |  ( w  e.  x  /\  v  e.  w ) } " { z } ) ) )
4241imp 418 . . . . . . . . 9  |-  ( ( ( f  C_  { <. w ,  v >.  |  ( w  e.  x  /\  v  e.  w ) }  /\  f  Fn  dom  {
<. w ,  v >.  |  ( w  e.  x  /\  v  e.  w ) } )  /\  ( z  e.  x  /\  z  =/=  (/) ) )  ->  (
f `  z )  e.  ( { <. w ,  v >.  |  ( w  e.  x  /\  v  e.  w ) } " { z } ) )
43 ibar 490 . . . . . . . . . . . . 13  |-  ( z  e.  x  ->  (
u  e.  z  <->  ( z  e.  x  /\  u  e.  z ) ) )
4443abbi2dv 2411 . . . . . . . . . . . 12  |-  ( z  e.  x  ->  z  =  { u  |  ( z  e.  x  /\  u  e.  z ) } )
45 imasng 5051 . . . . . . . . . . . . . 14  |-  ( z  e.  _V  ->  ( { <. w ,  v
>.  |  ( w  e.  x  /\  v  e.  w ) } " { z } )  =  { u  |  z { <. w ,  v >.  |  ( w  e.  x  /\  v  e.  w ) } u } )
4623, 45ax-mp 8 . . . . . . . . . . . . 13  |-  ( {
<. w ,  v >.  |  ( w  e.  x  /\  v  e.  w ) } " { z } )  =  { u  |  z { <. w ,  v >.  |  ( w  e.  x  /\  v  e.  w ) } u }
47 vex 2804 . . . . . . . . . . . . . . 15  |-  u  e. 
_V
48 elequ1 1699 . . . . . . . . . . . . . . . 16  |-  ( v  =  u  ->  (
v  e.  z  <->  u  e.  z ) )
4948anbi2d 684 . . . . . . . . . . . . . . 15  |-  ( v  =  u  ->  (
( z  e.  x  /\  v  e.  z
)  <->  ( z  e.  x  /\  u  e.  z ) ) )
50 eqid 2296 . . . . . . . . . . . . . . 15  |-  { <. w ,  v >.  |  ( w  e.  x  /\  v  e.  w ) }  =  { <. w ,  v >.  |  ( w  e.  x  /\  v  e.  w ) }
5123, 47, 26, 49, 50brab 4303 . . . . . . . . . . . . . 14  |-  ( z { <. w ,  v
>.  |  ( w  e.  x  /\  v  e.  w ) } u  <->  ( z  e.  x  /\  u  e.  z )
)
5251abbii 2408 . . . . . . . . . . . . 13  |-  { u  |  z { <. w ,  v >.  |  ( w  e.  x  /\  v  e.  w ) } u }  =  { u  |  (
z  e.  x  /\  u  e.  z ) }
5346, 52eqtri 2316 . . . . . . . . . . . 12  |-  ( {
<. w ,  v >.  |  ( w  e.  x  /\  v  e.  w ) } " { z } )  =  { u  |  ( z  e.  x  /\  u  e.  z
) }
5444, 53syl6reqr 2347 . . . . . . . . . . 11  |-  ( z  e.  x  ->  ( { <. w ,  v
>.  |  ( w  e.  x  /\  v  e.  w ) } " { z } )  =  z )
5554eleq2d 2363 . . . . . . . . . 10  |-  ( z  e.  x  ->  (
( f `  z
)  e.  ( {
<. w ,  v >.  |  ( w  e.  x  /\  v  e.  w ) } " { z } )  <-> 
( f `  z
)  e.  z ) )
5655ad2antrl 708 . . . . . . . . 9  |-  ( ( ( f  C_  { <. w ,  v >.  |  ( w  e.  x  /\  v  e.  w ) }  /\  f  Fn  dom  {
<. w ,  v >.  |  ( w  e.  x  /\  v  e.  w ) } )  /\  ( z  e.  x  /\  z  =/=  (/) ) )  ->  (
( f `  z
)  e.  ( {
<. w ,  v >.  |  ( w  e.  x  /\  v  e.  w ) } " { z } )  <-> 
( f `  z
)  e.  z ) )
5742, 56mpbid 201 . . . . . . . 8  |-  ( ( ( f  C_  { <. w ,  v >.  |  ( w  e.  x  /\  v  e.  w ) }  /\  f  Fn  dom  {
<. w ,  v >.  |  ( w  e.  x  /\  v  e.  w ) } )  /\  ( z  e.  x  /\  z  =/=  (/) ) )  ->  (
f `  z )  e.  z )
5857exp32 588 . . . . . . 7  |-  ( ( f  C_  { <. w ,  v >.  |  ( w  e.  x  /\  v  e.  w ) }  /\  f  Fn  dom  {
<. w ,  v >.  |  ( w  e.  x  /\  v  e.  w ) } )  ->  ( z  e.  x  ->  ( z  =/=  (/)  ->  ( f `  z )  e.  z ) ) )
5958ralrimiv 2638 . . . . . 6  |-  ( ( f  C_  { <. w ,  v >.  |  ( w  e.  x  /\  v  e.  w ) }  /\  f  Fn  dom  {
<. w ,  v >.  |  ( w  e.  x  /\  v  e.  w ) } )  ->  A. z  e.  x  ( z  =/=  (/)  ->  (
f `  z )  e.  z ) )
6059eximi 1566 . . . . 5  |-  ( E. f ( f  C_  {
<. w ,  v >.  |  ( w  e.  x  /\  v  e.  w ) }  /\  f  Fn  dom  { <. w ,  v >.  |  ( w  e.  x  /\  v  e.  w ) } )  ->  E. f A. z  e.  x  ( z  =/=  (/)  ->  (
f `  z )  e.  z ) )
6118, 60syl 15 . . . 4  |-  ( A. y E. f ( f 
C_  y  /\  f  Fn  dom  y )  ->  E. f A. z  e.  x  ( z  =/=  (/)  ->  ( f `  z )  e.  z ) )
6261alrimiv 1621 . . 3  |-  ( A. y E. f ( f 
C_  y  /\  f  Fn  dom  y )  ->  A. x E. f A. z  e.  x  (
z  =/=  (/)  ->  (
f `  z )  e.  z ) )
63 eqid 2296 . . . . 5  |-  ( w  e.  dom  y  |->  ( f `  { u  |  w y u }
) )  =  ( w  e.  dom  y  |->  ( f `  {
u  |  w y u } ) )
6463aceq3lem 7763 . . . 4  |-  ( A. x E. f A. z  e.  x  ( z  =/=  (/)  ->  ( f `  z )  e.  z )  ->  E. f
( f  C_  y  /\  f  Fn  dom  y ) )
6564alrimiv 1621 . . 3  |-  ( A. x E. f A. z  e.  x  ( z  =/=  (/)  ->  ( f `  z )  e.  z )  ->  A. y E. f ( f  C_  y  /\  f  Fn  dom  y ) )
6662, 65impbii 180 . 2  |-  ( A. y E. f ( f 
C_  y  /\  f  Fn  dom  y )  <->  A. x E. f A. z  e.  x  ( z  =/=  (/)  ->  ( f `  z )  e.  z ) )
671, 66bitri 240 1  |-  (CHOICE  <->  A. x E. f A. z  e.  x  ( z  =/=  (/)  ->  ( f `  z )  e.  z ) )
Colors of variables: wff set class
Syntax hints:    -> wi 4    <-> wb 176    /\ wa 358   A.wal 1530   E.wex 1531    = wceq 1632    e. wcel 1696   {cab 2282    =/= wne 2459   A.wral 2556   _Vcvv 2801    C_ wss 3165   (/)c0 3468   {csn 3653   U.cuni 3843   class class class wbr 4039   {copab 4092    e. cmpt 4093    X. cxp 4703   dom cdm 4705   "cima 4708   Fun wfun 5265    Fn wfn 5266   ` cfv 5271  CHOICEwac 7758
This theorem is referenced by:  dfac4  7765  dfac5  7771  dfac2a  7772  dfac2  7773  dfac8  7777  dfac9  7778  ac4  8118  dfac11  27263
This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-3 7  ax-mp 8  ax-gen 1536  ax-5 1547  ax-17 1606  ax-9 1644  ax-8 1661  ax-13 1698  ax-14 1700  ax-6 1715  ax-7 1720  ax-11 1727  ax-12 1878  ax-ext 2277  ax-sep 4157  ax-nul 4165  ax-pow 4204  ax-pr 4230  ax-un 4528
This theorem depends on definitions:  df-bi 177  df-or 359  df-an 360  df-3an 936  df-tru 1310  df-ex 1532  df-nf 1535  df-sb 1639  df-eu 2160  df-mo 2161  df-clab 2283  df-cleq 2289  df-clel 2292  df-nfc 2421  df-ne 2461  df-ral 2561  df-rex 2562  df-rab 2565  df-v 2803  df-sbc 3005  df-dif 3168  df-un 3170  df-in 3172  df-ss 3179  df-nul 3469  df-if 3579  df-pw 3640  df-sn 3659  df-pr 3660  df-op 3662  df-uni 3844  df-br 4040  df-opab 4094  df-mpt 4095  df-id 4325  df-xp 4711  df-rel 4712  df-cnv 4713  df-co 4714  df-dm 4715  df-rn 4716  df-res 4717  df-ima 4718  df-iota 5235  df-fun 5273  df-fn 5274  df-fv 5279  df-ac 7759
  Copyright terms: Public domain W3C validator