Theorem dmsnopg 5234

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 2816	. . . . . 6 |- x e. _V
2		vex 2816	. . . . . 6 |- y e. _V
3	1, 2	opth1 4352	. . . . 5 |- ( <. x , y >. = <. A , B >. -> x = A )
4	3	exlimiv 1647	. . . 4 |- ( E. y <. x , y >. = <. A , B >. -> x = A )
5		opeq1 3883	. . . . 5 |- ( x = A -> <. x , B >. = <. A , B >. )
6		opeq2 3884	. . . . . . 7 |- ( y = B -> <. x , y >. = <. x , B >. )
7	6	eqeq1d 2241	. . . . . 6 |- ( y = B -> ( <. x , y >. = <. A , B >. <-> <. x , B >. = <. A , B >. ) )
8	7	spcegv 2905	. . . . 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 4954	. . . 4 |- ( x e. dom { <. A , B >. } <-> E. y <. x , y >. e. { <. A , B >. } )
12	1, 2	opex 4345	. . . . . 6 |- <. x , y >. e. _V
13	12	elsn 3705	. . . . 5 |- ( <. x , y >. e. { <. A , B >. } <-> <. x , y >. = <. A , B >. )
14	13	exbii 1654	. . . 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 3706	. . 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 2230	1 |- ( B e. V -> dom { <. A , B >. } = { A } )

Syntax hints:   -> wi 4   = wceq 1398   E.wex 1541   e. wcel 2203   {csn 3689   <.cop 3692   dom cdm 4749

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-io 717  ax-5 1496  ax-7 1497  ax-gen 1498  ax-ie1 1542  ax-ie2 1543  ax-8 1553  ax-10 1554  ax-11 1555  ax-i12 1556  ax-bndl 1558  ax-4 1559  ax-17 1575  ax-i9 1579  ax-ial 1583  ax-i5r 1584  ax-14 2206  ax-ext 2214  ax-sep 4228  ax-pow 4287  ax-pr 4322

This theorem depends on definitions:  df-bi 117  df-3an 1007  df-tru 1401  df-nf 1510  df-sb 1812  df-clab 2219  df-cleq 2225  df-clel 2228  df-nfc 2373  df-v 2815  df-un 3215  df-in 3217  df-ss 3224  df-pw 3671  df-sn 3695  df-pr 3696  df-op 3698  df-br 4110  df-dm 4759

This theorem is referenced by:  dmpropg  5235  dmsnop  5236  rnsnopg  5241  elxp4  5250  fnsng  5403  funprg  5406  funtpg  5407  fntpg  5412  s1dmg  11313  ennnfonelemhdmp1  13160  ennnfonelemkh  13163  setsvala  13243  setsresg  13250  setscom  13252  setsslid  13263  bassetsnn  13269  strle1g  13319  umgr1een  16120  1loopgrvd2fi  16300  1loopgrvd0fi  16301  1hevtxdg0fi  16302  1hevtxdg1en  16303  1hegrvtxdg1fi  16304  p1evtxdeqfilem  16306  trlsegvdeglem5  16459