Theorem acexmidlemcase 6045

Description: Lemma for acexmid 6049. Here we divide the proof into cases (based on the disjunction implicit in an unordered pair, not the sort of case elimination which relies on excluded middle).

The cases are (1) the choice function evaluated at A equals { (/) }, (2) the choice function evaluated at B equals (/), and (3) the choice function evaluated at A equals (/) and the choice function evaluated at B equals { (/) }.

Because of the way we represent the choice function y, the choice function evaluated at A is ( iota_ v e. A E. u e. y ( A e. u /\ v e. u ) ) and the choice function evaluated at B is ( iota_ v e. B E. u e. y ( B e. u /\ v e. u ) ). Other than the difference in notation these work just as ( y ` A ) and ( y ` B ) would if y were a function as defined by df-fun 5354.

Although it isn't exactly about the division into cases, it is also convenient for this lemma to also include the step that if the choice function evaluated at A equals { (/) }, then { (/) } e. A and likewise for B.

(Contributed by Jim Kingdon, 7-Aug-2019.)

Hypotheses

Ref	Expression
acexmidlem.a	|- A = { x e. { (/) , { (/) } } | ( x = (/) \/ ph ) }
acexmidlem.b	|- B = { x e. { (/) , { (/) } } | ( x = { (/) } \/ ph ) }
acexmidlem.c	|- C = { A , B }

Assertion

Ref	Expression
acexmidlemcase	|- ( A. z e. C E! v e. z E. u e. y ( z e. u /\ v e. u ) -> ( { (/) } e. A \/ (/) e. B \/ ( ( iota_ v e. A E. u e. y ( A e. u /\ v e. u ) ) = (/) /\ ( iota_ v e. B E. u e. y ( B e. u /\ v e. u ) ) = { (/) } ) ) )

Distinct variable groups:   x, y, z, v, u, A   x, B, y, z, v, u   x, C, y, z, v, u   ph, x, y, z, v, u

Proof of Theorem acexmidlemcase

