Theorem dfid3 5158

Description: A stronger version of df-id 5157 that doesn't require 𝑥 and 𝑦 to be distinct. Ordinarily, we wouldn't use this as a definition, since non-distinct dummy variables would make soundness verification more difficult (as the proof here shows). The proof can be instructive in showing how distinct variable requirements may be eliminated, a task that is not necessarily obvious. (Contributed by NM, 5-Feb-2008.) (Revised by Mario Carneiro, 18-Nov-2016.)

Assertion

Ref	Expression
dfid3	⊢ I = {⟨𝑥, 𝑦⟩ ∣ 𝑥 = 𝑦}

Proof of Theorem dfid3

Dummy variables 𝑧 𝑤 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		df-id 5157	. 2 ⊢ I = {⟨𝑥, 𝑧⟩ ∣ 𝑥 = 𝑧}
2		ancom 452	. . . . . . . . . . 11 ⊢ ((𝑤 = ⟨𝑥, 𝑧⟩ ∧ 𝑥 = 𝑧) ↔ (𝑥 = 𝑧 ∧ 𝑤 = ⟨𝑥, 𝑧⟩))
3		equcom 2103	. . . . . . . . . . . 12 ⊢ (𝑥 = 𝑧 ↔ 𝑧 = 𝑥)
4	3	anbi1i 602	. . . . . . . . . . 11 ⊢ ((𝑥 = 𝑧 ∧ 𝑤 = ⟨𝑥, 𝑧⟩) ↔ (𝑧 = 𝑥 ∧ 𝑤 = ⟨𝑥, 𝑧⟩))
5	2, 4	bitri 264	. . . . . . . . . 10 ⊢ ((𝑤 = ⟨𝑥, 𝑧⟩ ∧ 𝑥 = 𝑧) ↔ (𝑧 = 𝑥 ∧ 𝑤 = ⟨𝑥, 𝑧⟩))
6	5	exbii 1924	. . . . . . . . 9 ⊢ (∃𝑧(𝑤 = ⟨𝑥, 𝑧⟩ ∧ 𝑥 = 𝑧) ↔ ∃𝑧(𝑧 = 𝑥 ∧ 𝑤 = ⟨𝑥, 𝑧⟩))
7		opeq2 4540	. . . . . . . . . . 11 ⊢ (𝑧 = 𝑥 → ⟨𝑥, 𝑧⟩ = ⟨𝑥, 𝑥⟩)
8	7	eqeq2d 2781	. . . . . . . . . 10 ⊢ (𝑧 = 𝑥 → (𝑤 = ⟨𝑥, 𝑧⟩ ↔ 𝑤 = ⟨𝑥, 𝑥⟩))
9	8	equsexvw 2090	. . . . . . . . 9 ⊢ (∃𝑧(𝑧 = 𝑥 ∧ 𝑤 = ⟨𝑥, 𝑧⟩) ↔ 𝑤 = ⟨𝑥, 𝑥⟩)
10		equid 2097	. . . . . . . . . 10 ⊢ 𝑥 = 𝑥
11	10	biantru 513	. . . . . . . . 9 ⊢ (𝑤 = ⟨𝑥, 𝑥⟩ ↔ (𝑤 = ⟨𝑥, 𝑥⟩ ∧ 𝑥 = 𝑥))
12	6, 9, 11	3bitri 286	. . . . . . . 8 ⊢ (∃𝑧(𝑤 = ⟨𝑥, 𝑧⟩ ∧ 𝑥 = 𝑧) ↔ (𝑤 = ⟨𝑥, 𝑥⟩ ∧ 𝑥 = 𝑥))
13	12	exbii 1924	. . . . . . 7 ⊢ (∃𝑥∃𝑧(𝑤 = ⟨𝑥, 𝑧⟩ ∧ 𝑥 = 𝑧) ↔ ∃𝑥(𝑤 = ⟨𝑥, 𝑥⟩ ∧ 𝑥 = 𝑥))
14		nfe1 2183	. . . . . . . 8 ⊢ Ⅎ𝑥∃𝑥(𝑤 = ⟨𝑥, 𝑥⟩ ∧ 𝑥 = 𝑥)
15	14	19.9 2228	. . . . . . 7 ⊢ (∃𝑥∃𝑥(𝑤 = ⟨𝑥, 𝑥⟩ ∧ 𝑥 = 𝑥) ↔ ∃𝑥(𝑤 = ⟨𝑥, 𝑥⟩ ∧ 𝑥 = 𝑥))
16	13, 15	bitr4i 267	. . . . . 6 ⊢ (∃𝑥∃𝑧(𝑤 = ⟨𝑥, 𝑧⟩ ∧ 𝑥 = 𝑧) ↔ ∃𝑥∃𝑥(𝑤 = ⟨𝑥, 𝑥⟩ ∧ 𝑥 = 𝑥))
17		opeq2 4540	. . . . . . . . . . 11 ⊢ (𝑥 = 𝑦 → ⟨𝑥, 𝑥⟩ = ⟨𝑥, 𝑦⟩)
18	17	eqeq2d 2781	. . . . . . . . . 10 ⊢ (𝑥 = 𝑦 → (𝑤 = ⟨𝑥, 𝑥⟩ ↔ 𝑤 = ⟨𝑥, 𝑦⟩))
19		equequ2 2111	. . . . . . . . . 10 ⊢ (𝑥 = 𝑦 → (𝑥 = 𝑥 ↔ 𝑥 = 𝑦))
20	18, 19	anbi12d 608	. . . . . . . . 9 ⊢ (𝑥 = 𝑦 → ((𝑤 = ⟨𝑥, 𝑥⟩ ∧ 𝑥 = 𝑥) ↔ (𝑤 = ⟨𝑥, 𝑦⟩ ∧ 𝑥 = 𝑦)))
21	20	sps 2209	. . . . . . . 8 ⊢ (∀𝑥 𝑥 = 𝑦 → ((𝑤 = ⟨𝑥, 𝑥⟩ ∧ 𝑥 = 𝑥) ↔ (𝑤 = ⟨𝑥, 𝑦⟩ ∧ 𝑥 = 𝑦)))
22	21	drex1 2477	. . . . . . 7 ⊢ (∀𝑥 𝑥 = 𝑦 → (∃𝑥(𝑤 = ⟨𝑥, 𝑥⟩ ∧ 𝑥 = 𝑥) ↔ ∃𝑦(𝑤 = ⟨𝑥, 𝑦⟩ ∧ 𝑥 = 𝑦)))
23	22	drex2 2478	. . . . . 6 ⊢ (∀𝑥 𝑥 = 𝑦 → (∃𝑥∃𝑥(𝑤 = ⟨𝑥, 𝑥⟩ ∧ 𝑥 = 𝑥) ↔ ∃𝑥∃𝑦(𝑤 = ⟨𝑥, 𝑦⟩ ∧ 𝑥 = 𝑦)))
24	16, 23	syl5bb 272	. . . . 5 ⊢ (∀𝑥 𝑥 = 𝑦 → (∃𝑥∃𝑧(𝑤 = ⟨𝑥, 𝑧⟩ ∧ 𝑥 = 𝑧) ↔ ∃𝑥∃𝑦(𝑤 = ⟨𝑥, 𝑦⟩ ∧ 𝑥 = 𝑦)))
25		nfnae 2470	. . . . . 6 ⊢ Ⅎ𝑥 ¬ ∀𝑥 𝑥 = 𝑦
26		nfnae 2470	. . . . . . 7 ⊢ Ⅎ𝑦 ¬ ∀𝑥 𝑥 = 𝑦
27		nfcvd 2914	. . . . . . . . 9 ⊢ (¬ ∀𝑥 𝑥 = 𝑦 → Ⅎ𝑦𝑤)
28		nfcvf2 2938	. . . . . . . . . 10 ⊢ (¬ ∀𝑥 𝑥 = 𝑦 → Ⅎ𝑦𝑥)
29		nfcvd 2914	. . . . . . . . . 10 ⊢ (¬ ∀𝑥 𝑥 = 𝑦 → Ⅎ𝑦𝑧)
30	28, 29	nfopd 4556	. . . . . . . . 9 ⊢ (¬ ∀𝑥 𝑥 = 𝑦 → Ⅎ𝑦⟨𝑥, 𝑧⟩)
31	27, 30	nfeqd 2921	. . . . . . . 8 ⊢ (¬ ∀𝑥 𝑥 = 𝑦 → Ⅎ𝑦 𝑤 = ⟨𝑥, 𝑧⟩)
32	28, 29	nfeqd 2921	. . . . . . . 8 ⊢ (¬ ∀𝑥 𝑥 = 𝑦 → Ⅎ𝑦 𝑥 = 𝑧)
33	31, 32	nfand 1978	. . . . . . 7 ⊢ (¬ ∀𝑥 𝑥 = 𝑦 → Ⅎ𝑦(𝑤 = ⟨𝑥, 𝑧⟩ ∧ 𝑥 = 𝑧))
34		opeq2 4540	. . . . . . . . . 10 ⊢ (𝑧 = 𝑦 → ⟨𝑥, 𝑧⟩ = ⟨𝑥, 𝑦⟩)
35	34	eqeq2d 2781	. . . . . . . . 9 ⊢ (𝑧 = 𝑦 → (𝑤 = ⟨𝑥, 𝑧⟩ ↔ 𝑤 = ⟨𝑥, 𝑦⟩))
36		equequ2 2111	. . . . . . . . 9 ⊢ (𝑧 = 𝑦 → (𝑥 = 𝑧 ↔ 𝑥 = 𝑦))
37	35, 36	anbi12d 608	. . . . . . . 8 ⊢ (𝑧 = 𝑦 → ((𝑤 = ⟨𝑥, 𝑧⟩ ∧ 𝑥 = 𝑧) ↔ (𝑤 = ⟨𝑥, 𝑦⟩ ∧ 𝑥 = 𝑦)))
38	37	a1i 11	. . . . . . 7 ⊢ (¬ ∀𝑥 𝑥 = 𝑦 → (𝑧 = 𝑦 → ((𝑤 = ⟨𝑥, 𝑧⟩ ∧ 𝑥 = 𝑧) ↔ (𝑤 = ⟨𝑥, 𝑦⟩ ∧ 𝑥 = 𝑦))))
39	26, 33, 38	cbvexd 2437	. . . . . 6 ⊢ (¬ ∀𝑥 𝑥 = 𝑦 → (∃𝑧(𝑤 = ⟨𝑥, 𝑧⟩ ∧ 𝑥 = 𝑧) ↔ ∃𝑦(𝑤 = ⟨𝑥, 𝑦⟩ ∧ 𝑥 = 𝑦)))
40	25, 39	exbid 2247	. . . . 5 ⊢ (¬ ∀𝑥 𝑥 = 𝑦 → (∃𝑥∃𝑧(𝑤 = ⟨𝑥, 𝑧⟩ ∧ 𝑥 = 𝑧) ↔ ∃𝑥∃𝑦(𝑤 = ⟨𝑥, 𝑦⟩ ∧ 𝑥 = 𝑦)))
41	24, 40	pm2.61i 176	. . . 4 ⊢ (∃𝑥∃𝑧(𝑤 = ⟨𝑥, 𝑧⟩ ∧ 𝑥 = 𝑧) ↔ ∃𝑥∃𝑦(𝑤 = ⟨𝑥, 𝑦⟩ ∧ 𝑥 = 𝑦))
42	41	abbii 2888	. . 3 ⊢ {𝑤 ∣ ∃𝑥∃𝑧(𝑤 = ⟨𝑥, 𝑧⟩ ∧ 𝑥 = 𝑧)} = {𝑤 ∣ ∃𝑥∃𝑦(𝑤 = ⟨𝑥, 𝑦⟩ ∧ 𝑥 = 𝑦)}
43		df-opab 4847	. . 3 ⊢ {⟨𝑥, 𝑧⟩ ∣ 𝑥 = 𝑧} = {𝑤 ∣ ∃𝑥∃𝑧(𝑤 = ⟨𝑥, 𝑧⟩ ∧ 𝑥 = 𝑧)}
44		df-opab 4847	. . 3 ⊢ {⟨𝑥, 𝑦⟩ ∣ 𝑥 = 𝑦} = {𝑤 ∣ ∃𝑥∃𝑦(𝑤 = ⟨𝑥, 𝑦⟩ ∧ 𝑥 = 𝑦)}
45	42, 43, 44	3eqtr4i 2803	. 2 ⊢ {⟨𝑥, 𝑧⟩ ∣ 𝑥 = 𝑧} = {⟨𝑥, 𝑦⟩ ∣ 𝑥 = 𝑦}
46	1, 45	eqtri 2793	1 ⊢ I = {⟨𝑥, 𝑦⟩ ∣ 𝑥 = 𝑦}

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 196   ∧ wa 382  ∀wal 1629   = wceq 1631  ∃wex 1852  {cab 2757  ⟨cop 4322  {copab 4846   I cid 5156

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1870  ax-4 1885  ax-5 1991  ax-6 2057  ax-7 2093  ax-9 2154  ax-10 2174  ax-11 2190  ax-12 2203  ax-13 2408  ax-ext 2751

This theorem depends on definitions:  df-bi 197  df-an 383  df-or 827  df-3an 1073  df-tru 1634  df-ex 1853  df-nf 1858  df-sb 2050  df-clab 2758  df-cleq 2764  df-clel 2767  df-nfc 2902  df-rab 3070  df-v 3353  df-dif 3726  df-un 3728  df-in 3730  df-ss 3737  df-nul 4064  df-if 4226  df-sn 4317  df-pr 4319  df-op 4323  df-opab 4847  df-id 5157

This theorem is referenced by:  dfid2  5160  reli  5388  opabresid  5596  ider  7932  cnmptid  21685  cossssid2  34560  cossid  34572