Theorem opeqsng 5395

Description: Equivalence for an ordered pair equal to a singleton. (Contributed by NM, 3-Jun-2008.) (Revised by AV, 15-Jul-2022.) (Avoid depending on this detail.)

Assertion

Ref	Expression
opeqsng	⊢ ((𝐴 ∈ 𝑉 ∧ 𝐵 ∈ 𝑊) → (⟨𝐴, 𝐵⟩ = {𝐶} ↔ (𝐴 = 𝐵 ∧ 𝐶 = {𝐴})))

Proof of Theorem opeqsng

Step	Hyp	Ref	Expression
1		dfopg 4803	. . 3 ⊢ ((𝐴 ∈ 𝑉 ∧ 𝐵 ∈ 𝑊) → ⟨𝐴, 𝐵⟩ = {{𝐴}, {𝐴, 𝐵}})
2	1	eqeq1d 2825	. 2 ⊢ ((𝐴 ∈ 𝑉 ∧ 𝐵 ∈ 𝑊) → (⟨𝐴, 𝐵⟩ = {𝐶} ↔ {{𝐴}, {𝐴, 𝐵}} = {𝐶}))
3		snex 5334	. . . 4 ⊢ {𝐴} ∈ V
4		prex 5335	. . . 4 ⊢ {𝐴, 𝐵} ∈ V
5	3, 4	preqsn 4794	. . 3 ⊢ ({{𝐴}, {𝐴, 𝐵}} = {𝐶} ↔ ({𝐴} = {𝐴, 𝐵} ∧ {𝐴, 𝐵} = 𝐶))
6	5	a1i 11	. 2 ⊢ ((𝐴 ∈ 𝑉 ∧ 𝐵 ∈ 𝑊) → ({{𝐴}, {𝐴, 𝐵}} = {𝐶} ↔ ({𝐴} = {𝐴, 𝐵} ∧ {𝐴, 𝐵} = 𝐶)))
7		eqcom 2830	. . . . 5 ⊢ ({𝐴} = {𝐴, 𝐵} ↔ {𝐴, 𝐵} = {𝐴})
8		elex 3514	. . . . . . . 8 ⊢ (𝐴 ∈ 𝑉 → 𝐴 ∈ V)
9	8	adantr 483	. . . . . . 7 ⊢ ((𝐴 ∈ 𝑉 ∧ 𝐵 ∈ 𝑊) → 𝐴 ∈ V)
10		elex 3514	. . . . . . . 8 ⊢ (𝐵 ∈ 𝑊 → 𝐵 ∈ V)
11	10	adantl 484	. . . . . . 7 ⊢ ((𝐴 ∈ 𝑉 ∧ 𝐵 ∈ 𝑊) → 𝐵 ∈ V)
12	9, 11	preqsnd 4791	. . . . . 6 ⊢ ((𝐴 ∈ 𝑉 ∧ 𝐵 ∈ 𝑊) → ({𝐴, 𝐵} = {𝐴} ↔ (𝐴 = 𝐴 ∧ 𝐵 = 𝐴)))
13		simpr 487	. . . . . . . 8 ⊢ ((𝐴 = 𝐴 ∧ 𝐵 = 𝐴) → 𝐵 = 𝐴)
14		eqid 2823	. . . . . . . . 9 ⊢ 𝐴 = 𝐴
15	14	jctl 526	. . . . . . . 8 ⊢ (𝐵 = 𝐴 → (𝐴 = 𝐴 ∧ 𝐵 = 𝐴))
16	13, 15	impbii 211	. . . . . . 7 ⊢ ((𝐴 = 𝐴 ∧ 𝐵 = 𝐴) ↔ 𝐵 = 𝐴)
17		eqcom 2830	. . . . . . 7 ⊢ (𝐵 = 𝐴 ↔ 𝐴 = 𝐵)
18	16, 17	bitri 277	. . . . . 6 ⊢ ((𝐴 = 𝐴 ∧ 𝐵 = 𝐴) ↔ 𝐴 = 𝐵)
19	12, 18	syl6bb 289	. . . . 5 ⊢ ((𝐴 ∈ 𝑉 ∧ 𝐵 ∈ 𝑊) → ({𝐴, 𝐵} = {𝐴} ↔ 𝐴 = 𝐵))
20	7, 19	syl5bb 285	. . . 4 ⊢ ((𝐴 ∈ 𝑉 ∧ 𝐵 ∈ 𝑊) → ({𝐴} = {𝐴, 𝐵} ↔ 𝐴 = 𝐵))
21	20	anbi1d 631	. . 3 ⊢ ((𝐴 ∈ 𝑉 ∧ 𝐵 ∈ 𝑊) → (({𝐴} = {𝐴, 𝐵} ∧ {𝐴, 𝐵} = 𝐶) ↔ (𝐴 = 𝐵 ∧ {𝐴, 𝐵} = 𝐶)))
22		dfsn2 4582	. . . . . . . 8 ⊢ {𝐴} = {𝐴, 𝐴}
23		preq2 4672	. . . . . . . 8 ⊢ (𝐴 = 𝐵 → {𝐴, 𝐴} = {𝐴, 𝐵})
24	22, 23	syl5req 2871	. . . . . . 7 ⊢ (𝐴 = 𝐵 → {𝐴, 𝐵} = {𝐴})
25	24	eqeq1d 2825	. . . . . 6 ⊢ (𝐴 = 𝐵 → ({𝐴, 𝐵} = 𝐶 ↔ {𝐴} = 𝐶))
26		eqcom 2830	. . . . . 6 ⊢ ({𝐴} = 𝐶 ↔ 𝐶 = {𝐴})
27	25, 26	syl6bb 289	. . . . 5 ⊢ (𝐴 = 𝐵 → ({𝐴, 𝐵} = 𝐶 ↔ 𝐶 = {𝐴}))
28	27	a1i 11	. . . 4 ⊢ ((𝐴 ∈ 𝑉 ∧ 𝐵 ∈ 𝑊) → (𝐴 = 𝐵 → ({𝐴, 𝐵} = 𝐶 ↔ 𝐶 = {𝐴})))
29	28	pm5.32d 579	. . 3 ⊢ ((𝐴 ∈ 𝑉 ∧ 𝐵 ∈ 𝑊) → ((𝐴 = 𝐵 ∧ {𝐴, 𝐵} = 𝐶) ↔ (𝐴 = 𝐵 ∧ 𝐶 = {𝐴})))
30	21, 29	bitrd 281	. 2 ⊢ ((𝐴 ∈ 𝑉 ∧ 𝐵 ∈ 𝑊) → (({𝐴} = {𝐴, 𝐵} ∧ {𝐴, 𝐵} = 𝐶) ↔ (𝐴 = 𝐵 ∧ 𝐶 = {𝐴})))
31	2, 6, 30	3bitrd 307	1 ⊢ ((𝐴 ∈ 𝑉 ∧ 𝐵 ∈ 𝑊) → (⟨𝐴, 𝐵⟩ = {𝐶} ↔ (𝐴 = 𝐵 ∧ 𝐶 = {𝐴})))

Syntax hints:   → wi 4   ↔ wb 208   ∧ wa 398   = wceq 1537   ∈ wcel 2114  Vcvv 3496  {csn 4569  {cpr 4571  ⟨cop 4575

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1911  ax-6 1970  ax-7 2015  ax-8 2116  ax-9 2124  ax-10 2145  ax-11 2161  ax-12 2177  ax-ext 2795  ax-sep 5205  ax-nul 5212  ax-pr 5332

This theorem depends on definitions:  df-bi 209  df-an 399  df-or 844  df-3an 1085  df-tru 1540  df-ex 1781  df-nf 1785  df-sb 2070  df-clab 2802  df-cleq 2816  df-clel 2895  df-nfc 2965  df-ne 3019  df-v 3498  df-dif 3941  df-un 3943  df-in 3945  df-ss 3954  df-nul 4294  df-if 4470  df-sn 4570  df-pr 4572  df-op 4576

This theorem is referenced by:  opeqsn  5396  snopeqop  5398