Step	Hyp	Ref	Expression
1		acexmidlem.a	. . . . . . . . . . . . . 14 |- A = { x e. { (/) , { (/) } } | ( x = (/) \/ ph ) }
2		onsucelsucexmidlem 4651	. . . . . . . . . . . . . 14 |- { x e. { (/) , { (/) } } | ( x = (/) \/ ph ) } e. On
3	1, 2	eqeltri 2305	. . . . . . . . . . . . 13 |- A e. On
4		prid1g 3795	. . . . . . . . . . . . 13 |- ( A e. On -> A e. { A , B } )
5	3, 4	ax-mp 5	. . . . . . . . . . . 12 |- A e. { A , B }
6		acexmidlem.c	. . . . . . . . . . . 12 |- C = { A , B }
7	5, 6	eleqtrri 2308	. . . . . . . . . . 11 |- A e. C
8		eleq1 2295	. . . . . . . . . . . . . . 15 |- ( z = A -> ( z e. u <-> A e. u ) )
9	8	anbi1d 465	. . . . . . . . . . . . . 14 |- ( z = A -> ( ( z e. u /\ v e. u ) <-> ( A e. u /\ v e. u ) ) )
10	9	rexbidv 2543	. . . . . . . . . . . . 13 |- ( z = A -> ( E. u e. y ( z e. u /\ v e. u ) <-> E. u e. y ( A e. u /\ v e. u ) ) )
11	10	reueqd 2755	. . . . . . . . . . . 12 |- ( z = A -> ( E! v e. z E. u e. y ( z e. u /\ v e. u ) <-> E! v e. A E. u e. y ( A e. u /\ v e. u ) ) )
12	11	rspcv 2917	. . . . . . . . . . 11 |- ( A e. C -> ( A. z e. C E! v e. z E. u e. y ( z e. u /\ v e. u ) -> E! v e. A E. u e. y ( A e. u /\ v e. u ) ) )
13	7, 12	ax-mp 5	. . . . . . . . . 10 |- ( A. z e. C E! v e. z E. u e. y ( z e. u /\ v e. u ) -> E! v e. A E. u e. y ( A e. u /\ v e. u ) )
14		riotacl 6019	. . . . . . . . . 10 |- ( E! v e. A E. u e. y ( A e. u /\ v e. u ) -> ( iota_ v e. A E. u e. y ( A e. u /\ v e. u ) ) e. A )
15	13, 14	syl 14	. . . . . . . . 9 |- ( A. z e. C E! v e. z E. u e. y ( z e. u /\ v e. u ) -> ( iota_ v e. A E. u e. y ( A e. u /\ v e. u ) ) e. A )
16		elrabi 2970	. . . . . . . . . 10 |- ( ( iota_ v e. A E. u e. y ( A e. u /\ v e. u ) ) e. { x e. { (/) , { (/) } } | ( x = (/) \/ ph ) } -> ( iota_ v e. A E. u e. y ( A e. u /\ v e. u ) ) e. { (/) , { (/) } } )
17	16, 1	eleq2s 2327	. . . . . . . . 9 |- ( ( iota_ v e. A E. u e. y ( A e. u /\ v e. u ) ) e. A -> ( iota_ v e. A E. u e. y ( A e. u /\ v e. u ) ) e. { (/) , { (/) } } )
18		elpri 3712	. . . . . . . . 9 |- ( ( iota_ v e. A E. u e. y ( A e. u /\ v e. u ) ) e. { (/) , { (/) } } -> ( ( iota_ v e. A E. u e. y ( A e. u /\ v e. u ) ) = (/) \/ ( iota_ v e. A E. u e. y ( A e. u /\ v e. u ) ) = { (/) } ) )
19	15, 17, 18	3syl 17	. . . . . . . 8 |- ( A. z e. C E! v e. z E. u e. y ( z e. u /\ v e. u ) -> ( ( iota_ v e. A E. u e. y ( A e. u /\ v e. u ) ) = (/) \/ ( iota_ v e. A E. u e. y ( A e. u /\ v e. u ) ) = { (/) } ) )
20		eleq1 2295	. . . . . . . . . 10 |- ( ( iota_ v e. A E. u e. y ( A e. u /\ v e. u ) ) = { (/) } -> ( ( iota_ v e. A E. u e. y ( A e. u /\ v e. u ) ) e. A <-> { (/) } e. A ) )
21	15, 20	syl5ibcom 155	. . . . . . . . 9 |- ( A. z e. C E! v e. z E. u e. y ( z e. u /\ v e. u ) -> ( ( iota_ v e. A E. u e. y ( A e. u /\ v e. u ) ) = { (/) } -> { (/) } e. A ) )
22	21	orim2d 796	. . . . . . . 8 |- ( A. z e. C E! v e. z E. u e. y ( z e. u /\ v e. u ) -> ( ( ( iota_ v e. A E. u e. y ( A e. u /\ v e. u ) ) = (/) \/ ( iota_ v e. A E. u e. y ( A e. u /\ v e. u ) ) = { (/) } ) -> ( ( iota_ v e. A E. u e. y ( A e. u /\ v e. u ) ) = (/) \/ { (/) } e. A ) ) )
23	19, 22	mpd 13	. . . . . . 7 |- ( A. z e. C E! v e. z E. u e. y ( z e. u /\ v e. u ) -> ( ( iota_ v e. A E. u e. y ( A e. u /\ v e. u ) ) = (/) \/ { (/) } e. A ) )
24		acexmidlem.b	. . . . . . . . . . . . . 14 |- B = { x e. { (/) , { (/) } } | ( x = { (/) } \/ ph ) }
25		pp0ex 4302	. . . . . . . . . . . . . . 15 |- { (/) , { (/) } } e. _V
26	25	rabex 4256	. . . . . . . . . . . . . 14 |- { x e. { (/) , { (/) } } | ( x = { (/) } \/ ph ) } e. _V
27	24, 26	eqeltri 2305	. . . . . . . . . . . . 13 |- B e. _V
28	27	prid2 3798	. . . . . . . . . . . 12 |- B e. { A , B }
29	28, 6	eleqtrri 2308	. . . . . . . . . . 11 |- B e. C
30		eleq1 2295	. . . . . . . . . . . . . . 15 |- ( z = B -> ( z e. u <-> B e. u ) )
31	30	anbi1d 465	. . . . . . . . . . . . . 14 |- ( z = B -> ( ( z e. u /\ v e. u ) <-> ( B e. u /\ v e. u ) ) )
32	31	rexbidv 2543	. . . . . . . . . . . . 13 |- ( z = B -> ( E. u e. y ( z e. u /\ v e. u ) <-> E. u e. y ( B e. u /\ v e. u ) ) )
33	32	reueqd 2755	. . . . . . . . . . . 12 |- ( z = B -> ( E! v e. z E. u e. y ( z e. u /\ v e. u ) <-> E! v e. B E. u e. y ( B e. u /\ v e. u ) ) )
34	33	rspcv 2917	. . . . . . . . . . 11 |- ( B e. C -> ( A. z e. C E! v e. z E. u e. y ( z e. u /\ v e. u ) -> E! v e. B E. u e. y ( B e. u /\ v e. u ) ) )
35	29, 34	ax-mp 5	. . . . . . . . . 10 |- ( A. z e. C E! v e. z E. u e. y ( z e. u /\ v e. u ) -> E! v e. B E. u e. y ( B e. u /\ v e. u ) )
36		riotacl 6019	. . . . . . . . . 10 |- ( E! v e. B E. u e. y ( B e. u /\ v e. u ) -> ( iota_ v e. B E. u e. y ( B e. u /\ v e. u ) ) e. B )
37	35, 36	syl 14	. . . . . . . . 9 |- ( A. z e. C E! v e. z E. u e. y ( z e. u /\ v e. u ) -> ( iota_ v e. B E. u e. y ( B e. u /\ v e. u ) ) e. B )
38		elrabi 2970	. . . . . . . . . 10 |- ( ( iota_ v e. B E. u e. y ( B e. u /\ v e. u ) ) e. { x e. { (/) , { (/) } } | ( x = { (/) } \/ ph ) } -> ( iota_ v e. B E. u e. y ( B e. u /\ v e. u ) ) e. { (/) , { (/) } } )
39	38, 24	eleq2s 2327	. . . . . . . . 9 |- ( ( iota_ v e. B E. u e. y ( B e. u /\ v e. u ) ) e. B -> ( iota_ v e. B E. u e. y ( B e. u /\ v e. u ) ) e. { (/) , { (/) } } )
40		elpri 3712	. . . . . . . . 9 |- ( ( iota_ v e. B E. u e. y ( B e. u /\ v e. u ) ) e. { (/) , { (/) } } -> ( ( iota_ v e. B E. u e. y ( B e. u /\ v e. u ) ) = (/) \/ ( iota_ v e. B E. u e. y ( B e. u /\ v e. u ) ) = { (/) } ) )
41	37, 39, 40	3syl 17	. . . . . . . 8 |- ( A. z e. C E! v e. z E. u e. y ( z e. u /\ v e. u ) -> ( ( iota_ v e. B E. u e. y ( B e. u /\ v e. u ) ) = (/) \/ ( iota_ v e. B E. u e. y ( B e. u /\ v e. u ) ) = { (/) } ) )
42		eleq1 2295	. . . . . . . . . 10 |- ( ( iota_ v e. B E. u e. y ( B e. u /\ v e. u ) ) = (/) -> ( ( iota_ v e. B E. u e. y ( B e. u /\ v e. u ) ) e. B <-> (/) e. B ) )
43	37, 42	syl5ibcom 155	. . . . . . . . 9 |- ( A. z e. C E! v e. z E. u e. y ( z e. u /\ v e. u ) -> ( ( iota_ v e. B E. u e. y ( B e. u /\ v e. u ) ) = (/) -> (/) e. B ) )
44	43	orim1d 795	. . . . . . . 8 |- ( A. z e. C E! v e. z E. u e. y ( z e. u /\ v e. u ) -> ( ( ( iota_ v e. B E. u e. y ( B e. u /\ v e. u ) ) = (/) \/ ( iota_ v e. B E. u e. y ( B e. u /\ v e. u ) ) = { (/) } ) -> ( (/) e. B \/ ( iota_ v e. B E. u e. y ( B e. u /\ v e. u ) ) = { (/) } ) ) )
45	41, 44	mpd 13	. . . . . . 7 |- ( A. z e. C E! v e. z E. u e. y ( z e. u /\ v e. u ) -> ( (/) e. B \/ ( iota_ v e. B E. u e. y ( B e. u /\ v e. u ) ) = { (/) } ) )
46	23, 45	jca 306	. . . . . 6 |- ( A. z e. C E! v e. z E. u e. y ( z e. u /\ v e. u ) -> ( ( ( iota_ v e. A E. u e. y ( A e. u /\ v e. u ) ) = (/) \/ { (/) } e. A ) /\ ( (/) e. B \/ ( iota_ v e. B E. u e. y ( B e. u /\ v e. u ) ) = { (/) } ) ) )
47		anddi 829	. . . . . 6 |- ( ( ( ( iota_ v e. A E. u e. y ( A e. u /\ v e. u ) ) = (/) \/ { (/) } e. A ) /\ ( (/) e. B \/ ( iota_ v e. B E. u e. y ( B e. u /\ v e. u ) ) = { (/) } ) ) <-> ( ( ( ( iota_ v e. A E. u e. y ( A e. u /\ v e. u ) ) = (/) /\ (/) e. B ) \/ ( ( iota_ v e. A E. u e. y ( A e. u /\ v e. u ) ) = (/) /\ ( iota_ v e. B E. u e. y ( B e. u /\ v e. u ) ) = { (/) } ) ) \/ ( ( { (/) } e. A /\ (/) e. B ) \/ ( { (/) } e. A /\ ( iota_ v e. B E. u e. y ( B e. u /\ v e. u ) ) = { (/) } ) ) ) )
48	46, 47	sylib 122	. . . . 5 |- ( A. z e. C E! v e. z E. u e. y ( z e. u /\ v e. u ) -> ( ( ( ( iota_ v e. A E. u e. y ( A e. u /\ v e. u ) ) = (/) /\ (/) e. B ) \/ ( ( iota_ v e. A E. u e. y ( A e. u /\ v e. u ) ) = (/) /\ ( iota_ v e. B E. u e. y ( B e. u /\ v e. u ) ) = { (/) } ) ) \/ ( ( { (/) } e. A /\ (/) e. B ) \/ ( { (/) } e. A /\ ( iota_ v e. B E. u e. y ( B e. u /\ v e. u ) ) = { (/) } ) ) ) )
49		simpl 109	. . . . . . 7 |- ( ( { (/) } e. A /\ (/) e. B ) -> { (/) } e. A )
50		simpl 109	. . . . . . 7 |- ( ( { (/) } e. A /\ ( iota_ v e. B E. u e. y ( B e. u /\ v e. u ) ) = { (/) } ) -> { (/) } e. A )
51	49, 50	jaoi 724	. . . . . 6 |- ( ( ( { (/) } e. A /\ (/) e. B ) \/ ( { (/) } e. A /\ ( iota_ v e. B E. u e. y ( B e. u /\ v e. u ) ) = { (/) } ) ) -> { (/) } e. A )
52	51	orim2i 769	. . . . 5 |- ( ( ( ( ( iota_ v e. A E. u e. y ( A e. u /\ v e. u ) ) = (/) /\ (/) e. B ) \/ ( ( iota_ v e. A E. u e. y ( A e. u /\ v e. u ) ) = (/) /\ ( iota_ v e. B E. u e. y ( B e. u /\ v e. u ) ) = { (/) } ) ) \/ ( ( { (/) } e. A /\ (/) e. B ) \/ ( { (/) } e. A /\ ( iota_ v e. B E. u e. y ( B e. u /\ v e. u ) ) = { (/) } ) ) ) -> ( ( ( ( iota_ v e. A E. u e. y ( A e. u /\ v e. u ) ) = (/) /\ (/) e. B ) \/ ( ( iota_ v e. A E. u e. y ( A e. u /\ v e. u ) ) = (/) /\ ( iota_ v e. B E. u e. y ( B e. u /\ v e. u ) ) = { (/) } ) ) \/ { (/) } e. A ) )
53	48, 52	syl 14	. . . 4 |- ( A. z e. C E! v e. z E. u e. y ( z e. u /\ v e. u ) -> ( ( ( ( iota_ v e. A E. u e. y ( A e. u /\ v e. u ) ) = (/) /\ (/) e. B ) \/ ( ( iota_ v e. A E. u e. y ( A e. u /\ v e. u ) ) = (/) /\ ( iota_ v e. B E. u e. y ( B e. u /\ v e. u ) ) = { (/) } ) ) \/ { (/) } e. A ) )
54	53	orcomd 737	. . 3 |- ( A. z e. C E! v e. z E. u e. y ( z e. u /\ v e. u ) -> ( { (/) } e. A \/ ( ( ( iota_ v e. A E. u e. y ( A e. u /\ v e. u ) ) = (/) /\ (/) e. B ) \/ ( ( iota_ v e. A E. u e. y ( A e. u /\ v e. u ) ) = (/) /\ ( iota_ v e. B E. u e. y ( B e. u /\ v e. u ) ) = { (/) } ) ) ) )
55		simpr 110	. . . . 5 |- ( ( ( iota_ v e. A E. u e. y ( A e. u /\ v e. u ) ) = (/) /\ (/) e. B ) -> (/) e. B )
56	55	orim1i 768	. . . 4 |- ( ( ( ( iota_ v e. A E. u e. y ( A e. u /\ v e. u ) ) = (/) /\ (/) e. B ) \/ ( ( iota_ v e. A E. u e. y ( A e. u /\ v e. u ) ) = (/) /\ ( iota_ v e. B E. u e. y ( B e. u /\ v e. u ) ) = { (/) } ) ) -> ( (/) e. B \/ ( ( iota_ v e. A E. u e. y ( A e. u /\ v e. u ) ) = (/) /\ ( iota_ v e. B E. u e. y ( B e. u /\ v e. u ) ) = { (/) } ) ) )
57	56	orim2i 769	. . 3 |- ( ( { (/) } e. A \/ ( ( ( iota_ v e. A E. u e. y ( A e. u /\ v e. u ) ) = (/) /\ (/) e. B ) \/ ( ( iota_ v e. A E. u e. y ( A e. u /\ v e. u ) ) = (/) /\ ( iota_ v e. B E. u e. y ( B e. u /\ v e. u ) ) = { (/) } ) ) ) -> ( { (/) } e. A \/ ( (/) e. B \/ ( ( iota_ v e. A E. u e. y ( A e. u /\ v e. u ) ) = (/) /\ ( iota_ v e. B E. u e. y ( B e. u /\ v e. u ) ) = { (/) } ) ) ) )
58	54, 57	syl 14	. 2 |- ( A. z e. C E! v e. z E. u e. y ( z e. u /\ v e. u ) -> ( { (/) } e. A \/ ( (/) e. B \/ ( ( iota_ v e. A E. u e. y ( A e. u /\ v e. u ) ) = (/) /\ ( iota_ v e. B E. u e. y ( B e. u /\ v e. u ) ) = { (/) } ) ) ) )
59		3orass 1008	. 2 |- ( ( { (/) } e. A \/ (/) e. B \/ ( ( iota_ v e. A E. u e. y ( A e. u /\ v e. u ) ) = (/) /\ ( iota_ v e. B E. u e. y ( B e. u /\ v e. u ) ) = { (/) } ) ) <-> ( { (/) } e. A \/ ( (/) e. B \/ ( ( iota_ v e. A E. u e. y ( A e. u /\ v e. u ) ) = (/) /\ ( iota_ v e. B E. u e. y ( B e. u /\ v e. u ) ) = { (/) } ) ) ) )
60	58, 59	sylibr 134	1 |- ( A. z e. C E! v e. z E. u e. y ( z e. u /\ v e. u ) -> ( { (/) } e. A \/ (/) e. B \/ ( ( iota_ v e. A E. u e. y ( A e. u /\ v e. u ) ) = (/) /\ ( iota_ v e. B E. u e. y ( B e. u /\ v e. u ) ) = { (/) } ) ) )

