Theorem diffifi 6872

Description: Subtracting one finite set from another produces a finite set. (Contributed by Jim Kingdon, 8-Sep-2021.)

Assertion

Ref	Expression
diffifi	|- ( ( A e. Fin /\ B e. Fin /\ B C_ A ) -> ( A \ B ) e. Fin )

Proof of Theorem diffifi

Dummy variables w y z are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		simp2 993	. 2 |- ( ( A e. Fin /\ B e. Fin /\ B C_ A ) -> B e. Fin )
2		simp1 992	. 2 |- ( ( A e. Fin /\ B e. Fin /\ B C_ A ) -> A e. Fin )
3		simp3 994	. 2 |- ( ( A e. Fin /\ B e. Fin /\ B C_ A ) -> B C_ A )
4		sseq1 3170	. . . . . 6 |- ( w = (/) -> ( w C_ A <-> (/) C_ A ) )
5	4	anbi2d 461	. . . . 5 |- ( w = (/) -> ( ( A e. Fin /\ w C_ A ) <-> ( A e. Fin /\ (/) C_ A ) ) )
6		difeq2 3239	. . . . . 6 |- ( w = (/) -> ( A \ w ) = ( A \ (/) ) )
7	6	eleq1d 2239	. . . . 5 |- ( w = (/) -> ( ( A \ w ) e. Fin <-> ( A \ (/) ) e. Fin ) )
8	5, 7	imbi12d 233	. . . 4 |- ( w = (/) -> ( ( ( A e. Fin /\ w C_ A ) -> ( A \ w ) e. Fin ) <-> ( ( A e. Fin /\ (/) C_ A ) -> ( A \ (/) ) e. Fin ) ) )
9		sseq1 3170	. . . . . 6 |- ( w = y -> ( w C_ A <-> y C_ A ) )
10	9	anbi2d 461	. . . . 5 |- ( w = y -> ( ( A e. Fin /\ w C_ A ) <-> ( A e. Fin /\ y C_ A ) ) )
11		difeq2 3239	. . . . . 6 |- ( w = y -> ( A \ w ) = ( A \ y ) )
12	11	eleq1d 2239	. . . . 5 |- ( w = y -> ( ( A \ w ) e. Fin <-> ( A \ y ) e. Fin ) )
13	10, 12	imbi12d 233	. . . 4 |- ( w = y -> ( ( ( A e. Fin /\ w C_ A ) -> ( A \ w ) e. Fin ) <-> ( ( A e. Fin /\ y C_ A ) -> ( A \ y ) e. Fin ) ) )
14		sseq1 3170	. . . . . 6 |- ( w = ( y u. { z } ) -> ( w C_ A <-> ( y u. { z } ) C_ A ) )
15	14	anbi2d 461	. . . . 5 |- ( w = ( y u. { z } ) -> ( ( A e. Fin /\ w C_ A ) <-> ( A e. Fin /\ ( y u. { z } ) C_ A ) ) )
16		difeq2 3239	. . . . . 6 |- ( w = ( y u. { z } ) -> ( A \ w ) = ( A \ ( y u. { z } ) ) )
17	16	eleq1d 2239	. . . . 5 |- ( w = ( y u. { z } ) -> ( ( A \ w ) e. Fin <-> ( A \ ( y u. { z } ) ) e. Fin ) )
18	15, 17	imbi12d 233	. . . 4 |- ( w = ( y u. { z } ) -> ( ( ( A e. Fin /\ w C_ A ) -> ( A \ w ) e. Fin ) <-> ( ( A e. Fin /\ ( y u. { z } ) C_ A ) -> ( A \ ( y u. { z } ) ) e. Fin ) ) )
19		sseq1 3170	. . . . . 6 |- ( w = B -> ( w C_ A <-> B C_ A ) )
20	19	anbi2d 461	. . . . 5 |- ( w = B -> ( ( A e. Fin /\ w C_ A ) <-> ( A e. Fin /\ B C_ A ) ) )
21		difeq2 3239	. . . . . 6 |- ( w = B -> ( A \ w ) = ( A \ B ) )
22	21	eleq1d 2239	. . . . 5 |- ( w = B -> ( ( A \ w ) e. Fin <-> ( A \ B ) e. Fin ) )
23	20, 22	imbi12d 233	. . . 4 |- ( w = B -> ( ( ( A e. Fin /\ w C_ A ) -> ( A \ w ) e. Fin ) <-> ( ( A e. Fin /\ B C_ A ) -> ( A \ B ) e. Fin ) ) )
24		dif0 3485	. . . . . . 7 |- ( A \ (/) ) = A
25	24	eleq1i 2236	. . . . . 6 |- ( ( A \ (/) ) e. Fin <-> A e. Fin )
26	25	biimpri 132	. . . . 5 |- ( A e. Fin -> ( A \ (/) ) e. Fin )
27	26	adantr 274	. . . 4 |- ( ( A e. Fin /\ (/) C_ A ) -> ( A \ (/) ) e. Fin )
28		difun1 3387	. . . . . 6 |- ( A \ ( y u. { z } ) ) = ( ( A \ y ) \ { z } )
29		simprl 526	. . . . . . . 8 |- ( ( ( ( y e. Fin /\ -. z e. y ) /\ ( ( A e. Fin /\ y C_ A ) -> ( A \ y ) e. Fin ) ) /\ ( A e. Fin /\ ( y u. { z } ) C_ A ) ) -> A e. Fin )
30		simprr 527	. . . . . . . . 9 |- ( ( ( ( y e. Fin /\ -. z e. y ) /\ ( ( A e. Fin /\ y C_ A ) -> ( A \ y ) e. Fin ) ) /\ ( A e. Fin /\ ( y u. { z } ) C_ A ) ) -> ( y u. { z } ) C_ A )
31	30	unssad 3304	. . . . . . . 8 |- ( ( ( ( y e. Fin /\ -. z e. y ) /\ ( ( A e. Fin /\ y C_ A ) -> ( A \ y ) e. Fin ) ) /\ ( A e. Fin /\ ( y u. { z } ) C_ A ) ) -> y C_ A )
32		simplr 525	. . . . . . . 8 |- ( ( ( ( y e. Fin /\ -. z e. y ) /\ ( ( A e. Fin /\ y C_ A ) -> ( A \ y ) e. Fin ) ) /\ ( A e. Fin /\ ( y u. { z } ) C_ A ) ) -> ( ( A e. Fin /\ y C_ A ) -> ( A \ y ) e. Fin ) )
33	29, 31, 32	mp2and 431	. . . . . . 7 |- ( ( ( ( y e. Fin /\ -. z e. y ) /\ ( ( A e. Fin /\ y C_ A ) -> ( A \ y ) e. Fin ) ) /\ ( A e. Fin /\ ( y u. { z } ) C_ A ) ) -> ( A \ y ) e. Fin )
34		vsnid 3615	. . . . . . . . . 10 |- z e. { z }
35		simprr 527	. . . . . . . . . . . 12 |- ( ( ( y e. Fin /\ ( ( A e. Fin /\ y C_ A ) -> ( A \ y ) e. Fin ) ) /\ ( A e. Fin /\ ( y u. { z } ) C_ A ) ) -> ( y u. { z } ) C_ A )
36	35	unssbd 3305	. . . . . . . . . . 11 |- ( ( ( y e. Fin /\ ( ( A e. Fin /\ y C_ A ) -> ( A \ y ) e. Fin ) ) /\ ( A e. Fin /\ ( y u. { z } ) C_ A ) ) -> { z } C_ A )
37	36	sseld 3146	. . . . . . . . . 10 |- ( ( ( y e. Fin /\ ( ( A e. Fin /\ y C_ A ) -> ( A \ y ) e. Fin ) ) /\ ( A e. Fin /\ ( y u. { z } ) C_ A ) ) -> ( z e. { z } -> z e. A ) )
38	34, 37	mpi 15	. . . . . . . . 9 |- ( ( ( y e. Fin /\ ( ( A e. Fin /\ y C_ A ) -> ( A \ y ) e. Fin ) ) /\ ( A e. Fin /\ ( y u. { z } ) C_ A ) ) -> z e. A )
39	38	adantllr 478	. . . . . . . 8 |- ( ( ( ( y e. Fin /\ -. z e. y ) /\ ( ( A e. Fin /\ y C_ A ) -> ( A \ y ) e. Fin ) ) /\ ( A e. Fin /\ ( y u. { z } ) C_ A ) ) -> z e. A )
40		simpllr 529	. . . . . . . 8 |- ( ( ( ( y e. Fin /\ -. z e. y ) /\ ( ( A e. Fin /\ y C_ A ) -> ( A \ y ) e. Fin ) ) /\ ( A e. Fin /\ ( y u. { z } ) C_ A ) ) -> -. z e. y )
41	39, 40	eldifd 3131	. . . . . . 7 |- ( ( ( ( y e. Fin /\ -. z e. y ) /\ ( ( A e. Fin /\ y C_ A ) -> ( A \ y ) e. Fin ) ) /\ ( A e. Fin /\ ( y u. { z } ) C_ A ) ) -> z e. ( A \ y ) )
42		diffisn 6871	. . . . . . 7 |- ( ( ( A \ y ) e. Fin /\ z e. ( A \ y ) ) -> ( ( A \ y ) \ { z } ) e. Fin )
43	33, 41, 42	syl2anc 409	. . . . . 6 |- ( ( ( ( y e. Fin /\ -. z e. y ) /\ ( ( A e. Fin /\ y C_ A ) -> ( A \ y ) e. Fin ) ) /\ ( A e. Fin /\ ( y u. { z } ) C_ A ) ) -> ( ( A \ y ) \ { z } ) e. Fin )
44	28, 43	eqeltrid 2257	. . . . 5 |- ( ( ( ( y e. Fin /\ -. z e. y ) /\ ( ( A e. Fin /\ y C_ A ) -> ( A \ y ) e. Fin ) ) /\ ( A e. Fin /\ ( y u. { z } ) C_ A ) ) -> ( A \ ( y u. { z } ) ) e. Fin )
45	44	exp31 362	. . . 4 |- ( ( y e. Fin /\ -. z e. y ) -> ( ( ( A e. Fin /\ y C_ A ) -> ( A \ y ) e. Fin ) -> ( ( A e. Fin /\ ( y u. { z } ) C_ A ) -> ( A \ ( y u. { z } ) ) e. Fin ) ) )
46	8, 13, 18, 23, 27, 45	findcard2s 6868	. . 3 |- ( B e. Fin -> ( ( A e. Fin /\ B C_ A ) -> ( A \ B ) e. Fin ) )
47	46	imp 123	. 2 |- ( ( B e. Fin /\ ( A e. Fin /\ B C_ A ) ) -> ( A \ B ) e. Fin )
48	1, 2, 3, 47	syl12anc 1231	1 |- ( ( A e. Fin /\ B e. Fin /\ B C_ A ) -> ( A \ B ) e. Fin )

