Theorem findcard 9088

Description: Schema for induction on the cardinality of a finite set. The inductive hypothesis is that the result is true on the given set with any one element removed. The result is then proven to be true for all finite sets. (Contributed by Jeff Madsen, 2-Sep-2009.)

Hypotheses

Ref	Expression
findcard.1	⊢ (𝑥 = ∅ → (𝜑 ↔ 𝜓))
findcard.2	⊢ (𝑥 = (𝑦 ∖ {𝑧}) → (𝜑 ↔ 𝜒))
findcard.3	⊢ (𝑥 = 𝑦 → (𝜑 ↔ 𝜃))
findcard.4	⊢ (𝑥 = 𝐴 → (𝜑 ↔ 𝜏))
findcard.5	⊢ 𝜓
findcard.6	⊢ (𝑦 ∈ Fin → (∀𝑧 ∈ 𝑦 𝜒 → 𝜃))

Assertion

Ref	Expression
findcard	⊢ (𝐴 ∈ Fin → 𝜏)

Distinct variable groups:   𝑥,𝑦,𝑧,𝐴   𝜓,𝑥   𝜒,𝑥   𝜃,𝑥   𝜏,𝑥   𝜑,𝑦,𝑧

Allowed substitution hints:   𝜑(𝑥)   𝜓(𝑦,𝑧)   𝜒(𝑦,𝑧)   𝜃(𝑦,𝑧)   𝜏(𝑦,𝑧)

Proof of Theorem findcard

