Theorem opbrop 5709

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 5651	. . 3 ⊢ ((𝐴 ∈ 𝑆 ∧ 𝐵 ∈ 𝑆) → ⟨𝐴, 𝐵⟩ ∈ (𝑆 × 𝑆))
2		opelxpi 5651	. . 3 ⊢ ((𝐶 ∈ 𝑆 ∧ 𝐷 ∈ 𝑆) → ⟨𝐶, 𝐷⟩ ∈ (𝑆 × 𝑆))
3	1, 2	anim12i 613	. 2 ⊢ (((𝐴 ∈ 𝑆 ∧ 𝐵 ∈ 𝑆) ∧ (𝐶 ∈ 𝑆 ∧ 𝐷 ∈ 𝑆)) → (⟨𝐴, 𝐵⟩ ∈ (𝑆 × 𝑆) ∧ ⟨𝐶, 𝐷⟩ ∈ (𝑆 × 𝑆)))
4		opex 5403	. . . 4 ⊢ ⟨𝐴, 𝐵⟩ ∈ V
5		opex 5403	. . . 4 ⊢ ⟨𝐶, 𝐷⟩ ∈ V
6		eleq1 2824	. . . . . 6 ⊢ (𝑥 = ⟨𝐴, 𝐵⟩ → (𝑥 ∈ (𝑆 × 𝑆) ↔ ⟨𝐴, 𝐵⟩ ∈ (𝑆 × 𝑆)))
7	6	anbi1d 630	. . . . 5 ⊢ (𝑥 = ⟨𝐴, 𝐵⟩ → ((𝑥 ∈ (𝑆 × 𝑆) ∧ 𝑦 ∈ (𝑆 × 𝑆)) ↔ (⟨𝐴, 𝐵⟩ ∈ (𝑆 × 𝑆) ∧ 𝑦 ∈ (𝑆 × 𝑆))))
8		eqeq1 2740	. . . . . . . 8 ⊢ (𝑥 = ⟨𝐴, 𝐵⟩ → (𝑥 = ⟨𝑧, 𝑤⟩ ↔ ⟨𝐴, 𝐵⟩ = ⟨𝑧, 𝑤⟩))
9	8	anbi1d 630	. . . . . . 7 ⊢ (𝑥 = ⟨𝐴, 𝐵⟩ → ((𝑥 = ⟨𝑧, 𝑤⟩ ∧ 𝑦 = ⟨𝑣, 𝑢⟩) ↔ (⟨𝐴, 𝐵⟩ = ⟨𝑧, 𝑤⟩ ∧ 𝑦 = ⟨𝑣, 𝑢⟩)))
10	9	anbi1d 630	. . . . . 6 ⊢ (𝑥 = ⟨𝐴, 𝐵⟩ → (((𝑥 = ⟨𝑧, 𝑤⟩ ∧ 𝑦 = ⟨𝑣, 𝑢⟩) ∧ 𝜑) ↔ ((⟨𝐴, 𝐵⟩ = ⟨𝑧, 𝑤⟩ ∧ 𝑦 = ⟨𝑣, 𝑢⟩) ∧ 𝜑)))
11	10	4exbidv 1928	. . . . 5 ⊢ (𝑥 = ⟨𝐴, 𝐵⟩ → (∃𝑧∃𝑤∃𝑣∃𝑢((𝑥 = ⟨𝑧, 𝑤⟩ ∧ 𝑦 = ⟨𝑣, 𝑢⟩) ∧ 𝜑) ↔ ∃𝑧∃𝑤∃𝑣∃𝑢((⟨𝐴, 𝐵⟩ = ⟨𝑧, 𝑤⟩ ∧ 𝑦 = ⟨𝑣, 𝑢⟩) ∧ 𝜑)))
12	7, 11	anbi12d 631	. . . 4 ⊢ (𝑥 = ⟨𝐴, 𝐵⟩ → (((𝑥 ∈ (𝑆 × 𝑆) ∧ 𝑦 ∈ (𝑆 × 𝑆)) ∧ ∃𝑧∃𝑤∃𝑣∃𝑢((𝑥 = ⟨𝑧, 𝑤⟩ ∧ 𝑦 = ⟨𝑣, 𝑢⟩) ∧ 𝜑)) ↔ ((⟨𝐴, 𝐵⟩ ∈ (𝑆 × 𝑆) ∧ 𝑦 ∈ (𝑆 × 𝑆)) ∧ ∃𝑧∃𝑤∃𝑣∃𝑢((⟨𝐴, 𝐵⟩ = ⟨𝑧, 𝑤⟩ ∧ 𝑦 = ⟨𝑣, 𝑢⟩) ∧ 𝜑))))
13		eleq1 2824	. . . . . 6 ⊢ (𝑦 = ⟨𝐶, 𝐷⟩ → (𝑦 ∈ (𝑆 × 𝑆) ↔ ⟨𝐶, 𝐷⟩ ∈ (𝑆 × 𝑆)))
14	13	anbi2d 629	. . . . 5 ⊢ (𝑦 = ⟨𝐶, 𝐷⟩ → ((⟨𝐴, 𝐵⟩ ∈ (𝑆 × 𝑆) ∧ 𝑦 ∈ (𝑆 × 𝑆)) ↔ (⟨𝐴, 𝐵⟩ ∈ (𝑆 × 𝑆) ∧ ⟨𝐶, 𝐷⟩ ∈ (𝑆 × 𝑆))))
15		eqeq1 2740	. . . . . . . 8 ⊢ (𝑦 = ⟨𝐶, 𝐷⟩ → (𝑦 = ⟨𝑣, 𝑢⟩ ↔ ⟨𝐶, 𝐷⟩ = ⟨𝑣, 𝑢⟩))
16	15	anbi2d 629	. . . . . . 7 ⊢ (𝑦 = ⟨𝐶, 𝐷⟩ → ((⟨𝐴, 𝐵⟩ = ⟨𝑧, 𝑤⟩ ∧ 𝑦 = ⟨𝑣, 𝑢⟩) ↔ (⟨𝐴, 𝐵⟩ = ⟨𝑧, 𝑤⟩ ∧ ⟨𝐶, 𝐷⟩ = ⟨𝑣, 𝑢⟩)))
17	16	anbi1d 630	. . . . . 6 ⊢ (𝑦 = ⟨𝐶, 𝐷⟩ → (((⟨𝐴, 𝐵⟩ = ⟨𝑧, 𝑤⟩ ∧ 𝑦 = ⟨𝑣, 𝑢⟩) ∧ 𝜑) ↔ ((⟨𝐴, 𝐵⟩ = ⟨𝑧, 𝑤⟩ ∧ ⟨𝐶, 𝐷⟩ = ⟨𝑣, 𝑢⟩) ∧ 𝜑)))
18	17	4exbidv 1928	. . . . 5 ⊢ (𝑦 = ⟨𝐶, 𝐷⟩ → (∃𝑧∃𝑤∃𝑣∃𝑢((⟨𝐴, 𝐵⟩ = ⟨𝑧, 𝑤⟩ ∧ 𝑦 = ⟨𝑣, 𝑢⟩) ∧ 𝜑) ↔ ∃𝑧∃𝑤∃𝑣∃𝑢((⟨𝐴, 𝐵⟩ = ⟨𝑧, 𝑤⟩ ∧ ⟨𝐶, 𝐷⟩ = ⟨𝑣, 𝑢⟩) ∧ 𝜑)))
19	14, 18	anbi12d 631	. . . 4 ⊢ (𝑦 = ⟨𝐶, 𝐷⟩ → (((⟨𝐴, 𝐵⟩ ∈ (𝑆 × 𝑆) ∧ 𝑦 ∈ (𝑆 × 𝑆)) ∧ ∃𝑧∃𝑤∃𝑣∃𝑢((⟨𝐴, 𝐵⟩ = ⟨𝑧, 𝑤⟩ ∧ 𝑦 = ⟨𝑣, 𝑢⟩) ∧ 𝜑)) ↔ ((⟨𝐴, 𝐵⟩ ∈ (𝑆 × 𝑆) ∧ ⟨𝐶, 𝐷⟩ ∈ (𝑆 × 𝑆)) ∧ ∃𝑧∃𝑤∃𝑣∃𝑢((⟨𝐴, 𝐵⟩ = ⟨𝑧, 𝑤⟩ ∧ ⟨𝐶, 𝐷⟩ = ⟨𝑣, 𝑢⟩) ∧ 𝜑))))
20		opbrop.2	. . . 4 ⊢ 𝑅 = {⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ (𝑆 × 𝑆) ∧ 𝑦 ∈ (𝑆 × 𝑆)) ∧ ∃𝑧∃𝑤∃𝑣∃𝑢((𝑥 = ⟨𝑧, 𝑤⟩ ∧ 𝑦 = ⟨𝑣, 𝑢⟩) ∧ 𝜑))}
21	4, 5, 12, 19, 20	brab 5481	. . 3 ⊢ (⟨𝐴, 𝐵⟩𝑅⟨𝐶, 𝐷⟩ ↔ ((⟨𝐴, 𝐵⟩ ∈ (𝑆 × 𝑆) ∧ ⟨𝐶, 𝐷⟩ ∈ (𝑆 × 𝑆)) ∧ ∃𝑧∃𝑤∃𝑣∃𝑢((⟨𝐴, 𝐵⟩ = ⟨𝑧, 𝑤⟩ ∧ ⟨𝐶, 𝐷⟩ = ⟨𝑣, 𝑢⟩) ∧ 𝜑)))
22		opbrop.1	. . . . 5 ⊢ (((𝑧 = 𝐴 ∧ 𝑤 = 𝐵) ∧ (𝑣 = 𝐶 ∧ 𝑢 = 𝐷)) → (𝜑 ↔ 𝜓))
23	22	copsex4g 5433	. . . 4 ⊢ (((𝐴 ∈ 𝑆 ∧ 𝐵 ∈ 𝑆) ∧ (𝐶 ∈ 𝑆 ∧ 𝐷 ∈ 𝑆)) → (∃𝑧∃𝑤∃𝑣∃𝑢((⟨𝐴, 𝐵⟩ = ⟨𝑧, 𝑤⟩ ∧ ⟨𝐶, 𝐷⟩ = ⟨𝑣, 𝑢⟩) ∧ 𝜑) ↔ 𝜓))
24	23	anbi2d 629	. . 3 ⊢ (((𝐴 ∈ 𝑆 ∧ 𝐵 ∈ 𝑆) ∧ (𝐶 ∈ 𝑆 ∧ 𝐷 ∈ 𝑆)) → (((⟨𝐴, 𝐵⟩ ∈ (𝑆 × 𝑆) ∧ ⟨𝐶, 𝐷⟩ ∈ (𝑆 × 𝑆)) ∧ ∃𝑧∃𝑤∃𝑣∃𝑢((⟨𝐴, 𝐵⟩ = ⟨𝑧, 𝑤⟩ ∧ ⟨𝐶, 𝐷⟩ = ⟨𝑣, 𝑢⟩) ∧ 𝜑)) ↔ ((⟨𝐴, 𝐵⟩ ∈ (𝑆 × 𝑆) ∧ ⟨𝐶, 𝐷⟩ ∈ (𝑆 × 𝑆)) ∧ 𝜓)))
25	21, 24	bitrid 282	. 2 ⊢ (((𝐴 ∈ 𝑆 ∧ 𝐵 ∈ 𝑆) ∧ (𝐶 ∈ 𝑆 ∧ 𝐷 ∈ 𝑆)) → (⟨𝐴, 𝐵⟩𝑅⟨𝐶, 𝐷⟩ ↔ ((⟨𝐴, 𝐵⟩ ∈ (𝑆 × 𝑆) ∧ ⟨𝐶, 𝐷⟩ ∈ (𝑆 × 𝑆)) ∧ 𝜓)))
26	3, 25	mpbirand 704	1 ⊢ (((𝐴 ∈ 𝑆 ∧ 𝐵 ∈ 𝑆) ∧ (𝐶 ∈ 𝑆 ∧ 𝐷 ∈ 𝑆)) → (⟨𝐴, 𝐵⟩𝑅⟨𝐶, 𝐷⟩ ↔ 𝜓))

Syntax hints:   → wi 4   ↔ wb 205   ∧ wa 396   = wceq 1540  ∃wex 1780   ∈ wcel 2105  ⟨cop 4578   class class class wbr 5089  {copab 5151   × cxp 5612

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-ext 2707  ax-sep 5240  ax-nul 5247  ax-pr 5369

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-sb 2067  df-clab 2714  df-cleq 2728  df-clel 2814  df-ral 3062  df-rex 3071  df-rab 3404  df-v 3443  df-dif 3900  df-un 3902  df-in 3904  df-ss 3914  df-nul 4269  df-if 4473  df-sn 4573  df-pr 4575  df-op 4579  df-br 5090  df-opab 5152  df-xp 5620

This theorem is referenced by:  ecopoveq  8670