Theorem findcard2 6346

Description: Schema for induction on the cardinality of a finite set. The inductive step shows that the result is true if one more element is added to the set. The result is then proven to be true for all finite sets. (Contributed by Jeff Madsen, 8-Jul-2010.)

Hypotheses

Ref	Expression
findcard2.1	|- ( x = (/) -> ( ph <-> ps ) )
findcard2.2	|- ( x = y -> ( ph <-> ch ) )
findcard2.3	|- ( x = ( y u. { z } ) -> ( ph <-> th ) )
findcard2.4	|- ( x = A -> ( ph <-> ta ) )
findcard2.5	|- ps
findcard2.6	|- ( y e. Fin -> ( ch -> th ) )

Assertion

Ref	Expression
findcard2	|- ( A e. Fin -> ta )

Distinct variable groups:   x, y, z, A   ps, x   ch, x   th, x   ta, x   ph, y, z

Allowed substitution hints:   ph( x)   ps( y, z)   ch( y, z)   th( y, z)   ta( y, z)

Proof of Theorem findcard2

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

Step	Hyp	Ref	Expression
1		findcard2.4	. 2 |- ( x = A -> ( ph <-> ta ) )
2		isfi 6241	. . 3 |- ( x e. Fin <-> E. w e. om x ~~ w )
3		breq2 3768	. . . . . . . 8 |- ( w = (/) -> ( x ~~ w <-> x ~~ (/) ) )
4	3	imbi1d 220	. . . . . . 7 |- ( w = (/) -> ( ( x ~~ w -> ph ) <-> ( x ~~ (/) -> ph ) ) )
5	4	albidv 1705	. . . . . 6 |- ( w = (/) -> ( A. x ( x ~~ w -> ph ) <-> A. x ( x ~~ (/) -> ph ) ) )
6		breq2 3768	. . . . . . . 8 |- ( w = v -> ( x ~~ w <-> x ~~ v ) )
7	6	imbi1d 220	. . . . . . 7 |- ( w = v -> ( ( x ~~ w -> ph ) <-> ( x ~~ v -> ph ) ) )
8	7	albidv 1705	. . . . . 6 |- ( w = v -> ( A. x ( x ~~ w -> ph ) <-> A. x ( x ~~ v -> ph ) ) )
9		breq2 3768	. . . . . . . 8 |- ( w = suc v -> ( x ~~ w <-> x ~~ suc v ) )
10	9	imbi1d 220	. . . . . . 7 |- ( w = suc v -> ( ( x ~~ w -> ph ) <-> ( x ~~ suc v -> ph ) ) )
11	10	albidv 1705	. . . . . 6 |- ( w = suc v -> ( A. x ( x ~~ w -> ph ) <-> A. x ( x ~~ suc v -> ph ) ) )
12		en0 6275	. . . . . . . 8 |- ( x ~~ (/) <-> x = (/) )
13		findcard2.5	. . . . . . . . 9 |- ps
14		findcard2.1	. . . . . . . . 9 |- ( x = (/) -> ( ph <-> ps ) )
15	13, 14	mpbiri 157	. . . . . . . 8 |- ( x = (/) -> ph )
16	12, 15	sylbi 114	. . . . . . 7 |- ( x ~~ (/) -> ph )
17	16	ax-gen 1338	. . . . . 6 |- A. x ( x ~~ (/) -> ph )
18		peano3 4319	. . . . . . . . . . . . 13 |- ( v e. om -> suc v =/= (/) )
19	18	adantr 261	. . . . . . . . . . . 12 |- ( ( v e. om /\ w ~~ suc v ) -> suc v =/= (/) )
20		breq1 3767	. . . . . . . . . . . . . . . 16 |- ( w = (/) -> ( w ~~ suc v <-> (/) ~~ suc v ) )
21	20	anbi2d 437	. . . . . . . . . . . . . . 15 |- ( w = (/) -> ( ( v e. om /\ w ~~ suc v ) <-> ( v e. om /\ (/) ~~ suc v ) ) )
22		peano1 4317	. . . . . . . . . . . . . . . . . 18 |- (/) e. om
23		peano2 4318	. . . . . . . . . . . . . . . . . 18 |- ( v e. om -> suc v e. om )
24		nneneq 6320	. . . . . . . . . . . . . . . . . 18 |- ( ( (/) e. om /\ suc v e. om ) -> ( (/) ~~ suc v <-> (/) = suc v ) )
25	22, 23, 24	sylancr 393	. . . . . . . . . . . . . . . . 17 |- ( v e. om -> ( (/) ~~ suc v <-> (/) = suc v ) )
26	25	biimpa 280	. . . . . . . . . . . . . . . 16 |- ( ( v e. om /\ (/) ~~ suc v ) -> (/) = suc v )
27	26	eqcomd 2045	. . . . . . . . . . . . . . 15 |- ( ( v e. om /\ (/) ~~ suc v ) -> suc v = (/) )
28	21, 27	syl6bi 152	. . . . . . . . . . . . . 14 |- ( w = (/) -> ( ( v e. om /\ w ~~ suc v ) -> suc v = (/) ) )
29	28	com12 27	. . . . . . . . . . . . 13 |- ( ( v e. om /\ w ~~ suc v ) -> ( w = (/) -> suc v = (/) ) )
30	29	necon3d 2249	. . . . . . . . . . . 12 |- ( ( v e. om /\ w ~~ suc v ) -> ( suc v =/= (/) -> w =/= (/) ) )
31	19, 30	mpd 13	. . . . . . . . . . 11 |- ( ( v e. om /\ w ~~ suc v ) -> w =/= (/) )
32	31	ex 108	. . . . . . . . . 10 |- ( v e. om -> ( w ~~ suc v -> w =/= (/) ) )
33		nnfi 6333	. . . . . . . . . . . . . . . 16 |- ( suc v e. om -> suc v e. Fin )
34	23, 33	syl 14	. . . . . . . . . . . . . . 15 |- ( v e. om -> suc v e. Fin )
35	34	adantr 261	. . . . . . . . . . . . . 14 |- ( ( v e. om /\ w ~~ suc v ) -> suc v e. Fin )
36		enfi 6334	. . . . . . . . . . . . . . 15 |- ( w ~~ suc v -> ( w e. Fin <-> suc v e. Fin ) )
37	36	adantl 262	. . . . . . . . . . . . . 14 |- ( ( v e. om /\ w ~~ suc v ) -> ( w e. Fin <-> suc v e. Fin ) )
38	35, 37	mpbird 156	. . . . . . . . . . . . 13 |- ( ( v e. om /\ w ~~ suc v ) -> w e. Fin )
39		fin0 6342	. . . . . . . . . . . . 13 |- ( w e. Fin -> ( w =/= (/) <-> E. z z e. w ) )
40	38, 39	syl 14	. . . . . . . . . . . 12 |- ( ( v e. om /\ w ~~ suc v ) -> ( w =/= (/) <-> E. z z e. w ) )
41		simpll 481	. . . . . . . . . . . . . . 15 |- ( ( ( v e. om /\ w ~~ suc v ) /\ z e. w ) -> v e. om )
42		dif1en 6337	. . . . . . . . . . . . . . . 16 |- ( ( v e. om /\ w ~~ suc v /\ z e. w ) -> ( w \ { z } ) ~~ v )
43	42	3expa 1104	. . . . . . . . . . . . . . 15 |- ( ( ( v e. om /\ w ~~ suc v ) /\ z e. w ) -> ( w \ { z } ) ~~ v )
44		fidifsnid 6332	. . . . . . . . . . . . . . . . 17 |- ( ( w e. Fin /\ z e. w ) -> ( ( w \ { z } ) u. { z } ) = w )
45	38, 44	sylan 267	. . . . . . . . . . . . . . . 16 |- ( ( ( v e. om /\ w ~~ suc v ) /\ z e. w ) -> ( ( w \ { z } ) u. { z } ) = w )
46		vex 2560	. . . . . . . . . . . . . . . . . . 19 |- w e. _V
47		difexg 3898	. . . . . . . . . . . . . . . . . . 19 |- ( w e. _V -> ( w \ { z } ) e. _V )
48	46, 47	ax-mp 7	. . . . . . . . . . . . . . . . . 18 |- ( w \ { z } ) e. _V
49		breq1 3767	. . . . . . . . . . . . . . . . . . . 20 |- ( y = ( w \ { z } ) -> ( y ~~ v <-> ( w \ { z } ) ~~ v ) )
50	49	anbi2d 437	. . . . . . . . . . . . . . . . . . 19 |- ( y = ( w \ { z } ) -> ( ( v e. om /\ y ~~ v ) <-> ( v e. om /\ ( w \ { z } ) ~~ v ) ) )
51		uneq1 3090	. . . . . . . . . . . . . . . . . . . . 21 |- ( y = ( w \ { z } ) -> ( y u. { z } ) = ( ( w \ { z } ) u. { z } ) )
52	51	sbceq1d 2769	. . . . . . . . . . . . . . . . . . . 20 |- ( y = ( w \ { z } ) -> ( [. ( y u. { z } ) / x ]. ph <-> [. ( ( w \ { z } ) u. { z } ) / x ]. ph ) )
53	52	imbi2d 219	. . . . . . . . . . . . . . . . . . 19 |- ( y = ( w \ { z } ) -> ( ( A. x ( x ~~ v -> ph ) -> [. ( y u. { z } ) / x ]. ph ) <-> ( A. x ( x ~~ v -> ph ) -> [. ( ( w \ { z } ) u. { z } ) / x ]. ph ) ) )
54	50, 53	imbi12d 223	. . . . . . . . . . . . . . . . . 18 |- ( y = ( w \ { z } ) -> ( ( ( v e. om /\ y ~~ v ) -> ( A. x ( x ~~ v -> ph ) -> [. ( y u. { z } ) / x ]. ph ) ) <-> ( ( v e. om /\ ( w \ { z } ) ~~ v ) -> ( A. x ( x ~~ v -> ph ) -> [. ( ( w \ { z } ) u. { z } ) / x ]. ph ) ) ) )
55		breq1 3767	. . . . . . . . . . . . . . . . . . . . . 22 |- ( x = y -> ( x ~~ v <-> y ~~ v ) )
56		findcard2.2	. . . . . . . . . . . . . . . . . . . . . 22 |- ( x = y -> ( ph <-> ch ) )
57	55, 56	imbi12d 223	. . . . . . . . . . . . . . . . . . . . 21 |- ( x = y -> ( ( x ~~ v -> ph ) <-> ( y ~~ v -> ch ) ) )
58	57	spv 1740	. . . . . . . . . . . . . . . . . . . 20 |- ( A. x ( x ~~ v -> ph ) -> ( y ~~ v -> ch ) )
59		rspe 2370	. . . . . . . . . . . . . . . . . . . . . 22 |- ( ( v e. om /\ y ~~ v ) -> E. v e. om y ~~ v )
60		isfi 6241	. . . . . . . . . . . . . . . . . . . . . 22 |- ( y e. Fin <-> E. v e. om y ~~ v )
61	59, 60	sylibr 137	. . . . . . . . . . . . . . . . . . . . 21 |- ( ( v e. om /\ y ~~ v ) -> y e. Fin )
62		pm2.27 35	. . . . . . . . . . . . . . . . . . . . . 22 |- ( y ~~ v -> ( ( y ~~ v -> ch ) -> ch ) )
63	62	adantl 262	. . . . . . . . . . . . . . . . . . . . 21 |- ( ( v e. om /\ y ~~ v ) -> ( ( y ~~ v -> ch ) -> ch ) )
64		findcard2.6	. . . . . . . . . . . . . . . . . . . . 21 |- ( y e. Fin -> ( ch -> th ) )
65	61, 63, 64	sylsyld 52	. . . . . . . . . . . . . . . . . . . 20 |- ( ( v e. om /\ y ~~ v ) -> ( ( y ~~ v -> ch ) -> th ) )
66	58, 65	syl5 28	. . . . . . . . . . . . . . . . . . 19 |- ( ( v e. om /\ y ~~ v ) -> ( A. x ( x ~~ v -> ph ) -> th ) )
67		vex 2560	. . . . . . . . . . . . . . . . . . . . 21 |- y e. _V
68		vex 2560	. . . . . . . . . . . . . . . . . . . . . 22 |- z e. _V
69	68	snex 3937	. . . . . . . . . . . . . . . . . . . . 21 |- { z } e. _V
70	67, 69	unex 4176	. . . . . . . . . . . . . . . . . . . 20 |- ( y u. { z } ) e. _V
71		findcard2.3	. . . . . . . . . . . . . . . . . . . 20 |- ( x = ( y u. { z } ) -> ( ph <-> th ) )
72	70, 71	sbcie 2797	. . . . . . . . . . . . . . . . . . 19 |- ( [. ( y u. { z } ) / x ]. ph <-> th )
73	66, 72	syl6ibr 151	. . . . . . . . . . . . . . . . . 18 |- ( ( v e. om /\ y ~~ v ) -> ( A. x ( x ~~ v -> ph ) -> [. ( y u. { z } ) / x ]. ph ) )
74	48, 54, 73	vtocl 2608	. . . . . . . . . . . . . . . . 17 |- ( ( v e. om /\ ( w \ { z } ) ~~ v ) -> ( A. x ( x ~~ v -> ph ) -> [. ( ( w \ { z } ) u. { z } ) / x ]. ph ) )
75		dfsbcq 2766	. . . . . . . . . . . . . . . . . 18 |- ( ( ( w \ { z } ) u. { z } ) = w -> ( [. ( ( w \ { z } ) u. { z } ) / x ]. ph <-> [. w / x ]. ph ) )
76	75	imbi2d 219	. . . . . . . . . . . . . . . . 17 |- ( ( ( w \ { z } ) u. { z } ) = w -> ( ( A. x ( x ~~ v -> ph ) -> [. ( ( w \ { z } ) u. { z } ) / x ]. ph ) <-> ( A. x ( x ~~ v -> ph ) -> [. w / x ]. ph ) ) )
77	74, 76	syl5ib 143	. . . . . . . . . . . . . . . 16 |- ( ( ( w \ { z } ) u. { z } ) = w -> ( ( v e. om /\ ( w \ { z } ) ~~ v ) -> ( A. x ( x ~~ v -> ph ) -> [. w / x ]. ph ) ) )
78	45, 77	syl 14	. . . . . . . . . . . . . . 15 |- ( ( ( v e. om /\ w ~~ suc v ) /\ z e. w ) -> ( ( v e. om /\ ( w \ { z } ) ~~ v ) -> ( A. x ( x ~~ v -> ph ) -> [. w / x ]. ph ) ) )
79	41, 43, 78	mp2and 409	. . . . . . . . . . . . . 14 |- ( ( ( v e. om /\ w ~~ suc v ) /\ z e. w ) -> ( A. x ( x ~~ v -> ph ) -> [. w / x ]. ph ) )
80	79	ex 108	. . . . . . . . . . . . 13 |- ( ( v e. om /\ w ~~ suc v ) -> ( z e. w -> ( A. x ( x ~~ v -> ph ) -> [. w / x ]. ph ) ) )
81	80	exlimdv 1700	. . . . . . . . . . . 12 |- ( ( v e. om /\ w ~~ suc v ) -> ( E. z z e. w -> ( A. x ( x ~~ v -> ph ) -> [. w / x ]. ph ) ) )
82	40, 81	sylbid 139	. . . . . . . . . . 11 |- ( ( v e. om /\ w ~~ suc v ) -> ( w =/= (/) -> ( A. x ( x ~~ v -> ph ) -> [. w / x ]. ph ) ) )
83	82	ex 108	. . . . . . . . . 10 |- ( v e. om -> ( w ~~ suc v -> ( w =/= (/) -> ( A. x ( x ~~ v -> ph ) -> [. w / x ]. ph ) ) ) )
84	32, 83	mpdd 36	. . . . . . . . 9 |- ( v e. om -> ( w ~~ suc v -> ( A. x ( x ~~ v -> ph ) -> [. w / x ]. ph ) ) )
85	84	com23 72	. . . . . . . 8 |- ( v e. om -> ( A. x ( x ~~ v -> ph ) -> ( w ~~ suc v -> [. w / x ]. ph ) ) )
86	85	alrimdv 1756	. . . . . . 7 |- ( v e. om -> ( A. x ( x ~~ v -> ph ) -> A. w ( w ~~ suc v -> [. w / x ]. ph ) ) )
87		nfv 1421	. . . . . . . 8 |- F/ w ( x ~~ suc v -> ph )
88		nfv 1421	. . . . . . . . 9 |- F/ x w ~~ suc v
89		nfsbc1v 2782	. . . . . . . . 9 |- F/ x [. w / x ]. ph
90	88, 89	nfim 1464	. . . . . . . 8 |- F/ x ( w ~~ suc v -> [. w / x ]. ph )
91		breq1 3767	. . . . . . . . 9 |- ( x = w -> ( x ~~ suc v <-> w ~~ suc v ) )
92		sbceq1a 2773	. . . . . . . . 9 |- ( x = w -> ( ph <-> [. w / x ]. ph ) )
93	91, 92	imbi12d 223	. . . . . . . 8 |- ( x = w -> ( ( x ~~ suc v -> ph ) <-> ( w ~~ suc v -> [. w / x ]. ph ) ) )
94	87, 90, 93	cbval 1637	. . . . . . 7 |- ( A. x ( x ~~ suc v -> ph ) <-> A. w ( w ~~ suc v -> [. w / x ]. ph ) )
95	86, 94	syl6ibr 151	. . . . . 6 |- ( v e. om -> ( A. x ( x ~~ v -> ph ) -> A. x ( x ~~ suc v -> ph ) ) )
96	5, 8, 11, 17, 95	finds1 4325	. . . . 5 |- ( w e. om -> A. x ( x ~~ w -> ph ) )
97	96	19.21bi 1450	. . . 4 |- ( w e. om -> ( x ~~ w -> ph ) )
98	97	rexlimiv 2427	. . 3 |- ( E. w e. om x ~~ w -> ph )
99	2, 98	sylbi 114	. 2 |- ( x e. Fin -> ph )
100	1, 99	vtoclga 2619	1 |- ( A e. Fin -> ta )

