Theorem acexmid 5531

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 non-empty 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).

(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 1461	. . . . . . . . . . . . . 14 |- F/ v ( f e. c /\ E. e e. b ( c e. e /\ f e. e ) )
2	1	sb8eu 1954	. . . . . . . . . . . . 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 2143	. . . . . . . . . . . . . . . . . . . 20 |- ( ( f = v /\ c = z ) -> ( f e. c <-> v e. z ) )
4	3	ancoms 264	. . . . . . . . . . . . . . . . . . 19 |- ( ( c = z /\ f = v ) -> ( f e. c <-> v e. z ) )
5	4	3adant3 958	. . . . . . . . . . . . . . . . . 18 |- ( ( c = z /\ f = v /\ b = y ) -> ( f e. c <-> v e. z ) )
6		eleq12 2143	. . . . . . . . . . . . . . . . . . . . 21 |- ( ( c = z /\ e = u ) -> ( c e. e <-> z e. u ) )
7	6	3ad2antl1 1100	. . . . . . . . . . . . . . . . . . . 20 |- ( ( ( c = z /\ f = v /\ b = y ) /\ e = u ) -> ( c e. e <-> z e. u ) )
8		eleq12 2143	. . . . . . . . . . . . . . . . . . . . 21 |- ( ( f = v /\ e = u ) -> ( f e. e <-> v e. u ) )
9	8	3ad2antl2 1101	. . . . . . . . . . . . . . . . . . . 20 |- ( ( ( c = z /\ f = v /\ b = y ) /\ e = u ) -> ( f e. e <-> v e. u ) )
10	7, 9	anbi12d 456	. . . . . . . . . . . . . . . . . . 19 |- ( ( ( c = z /\ f = v /\ b = y ) /\ e = u ) -> ( ( c e. e /\ f e. e ) <-> ( z e. u /\ v e. u ) ) )
11		simpl3 943	. . . . . . . . . . . . . . . . . . 19 |- ( ( ( c = z /\ f = v /\ b = y ) /\ e = u ) -> b = y )
12	10, 11	cbvrexdva2 2582	. . . . . . . . . . . . . . . . . 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 456	. . . . . . . . . . . . . . . . 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 1144	. . . . . . . . . . . . . . . 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 1138	. . . . . . . . . . . . . . 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 1712	. . . . . . . . . . . . . 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 1949	. . . . . . . . . . . . 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	syl5bb 190	. . . . . . . . . . . 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 2355	. . . . . . . . . . . 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 2355	. . . . . . . . . . . 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 221	. . . . . . . . . . 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 270	. . . . . . . . . 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 495	. . . . . . . . . 10 |- ( ( ( c = z /\ b = y ) /\ d = w ) -> c = z )
24	22, 23	cbvraldva2 2581	. . . . . . . . 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 264	. . . . . . . 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 459	. . . . . . 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 495	. . . . . . 7 |- ( ( ( a = x /\ b = y ) /\ c = z ) -> a = x )
28	26, 27	cbvraldva2 2581	. . . . . 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 1845	. . . . 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 1835	. . . 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 1382	. . 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 1469	. 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 5530	1 |- ( ph \/ -. ph )

Syntax hints:   -. wn 3   /\ wa 102   <-> wb 103   \/ wo 661   /\ w3a 919   A.wal 1282   E.wex 1421   [wsb 1685   E!weu 1941   A.wral 2348   E.wrex 2349   E!wreu 2350

This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-mp 7  ax-ia1 104  ax-ia2 105  ax-ia3 106  ax-in1 576  ax-in2 577  ax-io 662  ax-5 1376  ax-7 1377  ax-gen 1378  ax-ie1 1422  ax-ie2 1423  ax-8 1435  ax-10 1436  ax-11 1437  ax-i12 1438  ax-bndl 1439  ax-4 1440  ax-14 1445  ax-17 1459  ax-i9 1463  ax-ial 1467  ax-i5r 1468  ax-ext 2063  ax-sep 3896  ax-nul 3904  ax-pow 3948  ax-pr 3964

This theorem depends on definitions:  df-bi 115  df-3or 920  df-3an 921  df-tru 1287  df-nf 1390  df-sb 1686  df-eu 1944  df-clab 2068  df-cleq 2074  df-clel 2077  df-nfc 2208  df-ral 2353  df-rex 2354  df-reu 2355  df-rab 2357  df-v 2603  df-sbc 2816  df-dif 2975  df-un 2977  df-in 2979  df-ss 2986  df-nul 3252  df-pw 3384  df-sn 3404  df-pr 3405  df-uni 3602  df-tr 3876  df-iord 4121  df-on 4123  df-suc 4126  df-iota 4887  df-riota 5488

This theorem is referenced by: (None)