Theorem dfoprab4f 6091

Description: Operation class abstraction expressed without existential quantifiers. (Unnecessary distinct variable restrictions were removed by David Abernethy, 19-Jun-2012.) (Contributed by NM, 20-Dec-2008.) (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 1508	. . . . 5 ⊢ Ⅎ𝑥 𝑤 = ⟨𝑡, 𝑢⟩
2		dfoprab4f.x	. . . . . 6 ⊢ Ⅎ𝑥𝜑
3		nfs1v 1912	. . . . . 6 ⊢ Ⅎ𝑥[𝑡 / 𝑥][𝑢 / 𝑦]𝜓
4	2, 3	nfbi 1568	. . . . 5 ⊢ Ⅎ𝑥(𝜑 ↔ [𝑡 / 𝑥][𝑢 / 𝑦]𝜓)
5	1, 4	nfim 1551	. . . 4 ⊢ Ⅎ𝑥(𝑤 = ⟨𝑡, 𝑢⟩ → (𝜑 ↔ [𝑡 / 𝑥][𝑢 / 𝑦]𝜓))
6		opeq1 3705	. . . . . 6 ⊢ (𝑥 = 𝑡 → ⟨𝑥, 𝑢⟩ = ⟨𝑡, 𝑢⟩)
7	6	eqeq2d 2151	. . . . 5 ⊢ (𝑥 = 𝑡 → (𝑤 = ⟨𝑥, 𝑢⟩ ↔ 𝑤 = ⟨𝑡, 𝑢⟩))
8		sbequ12 1744	. . . . . 6 ⊢ (𝑥 = 𝑡 → ([𝑢 / 𝑦]𝜓 ↔ [𝑡 / 𝑥][𝑢 / 𝑦]𝜓))
9	8	bibi2d 231	. . . . 5 ⊢ (𝑥 = 𝑡 → ((𝜑 ↔ [𝑢 / 𝑦]𝜓) ↔ (𝜑 ↔ [𝑡 / 𝑥][𝑢 / 𝑦]𝜓)))
10	7, 9	imbi12d 233	. . . 4 ⊢ (𝑥 = 𝑡 → ((𝑤 = ⟨𝑥, 𝑢⟩ → (𝜑 ↔ [𝑢 / 𝑦]𝜓)) ↔ (𝑤 = ⟨𝑡, 𝑢⟩ → (𝜑 ↔ [𝑡 / 𝑥][𝑢 / 𝑦]𝜓))))
11		nfv 1508	. . . . . 6 ⊢ Ⅎ𝑦 𝑤 = ⟨𝑥, 𝑢⟩
12		dfoprab4f.y	. . . . . . 7 ⊢ Ⅎ𝑦𝜑
13		nfs1v 1912	. . . . . . 7 ⊢ Ⅎ𝑦[𝑢 / 𝑦]𝜓
14	12, 13	nfbi 1568	. . . . . 6 ⊢ Ⅎ𝑦(𝜑 ↔ [𝑢 / 𝑦]𝜓)
15	11, 14	nfim 1551	. . . . 5 ⊢ Ⅎ𝑦(𝑤 = ⟨𝑥, 𝑢⟩ → (𝜑 ↔ [𝑢 / 𝑦]𝜓))
16		opeq2 3706	. . . . . . 7 ⊢ (𝑦 = 𝑢 → ⟨𝑥, 𝑦⟩ = ⟨𝑥, 𝑢⟩)
17	16	eqeq2d 2151	. . . . . 6 ⊢ (𝑦 = 𝑢 → (𝑤 = ⟨𝑥, 𝑦⟩ ↔ 𝑤 = ⟨𝑥, 𝑢⟩))
18		sbequ12 1744	. . . . . . 7 ⊢ (𝑦 = 𝑢 → (𝜓 ↔ [𝑢 / 𝑦]𝜓))
19	18	bibi2d 231	. . . . . 6 ⊢ (𝑦 = 𝑢 → ((𝜑 ↔ 𝜓) ↔ (𝜑 ↔ [𝑢 / 𝑦]𝜓)))
20	17, 19	imbi12d 233	. . . . 5 ⊢ (𝑦 = 𝑢 → ((𝑤 = ⟨𝑥, 𝑦⟩ → (𝜑 ↔ 𝜓)) ↔ (𝑤 = ⟨𝑥, 𝑢⟩ → (𝜑 ↔ [𝑢 / 𝑦]𝜓))))
21		dfoprab4f.1	. . . . 5 ⊢ (𝑤 = ⟨𝑥, 𝑦⟩ → (𝜑 ↔ 𝜓))
22	15, 20, 21	chvar 1730	. . . 4 ⊢ (𝑤 = ⟨𝑥, 𝑢⟩ → (𝜑 ↔ [𝑢 / 𝑦]𝜓))
23	5, 10, 22	chvar 1730	. . 3 ⊢ (𝑤 = ⟨𝑡, 𝑢⟩ → (𝜑 ↔ [𝑡 / 𝑥][𝑢 / 𝑦]𝜓))
24	23	dfoprab4 6090	. 2 ⊢ {⟨𝑤, 𝑧⟩ ∣ (𝑤 ∈ (𝐴 × 𝐵) ∧ 𝜑)} = {⟨⟨𝑡, 𝑢⟩, 𝑧⟩ ∣ ((𝑡 ∈ 𝐴 ∧ 𝑢 ∈ 𝐵) ∧ [𝑡 / 𝑥][𝑢 / 𝑦]𝜓)}
25		nfv 1508	. . 3 ⊢ Ⅎ𝑡((𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵) ∧ 𝜓)
26		nfv 1508	. . 3 ⊢ Ⅎ𝑢((𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵) ∧ 𝜓)
27		nfv 1508	. . . 4 ⊢ Ⅎ𝑥(𝑡 ∈ 𝐴 ∧ 𝑢 ∈ 𝐵)
28	27, 3	nfan 1544	. . 3 ⊢ Ⅎ𝑥((𝑡 ∈ 𝐴 ∧ 𝑢 ∈ 𝐵) ∧ [𝑡 / 𝑥][𝑢 / 𝑦]𝜓)
29		nfv 1508	. . . 4 ⊢ Ⅎ𝑦(𝑡 ∈ 𝐴 ∧ 𝑢 ∈ 𝐵)
30	13	nfsb 1919	. . . 4 ⊢ Ⅎ𝑦[𝑡 / 𝑥][𝑢 / 𝑦]𝜓
31	29, 30	nfan 1544	. . 3 ⊢ Ⅎ𝑦((𝑡 ∈ 𝐴 ∧ 𝑢 ∈ 𝐵) ∧ [𝑡 / 𝑥][𝑢 / 𝑦]𝜓)
32		eleq1 2202	. . . . 5 ⊢ (𝑥 = 𝑡 → (𝑥 ∈ 𝐴 ↔ 𝑡 ∈ 𝐴))
33		eleq1 2202	. . . . 5 ⊢ (𝑦 = 𝑢 → (𝑦 ∈ 𝐵 ↔ 𝑢 ∈ 𝐵))
34	32, 33	bi2anan9 595	. . . 4 ⊢ ((𝑥 = 𝑡 ∧ 𝑦 = 𝑢) → ((𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵) ↔ (𝑡 ∈ 𝐴 ∧ 𝑢 ∈ 𝐵)))
35	18, 8	sylan9bbr 458	. . . 4 ⊢ ((𝑥 = 𝑡 ∧ 𝑦 = 𝑢) → (𝜓 ↔ [𝑡 / 𝑥][𝑢 / 𝑦]𝜓))
36	34, 35	anbi12d 464	. . 3 ⊢ ((𝑥 = 𝑡 ∧ 𝑦 = 𝑢) → (((𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵) ∧ 𝜓) ↔ ((𝑡 ∈ 𝐴 ∧ 𝑢 ∈ 𝐵) ∧ [𝑡 / 𝑥][𝑢 / 𝑦]𝜓)))
37	25, 26, 28, 31, 36	cbvoprab12 5845	. 2 ⊢ {⟨⟨𝑥, 𝑦⟩, 𝑧⟩ ∣ ((𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵) ∧ 𝜓)} = {⟨⟨𝑡, 𝑢⟩, 𝑧⟩ ∣ ((𝑡 ∈ 𝐴 ∧ 𝑢 ∈ 𝐵) ∧ [𝑡 / 𝑥][𝑢 / 𝑦]𝜓)}
38	24, 37	eqtr4i 2163	1 ⊢ {⟨𝑤, 𝑧⟩ ∣ (𝑤 ∈ (𝐴 × 𝐵) ∧ 𝜑)} = {⟨⟨𝑥, 𝑦⟩, 𝑧⟩ ∣ ((𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵) ∧ 𝜓)}

Syntax hints:   → wi 4   ∧ wa 103   ↔ wb 104   = wceq 1331  Ⅎwnf 1436   ∈ wcel 1480  [wsb 1735  ⟨cop 3530  {copab 3988   × cxp 4537  {coprab 5775

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 105  ax-ia2 106  ax-ia3 107  ax-io 698  ax-5 1423  ax-7 1424  ax-gen 1425  ax-ie1 1469  ax-ie2 1470  ax-8 1482  ax-10 1483  ax-11 1484  ax-i12 1485  ax-bndl 1486  ax-4 1487  ax-13 1491  ax-14 1492  ax-17 1506  ax-i9 1510  ax-ial 1514  ax-i5r 1515  ax-ext 2121  ax-sep 4046  ax-pow 4098  ax-pr 4131  ax-un 4355

This theorem depends on definitions:  df-bi 116  df-3an 964  df-tru 1334  df-nf 1437  df-sb 1736  df-eu 2002  df-mo 2003  df-clab 2126  df-cleq 2132  df-clel 2135  df-nfc 2270  df-ral 2421  df-rex 2422  df-v 2688  df-sbc 2910  df-un 3075  df-in 3077  df-ss 3084  df-pw 3512  df-sn 3533  df-pr 3534  df-op 3536  df-uni 3737  df-br 3930  df-opab 3990  df-mpt 3991  df-id 4215  df-xp 4545  df-rel 4546  df-cnv 4547  df-co 4548  df-dm 4549  df-rn 4550  df-iota 5088  df-fun 5125  df-fn 5126  df-f 5127  df-fo 5129  df-fv 5131  df-oprab 5778  df-1st 6038  df-2nd 6039

This theorem is referenced by: (None)