Theorem dfoprab4f 7943

Description: Operation class abstraction expressed without existential quantifiers. (Contributed by NM, 20-Dec-2008.) Remove unnecessary distinct variable conditions. (Revised by David Abernethy, 19-Jun-2012.) (Revised by Mario Carneiro, 31-Aug-2015.)

Hypotheses

Ref	Expression
dfoprab4f.x	⊢ Ⅎ𝑥𝜑
dfoprab4f.y	⊢ Ⅎ𝑦𝜑
dfoprab4f.1	⊢ (𝑤 = ⟨𝑥, 𝑦⟩ → (𝜑 ↔ 𝜓))

Assertion

Ref	Expression
dfoprab4f	⊢ {⟨𝑤, 𝑧⟩ ∣ (𝑤 ∈ (𝐴 × 𝐵) ∧ 𝜑)} = {⟨⟨𝑥, 𝑦⟩, 𝑧⟩ ∣ ((𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵) ∧ 𝜓)}

Distinct variable groups:   𝑥,𝑤,𝑦,𝑧   𝑤,𝐴,𝑥,𝑦   𝑤,𝐵,𝑥,𝑦   𝜓,𝑤

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

Proof of Theorem dfoprab4f

Dummy variables 𝑢 𝑡 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		nfv 1916	. . . . 5 ⊢ Ⅎ𝑥 𝑤 = ⟨𝑡, 𝑢⟩
2		dfoprab4f.x	. . . . . 6 ⊢ Ⅎ𝑥𝜑
3		nfs1v 2152	. . . . . 6 ⊢ Ⅎ𝑥[𝑡 / 𝑥][𝑢 / 𝑦]𝜓
4	2, 3	nfbi 1905	. . . . 5 ⊢ Ⅎ𝑥(𝜑 ↔ [𝑡 / 𝑥][𝑢 / 𝑦]𝜓)
5	1, 4	nfim 1898	. . . 4 ⊢ Ⅎ𝑥(𝑤 = ⟨𝑡, 𝑢⟩ → (𝜑 ↔ [𝑡 / 𝑥][𝑢 / 𝑦]𝜓))
6		opeq1 4815	. . . . . 6 ⊢ (𝑥 = 𝑡 → ⟨𝑥, 𝑢⟩ = ⟨𝑡, 𝑢⟩)
7	6	eqeq2d 2748	. . . . 5 ⊢ (𝑥 = 𝑡 → (𝑤 = ⟨𝑥, 𝑢⟩ ↔ 𝑤 = ⟨𝑡, 𝑢⟩))
8		sbequ12 2243	. . . . . 6 ⊢ (𝑥 = 𝑡 → ([𝑢 / 𝑦]𝜓 ↔ [𝑡 / 𝑥][𝑢 / 𝑦]𝜓))
9	8	bibi2d 342	. . . . 5 ⊢ (𝑥 = 𝑡 → ((𝜑 ↔ [𝑢 / 𝑦]𝜓) ↔ (𝜑 ↔ [𝑡 / 𝑥][𝑢 / 𝑦]𝜓)))
10	7, 9	imbi12d 344	. . . 4 ⊢ (𝑥 = 𝑡 → ((𝑤 = ⟨𝑥, 𝑢⟩ → (𝜑 ↔ [𝑢 / 𝑦]𝜓)) ↔ (𝑤 = ⟨𝑡, 𝑢⟩ → (𝜑 ↔ [𝑡 / 𝑥][𝑢 / 𝑦]𝜓))))
11		nfv 1916	. . . . . 6 ⊢ Ⅎ𝑦 𝑤 = ⟨𝑥, 𝑢⟩
12		dfoprab4f.y	. . . . . . 7 ⊢ Ⅎ𝑦𝜑
13		nfs1v 2152	. . . . . . 7 ⊢ Ⅎ𝑦[𝑢 / 𝑦]𝜓
14	12, 13	nfbi 1905	. . . . . 6 ⊢ Ⅎ𝑦(𝜑 ↔ [𝑢 / 𝑦]𝜓)
15	11, 14	nfim 1898	. . . . 5 ⊢ Ⅎ𝑦(𝑤 = ⟨𝑥, 𝑢⟩ → (𝜑 ↔ [𝑢 / 𝑦]𝜓))
16		opeq2 4816	. . . . . . 7 ⊢ (𝑦 = 𝑢 → ⟨𝑥, 𝑦⟩ = ⟨𝑥, 𝑢⟩)
17	16	eqeq2d 2748	. . . . . 6 ⊢ (𝑦 = 𝑢 → (𝑤 = ⟨𝑥, 𝑦⟩ ↔ 𝑤 = ⟨𝑥, 𝑢⟩))
18		sbequ12 2243	. . . . . . 7 ⊢ (𝑦 = 𝑢 → (𝜓 ↔ [𝑢 / 𝑦]𝜓))
19	18	bibi2d 342	. . . . . 6 ⊢ (𝑦 = 𝑢 → ((𝜑 ↔ 𝜓) ↔ (𝜑 ↔ [𝑢 / 𝑦]𝜓)))
20	17, 19	imbi12d 344	. . . . 5 ⊢ (𝑦 = 𝑢 → ((𝑤 = ⟨𝑥, 𝑦⟩ → (𝜑 ↔ 𝜓)) ↔ (𝑤 = ⟨𝑥, 𝑢⟩ → (𝜑 ↔ [𝑢 / 𝑦]𝜓))))
21		dfoprab4f.1	. . . . 5 ⊢ (𝑤 = ⟨𝑥, 𝑦⟩ → (𝜑 ↔ 𝜓))
22	15, 20, 21	chvarfv 2232	. . . 4 ⊢ (𝑤 = ⟨𝑥, 𝑢⟩ → (𝜑 ↔ [𝑢 / 𝑦]𝜓))
23	5, 10, 22	chvarfv 2232	. . 3 ⊢ (𝑤 = ⟨𝑡, 𝑢⟩ → (𝜑 ↔ [𝑡 / 𝑥][𝑢 / 𝑦]𝜓))
24	23	dfoprab4 7942	. 2 ⊢ {⟨𝑤, 𝑧⟩ ∣ (𝑤 ∈ (𝐴 × 𝐵) ∧ 𝜑)} = {⟨⟨𝑡, 𝑢⟩, 𝑧⟩ ∣ ((𝑡 ∈ 𝐴 ∧ 𝑢 ∈ 𝐵) ∧ [𝑡 / 𝑥][𝑢 / 𝑦]𝜓)}
25		nfv 1916	. . 3 ⊢ Ⅎ𝑡((𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵) ∧ 𝜓)
26		nfv 1916	. . 3 ⊢ Ⅎ𝑢((𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵) ∧ 𝜓)
27		nfv 1916	. . . 4 ⊢ Ⅎ𝑥(𝑡 ∈ 𝐴 ∧ 𝑢 ∈ 𝐵)
28	27, 3	nfan 1901	. . 3 ⊢ Ⅎ𝑥((𝑡 ∈ 𝐴 ∧ 𝑢 ∈ 𝐵) ∧ [𝑡 / 𝑥][𝑢 / 𝑦]𝜓)
29		nfv 1916	. . . 4 ⊢ Ⅎ𝑦(𝑡 ∈ 𝐴 ∧ 𝑢 ∈ 𝐵)
30	13	nfsbv 2323	. . . 4 ⊢ Ⅎ𝑦[𝑡 / 𝑥][𝑢 / 𝑦]𝜓
31	29, 30	nfan 1901	. . 3 ⊢ Ⅎ𝑦((𝑡 ∈ 𝐴 ∧ 𝑢 ∈ 𝐵) ∧ [𝑡 / 𝑥][𝑢 / 𝑦]𝜓)
32		eleq1w 2820	. . . . 5 ⊢ (𝑥 = 𝑡 → (𝑥 ∈ 𝐴 ↔ 𝑡 ∈ 𝐴))
33		eleq1w 2820	. . . . 5 ⊢ (𝑦 = 𝑢 → (𝑦 ∈ 𝐵 ↔ 𝑢 ∈ 𝐵))
34	32, 33	bi2anan9 636	. . . 4 ⊢ ((𝑥 = 𝑡 ∧ 𝑦 = 𝑢) → ((𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵) ↔ (𝑡 ∈ 𝐴 ∧ 𝑢 ∈ 𝐵)))
35	18, 8	sylan9bbr 511	. . . 4 ⊢ ((𝑥 = 𝑡 ∧ 𝑦 = 𝑢) → (𝜓 ↔ [𝑡 / 𝑥][𝑢 / 𝑦]𝜓))
36	34, 35	anbi12d 631	. . 3 ⊢ ((𝑥 = 𝑡 ∧ 𝑦 = 𝑢) → (((𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵) ∧ 𝜓) ↔ ((𝑡 ∈ 𝐴 ∧ 𝑢 ∈ 𝐵) ∧ [𝑡 / 𝑥][𝑢 / 𝑦]𝜓)))
37	25, 26, 28, 31, 36	cbvoprab12 7406	. 2 ⊢ {⟨⟨𝑥, 𝑦⟩, 𝑧⟩ ∣ ((𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵) ∧ 𝜓)} = {⟨⟨𝑡, 𝑢⟩, 𝑧⟩ ∣ ((𝑡 ∈ 𝐴 ∧ 𝑢 ∈ 𝐵) ∧ [𝑡 / 𝑥][𝑢 / 𝑦]𝜓)}
38	24, 37	eqtr4i 2768	1 ⊢ {⟨𝑤, 𝑧⟩ ∣ (𝑤 ∈ (𝐴 × 𝐵) ∧ 𝜑)} = {⟨⟨𝑥, 𝑦⟩, 𝑧⟩ ∣ ((𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵) ∧ 𝜓)}

