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

Theorem dfac11 27028
Description: The right-hand side of this theorem (compare with ac4 8311), sometimes known as the "axiom of multiple choice", is a choice equivalent. Curiously, this statement cannot be proved without ax-reg 7516, despite not mentioning the cumulative hierarchy in any way as most consequences of regularity do.

This is definition (MC) of [Schechter] p. 141. EDITORIAL: the proof is not original with me of course but I lost my reference sometime after writing it.

A multiple choice function allows any total order to be extended to a choice function, which in turn defines a well-ordering. Since a well ordering on a set defines a simple ordering of the power set, this allows the trivial well-ordering of the empty set to be transfinitely bootstrapped up the cumulative hierarchy to any desired level. (Contributed by Stefan O'Rear, 20-Jan-2015.) (Revised by Stefan O'Rear, 1-Jun-2015.)

Assertion
Ref Expression
dfac11  |-  (CHOICE  <->  A. x E. f A. z  e.  x  ( z  =/=  (/)  ->  ( f `  z )  e.  ( ( ~P z  i^i 
Fin )  \  { (/)
} ) ) )
Distinct variable group:    x, z, f

Proof of Theorem dfac11
Dummy variables  a 
b  c  d are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 dfac3 7958 . . 3  |-  (CHOICE  <->  A. a E. c A. d  e.  a  ( d  =/=  (/)  ->  ( c `  d )  e.  d ) )
2 raleq 2864 . . . . . 6  |-  ( a  =  x  ->  ( A. d  e.  a 
( d  =/=  (/)  ->  (
c `  d )  e.  d )  <->  A. d  e.  x  ( d  =/=  (/)  ->  ( c `  d )  e.  d ) ) )
32exbidv 1633 . . . . 5  |-  ( a  =  x  ->  ( E. c A. d  e.  a  ( d  =/=  (/)  ->  ( c `  d )  e.  d )  <->  E. c A. d  e.  x  ( d  =/=  (/)  ->  ( c `  d )  e.  d ) ) )
43cbvalv 2052 . . . 4  |-  ( A. a E. c A. d  e.  a  ( d  =/=  (/)  ->  ( c `  d )  e.  d )  <->  A. x E. c A. d  e.  x  ( d  =/=  (/)  ->  (
c `  d )  e.  d ) )
5 neeq1 2575 . . . . . . . . . 10  |-  ( d  =  z  ->  (
d  =/=  (/)  <->  z  =/=  (/) ) )
6 fveq2 5687 . . . . . . . . . . 11  |-  ( d  =  z  ->  (
c `  d )  =  ( c `  z ) )
7 id 20 . . . . . . . . . . 11  |-  ( d  =  z  ->  d  =  z )
86, 7eleq12d 2472 . . . . . . . . . 10  |-  ( d  =  z  ->  (
( c `  d
)  e.  d  <->  ( c `  z )  e.  z ) )
95, 8imbi12d 312 . . . . . . . . 9  |-  ( d  =  z  ->  (
( d  =/=  (/)  ->  (
c `  d )  e.  d )  <->  ( z  =/=  (/)  ->  ( c `  z )  e.  z ) ) )
109cbvralv 2892 . . . . . . . 8  |-  ( A. d  e.  x  (
d  =/=  (/)  ->  (
c `  d )  e.  d )  <->  A. z  e.  x  ( z  =/=  (/)  ->  ( c `  z )  e.  z ) )
11 fveq2 5687 . . . . . . . . . . . . . . 15  |-  ( b  =  z  ->  (
c `  b )  =  ( c `  z ) )
1211sneqd 3787 . . . . . . . . . . . . . 14  |-  ( b  =  z  ->  { ( c `  b ) }  =  { ( c `  z ) } )
13 eqid 2404 . . . . . . . . . . . . . 14  |-  ( b  e.  x  |->  { ( c `  b ) } )  =  ( b  e.  x  |->  { ( c `  b
) } )
14 snex 4365 . . . . . . . . . . . . . 14  |-  { ( c `  z ) }  e.  _V
1512, 13, 14fvmpt 5765 . . . . . . . . . . . . 13  |-  ( z  e.  x  ->  (
( b  e.  x  |->  { ( c `  b ) } ) `
 z )  =  { ( c `  z ) } )
