Theorem unfi 9151

Description: The union of two finite sets is finite. Part of Corollary 6K of [Enderton] p. 144. (Contributed by NM, 16-Nov-2002.) Avoid ax-pow 5336. (Revised by BTernaryTau, 7-Aug-2024.)

Assertion

Ref	Expression
unfi	⊢ ((𝐴 ∈ Fin ∧ 𝐵 ∈ Fin) → (𝐴 ∪ 𝐵) ∈ Fin)

Proof of Theorem unfi

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

Step	Hyp	Ref	Expression
1		uneq2 4116	. . . . 5 ⊢ (𝑥 = ∅ → (𝐴 ∪ 𝑥) = (𝐴 ∪ ∅))
2	1	eleq1d 2848	. . . 4 ⊢ (𝑥 = ∅ → ((𝐴 ∪ 𝑥) ∈ Fin ↔ (𝐴 ∪ ∅) ∈ Fin))
3	2	imbi2d 343	. . 3 ⊢ (𝑥 = ∅ → ((𝐴 ∈ Fin → (𝐴 ∪ 𝑥) ∈ Fin) ↔ (𝐴 ∈ Fin → (𝐴 ∪ ∅) ∈ Fin)))
4		uneq2 4116	. . . . 5 ⊢ (𝑥 = 𝑦 → (𝐴 ∪ 𝑥) = (𝐴 ∪ 𝑦))
5	4	eleq1d 2848	. . . 4 ⊢ (𝑥 = 𝑦 → ((𝐴 ∪ 𝑥) ∈ Fin ↔ (𝐴 ∪ 𝑦) ∈ Fin))
6	5	imbi2d 343	. . 3 ⊢ (𝑥 = 𝑦 → ((𝐴 ∈ Fin → (𝐴 ∪ 𝑥) ∈ Fin) ↔ (𝐴 ∈ Fin → (𝐴 ∪ 𝑦) ∈ Fin)))
7		uneq2 4116	. . . . 5 ⊢ (𝑥 = (𝑦 ∪ {𝑧}) → (𝐴 ∪ 𝑥) = (𝐴 ∪ (𝑦 ∪ {𝑧})))
8	7	eleq1d 2848	. . . 4 ⊢ (𝑥 = (𝑦 ∪ {𝑧}) → ((𝐴 ∪ 𝑥) ∈ Fin ↔ (𝐴 ∪ (𝑦 ∪ {𝑧})) ∈ Fin))
9	8	imbi2d 343	. . 3 ⊢ (𝑥 = (𝑦 ∪ {𝑧}) → ((𝐴 ∈ Fin → (𝐴 ∪ 𝑥) ∈ Fin) ↔ (𝐴 ∈ Fin → (𝐴 ∪ (𝑦 ∪ {𝑧})) ∈ Fin)))
10		uneq2 4116	. . . . 5 ⊢ (𝑥 = 𝐵 → (𝐴 ∪ 𝑥) = (𝐴 ∪ 𝐵))
11	10	eleq1d 2848	. . . 4 ⊢ (𝑥 = 𝐵 → ((𝐴 ∪ 𝑥) ∈ Fin ↔ (𝐴 ∪ 𝐵) ∈ Fin))
12	11	imbi2d 343	. . 3 ⊢ (𝑥 = 𝐵 → ((𝐴 ∈ Fin → (𝐴 ∪ 𝑥) ∈ Fin) ↔ (𝐴 ∈ Fin → (𝐴 ∪ 𝐵) ∈ Fin)))
13		un0 4351	. . . . 5 ⊢ (𝐴 ∪ ∅) = 𝐴
14	13	eleq1i 2854	. . . 4 ⊢ ((𝐴 ∪ ∅) ∈ Fin ↔ 𝐴 ∈ Fin)
15	14	biimpri 231	. . 3 ⊢ (𝐴 ∈ Fin → (𝐴 ∪ ∅) ∈ Fin)
16		snssi 4751	. . . . . . . . . . 11 ⊢ (𝑧 ∈ 𝐴 → {𝑧} ⊆ 𝐴)
17		ssequn2 4142	. . . . . . . . . . . . . 14 ⊢ ({𝑧} ⊆ 𝐴 ↔ (𝐴 ∪ {𝑧}) = 𝐴)
18	17	biimpi 219	. . . . . . . . . . . . 13 ⊢ ({𝑧} ⊆ 𝐴 → (𝐴 ∪ {𝑧}) = 𝐴)
19	18	uneq2d 4122	. . . . . . . . . . . 12 ⊢ ({𝑧} ⊆ 𝐴 → (𝑦 ∪ (𝐴 ∪ {𝑧})) = (𝑦 ∪ 𝐴))
20		un12 4126	. . . . . . . . . . . 12 ⊢ (𝐴 ∪ (𝑦 ∪ {𝑧})) = (𝑦 ∪ (𝐴 ∪ {𝑧}))
21		uncom 4112	. . . . . . . . . . . 12 ⊢ (𝐴 ∪ 𝑦) = (𝑦 ∪ 𝐴)
22	19, 20, 21	3eqtr4g 2823	. . . . . . . . . . 11 ⊢ ({𝑧} ⊆ 𝐴 → (𝐴 ∪ (𝑦 ∪ {𝑧})) = (𝐴 ∪ 𝑦))
23	16, 22	syl 18	. . . . . . . . . 10 ⊢ (𝑧 ∈ 𝐴 → (𝐴 ∪ (𝑦 ∪ {𝑧})) = (𝐴 ∪ 𝑦))
24	23	eleq1d 2848	. . . . . . . . 9 ⊢ (𝑧 ∈ 𝐴 → ((𝐴 ∪ (𝑦 ∪ {𝑧})) ∈ Fin ↔ (𝐴 ∪ 𝑦) ∈ Fin))
25	24	biimprd 251	. . . . . . . 8 ⊢ (𝑧 ∈ 𝐴 → ((𝐴 ∪ 𝑦) ∈ Fin → (𝐴 ∪ (𝑦 ∪ {𝑧})) ∈ Fin))
26	25	adantld 495	. . . . . . 7 ⊢ (𝑧 ∈ 𝐴 → ((¬ 𝑧 ∈ 𝑦 ∧ (𝐴 ∪ 𝑦) ∈ Fin) → (𝐴 ∪ (𝑦 ∪ {𝑧})) ∈ Fin))
27		isfi 8968	. . . . . . . . . . 11 ⊢ ((𝐴 ∪ 𝑦) ∈ Fin ↔ ∃𝑤 ∈ ω (𝐴 ∪ 𝑦) ≈ 𝑤)
28	27	biimpi 219	. . . . . . . . . 10 ⊢ ((𝐴 ∪ 𝑦) ∈ Fin → ∃𝑤 ∈ ω (𝐴 ∪ 𝑦) ≈ 𝑤)
29		r19.41v 3195	. . . . . . . . . . 11 ⊢ (∃𝑤 ∈ ω ((𝐴 ∪ 𝑦) ≈ 𝑤 ∧ (¬ 𝑧 ∈ 𝐴 ∧ ¬ 𝑧 ∈ 𝑦)) ↔ (∃𝑤 ∈ ω (𝐴 ∪ 𝑦) ≈ 𝑤 ∧ (¬ 𝑧 ∈ 𝐴 ∧ ¬ 𝑧 ∈ 𝑦)))
30		disjsn 4677	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝐴 ∪ 𝑦) ∩ {𝑧}) = ∅ ↔ ¬ 𝑧 ∈ (𝐴 ∪ 𝑦))
31		elun 4107	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑧 ∈ (𝐴 ∪ 𝑦) ↔ (𝑧 ∈ 𝐴 ∨ 𝑧 ∈ 𝑦))
32	31	notbii 323	. . . . . . . . . . . . . . . . . . 19 ⊢ (¬ 𝑧 ∈ (𝐴 ∪ 𝑦) ↔ ¬ (𝑧 ∈ 𝐴 ∨ 𝑧 ∈ 𝑦))
33		pm4.56 1004	. . . . . . . . . . . . . . . . . . 19 ⊢ ((¬ 𝑧 ∈ 𝐴 ∧ ¬ 𝑧 ∈ 𝑦) ↔ ¬ (𝑧 ∈ 𝐴 ∨ 𝑧 ∈ 𝑦))
34	32, 33	bitr4i 281	. . . . . . . . . . . . . . . . . 18 ⊢ (¬ 𝑧 ∈ (𝐴 ∪ 𝑦) ↔ (¬ 𝑧 ∈ 𝐴 ∧ ¬ 𝑧 ∈ 𝑦))
35	30, 34	sylbbr 239	. . . . . . . . . . . . . . . . 17 ⊢ ((¬ 𝑧 ∈ 𝐴 ∧ ¬ 𝑧 ∈ 𝑦) → ((𝐴 ∪ 𝑦) ∩ {𝑧}) = ∅)
36		nnord 7866	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑤 ∈ ω → Ord 𝑤)
37		orddisj 6399	. . . . . . . . . . . . . . . . . . 19 ⊢ (Ord 𝑤 → (𝑤 ∩ {𝑤}) = ∅)
38	36, 37	syl 18	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑤 ∈ ω → (𝑤 ∩ {𝑤}) = ∅)
39		en2sn 9034	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑧 ∈ V ∧ 𝑤 ∈ V) → {𝑧} ≈ {𝑤})
40	39	el2v 3462	. . . . . . . . . . . . . . . . . . 19 ⊢ {𝑧} ≈ {𝑤}
41		unen 9038	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝐴 ∪ 𝑦) ≈ 𝑤 ∧ {𝑧} ≈ {𝑤}) ∧ (((𝐴 ∪ 𝑦) ∩ {𝑧}) = ∅ ∧ (𝑤 ∩ {𝑤}) = ∅)) → ((𝐴 ∪ 𝑦) ∪ {𝑧}) ≈ (𝑤 ∪ {𝑤}))
42	40, 41	mpanl2 713	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝐴 ∪ 𝑦) ≈ 𝑤 ∧ (((𝐴 ∪ 𝑦) ∩ {𝑧}) = ∅ ∧ (𝑤 ∩ {𝑤}) = ∅)) → ((𝐴 ∪ 𝑦) ∪ {𝑧}) ≈ (𝑤 ∪ {𝑤}))
43	38, 42	sylanr2 695	. . . . . . . . . . . . . . . . 17 ⊢ (((𝐴 ∪ 𝑦) ≈ 𝑤 ∧ (((𝐴 ∪ 𝑦) ∩ {𝑧}) = ∅ ∧ 𝑤 ∈ ω)) → ((𝐴 ∪ 𝑦) ∪ {𝑧}) ≈ (𝑤 ∪ {𝑤}))
44	35, 43	sylanr1 694	. . . . . . . . . . . . . . . 16 ⊢ (((𝐴 ∪ 𝑦) ≈ 𝑤 ∧ ((¬ 𝑧 ∈ 𝐴 ∧ ¬ 𝑧 ∈ 𝑦) ∧ 𝑤 ∈ ω)) → ((𝐴 ∪ 𝑦) ∪ {𝑧}) ≈ (𝑤 ∪ {𝑤}))
45	44	3impb 1132	. . . . . . . . . . . . . . 15 ⊢ (((𝐴 ∪ 𝑦) ≈ 𝑤 ∧ (¬ 𝑧 ∈ 𝐴 ∧ ¬ 𝑧 ∈ 𝑦) ∧ 𝑤 ∈ ω) → ((𝐴 ∪ 𝑦) ∪ {𝑧}) ≈ (𝑤 ∪ {𝑤}))
46	45	3comr 1143	. . . . . . . . . . . . . 14 ⊢ ((𝑤 ∈ ω ∧ (𝐴 ∪ 𝑦) ≈ 𝑤 ∧ (¬ 𝑧 ∈ 𝐴 ∧ ¬ 𝑧 ∈ 𝑦)) → ((𝐴 ∪ 𝑦) ∪ {𝑧}) ≈ (𝑤 ∪ {𝑤}))
47	46	3expb 1138	. . . . . . . . . . . . 13 ⊢ ((𝑤 ∈ ω ∧ ((𝐴 ∪ 𝑦) ≈ 𝑤 ∧ (¬ 𝑧 ∈ 𝐴 ∧ ¬ 𝑧 ∈ 𝑦))) → ((𝐴 ∪ 𝑦) ∪ {𝑧}) ≈ (𝑤 ∪ {𝑤}))
48		unass 4125	. . . . . . . . . . . . . 14 ⊢ ((𝐴 ∪ 𝑦) ∪ {𝑧}) = (𝐴 ∪ (𝑦 ∪ {𝑧}))
49		df-suc 6366	. . . . . . . . . . . . . . . . 17 ⊢ suc 𝑤 = (𝑤 ∪ {𝑤})
50		peano2 7882	. . . . . . . . . . . . . . . . 17 ⊢ (𝑤 ∈ ω → suc 𝑤 ∈ ω)
51	49, 50	eqeltrrid 2868	. . . . . . . . . . . . . . . 16 ⊢ (𝑤 ∈ ω → (𝑤 ∪ {𝑤}) ∈ ω)
52		breq2 5113	. . . . . . . . . . . . . . . . 17 ⊢ (𝑣 = (𝑤 ∪ {𝑤}) → (((𝐴 ∪ 𝑦) ∪ {𝑧}) ≈ 𝑣 ↔ ((𝐴 ∪ 𝑦) ∪ {𝑧}) ≈ (𝑤 ∪ {𝑤})))
53	52	rspcev 3581	. . . . . . . . . . . . . . . 16 ⊢ (((𝑤 ∪ {𝑤}) ∈ ω ∧ ((𝐴 ∪ 𝑦) ∪ {𝑧}) ≈ (𝑤 ∪ {𝑤})) → ∃𝑣 ∈ ω ((𝐴 ∪ 𝑦) ∪ {𝑧}) ≈ 𝑣)
54	51, 53	sylan 591	. . . . . . . . . . . . . . 15 ⊢ ((𝑤 ∈ ω ∧ ((𝐴 ∪ 𝑦) ∪ {𝑧}) ≈ (𝑤 ∪ {𝑤})) → ∃𝑣 ∈ ω ((𝐴 ∪ 𝑦) ∪ {𝑧}) ≈ 𝑣)
55		isfi 8968	. . . . . . . . . . . . . . 15 ⊢ (((𝐴 ∪ 𝑦) ∪ {𝑧}) ∈ Fin ↔ ∃𝑣 ∈ ω ((𝐴 ∪ 𝑦) ∪ {𝑧}) ≈ 𝑣)
56	54, 55	sylibr 237	. . . . . . . . . . . . . 14 ⊢ ((𝑤 ∈ ω ∧ ((𝐴 ∪ 𝑦) ∪ {𝑧}) ≈ (𝑤 ∪ {𝑤})) → ((𝐴 ∪ 𝑦) ∪ {𝑧}) ∈ Fin)
57	48, 56	eqeltrrid 2868	. . . . . . . . . . . . 13 ⊢ ((𝑤 ∈ ω ∧ ((𝐴 ∪ 𝑦) ∪ {𝑧}) ≈ (𝑤 ∪ {𝑤})) → (𝐴 ∪ (𝑦 ∪ {𝑧})) ∈ Fin)
58	47, 57	syldan 602	. . . . . . . . . . . 12 ⊢ ((𝑤 ∈ ω ∧ ((𝐴 ∪ 𝑦) ≈ 𝑤 ∧ (¬ 𝑧 ∈ 𝐴 ∧ ¬ 𝑧 ∈ 𝑦))) → (𝐴 ∪ (𝑦 ∪ {𝑧})) ∈ Fin)
59	58	rexlimiva 3158	. . . . . . . . . . 11 ⊢ (∃𝑤 ∈ ω ((𝐴 ∪ 𝑦) ≈ 𝑤 ∧ (¬ 𝑧 ∈ 𝐴 ∧ ¬ 𝑧 ∈ 𝑦)) → (𝐴 ∪ (𝑦 ∪ {𝑧})) ∈ Fin)
60	29, 59	sylbir 238	. . . . . . . . . 10 ⊢ ((∃𝑤 ∈ ω (𝐴 ∪ 𝑦) ≈ 𝑤 ∧ (¬ 𝑧 ∈ 𝐴 ∧ ¬ 𝑧 ∈ 𝑦)) → (𝐴 ∪ (𝑦 ∪ {𝑧})) ∈ Fin)
61	28, 60	sylan 591	. . . . . . . . 9 ⊢ (((𝐴 ∪ 𝑦) ∈ Fin ∧ (¬ 𝑧 ∈ 𝐴 ∧ ¬ 𝑧 ∈ 𝑦)) → (𝐴 ∪ (𝑦 ∪ {𝑧})) ∈ Fin)
62	61	ancoms 463	. . . . . . . 8 ⊢ (((¬ 𝑧 ∈ 𝐴 ∧ ¬ 𝑧 ∈ 𝑦) ∧ (𝐴 ∪ 𝑦) ∈ Fin) → (𝐴 ∪ (𝑦 ∪ {𝑧})) ∈ Fin)
63	62	expl 462	. . . . . . 7 ⊢ (¬ 𝑧 ∈ 𝐴 → ((¬ 𝑧 ∈ 𝑦 ∧ (𝐴 ∪ 𝑦) ∈ Fin) → (𝐴 ∪ (𝑦 ∪ {𝑧})) ∈ Fin))
64	26, 63	pm2.61i 184	. . . . . 6 ⊢ ((¬ 𝑧 ∈ 𝑦 ∧ (𝐴 ∪ 𝑦) ∈ Fin) → (𝐴 ∪ (𝑦 ∪ {𝑧})) ∈ Fin)
65	64	ex 417	. . . . 5 ⊢ (¬ 𝑧 ∈ 𝑦 → ((𝐴 ∪ 𝑦) ∈ Fin → (𝐴 ∪ (𝑦 ∪ {𝑧})) ∈ Fin))
66	65	imim2d 58	. . . 4 ⊢ (¬ 𝑧 ∈ 𝑦 → ((𝐴 ∈ Fin → (𝐴 ∪ 𝑦) ∈ Fin) → (𝐴 ∈ Fin → (𝐴 ∪ (𝑦 ∪ {𝑧})) ∈ Fin)))
67	66	adantl 486	. . 3 ⊢ ((𝑦 ∈ Fin ∧ ¬ 𝑧 ∈ 𝑦) → ((𝐴 ∈ Fin → (𝐴 ∪ 𝑦) ∈ Fin) → (𝐴 ∈ Fin → (𝐴 ∪ (𝑦 ∪ {𝑧})) ∈ Fin)))
68	3, 6, 9, 12, 15, 67	findcard2s 9146	. 2 ⊢ (𝐵 ∈ Fin → (𝐴 ∈ Fin → (𝐴 ∪ 𝐵) ∈ Fin))
69	68	impcom 412	1 ⊢ ((𝐴 ∈ Fin ∧ 𝐵 ∈ Fin) → (𝐴 ∪ 𝐵) ∈ Fin)

