Theorem unfiin 6822

Description: The union of two finite sets is finite if their intersection is. (Contributed by Jim Kingdon, 2-Mar-2022.)

Assertion

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

Proof of Theorem unfiin

Step	Hyp	Ref	Expression
1		simpll 519	. . . . . 6 ⊢ (((𝐴 ∈ Fin ∧ 𝐵 ∈ Fin) ∧ (𝐴 ∩ 𝐵) ∈ Fin) → 𝐴 ∈ Fin)
2		simpr 109	. . . . . 6 ⊢ (((𝐴 ∈ Fin ∧ 𝐵 ∈ Fin) ∧ (𝐴 ∩ 𝐵) ∈ Fin) → (𝐴 ∩ 𝐵) ∈ Fin)
3		inss1 3301	. . . . . . 7 ⊢ (𝐴 ∩ 𝐵) ⊆ 𝐴
4	3	a1i 9	. . . . . 6 ⊢ (((𝐴 ∈ Fin ∧ 𝐵 ∈ Fin) ∧ (𝐴 ∩ 𝐵) ∈ Fin) → (𝐴 ∩ 𝐵) ⊆ 𝐴)
5		undiffi 6821	. . . . . 6 ⊢ ((𝐴 ∈ Fin ∧ (𝐴 ∩ 𝐵) ∈ Fin ∧ (𝐴 ∩ 𝐵) ⊆ 𝐴) → 𝐴 = ((𝐴 ∩ 𝐵) ∪ (𝐴 ∖ (𝐴 ∩ 𝐵))))
6	1, 2, 4, 5	syl3anc 1217	. . . . 5 ⊢ (((𝐴 ∈ Fin ∧ 𝐵 ∈ Fin) ∧ (𝐴 ∩ 𝐵) ∈ Fin) → 𝐴 = ((𝐴 ∩ 𝐵) ∪ (𝐴 ∖ (𝐴 ∩ 𝐵))))
7		simplr 520	. . . . . 6 ⊢ (((𝐴 ∈ Fin ∧ 𝐵 ∈ Fin) ∧ (𝐴 ∩ 𝐵) ∈ Fin) → 𝐵 ∈ Fin)
8		inss2 3302	. . . . . . 7 ⊢ (𝐴 ∩ 𝐵) ⊆ 𝐵
9	8	a1i 9	. . . . . 6 ⊢ (((𝐴 ∈ Fin ∧ 𝐵 ∈ Fin) ∧ (𝐴 ∩ 𝐵) ∈ Fin) → (𝐴 ∩ 𝐵) ⊆ 𝐵)
10		undiffi 6821	. . . . . 6 ⊢ ((𝐵 ∈ Fin ∧ (𝐴 ∩ 𝐵) ∈ Fin ∧ (𝐴 ∩ 𝐵) ⊆ 𝐵) → 𝐵 = ((𝐴 ∩ 𝐵) ∪ (𝐵 ∖ (𝐴 ∩ 𝐵))))
11	7, 2, 9, 10	syl3anc 1217	. . . . 5 ⊢ (((𝐴 ∈ Fin ∧ 𝐵 ∈ Fin) ∧ (𝐴 ∩ 𝐵) ∈ Fin) → 𝐵 = ((𝐴 ∩ 𝐵) ∪ (𝐵 ∖ (𝐴 ∩ 𝐵))))
12	6, 11	uneq12d 3236	. . . 4 ⊢ (((𝐴 ∈ Fin ∧ 𝐵 ∈ Fin) ∧ (𝐴 ∩ 𝐵) ∈ Fin) → (𝐴 ∪ 𝐵) = (((𝐴 ∩ 𝐵) ∪ (𝐴 ∖ (𝐴 ∩ 𝐵))) ∪ ((𝐴 ∩ 𝐵) ∪ (𝐵 ∖ (𝐴 ∩ 𝐵)))))
13		unundi 3242	. . . 4 ⊢ ((𝐴 ∩ 𝐵) ∪ ((𝐴 ∖ (𝐴 ∩ 𝐵)) ∪ (𝐵 ∖ (𝐴 ∩ 𝐵)))) = (((𝐴 ∩ 𝐵) ∪ (𝐴 ∖ (𝐴 ∩ 𝐵))) ∪ ((𝐴 ∩ 𝐵) ∪ (𝐵 ∖ (𝐴 ∩ 𝐵))))
14	12, 13	eqtr4di 2191	. . 3 ⊢ (((𝐴 ∈ Fin ∧ 𝐵 ∈ Fin) ∧ (𝐴 ∩ 𝐵) ∈ Fin) → (𝐴 ∪ 𝐵) = ((𝐴 ∩ 𝐵) ∪ ((𝐴 ∖ (𝐴 ∩ 𝐵)) ∪ (𝐵 ∖ (𝐴 ∩ 𝐵)))))
15		diffifi 6796	. . . . . 6 ⊢ ((𝐴 ∈ Fin ∧ (𝐴 ∩ 𝐵) ∈ Fin ∧ (𝐴 ∩ 𝐵) ⊆ 𝐴) → (𝐴 ∖ (𝐴 ∩ 𝐵)) ∈ Fin)
16	1, 2, 4, 15	syl3anc 1217	. . . . 5 ⊢ (((𝐴 ∈ Fin ∧ 𝐵 ∈ Fin) ∧ (𝐴 ∩ 𝐵) ∈ Fin) → (𝐴 ∖ (𝐴 ∩ 𝐵)) ∈ Fin)
17		diffifi 6796	. . . . . 6 ⊢ ((𝐵 ∈ Fin ∧ (𝐴 ∩ 𝐵) ∈ Fin ∧ (𝐴 ∩ 𝐵) ⊆ 𝐵) → (𝐵 ∖ (𝐴 ∩ 𝐵)) ∈ Fin)
18	7, 2, 9, 17	syl3anc 1217	. . . . 5 ⊢ (((𝐴 ∈ Fin ∧ 𝐵 ∈ Fin) ∧ (𝐴 ∩ 𝐵) ∈ Fin) → (𝐵 ∖ (𝐴 ∩ 𝐵)) ∈ Fin)
19		incom 3273	. . . . . . . . . 10 ⊢ (𝐵 ∩ 𝐴) = (𝐴 ∩ 𝐵)
20	19	difeq2i 3196	. . . . . . . . 9 ⊢ (𝐵 ∖ (𝐵 ∩ 𝐴)) = (𝐵 ∖ (𝐴 ∩ 𝐵))
21		difin 3318	. . . . . . . . 9 ⊢ (𝐵 ∖ (𝐵 ∩ 𝐴)) = (𝐵 ∖ 𝐴)
22	20, 21	eqtr3i 2163	. . . . . . . 8 ⊢ (𝐵 ∖ (𝐴 ∩ 𝐵)) = (𝐵 ∖ 𝐴)
23	22	ineq2i 3279	. . . . . . 7 ⊢ ((𝐴 ∖ (𝐴 ∩ 𝐵)) ∩ (𝐵 ∖ (𝐴 ∩ 𝐵))) = ((𝐴 ∖ (𝐴 ∩ 𝐵)) ∩ (𝐵 ∖ 𝐴))
24		difss 3207	. . . . . . . 8 ⊢ (𝐴 ∖ (𝐴 ∩ 𝐵)) ⊆ 𝐴
25		disjdif 3440	. . . . . . . 8 ⊢ (𝐴 ∩ (𝐵 ∖ 𝐴)) = ∅
26		ssdisj 3424	. . . . . . . 8 ⊢ (((𝐴 ∖ (𝐴 ∩ 𝐵)) ⊆ 𝐴 ∧ (𝐴 ∩ (𝐵 ∖ 𝐴)) = ∅) → ((𝐴 ∖ (𝐴 ∩ 𝐵)) ∩ (𝐵 ∖ 𝐴)) = ∅)
27	24, 25, 26	mp2an 423	. . . . . . 7 ⊢ ((𝐴 ∖ (𝐴 ∩ 𝐵)) ∩ (𝐵 ∖ 𝐴)) = ∅
28	23, 27	eqtri 2161	. . . . . 6 ⊢ ((𝐴 ∖ (𝐴 ∩ 𝐵)) ∩ (𝐵 ∖ (𝐴 ∩ 𝐵))) = ∅
29	28	a1i 9	. . . . 5 ⊢ (((𝐴 ∈ Fin ∧ 𝐵 ∈ Fin) ∧ (𝐴 ∩ 𝐵) ∈ Fin) → ((𝐴 ∖ (𝐴 ∩ 𝐵)) ∩ (𝐵 ∖ (𝐴 ∩ 𝐵))) = ∅)
30		unfidisj 6818	. . . . 5 ⊢ (((𝐴 ∖ (𝐴 ∩ 𝐵)) ∈ Fin ∧ (𝐵 ∖ (𝐴 ∩ 𝐵)) ∈ Fin ∧ ((𝐴 ∖ (𝐴 ∩ 𝐵)) ∩ (𝐵 ∖ (𝐴 ∩ 𝐵))) = ∅) → ((𝐴 ∖ (𝐴 ∩ 𝐵)) ∪ (𝐵 ∖ (𝐴 ∩ 𝐵))) ∈ Fin)
31	16, 18, 29, 30	syl3anc 1217	. . . 4 ⊢ (((𝐴 ∈ Fin ∧ 𝐵 ∈ Fin) ∧ (𝐴 ∩ 𝐵) ∈ Fin) → ((𝐴 ∖ (𝐴 ∩ 𝐵)) ∪ (𝐵 ∖ (𝐴 ∩ 𝐵))) ∈ Fin)
32		difundir 3334	. . . . . . 7 ⊢ ((𝐴 ∪ 𝐵) ∖ (𝐴 ∩ 𝐵)) = ((𝐴 ∖ (𝐴 ∩ 𝐵)) ∪ (𝐵 ∖ (𝐴 ∩ 𝐵)))
33	32	ineq2i 3279	. . . . . 6 ⊢ ((𝐴 ∩ 𝐵) ∩ ((𝐴 ∪ 𝐵) ∖ (𝐴 ∩ 𝐵))) = ((𝐴 ∩ 𝐵) ∩ ((𝐴 ∖ (𝐴 ∩ 𝐵)) ∪ (𝐵 ∖ (𝐴 ∩ 𝐵))))
34		disjdif 3440	. . . . . 6 ⊢ ((𝐴 ∩ 𝐵) ∩ ((𝐴 ∪ 𝐵) ∖ (𝐴 ∩ 𝐵))) = ∅
35	33, 34	eqtr3i 2163	. . . . 5 ⊢ ((𝐴 ∩ 𝐵) ∩ ((𝐴 ∖ (𝐴 ∩ 𝐵)) ∪ (𝐵 ∖ (𝐴 ∩ 𝐵)))) = ∅
36	35	a1i 9	. . . 4 ⊢ (((𝐴 ∈ Fin ∧ 𝐵 ∈ Fin) ∧ (𝐴 ∩ 𝐵) ∈ Fin) → ((𝐴 ∩ 𝐵) ∩ ((𝐴 ∖ (𝐴 ∩ 𝐵)) ∪ (𝐵 ∖ (𝐴 ∩ 𝐵)))) = ∅)
37		unfidisj 6818	. . . 4 ⊢ (((𝐴 ∩ 𝐵) ∈ Fin ∧ ((𝐴 ∖ (𝐴 ∩ 𝐵)) ∪ (𝐵 ∖ (𝐴 ∩ 𝐵))) ∈ Fin ∧ ((𝐴 ∩ 𝐵) ∩ ((𝐴 ∖ (𝐴 ∩ 𝐵)) ∪ (𝐵 ∖ (𝐴 ∩ 𝐵)))) = ∅) → ((𝐴 ∩ 𝐵) ∪ ((𝐴 ∖ (𝐴 ∩ 𝐵)) ∪ (𝐵 ∖ (𝐴 ∩ 𝐵)))) ∈ Fin)
38	2, 31, 36, 37	syl3anc 1217	. . 3 ⊢ (((𝐴 ∈ Fin ∧ 𝐵 ∈ Fin) ∧ (𝐴 ∩ 𝐵) ∈ Fin) → ((𝐴 ∩ 𝐵) ∪ ((𝐴 ∖ (𝐴 ∩ 𝐵)) ∪ (𝐵 ∖ (𝐴 ∩ 𝐵)))) ∈ Fin)
39	14, 38	eqeltrd 2217	. 2 ⊢ (((𝐴 ∈ Fin ∧ 𝐵 ∈ Fin) ∧ (𝐴 ∩ 𝐵) ∈ Fin) → (𝐴 ∪ 𝐵) ∈ Fin)
40	39	3impa 1177	1 ⊢ ((𝐴 ∈ Fin ∧ 𝐵 ∈ Fin ∧ (𝐴 ∩ 𝐵) ∈ Fin) → (𝐴 ∪ 𝐵) ∈ Fin)

