Theorem dcdifsnid 6671

Description: If we remove a single element from a set with decidable equality then put it back in, we end up with the original set. This strengthens difsnss 3819 from subset to equality but the proof relies on equality being decidable. (Contributed by Jim Kingdon, 17-Jun-2022.)

Assertion

Ref	Expression
dcdifsnid	|- ( ( A. x e. A A. y e. A DECID x = y /\ B e. A ) -> ( ( A \ { B } ) u. { B } ) = A )

Distinct variable groups:   x, A, y   x, B, y

Proof of Theorem dcdifsnid

Dummy variable z is distinct from all other variables.

Step	Hyp	Ref	Expression
1		difsnss 3819	. . 3 |- ( B e. A -> ( ( A \ { B } ) u. { B } ) C_ A )
2	1	adantl 277	. 2 |- ( ( A. x e. A A. y e. A DECID x = y /\ B e. A ) -> ( ( A \ { B } ) u. { B } ) C_ A )
3		simpr 110	. . . . . . 7 |- ( ( ( ( A. x e. A A. y e. A DECID x = y /\ B e. A ) /\ z e. A ) /\ z = B ) -> z = B )
4		velsn 3686	. . . . . . 7 |- ( z e. { B } <-> z = B )
5	3, 4	sylibr 134	. . . . . 6 |- ( ( ( ( A. x e. A A. y e. A DECID x = y /\ B e. A ) /\ z e. A ) /\ z = B ) -> z e. { B } )
6		elun2 3375	. . . . . 6 |- ( z e. { B } -> z e. ( ( A \ { B } ) u. { B } ) )
7	5, 6	syl 14	. . . . 5 |- ( ( ( ( A. x e. A A. y e. A DECID x = y /\ B e. A ) /\ z e. A ) /\ z = B ) -> z e. ( ( A \ { B } ) u. { B } ) )
8		simplr 529	. . . . . . 7 |- ( ( ( ( A. x e. A A. y e. A DECID x = y /\ B e. A ) /\ z e. A ) /\ -. z = B ) -> z e. A )
9		simpr 110	. . . . . . . 8 |- ( ( ( ( A. x e. A A. y e. A DECID x = y /\ B e. A ) /\ z e. A ) /\ -. z = B ) -> -. z = B )
10	9, 4	sylnibr 683	. . . . . . 7 |- ( ( ( ( A. x e. A A. y e. A DECID x = y /\ B e. A ) /\ z e. A ) /\ -. z = B ) -> -. z e. { B } )
11	8, 10	eldifd 3210	. . . . . 6 |- ( ( ( ( A. x e. A A. y e. A DECID x = y /\ B e. A ) /\ z e. A ) /\ -. z = B ) -> z e. ( A \ { B } ) )
12		elun1 3374	. . . . . 6 |- ( z e. ( A \ { B } ) -> z e. ( ( A \ { B } ) u. { B } ) )
13	11, 12	syl 14	. . . . 5 |- ( ( ( ( A. x e. A A. y e. A DECID x = y /\ B e. A ) /\ z e. A ) /\ -. z = B ) -> z e. ( ( A \ { B } ) u. { B } ) )
14		simpll 527	. . . . . . 7 |- ( ( ( A. x e. A A. y e. A DECID x = y /\ B e. A ) /\ z e. A ) -> A. x e. A A. y e. A DECID x = y )
15		simpr 110	. . . . . . . 8 |- ( ( ( A. x e. A A. y e. A DECID x = y /\ B e. A ) /\ z e. A ) -> z e. A )
16		simplr 529	. . . . . . . 8 |- ( ( ( A. x e. A A. y e. A DECID x = y /\ B e. A ) /\ z e. A ) -> B e. A )
17		equequ1 1760	. . . . . . . . . 10 |- ( x = z -> ( x = y <-> z = y ) )
18	17	dcbid 845	. . . . . . . . 9 |- ( x = z -> (DECID x = y <-> DECID z = y ) )
19		eqeq2 2241	. . . . . . . . . 10 |- ( y = B -> ( z = y <-> z = B ) )
20	19	dcbid 845	. . . . . . . . 9 |- ( y = B -> (DECID z = y <-> DECID z = B ) )
21	18, 20	rspc2v 2923	. . . . . . . 8 |- ( ( z e. A /\ B e. A ) -> ( A. x e. A A. y e. A DECID x = y -> DECID z = B ) )
22	15, 16, 21	syl2anc 411	. . . . . . 7 |- ( ( ( A. x e. A A. y e. A DECID x = y /\ B e. A ) /\ z e. A ) -> ( A. x e. A A. y e. A DECID x = y -> DECID z = B ) )
23	14, 22	mpd 13	. . . . . 6 |- ( ( ( A. x e. A A. y e. A DECID x = y /\ B e. A ) /\ z e. A ) -> DECID z = B )
24		exmiddc 843	. . . . . 6 |- (DECID z = B -> ( z = B \/ -. z = B ) )
25	23, 24	syl 14	. . . . 5 |- ( ( ( A. x e. A A. y e. A DECID x = y /\ B e. A ) /\ z e. A ) -> ( z = B \/ -. z = B ) )
26	7, 13, 25	mpjaodan 805	. . . 4 |- ( ( ( A. x e. A A. y e. A DECID x = y /\ B e. A ) /\ z e. A ) -> z e. ( ( A \ { B } ) u. { B } ) )
27	26	ex 115	. . 3 |- ( ( A. x e. A A. y e. A DECID x = y /\ B e. A ) -> ( z e. A -> z e. ( ( A \ { B } ) u. { B } ) ) )
28	27	ssrdv 3233	. 2 |- ( ( A. x e. A A. y e. A DECID x = y /\ B e. A ) -> A C_ ( ( A \ { B } ) u. { B } ) )
29	2, 28	eqssd 3244	1 |- ( ( A. x e. A A. y e. A DECID x = y /\ B e. A ) -> ( ( A \ { B } ) u. { B } ) = A )

Syntax hints:   -. wn 3   -> wi 4   /\ wa 104   \/ wo 715  DECID wdc 841   = wceq 1397   e. wcel 2202   A.wral 2510   \ cdif 3197   u. cun 3198   C_ wss 3200   {csn 3669

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 619  ax-in2 620  ax-io 716  ax-5 1495  ax-7 1496  ax-gen 1497  ax-ie1 1541  ax-ie2 1542  ax-8 1552  ax-10 1553  ax-11 1554  ax-i12 1555  ax-bndl 1557  ax-4 1558  ax-17 1574  ax-i9 1578  ax-ial 1582  ax-i5r 1583  ax-ext 2213

This theorem depends on definitions:  df-bi 117  df-dc 842  df-tru 1400  df-nf 1509  df-sb 1811  df-clab 2218  df-cleq 2224  df-clel 2227  df-nfc 2363  df-ral 2515  df-v 2804  df-dif 3202  df-un 3204  df-in 3206  df-ss 3213  df-sn 3675

This theorem is referenced by:  fnsnsplitdc  6672  nndifsnid  6674  fidifsnid  7057  undifdc  7115