Theorem fidcenumlemr 7272

Description: Lemma for fidcenum 7273. 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 5620	. . 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 5122	. . . . . . 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 5122	. . . . . . 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 5122	. . . . . . 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 5122	. . . . . . 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 5146	. . . . . . 7 |- ( F " (/) ) = (/)
28		0fi 7188	. . . . . . 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 5617	. . . . . . . . . . . . . . 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 4562	. . . . . . . . . . . . . . 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 5762	. . . . . . . . . . . . 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 4516	. . . . . . . . . . . . 13 |- suc k = ( k u. { k } )
44	43	imaeq2i 5124	. . . . . . . . . . . 12 |- ( F " suc k ) = ( F " ( k u. { k } ) )
45		imaundi 5200	. . . . . . . . . . . 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 3860	. . . . . . . . . 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 4560	. . . . . . . . . . . 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 5615	. . . . . . . . . . . 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 5844	. . . . . . . . . 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 7226	. . . . . . . . 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 7271	. . . . . . 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 4747	. . . 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 )

This proof depends on syntax axioms:   -. 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 3709   suc csuc 4510   omcom 4737   "cima 4777   Fn wfn 5372   -->wf 5373   -onto->wfo 5375   ` cfv 5377   Fincfn 7022

This proof depends on 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 4249  ax-nul 4259  ax-pow 4311  ax-pr 4346  ax-un 4578  ax-setind 4684  ax-iinf 4735

This proof 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 3690  df-sn 3715  df-pr 3716  df-op 3718  df-uni 3936  df-int 3971  df-br 4131  df-opab 4193  df-tr 4230  df-id 4438  df-iord 4511  df-on 4513  df-suc 4516  df-iom 4738  df-xp 4780  df-rel 4781  df-cnv 4782  df-co 4783  df-dm 4784  df-rn 4785  df-res 4786  df-ima 4787  df-iota 5337  df-fun 5379  df-fn 5380  df-f 5381  df-f1 5382  df-fo 5383  df-f1o 5384  df-fv 5385  df-1o 6687  df-er 6807  df-en 7023  df-fin 7025

This theorem is used by:  fidcenum  7273