Theorem iunfictbso 8937

Description: Countability of a countable union of finite sets with a strict (not globally well) order fulfilling the choice role. (Contributed by Stefan O'Rear, 16-Nov-2014.)

Assertion

Ref	Expression
iunfictbso	|- ( ( A ~<_ om /\ A C_ Fin /\ B Or U. A ) -> U. A ~<_ om )

Proof of Theorem iunfictbso

Dummy variables a b c d e f g h i j are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		omex 8540	. . . . 5 |- om e. _V
2	1	0dom 8090	. . . 4 |- (/) ~<_ om
3		breq1 4656	. . . 4 |- ( U. A = (/) -> ( U. A ~<_ om <-> (/) ~<_ om ) )
4	2, 3	mpbiri 248	. . 3 |- ( U. A = (/) -> U. A ~<_ om )
5	4	a1d 25	. 2 |- ( U. A = (/) -> ( ( A ~<_ om /\ A C_ Fin /\ B Or U. A ) -> U. A ~<_ om ) )
6		n0 3931	. . 3 |- ( U. A =/= (/) <-> E. a a e. U. A )
7		ne0i 3921	. . . . . . . . . 10 |- ( a e. U. A -> U. A =/= (/) )
8		unieq 4444	. . . . . . . . . . . 12 |- ( A = (/) -> U. A = U. (/) )
9		uni0 4465	. . . . . . . . . . . 12 |- U. (/) = (/)
10	8, 9	syl6eq 2672	. . . . . . . . . . 11 |- ( A = (/) -> U. A = (/) )
11	10	necon3i 2826	. . . . . . . . . 10 |- ( U. A =/= (/) -> A =/= (/) )
12	7, 11	syl 17	. . . . . . . . 9 |- ( a e. U. A -> A =/= (/) )
13	12	adantl 482	. . . . . . . 8 |- ( ( ( A ~<_ om /\ A C_ Fin /\ B Or U. A ) /\ a e. U. A ) -> A =/= (/) )
14		simpl1 1064	. . . . . . . . 9 |- ( ( ( A ~<_ om /\ A C_ Fin /\ B Or U. A ) /\ a e. U. A ) -> A ~<_ om )
15		reldom 7961	. . . . . . . . . 10 |- Rel ~<_
16	15	brrelexi 5158	. . . . . . . . 9 |- ( A ~<_ om -> A e. _V )
17		0sdomg 8089	. . . . . . . . 9 |- ( A e. _V -> ( (/) ~< A <-> A =/= (/) ) )
18	14, 16, 17	3syl 18	. . . . . . . 8 |- ( ( ( A ~<_ om /\ A C_ Fin /\ B Or U. A ) /\ a e. U. A ) -> ( (/) ~< A <-> A =/= (/) ) )
19	13, 18	mpbird 247	. . . . . . 7 |- ( ( ( A ~<_ om /\ A C_ Fin /\ B Or U. A ) /\ a e. U. A ) -> (/) ~< A )
20		fodomr 8111	. . . . . . 7 |- ( ( (/) ~< A /\ A ~<_ om ) -> E. b b : om -onto-> A )
21	19, 14, 20	syl2anc 693	. . . . . 6 |- ( ( ( A ~<_ om /\ A C_ Fin /\ B Or U. A ) /\ a e. U. A ) -> E. b b : om -onto-> A )
22		omelon 8543	. . . . . . . . . . . 12 |- om e. On
23		onenon 8775	. . . . . . . . . . . 12 |- ( om e. On -> om e. dom card )
24	22, 23	ax-mp 5	. . . . . . . . . . 11 |- om e. dom card
25		xpnum 8777	. . . . . . . . . . 11 |- ( ( om e. dom card /\ om e. dom card ) -> ( om X. om ) e. dom card )
26	24, 24, 25	mp2an 708	. . . . . . . . . 10 |- ( om X. om ) e. dom card
27		simplrr 801	. . . . . . . . . . . . . . . . . . 19 |- ( ( ( ( A ~<_ om /\ A C_ Fin /\ B Or U. A ) /\ ( a e. U. A /\ b : om -onto-> A ) ) /\ ( f e. om /\ g e. om ) ) -> b : om -onto-> A )
28		fof 6115	. . . . . . . . . . . . . . . . . . 19 |- ( b : om -onto-> A -> b : om --> A )
29	27, 28	syl 17	. . . . . . . . . . . . . . . . . 18 |- ( ( ( ( A ~<_ om /\ A C_ Fin /\ B Or U. A ) /\ ( a e. U. A /\ b : om -onto-> A ) ) /\ ( f e. om /\ g e. om ) ) -> b : om --> A )
30		simprl 794	. . . . . . . . . . . . . . . . . 18 |- ( ( ( ( A ~<_ om /\ A C_ Fin /\ B Or U. A ) /\ ( a e. U. A /\ b : om -onto-> A ) ) /\ ( f e. om /\ g e. om ) ) -> f e. om )
31	29, 30	ffvelrnd 6360	. . . . . . . . . . . . . . . . 17 |- ( ( ( ( A ~<_ om /\ A C_ Fin /\ B Or U. A ) /\ ( a e. U. A /\ b : om -onto-> A ) ) /\ ( f e. om /\ g e. om ) ) -> ( b ` f ) e. A )
32	31	adantr 481	. . . . . . . . . . . . . . . 16 |- ( ( ( ( ( A ~<_ om /\ A C_ Fin /\ B Or U. A ) /\ ( a e. U. A /\ b : om -onto-> A ) ) /\ ( f e. om /\ g e. om ) ) /\ g e. ( card ` ( b ` f ) ) ) -> ( b ` f ) e. A )
33		elssuni 4467	. . . . . . . . . . . . . . . 16 |- ( ( b ` f ) e. A -> ( b ` f ) C_ U. A )
34	32, 33	syl 17	. . . . . . . . . . . . . . 15 |- ( ( ( ( ( A ~<_ om /\ A C_ Fin /\ B Or U. A ) /\ ( a e. U. A /\ b : om -onto-> A ) ) /\ ( f e. om /\ g e. om ) ) /\ g e. ( card ` ( b ` f ) ) ) -> ( b ` f ) C_ U. A )
35	31, 33	syl 17	. . . . . . . . . . . . . . . . . . . . 21 |- ( ( ( ( A ~<_ om /\ A C_ Fin /\ B Or U. A ) /\ ( a e. U. A /\ b : om -onto-> A ) ) /\ ( f e. om /\ g e. om ) ) -> ( b ` f ) C_ U. A )
36		simpll3 1102	. . . . . . . . . . . . . . . . . . . . 21 |- ( ( ( ( A ~<_ om /\ A C_ Fin /\ B Or U. A ) /\ ( a e. U. A /\ b : om -onto-> A ) ) /\ ( f e. om /\ g e. om ) ) -> B Or U. A )
37		soss 5053	. . . . . . . . . . . . . . . . . . . . 21 |- ( ( b ` f ) C_ U. A -> ( B Or U. A -> B Or ( b ` f ) ) )
38	35, 36, 37	sylc 65	. . . . . . . . . . . . . . . . . . . 20 |- ( ( ( ( A ~<_ om /\ A C_ Fin /\ B Or U. A ) /\ ( a e. U. A /\ b : om -onto-> A ) ) /\ ( f e. om /\ g e. om ) ) -> B Or ( b ` f ) )
39		simpll2 1101	. . . . . . . . . . . . . . . . . . . . 21 |- ( ( ( ( A ~<_ om /\ A C_ Fin /\ B Or U. A ) /\ ( a e. U. A /\ b : om -onto-> A ) ) /\ ( f e. om /\ g e. om ) ) -> A C_ Fin )
40	39, 31	sseldd 3604	. . . . . . . . . . . . . . . . . . . 20 |- ( ( ( ( A ~<_ om /\ A C_ Fin /\ B Or U. A ) /\ ( a e. U. A /\ b : om -onto-> A ) ) /\ ( f e. om /\ g e. om ) ) -> ( b ` f ) e. Fin )
41		finnisoeu 8936	. . . . . . . . . . . . . . . . . . . 20 |- ( ( B Or ( b ` f ) /\ ( b ` f ) e. Fin ) -> E! h h Isom _E , B ( ( card ` ( b ` f ) ) , ( b ` f ) ) )
42	38, 40, 41	syl2anc 693	. . . . . . . . . . . . . . . . . . 19 |- ( ( ( ( A ~<_ om /\ A C_ Fin /\ B Or U. A ) /\ ( a e. U. A /\ b : om -onto-> A ) ) /\ ( f e. om /\ g e. om ) ) -> E! h h Isom _E , B ( ( card ` ( b ` f ) ) , ( b ` f ) ) )
43		iotacl 5874	. . . . . . . . . . . . . . . . . . 19 |- ( E! h h Isom _E , B ( ( card ` ( b ` f ) ) , ( b ` f ) ) -> ( iota h h Isom _E , B ( ( card ` ( b ` f ) ) , ( b ` f ) ) ) e. { h | h Isom _E , B ( ( card ` ( b ` f ) ) , ( b ` f ) ) } )
44	42, 43	syl 17	. . . . . . . . . . . . . . . . . 18 |- ( ( ( ( A ~<_ om /\ A C_ Fin /\ B Or U. A ) /\ ( a e. U. A /\ b : om -onto-> A ) ) /\ ( f e. om /\ g e. om ) ) -> ( iota h h Isom _E , B ( ( card ` ( b ` f ) ) , ( b ` f ) ) ) e. { h | h Isom _E , B ( ( card ` ( b ` f ) ) , ( b ` f ) ) } )
45		iotaex 5868	. . . . . . . . . . . . . . . . . . 19 |- ( iota h h Isom _E , B ( ( card ` ( b ` f ) ) , ( b ` f ) ) ) e. _V
46		isoeq1 6567	. . . . . . . . . . . . . . . . . . 19 |- ( a = ( iota h h Isom _E , B ( ( card ` ( b ` f ) ) , ( b ` f ) ) ) -> ( a Isom _E , B ( ( card ` ( b ` f ) ) , ( b ` f ) ) <-> ( iota h h Isom _E , B ( ( card ` ( b ` f ) ) , ( b ` f ) ) ) Isom _E , B ( ( card ` ( b ` f ) ) , ( b ` f ) ) ) )
47		isoeq1 6567	. . . . . . . . . . . . . . . . . . . 20 |- ( h = a -> ( h Isom _E , B ( ( card ` ( b ` f ) ) , ( b ` f ) ) <-> a Isom _E , B ( ( card ` ( b ` f ) ) , ( b ` f ) ) ) )
48	47	cbvabv 2747	. . . . . . . . . . . . . . . . . . 19 |- { h | h Isom _E , B ( ( card ` ( b ` f ) ) , ( b ` f ) ) } = { a | a Isom _E , B ( ( card ` ( b ` f ) ) , ( b ` f ) ) }
49	45, 46, 48	elab2 3354	. . . . . . . . . . . . . . . . . 18 |- ( ( iota h h Isom _E , B ( ( card ` ( b ` f ) ) , ( b ` f ) ) ) e. { h | h Isom _E , B ( ( card ` ( b ` f ) ) , ( b ` f ) ) } <-> ( iota h h Isom _E , B ( ( card ` ( b ` f ) ) , ( b ` f ) ) ) Isom _E , B ( ( card ` ( b ` f ) ) , ( b ` f ) ) )
50	44, 49	sylib 208	. . . . . . . . . . . . . . . . 17 |- ( ( ( ( A ~<_ om /\ A C_ Fin /\ B Or U. A ) /\ ( a e. U. A /\ b : om -onto-> A ) ) /\ ( f e. om /\ g e. om ) ) -> ( iota h h Isom _E , B ( ( card ` ( b ` f ) ) , ( b ` f ) ) ) Isom _E , B ( ( card ` ( b ` f ) ) , ( b ` f ) ) )
51		isof1o 6573	. . . . . . . . . . . . . . . . 17 |- ( ( iota h h Isom _E , B ( ( card ` ( b ` f ) ) , ( b ` f ) ) ) Isom _E , B ( ( card ` ( b ` f ) ) , ( b ` f ) ) -> ( iota h h Isom _E , B ( ( card ` ( b ` f ) ) , ( b ` f ) ) ) : ( card ` ( b ` f ) ) -1-1-onto-> ( b ` f ) )
52		f1of 6137	. . . . . . . . . . . . . . . . 17 |- ( ( iota h h Isom _E , B ( ( card ` ( b ` f ) ) , ( b ` f ) ) ) : ( card ` ( b ` f ) ) -1-1-onto-> ( b ` f ) -> ( iota h h Isom _E , B ( ( card ` ( b ` f ) ) , ( b ` f ) ) ) : ( card ` ( b ` f ) ) --> ( b ` f ) )
53	50, 51, 52	3syl 18	. . . . . . . . . . . . . . . 16 |- ( ( ( ( A ~<_ om /\ A C_ Fin /\ B Or U. A ) /\ ( a e. U. A /\ b : om -onto-> A ) ) /\ ( f e. om /\ g e. om ) ) -> ( iota h h Isom _E , B ( ( card ` ( b ` f ) ) , ( b ` f ) ) ) : ( card ` ( b ` f ) ) --> ( b ` f ) )
54	53	ffvelrnda 6359	. . . . . . . . . . . . . . 15 |- ( ( ( ( ( A ~<_ om /\ A C_ Fin /\ B Or U. A ) /\ ( a e. U. A /\ b : om -onto-> A ) ) /\ ( f e. om /\ g e. om ) ) /\ g e. ( card ` ( b ` f ) ) ) -> ( ( iota h h Isom _E , B ( ( card ` ( b ` f ) ) , ( b ` f ) ) ) ` g ) e. ( b ` f ) )
55	34, 54	sseldd 3604	. . . . . . . . . . . . . 14 |- ( ( ( ( ( A ~<_ om /\ A C_ Fin /\ B Or U. A ) /\ ( a e. U. A /\ b : om -onto-> A ) ) /\ ( f e. om /\ g e. om ) ) /\ g e. ( card ` ( b ` f ) ) ) -> ( ( iota h h Isom _E , B ( ( card ` ( b ` f ) ) , ( b ` f ) ) ) ` g ) e. U. A )
56		simprl 794	. . . . . . . . . . . . . . 15 |- ( ( ( A ~<_ om /\ A C_ Fin /\ B Or U. A ) /\ ( a e. U. A /\ b : om -onto-> A ) ) -> a e. U. A )
57	56	ad2antrr 762	. . . . . . . . . . . . . 14 |- ( ( ( ( ( A ~<_ om /\ A C_ Fin /\ B Or U. A ) /\ ( a e. U. A /\ b : om -onto-> A ) ) /\ ( f e. om /\ g e. om ) ) /\ -. g e. ( card ` ( b ` f ) ) ) -> a e. U. A )
58	55, 57	ifclda 4120	. . . . . . . . . . . . 13 |- ( ( ( ( A ~<_ om /\ A C_ Fin /\ B Or U. A ) /\ ( a e. U. A /\ b : om -onto-> A ) ) /\ ( f e. om /\ g e. om ) ) -> if ( g e. ( card ` ( b ` f ) ) , ( ( iota h h Isom _E , B ( ( card ` ( b ` f ) ) , ( b ` f ) ) ) ` g ) , a ) e. U. A )
59	58	ralrimivva 2971	. . . . . . . . . . . 12 |- ( ( ( A ~<_ om /\ A C_ Fin /\ B Or U. A ) /\ ( a e. U. A /\ b : om -onto-> A ) ) -> A. f e. om A. g e. om if ( g e. ( card ` ( b ` f ) ) , ( ( iota h h Isom _E , B ( ( card ` ( b ` f ) ) , ( b ` f ) ) ) ` g ) , a ) e. U. A )
60		eqid 2622	. . . . . . . . . . . . 13 |- ( f e. om , g e. om |-> if ( g e. ( card ` ( b ` f ) ) , ( ( iota h h Isom _E , B ( ( card ` ( b ` f ) ) , ( b ` f ) ) ) ` g ) , a ) ) = ( f e. om , g e. om |-> if ( g e. ( card ` ( b ` f ) ) , ( ( iota h h Isom _E , B ( ( card ` ( b ` f ) ) , ( b ` f ) ) ) ` g ) , a ) )
61	60	fmpt2 7237	. . . . . . . . . . . 12 |- ( A. f e. om A. g e. om if ( g e. ( card ` ( b ` f ) ) , ( ( iota h h Isom _E , B ( ( card ` ( b ` f ) ) , ( b ` f ) ) ) ` g ) , a ) e. U. A <-> ( f e. om , g e. om |-> if ( g e. ( card ` ( b ` f ) ) , ( ( iota h h Isom _E , B ( ( card ` ( b ` f ) ) , ( b ` f ) ) ) ` g ) , a ) ) : ( om X. om ) --> U. A )
62	59, 61	sylib 208	. . . . . . . . . . 11 |- ( ( ( A ~<_ om /\ A C_ Fin /\ B Or U. A ) /\ ( a e. U. A /\ b : om -onto-> A ) ) -> ( f e. om , g e. om |-> if ( g e. ( card ` ( b ` f ) ) , ( ( iota h h Isom _E , B ( ( card ` ( b ` f ) ) , ( b ` f ) ) ) ` g ) , a ) ) : ( om X. om ) --> U. A )
63		eluni 4439	. . . . . . . . . . . . 13 |- ( c e. U. A <-> E. i ( c e. i /\ i e. A ) )
64		simplrr 801	. . . . . . . . . . . . . . . . 17 |- ( ( ( ( A ~<_ om /\ A C_ Fin /\ B Or U. A ) /\ ( a e. U. A /\ b : om -onto-> A ) ) /\ ( c e. i /\ i e. A ) ) -> b : om -onto-> A )
65		simprr 796	. . . . . . . . . . . . . . . . 17 |- ( ( ( ( A ~<_ om /\ A C_ Fin /\ B Or U. A ) /\ ( a e. U. A /\ b : om -onto-> A ) ) /\ ( c e. i /\ i e. A ) ) -> i e. A )
66		foelrn 6378	. . . . . . . . . . . . . . . . 17 |- ( ( b : om -onto-> A /\ i e. A ) -> E. j e. om i = ( b ` j ) )
67	64, 65, 66	syl2anc 693	. . . . . . . . . . . . . . . 16 |- ( ( ( ( A ~<_ om /\ A C_ Fin /\ B Or U. A ) /\ ( a e. U. A /\ b : om -onto-> A ) ) /\ ( c e. i /\ i e. A ) ) -> E. j e. om i = ( b ` j ) )
68		simprrl 804	. . . . . . . . . . . . . . . . . . . 20 |- ( ( ( ( A ~<_ om /\ A C_ Fin /\ B Or U. A ) /\ ( a e. U. A /\ b : om -onto-> A ) ) /\ ( ( c e. i /\ i e. A ) /\ ( j e. om /\ i = ( b ` j ) ) ) ) -> j e. om )
69		ordom 7074	. . . . . . . . . . . . . . . . . . . . . 22 |- Ord om
70		simpll2 1101	. . . . . . . . . . . . . . . . . . . . . . . 24 |- ( ( ( ( A ~<_ om /\ A C_ Fin /\ B Or U. A ) /\ ( a e. U. A /\ b : om -onto-> A ) ) /\ ( ( c e. i /\ i e. A ) /\ ( j e. om /\ i = ( b ` j ) ) ) ) -> A C_ Fin )
71		simplrr 801	. . . . . . . . . . . . . . . . . . . . . . . . . 26 |- ( ( ( ( A ~<_ om /\ A C_ Fin /\ B Or U. A ) /\ ( a e. U. A /\ b : om -onto-> A ) ) /\ ( ( c e. i /\ i e. A ) /\ ( j e. om /\ i = ( b ` j ) ) ) ) -> b : om -onto-> A )
72	71, 28	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . 25 |- ( ( ( ( A ~<_ om /\ A C_ Fin /\ B Or U. A ) /\ ( a e. U. A /\ b : om -onto-> A ) ) /\ ( ( c e. i /\ i e. A ) /\ ( j e. om /\ i = ( b ` j ) ) ) ) -> b : om --> A )
73	72, 68	ffvelrnd 6360	. . . . . . . . . . . . . . . . . . . . . . . 24 |- ( ( ( ( A ~<_ om /\ A C_ Fin /\ B Or U. A ) /\ ( a e. U. A /\ b : om -onto-> A ) ) /\ ( ( c e. i /\ i e. A ) /\ ( j e. om /\ i = ( b ` j ) ) ) ) -> ( b ` j ) e. A )
74	70, 73	sseldd 3604	. . . . . . . . . . . . . . . . . . . . . . 23 |- ( ( ( ( A ~<_ om /\ A C_ Fin /\ B Or U. A ) /\ ( a e. U. A /\ b : om -onto-> A ) ) /\ ( ( c e. i /\ i e. A ) /\ ( j e. om /\ i = ( b ` j ) ) ) ) -> ( b ` j ) e. Fin )
75		ficardom 8787	. . . . . . . . . . . . . . . . . . . . . . 23 |- ( ( b ` j ) e. Fin -> ( card ` ( b ` j ) ) e. om )
76	74, 75	syl 17	. . . . . . . . . . . . . . . . . . . . . 22 |- ( ( ( ( A ~<_ om /\ A C_ Fin /\ B Or U. A ) /\ ( a e. U. A /\ b : om -onto-> A ) ) /\ ( ( c e. i /\ i e. A ) /\ ( j e. om /\ i = ( b ` j ) ) ) ) -> ( card ` ( b ` j ) ) e. om )
77		ordelss 5739	. . . . . . . . . . . . . . . . . . . . . 22 |- ( ( Ord om /\ ( card ` ( b ` j ) ) e. om ) -> ( card ` ( b ` j ) ) C_ om )
78	69, 76, 77	sylancr 695	. . . . . . . . . . . . . . . . . . . . 21 |- ( ( ( ( A ~<_ om /\ A C_ Fin /\ B Or U. A ) /\ ( a e. U. A /\ b : om -onto-> A ) ) /\ ( ( c e. i /\ i e. A ) /\ ( j e. om /\ i = ( b ` j ) ) ) ) -> ( card ` ( b ` j ) ) C_ om )
79		elssuni 4467	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 |- ( ( b ` j ) e. A -> ( b ` j ) C_ U. A )
80	73, 79	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 |- ( ( ( ( A ~<_ om /\ A C_ Fin /\ B Or U. A ) /\ ( a e. U. A /\ b : om -onto-> A ) ) /\ ( ( c e. i /\ i e. A ) /\ ( j e. om /\ i = ( b ` j ) ) ) ) -> ( b ` j ) C_ U. A )
81		simpll3 1102	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 |- ( ( ( ( A ~<_ om /\ A C_ Fin /\ B Or U. A ) /\ ( a e. U. A /\ b : om -onto-> A ) ) /\ ( ( c e. i /\ i e. A ) /\ ( j e. om /\ i = ( b ` j ) ) ) ) -> B Or U. A )
82		soss 5053	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 |- ( ( b ` j ) C_ U. A -> ( B Or U. A -> B Or ( b ` j ) ) )
83	80, 81, 82	sylc 65	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 |- ( ( ( ( A ~<_ om /\ A C_ Fin /\ B Or U. A ) /\ ( a e. U. A /\ b : om -onto-> A ) ) /\ ( ( c e. i /\ i e. A ) /\ ( j e. om /\ i = ( b ` j ) ) ) ) -> B Or ( b ` j ) )
84		finnisoeu 8936	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 |- ( ( B Or ( b ` j ) /\ ( b ` j ) e. Fin ) -> E! h h Isom _E , B ( ( card ` ( b ` j ) ) , ( b ` j ) ) )
85	83, 74, 84	syl2anc 693	. . . . . . . . . . . . . . . . . . . . . . . . . 26 |- ( ( ( ( A ~<_ om /\ A C_ Fin /\ B Or U. A ) /\ ( a e. U. A /\ b : om -onto-> A ) ) /\ ( ( c e. i /\ i e. A ) /\ ( j e. om /\ i = ( b ` j ) ) ) ) -> E! h h Isom _E , B ( ( card ` ( b ` j ) ) , ( b ` j ) ) )
86		iotacl 5874	. . . . . . . . . . . . . . . . . . . . . . . . . 26 |- ( E! h h Isom _E , B ( ( card ` ( b ` j ) ) , ( b ` j ) ) -> ( iota h h Isom _E , B ( ( card ` ( b ` j ) ) , ( b ` j ) ) ) e. { h | h Isom _E , B ( ( card ` ( b ` j ) ) , ( b ` j ) ) } )
87	85, 86	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . 25 |- ( ( ( ( A ~<_ om /\ A C_ Fin /\ B Or U. A ) /\ ( a e. U. A /\ b : om -onto-> A ) ) /\ ( ( c e. i /\ i e. A ) /\ ( j e. om /\ i = ( b ` j ) ) ) ) -> ( iota h h Isom _E , B ( ( card ` ( b ` j ) ) , ( b ` j ) ) ) e. { h | h Isom _E , B ( ( card ` ( b ` j ) ) , ( b ` j ) ) } )
88		iotaex 5868	. . . . . . . . . . . . . . . . . . . . . . . . . 26 |- ( iota h h Isom _E , B ( ( card ` ( b ` j ) ) , ( b ` j ) ) ) e. _V
89		isoeq1 6567	. . . . . . . . . . . . . . . . . . . . . . . . . 26 |- ( a = ( iota h h Isom _E , B ( ( card ` ( b ` j ) ) , ( b ` j ) ) ) -> ( a Isom _E , B ( ( card ` ( b ` j ) ) , ( b ` j ) ) <-> ( iota h h Isom _E , B ( ( card ` ( b ` j ) ) , ( b ` j ) ) ) Isom _E , B ( ( card ` ( b ` j ) ) , ( b ` j ) ) ) )
90		isoeq1 6567	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 |- ( h = a -> ( h Isom _E , B ( ( card ` ( b ` j ) ) , ( b ` j ) ) <-> a Isom _E , B ( ( card ` ( b ` j ) ) , ( b ` j ) ) ) )
91	90	cbvabv 2747	. . . . . . . . . . . . . . . . . . . . . . . . . 26 |- { h | h Isom _E , B ( ( card ` ( b ` j ) ) , ( b ` j ) ) } = { a | a Isom _E , B ( ( card ` ( b ` j ) ) , ( b ` j ) ) }
92	88, 89, 91	elab2 3354	. . . . . . . . . . . . . . . . . . . . . . . . 25 |- ( ( iota h h Isom _E , B ( ( card ` ( b ` j ) ) , ( b ` j ) ) ) e. { h | h Isom _E , B ( ( card ` ( b ` j ) ) , ( b ` j ) ) } <-> ( iota h h Isom _E , B ( ( card ` ( b ` j ) ) , ( b ` j ) ) ) Isom _E , B ( ( card ` ( b ` j ) ) , ( b ` j ) ) )
93	87, 92	sylib 208	. . . . . . . . . . . . . . . . . . . . . . . 24 |- ( ( ( ( A ~<_ om /\ A C_ Fin /\ B Or U. A ) /\ ( a e. U. A /\ b : om -onto-> A ) ) /\ ( ( c e. i /\ i e. A ) /\ ( j e. om /\ i = ( b ` j ) ) ) ) -> ( iota h h Isom _E , B ( ( card ` ( b ` j ) ) , ( b ` j ) ) ) Isom _E , B ( ( card ` ( b ` j ) ) , ( b ` j ) ) )
94		isof1o 6573	. . . . . . . . . . . . . . . . . . . . . . . 24 |- ( ( iota h h Isom _E , B ( ( card ` ( b ` j ) ) , ( b ` j ) ) ) Isom _E , B ( ( card ` ( b ` j ) ) , ( b ` j ) ) -> ( iota h h Isom _E , B ( ( card ` ( b ` j ) ) , ( b ` j ) ) ) : ( card ` ( b ` j ) ) -1-1-onto-> ( b ` j ) )
95	93, 94	syl 17	. . . . . . . . . . . . . . . . . . . . . . 23 |- ( ( ( ( A ~<_ om /\ A C_ Fin /\ B Or U. A ) /\ ( a e. U. A /\ b : om -onto-> A ) ) /\ ( ( c e. i /\ i e. A ) /\ ( j e. om /\ i = ( b ` j ) ) ) ) -> ( iota h h Isom _E , B ( ( card ` ( b ` j ) ) , ( b ` j ) ) ) : ( card ` ( b ` j ) ) -1-1-onto-> ( b ` j ) )
96		f1ocnv 6149	. . . . . . . . . . . . . . . . . . . . . . 23 |- ( ( iota h h Isom _E , B ( ( card ` ( b ` j ) ) , ( b ` j ) ) ) : ( card ` ( b ` j ) ) -1-1-onto-> ( b ` j ) -> `' ( iota h h Isom _E , B ( ( card ` ( b ` j ) ) , ( b ` j ) ) ) : ( b ` j ) -1-1-onto-> ( card ` ( b ` j ) ) )
97		f1of 6137	. . . . . . . . . . . . . . . . . . . . . . 23 |- ( `' ( iota h h Isom _E , B ( ( card ` ( b ` j ) ) , ( b ` j ) ) ) : ( b ` j ) -1-1-onto-> ( card ` ( b ` j ) ) -> `' ( iota h h Isom _E , B ( ( card ` ( b ` j ) ) , ( b ` j ) ) ) : ( b ` j ) --> ( card ` ( b ` j ) ) )
98	95, 96, 97	3syl 18	. . . . . . . . . . . . . . . . . . . . . 22 |- ( ( ( ( A ~<_ om /\ A C_ Fin /\ B Or U. A ) /\ ( a e. U. A /\ b : om -onto-> A ) ) /\ ( ( c e. i /\ i e. A ) /\ ( j e. om /\ i = ( b ` j ) ) ) ) -> `' ( iota h h Isom _E , B ( ( card ` ( b ` j ) ) , ( b ` j ) ) ) : ( b ` j ) --> ( card ` ( b ` j ) ) )
99		simprll 802	. . . . . . . . . . . . . . . . . . . . . . 23 |- ( ( ( ( A ~<_ om /\ A C_ Fin /\ B Or U. A ) /\ ( a e. U. A /\ b : om -onto-> A ) ) /\ ( ( c e. i /\ i e. A ) /\ ( j e. om /\ i = ( b ` j ) ) ) ) -> c e. i )
100		simprrr 805	. . . . . . . . . . . . . . . . . . . . . . 23 |- ( ( ( ( A ~<_ om /\ A C_ Fin /\ B Or U. A ) /\ ( a e. U. A /\ b : om -onto-> A ) ) /\ ( ( c e. i /\ i e. A ) /\ ( j e. om /\ i = ( b ` j ) ) ) ) -> i = ( b ` j ) )
101	99, 100	eleqtrd 2703	. . . . . . . . . . . . . . . . . . . . . 22 |- ( ( ( ( A ~<_ om /\ A C_ Fin /\ B Or U. A ) /\ ( a e. U. A /\ b : om -onto-> A ) ) /\ ( ( c e. i /\ i e. A ) /\ ( j e. om /\ i = ( b ` j ) ) ) ) -> c e. ( b ` j ) )
102	98, 101	ffvelrnd 6360	. . . . . . . . . . . . . . . . . . . . 21 |- ( ( ( ( A ~<_ om /\ A C_ Fin /\ B Or U. A ) /\ ( a e. U. A /\ b : om -onto-> A ) ) /\ ( ( c e. i /\ i e. A ) /\ ( j e. om /\ i = ( b ` j ) ) ) ) -> ( `' ( iota h h Isom _E , B ( ( card ` ( b ` j ) ) , ( b ` j ) ) ) ` c ) e. ( card ` ( b ` j ) ) )
103	78, 102	sseldd 3604	. . . . . . . . . . . . . . . . . . . 20 |- ( ( ( ( A ~<_ om /\ A C_ Fin /\ B Or U. A ) /\ ( a e. U. A /\ b : om -onto-> A ) ) /\ ( ( c e. i /\ i e. A ) /\ ( j e. om /\ i = ( b ` j ) ) ) ) -> ( `' ( iota h h Isom _E , B ( ( card ` ( b ` j ) ) , ( b ` j ) ) ) ` c ) e. om )
104		fveq2 6191	. . . . . . . . . . . . . . . . . . . . . . . . . 26 |- ( f = j -> ( b ` f ) = ( b ` j ) )
105	104	fveq2d 6195	. . . . . . . . . . . . . . . . . . . . . . . . 25 |- ( f = j -> ( card ` ( b ` f ) ) = ( card ` ( b ` j ) ) )
106	105	eleq2d 2687	. . . . . . . . . . . . . . . . . . . . . . . 24 |- ( f = j -> ( g e. ( card ` ( b ` f ) ) <-> g e. ( card ` ( b ` j ) ) ) )
107		isoeq4 6570	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 |- ( ( card ` ( b ` f ) ) = ( card ` ( b ` j ) ) -> ( h Isom _E , B ( ( card ` ( b ` f ) ) , ( b ` f ) ) <-> h Isom _E , B ( ( card ` ( b ` j ) ) , ( b ` f ) ) ) )
108	105, 107	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 |- ( f = j -> ( h Isom _E , B ( ( card ` ( b ` f ) ) , ( b ` f ) ) <-> h Isom _E , B ( ( card ` ( b ` j ) ) , ( b ` f ) ) ) )
109		isoeq5 6571	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 |- ( ( b ` f ) = ( b ` j ) -> ( h Isom _E , B ( ( card ` ( b ` j ) ) , ( b ` f ) ) <-> h Isom _E , B ( ( card ` ( b ` j ) ) , ( b ` j ) ) ) )
110	104, 109	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 |- ( f = j -> ( h Isom _E , B ( ( card ` ( b ` j ) ) , ( b ` f ) ) <-> h Isom _E , B ( ( card ` ( b ` j ) ) , ( b ` j ) ) ) )
111	108, 110	bitrd 268	. . . . . . . . . . . . . . . . . . . . . . . . . 26 |- ( f = j -> ( h Isom _E , B ( ( card ` ( b ` f ) ) , ( b ` f ) ) <-> h Isom _E , B ( ( card ` ( b ` j ) ) , ( b ` j ) ) ) )
112	111	iotabidv 5872	. . . . . . . . . . . . . . . . . . . . . . . . 25 |- ( f = j -> ( iota h h Isom _E , B ( ( card ` ( b ` f ) ) , ( b ` f ) ) ) = ( iota h h Isom _E , B ( ( card ` ( b ` j ) ) , ( b ` j ) ) ) )
113	112	fveq1d 6193	. . . . . . . . . . . . . . . . . . . . . . . 24 |- ( f = j -> ( ( iota h h Isom _E , B ( ( card ` ( b ` f ) ) , ( b ` f ) ) ) ` g ) = ( ( iota h h Isom _E , B ( ( card ` ( b ` j ) ) , ( b ` j ) ) ) ` g ) )
114	106, 113	ifbieq1d 4109	. . . . . . . . . . . . . . . . . . . . . . 23 |- ( f = j -> if ( g e. ( card ` ( b ` f ) ) , ( ( iota h h Isom _E , B ( ( card ` ( b ` f ) ) , ( b ` f ) ) ) ` g ) , a ) = if ( g e. ( card ` ( b ` j ) ) , ( ( iota h h Isom _E , B ( ( card ` ( b ` j ) ) , ( b ` j ) ) ) ` g ) , a ) )
115		eleq1 2689	. . . . . . . . . . . . . . . . . . . . . . . 24 |- ( g = ( `' ( iota h h Isom _E , B ( ( card ` ( b ` j ) ) , ( b ` j ) ) ) ` c ) -> ( g e. ( card ` ( b ` j ) ) <-> ( `' ( iota h h Isom _E , B ( ( card ` ( b ` j ) ) , ( b ` j ) ) ) ` c ) e. ( card ` ( b ` j ) ) ) )
116		fveq2 6191	. . . . . . . . . . . . . . . . . . . . . . . 24 |- ( g = ( `' ( iota h h Isom _E , B ( ( card ` ( b ` j ) ) , ( b ` j ) ) ) ` c ) -> ( ( iota h h Isom _E , B ( ( card ` ( b ` j ) ) , ( b ` j ) ) ) ` g ) = ( ( iota h h Isom _E , B ( ( card ` ( b ` j ) ) , ( b ` j ) ) ) ` ( `' ( iota h h Isom _E , B ( ( card ` ( b ` j ) ) , ( b ` j ) ) ) ` c ) ) )
117	115, 116	ifbieq1d 4109	. . . . . . . . . . . . . . . . . . . . . . 23 |- ( g = ( `' ( iota h h Isom _E , B ( ( card ` ( b ` j ) ) , ( b ` j ) ) ) ` c ) -> if ( g e. ( card ` ( b ` j ) ) , ( ( iota h h Isom _E , B ( ( card ` ( b ` j ) ) , ( b ` j ) ) ) ` g ) , a ) = if ( ( `' ( iota h h Isom _E , B ( ( card ` ( b ` j ) ) , ( b ` j ) ) ) ` c ) e. ( card ` ( b ` j ) ) , ( ( iota h h Isom _E , B ( ( card ` ( b ` j ) ) , ( b ` j ) ) ) ` ( `' ( iota h h Isom _E , B ( ( card ` ( b ` j ) ) , ( b ` j ) ) ) ` c ) ) , a ) )
118		fvex 6201	. . . . . . . . . . . . . . . . . . . . . . . 24 |- ( ( iota h h Isom _E , B ( ( card ` ( b ` j ) ) , ( b ` j ) ) ) ` ( `' ( iota h h Isom _E , B ( ( card ` ( b ` j ) ) , ( b ` j ) ) ) ` c ) ) e. _V
119		vex 3203	. . . . . . . . . . . . . . . . . . . . . . . 24 |- a e. _V
120	118, 119	ifex 4156	. . . . . . . . . . . . . . . . . . . . . . 23 |- if ( ( `' ( iota h h Isom _E , B ( ( card ` ( b ` j ) ) , ( b ` j ) ) ) ` c ) e. ( card ` ( b ` j ) ) , ( ( iota h h Isom _E , B ( ( card ` ( b ` j ) ) , ( b ` j ) ) ) ` ( `' ( iota h h Isom _E , B ( ( card ` ( b ` j ) ) , ( b ` j ) ) ) ` c ) ) , a ) e. _V
121	114, 117, 60, 120	ovmpt2 6796	. . . . . . . . . . . . . . . . . . . . . 22 |- ( ( j e. om /\ ( `' ( iota h h Isom _E , B ( ( card ` ( b ` j ) ) , ( b ` j ) ) ) ` c ) e. om ) -> ( j ( f e. om , g e. om |-> if ( g e. ( card ` ( b ` f ) ) , ( ( iota h h Isom _E , B ( ( card ` ( b ` f ) ) , ( b ` f ) ) ) ` g ) , a ) ) ( `' ( iota h h Isom _E , B ( ( card ` ( b ` j ) ) , ( b ` j ) ) ) ` c ) ) = if ( ( `' ( iota h h Isom _E , B ( ( card ` ( b ` j ) ) , ( b ` j ) ) ) ` c ) e. ( card ` ( b ` j ) ) , ( ( iota h h Isom _E , B ( ( card ` ( b ` j ) ) , ( b ` j ) ) ) ` ( `' ( iota h h Isom _E , B ( ( card ` ( b ` j ) ) , ( b ` j ) ) ) ` c ) ) , a ) )
122	68, 103, 121	syl2anc 693	. . . . . . . . . . . . . . . . . . . . 21 |- ( ( ( ( A ~<_ om /\ A C_ Fin /\ B Or U. A ) /\ ( a e. U. A /\ b : om -onto-> A ) ) /\ ( ( c e. i /\ i e. A ) /\ ( j e. om /\ i = ( b ` j ) ) ) ) -> ( j ( f e. om , g e. om |-> if ( g e. ( card ` ( b ` f ) ) , ( ( iota h h Isom _E , B ( ( card ` ( b ` f ) ) , ( b ` f ) ) ) ` g ) , a ) ) ( `' ( iota h h Isom _E , B ( ( card ` ( b ` j ) ) , ( b ` j ) ) ) ` c ) ) = if ( ( `' ( iota h h Isom _E , B ( ( card ` ( b ` j ) ) , ( b ` j ) ) ) ` c ) e. ( card ` ( b ` j ) ) , ( ( iota h h Isom _E , B ( ( card ` ( b ` j ) ) , ( b ` j ) ) ) ` ( `' ( iota h h Isom _E , B ( ( card ` ( b ` j ) ) , ( b ` j ) ) ) ` c ) ) , a ) )
123	102	iftrued 4094	. . . . . . . . . . . . . . . . . . . . 21 |- ( ( ( ( A ~<_ om /\ A C_ Fin /\ B Or U. A ) /\ ( a e. U. A /\ b : om -onto-> A ) ) /\ ( ( c e. i /\ i e. A ) /\ ( j e. om /\ i = ( b ` j ) ) ) ) -> if ( ( `' ( iota h h Isom _E , B ( ( card ` ( b ` j ) ) , ( b ` j ) ) ) ` c ) e. ( card ` ( b ` j ) ) , ( ( iota h h Isom _E , B ( ( card ` ( b ` j ) ) , ( b ` j ) ) ) ` ( `' ( iota h h Isom _E , B ( ( card ` ( b ` j ) ) , ( b ` j ) ) ) ` c ) ) , a ) = ( ( iota h h Isom _E , B ( ( card ` ( b ` j ) ) , ( b ` j ) ) ) ` ( `' ( iota h h Isom _E , B ( ( card ` ( b ` j ) ) , ( b ` j ) ) ) ` c ) ) )
124		f1ocnvfv2 6533	. . . . . . . . . . . . . . . . . . . . . 22 |- ( ( ( iota h h Isom _E , B ( ( card ` ( b ` j ) ) , ( b ` j ) ) ) : ( card ` ( b ` j ) ) -1-1-onto-> ( b ` j ) /\ c e. ( b ` j ) ) -> ( ( iota h h Isom _E , B ( ( card ` ( b ` j ) ) , ( b ` j ) ) ) ` ( `' ( iota h h Isom _E , B ( ( card ` ( b ` j ) ) , ( b ` j ) ) ) ` c ) ) = c )
125	95, 101, 124	syl2anc 693	. . . . . . . . . . . . . . . . . . . . 21 |- ( ( ( ( A ~<_ om /\ A C_ Fin /\ B Or U. A ) /\ ( a e. U. A /\ b : om -onto-> A ) ) /\ ( ( c e. i /\ i e. A ) /\ ( j e. om /\ i = ( b ` j ) ) ) ) -> ( ( iota h h Isom _E , B ( ( card ` ( b ` j ) ) , ( b ` j ) ) ) ` ( `' ( iota h h Isom _E , B ( ( card ` ( b ` j ) ) , ( b ` j ) ) ) ` c ) ) = c )
126	122, 123, 125	3eqtrrd 2661	. . . . . . . . . . . . . . . . . . . 20 |- ( ( ( ( A ~<_ om /\ A C_ Fin /\ B Or U. A ) /\ ( a e. U. A /\ b : om -onto-> A ) ) /\ ( ( c e. i /\ i e. A ) /\ ( j e. om /\ i = ( b ` j ) ) ) ) -> c = ( j ( f e. om , g e. om |-> if ( g e. ( card ` ( b ` f ) ) , ( ( iota h h Isom _E , B ( ( card ` ( b ` f ) ) , ( b ` f ) ) ) ` g ) , a ) ) ( `' ( iota h h Isom _E , B ( ( card ` ( b ` j ) ) , ( b ` j ) ) ) ` c ) ) )
127		rspceov 6692	. . . . . . . . . . . . . . . . . . . 20 |- ( ( j e. om /\ ( `' ( iota h h Isom _E , B ( ( card ` ( b ` j ) ) , ( b ` j ) ) ) ` c ) e. om /\ c = ( j ( f e. om , g e. om |-> if ( g e. ( card ` ( b ` f ) ) , ( ( iota h h Isom _E , B ( ( card ` ( b ` f ) ) , ( b ` f ) ) ) ` g ) , a ) ) ( `' ( iota h h Isom _E , B ( ( card ` ( b ` j ) ) , ( b ` j ) ) ) ` c ) ) ) -> E. d e. om E. e e. om c = ( d ( f e. om , g e. om |-> if ( g e. ( card ` ( b ` f ) ) , ( ( iota h h Isom _E , B ( ( card ` ( b ` f ) ) , ( b ` f ) ) ) ` g ) , a ) ) e ) )
128	68, 103, 126, 127	syl3anc 1326	. . . . . . . . . . . . . . . . . . 19 |- ( ( ( ( A ~<_ om /\ A C_ Fin /\ B Or U. A ) /\ ( a e. U. A /\ b : om -onto-> A ) ) /\ ( ( c e. i /\ i e. A ) /\ ( j e. om /\ i = ( b ` j ) ) ) ) -> E. d e. om E. e e. om c = ( d ( f e. om , g e. om |-> if ( g e. ( card ` ( b ` f ) ) , ( ( iota h h Isom _E , B ( ( card ` ( b ` f ) ) , ( b ` f ) ) ) ` g ) , a ) ) e ) )
129	128	expr 643	. . . . . . . . . . . . . . . . . 18 |- ( ( ( ( A ~<_ om /\ A C_ Fin /\ B Or U. A ) /\ ( a e. U. A /\ b : om -onto-> A ) ) /\ ( c e. i /\ i e. A ) ) -> ( ( j e. om /\ i = ( b ` j ) ) -> E. d e. om E. e e. om c = ( d ( f e. om , g e. om |-> if ( g e. ( card ` ( b ` f ) ) , ( ( iota h h Isom _E , B ( ( card ` ( b ` f ) ) , ( b ` f ) ) ) ` g ) , a ) ) e ) ) )
130	129	expd 452	. . . . . . . . . . . . . . . . 17 |- ( ( ( ( A ~<_ om /\ A C_ Fin /\ B Or U. A ) /\ ( a e. U. A /\ b : om -onto-> A ) ) /\ ( c e. i /\ i e. A ) ) -> ( j e. om -> ( i = ( b ` j ) -> E. d e. om E. e e. om c = ( d ( f e. om , g e. om |-> if ( g e. ( card ` ( b ` f ) ) , ( ( iota h h Isom _E , B ( ( card ` ( b ` f ) ) , ( b ` f ) ) ) ` g ) , a ) ) e ) ) ) )
131	130	rexlimdv 3030	. . . . . . . . . . . . . . . 16 |- ( ( ( ( A ~<_ om /\ A C_ Fin /\ B Or U. A ) /\ ( a e. U. A /\ b : om -onto-> A ) ) /\ ( c e. i /\ i e. A ) ) -> ( E. j e. om i = ( b ` j ) -> E. d e. om E. e e. om c = ( d ( f e. om , g e. om |-> if ( g e. ( card ` ( b ` f ) ) , ( ( iota h h Isom _E , B ( ( card ` ( b ` f ) ) , ( b ` f ) ) ) ` g ) , a ) ) e ) ) )
132	67, 131	mpd 15	. . . . . . . . . . . . . . 15 |- ( ( ( ( A ~<_ om /\ A C_ Fin /\ B Or U. A ) /\ ( a e. U. A /\ b : om -onto-> A ) ) /\ ( c e. i /\ i e. A ) ) -> E. d e. om E. e e. om c = ( d ( f e. om , g e. om |-> if ( g e. ( card ` ( b ` f ) ) , ( ( iota h h Isom _E , B ( ( card ` ( b ` f ) ) , ( b ` f ) ) ) ` g ) , a ) ) e ) )
133	132	ex 450	. . . . . . . . . . . . . 14 |- ( ( ( A ~<_ om /\ A C_ Fin /\ B Or U. A ) /\ ( a e. U. A /\ b : om -onto-> A ) ) -> ( ( c e. i /\ i e. A ) -> E. d e. om E. e e. om c = ( d ( f e. om , g e. om |-> if ( g e. ( card ` ( b ` f ) ) , ( ( iota h h Isom _E , B ( ( card ` ( b ` f ) ) , ( b ` f ) ) ) ` g ) , a ) ) e ) ) )
134	133	exlimdv 1861	. . . . . . . . . . . . 13 |- ( ( ( A ~<_ om /\ A C_ Fin /\ B Or U. A ) /\ ( a e. U. A /\ b : om -onto-> A ) ) -> ( E. i ( c e. i /\ i e. A ) -> E. d e. om E. e e. om c = ( d ( f e. om , g e. om |-> if ( g e. ( card ` ( b ` f ) ) , ( ( iota h h Isom _E , B ( ( card ` ( b ` f ) ) , ( b ` f ) ) ) ` g ) , a ) ) e ) ) )
135	63, 134	syl5bi 232	. . . . . . . . . . . 12 |- ( ( ( A ~<_ om /\ A C_ Fin /\ B Or U. A ) /\ ( a e. U. A /\ b : om -onto-> A ) ) -> ( c e. U. A -> E. d e. om E. e e. om c = ( d ( f e. om , g e. om |-> if ( g e. ( card ` ( b ` f ) ) , ( ( iota h h Isom _E , B ( ( card ` ( b ` f ) ) , ( b ` f ) ) ) ` g ) , a ) ) e ) ) )
136	135	ralrimiv 2965	. . . . . . . . . . 11 |- ( ( ( A ~<_ om /\ A C_ Fin /\ B Or U. A ) /\ ( a e. U. A /\ b : om -onto-> A ) ) -> A. c e. U. A E. d e. om E. e e. om c = ( d ( f e. om , g e. om |-> if ( g e. ( card ` ( b ` f ) ) , ( ( iota h h Isom _E , B ( ( card ` ( b ` f ) ) , ( b ` f ) ) ) ` g ) , a ) ) e ) )
137		foov 6808	. . . . . . . . . . 11 |- ( ( f e. om , g e. om |-> if ( g e. ( card ` ( b ` f ) ) , ( ( iota h h Isom _E , B ( ( card ` ( b ` f ) ) , ( b ` f ) ) ) ` g ) , a ) ) : ( om X. om ) -onto-> U. A <-> ( ( f e. om , g e. om |-> if ( g e. ( card ` ( b ` f ) ) , ( ( iota h h Isom _E , B ( ( card ` ( b ` f ) ) , ( b ` f ) ) ) ` g ) , a ) ) : ( om X. om ) --> U. A /\ A. c e. U. A E. d e. om E. e e. om c = ( d ( f e. om , g e. om |-> if ( g e. ( card ` ( b ` f ) ) , ( ( iota h h Isom _E , B ( ( card ` ( b ` f ) ) , ( b ` f ) ) ) ` g ) , a ) ) e ) ) )
138	62, 136, 137	sylanbrc 698	. . . . . . . . . 10 |- ( ( ( A ~<_ om /\ A C_ Fin /\ B Or U. A ) /\ ( a e. U. A /\ b : om -onto-> A ) ) -> ( f e. om , g e. om |-> if ( g e. ( card ` ( b ` f ) ) , ( ( iota h h Isom _E , B ( ( card ` ( b ` f ) ) , ( b ` f ) ) ) ` g ) , a ) ) : ( om X. om ) -onto-> U. A )
139		fodomnum 8880	. . . . . . . . . 10 |- ( ( om X. om ) e. dom card -> ( ( f e. om , g e. om |-> if ( g e. ( card ` ( b ` f ) ) , ( ( iota h h Isom _E , B ( ( card ` ( b ` f ) ) , ( b ` f ) ) ) ` g ) , a ) ) : ( om X. om ) -onto-> U. A -> U. A ~<_ ( om X. om ) ) )
140	26, 138, 139	mpsyl 68	. . . . . . . . 9 |- ( ( ( A ~<_ om /\ A C_ Fin /\ B Or U. A ) /\ ( a e. U. A /\ b : om -onto-> A ) ) -> U. A ~<_ ( om X. om ) )
141		xpomen 8838	. . . . . . . . 9 |- ( om X. om ) ~~ om
142		domentr 8015	. . . . . . . . 9 |- ( ( U. A ~<_ ( om X. om ) /\ ( om X. om ) ~~ om ) -> U. A ~<_ om )
143	140, 141, 142	sylancl 694	. . . . . . . 8 |- ( ( ( A ~<_ om /\ A C_ Fin /\ B Or U. A ) /\ ( a e. U. A /\ b : om -onto-> A ) ) -> U. A ~<_ om )
144	143	expr 643	. . . . . . 7 |- ( ( ( A ~<_ om /\ A C_ Fin /\ B Or U. A ) /\ a e. U. A ) -> ( b : om -onto-> A -> U. A ~<_ om ) )
145	144	exlimdv 1861	. . . . . 6 |- ( ( ( A ~<_ om /\ A C_ Fin /\ B Or U. A ) /\ a e. U. A ) -> ( E. b b : om -onto-> A -> U. A ~<_ om ) )
146	21, 145	mpd 15	. . . . 5 |- ( ( ( A ~<_ om /\ A C_ Fin /\ B Or U. A ) /\ a e. U. A ) -> U. A ~<_ om )
147	146	expcom 451	. . . 4 |- ( a e. U. A -> ( ( A ~<_ om /\ A C_ Fin /\ B Or U. A ) -> U. A ~<_ om ) )
148	147	exlimiv 1858	. . 3 |- ( E. a a e. U. A -> ( ( A ~<_ om /\ A C_ Fin /\ B Or U. A ) -> U. A ~<_ om ) )
149	6, 148	sylbi 207	. 2 |- ( U. A =/= (/) -> ( ( A ~<_ om /\ A C_ Fin /\ B Or U. A ) -> U. A ~<_ om ) )
150	5, 149	pm2.61ine 2877	1 |- ( ( A ~<_ om /\ A C_ Fin /\ B Or U. A ) -> U. A ~<_ om )

Syntax hints:   -. wn 3   -> wi 4   <-> wb 196   /\ wa 384   /\ w3a 1037   = wceq 1483   E.wex 1704   e. wcel 1990   E!weu 2470   {cab 2608   =/= wne 2794   A.wral 2912   E.wrex 2913   _Vcvv 3200   C_ wss 3574   (/)c0 3915   ifcif 4086   U.cuni 4436   class class class wbr 4653   _E cep 5028   Or wor 5034   X. cxp 5112   `'ccnv 5113   dom cdm 5114   Ord word 5722   Oncon0 5723   iotacio 5849   -->wf 5884   -onto->wfo 5886   -1-1-onto->wf1o 5887   ` cfv 5888   Isom wiso 5889  (class class class)co 6650   |-> cmpt2 6652   omcom 7065   ~~ cen 7952   ~<_ cdom 7953   ~< csdm 7954   Fincfn 7955   cardccrd 8761

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1722  ax-4 1737  ax-5 1839  ax-6 1888  ax-7 1935  ax-8 1992  ax-9 1999  ax-10 2019  ax-11 2034  ax-12 2047  ax-13 2246  ax-ext 2602  ax-rep 4771  ax-sep 4781  ax-nul 4789  ax-pow 4843  ax-pr 4906  ax-un 6949  ax-inf2 8538

This theorem depends on definitions:  df-bi 197  df-or 385  df-an 386  df-3or 1038  df-3an 1039  df-tru 1486  df-ex 1705  df-nf 1710  df-sb 1881  df-eu 2474  df-mo 2475  df-clab 2609  df-cleq 2615  df-clel 2618  df-nfc 2753  df-ne 2795  df-ral 2917  df-rex 2918  df-reu 2919  df-rmo 2920  df-rab 2921  df-v 3202  df-sbc 3436  df-csb 3534  df-dif 3577  df-un 3579  df-in 3581  df-ss 3588  df-pss 3590  df-nul 3916  df-if 4087  df-pw 4160  df-sn 4178  df-pr 4180  df-tp 4182  df-op 4184  df-uni 4437  df-int 4476  df-iun 4522  df-br 4654  df-opab 4713  df-mpt 4730  df-tr 4753  df-id 5024  df-eprel 5029  df-po 5035  df-so 5036  df-fr 5073  df-se 5074  df-we 5075  df-xp 5120  df-rel 5121  df-cnv 5122  df-co 5123  df-dm 5124  df-rn 5125  df-res 5126  df-ima 5127  df-pred 5680  df-ord 5726  df-on 5727  df-lim 5728  df-suc 5729  df-iota 5851  df-fun 5890  df-fn 5891  df-f 5892  df-f1 5893  df-fo 5894  df-f1o 5895  df-fv 5896  df-isom 5897  df-riota 6611  df-ov 6653  df-oprab 6654  df-mpt2 6655  df-om 7066  df-1st 7168  df-2nd 7169  df-wrecs 7407  df-recs 7468  df-rdg 7506  df-1o 7560  df-oadd 7564  df-omul 7565  df-er 7742  df-map 7859  df-en 7956  df-dom 7957  df-sdom 7958  df-fin 7959  df-oi 8415  df-card 8765  df-acn 8768

This theorem is referenced by:  aannenlem3  24085