Dummy variables 𝑤 𝑣 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		findcard.4	. 2 ⊢ (𝑥 = 𝐴 → (𝜑 ↔ 𝜏))
2		isfi 8912	. . 3 ⊢ (𝑥 ∈ Fin ↔ ∃𝑤 ∈ ω 𝑥 ≈ 𝑤)
3		breq2 5102	. . . . . . . 8 ⊢ (𝑤 = ∅ → (𝑥 ≈ 𝑤 ↔ 𝑥 ≈ ∅))
4	3	imbi1d 341	. . . . . . 7 ⊢ (𝑤 = ∅ → ((𝑥 ≈ 𝑤 → 𝜑) ↔ (𝑥 ≈ ∅ → 𝜑)))
5	4	albidv 1921	. . . . . 6 ⊢ (𝑤 = ∅ → (∀𝑥(𝑥 ≈ 𝑤 → 𝜑) ↔ ∀𝑥(𝑥 ≈ ∅ → 𝜑)))
6		breq2 5102	. . . . . . . 8 ⊢ (𝑤 = 𝑣 → (𝑥 ≈ 𝑤 ↔ 𝑥 ≈ 𝑣))
7	6	imbi1d 341	. . . . . . 7 ⊢ (𝑤 = 𝑣 → ((𝑥 ≈ 𝑤 → 𝜑) ↔ (𝑥 ≈ 𝑣 → 𝜑)))
8	7	albidv 1921	. . . . . 6 ⊢ (𝑤 = 𝑣 → (∀𝑥(𝑥 ≈ 𝑤 → 𝜑) ↔ ∀𝑥(𝑥 ≈ 𝑣 → 𝜑)))
9		breq2 5102	. . . . . . . 8 ⊢ (𝑤 = suc 𝑣 → (𝑥 ≈ 𝑤 ↔ 𝑥 ≈ suc 𝑣))
10	9	imbi1d 341	. . . . . . 7 ⊢ (𝑤 = suc 𝑣 → ((𝑥 ≈ 𝑤 → 𝜑) ↔ (𝑥 ≈ suc 𝑣 → 𝜑)))
11	10	albidv 1921	. . . . . 6 ⊢ (𝑤 = suc 𝑣 → (∀𝑥(𝑥 ≈ 𝑤 → 𝜑) ↔ ∀𝑥(𝑥 ≈ suc 𝑣 → 𝜑)))
12		en0 8955	. . . . . . . 8 ⊢ (𝑥 ≈ ∅ ↔ 𝑥 = ∅)
13		findcard.5	. . . . . . . . 9 ⊢ 𝜓
14		findcard.1	. . . . . . . . 9 ⊢ (𝑥 = ∅ → (𝜑 ↔ 𝜓))
15	13, 14	mpbiri 258	. . . . . . . 8 ⊢ (𝑥 = ∅ → 𝜑)
16	12, 15	sylbi 217	. . . . . . 7 ⊢ (𝑥 ≈ ∅ → 𝜑)
17	16	ax-gen 1796	. . . . . 6 ⊢ ∀𝑥(𝑥 ≈ ∅ → 𝜑)
18		peano2 7832	. . . . . . . . . . . . 13 ⊢ (𝑣 ∈ ω → suc 𝑣 ∈ ω)
19		breq2 5102	. . . . . . . . . . . . . 14 ⊢ (𝑤 = suc 𝑣 → (𝑦 ≈ 𝑤 ↔ 𝑦 ≈ suc 𝑣))
20	19	rspcev 3576	. . . . . . . . . . . . 13 ⊢ ((suc 𝑣 ∈ ω ∧ 𝑦 ≈ suc 𝑣) → ∃𝑤 ∈ ω 𝑦 ≈ 𝑤)
21	18, 20	sylan 580	. . . . . . . . . . . 12 ⊢ ((𝑣 ∈ ω ∧ 𝑦 ≈ suc 𝑣) → ∃𝑤 ∈ ω 𝑦 ≈ 𝑤)
22		isfi 8912	. . . . . . . . . . . 12 ⊢ (𝑦 ∈ Fin ↔ ∃𝑤 ∈ ω 𝑦 ≈ 𝑤)
23	21, 22	sylibr 234	. . . . . . . . . . 11 ⊢ ((𝑣 ∈ ω ∧ 𝑦 ≈ suc 𝑣) → 𝑦 ∈ Fin)
24	23	3adant2 1131	. . . . . . . . . 10 ⊢ ((𝑣 ∈ ω ∧ ∀𝑥(𝑥 ≈ 𝑣 → 𝜑) ∧ 𝑦 ≈ suc 𝑣) → 𝑦 ∈ Fin)
25		dif1ennn 9087	. . . . . . . . . . . . . . . 16 ⊢ ((𝑣 ∈ ω ∧ 𝑦 ≈ suc 𝑣 ∧ 𝑧 ∈ 𝑦) → (𝑦 ∖ {𝑧}) ≈ 𝑣)
26	25	3expa 1118	. . . . . . . . . . . . . . 15 ⊢ (((𝑣 ∈ ω ∧ 𝑦 ≈ suc 𝑣) ∧ 𝑧 ∈ 𝑦) → (𝑦 ∖ {𝑧}) ≈ 𝑣)
27		vex 3444	. . . . . . . . . . . . . . . . 17 ⊢ 𝑦 ∈ V
28	27	difexi 5275	. . . . . . . . . . . . . . . 16 ⊢ (𝑦 ∖ {𝑧}) ∈ V
29		breq1 5101	. . . . . . . . . . . . . . . . 17 ⊢ (𝑥 = (𝑦 ∖ {𝑧}) → (𝑥 ≈ 𝑣 ↔ (𝑦 ∖ {𝑧}) ≈ 𝑣))
30		findcard.2	. . . . . . . . . . . . . . . . 17 ⊢ (𝑥 = (𝑦 ∖ {𝑧}) → (𝜑 ↔ 𝜒))
31	29, 30	imbi12d 344	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 = (𝑦 ∖ {𝑧}) → ((𝑥 ≈ 𝑣 → 𝜑) ↔ ((𝑦 ∖ {𝑧}) ≈ 𝑣 → 𝜒)))
32	28, 31	spcv 3559	. . . . . . . . . . . . . . 15 ⊢ (∀𝑥(𝑥 ≈ 𝑣 → 𝜑) → ((𝑦 ∖ {𝑧}) ≈ 𝑣 → 𝜒))
33	26, 32	syl5com 31	. . . . . . . . . . . . . 14 ⊢ (((𝑣 ∈ ω ∧ 𝑦 ≈ suc 𝑣) ∧ 𝑧 ∈ 𝑦) → (∀𝑥(𝑥 ≈ 𝑣 → 𝜑) → 𝜒))
34	33	ralrimdva 3136	. . . . . . . . . . . . 13 ⊢ ((𝑣 ∈ ω ∧ 𝑦 ≈ suc 𝑣) → (∀𝑥(𝑥 ≈ 𝑣 → 𝜑) → ∀𝑧 ∈ 𝑦 𝜒))
35	34	imp 406	. . . . . . . . . . . 12 ⊢ (((𝑣 ∈ ω ∧ 𝑦 ≈ suc 𝑣) ∧ ∀𝑥(𝑥 ≈ 𝑣 → 𝜑)) → ∀𝑧 ∈ 𝑦 𝜒)
36	35	an32s 652	. . . . . . . . . . 11 ⊢ (((𝑣 ∈ ω ∧ ∀𝑥(𝑥 ≈ 𝑣 → 𝜑)) ∧ 𝑦 ≈ suc 𝑣) → ∀𝑧 ∈ 𝑦 𝜒)
37	36	3impa 1109	. . . . . . . . . 10 ⊢ ((𝑣 ∈ ω ∧ ∀𝑥(𝑥 ≈ 𝑣 → 𝜑) ∧ 𝑦 ≈ suc 𝑣) → ∀𝑧 ∈ 𝑦 𝜒)
38		findcard.6	. . . . . . . . . 10 ⊢ (𝑦 ∈ Fin → (∀𝑧 ∈ 𝑦 𝜒 → 𝜃))
39	24, 37, 38	sylc 65	. . . . . . . . 9 ⊢ ((𝑣 ∈ ω ∧ ∀𝑥(𝑥 ≈ 𝑣 → 𝜑) ∧ 𝑦 ≈ suc 𝑣) → 𝜃)
40	39	3exp 1119	. . . . . . . 8 ⊢ (𝑣 ∈ ω → (∀𝑥(𝑥 ≈ 𝑣 → 𝜑) → (𝑦 ≈ suc 𝑣 → 𝜃)))
41	40	alrimdv 1930	. . . . . . 7 ⊢ (𝑣 ∈ ω → (∀𝑥(𝑥 ≈ 𝑣 → 𝜑) → ∀𝑦(𝑦 ≈ suc 𝑣 → 𝜃)))
42		breq1 5101	. . . . . . . . 9 ⊢ (𝑥 = 𝑦 → (𝑥 ≈ suc 𝑣 ↔ 𝑦 ≈ suc 𝑣))
43		findcard.3	. . . . . . . . 9 ⊢ (𝑥 = 𝑦 → (𝜑 ↔ 𝜃))
44	42, 43	imbi12d 344	. . . . . . . 8 ⊢ (𝑥 = 𝑦 → ((𝑥 ≈ suc 𝑣 → 𝜑) ↔ (𝑦 ≈ suc 𝑣 → 𝜃)))
45	44	cbvalvw 2037	. . . . . . 7 ⊢ (∀𝑥(𝑥 ≈ suc 𝑣 → 𝜑) ↔ ∀𝑦(𝑦 ≈ suc 𝑣 → 𝜃))
46	41, 45	imbitrrdi 252	. . . . . 6 ⊢ (𝑣 ∈ ω → (∀𝑥(𝑥 ≈ 𝑣 → 𝜑) → ∀𝑥(𝑥 ≈ suc 𝑣 → 𝜑)))
47	5, 8, 11, 17, 46	finds1 7841	. . . . 5 ⊢ (𝑤 ∈ ω → ∀𝑥(𝑥 ≈ 𝑤 → 𝜑))
48	47	19.21bi 2196	. . . 4 ⊢ (𝑤 ∈ ω → (𝑥 ≈ 𝑤 → 𝜑))
49	48	rexlimiv 3130	. . 3 ⊢ (∃𝑤 ∈ ω 𝑥 ≈ 𝑤 → 𝜑)
50	2, 49	sylbi 217	. 2 ⊢ (𝑥 ∈ Fin → 𝜑)
51	1, 50	vtoclga 3532	1 ⊢ (𝐴 ∈ Fin → 𝜏)