Syntax hints:   -. wn 3   -> wi 4   /\ wa 103   /\ w3a 973   = wceq 1348   e. wcel 2141   \ cdif 3118   u. cun 3119   C_ wss 3121   (/)c0 3414   {csn 3583   Fincfn 6718

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 609  ax-in2 610  ax-io 704  ax-5 1440  ax-7 1441  ax-gen 1442  ax-ie1 1486  ax-ie2 1487  ax-8 1497  ax-10 1498  ax-11 1499  ax-i12 1500  ax-bndl 1502  ax-4 1503  ax-17 1519  ax-i9 1523  ax-ial 1527  ax-i5r 1528  ax-13 2143  ax-14 2144  ax-ext 2152  ax-coll 4104  ax-sep 4107  ax-nul 4115  ax-pow 4160  ax-pr 4194  ax-un 4418  ax-setind 4521  ax-iinf 4572

This theorem depends on definitions:  df-bi 116  df-dc 830  df-3or 974  df-3an 975  df-tru 1351  df-fal 1354  df-nf 1454  df-sb 1756  df-eu 2022  df-mo 2023  df-clab 2157  df-cleq 2163  df-clel 2166  df-nfc 2301  df-ne 2341  df-ral 2453  df-rex 2454  df-reu 2455  df-rab 2457  df-v 2732  df-sbc 2956  df-csb 3050  df-dif 3123  df-un 3125  df-in 3127  df-ss 3134  df-nul 3415  df-if 3527  df-pw 3568  df-sn 3589  df-pr 3590  df-op 3592  df-uni 3797  df-int 3832  df-iun 3875  df-br 3990  df-opab 4051  df-mpt 4052  df-tr 4088  df-id 4278  df-iord 4351  df-on 4353  df-suc 4356  df-iom 4575  df-xp 4617  df-rel 4618  df-cnv 4619  df-co 4620  df-dm 4621  df-rn 4622  df-res 4623  df-ima 4624  df-iota 5160  df-fun 5200  df-fn 5201  df-f 5202  df-f1 5203  df-fo 5204  df-f1o 5205  df-fv 5206  df-er 6513  df-en 6719  df-fin 6721

This theorem is referenced by:  unfiin  6903  fihashssdif  10753  hashdifpr  10755  fsumlessfi  11423  hash2iun1dif1  11443