Theorem acexmid 6074

Description: The axiom of choice implies excluded middle. Theorem 1.3 in [Bauer] p. 483.

The statement of the axiom of choice given here is ac2 in the Metamath Proof Explorer (version of 3-Aug-2019). In particular, note that the choice function y provides a value when z is inhabited (as opposed to nonempty as in some statements of the axiom of choice).

Essentially the same proof can also be found at "The axiom of choice implies instances of EM", [Crosilla], p. "Set-theoretic principles incompatible with intuitionistic logic".

Often referred to as Diaconescu's theorem, or Diaconescu-Goodman-Myhill theorem, after Radu Diaconescu who discovered it in 1975 in the framework of topos theory and N. D. Goodman and John Myhill in 1978 in the framework of set theory (although it already appeared as an exercise in Errett Bishop's book Foundations of Constructive Analysis from 1967).

For this theorem stated using the df-ac 7552 and df-exmid 4327 syntaxes, see exmidac 7555. (Contributed by Jim Kingdon, 4-Aug-2019.)

Hypothesis

Ref	Expression
acexmid.choice	|- E. y A. z e. x A. w e. z E! v e. z E. u e. y ( z e. u /\ v e. u )

Assertion

Ref	Expression
acexmid	|- ( ph \/ -. ph )

Distinct variable group:   x, y, z, w, v, u

Allowed substitution hints:   ph( x, y, z, w, v, u)

Proof of Theorem acexmid

Dummy variables a b c d e f are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		nfv 1581	. . . . . . . . . . . . . 14 |- F/ v ( f e. c /\ E. e e. b ( c e. e /\ f e. e ) )
2	1	sb8eu 2099	. . . . . . . . . . . . 13 |- ( E! f ( f e. c /\ E. e e. b ( c e. e /\ f e. e ) ) <-> E! v [ v / f ] ( f e. c /\ E. e e. b ( c e. e /\ f e. e ) ) )
3		eleq12 2303	. . . . . . . . . . . . . . . . . . . 20 |- ( ( f = v /\ c = z ) -> ( f e. c <-> v e. z ) )
4	3	ancoms 268	. . . . . . . . . . . . . . . . . . 19 |- ( ( c = z /\ f = v ) -> ( f e. c <-> v e. z ) )
5	4	3adant3 1048	. . . . . . . . . . . . . . . . . 18 |- ( ( c = z /\ f = v /\ b = y ) -> ( f e. c <-> v e. z ) )
6		eleq12 2303	. . . . . . . . . . . . . . . . . . . . 21 |- ( ( c = z /\ e = u ) -> ( c e. e <-> z e. u ) )
7	6	3ad2antl1 1190	. . . . . . . . . . . . . . . . . . . 20 |- ( ( ( c = z /\ f = v /\ b = y ) /\ e = u ) -> ( c e. e <-> z e. u ) )
8		eleq12 2303	. . . . . . . . . . . . . . . . . . . . 21 |- ( ( f = v /\ e = u ) -> ( f e. e <-> v e. u ) )
9	8	3ad2antl2 1191	. . . . . . . . . . . . . . . . . . . 20 |- ( ( ( c = z /\ f = v /\ b = y ) /\ e = u ) -> ( f e. e <-> v e. u ) )
10	7, 9	anbi12d 477	. . . . . . . . . . . . . . . . . . 19 |- ( ( ( c = z /\ f = v /\ b = y ) /\ e = u ) -> ( ( c e. e /\ f e. e ) <-> ( z e. u /\ v e. u ) ) )
11		simpl3 1033	. . . . . . . . . . . . . . . . . . 19 |- ( ( ( c = z /\ f = v /\ b = y ) /\ e = u ) -> b = y )
12	10, 11	cbvrexdva2 2794	. . . . . . . . . . . . . . . . . 18 |- ( ( c = z /\ f = v /\ b = y ) -> ( E. e e. b ( c e. e /\ f e. e ) <-> E. u e. y ( z e. u /\ v e. u ) ) )
13	5, 12	anbi12d 477	. . . . . . . . . . . . . . . . 17 |- ( ( c = z /\ f = v /\ b = y ) -> ( ( f e. c /\ E. e e. b ( c e. e /\ f e. e ) ) <-> ( v e. z /\ E. u e. y ( z e. u /\ v e. u ) ) ) )
14	13	3com23 1240	. . . . . . . . . . . . . . . 16 |- ( ( c = z /\ b = y /\ f = v ) -> ( ( f e. c /\ E. e e. b ( c e. e /\ f e. e ) ) <-> ( v e. z /\ E. u e. y ( z e. u /\ v e. u ) ) ) )
15	14	3expa 1234	. . . . . . . . . . . . . . 15 |- ( ( ( c = z /\ b = y ) /\ f = v ) -> ( ( f e. c /\ E. e e. b ( c e. e /\ f e. e ) ) <-> ( v e. z /\ E. u e. y ( z e. u /\ v e. u ) ) ) )
16	15	sbiedv 1842	. . . . . . . . . . . . . 14 |- ( ( c = z /\ b = y ) -> ( [ v / f ] ( f e. c /\ E. e e. b ( c e. e /\ f e. e ) ) <-> ( v e. z /\ E. u e. y ( z e. u /\ v e. u ) ) ) )
17	16	eubidv 2094	. . . . . . . . . . . . 13 |- ( ( c = z /\ b = y ) -> ( E! v [ v / f ] ( f e. c /\ E. e e. b ( c e. e /\ f e. e ) ) <-> E! v ( v e. z /\ E. u e. y ( z e. u /\ v e. u ) ) ) )
18	2, 17	bitrid 192	. . . . . . . . . . . 12 |- ( ( c = z /\ b = y ) -> ( E! f ( f e. c /\ E. e e. b ( c e. e /\ f e. e ) ) <-> E! v ( v e. z /\ E. u e. y ( z e. u /\ v e. u ) ) ) )
19		df-reu 2535	. . . . . . . . . . . 12 |- ( E! f e. c E. e e. b ( c e. e /\ f e. e ) <-> E! f ( f e. c /\ E. e e. b ( c e. e /\ f e. e ) ) )
20		df-reu 2535	. . . . . . . . . . . 12 |- ( E! v e. z E. u e. y ( z e. u /\ v e. u ) <-> E! v ( v e. z /\ E. u e. y ( z e. u /\ v e. u ) ) )
21	18, 19, 20	3bitr4g 223	. . . . . . . . . . 11 |- ( ( c = z /\ b = y ) -> ( E! f e. c E. e e. b ( c e. e /\ f e. e ) <-> E! v e. z E. u e. y ( z e. u /\ v e. u ) ) )
22	21	adantr 276	. . . . . . . . . 10 |- ( ( ( c = z /\ b = y ) /\ d = w ) -> ( E! f e. c E. e e. b ( c e. e /\ f e. e ) <-> E! v e. z E. u e. y ( z e. u /\ v e. u ) ) )
23		simpll 531	. . . . . . . . . 10 |- ( ( ( c = z /\ b = y ) /\ d = w ) -> c = z )
24	22, 23	cbvraldva2 2793	. . . . . . . . 9 |- ( ( c = z /\ b = y ) -> ( A. d e. c E! f e. c E. e e. b ( c e. e /\ f e. e ) <-> A. w e. z E! v e. z E. u e. y ( z e. u /\ v e. u ) ) )
25	24	ancoms 268	. . . . . . . 8 |- ( ( b = y /\ c = z ) -> ( A. d e. c E! f e. c E. e e. b ( c e. e /\ f e. e ) <-> A. w e. z E! v e. z E. u e. y ( z e. u /\ v e. u ) ) )
26	25	adantll 480	. . . . . . 7 |- ( ( ( a = x /\ b = y ) /\ c = z ) -> ( A. d e. c E! f e. c E. e e. b ( c e. e /\ f e. e ) <-> A. w e. z E! v e. z E. u e. y ( z e. u /\ v e. u ) ) )
27		simpll 531	. . . . . . 7 |- ( ( ( a = x /\ b = y ) /\ c = z ) -> a = x )
28	26, 27	cbvraldva2 2793	. . . . . 6 |- ( ( a = x /\ b = y ) -> ( A. c e. a A. d e. c E! f e. c E. e e. b ( c e. e /\ f e. e ) <-> A. z e. x A. w e. z E! v e. z E. u e. y ( z e. u /\ v e. u ) ) )
29	28	cbvexdva 1985	. . . . 5 |- ( a = x -> ( E. b A. c e. a A. d e. c E! f e. c E. e e. b ( c e. e /\ f e. e ) <-> E. y A. z e. x A. w e. z E! v e. z E. u e. y ( z e. u /\ v e. u ) ) )
30	29	cbvalv 1973	. . . 4 |- ( A. a E. b A. c e. a A. d e. c E! f e. c E. e e. b ( c e. e /\ f e. e ) <-> A. x E. y A. z e. x A. w e. z E! v e. z E. u e. y ( z e. u /\ v e. u ) )
31		acexmid.choice	. . . 4 |- E. y A. z e. x A. w e. z E! v e. z E. u e. y ( z e. u /\ v e. u )
32	30, 31	mpgbir 1506	. . 3 |- A. a E. b A. c e. a A. d e. c E! f e. c E. e e. b ( c e. e /\ f e. e )
33	32	spi 1589	. 2 |- E. b A. c e. a A. d e. c E! f e. c E. e e. b ( c e. e /\ f e. e )
34	33	acexmidlemv 6073	1 |- ( ph \/ -. ph )

