Theorem fidcenumlemr 7072

Description: Lemma for fidcenum 7073. 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 5515	. . 3 |- ( F : N -onto-> A -> ( F " N ) = A )
3	1, 2	syl 14	. 2 |- ( ph -> ( F " N ) = A )
4		ssid 3217	. . 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 3220	. . . . . . 7 |- ( w = (/) -> ( w C_ N <-> (/) C_ N ) )
8	7	anbi2d 464	. . . . . 6 |- ( w = (/) -> ( ( ph /\ w C_ N ) <-> ( ph /\ (/) C_ N ) ) )
9		imaeq2 5027	. . . . . . 7 |- ( w = (/) -> ( F " w ) = ( F " (/) ) )
10	9	eleq1d 2275	. . . . . 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 3220	. . . . . . 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 5027	. . . . . . 7 |- ( w = k -> ( F " w ) = ( F " k ) )
15	14	eleq1d 2275	. . . . . 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 3220	. . . . . . 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 5027	. . . . . . 7 |- ( w = suc k -> ( F " w ) = ( F " suc k ) )
20	19	eleq1d 2275	. . . . . 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 3220	. . . . . . 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 5027	. . . . . . 7 |- ( w = N -> ( F " w ) = ( F " N ) )
25	24	eleq1d 2275	. . . . . 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 5050	. . . . . . 7 |- ( F " (/) ) = (/)
28		0fin 6996	. . . . . . 7 |- (/) e. Fin
29	27, 28	eqeltri 2279	. . . . . 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 5512	. . . . . . . . . . . . . . 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 2776	. . . . . . . . . . . . . . . 16 |- k e. _V
37	36	sucid 4472	. . . . . . . . . . . . . . 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 3198	. . . . . . . . . . . . 13 |- ( ( ( k e. om /\ ( ( ph /\ k C_ N ) -> ( F " k ) e. Fin ) ) /\ ( ph /\ suc k C_ N ) ) -> k e. N )
40		fnsnfv 5651	. . . . . . . . . . . . 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 3331	. . . . . . . . . . 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 4426	. . . . . . . . . . . . 13 |- suc k = ( k u. { k } )
44	43	imaeq2i 5029	. . . . . . . . . . . 12 |- ( F " suc k ) = ( F " ( k u. { k } ) )
45		imaundi 5104	. . . . . . . . . . . 12 |- ( F " ( k u. { k } ) ) = ( ( F " k ) u. ( F " { k } ) )
46	44, 45	eqtri 2227	. . . . . . . . . . 11 |- ( F " suc k ) = ( ( F " k ) u. ( F " { k } ) )
47	42, 46	eqtr4di 2257	. . . . . . . . . 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 3784	. . . . . . . . . 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 3350	. . . . . . . . . 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 2241	. . . . . . . 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 4470	. . . . . . . . . . . 12 |- k C_ suc k
55		sstr 3205	. . . . . . . . . . . 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 2283	. . . . . . 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 5510	. . . . . . . . . . . 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 5729	. . . . . . . . . 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 7031	. . . . . . . . 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 1250	. . . . . . . 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 2284	. . . . . . 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 7071	. . . . . . 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 800	. . . . . 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 4656	. . . 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 2284	1 |- ( ph -> A e. Fin )

Syntax hints:   -. wn 3   -> wi 4   /\ wa 104  DECID wdc 836   = wceq 1373   e. wcel 2177   A.wral 2485   u. cun 3168   C_ wss 3170   (/)c0 3464   {csn 3638   suc csuc 4420   omcom 4646   "cima 4686   Fn wfn 5275   -->wf 5276   -onto->wfo 5278   ` cfv 5280   Fincfn 6840

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 615  ax-in2 616  ax-io 711  ax-5 1471  ax-7 1472  ax-gen 1473  ax-ie1 1517  ax-ie2 1518  ax-8 1528  ax-10 1529  ax-11 1530  ax-i12 1531  ax-bndl 1533  ax-4 1534  ax-17 1550  ax-i9 1554  ax-ial 1558  ax-i5r 1559  ax-13 2179  ax-14 2180  ax-ext 2188  ax-sep 4170  ax-nul 4178  ax-pow 4226  ax-pr 4261  ax-un 4488  ax-setind 4593  ax-iinf 4644

This theorem depends on definitions:  df-bi 117  df-dc 837  df-3an 983  df-tru 1376  df-fal 1379  df-nf 1485  df-sb 1787  df-eu 2058  df-mo 2059  df-clab 2193  df-cleq 2199  df-clel 2202  df-nfc 2338  df-ne 2378  df-ral 2490  df-rex 2491  df-v 2775  df-sbc 3003  df-dif 3172  df-un 3174  df-in 3176  df-ss 3183  df-nul 3465  df-pw 3623  df-sn 3644  df-pr 3645  df-op 3647  df-uni 3857  df-int 3892  df-br 4052  df-opab 4114  df-tr 4151  df-id 4348  df-iord 4421  df-on 4423  df-suc 4426  df-iom 4647  df-xp 4689  df-rel 4690  df-cnv 4691  df-co 4692  df-dm 4693  df-rn 4694  df-res 4695  df-ima 4696  df-iota 5241  df-fun 5282  df-fn 5283  df-f 5284  df-f1 5285  df-fo 5286  df-f1o 5287  df-fv 5288  df-1o 6515  df-er 6633  df-en 6841  df-fin 6843

This theorem is referenced by:  fidcenum  7073