Theorem dmpropg 4890

Description: The domain of an unordered pair of ordered pairs. (Contributed by Mario Carneiro, 26-Apr-2015.)

Assertion

Ref	Expression
dmpropg	⊢ ((𝐵 ∈ 𝑉 ∧ 𝐷 ∈ 𝑊) → dom {⟨𝐴, 𝐵⟩, ⟨𝐶, 𝐷⟩} = {𝐴, 𝐶})

Proof of Theorem dmpropg

Step	Hyp	Ref	Expression
1		dmsnopg 4889	. . 3 ⊢ (𝐵 ∈ 𝑉 → dom {⟨𝐴, 𝐵⟩} = {𝐴})
2		dmsnopg 4889	. . 3 ⊢ (𝐷 ∈ 𝑊 → dom {⟨𝐶, 𝐷⟩} = {𝐶})
3		uneq12 3147	. . 3 ⊢ ((dom {⟨𝐴, 𝐵⟩} = {𝐴} ∧ dom {⟨𝐶, 𝐷⟩} = {𝐶}) → (dom {⟨𝐴, 𝐵⟩} ∪ dom {⟨𝐶, 𝐷⟩}) = ({𝐴} ∪ {𝐶}))
4	1, 2, 3	syl2an 283	. 2 ⊢ ((𝐵 ∈ 𝑉 ∧ 𝐷 ∈ 𝑊) → (dom {⟨𝐴, 𝐵⟩} ∪ dom {⟨𝐶, 𝐷⟩}) = ({𝐴} ∪ {𝐶}))
5		df-pr 3448	. . . 4 ⊢ {⟨𝐴, 𝐵⟩, ⟨𝐶, 𝐷⟩} = ({⟨𝐴, 𝐵⟩} ∪ {⟨𝐶, 𝐷⟩})
6	5	dmeqi 4625	. . 3 ⊢ dom {⟨𝐴, 𝐵⟩, ⟨𝐶, 𝐷⟩} = dom ({⟨𝐴, 𝐵⟩} ∪ {⟨𝐶, 𝐷⟩})
7		dmun 4631	. . 3 ⊢ dom ({⟨𝐴, 𝐵⟩} ∪ {⟨𝐶, 𝐷⟩}) = (dom {⟨𝐴, 𝐵⟩} ∪ dom {⟨𝐶, 𝐷⟩})
8	6, 7	eqtri 2108	. 2 ⊢ dom {⟨𝐴, 𝐵⟩, ⟨𝐶, 𝐷⟩} = (dom {⟨𝐴, 𝐵⟩} ∪ dom {⟨𝐶, 𝐷⟩})
9		df-pr 3448	. 2 ⊢ {𝐴, 𝐶} = ({𝐴} ∪ {𝐶})
10	4, 8, 9	3eqtr4g 2145	1 ⊢ ((𝐵 ∈ 𝑉 ∧ 𝐷 ∈ 𝑊) → dom {⟨𝐴, 𝐵⟩, ⟨𝐶, 𝐷⟩} = {𝐴, 𝐶})

Syntax hints:   → wi 4   ∧ wa 102   = wceq 1289   ∈ wcel 1438   ∪ cun 2995  {csn 3441  {cpr 3442  ⟨cop 3444  dom cdm 4428

This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-mp 7  ax-ia1 104  ax-ia2 105  ax-ia3 106  ax-io 665  ax-5 1381  ax-7 1382  ax-gen 1383  ax-ie1 1427  ax-ie2 1428  ax-8 1440  ax-10 1441  ax-11 1442  ax-i12 1443  ax-bndl 1444  ax-4 1445  ax-14 1450  ax-17 1464  ax-i9 1468  ax-ial 1472  ax-i5r 1473  ax-ext 2070  ax-sep 3949  ax-pow 4001  ax-pr 4027

This theorem depends on definitions:  df-bi 115  df-3an 926  df-tru 1292  df-nf 1395  df-sb 1693  df-clab 2075  df-cleq 2081  df-clel 2084  df-nfc 2217  df-v 2621  df-un 3001  df-in 3003  df-ss 3010  df-pw 3427  df-sn 3447  df-pr 3448  df-op 3450  df-br 3838  df-dm 4438

This theorem is referenced by:  dmprop  4892  funtpg  5051  fnprg  5055