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

Theorem dfac3 7748
Description: Equivalence of two versions of the Axiom of Choice. The left-hand side is 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 7743 . 2  |-  (CHOICE  <->  A. y E. f ( f  C_  y  /\  f  Fn  dom  y ) )
2 vex 2791 . . . . . . . 8  |-  x  e. 
_V
32uniex 4516 . . . . . . . 8  |-  U. x  e.  _V
42, 3xpex 4801 . . . . . . 7  |-  ( x  X.  U. x )  e.  _V
5 simpl 443 . . . . . . . . . 10  |-  ( ( w  e.  x  /\  v  e.  w )  ->  w  e.  x )
6 elunii 3832 . . . . . . . . . . 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 4292 . . . . . . . 8  |-  { <. w ,  v >.  |  ( w  e.  x  /\  v  e.  w ) }  C_  { <. w ,  v >.  |  ( w  e.  x  /\  v  e.  U. x
) }
10 df-xp 4695 . . . . . . . 8  |-  ( x  X.  U. x )  =  { <. w ,  v >.  |  ( w  e.  x  /\  v  e.  U. x
) }
119, 10sseqtr4i 3211 . . . . . . 7  |-  { <. w ,  v >.  |  ( w  e.  x  /\  v  e.  w ) }  C_  ( x  X.  U. x )
124, 11ssexi 4159 . . . . . 6  |-  { <. w ,  v >.  |  ( w  e.  x  /\  v  e.  w ) }  e.  _V
13 sseq2 3200 . . . . . . . 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 4879 . . . . . . . . 9  |-  ( y  =  { <. w ,  v >.  |  ( w  e.  x  /\  v  e.  w ) }  ->  dom  y  =  dom  { <. w ,  v
>.  |  ( w  e.  x  /\  v  e.  w ) } )
1514fneq2d 5336 . . . . . . . 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 1612 . . . . . 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 2874 . . . . 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 5343 . . . . . . . . . . . . 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 2344 . . . . . . . . . . . . . 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 4889 . . . . . . . . . . . . . . . 16  |-  dom  { <. w ,  v >.  |  ( w  e.  x  /\  v  e.  w ) }  =  { w  |  E. v ( w  e.  x  /\  v  e.  w ) }
2221eleq2i 2347 . . . . . . . . . . . . . . 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 2791 . . . . . . . . . . . . . . . 16  |-  z  e. 
_V
24 elequ1 1687 . . . . . . . . . . . . . . . . . 18  |-  ( w  =  z  ->  (
w  e.  x  <->  z  e.  x ) )
25 eleq2 2344 . . . . . . . . . . . . . . . . . 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 1612 . . . . . . . . . . . . . . . 16  |-  ( w  =  z  ->  ( E. v ( w  e.  x  /\  v  e.  w )  <->  E. v
( z  e.  x  /\  v  e.  z
) ) )
2823, 27elab 2914 . . . . . . . . . . . . . . 15  |-  ( z  e.  { w  |  E. v ( w  e.  x  /\  v  e.  w ) }  <->  E. v
( z  e.  x  /\  v  e.  z
) )
29 19.42v 1846 . . . . . . . . . . . . . . . 16  |-  ( E. v ( z  e.  x  /\  v  e.  z )  <->  ( z  e.  x  /\  E. v 
v  e.  z ) )
30 n0 3464 . . . . . . . . . . . . . . . . 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 5341 . . . . . . . . . . . 12  |-  ( f  Fn  dom  { <. w ,  v >.  |  ( w  e.  x  /\  v  e.  w ) }  ->  Fun  f )
38 funfvima3 5755 . . . . . . . . . . . . 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 2398 . . . . . . . . . . . 12  |-  ( z  e.  x  ->  z  =  { u  |  ( z  e.  x  /\  u  e.  z ) } )
45 imasng 5035 . . . . . . . . . . . . . 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 2791 . . . . . . . . . . . . . . 15  |-  u  e. 
_V
48 elequ1 1687 . . . . . . . . . . . . . . . 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 2283 . . . . . . . . . . . . . . 15  |-  { <. w ,  v >.  |  ( w  e.  x  /\  v  e.  w ) }  =  { <. w ,  v >.  |  ( w  e.  x  /\  v  e.  w ) }
5123, 47, 26, 49, 50brab 4287 . . . . . . . . . . . . . 14  |-  ( z { <. w ,  v
>.  |  ( w  e.  x  /\  v  e.  w ) } u  <->  ( z  e.  x  /\  u  e.  z )
)
5251abbii 2395 . . . . . . . . . . . . 13  |-  { u  |  z { <. w ,  v >.  |  ( w  e.  x  /\  v  e.  w ) } u }  =  { u  |  (
z  e.  x  /\  u  e.  z ) }
5346, 52eqtri 2303 . . . . . . . . . . . 12  |-  ( {
<. w ,  v >.  |  ( w  e.  x  /\  v  e.  w ) } " { z } )  =  { u  |  ( z  e.  x  /\  u  e.  z
) }
5444, 53syl6reqr 2334 . . . . . . . . . . 11  |-  ( z  e.  x  ->  ( { <. w ,  v
>.  |  ( w  e.  x  /\  v  e.  w ) } " { z } )  =  z )
5554eleq2d 2350 . . . . . . . . . 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 2625 . . . . . 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 1563 . . . . 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 1617 . . 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 2283 . . . . 5  |-  ( w  e.  dom  y  |->  ( f `  { u  |  w y u }
) )  =  ( w  e.  dom  y  |->  ( f `  {
u  |  w y u } ) )
6463aceq3lem 7747 . . . 4  |-  ( A. x E. f A. z  e.  x  ( z  =/=  (/)  ->  ( f `  z )  e.  z )  ->  E. f
( f  C_  y  /\  f  Fn  dom  y ) )
6564alrimiv 1617 . . 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 1527   E.wex 1528    = wceq 1623    e. wcel 1684   {cab 2269    =/= wne 2446   A.wral 2543   _Vcvv 2788    C_ wss 3152   (/)c0 3455   {csn 3640   U.cuni 3827   class class class wbr 4023   {copab 4076    e. cmpt 4077    X. cxp 4687   dom cdm 4689   "cima 4692   Fun wfun 5249    Fn wfn 5250   ` cfv 5255  CHOICEwac 7742
This theorem is referenced by:  dfac4  7749  dfac5  7755  dfac2a  7756  dfac2  7757  dfac8  7761  dfac9  7762  ac4  8102  dfac11  27160
This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-3 7  ax-mp 8  ax-gen 1533  ax-5 1544  ax-17 1603  ax-9 1635  ax-8 1643  ax-13 1686  ax-14 1688  ax-6 1703  ax-7 1708  ax-11 1715  ax-12 1866  ax-ext 2264  ax-sep 4141  ax-nul 4149  ax-pow 4188  ax-pr 4214  ax-un 4512
This theorem depends on definitions:  df-bi 177  df-or 359  df-an 360  df-3an 936  df-tru 1310  df-ex 1529  df-nf 1532  df-sb 1630  df-eu 2147  df-mo 2148  df-clab 2270  df-cleq 2276  df-clel 2279  df-nfc 2408  df-ne 2448  df-ral 2548  df-rex 2549  df-rab 2552  df-v 2790  df-sbc 2992  df-dif 3155  df-un 3157  df-in 3159  df-ss 3166  df-nul 3456  df-if 3566  df-pw 3627  df-sn 3646  df-pr 3647  df-op 3649  df-uni 3828  df-br 4024  df-opab 4078  df-mpt 4079  df-id 4309  df-xp 4695  df-rel 4696  df-cnv 4697  df-co 4698  df-dm 4699  df-rn 4700  df-res 4701  df-ima 4702  df-iota 5219  df-fun 5257  df-fn 5258  df-fv 5263  df-ac 7743
  Copyright terms: Public domain W3C validator