Theorem opbrop 5648

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 5592	. . 3 ⊢ ((𝐴 ∈ 𝑆 ∧ 𝐵 ∈ 𝑆) → ⟨𝐴, 𝐵⟩ ∈ (𝑆 × 𝑆))
2		opelxpi 5592	. . 3 ⊢ ((𝐶 ∈ 𝑆 ∧ 𝐷 ∈ 𝑆) → ⟨𝐶, 𝐷⟩ ∈ (𝑆 × 𝑆))
3	1, 2	anim12i 614	. 2 ⊢ (((𝐴 ∈ 𝑆 ∧ 𝐵 ∈ 𝑆) ∧ (𝐶 ∈ 𝑆 ∧ 𝐷 ∈ 𝑆)) → (⟨𝐴, 𝐵⟩ ∈ (𝑆 × 𝑆) ∧ ⟨𝐶, 𝐷⟩ ∈ (𝑆 × 𝑆)))
4		opex 5356	. . . 4 ⊢ ⟨𝐴, 𝐵⟩ ∈ V
5		opex 5356	. . . 4 ⊢ ⟨𝐶, 𝐷⟩ ∈ V
6		eleq1 2900	. . . . . 6 ⊢ (𝑥 = ⟨𝐴, 𝐵⟩ → (𝑥 ∈ (𝑆 × 𝑆) ↔ ⟨𝐴, 𝐵⟩ ∈ (𝑆 × 𝑆)))
7	6	anbi1d 631	. . . . 5 ⊢ (𝑥 = ⟨𝐴, 𝐵⟩ → ((𝑥 ∈ (𝑆 × 𝑆) ∧ 𝑦 ∈ (𝑆 × 𝑆)) ↔ (⟨𝐴, 𝐵⟩ ∈ (𝑆 × 𝑆) ∧ 𝑦 ∈ (𝑆 × 𝑆))))
8		eqeq1 2825	. . . . . . . 8 ⊢ (𝑥 = ⟨𝐴, 𝐵⟩ → (𝑥 = ⟨𝑧, 𝑤⟩ ↔ ⟨𝐴, 𝐵⟩ = ⟨𝑧, 𝑤⟩))
9	8	anbi1d 631	. . . . . . 7 ⊢ (𝑥 = ⟨𝐴, 𝐵⟩ → ((𝑥 = ⟨𝑧, 𝑤⟩ ∧ 𝑦 = ⟨𝑣, 𝑢⟩) ↔ (⟨𝐴, 𝐵⟩ = ⟨𝑧, 𝑤⟩ ∧ 𝑦 = ⟨𝑣, 𝑢⟩)))
10	9	anbi1d 631	. . . . . 6 ⊢ (𝑥 = ⟨𝐴, 𝐵⟩ → (((𝑥 = ⟨𝑧, 𝑤⟩ ∧ 𝑦 = ⟨𝑣, 𝑢⟩) ∧ 𝜑) ↔ ((⟨𝐴, 𝐵⟩ = ⟨𝑧, 𝑤⟩ ∧ 𝑦 = ⟨𝑣, 𝑢⟩) ∧ 𝜑)))
11	10	4exbidv 1927	. . . . 5 ⊢ (𝑥 = ⟨𝐴, 𝐵⟩ → (∃𝑧∃𝑤∃𝑣∃𝑢((𝑥 = ⟨𝑧, 𝑤⟩ ∧ 𝑦 = ⟨𝑣, 𝑢⟩) ∧ 𝜑) ↔ ∃𝑧∃𝑤∃𝑣∃𝑢((⟨𝐴, 𝐵⟩ = ⟨𝑧, 𝑤⟩ ∧ 𝑦 = ⟨𝑣, 𝑢⟩) ∧ 𝜑)))
12	7, 11	anbi12d 632	. . . 4 ⊢ (𝑥 = ⟨𝐴, 𝐵⟩ → (((𝑥 ∈ (𝑆 × 𝑆) ∧ 𝑦 ∈ (𝑆 × 𝑆)) ∧ ∃𝑧∃𝑤∃𝑣∃𝑢((𝑥 = ⟨𝑧, 𝑤⟩ ∧ 𝑦 = ⟨𝑣, 𝑢⟩) ∧ 𝜑)) ↔ ((⟨𝐴, 𝐵⟩ ∈ (𝑆 × 𝑆) ∧ 𝑦 ∈ (𝑆 × 𝑆)) ∧ ∃𝑧∃𝑤∃𝑣∃𝑢((⟨𝐴, 𝐵⟩ = ⟨𝑧, 𝑤⟩ ∧ 𝑦 = ⟨𝑣, 𝑢⟩) ∧ 𝜑))))
13		eleq1 2900	. . . . . 6 ⊢ (𝑦 = ⟨𝐶, 𝐷⟩ → (𝑦 ∈ (𝑆 × 𝑆) ↔ ⟨𝐶, 𝐷⟩ ∈ (𝑆 × 𝑆)))
14	13	anbi2d 630	. . . . 5 ⊢ (𝑦 = ⟨𝐶, 𝐷⟩ → ((⟨𝐴, 𝐵⟩ ∈ (𝑆 × 𝑆) ∧ 𝑦 ∈ (𝑆 × 𝑆)) ↔ (⟨𝐴, 𝐵⟩ ∈ (𝑆 × 𝑆) ∧ ⟨𝐶, 𝐷⟩ ∈ (𝑆 × 𝑆))))
15		eqeq1 2825	. . . . . . . 8 ⊢ (𝑦 = ⟨𝐶, 𝐷⟩ → (𝑦 = ⟨𝑣, 𝑢⟩ ↔ ⟨𝐶, 𝐷⟩ = ⟨𝑣, 𝑢⟩))
16	15	anbi2d 630	. . . . . . 7 ⊢ (𝑦 = ⟨𝐶, 𝐷⟩ → ((⟨𝐴, 𝐵⟩ = ⟨𝑧, 𝑤⟩ ∧ 𝑦 = ⟨𝑣, 𝑢⟩) ↔ (⟨𝐴, 𝐵⟩ = ⟨𝑧, 𝑤⟩ ∧ ⟨𝐶, 𝐷⟩ = ⟨𝑣, 𝑢⟩)))
17	16	anbi1d 631	. . . . . 6 ⊢ (𝑦 = ⟨𝐶, 𝐷⟩ → (((⟨𝐴, 𝐵⟩ = ⟨𝑧, 𝑤⟩ ∧ 𝑦 = ⟨𝑣, 𝑢⟩) ∧ 𝜑) ↔ ((⟨𝐴, 𝐵⟩ = ⟨𝑧, 𝑤⟩ ∧ ⟨𝐶, 𝐷⟩ = ⟨𝑣, 𝑢⟩) ∧ 𝜑)))
18	17	4exbidv 1927	. . . . 5 ⊢ (𝑦 = ⟨𝐶, 𝐷⟩ → (∃𝑧∃𝑤∃𝑣∃𝑢((⟨𝐴, 𝐵⟩ = ⟨𝑧, 𝑤⟩ ∧ 𝑦 = ⟨𝑣, 𝑢⟩) ∧ 𝜑) ↔ ∃𝑧∃𝑤∃𝑣∃𝑢((⟨𝐴, 𝐵⟩ = ⟨𝑧, 𝑤⟩ ∧ ⟨𝐶, 𝐷⟩ = ⟨𝑣, 𝑢⟩) ∧ 𝜑)))
19	14, 18	anbi12d 632	. . . 4 ⊢ (𝑦 = ⟨𝐶, 𝐷⟩ → (((⟨𝐴, 𝐵⟩ ∈ (𝑆 × 𝑆) ∧ 𝑦 ∈ (𝑆 × 𝑆)) ∧ ∃𝑧∃𝑤∃𝑣∃𝑢((⟨𝐴, 𝐵⟩ = ⟨𝑧, 𝑤⟩ ∧ 𝑦 = ⟨𝑣, 𝑢⟩) ∧ 𝜑)) ↔ ((⟨𝐴, 𝐵⟩ ∈ (𝑆 × 𝑆) ∧ ⟨𝐶, 𝐷⟩ ∈ (𝑆 × 𝑆)) ∧ ∃𝑧∃𝑤∃𝑣∃𝑢((⟨𝐴, 𝐵⟩ = ⟨𝑧, 𝑤⟩ ∧ ⟨𝐶, 𝐷⟩ = ⟨𝑣, 𝑢⟩) ∧ 𝜑))))
20		opbrop.2	. . . 4 ⊢ 𝑅 = {⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ (𝑆 × 𝑆) ∧ 𝑦 ∈ (𝑆 × 𝑆)) ∧ ∃𝑧∃𝑤∃𝑣∃𝑢((𝑥 = ⟨𝑧, 𝑤⟩ ∧ 𝑦 = ⟨𝑣, 𝑢⟩) ∧ 𝜑))}
21	4, 5, 12, 19, 20	brab 5430	. . 3 ⊢ (⟨𝐴, 𝐵⟩𝑅⟨𝐶, 𝐷⟩ ↔ ((⟨𝐴, 𝐵⟩ ∈ (𝑆 × 𝑆) ∧ ⟨𝐶, 𝐷⟩ ∈ (𝑆 × 𝑆)) ∧ ∃𝑧∃𝑤∃𝑣∃𝑢((⟨𝐴, 𝐵⟩ = ⟨𝑧, 𝑤⟩ ∧ ⟨𝐶, 𝐷⟩ = ⟨𝑣, 𝑢⟩) ∧ 𝜑)))
22		opbrop.1	. . . . 5 ⊢ (((𝑧 = 𝐴 ∧ 𝑤 = 𝐵) ∧ (𝑣 = 𝐶 ∧ 𝑢 = 𝐷)) → (𝜑 ↔ 𝜓))
23	22	copsex4g 5385	. . . 4 ⊢ (((𝐴 ∈ 𝑆 ∧ 𝐵 ∈ 𝑆) ∧ (𝐶 ∈ 𝑆 ∧ 𝐷 ∈ 𝑆)) → (∃𝑧∃𝑤∃𝑣∃𝑢((⟨𝐴, 𝐵⟩ = ⟨𝑧, 𝑤⟩ ∧ ⟨𝐶, 𝐷⟩ = ⟨𝑣, 𝑢⟩) ∧ 𝜑) ↔ 𝜓))
24	23	anbi2d 630	. . 3 ⊢ (((𝐴 ∈ 𝑆 ∧ 𝐵 ∈ 𝑆) ∧ (𝐶 ∈ 𝑆 ∧ 𝐷 ∈ 𝑆)) → (((⟨𝐴, 𝐵⟩ ∈ (𝑆 × 𝑆) ∧ ⟨𝐶, 𝐷⟩ ∈ (𝑆 × 𝑆)) ∧ ∃𝑧∃𝑤∃𝑣∃𝑢((⟨𝐴, 𝐵⟩ = ⟨𝑧, 𝑤⟩ ∧ ⟨𝐶, 𝐷⟩ = ⟨𝑣, 𝑢⟩) ∧ 𝜑)) ↔ ((⟨𝐴, 𝐵⟩ ∈ (𝑆 × 𝑆) ∧ ⟨𝐶, 𝐷⟩ ∈ (𝑆 × 𝑆)) ∧ 𝜓)))
25	21, 24	syl5bb 285	. 2 ⊢ (((𝐴 ∈ 𝑆 ∧ 𝐵 ∈ 𝑆) ∧ (𝐶 ∈ 𝑆 ∧ 𝐷 ∈ 𝑆)) → (⟨𝐴, 𝐵⟩𝑅⟨𝐶, 𝐷⟩ ↔ ((⟨𝐴, 𝐵⟩ ∈ (𝑆 × 𝑆) ∧ ⟨𝐶, 𝐷⟩ ∈ (𝑆 × 𝑆)) ∧ 𝜓)))
26	3, 25	mpbirand 705	1 ⊢ (((𝐴 ∈ 𝑆 ∧ 𝐵 ∈ 𝑆) ∧ (𝐶 ∈ 𝑆 ∧ 𝐷 ∈ 𝑆)) → (⟨𝐴, 𝐵⟩𝑅⟨𝐶, 𝐷⟩ ↔ 𝜓))

Syntax hints:   → wi 4   ↔ wb 208   ∧ wa 398   = wceq 1537  ∃wex 1780   ∈ wcel 2114  ⟨cop 4573   class class class wbr 5066  {copab 5128   × cxp 5553

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 1911  ax-6 1970  ax-7 2015  ax-8 2116  ax-9 2124  ax-10 2145  ax-11 2161  ax-12 2177  ax-ext 2793  ax-sep 5203  ax-nul 5210  ax-pr 5330

This theorem depends on definitions:  df-bi 209  df-an 399  df-or 844  df-3an 1085  df-tru 1540  df-ex 1781  df-nf 1785  df-sb 2070  df-mo 2622  df-eu 2654  df-clab 2800  df-cleq 2814  df-clel 2893  df-nfc 2963  df-ral 3143  df-rex 3144  df-rab 3147  df-v 3496  df-dif 3939  df-un 3941  df-in 3943  df-ss 3952  df-nul 4292  df-if 4468  df-sn 4568  df-pr 4570  df-op 4574  df-br 5067  df-opab 5129  df-xp 5561

This theorem is referenced by:  ecopoveq  8398