16153ad2ant1 978 . . . . . . . . . . . 12  |-  ( ( z  e.  x  /\  z  =/=  (/)  /\  ( c `
 z )  e.  z )  ->  (
( b  e.  x  |->  { ( c `  b ) } ) `
 z )  =  { ( c `  z ) } )
17 simp3 959 . . . . . . . . . . . . . . . 16  |-  ( ( z  e.  x  /\  z  =/=  (/)  /\  ( c `
 z )  e.  z )  ->  (
c `  z )  e.  z )
1817snssd 3903 . . . . . . . . . . . . . . 15  |-  ( ( z  e.  x  /\  z  =/=  (/)  /\  ( c `
 z )  e.  z )  ->  { ( c `  z ) }  C_  z )
1914elpw 3765 . . . . . . . . . . . . . . 15  |-  ( { ( c `  z
) }  e.  ~P z 
<->  { ( c `  z ) }  C_  z )
2018, 19sylibr 204 . . . . . . . . . . . . . 14  |-  ( ( z  e.  x  /\  z  =/=  (/)  /\  ( c `
 z )  e.  z )  ->  { ( c `  z ) }  e.  ~P z
)
21 snfi 7146 . . . . . . . . . . . . . . 15  |-  { ( c `  z ) }  e.  Fin
2221a1i 11 . . . . . . . . . . . . . 14  |-  ( ( z  e.  x  /\  z  =/=  (/)  /\  ( c `
 z )  e.  z )  ->  { ( c `  z ) }  e.  Fin )
23 elin 3490 . . . . . . . . . . . . . 14  |-  ( { ( c `  z
) }  e.  ( ~P z  i^i  Fin ) 
<->  ( { ( c `
 z ) }  e.  ~P z  /\  { ( c `  z
) }  e.  Fin ) )
2420, 22, 23sylanbrc 646 . . . . . . . . . . . . 13  |-  ( ( z  e.  x  /\  z  =/=  (/)  /\  ( c `
 z )  e.  z )  ->  { ( c `  z ) }  e.  ( ~P z  i^i  Fin )
)
25 fvex 5701 . . . . . . . . . . . . . . 15  |-  ( c `
 z )  e. 
_V
2625snnz 3882 . . . . . . . . . . . . . 14  |-  { ( c `  z ) }  =/=  (/)
2726a1i 11 . . . . . . . . . . . . 13  |-  ( ( z  e.  x  /\  z  =/=  (/)  /\  ( c `
 z )  e.  z )  ->  { ( c `  z ) }  =/=  (/) )
