Theorem findcard 6967

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 6838	. . 3 ⊢ (𝑥 ∈ Fin ↔ ∃𝑤 ∈ ω 𝑥 ≈ 𝑤)
3		breq2 4047	. . . . . . . 8 ⊢ (𝑤 = ∅ → (𝑥 ≈ 𝑤 ↔ 𝑥 ≈ ∅))
4	3	imbi1d 231	. . . . . . 7 ⊢ (𝑤 = ∅ → ((𝑥 ≈ 𝑤 → 𝜑) ↔ (𝑥 ≈ ∅ → 𝜑)))
5	4	albidv 1846	. . . . . 6 ⊢ (𝑤 = ∅ → (∀𝑥(𝑥 ≈ 𝑤 → 𝜑) ↔ ∀𝑥(𝑥 ≈ ∅ → 𝜑)))
6		breq2 4047	. . . . . . . 8 ⊢ (𝑤 = 𝑣 → (𝑥 ≈ 𝑤 ↔ 𝑥 ≈ 𝑣))
7	6	imbi1d 231	. . . . . . 7 ⊢ (𝑤 = 𝑣 → ((𝑥 ≈ 𝑤 → 𝜑) ↔ (𝑥 ≈ 𝑣 → 𝜑)))
8	7	albidv 1846	. . . . . 6 ⊢ (𝑤 = 𝑣 → (∀𝑥(𝑥 ≈ 𝑤 → 𝜑) ↔ ∀𝑥(𝑥 ≈ 𝑣 → 𝜑)))
9		breq2 4047	. . . . . . . 8 ⊢ (𝑤 = suc 𝑣 → (𝑥 ≈ 𝑤 ↔ 𝑥 ≈ suc 𝑣))
10	9	imbi1d 231	. . . . . . 7 ⊢ (𝑤 = suc 𝑣 → ((𝑥 ≈ 𝑤 → 𝜑) ↔ (𝑥 ≈ suc 𝑣 → 𝜑)))
11	10	albidv 1846	. . . . . 6 ⊢ (𝑤 = suc 𝑣 → (∀𝑥(𝑥 ≈ 𝑤 → 𝜑) ↔ ∀𝑥(𝑥 ≈ suc 𝑣 → 𝜑)))
12		en0 6872	. . . . . . . 8 ⊢ (𝑥 ≈ ∅ ↔ 𝑥 = ∅)
13		findcard.5	. . . . . . . . 9 ⊢ 𝜓
14		findcard.1	. . . . . . . . 9 ⊢ (𝑥 = ∅ → (𝜑 ↔ 𝜓))
15	13, 14	mpbiri 168	. . . . . . . 8 ⊢ (𝑥 = ∅ → 𝜑)
16	12, 15	sylbi 121	. . . . . . 7 ⊢ (𝑥 ≈ ∅ → 𝜑)
17	16	ax-gen 1471	. . . . . 6 ⊢ ∀𝑥(𝑥 ≈ ∅ → 𝜑)
18		peano2 4641	. . . . . . . . . . . . 13 ⊢ (𝑣 ∈ ω → suc 𝑣 ∈ ω)
19		breq2 4047	. . . . . . . . . . . . . 14 ⊢ (𝑤 = suc 𝑣 → (𝑦 ≈ 𝑤 ↔ 𝑦 ≈ suc 𝑣))
20	19	rspcev 2876	. . . . . . . . . . . . 13 ⊢ ((suc 𝑣 ∈ ω ∧ 𝑦 ≈ suc 𝑣) → ∃𝑤 ∈ ω 𝑦 ≈ 𝑤)
21	18, 20	sylan 283	. . . . . . . . . . . 12 ⊢ ((𝑣 ∈ ω ∧ 𝑦 ≈ suc 𝑣) → ∃𝑤 ∈ ω 𝑦 ≈ 𝑤)
22		isfi 6838	. . . . . . . . . . . 12 ⊢ (𝑦 ∈ Fin ↔ ∃𝑤 ∈ ω 𝑦 ≈ 𝑤)
23	21, 22	sylibr 134	. . . . . . . . . . 11 ⊢ ((𝑣 ∈ ω ∧ 𝑦 ≈ suc 𝑣) → 𝑦 ∈ Fin)
24	23	3adant2 1018	. . . . . . . . . 10 ⊢ ((𝑣 ∈ ω ∧ ∀𝑥(𝑥 ≈ 𝑣 → 𝜑) ∧ 𝑦 ≈ suc 𝑣) → 𝑦 ∈ Fin)
25		dif1en 6958	. . . . . . . . . . . . . . . 16 ⊢ ((𝑣 ∈ ω ∧ 𝑦 ≈ suc 𝑣 ∧ 𝑧 ∈ 𝑦) → (𝑦 ∖ {𝑧}) ≈ 𝑣)
26	25	3expa 1205	. . . . . . . . . . . . . . 15 ⊢ (((𝑣 ∈ ω ∧ 𝑦 ≈ suc 𝑣) ∧ 𝑧 ∈ 𝑦) → (𝑦 ∖ {𝑧}) ≈ 𝑣)
27		vex 2774	. . . . . . . . . . . . . . . . 17 ⊢ 𝑦 ∈ V
28		difexg 4184	. . . . . . . . . . . . . . . . 17 ⊢ (𝑦 ∈ V → (𝑦 ∖ {𝑧}) ∈ V)
29	27, 28	ax-mp 5	. . . . . . . . . . . . . . . 16 ⊢ (𝑦 ∖ {𝑧}) ∈ V
30		breq1 4046	. . . . . . . . . . . . . . . . 17 ⊢ (𝑥 = (𝑦 ∖ {𝑧}) → (𝑥 ≈ 𝑣 ↔ (𝑦 ∖ {𝑧}) ≈ 𝑣))
31		findcard.2	. . . . . . . . . . . . . . . . 17 ⊢ (𝑥 = (𝑦 ∖ {𝑧}) → (𝜑 ↔ 𝜒))
32	30, 31	imbi12d 234	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 = (𝑦 ∖ {𝑧}) → ((𝑥 ≈ 𝑣 → 𝜑) ↔ ((𝑦 ∖ {𝑧}) ≈ 𝑣 → 𝜒)))
33	29, 32	spcv 2866	. . . . . . . . . . . . . . 15 ⊢ (∀𝑥(𝑥 ≈ 𝑣 → 𝜑) → ((𝑦 ∖ {𝑧}) ≈ 𝑣 → 𝜒))
34	26, 33	syl5com 29	. . . . . . . . . . . . . 14 ⊢ (((𝑣 ∈ ω ∧ 𝑦 ≈ suc 𝑣) ∧ 𝑧 ∈ 𝑦) → (∀𝑥(𝑥 ≈ 𝑣 → 𝜑) → 𝜒))
35	34	ralrimdva 2585	. . . . . . . . . . . . 13 ⊢ ((𝑣 ∈ ω ∧ 𝑦 ≈ suc 𝑣) → (∀𝑥(𝑥 ≈ 𝑣 → 𝜑) → ∀𝑧 ∈ 𝑦 𝜒))
36	35	imp 124	. . . . . . . . . . . 12 ⊢ (((𝑣 ∈ ω ∧ 𝑦 ≈ suc 𝑣) ∧ ∀𝑥(𝑥 ≈ 𝑣 → 𝜑)) → ∀𝑧 ∈ 𝑦 𝜒)
37	36	an32s 568	. . . . . . . . . . 11 ⊢ (((𝑣 ∈ ω ∧ ∀𝑥(𝑥 ≈ 𝑣 → 𝜑)) ∧ 𝑦 ≈ suc 𝑣) → ∀𝑧 ∈ 𝑦 𝜒)
38	37	3impa 1196	. . . . . . . . . 10 ⊢ ((𝑣 ∈ ω ∧ ∀𝑥(𝑥 ≈ 𝑣 → 𝜑) ∧ 𝑦 ≈ suc 𝑣) → ∀𝑧 ∈ 𝑦 𝜒)
39		findcard.6	. . . . . . . . . 10 ⊢ (𝑦 ∈ Fin → (∀𝑧 ∈ 𝑦 𝜒 → 𝜃))
40	24, 38, 39	sylc 62	. . . . . . . . 9 ⊢ ((𝑣 ∈ ω ∧ ∀𝑥(𝑥 ≈ 𝑣 → 𝜑) ∧ 𝑦 ≈ suc 𝑣) → 𝜃)
41	40	3exp 1204	. . . . . . . 8 ⊢ (𝑣 ∈ ω → (∀𝑥(𝑥 ≈ 𝑣 → 𝜑) → (𝑦 ≈ suc 𝑣 → 𝜃)))
42	41	alrimdv 1898	. . . . . . 7 ⊢ (𝑣 ∈ ω → (∀𝑥(𝑥 ≈ 𝑣 → 𝜑) → ∀𝑦(𝑦 ≈ suc 𝑣 → 𝜃)))
43		breq1 4046	. . . . . . . . 9 ⊢ (𝑥 = 𝑦 → (𝑥 ≈ suc 𝑣 ↔ 𝑦 ≈ suc 𝑣))
44		findcard.3	. . . . . . . . 9 ⊢ (𝑥 = 𝑦 → (𝜑 ↔ 𝜃))
45	43, 44	imbi12d 234	. . . . . . . 8 ⊢ (𝑥 = 𝑦 → ((𝑥 ≈ suc 𝑣 → 𝜑) ↔ (𝑦 ≈ suc 𝑣 → 𝜃)))
46	45	cbvalv 1940	. . . . . . 7 ⊢ (∀𝑥(𝑥 ≈ suc 𝑣 → 𝜑) ↔ ∀𝑦(𝑦 ≈ suc 𝑣 → 𝜃))
47	42, 46	imbitrrdi 162	. . . . . 6 ⊢ (𝑣 ∈ ω → (∀𝑥(𝑥 ≈ 𝑣 → 𝜑) → ∀𝑥(𝑥 ≈ suc 𝑣 → 𝜑)))
48	5, 8, 11, 17, 47	finds1 4648	. . . . 5 ⊢ (𝑤 ∈ ω → ∀𝑥(𝑥 ≈ 𝑤 → 𝜑))
49	48	19.21bi 1580	. . . 4 ⊢ (𝑤 ∈ ω → (𝑥 ≈ 𝑤 → 𝜑))
50	49	rexlimiv 2616	. . 3 ⊢ (∃𝑤 ∈ ω 𝑥 ≈ 𝑤 → 𝜑)
51	2, 50	sylbi 121	. 2 ⊢ (𝑥 ∈ Fin → 𝜑)
52	1, 51	vtoclga 2838	1 ⊢ (𝐴 ∈ Fin → 𝜏)

