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

Theorem dfac3 8559
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 8554 . 2  |-  (CHOICE  <->  A. y E. f ( f  C_  y  /\  f  Fn  dom  y ) )
2 vex 3083 . . . . . . . 8  |-  x  e. 
_V
32uniex 6601 . . . . . . . 8  |-  U. x  e.  _V
42, 3xpex 6609 . . . . . . 7  |-  ( x  X.  U. x )  e.  _V
5 simpl 458 . . . . . . . . . 10  |-  ( ( w  e.  x  /\  v  e.  w )  ->  w  e.  x )
6 elunii 4224 . . . . . . . . . . 11  |-  ( ( v  e.  w  /\  w  e.  x )  ->  v  e.  U. x
)
76ancoms 454 . . . . . . . . . 10  |-  ( ( w  e.  x  /\  v  e.  w )  ->  v  e.  U. x
)
85, 7jca 534 . . . . . . . . 9  |-  ( ( w  e.  x  /\  v  e.  w )  ->  ( w  e.  x  /\  v  e.  U. x
) )
98ssopab2i 4748 . . . . . . . 8  |-  { <. w ,  v >.  |  ( w  e.  x  /\  v  e.  w ) }  C_  { <. w ,  v >.  |  ( w  e.  x  /\  v  e.  U. x
) }
10 df-xp 4859 . . . . . . . 8  |-  ( x  X.  U. x )  =  { <. w ,  v >.  |  ( w  e.  x  /\  v  e.  U. x
) }
119, 10sseqtr4i 3497 . . . . . . 7  |-  { <. w ,  v >.  |  ( w  e.  x  /\  v  e.  w ) }  C_  ( x  X.  U. x )
124, 11ssexi 4569 . . . . . 6  |-  { <. w ,  v >.  |  ( w  e.  x  /\  v  e.  w ) }  e.  _V
13 sseq2 3486 . . . . . . . 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 5054 . . . . . . . . 9  |-  ( y  =  { <. w ,  v >.  |  ( w  e.  x  /\  v  e.  w ) }  ->  dom  y  =  dom  { <. w ,  v
>.  |  ( w  e.  x  /\  v  e.  w ) } )
1514fneq2d 5685 . . . . . . . 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 715 . . . . . . 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 1762 . . . . . 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 3172 . . . . 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 5693 . . . . . . . . . . . . 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 2496 . . . . . . . . . . . . . 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 5064 . . . . . . . . . . . . . . . 16  |-  dom  { <. w ,  v >.  |  ( w  e.  x  /\  v  e.  w ) }  =  { w  |  E. v ( w  e.  x  /\  v  e.  w ) }
2221eleq2i 2499 . . . . . . . . . . . . . . 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 3083 . . . . . . . . . . . . . . . 16  |-  z  e. 
_V
24 elequ1 1875 . . . . . . . . . . . . . . . . . 18  |-  ( w  =  z  ->  (
w  e.  x  <->  z  e.  x ) )
25 eleq2 2496 . . . . . . . . . . . . . . . . . 18  |-  ( w  =  z  ->  (
v  e.  w  <->  v  e.  z ) )
2624, 25anbi12d 715 . . . . . . . . . . . . . . . . 17  |-  ( w  =  z  ->  (
( w  e.  x  /\  v  e.  w
)  <->  ( z  e.  x  /\  v  e.  z ) ) )
2726exbidv 1762 . . . . . . . . . . . . . . . 16  |-  ( w  =  z  ->  ( E. v ( w  e.  x  /\  v  e.  w )  <->  E. v
( z  e.  x  /\  v  e.  z
) ) )
2823, 27elab 3217 . . . . . . . . . . . . . . 15  |-  ( z  e.  { w  |  E. v ( w  e.  x  /\  v  e.  w ) }  <->  E. v
( z  e.  x  /\  v  e.  z
) )
29 19.42v 1827 . . . . . . . . . . . . . . . 16  |-  ( E. v ( z  e.  x  /\  v  e.  z )  <->  ( z  e.  x  /\  E. v 
v  e.  z ) )
30 n0 3771 . . . . . . . . . . . . . . . . 17  |-  ( z  =/=  (/)  <->  E. v  v  e.  z )
3130anbi2i 698 . . . . . . . . . . . . . . . 16  |-  ( ( z  e.  x  /\  z  =/=  (/) )  <->  ( z  e.  x  /\  E. v 
v  e.  z ) )
3229, 31bitr4i 255 . . . . . . . . . . . . . . 15  |-  ( E. v ( z  e.  x  /\  v  e.  z )  <->  ( z  e.  x  /\  z  =/=  (/) ) )
3322, 28, 323bitrri 275 . . . . . . . . . . . . . 14  |-  ( ( z  e.  x  /\  z  =/=  (/) )  <->  z  e.  dom  { <. w ,  v
>.  |  ( w  e.  x  /\  v  e.  w ) } )
3420, 33syl6rbbr 267 . . . . . . . . . . . . 13  |-  ( dom  f  =  dom  { <. w ,  v >.  |  ( w  e.  x  /\  v  e.  w ) }  ->  ( ( z  e.  x  /\  z  =/=  (/) )  <->  z  e.  dom  f ) )
3519, 34syl 17 . . . . . . . . . . . 12  |-  ( f  Fn  dom  { <. w ,  v >.  |  ( w  e.  x  /\  v  e.  w ) }  ->  ( ( z  e.  x  /\  z  =/=  (/) )  <->  z  e.  dom  f ) )
3635adantl 467 . . . . . . . . . . 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 5691 . . . . . . . . . . . 12  |-  ( f  Fn  dom  { <. w ,  v >.  |  ( w  e.  x  /\  v  e.  w ) }  ->  Fun  f )
38 funfvima3 6157 . . . . . . . . . . . . 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 454 . . . . . . . . . . . 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 476 . . . . . . . . . . 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 218 . . . . . . . . . 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 430 . . . . . . . . 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 506 . . . . . . . . . . . . 13  |-  ( z  e.  x  ->  (
u  e.  z  <->  ( z  e.  x  /\  u  e.  z ) ) )
4443abbi2dv 2554 . . . . . . . . . . . 12  |-  ( z  e.  x  ->  z  =  { u  |  ( z  e.  x  /\  u  e.  z ) } )
45 imasng 5209 . . . . . . . . . . . . . 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 5 . . . . . . . . . . . . 13  |-  ( {
<. w ,  v >.  |  ( w  e.  x  /\  v  e.  w ) } " { z } )  =  { u  |  z { <. w ,  v >.  |  ( w  e.  x  /\  v  e.  w ) } u }
47 vex 3083 . . . . . . . . . . . . . . 15  |-  u  e. 
_V
48 elequ1 1875 . . . . . . . . . . . . . . . 16  |-  ( v  =  u  ->  (
v  e.  z  <->  u  e.  z ) )
4948anbi2d 708 . . . . . . . . . . . . . . 15  |-  ( v  =  u  ->  (
( z  e.  x  /\  v  e.  z
)  <->  ( z  e.  x  /\  u  e.  z ) ) )
50 eqid 2422 . . . . . . . . . . . . . . 15  |-  { <. w ,  v >.  |  ( w  e.  x  /\  v  e.  w ) }  =  { <. w ,  v >.  |  ( w  e.  x  /\  v  e.  w ) }
5123, 47, 26, 49, 50brab 4743 . . . . . . . . . . . . . 14  |-  ( z { <. w ,  v
>.  |  ( w  e.  x  /\  v  e.  w ) } u  <->  ( z  e.  x  /\  u  e.  z )
)
5251abbii 2551 . . . . . . . . . . . . 13  |-  { u  |  z { <. w ,  v >.  |  ( w  e.  x  /\  v  e.  w ) } u }  =  { u  |  (
z  e.  x  /\  u  e.  z ) }
5346, 52eqtri 2451 . . . . . . . . . . . 12  |-  ( {
<. w ,  v >.  |  ( w  e.  x  /\  v  e.  w ) } " { z } )  =  { u  |  ( z  e.  x  /\  u  e.  z
) }
5444, 53syl6reqr 2482 . . . . . . . . . . 11  |-  ( z  e.  x  ->  ( { <. w ,  v
>.  |  ( w  e.  x  /\  v  e.  w ) } " { z } )  =  z )
5554eleq2d 2492 . . . . . . . . . 10  |-  ( z  e.  x  ->  (
( f `  z
)  e.  ( {
<. w ,  v >.  |  ( w  e.  x  /\  v  e.  w ) } " { z } )  <-> 
( f `  z
)  e.  z ) )
5655ad2antrl 732 . . . . . . . . 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 213 . . . . . . . 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 608 . . . . . . 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 2834 . . . . . 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 1701 . . . . 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 17 . . . 4  |-  ( A. y E. f ( f 
C_  y  /\  f  Fn  dom  y )  ->  E. f A. z  e.  x  ( z  =/=  (/)  ->  ( f `  z )  e.  z ) )
6261alrimiv 1767 . . 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 2422 . . . . 5  |-  ( w  e.  dom  y  |->  ( f `  { u  |  w y u }
) )  =  ( w  e.  dom  y  |->  ( f `  {
u  |  w y u } ) )
6463aceq3lem 8558 . . . 4  |-  ( A. x E. f A. z  e.  x  ( z  =/=  (/)  ->  ( f `  z )  e.  z )  ->  E. f
( f  C_  y  /\  f  Fn  dom  y ) )
6564alrimiv 1767 . . 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 190 . 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 252 1  |-  (CHOICE  <->  A. x E. f A. z  e.  x  ( z  =/=  (/)  ->  ( f `  z )  e.  z ) )
Colors of variables: wff setvar class
Syntax hints:    -> wi 4    <-> wb 187    /\ wa 370   A.wal 1435    = wceq 1437   E.wex 1657    e. wcel 1872   {cab 2407    =/= wne 2614   A.wral 2771   _Vcvv 3080    C_ wss 3436   (/)c0 3761   {csn 3998   U.cuni 4219   class class class wbr 4423   {copab 4481    |-> cmpt 4482    X. cxp 4851   dom cdm 4853   "cima 4856   Fun wfun 5595    Fn wfn 5596   ` cfv 5601  CHOICEwac 8553
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1663  ax-4 1676  ax-5 1752  ax-6 1798  ax-7 1843  ax-8 1874  ax-9 1876  ax-10 1891  ax-11 1896  ax-12 1909  ax-13 2057  ax-ext 2401  ax-sep 4546  ax-nul 4555  ax-pow 4602  ax-pr 4660  ax-un 6597
This theorem depends on definitions:  df-bi 188  df-or 371  df-an 372  df-3an 984  df-tru 1440  df-ex 1658  df-nf 1662  df-sb 1791  df-eu 2273  df-mo 2274  df-clab 2408  df-cleq 2414  df-clel 2417  df-nfc 2568  df-ne 2616  df-ral 2776  df-rex 2777  df-rab 2780  df-v 3082  df-sbc 3300  df-dif 3439  df-un 3441  df-in 3443  df-ss 3450  df-nul 3762  df-if 3912  df-pw 3983  df-sn 3999  df-pr 4001  df-op 4005  df-uni 4220  df-br 4424  df-opab 4483  df-mpt 4484  df-id 4768  df-xp 4859  df-rel 4860  df-cnv 4861  df-co 4862  df-dm 4863  df-rn 4864  df-res 4865  df-ima 4866  df-iota 5565  df-fun 5603  df-fn 5604  df-fv 5609  df-ac 8554
This theorem is referenced by:  dfac4  8560  dfac5  8566  dfac2a  8567  dfac2  8568  dfac8  8572  dfac9  8573  ac4  8912  dfac11  35890
  Copyright terms: Public domain W3C validator