Theorem opelopabsb 4294

Description: The law of concretion in terms of substitutions. (Contributed by NM, 30-Sep-2002.) (Revised by Mario Carneiro, 18-Nov-2016.)

Assertion

Ref	Expression
opelopabsb	⊢ (⟨𝐴, 𝐵⟩ ∈ {⟨𝑥, 𝑦⟩ ∣ 𝜑} ↔ [𝐴 / 𝑥][𝐵 / 𝑦]𝜑)

Distinct variable groups:   𝑥,𝑦   𝑥,𝐵

Allowed substitution hints:   𝜑(𝑥,𝑦)   𝐴(𝑥,𝑦)   𝐵(𝑦)

Proof of Theorem opelopabsb

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

Step	Hyp	Ref	Expression
1		elopab 4292	. . . 4 ⊢ (⟨𝐴, 𝐵⟩ ∈ {⟨𝑢, 𝑣⟩ ∣ [𝑢 / 𝑥][𝑣 / 𝑦]𝜑} ↔ ∃𝑢∃𝑣(⟨𝐴, 𝐵⟩ = ⟨𝑢, 𝑣⟩ ∧ [𝑢 / 𝑥][𝑣 / 𝑦]𝜑))
2		simpl 109	. . . . . . . 8 ⊢ ((⟨𝐴, 𝐵⟩ = ⟨𝑢, 𝑣⟩ ∧ [𝑢 / 𝑥][𝑣 / 𝑦]𝜑) → ⟨𝐴, 𝐵⟩ = ⟨𝑢, 𝑣⟩)
3	2	eqcomd 2202	. . . . . . 7 ⊢ ((⟨𝐴, 𝐵⟩ = ⟨𝑢, 𝑣⟩ ∧ [𝑢 / 𝑥][𝑣 / 𝑦]𝜑) → ⟨𝑢, 𝑣⟩ = ⟨𝐴, 𝐵⟩)
4		vex 2766	. . . . . . . 8 ⊢ 𝑢 ∈ V
5		vex 2766	. . . . . . . 8 ⊢ 𝑣 ∈ V
6	4, 5	opth 4270	. . . . . . 7 ⊢ (⟨𝑢, 𝑣⟩ = ⟨𝐴, 𝐵⟩ ↔ (𝑢 = 𝐴 ∧ 𝑣 = 𝐵))
7	3, 6	sylib 122	. . . . . 6 ⊢ ((⟨𝐴, 𝐵⟩ = ⟨𝑢, 𝑣⟩ ∧ [𝑢 / 𝑥][𝑣 / 𝑦]𝜑) → (𝑢 = 𝐴 ∧ 𝑣 = 𝐵))
8	7	2eximi 1615	. . . . 5 ⊢ (∃𝑢∃𝑣(⟨𝐴, 𝐵⟩ = ⟨𝑢, 𝑣⟩ ∧ [𝑢 / 𝑥][𝑣 / 𝑦]𝜑) → ∃𝑢∃𝑣(𝑢 = 𝐴 ∧ 𝑣 = 𝐵))
9		eeanv 1951	. . . . . 6 ⊢ (∃𝑢∃𝑣(𝑢 = 𝐴 ∧ 𝑣 = 𝐵) ↔ (∃𝑢 𝑢 = 𝐴 ∧ ∃𝑣 𝑣 = 𝐵))
10		isset 2769	. . . . . . 7 ⊢ (𝐴 ∈ V ↔ ∃𝑢 𝑢 = 𝐴)
11		isset 2769	. . . . . . 7 ⊢ (𝐵 ∈ V ↔ ∃𝑣 𝑣 = 𝐵)
12	10, 11	anbi12i 460	. . . . . 6 ⊢ ((𝐴 ∈ V ∧ 𝐵 ∈ V) ↔ (∃𝑢 𝑢 = 𝐴 ∧ ∃𝑣 𝑣 = 𝐵))
13	9, 12	bitr4i 187	. . . . 5 ⊢ (∃𝑢∃𝑣(𝑢 = 𝐴 ∧ 𝑣 = 𝐵) ↔ (𝐴 ∈ V ∧ 𝐵 ∈ V))
14	8, 13	sylib 122	. . . 4 ⊢ (∃𝑢∃𝑣(⟨𝐴, 𝐵⟩ = ⟨𝑢, 𝑣⟩ ∧ [𝑢 / 𝑥][𝑣 / 𝑦]𝜑) → (𝐴 ∈ V ∧ 𝐵 ∈ V))
15	1, 14	sylbi 121	. . 3 ⊢ (⟨𝐴, 𝐵⟩ ∈ {⟨𝑢, 𝑣⟩ ∣ [𝑢 / 𝑥][𝑣 / 𝑦]𝜑} → (𝐴 ∈ V ∧ 𝐵 ∈ V))
16		nfv 1542	. . . 4 ⊢ Ⅎ𝑢𝜑
17		nfv 1542	. . . 4 ⊢ Ⅎ𝑣𝜑
18		nfs1v 1958	. . . 4 ⊢ Ⅎ𝑥[𝑢 / 𝑥][𝑣 / 𝑦]𝜑
19		nfs1v 1958	. . . . 5 ⊢ Ⅎ𝑦[𝑣 / 𝑦]𝜑
20	19	nfsbxy 1961	. . . 4 ⊢ Ⅎ𝑦[𝑢 / 𝑥][𝑣 / 𝑦]𝜑
21		sbequ12 1785	. . . . 5 ⊢ (𝑦 = 𝑣 → (𝜑 ↔ [𝑣 / 𝑦]𝜑))
22		sbequ12 1785	. . . . 5 ⊢ (𝑥 = 𝑢 → ([𝑣 / 𝑦]𝜑 ↔ [𝑢 / 𝑥][𝑣 / 𝑦]𝜑))
23	21, 22	sylan9bbr 463	. . . 4 ⊢ ((𝑥 = 𝑢 ∧ 𝑦 = 𝑣) → (𝜑 ↔ [𝑢 / 𝑥][𝑣 / 𝑦]𝜑))
24	16, 17, 18, 20, 23	cbvopab 4104	. . 3 ⊢ {⟨𝑥, 𝑦⟩ ∣ 𝜑} = {⟨𝑢, 𝑣⟩ ∣ [𝑢 / 𝑥][𝑣 / 𝑦]𝜑}
25	15, 24	eleq2s 2291	. 2 ⊢ (⟨𝐴, 𝐵⟩ ∈ {⟨𝑥, 𝑦⟩ ∣ 𝜑} → (𝐴 ∈ V ∧ 𝐵 ∈ V))
26		sbcex 2998	. . 3 ⊢ ([𝐴 / 𝑥][𝐵 / 𝑦]𝜑 → 𝐴 ∈ V)
27		spesbc 3075	. . . 4 ⊢ ([𝐴 / 𝑥][𝐵 / 𝑦]𝜑 → ∃𝑥[𝐵 / 𝑦]𝜑)
28		sbcex 2998	. . . . 5 ⊢ ([𝐵 / 𝑦]𝜑 → 𝐵 ∈ V)
29	28	exlimiv 1612	. . . 4 ⊢ (∃𝑥[𝐵 / 𝑦]𝜑 → 𝐵 ∈ V)
30	27, 29	syl 14	. . 3 ⊢ ([𝐴 / 𝑥][𝐵 / 𝑦]𝜑 → 𝐵 ∈ V)
31	26, 30	jca 306	. 2 ⊢ ([𝐴 / 𝑥][𝐵 / 𝑦]𝜑 → (𝐴 ∈ V ∧ 𝐵 ∈ V))
32		opeq1 3808	. . . . 5 ⊢ (𝑧 = 𝐴 → ⟨𝑧, 𝑤⟩ = ⟨𝐴, 𝑤⟩)
33	32	eleq1d 2265	. . . 4 ⊢ (𝑧 = 𝐴 → (⟨𝑧, 𝑤⟩ ∈ {⟨𝑥, 𝑦⟩ ∣ 𝜑} ↔ ⟨𝐴, 𝑤⟩ ∈ {⟨𝑥, 𝑦⟩ ∣ 𝜑}))
34		dfsbcq2 2992	. . . 4 ⊢ (𝑧 = 𝐴 → ([𝑧 / 𝑥][𝑤 / 𝑦]𝜑 ↔ [𝐴 / 𝑥][𝑤 / 𝑦]𝜑))
35	33, 34	bibi12d 235	. . 3 ⊢ (𝑧 = 𝐴 → ((⟨𝑧, 𝑤⟩ ∈ {⟨𝑥, 𝑦⟩ ∣ 𝜑} ↔ [𝑧 / 𝑥][𝑤 / 𝑦]𝜑) ↔ (⟨𝐴, 𝑤⟩ ∈ {⟨𝑥, 𝑦⟩ ∣ 𝜑} ↔ [𝐴 / 𝑥][𝑤 / 𝑦]𝜑)))
36		opeq2 3809	. . . . 5 ⊢ (𝑤 = 𝐵 → ⟨𝐴, 𝑤⟩ = ⟨𝐴, 𝐵⟩)
37	36	eleq1d 2265	. . . 4 ⊢ (𝑤 = 𝐵 → (⟨𝐴, 𝑤⟩ ∈ {⟨𝑥, 𝑦⟩ ∣ 𝜑} ↔ ⟨𝐴, 𝐵⟩ ∈ {⟨𝑥, 𝑦⟩ ∣ 𝜑}))
38		dfsbcq2 2992	. . . . 5 ⊢ (𝑤 = 𝐵 → ([𝑤 / 𝑦]𝜑 ↔ [𝐵 / 𝑦]𝜑))
39	38	sbcbidv 3048	. . . 4 ⊢ (𝑤 = 𝐵 → ([𝐴 / 𝑥][𝑤 / 𝑦]𝜑 ↔ [𝐴 / 𝑥][𝐵 / 𝑦]𝜑))
40	37, 39	bibi12d 235	. . 3 ⊢ (𝑤 = 𝐵 → ((⟨𝐴, 𝑤⟩ ∈ {⟨𝑥, 𝑦⟩ ∣ 𝜑} ↔ [𝐴 / 𝑥][𝑤 / 𝑦]𝜑) ↔ (⟨𝐴, 𝐵⟩ ∈ {⟨𝑥, 𝑦⟩ ∣ 𝜑} ↔ [𝐴 / 𝑥][𝐵 / 𝑦]𝜑)))
41		nfopab1 4102	. . . . . 6 ⊢ Ⅎ𝑥{⟨𝑥, 𝑦⟩ ∣ 𝜑}
42	41	nfel2 2352	. . . . 5 ⊢ Ⅎ𝑥⟨𝑧, 𝑤⟩ ∈ {⟨𝑥, 𝑦⟩ ∣ 𝜑}
43		nfs1v 1958	. . . . 5 ⊢ Ⅎ𝑥[𝑧 / 𝑥][𝑤 / 𝑦]𝜑
44	42, 43	nfbi 1603	. . . 4 ⊢ Ⅎ𝑥(⟨𝑧, 𝑤⟩ ∈ {⟨𝑥, 𝑦⟩ ∣ 𝜑} ↔ [𝑧 / 𝑥][𝑤 / 𝑦]𝜑)
45		opeq1 3808	. . . . . 6 ⊢ (𝑥 = 𝑧 → ⟨𝑥, 𝑤⟩ = ⟨𝑧, 𝑤⟩)
46	45	eleq1d 2265	. . . . 5 ⊢ (𝑥 = 𝑧 → (⟨𝑥, 𝑤⟩ ∈ {⟨𝑥, 𝑦⟩ ∣ 𝜑} ↔ ⟨𝑧, 𝑤⟩ ∈ {⟨𝑥, 𝑦⟩ ∣ 𝜑}))
47		sbequ12 1785	. . . . 5 ⊢ (𝑥 = 𝑧 → ([𝑤 / 𝑦]𝜑 ↔ [𝑧 / 𝑥][𝑤 / 𝑦]𝜑))
48	46, 47	bibi12d 235	. . . 4 ⊢ (𝑥 = 𝑧 → ((⟨𝑥, 𝑤⟩ ∈ {⟨𝑥, 𝑦⟩ ∣ 𝜑} ↔ [𝑤 / 𝑦]𝜑) ↔ (⟨𝑧, 𝑤⟩ ∈ {⟨𝑥, 𝑦⟩ ∣ 𝜑} ↔ [𝑧 / 𝑥][𝑤 / 𝑦]𝜑)))
49		nfopab2 4103	. . . . . . 7 ⊢ Ⅎ𝑦{⟨𝑥, 𝑦⟩ ∣ 𝜑}
50	49	nfel2 2352	. . . . . 6 ⊢ Ⅎ𝑦⟨𝑥, 𝑤⟩ ∈ {⟨𝑥, 𝑦⟩ ∣ 𝜑}
51		nfs1v 1958	. . . . . 6 ⊢ Ⅎ𝑦[𝑤 / 𝑦]𝜑
52	50, 51	nfbi 1603	. . . . 5 ⊢ Ⅎ𝑦(⟨𝑥, 𝑤⟩ ∈ {⟨𝑥, 𝑦⟩ ∣ 𝜑} ↔ [𝑤 / 𝑦]𝜑)
53		opeq2 3809	. . . . . . 7 ⊢ (𝑦 = 𝑤 → ⟨𝑥, 𝑦⟩ = ⟨𝑥, 𝑤⟩)
54	53	eleq1d 2265	. . . . . 6 ⊢ (𝑦 = 𝑤 → (⟨𝑥, 𝑦⟩ ∈ {⟨𝑥, 𝑦⟩ ∣ 𝜑} ↔ ⟨𝑥, 𝑤⟩ ∈ {⟨𝑥, 𝑦⟩ ∣ 𝜑}))
55		sbequ12 1785	. . . . . 6 ⊢ (𝑦 = 𝑤 → (𝜑 ↔ [𝑤 / 𝑦]𝜑))
56	54, 55	bibi12d 235	. . . . 5 ⊢ (𝑦 = 𝑤 → ((⟨𝑥, 𝑦⟩ ∈ {⟨𝑥, 𝑦⟩ ∣ 𝜑} ↔ 𝜑) ↔ (⟨𝑥, 𝑤⟩ ∈ {⟨𝑥, 𝑦⟩ ∣ 𝜑} ↔ [𝑤 / 𝑦]𝜑)))
57		opabid 4290	. . . . 5 ⊢ (⟨𝑥, 𝑦⟩ ∈ {⟨𝑥, 𝑦⟩ ∣ 𝜑} ↔ 𝜑)
58	52, 56, 57	chvar 1771	. . . 4 ⊢ (⟨𝑥, 𝑤⟩ ∈ {⟨𝑥, 𝑦⟩ ∣ 𝜑} ↔ [𝑤 / 𝑦]𝜑)
59	44, 48, 58	chvar 1771	. . 3 ⊢ (⟨𝑧, 𝑤⟩ ∈ {⟨𝑥, 𝑦⟩ ∣ 𝜑} ↔ [𝑧 / 𝑥][𝑤 / 𝑦]𝜑)
60	35, 40, 59	vtocl2g 2828	. 2 ⊢ ((𝐴 ∈ V ∧ 𝐵 ∈ V) → (⟨𝐴, 𝐵⟩ ∈ {⟨𝑥, 𝑦⟩ ∣ 𝜑} ↔ [𝐴 / 𝑥][𝐵 / 𝑦]𝜑))
61	25, 31, 60	pm5.21nii 705	1 ⊢ (⟨𝐴, 𝐵⟩ ∈ {⟨𝑥, 𝑦⟩ ∣ 𝜑} ↔ [𝐴 / 𝑥][𝐵 / 𝑦]𝜑)