Syntax hints:   → wi 4   ∧ wa 104   ↔ wb 105   ∧ w3a 980  ∀wal 1370   = wceq 1372   ∈ wcel 2175  ∀wral 2483  ∃wrex 2484  Vcvv 2771   ∖ cdif 3162  ∅c0 3459  {csn 3632   class class class wbr 4043  suc csuc 4410  ωcom 4636   ≈ cen 6815  Fincfn 6817

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 710  ax-5 1469  ax-7 1470  ax-gen 1471  ax-ie1 1515  ax-ie2 1516  ax-8 1526  ax-10 1527  ax-11 1528  ax-i12 1529  ax-bndl 1531  ax-4 1532  ax-17 1548  ax-i9 1552  ax-ial 1556  ax-i5r 1557  ax-13 2177  ax-14 2178  ax-ext 2186  ax-coll 4158  ax-sep 4161  ax-nul 4169  ax-pow 4217  ax-pr 4252  ax-un 4478  ax-setind 4583  ax-iinf 4634

This theorem depends on definitions:  df-bi 117  df-dc 836  df-3or 981  df-3an 982  df-tru 1375  df-fal 1378  df-nf 1483  df-sb 1785  df-eu 2056  df-mo 2057  df-clab 2191  df-cleq 2197  df-clel 2200  df-nfc 2336  df-ne 2376  df-ral 2488  df-rex 2489  df-reu 2490  df-rab 2492  df-v 2773  df-sbc 2998  df-csb 3093  df-dif 3167  df-un 3169  df-in 3171  df-ss 3178  df-nul 3460  df-if 3571  df-pw 3617  df-sn 3638  df-pr 3639  df-op 3641  df-uni 3850  df-int 3885  df-iun 3928  df-br 4044  df-opab 4105  df-mpt 4106  df-tr 4142  df-id 4338  df-iord 4411  df-on 4413  df-suc 4416  df-iom 4637  df-xp 4679  df-rel 4680  df-cnv 4681  df-co 4682  df-dm 4683  df-rn 4684  df-res 4685  df-ima 4686  df-iota 5229  df-fun 5270  df-fn 5271  df-f 5272  df-f1 5273  df-fo 5274  df-f1o 5275  df-fv 5276  df-er 6610  df-en 6818  df-fin 6820

This theorem is referenced by:  xpfi  7011