Theorem dfoprab4f 8053

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 1947	. . . . 5 ⊢ Ⅎ𝑥 𝑤 = ⟨𝑡, 𝑢⟩
2		dfoprab4f.x	. . . . . 6 ⊢ Ⅎ𝑥𝜑
3		nfs1v 2193	. . . . . 6 ⊢ Ⅎ𝑥[𝑡 / 𝑥][𝑢 / 𝑦]𝜓
4	2, 3	nfbi 1936	. . . . 5 ⊢ Ⅎ𝑥(𝜑 ↔ [𝑡 / 𝑥][𝑢 / 𝑦]𝜓)
5	1, 4	nfim 1929	. . . 4 ⊢ Ⅎ𝑥(𝑤 = ⟨𝑡, 𝑢⟩ → (𝜑 ↔ [𝑡 / 𝑥][𝑢 / 𝑦]𝜓))
6		opeq1 4833	. . . . . 6 ⊢ (𝑥 = 𝑡 → ⟨𝑥, 𝑢⟩ = ⟨𝑡, 𝑢⟩)
7	6	eqeq2d 2771	. . . . 5 ⊢ (𝑥 = 𝑡 → (𝑤 = ⟨𝑥, 𝑢⟩ ↔ 𝑤 = ⟨𝑡, 𝑢⟩))
8		sbequ12 2286	. . . . . 6 ⊢ (𝑥 = 𝑡 → ([𝑢 / 𝑦]𝜓 ↔ [𝑡 / 𝑥][𝑢 / 𝑦]𝜓))
9	8	bibi2d 345	. . . . 5 ⊢ (𝑥 = 𝑡 → ((𝜑 ↔ [𝑢 / 𝑦]𝜓) ↔ (𝜑 ↔ [𝑡 / 𝑥][𝑢 / 𝑦]𝜓)))
10	7, 9	imbi12d 347	. . . 4 ⊢ (𝑥 = 𝑡 → ((𝑤 = ⟨𝑥, 𝑢⟩ → (𝜑 ↔ [𝑢 / 𝑦]𝜓)) ↔ (𝑤 = ⟨𝑡, 𝑢⟩ → (𝜑 ↔ [𝑡 / 𝑥][𝑢 / 𝑦]𝜓))))
11		nfv 1947	. . . . . 6 ⊢ Ⅎ𝑦 𝑤 = ⟨𝑥, 𝑢⟩
12		dfoprab4f.y	. . . . . . 7 ⊢ Ⅎ𝑦𝜑
13		nfs1v 2193	. . . . . . 7 ⊢ Ⅎ𝑦[𝑢 / 𝑦]𝜓
14	12, 13	nfbi 1936	. . . . . 6 ⊢ Ⅎ𝑦(𝜑 ↔ [𝑢 / 𝑦]𝜓)
15	11, 14	nfim 1929	. . . . 5 ⊢ Ⅎ𝑦(𝑤 = ⟨𝑥, 𝑢⟩ → (𝜑 ↔ [𝑢 / 𝑦]𝜓))
16		opeq2 4834	. . . . . . 7 ⊢ (𝑦 = 𝑢 → ⟨𝑥, 𝑦⟩ = ⟨𝑥, 𝑢⟩)
17	16	eqeq2d 2771	. . . . . 6 ⊢ (𝑦 = 𝑢 → (𝑤 = ⟨𝑥, 𝑦⟩ ↔ 𝑤 = ⟨𝑥, 𝑢⟩))
18		sbequ12 2286	. . . . . . 7 ⊢ (𝑦 = 𝑢 → (𝜓 ↔ [𝑢 / 𝑦]𝜓))
19	18	bibi2d 345	. . . . . 6 ⊢ (𝑦 = 𝑢 → ((𝜑 ↔ 𝜓) ↔ (𝜑 ↔ [𝑢 / 𝑦]𝜓)))
20	17, 19	imbi12d 347	. . . . 5 ⊢ (𝑦 = 𝑢 → ((𝑤 = ⟨𝑥, 𝑦⟩ → (𝜑 ↔ 𝜓)) ↔ (𝑤 = ⟨𝑥, 𝑢⟩ → (𝜑 ↔ [𝑢 / 𝑦]𝜓))))
21		dfoprab4f.1	. . . . 5 ⊢ (𝑤 = ⟨𝑥, 𝑦⟩ → (𝜑 ↔ 𝜓))
22	15, 20, 21	chvarfv 2276	. . . 4 ⊢ (𝑤 = ⟨𝑥, 𝑢⟩ → (𝜑 ↔ [𝑢 / 𝑦]𝜓))
23	5, 10, 22	chvarfv 2276	. . 3 ⊢ (𝑤 = ⟨𝑡, 𝑢⟩ → (𝜑 ↔ [𝑡 / 𝑥][𝑢 / 𝑦]𝜓))
24	23	dfoprab4 8052	. 2 ⊢ {⟨𝑤, 𝑧⟩ ∣ (𝑤 ∈ (𝐴 × 𝐵) ∧ 𝜑)} = {⟨⟨𝑡, 𝑢⟩, 𝑧⟩ ∣ ((𝑡 ∈ 𝐴 ∧ 𝑢 ∈ 𝐵) ∧ [𝑡 / 𝑥][𝑢 / 𝑦]𝜓)}
25		nfv 1947	. . 3 ⊢ Ⅎ𝑡((𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵) ∧ 𝜓)
26		nfv 1947	. . 3 ⊢ Ⅎ𝑢((𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵) ∧ 𝜓)
27		nfv 1947	. . . 4 ⊢ Ⅎ𝑥(𝑡 ∈ 𝐴 ∧ 𝑢 ∈ 𝐵)
28	27, 3	nfan 1932	. . 3 ⊢ Ⅎ𝑥((𝑡 ∈ 𝐴 ∧ 𝑢 ∈ 𝐵) ∧ [𝑡 / 𝑥][𝑢 / 𝑦]𝜓)
29		nfv 1947	. . . 4 ⊢ Ⅎ𝑦(𝑡 ∈ 𝐴 ∧ 𝑢 ∈ 𝐵)
30	13	nfsbv 2360	. . . 4 ⊢ Ⅎ𝑦[𝑡 / 𝑥][𝑢 / 𝑦]𝜓
31	29, 30	nfan 1932	. . 3 ⊢ Ⅎ𝑦((𝑡 ∈ 𝐴 ∧ 𝑢 ∈ 𝐵) ∧ [𝑡 / 𝑥][𝑢 / 𝑦]𝜓)
32		eleq1w 2843	. . . . 5 ⊢ (𝑥 = 𝑡 → (𝑥 ∈ 𝐴 ↔ 𝑡 ∈ 𝐴))
33		eleq1w 2843	. . . . 5 ⊢ (𝑦 = 𝑢 → (𝑦 ∈ 𝐵 ↔ 𝑢 ∈ 𝐵))
34	32, 33	bi2anan9 650	. . . 4 ⊢ ((𝑥 = 𝑡 ∧ 𝑦 = 𝑢) → ((𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵) ↔ (𝑡 ∈ 𝐴 ∧ 𝑢 ∈ 𝐵)))
35	18, 8	sylan9bbr 520	. . . 4 ⊢ ((𝑥 = 𝑡 ∧ 𝑦 = 𝑢) → (𝜓 ↔ [𝑡 / 𝑥][𝑢 / 𝑦]𝜓))
36	34, 35	anbi12d 644	. . 3 ⊢ ((𝑥 = 𝑡 ∧ 𝑦 = 𝑢) → (((𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵) ∧ 𝜓) ↔ ((𝑡 ∈ 𝐴 ∧ 𝑢 ∈ 𝐵) ∧ [𝑡 / 𝑥][𝑢 / 𝑦]𝜓)))
37	25, 26, 28, 31, 36	cbvoprab12 7502	. 2 ⊢ {⟨⟨𝑥, 𝑦⟩, 𝑧⟩ ∣ ((𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵) ∧ 𝜓)} = {⟨⟨𝑡, 𝑢⟩, 𝑧⟩ ∣ ((𝑡 ∈ 𝐴 ∧ 𝑢 ∈ 𝐵) ∧ [𝑡 / 𝑥][𝑢 / 𝑦]𝜓)}
38	24, 37	eqtr4i 2786	1 ⊢ {⟨𝑤, 𝑧⟩ ∣ (𝑤 ∈ (𝐴 × 𝐵) ∧ 𝜑)} = {⟨⟨𝑥, 𝑦⟩, 𝑧⟩ ∣ ((𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵) ∧ 𝜓)}

