Theorem opbrop 5782

Description: Ordered pair membership in a relation. Special case. (Contributed by NM, 5-Aug-1995.)

Hypotheses

Ref	Expression
opbrop.1	⊢ (((𝑧 = 𝐴 ∧ 𝑤 = 𝐵) ∧ (𝑣 = 𝐶 ∧ 𝑢 = 𝐷)) → (𝜑 ↔ 𝜓))
opbrop.2	⊢ 𝑅 = {⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ (𝑆 × 𝑆) ∧ 𝑦 ∈ (𝑆 × 𝑆)) ∧ ∃𝑧∃𝑤∃𝑣∃𝑢((𝑥 = ⟨𝑧, 𝑤⟩ ∧ 𝑦 = ⟨𝑣, 𝑢⟩) ∧ 𝜑))}

Assertion

Ref	Expression
opbrop	⊢ (((𝐴 ∈ 𝑆 ∧ 𝐵 ∈ 𝑆) ∧ (𝐶 ∈ 𝑆 ∧ 𝐷 ∈ 𝑆)) → (⟨𝐴, 𝐵⟩𝑅⟨𝐶, 𝐷⟩ ↔ 𝜓))

Distinct variable groups:   𝑥,𝑦,𝑧,𝑤,𝑣,𝑢,𝐴   𝑥,𝐵,𝑦,𝑧,𝑤,𝑣,𝑢   𝑥,𝐶,𝑦,𝑧,𝑤,𝑣,𝑢   𝑥,𝐷,𝑦,𝑧,𝑤,𝑣,𝑢   𝑥,𝑆,𝑦,𝑧,𝑤,𝑣,𝑢   𝜑,𝑥,𝑦   𝜓,𝑧,𝑤,𝑣,𝑢

Allowed substitution hints:   𝜑(𝑧,𝑤,𝑣,𝑢)   𝜓(𝑥,𝑦)   𝑅(𝑥,𝑦,𝑧,𝑤,𝑣,𝑢)

Proof of Theorem opbrop