Syntax hints:   ∧ wa 104   ↔ wb 105   = wceq 1364  ∃wex 1506  [wsb 1776   ∈ wcel 2167  Vcvv 2763  [wsbc 2989  ⟨cop 3625  {copab 4093

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 1461  ax-7 1462  ax-gen 1463  ax-ie1 1507  ax-ie2 1508  ax-8 1518  ax-10 1519  ax-11 1520  ax-i12 1521  ax-bndl 1523  ax-4 1524  ax-17 1540  ax-i9 1544  ax-ial 1548  ax-i5r 1549  ax-14 2170  ax-ext 2178  ax-sep 4151  ax-pow 4207  ax-pr 4242

This theorem depends on definitions:  df-bi 117  df-3an 982  df-tru 1367  df-nf 1475  df-sb 1777  df-eu 2048  df-mo 2049  df-clab 2183  df-cleq 2189  df-clel 2192  df-nfc 2328  df-rex 2481  df-v 2765  df-sbc 2990  df-un 3161  df-in 3163  df-ss 3170  df-pw 3607  df-sn 3628  df-pr 3629  df-op 3631  df-opab 4095

This theorem is referenced by:  brabsb  4295  opelopabgf  4304  opelopabaf  4308  opelopabf  4309  difopab  4799  isarep1  5344