Theorem fin1a2lem12 8782

Description: Lemma for fin1a2 8786. (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 459	. . 3 |- ( ( ( ( A C_ ~P B /\ [ C.] Or A /\ -. U. A e. A ) /\ ( A C_ Fin /\ A =/= (/) ) ) /\ B e. FinIII ) -> B e. FinIII )
2		simpll1 1033	. . . . . . 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 463	. . . . . 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 3571	. . . . . . . 8 |- { f e. A | f ~<_ e } C_ A
5	4	unissi 4258	. . . . . . 7 |- U. { f e. A | f ~<_ e } C_ U. A
6		sspwuni 4404	. . . . . . . 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 3500	. . . . . 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 4600	. . . . . 6 |- ( B e. FinIII -> ( U. { f e. A | f ~<_ e } e. ~P B <-> U. { f e. A | f ~<_ e } C_ B ) )
11	10	ad2antlr 724	. . . . 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 2454	. . . 4 |- ( e e. om |-> U. { f e. A | f ~<_ e } ) = ( e e. om |-> U. { f e. A | f ~<_ e } )
14	12, 13	fmptd 6031	. . 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 3109	. . . . . . . . . . 11 |- d e. _V
16	15	sucex 6619	. . . . . . . . . 10 |- suc d e. _V
17		sssucid 4944	. . . . . . . . . 10 |- d C_ suc d
18		ssdomg 7554	. . . . . . . . . 10 |- ( suc d e. _V -> ( d C_ suc d -> d ~<_ suc d ) )
19	16, 17, 18	mp2 9	. . . . . . . . 9 |- d ~<_ suc d
20		domtr 7561	. . . . . . . . 9 |- ( ( f ~<_ d /\ d ~<_ suc d ) -> f ~<_ suc d )
21	19, 20	mpan2 669	. . . . . . . 8 |- ( f ~<_ d -> f ~<_ suc d )
22	21	a1i 11	. . . . . . 7 |- ( f e. A -> ( f ~<_ d -> f ~<_ suc d ) )
23	22	ss2rabi 3568	. . . . . 6 |- { f e. A | f ~<_ d } C_ { f e. A | f ~<_ suc d }
24		uniss 4256	. . . . . 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 4621	. . . . . . . . 9 |- ( B e. FinIII -> ~P B e. _V )
28	27	adantl 464	. . . . . . . 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 4584	. . . . . . 7 |- ( ( ( ( A C_ ~P B /\ [ C.] Or A /\ -. U. A e. A ) /\ ( A C_ Fin /\ A =/= (/) ) ) /\ B e. FinIII ) -> A e. _V )
30		rabexg 4587	. . . . . . 7 |- ( A e. _V -> { f e. A | f ~<_ d } e. _V )
31		uniexg 6570	. . . . . . 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 4443	. . . . . . . . 9 |- ( e = d -> ( f ~<_ e <-> f ~<_ d ) )
34	33	rabbidv 3098	. . . . . . . 8 |- ( e = d -> { f e. A | f ~<_ e } = { f e. A | f ~<_ d } )
35	34	unieqd 4245	. . . . . . 7 |- ( e = d -> U. { f e. A | f ~<_ e } = U. { f e. A | f ~<_ d } )
36	35, 13	fvmptg 5929	. . . . . 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 476	. . . . 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 6693	. . . . . 6 |- ( d e. om -> suc d e. om )
39		rabexg 4587	. . . . . . 7 |- ( A e. _V -> { f e. A | f ~<_ suc d } e. _V )
40		uniexg 6570	. . . . . . 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 4443	. . . . . . . . 9 |- ( e = suc d -> ( f ~<_ e <-> f ~<_ suc d ) )
43	42	rabbidv 3098	. . . . . . . 8 |- ( e = suc d -> { f e. A | f ~<_ e } = { f e. A | f ~<_ suc d } )
44	43	unieqd 4245	. . . . . . 7 |- ( e = suc d -> U. { f e. A | f ~<_ e } = U. { f e. A | f ~<_ suc d } )
45	44, 13	fvmptg 5929	. . . . . 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 476	. . . . 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 3532	. . . 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 2868	. . 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 8752	. . 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 1226	. 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 8781	. . . . . 6 |- ( ( [ C.] Or A /\ A C_ Fin ) -> ran ( e e. om |-> U. { f e. A | f ~<_ e } ) = ( A u. { (/) } ) )
52	51	adantrr 714	. . . . 5 |- ( ( [ C.] Or A /\ ( A C_ Fin /\ A =/= (/) ) ) -> ran ( e e. om |-> U. { f e. A | f ~<_ e } ) = ( A u. { (/) } ) )
53	52	3ad2antl2 1157	. . . 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 463	. . 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 1035	. . . . . 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 4404	. . . . . . . . . . 11 |- ( A C_ ~P (/) <-> U. A C_ (/) )
58		ss0b 3814	. . . . . . . . . . 11 |- ( U. A C_ (/) <-> U. A = (/) )
59	57, 58	bitri 249	. . . . . . . . . 10 |- ( A C_ ~P (/) <-> U. A = (/) )
60		pw0 4163	. . . . . . . . . . . . 13 |- ~P (/) = { (/) }
61	60	sseq2i 3514	. . . . . . . . . . . 12 |- ( A C_ ~P (/) <-> A C_ { (/) } )
62		sssn 4174	. . . . . . . . . . . 12 |- ( A C_ { (/) } <-> ( A = (/) \/ A = { (/) } ) )
63	61, 62	bitri 249	. . . . . . . . . . 11 |- ( A C_ ~P (/) <-> ( A = (/) \/ A = { (/) } ) )
64		df-ne 2651	. . . . . . . . . . . 12 |- ( A =/= (/) <-> -. A = (/) )
65		0ex 4569	. . . . . . . . . . . . . . . . 17 |- (/) e. _V
66	65	unisn 4250	. . . . . . . . . . . . . . . 16 |- U. { (/) } = (/)
67	65	snid 4044	. . . . . . . . . . . . . . . 16 |- (/) e. { (/) }
68	66, 67	eqeltri 2538	. . . . . . . . . . . . . . 15 |- U. { (/) } e. { (/) }
69		unieq 4243	. . . . . . . . . . . . . . . 16 |- ( A = { (/) } -> U. A = U. { (/) } )
70		id 22	. . . . . . . . . . . . . . . 16 |- ( A = { (/) } -> A = { (/) } )
71	69, 70	eleq12d 2536	. . . . . . . . . . . . . . 15 |- ( A = { (/) } -> ( U. A e. A <-> U. { (/) } e. { (/) } ) )
72	68, 71	mpbiri 233	. . . . . . . . . . . . . 14 |- ( A = { (/) } -> U. A e. A )
73	72	orim2i 516	. . . . . . . . . . . . 13 |- ( ( A = (/) \/ A = { (/) } ) -> ( A = (/) \/ U. A e. A ) )
74	73	ord 375	. . . . . . . . . . . 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 488	. . . . . 6 |- ( -. ( U. A e. A \/ U. A = (/) ) <-> ( -. U. A e. A /\ -. U. A = (/) ) )
82	55, 80, 81	sylanbrc 662	. . . . 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 4254	. . . . . . . 8 |- U. ( A u. { (/) } ) = ( U. A u. U. { (/) } )
84	66	uneq2i 3641	. . . . . . . 8 |- ( U. A u. U. { (/) } ) = ( U. A u. (/) )
85		un0 3809	. . . . . . . 8 |- ( U. A u. (/) ) = U. A
86	83, 84, 85	3eqtri 2487	. . . . . . 7 |- U. ( A u. { (/) } ) = U. A
87	86	eleq1i 2531	. . . . . 6 |- ( U. ( A u. { (/) } ) e. ( A u. { (/) } ) <-> U. A e. ( A u. { (/) } ) )
88		elun 3631	. . . . . 6 |- ( U. A e. ( A u. { (/) } ) <-> ( U. A e. A \/ U. A e. { (/) } ) )
89	65	elsnc2 4047	. . . . . . 7 |- ( U. A e. { (/) } <-> U. A = (/) )
90	89	orbi2i 517	. . . . . 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 303	. . . 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 4243	. . . . . 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 2536	. . . . 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 292	. . . 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 574	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 366   /\ wa 367   /\ w3a 971   = wceq 1398   e. wcel 1823   =/= wne 2649   A.wral 2804   {crab 2808   _Vcvv 3106   u. cun 3459   C_ wss 3461   (/)c0 3783   ~Pcpw 3999   {csn 4016   U.cuni 4235   class class class wbr 4439   |-> cmpt 4497   Or wor 4788   suc csuc 4869   ran crn 4989   -->wf 5566   ` cfv 5570   [ C.] crpss 6552   omcom 6673   ~<_ cdom 7507   Fincfn 7509  Fin^IIIcfin3 8652

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1623  ax-4 1636  ax-5 1709  ax-6 1752  ax-7 1795  ax-8 1825  ax-9 1827  ax-10 1842  ax-11 1847  ax-12 1859  ax-13 2004  ax-ext 2432  ax-rep 4550  ax-sep 4560  ax-nul 4568  ax-pow 4615  ax-pr 4676  ax-un 6565

This theorem depends on definitions:  df-bi 185  df-or 368  df-an 369  df-3or 972  df-3an 973  df-tru 1401  df-ex 1618  df-nf 1622  df-sb 1745  df-eu 2288  df-mo 2289  df-clab 2440  df-cleq 2446  df-clel 2449  df-nfc 2604  df-ne 2651  df-ral 2809  df-rex 2810  df-reu 2811  df-rmo 2812  df-rab 2813  df-v 3108  df-sbc 3325  df-csb 3421  df-dif 3464  df-un 3466  df-in 3468  df-ss 3475  df-pss 3477  df-nul 3784  df-if 3930  df-pw 4001  df-sn 4017  df-pr 4019  df-tp 4021  df-op 4023  df-uni 4236  df-int 4272  df-iun 4317  df-br 4440  df-opab 4498  df-mpt 4499  df-tr 4533  df-eprel 4780  df-id 4784  df-po 4789  df-so 4790  df-fr 4827  df-se 4828  df-we 4829  df-ord 4870  df-on 4871  df-lim 4872  df-suc 4873  df-xp 4994  df-rel 4995  df-cnv 4996  df-co 4997  df-dm 4998  df-rn 4999  df-res 5000  df-ima 5001  df-iota 5534  df-fun 5572  df-fn 5573  df-f 5574  df-f1 5575  df-fo 5576  df-f1o 5577  df-fv 5578  df-isom 5579  df-riota 6232  df-rpss 6553  df-om 6674  df-recs 7034  df-rdg 7068  df-1o 7122  df-er 7303  df-en 7510  df-dom 7511  df-sdom 7512  df-fin 7513  df-wdom 7977  df-card 8311  df-fin4 8658  df-fin3 8659

This theorem is referenced by:  fin1a2s  8785