Theorem xpsnen 8044

Description: A set is equinumerous to its Cartesian product with a singleton. Proposition 4.22(c) of [Mendelson] p. 254. (Contributed by NM, 4-Jan-2004.) (Revised by Mario Carneiro, 15-Nov-2014.)

Hypotheses

Ref	Expression
xpsnen.1	|- A e. _V
xpsnen.2	|- B e. _V

Assertion

Ref	Expression
xpsnen	|- ( A X. { B } ) ~~ A

Proof of Theorem xpsnen

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

Step	Hyp	Ref	Expression
1		xpsnen.1	. . 3 |- A e. _V
2		snex 4908	. . 3 |- { B } e. _V
3	1, 2	xpex 6962	. 2 |- ( A X. { B } ) e. _V
4		elxp 5131	. . 3 |- ( y e. ( A X. { B } ) <-> E. x E. z ( y = <. x , z >. /\ ( x e. A /\ z e. { B } ) ) )
5		inteq 4478	. . . . . . . 8 |- ( y = <. x , z >. -> |^| y = |^| <. x , z >. )
6	5	inteqd 4480	. . . . . . 7 |- ( y = <. x , z >. -> |^| |^| y = |^| |^| <. x , z >. )
7		vex 3203	. . . . . . . 8 |- x e. _V
8		vex 3203	. . . . . . . 8 |- z e. _V
9	7, 8	op1stb 4940	. . . . . . 7 |- |^| |^| <. x , z >. = x
10	6, 9	syl6eq 2672	. . . . . 6 |- ( y = <. x , z >. -> |^| |^| y = x )
11	10, 7	syl6eqel 2709	. . . . 5 |- ( y = <. x , z >. -> |^| |^| y e. _V )
12	11	adantr 481	. . . 4 |- ( ( y = <. x , z >. /\ ( x e. A /\ z e. { B } ) ) -> |^| |^| y e. _V )
13	12	exlimivv 1860	. . 3 |- ( E. x E. z ( y = <. x , z >. /\ ( x e. A /\ z e. { B } ) ) -> |^| |^| y e. _V )
14	4, 13	sylbi 207	. 2 |- ( y e. ( A X. { B } ) -> |^| |^| y e. _V )
15		opex 4932	. . 3 |- <. x , B >. e. _V
16	15	a1i 11	. 2 |- ( x e. A -> <. x , B >. e. _V )
17		eqvisset 3211	. . . . 5 |- ( x = |^| |^| y -> |^| |^| y e. _V )
18		ancom 466	. . . . . . . . . . 11 |- ( ( ( y = <. x , z >. /\ x e. A ) /\ z e. { B } ) <-> ( z e. { B } /\ ( y = <. x , z >. /\ x e. A ) ) )
19		anass 681	. . . . . . . . . . 11 |- ( ( ( y = <. x , z >. /\ x e. A ) /\ z e. { B } ) <-> ( y = <. x , z >. /\ ( x e. A /\ z e. { B } ) ) )
20		velsn 4193	. . . . . . . . . . . 12 |- ( z e. { B } <-> z = B )
21	20	anbi1i 731	. . . . . . . . . . 11 |- ( ( z e. { B } /\ ( y = <. x , z >. /\ x e. A ) ) <-> ( z = B /\ ( y = <. x , z >. /\ x e. A ) ) )
22	18, 19, 21	3bitr3i 290	. . . . . . . . . 10 |- ( ( y = <. x , z >. /\ ( x e. A /\ z e. { B } ) ) <-> ( z = B /\ ( y = <. x , z >. /\ x e. A ) ) )
23	22	exbii 1774	. . . . . . . . 9 |- ( E. z ( y = <. x , z >. /\ ( x e. A /\ z e. { B } ) ) <-> E. z ( z = B /\ ( y = <. x , z >. /\ x e. A ) ) )
24		xpsnen.2	. . . . . . . . . 10 |- B e. _V
25		opeq2 4403	. . . . . . . . . . . 12 |- ( z = B -> <. x , z >. = <. x , B >. )
26	25	eqeq2d 2632	. . . . . . . . . . 11 |- ( z = B -> ( y = <. x , z >. <-> y = <. x , B >. ) )
27	26	anbi1d 741	. . . . . . . . . 10 |- ( z = B -> ( ( y = <. x , z >. /\ x e. A ) <-> ( y = <. x , B >. /\ x e. A ) ) )
28	24, 27	ceqsexv 3242	. . . . . . . . 9 |- ( E. z ( z = B /\ ( y = <. x , z >. /\ x e. A ) ) <-> ( y = <. x , B >. /\ x e. A ) )
29		inteq 4478	. . . . . . . . . . . . . 14 |- ( y = <. x , B >. -> |^| y = |^| <. x , B >. )
30	29	inteqd 4480	. . . . . . . . . . . . 13 |- ( y = <. x , B >. -> |^| |^| y = |^| |^| <. x , B >. )
31	7, 24	op1stb 4940	. . . . . . . . . . . . 13 |- |^| |^| <. x , B >. = x
32	30, 31	syl6req 2673	. . . . . . . . . . . 12 |- ( y = <. x , B >. -> x = |^| |^| y )
33	32	pm4.71ri 665	. . . . . . . . . . 11 |- ( y = <. x , B >. <-> ( x = |^| |^| y /\ y = <. x , B >. ) )
34	33	anbi1i 731	. . . . . . . . . 10 |- ( ( y = <. x , B >. /\ x e. A ) <-> ( ( x = |^| |^| y /\ y = <. x , B >. ) /\ x e. A ) )
35		anass 681	. . . . . . . . . 10 |- ( ( ( x = |^| |^| y /\ y = <. x , B >. ) /\ x e. A ) <-> ( x = |^| |^| y /\ ( y = <. x , B >. /\ x e. A ) ) )
36	34, 35	bitri 264	. . . . . . . . 9 |- ( ( y = <. x , B >. /\ x e. A ) <-> ( x = |^| |^| y /\ ( y = <. x , B >. /\ x e. A ) ) )
37	23, 28, 36	3bitri 286	. . . . . . . 8 |- ( E. z ( y = <. x , z >. /\ ( x e. A /\ z e. { B } ) ) <-> ( x = |^| |^| y /\ ( y = <. x , B >. /\ x e. A ) ) )
38	37	exbii 1774	. . . . . . 7 |- ( E. x E. z ( y = <. x , z >. /\ ( x e. A /\ z e. { B } ) ) <-> E. x ( x = |^| |^| y /\ ( y = <. x , B >. /\ x e. A ) ) )
39	4, 38	bitri 264	. . . . . 6 |- ( y e. ( A X. { B } ) <-> E. x ( x = |^| |^| y /\ ( y = <. x , B >. /\ x e. A ) ) )
40		opeq1 4402	. . . . . . . . 9 |- ( x = |^| |^| y -> <. x , B >. = <. |^| |^| y , B >. )
41	40	eqeq2d 2632	. . . . . . . 8 |- ( x = |^| |^| y -> ( y = <. x , B >. <-> y = <. |^| |^| y , B >. ) )
42		eleq1 2689	. . . . . . . 8 |- ( x = |^| |^| y -> ( x e. A <-> |^| |^| y e. A ) )
43	41, 42	anbi12d 747	. . . . . . 7 |- ( x = |^| |^| y -> ( ( y = <. x , B >. /\ x e. A ) <-> ( y = <. |^| |^| y , B >. /\ |^| |^| y e. A ) ) )
44	43	ceqsexgv 3335	. . . . . 6 |- ( |^| |^| y e. _V -> ( E. x ( x = |^| |^| y /\ ( y = <. x , B >. /\ x e. A ) ) <-> ( y = <. |^| |^| y , B >. /\ |^| |^| y e. A ) ) )
45	39, 44	syl5bb 272	. . . . 5 |- ( |^| |^| y e. _V -> ( y e. ( A X. { B } ) <-> ( y = <. |^| |^| y , B >. /\ |^| |^| y e. A ) ) )
46	17, 45	syl 17	. . . 4 |- ( x = |^| |^| y -> ( y e. ( A X. { B } ) <-> ( y = <. |^| |^| y , B >. /\ |^| |^| y e. A ) ) )
47	46	pm5.32ri 670	. . 3 |- ( ( y e. ( A X. { B } ) /\ x = |^| |^| y ) <-> ( ( y = <. |^| |^| y , B >. /\ |^| |^| y e. A ) /\ x = |^| |^| y ) )
48	32	adantr 481	. . . . 5 |- ( ( y = <. x , B >. /\ x e. A ) -> x = |^| |^| y )
49	48	pm4.71i 664	. . . 4 |- ( ( y = <. x , B >. /\ x e. A ) <-> ( ( y = <. x , B >. /\ x e. A ) /\ x = |^| |^| y ) )
50	43	pm5.32ri 670	. . . 4 |- ( ( ( y = <. x , B >. /\ x e. A ) /\ x = |^| |^| y ) <-> ( ( y = <. |^| |^| y , B >. /\ |^| |^| y e. A ) /\ x = |^| |^| y ) )
51	49, 50	bitr2i 265	. . 3 |- ( ( ( y = <. |^| |^| y , B >. /\ |^| |^| y e. A ) /\ x = |^| |^| y ) <-> ( y = <. x , B >. /\ x e. A ) )
52		ancom 466	. . 3 |- ( ( y = <. x , B >. /\ x e. A ) <-> ( x e. A /\ y = <. x , B >. ) )
53	47, 51, 52	3bitri 286	. 2 |- ( ( y e. ( A X. { B } ) /\ x = |^| |^| y ) <-> ( x e. A /\ y = <. x , B >. ) )
54	3, 1, 14, 16, 53	en2i 7993	1 |- ( A X. { B } ) ~~ A

