Theorem fidcenumlemr 7262

Description: Lemma for fidcenum 7263. 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 5615	. . 3 |- ( F : N -onto-> A -> ( F " N ) = A )
3	1, 2	syl 14	. 2 |- ( ph -> ( F " N ) = A )
4		ssid 3268	. . 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 3271	. . . . . . 7 |- ( w = (/) -> ( w C_ N <-> (/) C_ N ) )
8	7	anbi2d 468	. . . . . 6 |- ( w = (/) -> ( ( ph /\ w C_ N ) <-> ( ph /\ (/) C_ N ) ) )
9		imaeq2 5117	. . . . . . 7 |- ( w = (/) -> ( F " w ) = ( F " (/) ) )
10	9	eleq1d 2307	. . . . . 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 3271	. . . . . . 7 |- ( w = k -> ( w C_ N <-> k C_ N ) )
13	12	anbi2d 468	. . . . . 6 |- ( w = k -> ( ( ph /\ w C_ N ) <-> ( ph /\ k C_ N ) ) )
14		imaeq2 5117	. . . . . . 7 |- ( w = k -> ( F " w ) = ( F " k ) )
15	14	eleq1d 2307	. . . . . 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 3271	. . . . . . 7 |- ( w = suc k -> ( w C_ N <-> suc k C_ N ) )
18	17	anbi2d 468	. . . . . 6 |- ( w = suc k -> ( ( ph /\ w C_ N ) <-> ( ph /\ suc k C_ N ) ) )
19		imaeq2 5117	. . . . . . 7 |- ( w = suc k -> ( F " w ) = ( F " suc k ) )
20	19	eleq1d 2307	. . . . . 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 3271	. . . . . . 7 |- ( w = N -> ( w C_ N <-> N C_ N ) )
23	22	anbi2d 468	. . . . . 6 |- ( w = N -> ( ( ph /\ w C_ N ) <-> ( ph /\ N C_ N ) ) )
24		imaeq2 5117	. . . . . . 7 |- ( w = N -> ( F " w ) = ( F " N ) )
25	24	eleq1d 2307	. . . . . 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 5141	. . . . . . 7 |- ( F " (/) ) = (/)
28		0fi 7178	. . . . . . 7 |- (/) e. Fin
29	27, 28	eqeltri 2311	. . . . . 6 |- ( F " (/) ) e. Fin
30	29	a1i 9	. . . . 5 |- ( ( ph /\ (/) C_ N ) -> ( F " (/) ) e. Fin )
31		simprl 535	. . . . . . . . . . . . . 14 |- ( ( ( k e. om /\ ( ( ph /\ k C_ N ) -> ( F " k ) e. Fin ) ) /\ ( ph /\ suc k C_ N ) ) -> ph )
32		fofn 5612	. . . . . . . . . . . . . . 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 537	. . . . . . . . . . . . . 14 |- ( ( ( k e. om /\ ( ( ph /\ k C_ N ) -> ( F " k ) e. Fin ) ) /\ ( ph /\ suc k C_ N ) ) -> suc k C_ N )
36		vex 2824	. . . . . . . . . . . . . . . 16 |- k e. _V
37	36	sucid 4557	. . . . . . . . . . . . . . 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 3249	. . . . . . . . . . . . 13 |- ( ( ( k e. om /\ ( ( ph /\ k C_ N ) -> ( F " k ) e. Fin ) ) /\ ( ph /\ suc k C_ N ) ) -> k e. N )
40		fnsnfv 5756	. . . . . . . . . . . . 13 |- ( ( F Fn N /\ k e. N ) -> { ( F ` k ) } = ( F " { k } ) )
41	34, 39, 40	syl2anc 415	. . . . . . . . . . . 12 |- ( ( ( k e. om /\ ( ( ph /\ k C_ N ) -> ( F " k ) e. Fin ) ) /\ ( ph /\ suc k C_ N ) ) -> { ( F ` k ) } = ( F " { k } ) )
42	41	uneq2d 3383	. . . . . . . . . . 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 4511	. . . . . . . . . . . . 13 |- suc k = ( k u. { k } )
44	43	imaeq2i 5119	. . . . . . . . . . . 12 |- ( F " suc k ) = ( F " ( k u. { k } ) )
45		imaundi 5195	. . . . . . . . . . . 12 |- ( F " ( k u. { k } ) ) = ( ( F " k ) u. ( F " { k } ) )
46	44, 45	eqtri 2259	. . . . . . . . . . 11 |- ( F " suc k ) = ( ( F " k ) u. ( F " { k } ) )
47	42, 46	eqtr4di 2289	. . . . . . . . . 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 3855	. . . . . . . . . 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 3402	. . . . . . . . . 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 2273	. . . . . . . 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 4555	. . . . . . . . . . . 12 |- k C_ suc k
55		sstr 3256	. . . . . . . . . . . 12 |- ( ( k C_ suc k /\ suc k C_ N ) -> k C_ N )
56	54, 55	mpan 428	. . . . . . . . . . 11 |- ( suc k C_ N -> k C_ N )
57	56	ad2antll 495	. . . . . . . . . 10 |- ( ( ( k e. om /\ ( ( ph /\ k C_ N ) -> ( F " k ) e. Fin ) ) /\ ( ph /\ suc k C_ N ) ) -> k C_ N )
58		simplr 533	. . . . . . . . . 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 437	. . . . . . . . 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 2315	. . . . . . 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 5610	. . . . . . . . . . . 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 5835	. . . . . . . . . 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 7216	. . . . . . . . 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 1278	. . . . . . . 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 2316	. . . . . . 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 531	. . . . . . . 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 7261	. . . . . . 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 810	. . . . . 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 4742	. . . 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 429	. 2 |- ( ph -> ( F " N ) e. Fin )
82	3, 81	eqeltrrd 2316	1 |- ( ph -> A e. Fin )

Syntax hints:   -. wn 3   -> wi 4   /\ wa 104  DECID wdc 846   = wceq 1402   e. wcel 2209   A.wral 2528   u. cun 3218   C_ wss 3220   (/)c0 3520   {csn 3705   suc csuc 4505   omcom 4732   "cima 4772   Fn wfn 5367   -->wf 5368   -onto->wfo 5370   ` cfv 5372   Fincfn 7012

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 623  ax-in2 624  ax-io 721  ax-5 1500  ax-7 1501  ax-gen 1502  ax-ie1 1546  ax-ie2 1547  ax-8 1557  ax-10 1558  ax-11 1559  ax-i12 1560  ax-bndl 1562  ax-4 1563  ax-17 1579  ax-i9 1583  ax-ial 1587  ax-i5r 1588  ax-14 2212  ax-ext 2220  ax-sep 4244  ax-nul 4254  ax-pow 4306  ax-pr 4341  ax-un 4573  ax-setind 4679  ax-iinf 4730

This theorem depends on definitions:  df-bi 117  df-dc 847  df-3an 1011  df-tru 1405  df-fal 1408  df-nf 1514  df-sb 1816  df-eu 2089  df-mo 2090  df-clab 2225  df-cleq 2231  df-clel 2234  df-nfc 2381  df-ne 2421  df-ral 2533  df-rex 2534  df-v 2823  df-sbc 3052  df-dif 3222  df-un 3224  df-in 3226  df-ss 3233  df-nul 3521  df-pw 3687  df-sn 3711  df-pr 3712  df-op 3714  df-uni 3931  df-int 3966  df-br 4126  df-opab 4188  df-tr 4225  df-id 4433  df-iord 4506  df-on 4508  df-suc 4511  df-iom 4733  df-xp 4775  df-rel 4776  df-cnv 4777  df-co 4778  df-dm 4779  df-rn 4780  df-res 4781  df-ima 4782  df-iota 5332  df-fun 5374  df-fn 5375  df-f 5376  df-f1 5377  df-fo 5378  df-f1o 5379  df-fv 5380  df-1o 6677  df-er 6797  df-en 7013  df-fin 7015

This theorem is referenced by:  fidcenum  7263