Syntax hints:   -. wn 3   /\ wa 104   <-> wb 105   \/ wo 720   /\ w3a 1009   A.wal 1400   E.wex 1545   [wsb 1815   E!weu 2086   A.wral 2528   E.wrex 2529   E!wreu 2530

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-in1 623  ax-in2 624  ax-io 721  ax-5 1500  ax-7 1501  ax-gen 1502  ax-ie1 1546  ax-ie2 1547  ax-8 1557  ax-10 1558  ax-11 1559  ax-i12 1560  ax-bndl 1562  ax-4 1563  ax-17 1579  ax-i9 1583  ax-ial 1587  ax-i5r 1588  ax-14 2212  ax-ext 2220  ax-sep 4244  ax-nul 4254  ax-pow 4306  ax-pr 4341

This theorem depends on definitions:  df-bi 117  df-3or 1010  df-3an 1011  df-tru 1405  df-nf 1514  df-sb 1816  df-eu 2089  df-clab 2225  df-cleq 2231  df-clel 2234  df-nfc 2381  df-ral 2533  df-rex 2534  df-reu 2535  df-rab 2537  df-v 2823  df-sbc 3052  df-dif 3222  df-un 3224  df-in 3226  df-ss 3233  df-nul 3521  df-pw 3687  df-sn 3711  df-pr 3712  df-uni 3931  df-tr 4225  df-iord 4506  df-on 4508  df-suc 4511  df-iota 5332  df-riota 6028

This theorem is referenced by: (None)