Syntax hints:   → wi 4   ↔ wb 205   ∧ wa 396   = wceq 1540  Ⅎwnf 1784  [wsb 2066   ∈ wcel 2105  ⟨cop 4577  {copab 5149   × cxp 5606  {coprab 7318

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 1912  ax-6 1970  ax-7 2010  ax-8 2107  ax-9 2115  ax-10 2136  ax-11 2153  ax-12 2170  ax-ext 2708  ax-sep 5238  ax-nul 5245  ax-pr 5367  ax-un 7630

This theorem depends on definitions:  df-bi 206  df-an 397  df-or 845  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1781  df-nf 1785  df-sb 2067  df-mo 2539  df-eu 2568  df-clab 2715  df-cleq 2729  df-clel 2815  df-nfc 2887  df-ne 2942  df-ral 3063  df-rex 3072  df-rab 3405  df-v 3443  df-sbc 3727  df-dif 3900  df-un 3902  df-in 3904  df-ss 3914  df-nul 4268  df-if 4472  df-sn 4572  df-pr 4574  df-op 4578  df-uni 4851  df-br 5088  df-opab 5150  df-mpt 5171  df-id 5507  df-xp 5614  df-rel 5615  df-cnv 5616  df-co 5617  df-dm 5618  df-rn 5619  df-iota 6418  df-fun 6468  df-fv 6474  df-oprab 7321  df-1st 7878  df-2nd 7879

This theorem is referenced by: (None)