Theorem acexmid 5454

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.yA.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 1418	. . . . . . . . . . . . . 14 |- F/v(f e. c /\ E. e e. b ( c e. e /\ f e. e))
2	1	sb8eu 1910	. . . . . . . . . . . . 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 2099	. . . . . . . . . . . . . . . . . . . 20 |- ((f = v /\ c = z) -> (f e. c <-> v e. z))
4	3	ancoms 255	. . . . . . . . . . . . . . . . . . 19 |- (( c = z /\ f = v) -> (f e. c <-> v e. z))
5	4	3adant3 923	. . . . . . . . . . . . . . . . . 18 |- (( c = z /\ f = v /\ b = y) -> (f e. c <-> v e. z))
6		eleq12 2099	. . . . . . . . . . . . . . . . . . . . 21 |- (( c = z /\ e = u) -> ( c e. e <-> z e. u))
7	6	3ad2antl1 1065	. . . . . . . . . . . . . . . . . . . 20 |- ((( c = z /\ f = v /\ b = y) /\ e = u) -> ( c e. e <-> z e. u))
8		eleq12 2099	. . . . . . . . . . . . . . . . . . . . 21 |- ((f = v /\ e = u) -> (f e. e <-> v e. u))
9	8	3ad2antl2 1066	. . . . . . . . . . . . . . . . . . . 20 |- ((( c = z /\ f = v /\ b = y) /\ e = u) -> (f e. e <-> v e. u))
10	7, 9	anbi12d 442	. . . . . . . . . . . . . . . . . . 19 |- ((( c = z /\ f = v /\ b = y) /\ e = u) -> (( c e. e /\ f e. e) <-> (z e. u /\ v e. u)))
11		simpl3 908	. . . . . . . . . . . . . . . . . . 19 |- ((( c = z /\ f = v /\ b = y) /\ e = u) -> b = y)
12	10, 11	cbvrexdva2 2532	. . . . . . . . . . . . . . . . . 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 442	. . . . . . . . . . . . . . . . 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 1109	. . . . . . . . . . . . . . . 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 1103	. . . . . . . . . . . . . . 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 1669	. . . . . . . . . . . . . 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 1905	. . . . . . . . . . . . 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 181	. . . . . . . . . . . 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 2307	. . . . . . . . . . . 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 2307	. . . . . . . . . . . 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 212	. . . . . . . . . . 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 261	. . . . . . . . . 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 481	. . . . . . . . . 10 |- ((( c = z /\ b = y) /\ d = w) -> c = z)
24	22, 23	cbvraldva2 2531	. . . . . . . . 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 255	. . . . . . . 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 445	. . . . . . 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 481	. . . . . . 7 |- ((( a = x /\ b = y) /\ c = z) -> a = x)
28	26, 27	cbvraldva2 2531	. . . . . 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 1801	. . . . 5 |- ( a = x -> (E. bA. c e. a A. d e. c E!f e. c E. e e. b ( c e. e /\ f e. e) <-> E.yA.z e. x A.w e. z E!v e. z E.u e. y (z e. u /\ v e. u)))
30	29	cbvalv 1791	. . . 4 |- (A. aE. bA. c e. a A. d e. c E!f e. c E. e e. b ( c e. e /\ f e. e) <-> A.xE.yA.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.yA.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 1339	. . 3 |- A. aE. bA. c e. a A. d e. c E!f e. c E. e e. b ( c e. e /\ f e. e)
33	32	spi 1426	. 2 |- E. bA. c e. a A. d e. c E!f e. c E. e e. b ( c e. e /\ f e. e)
34	33	acexmidlemv 5453	1 |- (ph \/ -. ph)

Syntax hints:  -. wn 3   /\ wa 97   <-> wb 98   \/ wo 628   /\ w3a 884  A.wal 1240  E.wex 1378  [wsb 1642  E!weu 1897  A.wral 2300  E.wrex 2301  E!wreu 2302

This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-mp 7  ax-ia1 99  ax-ia2 100  ax-ia3 101  ax-in1 544  ax-in2 545  ax-io 629  ax-5 1333  ax-7 1334  ax-gen 1335  ax-ie1 1379  ax-ie2 1380  ax-8 1392  ax-10 1393  ax-11 1394  ax-i12 1395  ax-bndl 1396  ax-4 1397  ax-14 1402  ax-17 1416  ax-i9 1420  ax-ial 1424  ax-i5r 1425  ax-ext 2019  ax-sep 3866  ax-nul 3874  ax-pow 3918  ax-pr 3935

This theorem depends on definitions:  df-bi 110  df-3or 885  df-3an 886  df-tru 1245  df-nf 1347  df-sb 1643  df-eu 1900  df-clab 2024  df-cleq 2030  df-clel 2033  df-nfc 2164  df-ral 2305  df-rex 2306  df-reu 2307  df-rab 2309  df-v 2553  df-sbc 2759  df-dif 2914  df-un 2916  df-in 2918  df-ss 2925  df-nul 3219  df-pw 3353  df-sn 3373  df-pr 3374  df-uni 3572  df-tr 3846  df-iord 4069  df-on 4071  df-suc 4074  df-iota 4810  df-riota 5411

This theorem is referenced by: (None)