Syntax hints:   -> wi 4   /\ wa 97   <-> wb 98   A.wal 1241   = wceq 1243   E.wex 1381   e. wcel 1393   =/= wne 2204   E.wrex 2307   _Vcvv 2557   [.wsbc 2764   \ cdif 2914   u. cun 2915   (/)c0 3224   {csn 3375   class class class wbr 3764   suc csuc 4102   omcom 4313   ~~ cen 6219   Fincfn 6221

This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-mp 7  ax-ia1 99  ax-ia2 100  ax-ia3 101  ax-in1 544  ax-in2 545  ax-io 630  ax-5 1336  ax-7 1337  ax-gen 1338  ax-ie1 1382  ax-ie2 1383  ax-8 1395  ax-10 1396  ax-11 1397  ax-i12 1398  ax-bndl 1399  ax-4 1400  ax-13 1404  ax-14 1405  ax-17 1419  ax-i9 1423  ax-ial 1427  ax-i5r 1428  ax-ext 2022  ax-coll 3872  ax-sep 3875  ax-nul 3883  ax-pow 3927  ax-pr 3944  ax-un 4170  ax-setind 4262  ax-iinf 4311

This theorem depends on definitions:  df-bi 110  df-dc 743  df-3or 886  df-3an 887  df-tru 1246  df-fal 1249  df-nf 1350  df-sb 1646  df-eu 1903  df-mo 1904  df-clab 2027  df-cleq 2033  df-clel 2036  df-nfc 2167  df-ne 2206  df-ral 2311  df-rex 2312  df-reu 2313  df-rab 2315  df-v 2559  df-sbc 2765  df-csb 2853  df-dif 2920  df-un 2922  df-in 2924  df-ss 2931  df-nul 3225  df-if 3332  df-pw 3361  df-sn 3381  df-pr 3382  df-op 3384  df-uni 3581  df-int 3616  df-iun 3659  df-br 3765  df-opab 3819  df-mpt 3820  df-tr 3855  df-id 4030  df-iord 4103  df-on 4105  df-suc 4108  df-iom 4314  df-xp 4351  df-rel 4352  df-cnv 4353  df-co 4354  df-dm 4355  df-rn 4356  df-res 4357  df-ima 4358  df-iota 4867  df-fun 4904  df-fn 4905  df-f 4906  df-f1 4907  df-fo 4908  df-f1o 4909  df-fv 4910  df-er 6106  df-en 6222  df-fin 6224

This theorem is referenced by: (None)