Step	Hyp	Ref	Expression
1		opelxpi 5721	. . 3 ⊢ ((𝐴 ∈ 𝑆 ∧ 𝐵 ∈ 𝑆) → ⟨𝐴, 𝐵⟩ ∈ (𝑆 × 𝑆))
2		opelxpi 5721	. . 3 ⊢ ((𝐶 ∈ 𝑆 ∧ 𝐷 ∈ 𝑆) → ⟨𝐶, 𝐷⟩ ∈ (𝑆 × 𝑆))
3	1, 2	anim12i 613	. 2 ⊢ (((𝐴 ∈ 𝑆 ∧ 𝐵 ∈ 𝑆) ∧ (𝐶 ∈ 𝑆 ∧ 𝐷 ∈ 𝑆)) → (⟨𝐴, 𝐵⟩ ∈ (𝑆 × 𝑆) ∧ ⟨𝐶, 𝐷⟩ ∈ (𝑆 × 𝑆)))
4		opex 5468	. . . 4 ⊢ ⟨𝐴, 𝐵⟩ ∈ V
5		opex 5468	. . . 4 ⊢ ⟨𝐶, 𝐷⟩ ∈ V
6		eleq1 2828	. . . . . 6 ⊢ (𝑥 = ⟨𝐴, 𝐵⟩ → (𝑥 ∈ (𝑆 × 𝑆) ↔ ⟨𝐴, 𝐵⟩ ∈ (𝑆 × 𝑆)))
7	6	anbi1d 631	. . . . 5 ⊢ (𝑥 = ⟨𝐴, 𝐵⟩ → ((𝑥 ∈ (𝑆 × 𝑆) ∧ 𝑦 ∈ (𝑆 × 𝑆)) ↔ (⟨𝐴, 𝐵⟩ ∈ (𝑆 × 𝑆) ∧ 𝑦 ∈ (𝑆 × 𝑆))))
8		eqeq1 2740	. . . . . . . 8 ⊢ (𝑥 = ⟨𝐴, 𝐵⟩ → (𝑥 = ⟨𝑧, 𝑤⟩ ↔ ⟨𝐴, 𝐵⟩ = ⟨𝑧, 𝑤⟩))
9	8	anbi1d 631	. . . . . . 7 ⊢ (𝑥 = ⟨𝐴, 𝐵⟩ → ((𝑥 = ⟨𝑧, 𝑤⟩ ∧ 𝑦 = ⟨𝑣, 𝑢⟩) ↔ (⟨𝐴, 𝐵⟩ = ⟨𝑧, 𝑤⟩ ∧ 𝑦 = ⟨𝑣, 𝑢⟩)))
10	9	anbi1d 631	. . . . . 6 ⊢ (𝑥 = ⟨𝐴, 𝐵⟩ → (((𝑥 = ⟨𝑧, 𝑤⟩ ∧ 𝑦 = ⟨𝑣, 𝑢⟩) ∧ 𝜑) ↔ ((⟨𝐴, 𝐵⟩ = ⟨𝑧, 𝑤⟩ ∧ 𝑦 = ⟨𝑣, 𝑢⟩) ∧ 𝜑)))
11	10	4exbidv 1925	. . . . 5 ⊢ (𝑥 = ⟨𝐴, 𝐵⟩ → (∃𝑧∃𝑤∃𝑣∃𝑢((𝑥 = ⟨𝑧, 𝑤⟩ ∧ 𝑦 = ⟨𝑣, 𝑢⟩) ∧ 𝜑) ↔ ∃𝑧∃𝑤∃𝑣∃𝑢((⟨𝐴, 𝐵⟩ = ⟨𝑧, 𝑤⟩ ∧ 𝑦 = ⟨𝑣, 𝑢⟩) ∧ 𝜑)))
12	7, 11	anbi12d 632	. . . 4 ⊢ (𝑥 = ⟨𝐴, 𝐵⟩ → (((𝑥 ∈ (𝑆 × 𝑆) ∧ 𝑦 ∈ (𝑆 × 𝑆)) ∧ ∃𝑧∃𝑤∃𝑣∃𝑢((𝑥 = ⟨𝑧, 𝑤⟩ ∧ 𝑦 = ⟨𝑣, 𝑢⟩) ∧ 𝜑)) ↔ ((⟨𝐴, 𝐵⟩ ∈ (𝑆 × 𝑆) ∧ 𝑦 ∈ (𝑆 × 𝑆)) ∧ ∃𝑧∃𝑤∃𝑣∃𝑢((⟨𝐴, 𝐵⟩ = ⟨𝑧, 𝑤⟩ ∧ 𝑦 = ⟨𝑣, 𝑢⟩) ∧ 𝜑))))
13		eleq1 2828	. . . . . 6 ⊢ (𝑦 = ⟨𝐶, 𝐷⟩ → (𝑦 ∈ (𝑆 × 𝑆) ↔ ⟨𝐶, 𝐷⟩ ∈ (𝑆 × 𝑆)))
14	13	anbi2d 630	. . . . 5 ⊢ (𝑦 = ⟨𝐶, 𝐷⟩ → ((⟨𝐴, 𝐵⟩ ∈ (𝑆 × 𝑆) ∧ 𝑦 ∈ (𝑆 × 𝑆)) ↔ (⟨𝐴, 𝐵⟩ ∈ (𝑆 × 𝑆) ∧ ⟨𝐶, 𝐷⟩ ∈ (𝑆 × 𝑆))))
15		eqeq1 2740	. . . . . . . 8 ⊢ (𝑦 = ⟨𝐶, 𝐷⟩ → (𝑦 = ⟨𝑣, 𝑢⟩ ↔ ⟨𝐶, 𝐷⟩ = ⟨𝑣, 𝑢⟩))
16	15	anbi2d 630	. . . . . . 7 ⊢ (𝑦 = ⟨𝐶, 𝐷⟩ → ((⟨𝐴, 𝐵⟩ = ⟨𝑧, 𝑤⟩ ∧ 𝑦 = ⟨𝑣, 𝑢⟩) ↔ (⟨𝐴, 𝐵⟩ = ⟨𝑧, 𝑤⟩ ∧ ⟨𝐶, 𝐷⟩ = ⟨𝑣, 𝑢⟩)))
17	16	anbi1d 631	. . . . . 6 ⊢ (𝑦 = ⟨𝐶, 𝐷⟩ → (((⟨𝐴, 𝐵⟩ = ⟨𝑧, 𝑤⟩ ∧ 𝑦 = ⟨𝑣, 𝑢⟩) ∧ 𝜑) ↔ ((⟨𝐴, 𝐵⟩ = ⟨𝑧, 𝑤⟩ ∧ ⟨𝐶, 𝐷⟩ = ⟨𝑣, 𝑢⟩) ∧ 𝜑)))
18	17	4exbidv 1925	. . . . 5 ⊢ (𝑦 = ⟨𝐶, 𝐷⟩ → (∃𝑧∃𝑤∃𝑣∃𝑢((⟨𝐴, 𝐵⟩ = ⟨𝑧, 𝑤⟩ ∧ 𝑦 = ⟨𝑣, 𝑢⟩) ∧ 𝜑) ↔ ∃𝑧∃𝑤∃𝑣∃𝑢((⟨𝐴, 𝐵⟩ = ⟨𝑧, 𝑤⟩ ∧ ⟨𝐶, 𝐷⟩ = ⟨𝑣, 𝑢⟩) ∧ 𝜑)))
19	14, 18	anbi12d 632	. . . 4 ⊢ (𝑦 = ⟨𝐶, 𝐷⟩ → (((⟨𝐴, 𝐵⟩ ∈ (𝑆 × 𝑆) ∧ 𝑦 ∈ (𝑆 × 𝑆)) ∧ ∃𝑧∃𝑤∃𝑣∃𝑢((⟨𝐴, 𝐵⟩ = ⟨𝑧, 𝑤⟩ ∧ 𝑦 = ⟨𝑣, 𝑢⟩) ∧ 𝜑)) ↔ ((⟨𝐴, 𝐵⟩ ∈ (𝑆 × 𝑆) ∧ ⟨𝐶, 𝐷⟩ ∈ (𝑆 × 𝑆)) ∧ ∃𝑧∃𝑤∃𝑣∃𝑢((⟨𝐴, 𝐵⟩ = ⟨𝑧, 𝑤⟩ ∧ ⟨𝐶, 𝐷⟩ = ⟨𝑣, 𝑢⟩) ∧ 𝜑))))
20		opbrop.2	. . . 4 ⊢ 𝑅 = {⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ (𝑆 × 𝑆) ∧ 𝑦 ∈ (𝑆 × 𝑆)) ∧ ∃𝑧∃𝑤∃𝑣∃𝑢((𝑥 = ⟨𝑧, 𝑤⟩ ∧ 𝑦 = ⟨𝑣, 𝑢⟩) ∧ 𝜑))}
21	4, 5, 12, 19, 20	brab 5547	. . 3 ⊢ (⟨𝐴, 𝐵⟩𝑅⟨𝐶, 𝐷⟩ ↔ ((⟨𝐴, 𝐵⟩ ∈ (𝑆 × 𝑆) ∧ ⟨𝐶, 𝐷⟩ ∈ (𝑆 × 𝑆)) ∧ ∃𝑧∃𝑤∃𝑣∃𝑢((⟨𝐴, 𝐵⟩ = ⟨𝑧, 𝑤⟩ ∧ ⟨𝐶, 𝐷⟩ = ⟨𝑣, 𝑢⟩) ∧ 𝜑)))
22		opbrop.1	. . . . 5 ⊢ (((𝑧 = 𝐴 ∧ 𝑤 = 𝐵) ∧ (𝑣 = 𝐶 ∧ 𝑢 = 𝐷)) → (𝜑 ↔ 𝜓))
23	22	copsex4g 5499	. . . 4 ⊢ (((𝐴 ∈ 𝑆 ∧ 𝐵 ∈ 𝑆) ∧ (𝐶 ∈ 𝑆 ∧ 𝐷 ∈ 𝑆)) → (∃𝑧∃𝑤∃𝑣∃𝑢((⟨𝐴, 𝐵⟩ = ⟨𝑧, 𝑤⟩ ∧ ⟨𝐶, 𝐷⟩ = ⟨𝑣, 𝑢⟩) ∧ 𝜑) ↔ 𝜓))
24	23	anbi2d 630	. . 3 ⊢ (((𝐴 ∈ 𝑆 ∧ 𝐵 ∈ 𝑆) ∧ (𝐶 ∈ 𝑆 ∧ 𝐷 ∈ 𝑆)) → (((⟨𝐴, 𝐵⟩ ∈ (𝑆 × 𝑆) ∧ ⟨𝐶, 𝐷⟩ ∈ (𝑆 × 𝑆)) ∧ ∃𝑧∃𝑤∃𝑣∃𝑢((⟨𝐴, 𝐵⟩ = ⟨𝑧, 𝑤⟩ ∧ ⟨𝐶, 𝐷⟩ = ⟨𝑣, 𝑢⟩) ∧ 𝜑)) ↔ ((⟨𝐴, 𝐵⟩ ∈ (𝑆 × 𝑆) ∧ ⟨𝐶, 𝐷⟩ ∈ (𝑆 × 𝑆)) ∧ 𝜓)))
25	21, 24	bitrid 283	. 2 ⊢ (((𝐴 ∈ 𝑆 ∧ 𝐵 ∈ 𝑆) ∧ (𝐶 ∈ 𝑆 ∧ 𝐷 ∈ 𝑆)) → (⟨𝐴, 𝐵⟩𝑅⟨𝐶, 𝐷⟩ ↔ ((⟨𝐴, 𝐵⟩ ∈ (𝑆 × 𝑆) ∧ ⟨𝐶, 𝐷⟩ ∈ (𝑆 × 𝑆)) ∧ 𝜓)))
26	3, 25	mpbirand 707	1 ⊢ (((𝐴 ∈ 𝑆 ∧ 𝐵 ∈ 𝑆) ∧ (𝐶 ∈ 𝑆 ∧ 𝐷 ∈ 𝑆)) → (⟨𝐴, 𝐵⟩𝑅⟨𝐶, 𝐷⟩ ↔ 𝜓))

Syntax hints:   → wi 4   ↔ wb 206   ∧ wa 395   = wceq 1539  ∃wex 1778   ∈ wcel 2107  ⟨cop 4631   class class class wbr 5142  {copab 5204   × cxp 5682

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1794  ax-4 1808  ax-5 1909  ax-6 1966  ax-7 2006  ax-8 2109  ax-9 2117  ax-ext 2707  ax-sep 5295  ax-nul 5305  ax-pr 5431

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3an 1088  df-tru 1542  df-fal 1552  df-ex 1779  df-sb 2064  df-clab 2714  df-cleq 2728  df-clel 2815  df-ral 3061  df-rex 3070  df-rab 3436  df-v 3481  df-dif 3953  df-un 3955  df-ss 3967  df-nul 4333  df-if 4525  df-sn 4626  df-pr 4628  df-op 4632  df-br 5143  df-opab 5205  df-xp 5690

This theorem is referenced by:  ecopoveq  8859