Theorem funopdmsn 5763

Description: The domain of a function which is an ordered pair is a singleton. (Contributed by AV, 15-Nov-2021.) (Avoid depending on this detail.)

Hypotheses

Ref	Expression
funopdmsn.g	⊢ 𝐺 = ⟨𝑋, 𝑌⟩
funopdmsn.x	⊢ 𝑋 ∈ 𝑉
funopdmsn.y	⊢ 𝑌 ∈ 𝑊

Assertion

Ref	Expression
funopdmsn	⊢ ((Fun 𝐺 ∧ 𝐴 ∈ dom 𝐺 ∧ 𝐵 ∈ dom 𝐺) → 𝐴 = 𝐵)

Proof of Theorem funopdmsn

Dummy variable 𝑥 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		funopdmsn.g	. . . . 5 ⊢ 𝐺 = ⟨𝑋, 𝑌⟩
2	1	funeqi 5291	. . . 4 ⊢ (Fun 𝐺 ↔ Fun ⟨𝑋, 𝑌⟩)
3		funopdmsn.x	. . . . . 6 ⊢ 𝑋 ∈ 𝑉
4	3	elexi 2783	. . . . 5 ⊢ 𝑋 ∈ V
5		funopdmsn.y	. . . . . 6 ⊢ 𝑌 ∈ 𝑊
6	5	elexi 2783	. . . . 5 ⊢ 𝑌 ∈ V
7	4, 6	funop 5762	. . . 4 ⊢ (Fun ⟨𝑋, 𝑌⟩ ↔ ∃𝑥(𝑋 = {𝑥} ∧ ⟨𝑋, 𝑌⟩ = {⟨𝑥, 𝑥⟩}))
8	2, 7	bitri 184	. . 3 ⊢ (Fun 𝐺 ↔ ∃𝑥(𝑋 = {𝑥} ∧ ⟨𝑋, 𝑌⟩ = {⟨𝑥, 𝑥⟩}))
9	1	eqcomi 2208	. . . . . . 7 ⊢ ⟨𝑋, 𝑌⟩ = 𝐺
10	9	eqeq1i 2212	. . . . . 6 ⊢ (⟨𝑋, 𝑌⟩ = {⟨𝑥, 𝑥⟩} ↔ 𝐺 = {⟨𝑥, 𝑥⟩})
11		dmeq 4877	. . . . . . . 8 ⊢ (𝐺 = {⟨𝑥, 𝑥⟩} → dom 𝐺 = dom {⟨𝑥, 𝑥⟩})
12		vex 2774	. . . . . . . . 9 ⊢ 𝑥 ∈ V
13	12	dmsnop 5155	. . . . . . . 8 ⊢ dom {⟨𝑥, 𝑥⟩} = {𝑥}
14	11, 13	eqtrdi 2253	. . . . . . 7 ⊢ (𝐺 = {⟨𝑥, 𝑥⟩} → dom 𝐺 = {𝑥})
15		eleq2 2268	. . . . . . . . 9 ⊢ (dom 𝐺 = {𝑥} → (𝐴 ∈ dom 𝐺 ↔ 𝐴 ∈ {𝑥}))
16		eleq2 2268	. . . . . . . . 9 ⊢ (dom 𝐺 = {𝑥} → (𝐵 ∈ dom 𝐺 ↔ 𝐵 ∈ {𝑥}))
17	15, 16	anbi12d 473	. . . . . . . 8 ⊢ (dom 𝐺 = {𝑥} → ((𝐴 ∈ dom 𝐺 ∧ 𝐵 ∈ dom 𝐺) ↔ (𝐴 ∈ {𝑥} ∧ 𝐵 ∈ {𝑥})))
18		elsni 3650	. . . . . . . . 9 ⊢ (𝐴 ∈ {𝑥} → 𝐴 = 𝑥)
19		elsni 3650	. . . . . . . . 9 ⊢ (𝐵 ∈ {𝑥} → 𝐵 = 𝑥)
20		eqtr3 2224	. . . . . . . . 9 ⊢ ((𝐴 = 𝑥 ∧ 𝐵 = 𝑥) → 𝐴 = 𝐵)
21	18, 19, 20	syl2an 289	. . . . . . . 8 ⊢ ((𝐴 ∈ {𝑥} ∧ 𝐵 ∈ {𝑥}) → 𝐴 = 𝐵)
22	17, 21	biimtrdi 163	. . . . . . 7 ⊢ (dom 𝐺 = {𝑥} → ((𝐴 ∈ dom 𝐺 ∧ 𝐵 ∈ dom 𝐺) → 𝐴 = 𝐵))
23	14, 22	syl 14	. . . . . 6 ⊢ (𝐺 = {⟨𝑥, 𝑥⟩} → ((𝐴 ∈ dom 𝐺 ∧ 𝐵 ∈ dom 𝐺) → 𝐴 = 𝐵))
24	10, 23	sylbi 121	. . . . 5 ⊢ (⟨𝑋, 𝑌⟩ = {⟨𝑥, 𝑥⟩} → ((𝐴 ∈ dom 𝐺 ∧ 𝐵 ∈ dom 𝐺) → 𝐴 = 𝐵))
25	24	adantl 277	. . . 4 ⊢ ((𝑋 = {𝑥} ∧ ⟨𝑋, 𝑌⟩ = {⟨𝑥, 𝑥⟩}) → ((𝐴 ∈ dom 𝐺 ∧ 𝐵 ∈ dom 𝐺) → 𝐴 = 𝐵))
26	25	exlimiv 1620	. . 3 ⊢ (∃𝑥(𝑋 = {𝑥} ∧ ⟨𝑋, 𝑌⟩ = {⟨𝑥, 𝑥⟩}) → ((𝐴 ∈ dom 𝐺 ∧ 𝐵 ∈ dom 𝐺) → 𝐴 = 𝐵))
27	8, 26	sylbi 121	. 2 ⊢ (Fun 𝐺 → ((𝐴 ∈ dom 𝐺 ∧ 𝐵 ∈ dom 𝐺) → 𝐴 = 𝐵))
28	27	3impib 1203	1 ⊢ ((Fun 𝐺 ∧ 𝐴 ∈ dom 𝐺 ∧ 𝐵 ∈ dom 𝐺) → 𝐴 = 𝐵)

Syntax hints:   → wi 4   ∧ wa 104   ∧ w3a 980   = wceq 1372  ∃wex 1514   ∈ wcel 2175  {csn 3632  ⟨cop 3635  dom cdm 4674  Fun wfun 5264

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 710  ax-5 1469  ax-7 1470  ax-gen 1471  ax-ie1 1515  ax-ie2 1516  ax-8 1526  ax-10 1527  ax-11 1528  ax-i12 1529  ax-bndl 1531  ax-4 1532  ax-17 1548  ax-i9 1552  ax-ial 1556  ax-i5r 1557  ax-14 2178  ax-ext 2186  ax-sep 4161  ax-pow 4217  ax-pr 4252

This theorem depends on definitions:  df-bi 117  df-3an 982  df-tru 1375  df-nf 1483  df-sb 1785  df-eu 2056  df-mo 2057  df-clab 2191  df-cleq 2197  df-clel 2200  df-nfc 2336  df-ral 2488  df-rex 2489  df-v 2773  df-un 3169  df-in 3171  df-ss 3178  df-pw 3617  df-sn 3638  df-pr 3639  df-op 3641  df-br 4044  df-opab 4105  df-id 4339  df-xp 4680  df-rel 4681  df-cnv 4682  df-co 4683  df-dm 4684  df-fun 5272

This theorem is referenced by:  fundm2domnop0  10988