This proof depends on syntax axioms:   → wi 4   ↔ wb 209   ∧ wa 401   = wceq 1570  Ⅎwnf 1816  [wsb 2099   ∈ wcel 2145  ⟨cop 4590  {copab 5167   × cxp 5653  {coprab 7414

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1943  ax-6 2000  ax-7 2041  ax-8 2147  ax-9 2155  ax-10 2178  ax-11 2194  ax-12 2213  ax-ext 2732  ax-sep 5251  ax-nul 5263  ax-pr 5398  ax-un 7736

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2100  df-mo 2564  df-eu 2594  df-clab 2739  df-cleq 2752  df-clel 2835  df-nfc 2909  df-ne 2956  df-ral 3077  df-rex 3087  df-rab 3413  df-v 3452  df-sbc 3740  df-dif 3902  df-un 3904  df-in 3906  df-ss 3916  df-nul 4280  df-if 4483  df-sn 4585  df-pr 4587  df-op 4591  df-uni 4868  df-br 5104  df-opab 5168  df-mpt 5187  df-id 5550  df-xp 5661  df-rel 5662  df-cnv 5663  df-co 5664  df-dm 5665  df-rn 5666  df-iota 6489  df-fun 6535  df-fv 6541  df-oprab 7417  df-1st 7986  df-2nd 7987

This theorem is used by: (None)