Syntax hints:   -> wi 4   /\ wa 104   \/ wo 716   \/ w3o 1004   = wceq 1398   e. wcel 2203   A.wral 2520   E.wrex 2521   E!wreu 2522   {crab 2524   _Vcvv 2813   (/)c0 3508   {csn 3689   {cpr 3690   Oncon0 4484   iota_crio 6002

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 619  ax-in2 620  ax-io 717  ax-5 1496  ax-7 1497  ax-gen 1498  ax-ie1 1542  ax-ie2 1543  ax-8 1553  ax-10 1554  ax-11 1555  ax-i12 1556  ax-bndl 1558  ax-4 1559  ax-17 1575  ax-i9 1579  ax-ial 1583  ax-i5r 1584  ax-14 2206  ax-ext 2214  ax-sep 4228  ax-nul 4236  ax-pow 4287

This theorem depends on definitions:  df-bi 117  df-3or 1006  df-3an 1007  df-tru 1401  df-nf 1510  df-sb 1812  df-eu 2083  df-clab 2219  df-cleq 2225  df-clel 2228  df-nfc 2373  df-ral 2525  df-rex 2526  df-reu 2527  df-rab 2529  df-v 2815  df-sbc 3043  df-dif 3213  df-un 3215  df-in 3217  df-ss 3224  df-nul 3509  df-pw 3671  df-sn 3695  df-pr 3696  df-uni 3915  df-tr 4209  df-iord 4487  df-on 4489  df-suc 4492  df-iota 5312  df-riota 6003

This theorem is referenced by:  acexmidlem1  6046