Theorem dmsnopg 6166

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	⊢ (𝐵 ∈ 𝑉 → dom {⟨𝐴, 𝐵⟩} = {𝐴})

Proof of Theorem dmsnopg

Dummy variables 𝑥 𝑦 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		vex 3442	. . . . . 6 ⊢ 𝑥 ∈ V
2		vex 3442	. . . . . 6 ⊢ 𝑦 ∈ V
3	1, 2	opth1 5422	. . . . 5 ⊢ (⟨𝑥, 𝑦⟩ = ⟨𝐴, 𝐵⟩ → 𝑥 = 𝐴)
4	3	exlimiv 1930	. . . 4 ⊢ (∃𝑦⟨𝑥, 𝑦⟩ = ⟨𝐴, 𝐵⟩ → 𝑥 = 𝐴)
5		opeq1 4827	. . . . 5 ⊢ (𝑥 = 𝐴 → ⟨𝑥, 𝐵⟩ = ⟨𝐴, 𝐵⟩)
6		opeq2 4828	. . . . . . 7 ⊢ (𝑦 = 𝐵 → ⟨𝑥, 𝑦⟩ = ⟨𝑥, 𝐵⟩)
7	6	eqeq1d 2731	. . . . . 6 ⊢ (𝑦 = 𝐵 → (⟨𝑥, 𝑦⟩ = ⟨𝐴, 𝐵⟩ ↔ ⟨𝑥, 𝐵⟩ = ⟨𝐴, 𝐵⟩))
8	7	spcegv 3554	. . . . 5 ⊢ (𝐵 ∈ 𝑉 → (⟨𝑥, 𝐵⟩ = ⟨𝐴, 𝐵⟩ → ∃𝑦⟨𝑥, 𝑦⟩ = ⟨𝐴, 𝐵⟩))
9	5, 8	syl5 34	. . . 4 ⊢ (𝐵 ∈ 𝑉 → (𝑥 = 𝐴 → ∃𝑦⟨𝑥, 𝑦⟩ = ⟨𝐴, 𝐵⟩))
10	4, 9	impbid2 226	. . 3 ⊢ (𝐵 ∈ 𝑉 → (∃𝑦⟨𝑥, 𝑦⟩ = ⟨𝐴, 𝐵⟩ ↔ 𝑥 = 𝐴))
11	1	eldm2 5848	. . . 4 ⊢ (𝑥 ∈ dom {⟨𝐴, 𝐵⟩} ↔ ∃𝑦⟨𝑥, 𝑦⟩ ∈ {⟨𝐴, 𝐵⟩})
12		opex 5411	. . . . . 6 ⊢ ⟨𝑥, 𝑦⟩ ∈ V
13	12	elsn 4594	. . . . 5 ⊢ (⟨𝑥, 𝑦⟩ ∈ {⟨𝐴, 𝐵⟩} ↔ ⟨𝑥, 𝑦⟩ = ⟨𝐴, 𝐵⟩)
14	13	exbii 1848	. . . 4 ⊢ (∃𝑦⟨𝑥, 𝑦⟩ ∈ {⟨𝐴, 𝐵⟩} ↔ ∃𝑦⟨𝑥, 𝑦⟩ = ⟨𝐴, 𝐵⟩)
15	11, 14	bitri 275	. . 3 ⊢ (𝑥 ∈ dom {⟨𝐴, 𝐵⟩} ↔ ∃𝑦⟨𝑥, 𝑦⟩ = ⟨𝐴, 𝐵⟩)
16		velsn 4595	. . 3 ⊢ (𝑥 ∈ {𝐴} ↔ 𝑥 = 𝐴)
17	10, 15, 16	3bitr4g 314	. 2 ⊢ (𝐵 ∈ 𝑉 → (𝑥 ∈ dom {⟨𝐴, 𝐵⟩} ↔ 𝑥 ∈ {𝐴}))
18	17	eqrdv 2727	1 ⊢ (𝐵 ∈ 𝑉 → dom {⟨𝐴, 𝐵⟩} = {𝐴})

Syntax hints:   → wi 4   = wceq 1540  ∃wex 1779   ∈ wcel 2109  {csn 4579  ⟨cop 4585  dom cdm 5623

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1910  ax-6 1967  ax-7 2008  ax-8 2111  ax-9 2119  ax-ext 2701  ax-sep 5238  ax-nul 5248  ax-pr 5374

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1780  df-sb 2066  df-clab 2708  df-cleq 2721  df-clel 2803  df-rab 3397  df-v 3440  df-dif 3908  df-un 3910  df-ss 3922  df-nul 4287  df-if 4479  df-sn 4580  df-pr 4582  df-op 4586  df-br 5096  df-dm 5633

This theorem is referenced by:  dmsnopss  6167  dmpropg  6168  dmsnop  6169  rnsnopg  6174  fnsng  6538  funprg  6540  funtpg  6541  fntpg  6546  funsnfsupp  9301  s1dmALT  14535  setsval  17097  setsdm  17100  estrreslem2  18063  snstriedgval  29002  1loopgrvd0  29469  1hevtxdg0  29470  1hevtxdg1  29471  1egrvtxdg1  29474  p1evtxdeqlem  29477  wlkp1  29644  eupthp1  30179  trlsegvdeglem5  30187  cosnopne  32655  bnj96  34851  bnj535  34876  ovnovollem1  46657