Theorem dmsnopg 5259

Description: The domain of a singleton of an ordered pair is the singleton of the first member. (Contributed by Mario Carneiro, 26-Apr-2015.)

Assertion

Ref	Expression
dmsnopg	|- ( B e. V -> dom { <. A , B >. } = { A } )

Proof of Theorem dmsnopg

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

Step	Hyp	Ref	Expression
1		vex 2824	. . . . . 6 |- x e. _V
2		vex 2824	. . . . . 6 |- y e. _V
3	1, 2	opth1 4376	. . . . 5 |- ( <. x , y >. = <. A , B >. -> x = A )
4	3	exlimiv 1651	. . . 4 |- ( E. y <. x , y >. = <. A , B >. -> x = A )
5		opeq1 3904	. . . . 5 |- ( x = A -> <. x , B >. = <. A , B >. )
6		opeq2 3905	. . . . . . 7 |- ( y = B -> <. x , y >. = <. x , B >. )
7	6	eqeq1d 2247	. . . . . 6 |- ( y = B -> ( <. x , y >. = <. A , B >. <-> <. x , B >. = <. A , B >. ) )
8	7	spcegv 2913	. . . . 5 |- ( B e. V -> ( <. x , B >. = <. A , B >. -> E. y <. x , y >. = <. A , B >. ) )
9	5, 8	syl5 32	. . . 4 |- ( B e. V -> ( x = A -> E. y <. x , y >. = <. A , B >. ) )
10	4, 9	impbid2 143	. . 3 |- ( B e. V -> ( E. y <. x , y >. = <. A , B >. <-> x = A ) )
11	1	eldm2 4979	. . . 4 |- ( x e. dom { <. A , B >. } <-> E. y <. x , y >. e. { <. A , B >. } )
12	1, 2	opex 4369	. . . . . 6 |- <. x , y >. e. _V
13	12	elsn 3725	. . . . 5 |- ( <. x , y >. e. { <. A , B >. } <-> <. x , y >. = <. A , B >. )
14	13	exbii 1658	. . . 4 |- ( E. y <. x , y >. e. { <. A , B >. } <-> E. y <. x , y >. = <. A , B >. )
15	11, 14	bitri 184	. . 3 |- ( x e. dom { <. A , B >. } <-> E. y <. x , y >. = <. A , B >. )
16		velsn 3726	. . 3 |- ( x e. { A } <-> x = A )
17	10, 15, 16	3bitr4g 223	. 2 |- ( B e. V -> ( x e. dom { <. A , B >. } <-> x e. { A } ) )
18	17	eqrdv 2236	1 |- ( B e. V -> dom { <. A , B >. } = { A } )

This proof depends on syntax axioms:   -> wi 4   = wceq 1402   E.wex 1545   e. wcel 2209   {csn 3709   <.cop 3712   dom cdm 4774

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-io 721  ax-5 1500  ax-7 1501  ax-gen 1502  ax-ie1 1546  ax-ie2 1547  ax-8 1557  ax-10 1558  ax-11 1559  ax-i12 1560  ax-bndl 1562  ax-4 1563  ax-17 1579  ax-i9 1583  ax-ial 1587  ax-i5r 1588  ax-14 2212  ax-ext 2220  ax-sep 4249  ax-pow 4311  ax-pr 4346

This proof depends on definitions:  df-bi 117  df-3an 1011  df-tru 1405  df-nf 1514  df-sb 1816  df-clab 2225  df-cleq 2231  df-clel 2234  df-nfc 2381  df-v 2823  df-un 3224  df-in 3226  df-ss 3233  df-pw 3690  df-sn 3715  df-pr 3716  df-op 3718  df-br 4131  df-dm 4784

This theorem is used by:  dmpropg  5260  dmsnop  5261  rnsnopg  5266  elxp4  5275  fnsng  5428  funprg  5431  funtpg  5432  fntpg  5437  s1dmg  11393  ennnfonelemhdmp1  13300  ennnfonelemkh  13303  setsvala  13383  setsresg  13390  setscom  13392  setsslid  13403  bassetsnn  13409  strle1g  13460  umgr1een  16366  1loopgrvd2fi  16546  1loopgrvd0fi  16547  1hevtxdg0fi  16548  1hevtxdg1en  16549  1hegrvtxdg1fi  16550  p1evtxdeqfilem  16552  trlsegvdeglem5  16705