28 eldifsn 3887 . . . . . . . . . . . . 13  |-  ( { ( c `  z
) }  e.  ( ( ~P z  i^i 
Fin )  \  { (/)
} )  <->  ( {
( c `  z
) }  e.  ( ~P z  i^i  Fin )  /\  { ( c `
 z ) }  =/=  (/) ) )
2924, 27, 28sylanbrc 646 . . . . . . . . . . . 12  |-  ( ( z  e.  x  /\  z  =/=  (/)  /\  ( c `
 z )  e.  z )  ->  { ( c `  z ) }  e.  ( ( ~P z  i^i  Fin )  \  { (/) } ) )
3016, 29eqeltrd 2478 . . . . . . . . . . 11  |-  ( ( z  e.  x  /\  z  =/=  (/)  /\  ( c `
 z )  e.  z )  ->  (
( b  e.  x  |->  { ( c `  b ) } ) `
 z )  e.  ( ( ~P z  i^i  Fin )  \  { (/)
} ) )
31303exp 1152 . . . . . . . . . 10  |-  ( z  e.  x  ->  (
z  =/=  (/)  ->  (
( c `  z
)  e.  z  -> 
( ( b  e.  x  |->  { ( c `
 b ) } ) `  z )  e.  ( ( ~P z  i^i  Fin )  \  { (/) } ) ) ) )
3231a2d 24 . . . . . . . . 9  |-  ( z  e.  x  ->  (
( z  =/=  (/)  ->  (
c `  z )  e.  z )  ->  (
z  =/=  (/)  ->  (
( b  e.  x  |->  { ( c `  b ) } ) `
 z )  e.  ( ( ~P z  i^i  Fin )  \  { (/)
} ) ) ) )
3332ralimia 2739 . . . . . . . 8  |-  ( A. z  e.  x  (
z  =/=  (/)  ->  (
c `  z )  e.  z )  ->  A. z  e.  x  ( z  =/=  (/)  ->  ( (
b  e.  x  |->  { ( c `  b
) } ) `  z )  e.  ( ( ~P z  i^i 
Fin )  \  { (/)
} ) ) )
3410, 33sylbi 188 . . . . . . 7  |-  ( A. d  e.  x  (
d  =/=  (/)  ->  (
c `  d )  e.  d )  ->  A. z  e.  x  ( z  =/=  (/)  ->  ( (
b  e.  x  |->  { ( c `  b
) } ) `  z )  e.  ( ( ~P z  i^i 
Fin )  \  { (/)
} ) ) )
35 vex 2919 . . . . . . . . 9  |-  x  e. 
_V
3635mptex 5925 . . . . . . . 8  |-  ( b  e.  x  |->  { ( c `  b ) } )  e.  _V
37 fveq1 5686 . . . . . . . . . . 11  |-  ( f  =  ( b  e.  x  |->  { ( c `
 b ) } )  ->  ( f `  z )  =  ( ( b  e.  x  |->  { ( c `  b ) } ) `
 z ) )
3837eleq1d 2470 . . . . . . . . . 10  |-  ( f  =  ( b  e.  x  |->  { ( c `
 b ) } )  ->  ( (
f `  z )  e.  ( ( ~P z  i^i  Fin )  \  { (/)
} )  <->  ( (
b  e.  x  |->  { ( c `  b
) } ) `  z )  e.  ( ( ~P z  i^i 
Fin )  \  { (/)
} ) ) )
3938imbi2d 308 . . . . . . . . 9  |-  ( f  =  ( b  e.  x  |->  { ( c `
 b ) } )  ->  ( (
z  =/=  (/)  ->  (
f `  z )  e.  ( ( ~P z  i^i  Fin )  \  { (/)
} ) )  <->  ( z  =/=  (/)  ->  ( (
b  e.  x  |->  { ( c `  b
) } ) `  z )  e.  ( ( ~P z  i^i 
Fin )  \  { (/)
} ) ) ) )
4039ralbidv 2686 . . . . . . . 8  |-  ( f  =  ( b  e.  x  |->  { ( c `
 b ) } )  ->  ( A. z  e.  x  (
z  =/=  (/)  ->  (
f `  z )  e.  ( ( ~P z  i^i  Fin )  \  { (/)
} ) )  <->  A. z  e.  x  ( z  =/=  (/)  ->  ( (
b  e.  x  |->  { ( c `  b
) } ) `  z )  e.  ( ( ~P z  i^i 
Fin )  \  { (/)
} ) ) ) )
4136, 40spcev 3003 . . . . . . 7  |-  ( A. z  e.  x  (
z  =/=  (/)  ->  (
( b  e.  x  |->  { ( c `  b ) } ) `
 z )  e.  ( ( ~P z  i^i  Fin )  \  { (/)
} ) )  ->  E. f A. z  e.  x  ( z  =/=  (/)  ->  ( f `  z )  e.  ( ( ~P z  i^i 
Fin )  \  { (/)
} ) ) )
4234, 41syl 16 . . . . . 6  |-  ( A. d  e.  x  (
d  =/=  (/)  ->  (
c `  d )  e.  d )  ->  E. f A. z  e.  x  ( z  =/=  (/)  ->  (
f `  z )  e.  ( ( ~P z  i^i  Fin )  \  { (/)
} ) ) )
4342exlimiv 1641 . . . . 5  |-  ( E. c A. d  e.  x  ( d  =/=  (/)  ->  ( c `  d )  e.  d )  ->  E. f A. z  e.  x  ( z  =/=  (/)  ->  (
f `  z )  e.  ( ( ~P z  i^i  Fin )  \  { (/)
} ) ) )
4443alimi 1565 . . . 4  |-  ( A. x E. c A. d  e.  x  ( d  =/=  (/)  ->  ( c `  d )  e.  d )  ->  A. x E. f A. z  e.  x  ( z  =/=  (/)  ->  ( f `  z )  e.  ( ( ~P z  i^i 
Fin )  \  { (/)
} ) ) )
454, 44sylbi 188 . . 3  |-  ( A. a E. c A. d  e.  a  ( d  =/=  (/)  ->  ( c `  d )  e.  d )  ->  A. x E. f A. z  e.  x  ( z  =/=  (/)  ->  ( f `  z )  e.  ( ( ~P z  i^i 
Fin )  \  { (/)
} ) ) )
461, 45sylbi 188 . 2  |-  (CHOICE  ->  A. x E. f A. z  e.  x  ( z  =/=  (/)  ->  ( f `  z )  e.  ( ( ~P z  i^i 
Fin )  \  { (/)
} ) ) )
47 fvex 5701 . . . . . . 7  |-  ( R1
`  ( rank `  a
) )  e.  _V
4847pwex 4342 . . . . . 6  |-  ~P ( R1 `  ( rank `  a
) )  e.  _V
49 raleq 2864 . . . . . . 7  |-  ( x  =  ~P ( R1
`  ( rank `  a
) )  ->  ( A. z  e.  x  ( z  =/=  (/)  ->  (
f `  z )  e.  ( ( ~P z  i^i  Fin )  \  { (/)
} ) )  <->  A. z  e.  ~P  ( R1 `  ( rank `  a )
) ( z  =/=  (/)  ->  ( f `  z )  e.  ( ( ~P z  i^i 
Fin )  \  { (/)
} ) ) ) )
5049exbidv 1633 . . . . . 6  |-  ( x  =  ~P ( R1
`  ( rank `  a
) )  ->  ( E. f A. z  e.  x  ( z  =/=  (/)  ->  ( f `  z )  e.  ( ( ~P z  i^i 
Fin )  \  { (/)
} ) )  <->  E. f A. z  e.  ~P  ( R1 `  ( rank `  a ) ) ( z  =/=  (/)  ->  (
f `  z )  e.  ( ( ~P z  i^i  Fin )  \  { (/)
} ) ) ) )
5148, 50spcv 3002 . . . . 5  |-  ( A. x E. f A. z  e.  x  ( z  =/=  (/)  ->  ( f `  z )  e.  ( ( ~P z  i^i 
Fin )  \  { (/)
} ) )  ->  E. f A. z  e. 
~P  ( R1 `  ( rank `  a )
) ( z  =/=  (/)  ->  ( f `  z )  e.  ( ( ~P z  i^i 
Fin )  \  { (/)
} ) ) )
52 rankon 7677 . . . . . . . 8  |-  ( rank `  a )  e.  On
5352a1i 11 . . . . . . 7  |-  ( A. z  e.  ~P  ( R1 `  ( rank `  a
) ) ( z  =/=  (/)  ->  ( f `  z )  e.  ( ( ~P z  i^i 
Fin )  \  { (/)
} ) )  -> 
( rank `  a )  e.  On )
54 id 20 . . . . . . 7  |-  ( A. z  e.  ~P  ( R1 `  ( rank `  a
) ) ( z  =/=  (/)  ->  ( f `  z )  e.  ( ( ~P z  i^i 
Fin )  \  { (/)
} ) )  ->  A. z  e.  ~P  ( R1 `  ( rank `  a ) ) ( z  =/=  (/)  ->  (
f `  z )  e.  ( ( ~P z  i^i  Fin )  \  { (/)
} ) ) )
5553, 54aomclem8 27027 . . . . . 6  |-  ( A. z  e.  ~P  ( R1 `  ( rank `  a
) ) ( z  =/=  (/)  ->  ( f `  z )  e.  ( ( ~P z  i^i 
Fin )  \  { (/)
} ) )  ->  E. b  b  We  ( R1 `  ( rank `  a ) ) )
5655exlimiv 1641 . . . . 5  |-  ( E. f A. z  e. 
~P  ( R1 `  ( rank `  a )
) ( z  =/=  (/)  ->  ( f `  z )  e.  ( ( ~P z  i^i 
Fin )  \  { (/)
} ) )  ->  E. b  b  We  ( R1 `  ( rank `  a ) ) )
57 vex 2919 . . . . . 6  |-  a  e. 
_V
58 r1rankid 7741 . . . . . 6  |-  ( a  e.  _V  ->  a  C_  ( R1 `  ( rank `  a ) ) )
59 wess 4529 . . . . . . 7  |-  ( a 
C_  ( R1 `  ( rank `  a )
)  ->  ( b  We  ( R1 `  ( rank `  a ) )  ->  b  We  a
) )
6059eximdv 1629 . . . . . 6  |-  ( a 
C_  ( R1 `  ( rank `  a )
)  ->  ( E. b  b  We  ( R1 `  ( rank `  a
) )  ->  E. b 
b  We  a ) )
6157, 58, 60mp2b 10 . . . . 5  |-  ( E. b  b  We  ( R1 `  ( rank `  a
) )  ->  E. b 
b  We  a )
6251, 56, 613syl 19 . . . 4  |-  ( A. x E. f A. z  e.  x  ( z  =/=  (/)  ->  ( f `  z )  e.  ( ( ~P z  i^i 
Fin )  \  { (/)
} ) )  ->  E. b  b  We  a )
6362alrimiv 1638 . . 3  |-  ( A. x E. f A. z  e.  x  ( z  =/=  (/)  ->  ( f `  z )  e.  ( ( ~P z  i^i 
Fin )  \  { (/)
} ) )  ->  A. a E. b  b  We  a )
64 dfac8 7971 . . 3  |-  (CHOICE  <->  A. a E. b  b  We  a )
6563, 64sylibr 204 . 2  |-  ( A. x E. f A. z  e.  x  ( z  =/=  (/)  ->  ( f `  z )  e.  ( ( ~P z  i^i 
Fin )  \  { (/)
} ) )  -> CHOICE )
6646, 65impbii 181 1  |-  (CHOICE  <->  A. x E. f A. z  e.  x  ( z  =/=  (/)  ->  ( f `  z )  e.  ( ( ~P z  i^i 
Fin )  \  { (/)
} ) ) )
Colors of variables: wff set class
Syntax hints:    -> wi 4    <-> wb 177    /\ w3a 936   A.wal 1546   E.wex 1547    = wceq 1649    e. wcel 1721    =/= wne 2567   A.wral 2666   _Vcvv 2916    \ cdif 3277    i^i cin 3279    C_ wss 3280   (/)c0 3588   ~Pcpw 3759   {csn 3774    e. cmpt 4226    We wwe 4500   Oncon0 4541   ` cfv 5413   Fincfn 7068   R1cr1 7644   rankcrnk 7645  CHOICEwac 7952
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 1662  ax-8 1683  ax-13 1723  ax-14 1725  ax-6 1740  ax-7 1745  ax-11 1757  ax-12 1946  ax-ext 2385  ax-rep 4280  ax-sep 4290  ax-nul 4298  ax-pow 4337  ax-pr 4363  ax-un 4660  ax-reg 7516  ax-inf2 7552
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 2258  df-mo 2259  df-clab 2391  df-cleq 2397  df-clel 2400  df-nfc 2529  df-ne 2569  df-ral 2671  df-rex 2672  df-reu 2673  df-rmo 2674  df-rab 2675  df-v 2918  df-sbc 3122  df-csb 3212  df-dif 3283  df-un 3285  df-in 3287  df-ss 3294  df-pss 3296  df-nul 3589  df-if 3700  df-pw 3761  df-sn 3780  df-pr 3781  df-tp 3782  df-op 3783  df-uni 3976  df-int 4011  df-iun 4055  df-br 4173  df-opab 4227  df-mpt 4228  df-tr 4263  df-eprel 4454  df-id 4458  df-po 4463  df-so 4464  df-fr 4501  df-se 4502  df-we 4503  df-ord 4544  df-on 4545  df-lim 4546  df-suc 4547  df-om 4805  df-xp 4843  df-rel 4844  df-cnv 4845  df-co 4846  df-dm 4847  df-rn 4848  df-res 4849  df-ima 4850  df-iota 5377  df-fun 5415  df-fn 5416  df-f 5417  df-f1 5418  df-fo 5419  df-f1o 5420  df-fv 5421  df-isom 5422  df-ov 6043  df-oprab 6044  df-mpt2 6045  df-1st 6308  df-2nd 6309  df-riota 6508  df-recs 6592  df-rdg 6627  df-1o 6683  df-2o 6684  df-er 6864  df-map 6979  df-en 7069  df-fin 7072  df-sup 7404  df-r1 7646  df-rank 7647  df-card 7782  df-ac 7953
  Copyright terms: Public domain W3C validator