Theorem fidcenumlemr 6954

Description: Lemma for fidcenum 6955. Reverse direction (put into deduction form). (Contributed by Jim Kingdon, 19-Oct-2022.)

Hypotheses

Ref	Expression
fidcenumlemr.dc	|- ( ph -> A. x e. A A. y e. A DECID x = y )
fidcenumlemr.f	|- ( ph -> F : N -onto-> A )
fidcenumlemr.n	|- ( ph -> N e. om )

Assertion

Ref	Expression
fidcenumlemr	|- ( ph -> A e. Fin )

Distinct variable groups:   x, A, y   x, F, y

Allowed substitution hints:   ph( x, y)   N( x, y)

Proof of Theorem fidcenumlemr

Dummy variables k w are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		fidcenumlemr.f	. . 3 |- ( ph -> F : N -onto-> A )
2		foima 5444	. . 3 |- ( F : N -onto-> A -> ( F " N ) = A )
3	1, 2	syl 14	. 2 |- ( ph -> ( F " N ) = A )
4		ssid 3176	. . 3 |- N C_ N
5		fidcenumlemr.n	. . . . 5 |- ( ph -> N e. om )
6	5	adantr 276	. . . 4 |- ( ( ph /\ N C_ N ) -> N e. om )
7		sseq1 3179	. . . . . . 7 |- ( w = (/) -> ( w C_ N <-> (/) C_ N ) )
8	7	anbi2d 464	. . . . . 6 |- ( w = (/) -> ( ( ph /\ w C_ N ) <-> ( ph /\ (/) C_ N ) ) )
9		imaeq2 4967	. . . . . . 7 |- ( w = (/) -> ( F " w ) = ( F " (/) ) )
10	9	eleq1d 2246	. . . . . 6 |- ( w = (/) -> ( ( F " w ) e. Fin <-> ( F " (/) ) e. Fin ) )
11	8, 10	imbi12d 234	. . . . 5 |- ( w = (/) -> ( ( ( ph /\ w C_ N ) -> ( F " w ) e. Fin ) <-> ( ( ph /\ (/) C_ N ) -> ( F " (/) ) e. Fin ) ) )
12		sseq1 3179	. . . . . . 7 |- ( w = k -> ( w C_ N <-> k C_ N ) )
13	12	anbi2d 464	. . . . . 6 |- ( w = k -> ( ( ph /\ w C_ N ) <-> ( ph /\ k C_ N ) ) )
14		imaeq2 4967	. . . . . . 7 |- ( w = k -> ( F " w ) = ( F " k ) )
15	14	eleq1d 2246	. . . . . 6 |- ( w = k -> ( ( F " w ) e. Fin <-> ( F " k ) e. Fin ) )
16	13, 15	imbi12d 234	. . . . 5 |- ( w = k -> ( ( ( ph /\ w C_ N ) -> ( F " w ) e. Fin ) <-> ( ( ph /\ k C_ N ) -> ( F " k ) e. Fin ) ) )
17		sseq1 3179	. . . . . . 7 |- ( w = suc k -> ( w C_ N <-> suc k C_ N ) )
18	17	anbi2d 464	. . . . . 6 |- ( w = suc k -> ( ( ph /\ w C_ N ) <-> ( ph /\ suc k C_ N ) ) )
19		imaeq2 4967	. . . . . . 7 |- ( w = suc k -> ( F " w ) = ( F " suc k ) )
20	19	eleq1d 2246	. . . . . 6 |- ( w = suc k -> ( ( F " w ) e. Fin <-> ( F " suc k ) e. Fin ) )
21	18, 20	imbi12d 234	. . . . 5 |- ( w = suc k -> ( ( ( ph /\ w C_ N ) -> ( F " w ) e. Fin ) <-> ( ( ph /\ suc k C_ N ) -> ( F " suc k ) e. Fin ) ) )
22		sseq1 3179	. . . . . . 7 |- ( w = N -> ( w C_ N <-> N C_ N ) )
23	22	anbi2d 464	. . . . . 6 |- ( w = N -> ( ( ph /\ w C_ N ) <-> ( ph /\ N C_ N ) ) )
24		imaeq2 4967	. . . . . . 7 |- ( w = N -> ( F " w ) = ( F " N ) )
25	24	eleq1d 2246	. . . . . 6 |- ( w = N -> ( ( F " w ) e. Fin <-> ( F " N ) e. Fin ) )
26	23, 25	imbi12d 234	. . . . 5 |- ( w = N -> ( ( ( ph /\ w C_ N ) -> ( F " w ) e. Fin ) <-> ( ( ph /\ N C_ N ) -> ( F " N ) e. Fin ) ) )
27		ima0 4988	. . . . . . 7 |- ( F " (/) ) = (/)
28		0fin 6884	. . . . . . 7 |- (/) e. Fin
29	27, 28	eqeltri 2250	. . . . . 6 |- ( F " (/) ) e. Fin
30	29	a1i 9	. . . . 5 |- ( ( ph /\ (/) C_ N ) -> ( F " (/) ) e. Fin )
31		simprl 529	. . . . . . . . . . . . . 14 |- ( ( ( k e. om /\ ( ( ph /\ k C_ N ) -> ( F " k ) e. Fin ) ) /\ ( ph /\ suc k C_ N ) ) -> ph )
32		fofn 5441	. . . . . . . . . . . . . . 15 |- ( F : N -onto-> A -> F Fn N )
33	1, 32	syl 14	. . . . . . . . . . . . . 14 |- ( ph -> F Fn N )
34	31, 33	syl 14	. . . . . . . . . . . . 13 |- ( ( ( k e. om /\ ( ( ph /\ k C_ N ) -> ( F " k ) e. Fin ) ) /\ ( ph /\ suc k C_ N ) ) -> F Fn N )
35		simprr 531	. . . . . . . . . . . . . 14 |- ( ( ( k e. om /\ ( ( ph /\ k C_ N ) -> ( F " k ) e. Fin ) ) /\ ( ph /\ suc k C_ N ) ) -> suc k C_ N )
36		vex 2741	. . . . . . . . . . . . . . . 16 |- k e. _V
37	36	sucid 4418	. . . . . . . . . . . . . . 15 |- k e. suc k
38	37	a1i 9	. . . . . . . . . . . . . 14 |- ( ( ( k e. om /\ ( ( ph /\ k C_ N ) -> ( F " k ) e. Fin ) ) /\ ( ph /\ suc k C_ N ) ) -> k e. suc k )
39	35, 38	sseldd 3157	. . . . . . . . . . . . 13 |- ( ( ( k e. om /\ ( ( ph /\ k C_ N ) -> ( F " k ) e. Fin ) ) /\ ( ph /\ suc k C_ N ) ) -> k e. N )
40		fnsnfv 5576	. . . . . . . . . . . . 13 |- ( ( F Fn N /\ k e. N ) -> { ( F ` k ) } = ( F " { k } ) )
41	34, 39, 40	syl2anc 411	. . . . . . . . . . . 12 |- ( ( ( k e. om /\ ( ( ph /\ k C_ N ) -> ( F " k ) e. Fin ) ) /\ ( ph /\ suc k C_ N ) ) -> { ( F ` k ) } = ( F " { k } ) )
42	41	uneq2d 3290	. . . . . . . . . . 11 |- ( ( ( k e. om /\ ( ( ph /\ k C_ N ) -> ( F " k ) e. Fin ) ) /\ ( ph /\ suc k C_ N ) ) -> ( ( F " k ) u. { ( F ` k ) } ) = ( ( F " k ) u. ( F " { k } ) ) )
43		df-suc 4372	. . . . . . . . . . . . 13 |- suc k = ( k u. { k } )
44	43	imaeq2i 4969	. . . . . . . . . . . 12 |- ( F " suc k ) = ( F " ( k u. { k } ) )
45		imaundi 5042	. . . . . . . . . . . 12 |- ( F " ( k u. { k } ) ) = ( ( F " k ) u. ( F " { k } ) )
46	44, 45	eqtri 2198	. . . . . . . . . . 11 |- ( F " suc k ) = ( ( F " k ) u. ( F " { k } ) )
47	42, 46	eqtr4di 2228	. . . . . . . . . 10 |- ( ( ( k e. om /\ ( ( ph /\ k C_ N ) -> ( F " k ) e. Fin ) ) /\ ( ph /\ suc k C_ N ) ) -> ( ( F " k ) u. { ( F ` k ) } ) = ( F " suc k ) )
48	47	adantr 276	. . . . . . . . 9 |- ( ( ( ( k e. om /\ ( ( ph /\ k C_ N ) -> ( F " k ) e. Fin ) ) /\ ( ph /\ suc k C_ N ) ) /\ ( F ` k ) e. ( F " k ) ) -> ( ( F " k ) u. { ( F ` k ) } ) = ( F " suc k ) )
49		simpr 110	. . . . . . . . . . 11 |- ( ( ( ( k e. om /\ ( ( ph /\ k C_ N ) -> ( F " k ) e. Fin ) ) /\ ( ph /\ suc k C_ N ) ) /\ ( F ` k ) e. ( F " k ) ) -> ( F ` k ) e. ( F " k ) )
50	49	snssd 3738	. . . . . . . . . 10 |- ( ( ( ( k e. om /\ ( ( ph /\ k C_ N ) -> ( F " k ) e. Fin ) ) /\ ( ph /\ suc k C_ N ) ) /\ ( F ` k ) e. ( F " k ) ) -> { ( F ` k ) } C_ ( F " k ) )
51		ssequn2 3309	. . . . . . . . . 10 |- ( { ( F ` k ) } C_ ( F " k ) <-> ( ( F " k ) u. { ( F ` k ) } ) = ( F " k ) )
52	50, 51	sylib 122	. . . . . . . . 9 |- ( ( ( ( k e. om /\ ( ( ph /\ k C_ N ) -> ( F " k ) e. Fin ) ) /\ ( ph /\ suc k C_ N ) ) /\ ( F ` k ) e. ( F " k ) ) -> ( ( F " k ) u. { ( F ` k ) } ) = ( F " k ) )
53	48, 52	eqtr3d 2212	. . . . . . . 8 |- ( ( ( ( k e. om /\ ( ( ph /\ k C_ N ) -> ( F " k ) e. Fin ) ) /\ ( ph /\ suc k C_ N ) ) /\ ( F ` k ) e. ( F " k ) ) -> ( F " suc k ) = ( F " k ) )
54		sssucid 4416	. . . . . . . . . . . 12 |- k C_ suc k
55		sstr 3164	. . . . . . . . . . . 12 |- ( ( k C_ suc k /\ suc k C_ N ) -> k C_ N )
56	54, 55	mpan 424	. . . . . . . . . . 11 |- ( suc k C_ N -> k C_ N )
57	56	ad2antll 491	. . . . . . . . . 10 |- ( ( ( k e. om /\ ( ( ph /\ k C_ N ) -> ( F " k ) e. Fin ) ) /\ ( ph /\ suc k C_ N ) ) -> k C_ N )
58		simplr 528	. . . . . . . . . 10 |- ( ( ( k e. om /\ ( ( ph /\ k C_ N ) -> ( F " k ) e. Fin ) ) /\ ( ph /\ suc k C_ N ) ) -> ( ( ph /\ k C_ N ) -> ( F " k ) e. Fin ) )
59	31, 57, 58	mp2and 433	. . . . . . . . 9 |- ( ( ( k e. om /\ ( ( ph /\ k C_ N ) -> ( F " k ) e. Fin ) ) /\ ( ph /\ suc k C_ N ) ) -> ( F " k ) e. Fin )
60	59	adantr 276	. . . . . . . 8 |- ( ( ( ( k e. om /\ ( ( ph /\ k C_ N ) -> ( F " k ) e. Fin ) ) /\ ( ph /\ suc k C_ N ) ) /\ ( F ` k ) e. ( F " k ) ) -> ( F " k ) e. Fin )
61	53, 60	eqeltrd 2254	. . . . . . 7 |- ( ( ( ( k e. om /\ ( ( ph /\ k C_ N ) -> ( F " k ) e. Fin ) ) /\ ( ph /\ suc k C_ N ) ) /\ ( F ` k ) e. ( F " k ) ) -> ( F " suc k ) e. Fin )
62	47	adantr 276	. . . . . . . 8 |- ( ( ( ( k e. om /\ ( ( ph /\ k C_ N ) -> ( F " k ) e. Fin ) ) /\ ( ph /\ suc k C_ N ) ) /\ -. ( F ` k ) e. ( F " k ) ) -> ( ( F " k ) u. { ( F ` k ) } ) = ( F " suc k ) )
63	59	adantr 276	. . . . . . . . 9 |- ( ( ( ( k e. om /\ ( ( ph /\ k C_ N ) -> ( F " k ) e. Fin ) ) /\ ( ph /\ suc k C_ N ) ) /\ -. ( F ` k ) e. ( F " k ) ) -> ( F " k ) e. Fin )
64	31, 1	syl 14	. . . . . . . . . . . 12 |- ( ( ( k e. om /\ ( ( ph /\ k C_ N ) -> ( F " k ) e. Fin ) ) /\ ( ph /\ suc k C_ N ) ) -> F : N -onto-> A )
65		fof 5439	. . . . . . . . . . . 12 |- ( F : N -onto-> A -> F : N --> A )
66	64, 65	syl 14	. . . . . . . . . . 11 |- ( ( ( k e. om /\ ( ( ph /\ k C_ N ) -> ( F " k ) e. Fin ) ) /\ ( ph /\ suc k C_ N ) ) -> F : N --> A )
67	66, 39	ffvelcdmd 5653	. . . . . . . . . 10 |- ( ( ( k e. om /\ ( ( ph /\ k C_ N ) -> ( F " k ) e. Fin ) ) /\ ( ph /\ suc k C_ N ) ) -> ( F ` k ) e. A )
68	67	adantr 276	. . . . . . . . 9 |- ( ( ( ( k e. om /\ ( ( ph /\ k C_ N ) -> ( F " k ) e. Fin ) ) /\ ( ph /\ suc k C_ N ) ) /\ -. ( F ` k ) e. ( F " k ) ) -> ( F ` k ) e. A )
69		simpr 110	. . . . . . . . 9 |- ( ( ( ( k e. om /\ ( ( ph /\ k C_ N ) -> ( F " k ) e. Fin ) ) /\ ( ph /\ suc k C_ N ) ) /\ -. ( F ` k ) e. ( F " k ) ) -> -. ( F ` k ) e. ( F " k ) )
70		unsnfi 6918	. . . . . . . . 9 |- ( ( ( F " k ) e. Fin /\ ( F ` k ) e. A /\ -. ( F ` k ) e. ( F " k ) ) -> ( ( F " k ) u. { ( F ` k ) } ) e. Fin )
71	63, 68, 69, 70	syl3anc 1238	. . . . . . . 8 |- ( ( ( ( k e. om /\ ( ( ph /\ k C_ N ) -> ( F " k ) e. Fin ) ) /\ ( ph /\ suc k C_ N ) ) /\ -. ( F ` k ) e. ( F " k ) ) -> ( ( F " k ) u. { ( F ` k ) } ) e. Fin )
72	62, 71	eqeltrrd 2255	. . . . . . 7 |- ( ( ( ( k e. om /\ ( ( ph /\ k C_ N ) -> ( F " k ) e. Fin ) ) /\ ( ph /\ suc k C_ N ) ) /\ -. ( F ` k ) e. ( F " k ) ) -> ( F " suc k ) e. Fin )
73		fidcenumlemr.dc	. . . . . . . . 9 |- ( ph -> A. x e. A A. y e. A DECID x = y )
74	31, 73	syl 14	. . . . . . . 8 |- ( ( ( k e. om /\ ( ( ph /\ k C_ N ) -> ( F " k ) e. Fin ) ) /\ ( ph /\ suc k C_ N ) ) -> A. x e. A A. y e. A DECID x = y )
75		simpll 527	. . . . . . . 8 |- ( ( ( k e. om /\ ( ( ph /\ k C_ N ) -> ( F " k ) e. Fin ) ) /\ ( ph /\ suc k C_ N ) ) -> k e. om )
76	74, 64, 75, 57, 67	fidcenumlemrk 6953	. . . . . . 7 |- ( ( ( k e. om /\ ( ( ph /\ k C_ N ) -> ( F " k ) e. Fin ) ) /\ ( ph /\ suc k C_ N ) ) -> ( ( F ` k ) e. ( F " k ) \/ -. ( F ` k ) e. ( F " k ) ) )
77	61, 72, 76	mpjaodan 798	. . . . . 6 |- ( ( ( k e. om /\ ( ( ph /\ k C_ N ) -> ( F " k ) e. Fin ) ) /\ ( ph /\ suc k C_ N ) ) -> ( F " suc k ) e. Fin )
78	77	exp31 364	. . . . 5 |- ( k e. om -> ( ( ( ph /\ k C_ N ) -> ( F " k ) e. Fin ) -> ( ( ph /\ suc k C_ N ) -> ( F " suc k ) e. Fin ) ) )
79	11, 16, 21, 26, 30, 78	finds 4600	. . . 4 |- ( N e. om -> ( ( ph /\ N C_ N ) -> ( F " N ) e. Fin ) )
80	6, 79	mpcom 36	. . 3 |- ( ( ph /\ N C_ N ) -> ( F " N ) e. Fin )
81	4, 80	mpan2 425	. 2 |- ( ph -> ( F " N ) e. Fin )
82	3, 81	eqeltrrd 2255	1 |- ( ph -> A e. Fin )

Syntax hints:   -. wn 3   -> wi 4   /\ wa 104  DECID wdc 834   = wceq 1353   e. wcel 2148   A.wral 2455   u. cun 3128   C_ wss 3130   (/)c0 3423   {csn 3593   suc csuc 4366   omcom 4590   "cima 4630   Fn wfn 5212   -->wf 5213   -onto->wfo 5215   ` cfv 5217   Fincfn 6740

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 614  ax-in2 615  ax-io 709  ax-5 1447  ax-7 1448  ax-gen 1449  ax-ie1 1493  ax-ie2 1494  ax-8 1504  ax-10 1505  ax-11 1506  ax-i12 1507  ax-bndl 1509  ax-4 1510  ax-17 1526  ax-i9 1530  ax-ial 1534  ax-i5r 1535  ax-13 2150  ax-14 2151  ax-ext 2159  ax-sep 4122  ax-nul 4130  ax-pow 4175  ax-pr 4210  ax-un 4434  ax-setind 4537  ax-iinf 4588

This theorem depends on definitions:  df-bi 117  df-dc 835  df-3an 980  df-tru 1356  df-fal 1359  df-nf 1461  df-sb 1763  df-eu 2029  df-mo 2030  df-clab 2164  df-cleq 2170  df-clel 2173  df-nfc 2308  df-ne 2348  df-ral 2460  df-rex 2461  df-v 2740  df-sbc 2964  df-dif 3132  df-un 3134  df-in 3136  df-ss 3143  df-nul 3424  df-pw 3578  df-sn 3599  df-pr 3600  df-op 3602  df-uni 3811  df-int 3846  df-br 4005  df-opab 4066  df-tr 4103  df-id 4294  df-iord 4367  df-on 4369  df-suc 4372  df-iom 4591  df-xp 4633  df-rel 4634  df-cnv 4635  df-co 4636  df-dm 4637  df-rn 4638  df-res 4639  df-ima 4640  df-iota 5179  df-fun 5219  df-fn 5220  df-f 5221  df-f1 5222  df-fo 5223  df-f1o 5224  df-fv 5225  df-1o 6417  df-er 6535  df-en 6741  df-fin 6743

This theorem is referenced by:  fidcenum  6955