Syntax hints:   → wi 4   ∧ wa 103   ∧ w3a 963   = wceq 1332   ∈ wcel 1481   ∖ cdif 3073   ∪ cun 3074   ∩ cin 3075   ⊆ wss 3076  ∅c0 3368  Fincfn 6642

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 105  ax-ia2 106  ax-ia3 107  ax-in1 604  ax-in2 605  ax-io 699  ax-5 1424  ax-7 1425  ax-gen 1426  ax-ie1 1470  ax-ie2 1471  ax-8 1483  ax-10 1484  ax-11 1485  ax-i12 1486  ax-bndl 1487  ax-4 1488  ax-13 1492  ax-14 1493  ax-17 1507  ax-i9 1511  ax-ial 1515  ax-i5r 1516  ax-ext 2122  ax-coll 4051  ax-sep 4054  ax-nul 4062  ax-pow 4106  ax-pr 4139  ax-un 4363  ax-setind 4460  ax-iinf 4510

This theorem depends on definitions:  df-bi 116  df-dc 821  df-3or 964  df-3an 965  df-tru 1335  df-fal 1338  df-nf 1438  df-sb 1737  df-eu 2003  df-mo 2004  df-clab 2127  df-cleq 2133  df-clel 2136  df-nfc 2271  df-ne 2310  df-ral 2422  df-rex 2423  df-reu 2424  df-rab 2426  df-v 2691  df-sbc 2914  df-csb 3008  df-dif 3078  df-un 3080  df-in 3082  df-ss 3089  df-nul 3369  df-if 3480  df-pw 3517  df-sn 3538  df-pr 3539  df-op 3541  df-uni 3745  df-int 3780  df-iun 3823  df-br 3938  df-opab 3998  df-mpt 3999  df-tr 4035  df-id 4223  df-iord 4296  df-on 4298  df-suc 4301  df-iom 4513  df-xp 4553  df-rel 4554  df-cnv 4555  df-co 4556  df-dm 4557  df-rn 4558  df-res 4559  df-ima 4560  df-iota 5096  df-fun 5133  df-fn 5134  df-f 5135  df-f1 5136  df-fo 5137  df-f1o 5138  df-fv 5139  df-1o 6321  df-er 6437  df-en 6643  df-fin 6645

This theorem is referenced by: (None)