Theorem fidcenumlemr 7225

Description: Lemma for fidcenum 7226. 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 5595	. . 3 |- ( F : N -onto-> A -> ( F " N ) = A )
3	1, 2	syl 14	. 2 |- ( ph -> ( F " N ) = A )
4		ssid 3258	. . 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 3261	. . . . . . 7 |- ( w = (/) -> ( w C_ N <-> (/) C_ N ) )
8	7	anbi2d 464	. . . . . 6 |- ( w = (/) -> ( ( ph /\ w C_ N ) <-> ( ph /\ (/) C_ N ) ) )
9		imaeq2 5097	. . . . . . 7 |- ( w = (/) -> ( F " w ) = ( F " (/) ) )
10	9	eleq1d 2301	. . . . . 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 3261	. . . . . . 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 5097	. . . . . . 7 |- ( w = k -> ( F " w ) = ( F " k ) )
15	14	eleq1d 2301	. . . . . 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 3261	. . . . . . 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 5097	. . . . . . 7 |- ( w = suc k -> ( F " w ) = ( F " suc k ) )
20	19	eleq1d 2301	. . . . . 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 3261	. . . . . . 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 5097	. . . . . . 7 |- ( w = N -> ( F " w ) = ( F " N ) )
25	24	eleq1d 2301	. . . . . 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 5121	. . . . . . 7 |- ( F " (/) ) = (/)
28		0fi 7141	. . . . . . 7 |- (/) e. Fin
29	27, 28	eqeltri 2305	. . . . . 6 |- ( F " (/) ) e. Fin
30	29	a1i 9	. . . . 5 |- ( ( ph /\ (/) C_ N ) -> ( F " (/) ) e. Fin )
31		simprl 531	. . . . . . . . . . . . . 14 |- ( ( ( k e. om /\ ( ( ph /\ k C_ N ) -> ( F " k ) e. Fin ) ) /\ ( ph /\ suc k C_ N ) ) -> ph )
32		fofn 5592	. . . . . . . . . . . . . . 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 533	. . . . . . . . . . . . . 14 |- ( ( ( k e. om /\ ( ( ph /\ k C_ N ) -> ( F " k ) e. Fin ) ) /\ ( ph /\ suc k C_ N ) ) -> suc k C_ N )
36		vex 2816	. . . . . . . . . . . . . . . 16 |- k e. _V
37	36	sucid 4538	. . . . . . . . . . . . . . 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 3239	. . . . . . . . . . . . 13 |- ( ( ( k e. om /\ ( ( ph /\ k C_ N ) -> ( F " k ) e. Fin ) ) /\ ( ph /\ suc k C_ N ) ) -> k e. N )
40		fnsnfv 5736	. . . . . . . . . . . . 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 3373	. . . . . . . . . . 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 4492	. . . . . . . . . . . . 13 |- suc k = ( k u. { k } )
44	43	imaeq2i 5099	. . . . . . . . . . . 12 |- ( F " suc k ) = ( F " ( k u. { k } ) )
45		imaundi 5175	. . . . . . . . . . . 12 |- ( F " ( k u. { k } ) ) = ( ( F " k ) u. ( F " { k } ) )
46	44, 45	eqtri 2253	. . . . . . . . . . 11 |- ( F " suc k ) = ( ( F " k ) u. ( F " { k } ) )
47	42, 46	eqtr4di 2283	. . . . . . . . . 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 3839	. . . . . . . . . 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 3392	. . . . . . . . . 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 2267	. . . . . . . 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 4536	. . . . . . . . . . . 12 |- k C_ suc k
55		sstr 3246	. . . . . . . . . . . 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 529	. . . . . . . . . 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 2309	. . . . . . 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 5590	. . . . . . . . . . . 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 5813	. . . . . . . . . 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 7179	. . . . . . . . 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 1274	. . . . . . . 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 2310	. . . . . . 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 7224	. . . . . . 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 806	. . . . . 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 4722	. . . 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 2310	1 |- ( ph -> A e. Fin )

Syntax hints:   -. wn 3   -> wi 4   /\ wa 104  DECID wdc 842   = wceq 1398   e. wcel 2203   A.wral 2520   u. cun 3209   C_ wss 3211   (/)c0 3508   {csn 3689   suc csuc 4486   omcom 4712   "cima 4752   Fn wfn 5347   -->wf 5348   -onto->wfo 5350   ` cfv 5352   Fincfn 6975

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 619  ax-in2 620  ax-io 717  ax-5 1496  ax-7 1497  ax-gen 1498  ax-ie1 1542  ax-ie2 1543  ax-8 1553  ax-10 1554  ax-11 1555  ax-i12 1556  ax-bndl 1558  ax-4 1559  ax-17 1575  ax-i9 1579  ax-ial 1583  ax-i5r 1584  ax-13 2205  ax-14 2206  ax-ext 2214  ax-sep 4228  ax-nul 4236  ax-pow 4287  ax-pr 4322  ax-un 4554  ax-setind 4659  ax-iinf 4710

This theorem depends on definitions:  df-bi 117  df-dc 843  df-3an 1007  df-tru 1401  df-fal 1404  df-nf 1510  df-sb 1812  df-eu 2083  df-mo 2084  df-clab 2219  df-cleq 2225  df-clel 2228  df-nfc 2373  df-ne 2413  df-ral 2525  df-rex 2526  df-v 2815  df-sbc 3043  df-dif 3213  df-un 3215  df-in 3217  df-ss 3224  df-nul 3509  df-pw 3671  df-sn 3695  df-pr 3696  df-op 3698  df-uni 3915  df-int 3950  df-br 4110  df-opab 4172  df-tr 4209  df-id 4414  df-iord 4487  df-on 4489  df-suc 4492  df-iom 4713  df-xp 4755  df-rel 4756  df-cnv 4757  df-co 4758  df-dm 4759  df-rn 4760  df-res 4761  df-ima 4762  df-iota 5312  df-fun 5354  df-fn 5355  df-f 5356  df-f1 5357  df-fo 5358  df-f1o 5359  df-fv 5360  df-1o 6647  df-er 6767  df-en 6976  df-fin 6978

This theorem is referenced by:  fidcenum  7226