Theorem acexmidlemcase 6044

Description: Lemma for acexmid 6048. 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 5353.

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 4650	. . . . . . . . . . . . . 14 |- { x e. { (/) , { (/) } } | ( x = (/) \/ ph ) } e. On
3	1, 2	eqeltri 2305	. . . . . . . . . . . . 13 |- A e. On
4		prid1g 3794	. . . . . . . . . . . . 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 2754	. . . . . . . . . . . 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 2916	. . . . . . . . . . 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 6018	. . . . . . . . . 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 2969	. . . . . . . . . 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 3711	. . . . . . . . 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 4301	. . . . . . . . . . . . . . 15 |- { (/) , { (/) } } e. _V
26	25	rabex 4255	. . . . . . . . . . . . . 14 |- { x e. { (/) , { (/) } } | ( x = { (/) } \/ ph ) } e. _V
27	24, 26	eqeltri 2305	. . . . . . . . . . . . 13 |- B e. _V
28	27	prid2 3797	. . . . . . . . . . . 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 2754	. . . . . . . . . . . 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 2916	. . . . . . . . . . 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 6018	. . . . . . . . . 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 2969	. . . . . . . . . 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 3711	. . . . . . . . 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 2812   (/)c0 3507   {csn 3688   {cpr 3689   Oncon0 4483   iota_crio 6001

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 4227  ax-nul 4235  ax-pow 4286

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 2814  df-sbc 3042  df-dif 3212  df-un 3214  df-in 3216  df-ss 3223  df-nul 3508  df-pw 3670  df-sn 3694  df-pr 3695  df-uni 3914  df-tr 4208  df-iord 4486  df-on 4488  df-suc 4491  df-iota 5311  df-riota 6002

This theorem is referenced by:  acexmidlem1  6045