Syntax hints:   <-> wb 196   /\ wa 384   = wceq 1483   E.wex 1704   e. wcel 1990   _Vcvv 3200   {csn 4177   <.cop 4183   |^|cint 4475   class class class wbr 4653   X. cxp 5112   ~~ cen 7952

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1722  ax-4 1737  ax-5 1839  ax-6 1888  ax-7 1935  ax-8 1992  ax-9 1999  ax-10 2019  ax-11 2034  ax-12 2047  ax-13 2246  ax-ext 2602  ax-sep 4781  ax-nul 4789  ax-pow 4843  ax-pr 4906  ax-un 6949

This theorem depends on definitions:  df-bi 197  df-or 385  df-an 386  df-3an 1039  df-tru 1486  df-ex 1705  df-nf 1710  df-sb 1881  df-eu 2474  df-mo 2475  df-clab 2609  df-cleq 2615  df-clel 2618  df-nfc 2753  df-ral 2917  df-rex 2918  df-rab 2921  df-v 3202  df-dif 3577  df-un 3579  df-in 3581  df-ss 3588  df-nul 3916  df-if 4087  df-pw 4160  df-sn 4178  df-pr 4180  df-op 4184  df-uni 4437  df-int 4476  df-br 4654  df-opab 4713  df-mpt 4730  df-id 5024  df-xp 5120  df-rel 5121  df-cnv 5122  df-co 5123  df-dm 5124  df-rn 5125  df-fun 5890  df-fn 5891  df-f 5892  df-f1 5893  df-fo 5894  df-f1o 5895  df-en 7956

This theorem is referenced by:  xpsneng  8045  endisj  8047  infxpenlem  8836  pm110.643  8999  hashxplem  13220  rexpen  14957  heiborlem3  33612