Theorem fin1a2lem12 8572

Description: Lemma for fin1a2 8576. (Contributed by Stefan O'Rear, 8-Nov-2014.) (Revised by Mario Carneiro, 17-May-2015.)

Assertion

Ref	Expression
fin1a2lem12	|- ( ( ( A C_ ~P B /\ [ C.] Or A /\ -. U. A e. A ) /\ ( A C_ Fin /\ A =/= (/) ) ) -> -. B e. FinIII )

Proof of Theorem fin1a2lem12

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

Step	Hyp	Ref	Expression
1		simpr 461	. . 3 |- ( ( ( ( A C_ ~P B /\ [ C.] Or A /\ -. U. A e. A ) /\ ( A C_ Fin /\ A =/= (/) ) ) /\ B e. FinIII ) -> B e. FinIII )
2		simpll1 1027	. . . . . . 7 |- ( ( ( ( A C_ ~P B /\ [ C.] Or A /\ -. U. A e. A ) /\ ( A C_ Fin /\ A =/= (/) ) ) /\ B e. FinIII ) -> A C_ ~P B )
3	2	adantr 465	. . . . . 6 |- ( ( ( ( ( A C_ ~P B /\ [ C.] Or A /\ -. U. A e. A ) /\ ( A C_ Fin /\ A =/= (/) ) ) /\ B e. FinIII ) /\ e e. om ) -> A C_ ~P B )
4		ssrab2 3430	. . . . . . . 8 |- { f e. A | f ~<_ e } C_ A
5	4	unissi 4107	. . . . . . 7 |- U. { f e. A | f ~<_ e } C_ U. A
6		sspwuni 4249	. . . . . . . 8 |- ( A C_ ~P B <-> U. A C_ B )
7	6	biimpi 194	. . . . . . 7 |- ( A C_ ~P B -> U. A C_ B )
8	5, 7	syl5ss 3360	. . . . . 6 |- ( A C_ ~P B -> U. { f e. A | f ~<_ e } C_ B )
9	3, 8	syl 16	. . . . 5 |- ( ( ( ( ( A C_ ~P B /\ [ C.] Or A /\ -. U. A e. A ) /\ ( A C_ Fin /\ A =/= (/) ) ) /\ B e. FinIII ) /\ e e. om ) -> U. { f e. A | f ~<_ e } C_ B )
10		elpw2g 4448	. . . . . 6 |- ( B e. FinIII -> ( U. { f e. A | f ~<_ e } e. ~P B <-> U. { f e. A | f ~<_ e } C_ B ) )
11	10	ad2antlr 726	. . . . 5 |- ( ( ( ( ( A C_ ~P B /\ [ C.] Or A /\ -. U. A e. A ) /\ ( A C_ Fin /\ A =/= (/) ) ) /\ B e. FinIII ) /\ e e. om ) -> ( U. { f e. A | f ~<_ e } e. ~P B <-> U. { f e. A | f ~<_ e } C_ B ) )
12	9, 11	mpbird 232	. . . 4 |- ( ( ( ( ( A C_ ~P B /\ [ C.] Or A /\ -. U. A e. A ) /\ ( A C_ Fin /\ A =/= (/) ) ) /\ B e. FinIII ) /\ e e. om ) -> U. { f e. A | f ~<_ e } e. ~P B )
13		eqid 2437	. . . 4 |- ( e e. om |-> U. { f e. A | f ~<_ e } ) = ( e e. om |-> U. { f e. A | f ~<_ e } )
14	12, 13	fmptd 5860	. . 3 |- ( ( ( ( A C_ ~P B /\ [ C.] Or A /\ -. U. A e. A ) /\ ( A C_ Fin /\ A =/= (/) ) ) /\ B e. FinIII ) -> ( e e. om |-> U. { f e. A | f ~<_ e } ) : om --> ~P B )
15		vex 2969	. . . . . . . . . . 11 |- d e. _V
16	15	sucex 6417	. . . . . . . . . 10 |- suc d e. _V
17		sssucid 4788	. . . . . . . . . 10 |- d C_ suc d
18		ssdomg 7347	. . . . . . . . . 10 |- ( suc d e. _V -> ( d C_ suc d -> d ~<_ suc d ) )
19	16, 17, 18	mp2 9	. . . . . . . . 9 |- d ~<_ suc d
20		domtr 7354	. . . . . . . . 9 |- ( ( f ~<_ d /\ d ~<_ suc d ) -> f ~<_ suc d )
21	19, 20	mpan2 671	. . . . . . . 8 |- ( f ~<_ d -> f ~<_ suc d )
22	21	a1i 11	. . . . . . 7 |- ( f e. A -> ( f ~<_ d -> f ~<_ suc d ) )
23	22	ss2rabi 3427	. . . . . 6 |- { f e. A | f ~<_ d } C_ { f e. A | f ~<_ suc d }
24		uniss 4105	. . . . . 6 |- ( { f e. A | f ~<_ d } C_ { f e. A | f ~<_ suc d } -> U. { f e. A | f ~<_ d } C_ U. { f e. A | f ~<_ suc d } )
25	23, 24	mp1i 12	. . . . 5 |- ( ( ( ( ( A C_ ~P B /\ [ C.] Or A /\ -. U. A e. A ) /\ ( A C_ Fin /\ A =/= (/) ) ) /\ B e. FinIII ) /\ d e. om ) -> U. { f e. A | f ~<_ d } C_ U. { f e. A | f ~<_ suc d } )
26		id 22	. . . . . 6 |- ( d e. om -> d e. om )
27		pwexg 4469	. . . . . . . . 9 |- ( B e. FinIII -> ~P B e. _V )
28	27	adantl 466	. . . . . . . 8 |- ( ( ( ( A C_ ~P B /\ [ C.] Or A /\ -. U. A e. A ) /\ ( A C_ Fin /\ A =/= (/) ) ) /\ B e. FinIII ) -> ~P B e. _V )
29	28, 2	ssexd 4432	. . . . . . 7 |- ( ( ( ( A C_ ~P B /\ [ C.] Or A /\ -. U. A e. A ) /\ ( A C_ Fin /\ A =/= (/) ) ) /\ B e. FinIII ) -> A e. _V )
30		rabexg 4435	. . . . . . 7 |- ( A e. _V -> { f e. A | f ~<_ d } e. _V )
31		uniexg 6372	. . . . . . 7 |- ( { f e. A | f ~<_ d } e. _V -> U. { f e. A | f ~<_ d } e. _V )
32	29, 30, 31	3syl 20	. . . . . 6 |- ( ( ( ( A C_ ~P B /\ [ C.] Or A /\ -. U. A e. A ) /\ ( A C_ Fin /\ A =/= (/) ) ) /\ B e. FinIII ) -> U. { f e. A | f ~<_ d } e. _V )
33		breq2 4289	. . . . . . . . 9 |- ( e = d -> ( f ~<_ e <-> f ~<_ d ) )
34	33	rabbidv 2958	. . . . . . . 8 |- ( e = d -> { f e. A | f ~<_ e } = { f e. A | f ~<_ d } )
35	34	unieqd 4094	. . . . . . 7 |- ( e = d -> U. { f e. A | f ~<_ e } = U. { f e. A | f ~<_ d } )
36	35, 13	fvmptg 5765	. . . . . 6 |- ( ( d e. om /\ U. { f e. A | f ~<_ d } e. _V ) -> ( ( e e. om |-> U. { f e. A | f ~<_ e } ) ` d ) = U. { f e. A | f ~<_ d } )
37	26, 32, 36	syl2anr 478	. . . . 5 |- ( ( ( ( ( A C_ ~P B /\ [ C.] Or A /\ -. U. A e. A ) /\ ( A C_ Fin /\ A =/= (/) ) ) /\ B e. FinIII ) /\ d e. om ) -> ( ( e e. om |-> U. { f e. A | f ~<_ e } ) ` d ) = U. { f e. A | f ~<_ d } )
38		peano2 6491	. . . . . 6 |- ( d e. om -> suc d e. om )
39		rabexg 4435	. . . . . . 7 |- ( A e. _V -> { f e. A | f ~<_ suc d } e. _V )
40		uniexg 6372	. . . . . . 7 |- ( { f e. A | f ~<_ suc d } e. _V -> U. { f e. A | f ~<_ suc d } e. _V )
41	29, 39, 40	3syl 20	. . . . . 6 |- ( ( ( ( A C_ ~P B /\ [ C.] Or A /\ -. U. A e. A ) /\ ( A C_ Fin /\ A =/= (/) ) ) /\ B e. FinIII ) -> U. { f e. A | f ~<_ suc d } e. _V )
42		breq2 4289	. . . . . . . . 9 |- ( e = suc d -> ( f ~<_ e <-> f ~<_ suc d ) )
43	42	rabbidv 2958	. . . . . . . 8 |- ( e = suc d -> { f e. A | f ~<_ e } = { f e. A | f ~<_ suc d } )
44	43	unieqd 4094	. . . . . . 7 |- ( e = suc d -> U. { f e. A | f ~<_ e } = U. { f e. A | f ~<_ suc d } )
45	44, 13	fvmptg 5765	. . . . . 6 |- ( ( suc d e. om /\ U. { f e. A | f ~<_ suc d } e. _V ) -> ( ( e e. om |-> U. { f e. A | f ~<_ e } ) ` suc d ) = U. { f e. A | f ~<_ suc d } )
46	38, 41, 45	syl2anr 478	. . . . 5 |- ( ( ( ( ( A C_ ~P B /\ [ C.] Or A /\ -. U. A e. A ) /\ ( A C_ Fin /\ A =/= (/) ) ) /\ B e. FinIII ) /\ d e. om ) -> ( ( e e. om |-> U. { f e. A | f ~<_ e } ) ` suc d ) = U. { f e. A | f ~<_ suc d } )
47	25, 37, 46	3sstr4d 3392	. . . 4 |- ( ( ( ( ( A C_ ~P B /\ [ C.] Or A /\ -. U. A e. A ) /\ ( A C_ Fin /\ A =/= (/) ) ) /\ B e. FinIII ) /\ d e. om ) -> ( ( e e. om |-> U. { f e. A | f ~<_ e } ) ` d ) C_ ( ( e e. om |-> U. { f e. A | f ~<_ e } ) ` suc d ) )
48	47	ralrimiva 2793	. . 3 |- ( ( ( ( A C_ ~P B /\ [ C.] Or A /\ -. U. A e. A ) /\ ( A C_ Fin /\ A =/= (/) ) ) /\ B e. FinIII ) -> A. d e. om ( ( e e. om |-> U. { f e. A | f ~<_ e } ) ` d ) C_ ( ( e e. om |-> U. { f e. A | f ~<_ e } ) ` suc d ) )
49		fin34i 8542	. . 3 |- ( ( B e. FinIII /\ ( e e. om |-> U. { f e. A | f ~<_ e } ) : om --> ~P B /\ A. d e. om ( ( e e. om |-> U. { f e. A | f ~<_ e } ) ` d ) C_ ( ( e e. om |-> U. { f e. A | f ~<_ e } ) ` suc d ) ) -> U. ran ( e e. om |-> U. { f e. A | f ~<_ e } ) e. ran ( e e. om |-> U. { f e. A | f ~<_ e } ) )
50	1, 14, 48, 49	syl3anc 1218	. 2 |- ( ( ( ( A C_ ~P B /\ [ C.] Or A /\ -. U. A e. A ) /\ ( A C_ Fin /\ A =/= (/) ) ) /\ B e. FinIII ) -> U. ran ( e e. om |-> U. { f e. A | f ~<_ e } ) e. ran ( e e. om |-> U. { f e. A | f ~<_ e } ) )
51		fin1a2lem11 8571	. . . . . 6 |- ( ( [ C.] Or A /\ A C_ Fin ) -> ran ( e e. om |-> U. { f e. A | f ~<_ e } ) = ( A u. { (/) } ) )
52	51	adantrr 716	. . . . 5 |- ( ( [ C.] Or A /\ ( A C_ Fin /\ A =/= (/) ) ) -> ran ( e e. om |-> U. { f e. A | f ~<_ e } ) = ( A u. { (/) } ) )
53	52	3ad2antl2 1151	. . . 4 |- ( ( ( A C_ ~P B /\ [ C.] Or A /\ -. U. A e. A ) /\ ( A C_ Fin /\ A =/= (/) ) ) -> ran ( e e. om |-> U. { f e. A | f ~<_ e } ) = ( A u. { (/) } ) )
54	53	adantr 465	. . 3 |- ( ( ( ( A C_ ~P B /\ [ C.] Or A /\ -. U. A e. A ) /\ ( A C_ Fin /\ A =/= (/) ) ) /\ B e. FinIII ) -> ran ( e e. om |-> U. { f e. A | f ~<_ e } ) = ( A u. { (/) } ) )
55		simpll3 1029	. . . . . 6 |- ( ( ( ( A C_ ~P B /\ [ C.] Or A /\ -. U. A e. A ) /\ ( A C_ Fin /\ A =/= (/) ) ) /\ B e. FinIII ) -> -. U. A e. A )
56		simplrr 760	. . . . . . 7 |- ( ( ( ( A C_ ~P B /\ [ C.] Or A /\ -. U. A e. A ) /\ ( A C_ Fin /\ A =/= (/) ) ) /\ B e. FinIII ) -> A =/= (/) )
57		sspwuni 4249	. . . . . . . . . . 11 |- ( A C_ ~P (/) <-> U. A C_ (/) )
58		ss0b 3660	. . . . . . . . . . 11 |- ( U. A C_ (/) <-> U. A = (/) )
59	57, 58	bitri 249	. . . . . . . . . 10 |- ( A C_ ~P (/) <-> U. A = (/) )
60		pw0 4013	. . . . . . . . . . . . 13 |- ~P (/) = { (/) }
61	60	sseq2i 3374	. . . . . . . . . . . 12 |- ( A C_ ~P (/) <-> A C_ { (/) } )
62		sssn 4024	. . . . . . . . . . . 12 |- ( A C_ { (/) } <-> ( A = (/) \/ A = { (/) } ) )
63	61, 62	bitri 249	. . . . . . . . . . 11 |- ( A C_ ~P (/) <-> ( A = (/) \/ A = { (/) } ) )
64		df-ne 2602	. . . . . . . . . . . 12 |- ( A =/= (/) <-> -. A = (/) )
65		0ex 4415	. . . . . . . . . . . . . . . . 17 |- (/) e. _V
66	65	unisn 4099	. . . . . . . . . . . . . . . 16 |- U. { (/) } = (/)
67	65	snid 3898	. . . . . . . . . . . . . . . 16 |- (/) e. { (/) }
68	66, 67	eqeltri 2507	. . . . . . . . . . . . . . 15 |- U. { (/) } e. { (/) }
69		unieq 4092	. . . . . . . . . . . . . . . 16 |- ( A = { (/) } -> U. A = U. { (/) } )
70		id 22	. . . . . . . . . . . . . . . 16 |- ( A = { (/) } -> A = { (/) } )
71	69, 70	eleq12d 2505	. . . . . . . . . . . . . . 15 |- ( A = { (/) } -> ( U. A e. A <-> U. { (/) } e. { (/) } ) )
72	68, 71	mpbiri 233	. . . . . . . . . . . . . 14 |- ( A = { (/) } -> U. A e. A )
73	72	orim2i 518	. . . . . . . . . . . . 13 |- ( ( A = (/) \/ A = { (/) } ) -> ( A = (/) \/ U. A e. A ) )
74	73	ord 377	. . . . . . . . . . . 12 |- ( ( A = (/) \/ A = { (/) } ) -> ( -. A = (/) -> U. A e. A ) )
75	64, 74	syl5bi 217	. . . . . . . . . . 11 |- ( ( A = (/) \/ A = { (/) } ) -> ( A =/= (/) -> U. A e. A ) )
76	63, 75	sylbi 195	. . . . . . . . . 10 |- ( A C_ ~P (/) -> ( A =/= (/) -> U. A e. A ) )
77	59, 76	sylbir 213	. . . . . . . . 9 |- ( U. A = (/) -> ( A =/= (/) -> U. A e. A ) )
78	77	com12 31	. . . . . . . 8 |- ( A =/= (/) -> ( U. A = (/) -> U. A e. A ) )
79	78	con3d 133	. . . . . . 7 |- ( A =/= (/) -> ( -. U. A e. A -> -. U. A = (/) ) )
80	56, 55, 79	sylc 60	. . . . . 6 |- ( ( ( ( A C_ ~P B /\ [ C.] Or A /\ -. U. A e. A ) /\ ( A C_ Fin /\ A =/= (/) ) ) /\ B e. FinIII ) -> -. U. A = (/) )
81		ioran 490	. . . . . 6 |- ( -. ( U. A e. A \/ U. A = (/) ) <-> ( -. U. A e. A /\ -. U. A = (/) ) )
82	55, 80, 81	sylanbrc 664	. . . . 5 |- ( ( ( ( A C_ ~P B /\ [ C.] Or A /\ -. U. A e. A ) /\ ( A C_ Fin /\ A =/= (/) ) ) /\ B e. FinIII ) -> -. ( U. A e. A \/ U. A = (/) ) )
83		uniun 4103	. . . . . . . 8 |- U. ( A u. { (/) } ) = ( U. A u. U. { (/) } )
84	66	uneq2i 3500	. . . . . . . 8 |- ( U. A u. U. { (/) } ) = ( U. A u. (/) )
85		un0 3655	. . . . . . . 8 |- ( U. A u. (/) ) = U. A
86	83, 84, 85	3eqtri 2461	. . . . . . 7 |- U. ( A u. { (/) } ) = U. A
87	86	eleq1i 2500	. . . . . 6 |- ( U. ( A u. { (/) } ) e. ( A u. { (/) } ) <-> U. A e. ( A u. { (/) } ) )
88		elun 3490	. . . . . 6 |- ( U. A e. ( A u. { (/) } ) <-> ( U. A e. A \/ U. A e. { (/) } ) )
89	65	elsnc2 3901	. . . . . . 7 |- ( U. A e. { (/) } <-> U. A = (/) )
90	89	orbi2i 519	. . . . . 6 |- ( ( U. A e. A \/ U. A e. { (/) } ) <-> ( U. A e. A \/ U. A = (/) ) )
91	87, 88, 90	3bitri 271	. . . . 5 |- ( U. ( A u. { (/) } ) e. ( A u. { (/) } ) <-> ( U. A e. A \/ U. A = (/) ) )
92	82, 91	sylnibr 305	. . . 4 |- ( ( ( ( A C_ ~P B /\ [ C.] Or A /\ -. U. A e. A ) /\ ( A C_ Fin /\ A =/= (/) ) ) /\ B e. FinIII ) -> -. U. ( A u. { (/) } ) e. ( A u. { (/) } ) )
93		unieq 4092	. . . . . 6 |- ( ran ( e e. om |-> U. { f e. A | f ~<_ e } ) = ( A u. { (/) } ) -> U. ran ( e e. om |-> U. { f e. A | f ~<_ e } ) = U. ( A u. { (/) } ) )
94		id 22	. . . . . 6 |- ( ran ( e e. om |-> U. { f e. A | f ~<_ e } ) = ( A u. { (/) } ) -> ran ( e e. om |-> U. { f e. A | f ~<_ e } ) = ( A u. { (/) } ) )
95	93, 94	eleq12d 2505	. . . . 5 |- ( ran ( e e. om |-> U. { f e. A | f ~<_ e } ) = ( A u. { (/) } ) -> ( U. ran ( e e. om |-> U. { f e. A | f ~<_ e } ) e. ran ( e e. om |-> U. { f e. A | f ~<_ e } ) <-> U. ( A u. { (/) } ) e. ( A u. { (/) } ) ) )
96	95	notbid 294	. . . 4 |- ( ran ( e e. om |-> U. { f e. A | f ~<_ e } ) = ( A u. { (/) } ) -> ( -. U. ran ( e e. om |-> U. { f e. A | f ~<_ e } ) e. ran ( e e. om |-> U. { f e. A | f ~<_ e } ) <-> -. U. ( A u. { (/) } ) e. ( A u. { (/) } ) ) )
97	92, 96	syl5ibrcom 222	. . 3 |- ( ( ( ( A C_ ~P B /\ [ C.] Or A /\ -. U. A e. A ) /\ ( A C_ Fin /\ A =/= (/) ) ) /\ B e. FinIII ) -> ( ran ( e e. om |-> U. { f e. A | f ~<_ e } ) = ( A u. { (/) } ) -> -. U. ran ( e e. om |-> U. { f e. A | f ~<_ e } ) e. ran ( e e. om |-> U. { f e. A | f ~<_ e } ) ) )
98	54, 97	mpd 15	. 2 |- ( ( ( ( A C_ ~P B /\ [ C.] Or A /\ -. U. A e. A ) /\ ( A C_ Fin /\ A =/= (/) ) ) /\ B e. FinIII ) -> -. U. ran ( e e. om |-> U. { f e. A | f ~<_ e } ) e. ran ( e e. om |-> U. { f e. A | f ~<_ e } ) )
99	50, 98	pm2.65da 576	1 |- ( ( ( A C_ ~P B /\ [ C.] Or A /\ -. U. A e. A ) /\ ( A C_ Fin /\ A =/= (/) ) ) -> -. B e. FinIII )

Syntax hints:   -. wn 3   -> wi 4   <-> wb 184   \/ wo 368   /\ wa 369   /\ w3a 965   = wceq 1369   e. wcel 1756   =/= wne 2600   A.wral 2709   {crab 2713   _Vcvv 2966   u. cun 3319   C_ wss 3321   (/)c0 3630   ~Pcpw 3853   {csn 3870   U.cuni 4084   class class class wbr 4285   e. cmpt 4343   Or wor 4632   suc csuc 4713   ran crn 4833   -->wf 5407   ` cfv 5411   [ C.] crpss 6354   omcom 6471   ~<_ cdom 7300   Fincfn 7302  Fin^IIIcfin3 8442

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1591  ax-4 1602  ax-5 1670  ax-6 1708  ax-7 1728  ax-8 1758  ax-9 1760  ax-10 1775  ax-11 1780  ax-12 1792  ax-13 1943  ax-ext 2418  ax-rep 4396  ax-sep 4406  ax-nul 4414  ax-pow 4463  ax-pr 4524  ax-un 6367

This theorem depends on definitions:  df-bi 185  df-or 370  df-an 371  df-3or 966  df-3an 967  df-tru 1372  df-ex 1587  df-nf 1590  df-sb 1701  df-eu 2256  df-mo 2257  df-clab 2424  df-cleq 2430  df-clel 2433  df-nfc 2562  df-ne 2602  df-ral 2714  df-rex 2715  df-reu 2716  df-rmo 2717  df-rab 2718  df-v 2968  df-sbc 3180  df-csb 3282  df-dif 3324  df-un 3326  df-in 3328  df-ss 3335  df-pss 3337  df-nul 3631  df-if 3785  df-pw 3855  df-sn 3871  df-pr 3873  df-tp 3875  df-op 3877  df-uni 4085  df-int 4122  df-iun 4166  df-br 4286  df-opab 4344  df-mpt 4345  df-tr 4379  df-eprel 4624  df-id 4628  df-po 4633  df-so 4634  df-fr 4671  df-se 4672  df-we 4673  df-ord 4714  df-on 4715  df-lim 4716  df-suc 4717  df-xp 4838  df-rel 4839  df-cnv 4840  df-co 4841  df-dm 4842  df-rn 4843  df-res 4844  df-ima 4845  df-iota 5374  df-fun 5413  df-fn 5414  df-f 5415  df-f1 5416  df-fo 5417  df-f1o 5418  df-fv 5419  df-isom 5420  df-riota 6045  df-rpss 6355  df-om 6472  df-recs 6824  df-rdg 6858  df-1o 6912  df-er 7093  df-en 7303  df-dom 7304  df-sdom 7305  df-fin 7306  df-wdom 7766  df-card 8101  df-fin4 8448  df-fin3 8449

This theorem is referenced by:  fin1a2s  8575