Syntax hints:  ¬ wn 3   → wi 4   ∧ wa 400   ∨ wo 860   = wceq 1570   ∈ wcel 2143  ∃wrex 3089  Vcvv 3455   ∪ cun 3903   ∩ cin 3904   ⊆ wss 3905  ∅c0 4286  {csn 4589   class class class wbr 5109  Ord word 6359  suc csuc 6362  ωcom 7858   ≈ cen 8936  Fincfn 8939

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1825  ax-4 1839  ax-5 1940  ax-6 1997  ax-7 2038  ax-8 2145  ax-9 2153  ax-10 2176  ax-11 2192  ax-12 2213  ax-ext 2735  ax-sep 5257  ax-nul 5269  ax-pr 5404  ax-un 7732

This theorem depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3or 1104  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1810  df-nf 1814  df-sb 2097  df-mo 2567  df-eu 2597  df-clab 2742  df-cleq 2755  df-clel 2838  df-nfc 2912  df-ne 2959  df-ral 3080  df-rex 3090  df-reu 3370  df-rab 3417  df-v 3457  df-sbc 3745  df-dif 3908  df-un 3910  df-in 3912  df-ss 3922  df-pss 3925  df-nul 4287  df-if 4488  df-pw 4564  df-sn 4590  df-pr 4592  df-op 4596  df-uni 4873  df-br 5110  df-opab 5174  df-tr 5219  df-id 5556  df-eprel 5561  df-po 5569  df-so 5570  df-fr 5614  df-we 5616  df-xp 5667  df-rel 5668  df-cnv 5669  df-co 5670  df-dm 5671  df-rn 5672  df-res 5673  df-ima 5674  df-ord 6363  df-on 6364  df-lim 6365  df-suc 6366  df-iota 6492  df-fun 6538  df-fn 6539  df-f 6540  df-f1 6541  df-fo 6542  df-f1o 6543  df-fv 6544  df-om 7859  df-en 8940  df-fin 8943

This theorem is referenced by:  unfid  9152  ssfi  9153  cnvfi  9156  fnfi  9158  unfib  9265  unfi2  9266  difinf  9267  pwfilem  9273  xpfi  9275  prfiALT  9280  tpfi  9281  fodomfir  9283  iunfi  9296  fsuppun  9343  fsuppunfi  9344  ressuppfi  9351  fiin  9378  cantnfp1lem1  9643  ficardadju  10179  ficardun2  10181  ackbij1lem6  10203  ackbij1lem16  10213  fin23lem28  10319  fin23lem30  10321  isfin1-3  10365  axcclem  10436  hashun  14414  hashunlei  14458  hashmap  14468  hashbclem  14485  hashf1lem2  14489  hashf1  14490  hash7g  14519  s7f1o  14999  fsumsplitsn  15791  fsummsnunz  15801  fsumsplitsnun  15802  incexclem  15886  isumltss  15898  fprodsplitsn  16039  lcmfunsnlem2lem1  16691  lcmfunsnlem2lem2  16692  lcmfunsnlem2  16693  lcmfun  16698  ramub1lem1  17081  fpwipodrs  18591  acsfiindd  18604  mndpsuppfi  18819  symgfisg  19533  gsumzunsnd  20021  gsumunsnfd  20022  dsmmacl  21891  mplsubg  22151  mpllss  22152  fctop  23161  uncmp  23560  bwth  23567  lfinun  23682  locfincmp  23683  comppfsc  23689  1stckgenlem  23710  ptbasin  23734  cfinfil  24050  fin1aufil  24089  alexsubALTlem3  24206  tmdgsum  24252  tsmsfbas  24285  tsmsgsum  24296  tsmsres  24301  tsmsxplem1  24310  prdsmet  24527  prdsbl  24648  icccmplem2  24981  rrxmval  25564  rrxmet  25567  rrxdstprj1  25568  ovolfiniun  25660  volfiniun  25706  fta1glem2  26326  fta1lem  26468  aannenlem2  26492  aalioulem2  26496  dchrfi  27419  usgrfilem  29677  ffsrn  33073  eulerpartlemt  34761  ballotlemgun  34915  hgt750lemb  35043  hgt750leme  35045  lindsenlbs  38266  poimirlem31  38302  poimirlem32  38303  itg2addnclem2  38323  ftc1anclem7  38350  ftc1anc  38352  prdsbnd  38444  pclfinN  40674  elrfi  43425  mzpcompact2lem  43482  eldioph2  43493  lsmfgcl  43801  fiuneneq  43919  dvmptfprodlem  46658  dvnprodlem2  46661  fourierdlem50  46870  fourierdlem51  46871  fourierdlem54  46874  fourierdlem76  46896  fourierdlem80  46900  fourierdlem102  46922  fourierdlem103  46923  fourierdlem104  46924  fourierdlem114  46934  sge0resplit  47120  sge0iunmptlemfi  47127  sge0xaddlem1  47147  hoiprodp1  47302  sge0hsphoire  47303  hoidmvlelem1  47309  hoidmvlelem2  47310  hoidmvlelem5  47313  hspmbllem2  47341  fsummmodsnunz  48120