Syntax hints:   → wi 4   ↔ wb 206   ∧ wa 395   ∧ w3a 1086  ∀wal 1539   = wceq 1541   ∈ wcel 2113  ∀wral 3051  ∃wrex 3060   ∖ cdif 3898  ∅c0 4285  {csn 4580   class class class wbr 5098  suc csuc 6319  ωcom 7808   ≈ cen 8880  Fincfn 8883

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1911  ax-6 1968  ax-7 2009  ax-8 2115  ax-9 2123  ax-10 2146  ax-11 2162  ax-12 2184  ax-ext 2708  ax-sep 5241  ax-nul 5251  ax-pr 5377  ax-un 7680

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1544  df-fal 1554  df-ex 1781  df-nf 1785  df-sb 2068  df-mo 2539  df-eu 2569  df-clab 2715  df-cleq 2728  df-clel 2811  df-nfc 2885  df-ne 2933  df-ral 3052  df-rex 3061  df-reu 3351  df-rab 3400  df-v 3442  df-sbc 3741  df-csb 3850  df-dif 3904  df-un 3906  df-in 3908  df-ss 3918  df-pss 3921  df-nul 4286  df-if 4480  df-pw 4556  df-sn 4581  df-pr 4583  df-op 4587  df-uni 4864  df-br 5099  df-opab 5161  df-mpt 5180  df-tr 5206  df-id 5519  df-eprel 5524  df-po 5532  df-so 5533  df-fr 5577  df-we 5579  df-xp 5630  df-rel 5631  df-cnv 5632  df-co 5633  df-dm 5634  df-rn 5635  df-res 5636  df-ima 5637  df-ord 6320  df-on 6321  df-lim 6322  df-suc 6323  df-iota 6448  df-fun 6494  df-fn 6495  df-f 6496  df-f1 6497  df-fo 6498  df-f1o 6499  df-fv 6500  df-om 7809  df-en 8884  df-fin 8887

This theorem is referenced by: (None)