br4 - Mathbox for Scott Fenton

	Mathbox for Scott Fenton		< Previous Next > Nearby theorems
Mirrors > Home > MPE Home > Th. List > Mathboxes > br4		Structured version Visualization version GIF version

Theorem br4 33631

Description: Substitution for a four-place predicate. (Contributed by Scott Fenton, 9-Oct-2013.) (Revised by Mario Carneiro, 14-Oct-2013.)

**Hypotheses**
Ref	Expression
br4.1	⊢ (𝑎 = 𝐴 → (𝜑 ↔ 𝜓))
br4.2	⊢ (𝑏 = 𝐵 → (𝜓 ↔ 𝜒))
br4.3	⊢ (𝑐 = 𝐶 → (𝜒 ↔ 𝜃))
br4.4	⊢ (𝑑 = 𝐷 → (𝜃 ↔ 𝜏))
br4.5	⊢ (𝑥 = 𝑋 → 𝑃 = 𝑄)
br4.6	⊢ 𝑅 = {⟨𝑝, 𝑞⟩ ∣ ∃𝑥 ∈ 𝑆 ∃𝑎 ∈ 𝑃 ∃𝑏 ∈ 𝑃 ∃𝑐 ∈ 𝑃 ∃𝑑 ∈ 𝑃 (𝑝 = ⟨𝑎, 𝑏⟩ ∧ 𝑞 = ⟨𝑐, 𝑑⟩ ∧ 𝜑)}

**Assertion**
Ref	Expression
br4	⊢ ((𝑋 ∈ 𝑆 ∧ (𝐴 ∈ 𝑄 ∧ 𝐵 ∈ 𝑄) ∧ (𝐶 ∈ 𝑄 ∧ 𝐷 ∈ 𝑄)) → (⟨𝐴, 𝐵⟩𝑅⟨𝐶, 𝐷⟩ ↔ 𝜏))

Distinct variable groups: 𝑎,𝑏,𝑐,𝑑,𝑝,𝑞,𝑥,𝐴 𝐵,𝑎,𝑏,𝑐,𝑑,𝑝,𝑞,𝑥 𝜒,𝑏 𝑄,𝑎,𝑏,𝑐,𝑑,𝑥 𝐶,𝑎,𝑏,𝑐,𝑑,𝑝,𝑞,𝑥 𝐷,𝑎,𝑏,𝑐,𝑑,𝑝,𝑞,𝑥 𝜓,𝑎 𝑋,𝑎,𝑏,𝑐,𝑑,𝑥 𝑃,𝑎,𝑏,𝑐,𝑑,𝑝,𝑞 𝑆,𝑎,𝑏,𝑐,𝑑,𝑝,𝑞,𝑥 𝜏,𝑎,𝑏,𝑐,𝑑,𝑥 𝜃,𝑐 𝜑,𝑝,𝑞,𝑥 Allowed substitution hints: 𝜑(𝑎,𝑏,𝑐,𝑑) 𝜓(𝑥,𝑞,𝑝,𝑏,𝑐,𝑑) 𝜒(𝑥,𝑞,𝑝,𝑎,𝑐,𝑑) 𝜃(𝑥,𝑞,𝑝,𝑎,𝑏,𝑑) 𝜏(𝑞,𝑝) 𝑃(𝑥) 𝑄(𝑞,𝑝) 𝑅(𝑥,𝑞,𝑝,𝑎,𝑏,𝑐,𝑑) 𝑋(𝑞,𝑝)

**Proof of Theorem br4**
Step	Hyp	Ref	Expression
1		opex 5373	. . 3 ⊢ ⟨𝐴, 𝐵⟩ ∈ V
2		opex 5373	. . 3 ⊢ ⟨𝐶, 𝐷⟩ ∈ V
3		eqeq1 2742	. . . . . . 7 ⊢ (𝑝 = ⟨𝐴, 𝐵⟩ → (𝑝 = ⟨𝑎, 𝑏⟩ ↔ ⟨𝐴, 𝐵⟩ = ⟨𝑎, 𝑏⟩))
4	3	3anbi1d 1438	. . . . . 6 ⊢ (𝑝 = ⟨𝐴, 𝐵⟩ → ((𝑝 = ⟨𝑎, 𝑏⟩ ∧ 𝑞 = ⟨𝑐, 𝑑⟩ ∧ 𝜑) ↔ (⟨𝐴, 𝐵⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝑞 = ⟨𝑐, 𝑑⟩ ∧ 𝜑)))
5	4	rexbidv 3225	. . . . 5 ⊢ (𝑝 = ⟨𝐴, 𝐵⟩ → (∃𝑑 ∈ 𝑃 (𝑝 = ⟨𝑎, 𝑏⟩ ∧ 𝑞 = ⟨𝑐, 𝑑⟩ ∧ 𝜑) ↔ ∃𝑑 ∈ 𝑃 (⟨𝐴, 𝐵⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝑞 = ⟨𝑐, 𝑑⟩ ∧ 𝜑)))
6	5	2rexbidv 3228	. . . 4 ⊢ (𝑝 = ⟨𝐴, 𝐵⟩ → (∃𝑏 ∈ 𝑃 ∃𝑐 ∈ 𝑃 ∃𝑑 ∈ 𝑃 (𝑝 = ⟨𝑎, 𝑏⟩ ∧ 𝑞 = ⟨𝑐, 𝑑⟩ ∧ 𝜑) ↔ ∃𝑏 ∈ 𝑃 ∃𝑐 ∈ 𝑃 ∃𝑑 ∈ 𝑃 (⟨𝐴, 𝐵⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝑞 = ⟨𝑐, 𝑑⟩ ∧ 𝜑)))
7	6	2rexbidv 3228	. . 3 ⊢ (𝑝 = ⟨𝐴, 𝐵⟩ → (∃𝑥 ∈ 𝑆 ∃𝑎 ∈ 𝑃 ∃𝑏 ∈ 𝑃 ∃𝑐 ∈ 𝑃 ∃𝑑 ∈ 𝑃 (𝑝 = ⟨𝑎, 𝑏⟩ ∧ 𝑞 = ⟨𝑐, 𝑑⟩ ∧ 𝜑) ↔ ∃𝑥 ∈ 𝑆 ∃𝑎 ∈ 𝑃 ∃𝑏 ∈ 𝑃 ∃𝑐 ∈ 𝑃 ∃𝑑 ∈ 𝑃 (⟨𝐴, 𝐵⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝑞 = ⟨𝑐, 𝑑⟩ ∧ 𝜑)))
8		eqeq1 2742	. . . . . . 7 ⊢ (𝑞 = ⟨𝐶, 𝐷⟩ → (𝑞 = ⟨𝑐, 𝑑⟩ ↔ ⟨𝐶, 𝐷⟩ = ⟨𝑐, 𝑑⟩))
9	8	3anbi2d 1439	. . . . . 6 ⊢ (𝑞 = ⟨𝐶, 𝐷⟩ → ((⟨𝐴, 𝐵⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝑞 = ⟨𝑐, 𝑑⟩ ∧ 𝜑) ↔ (⟨𝐴, 𝐵⟩ = ⟨𝑎, 𝑏⟩ ∧ ⟨𝐶, 𝐷⟩ = ⟨𝑐, 𝑑⟩ ∧ 𝜑)))
10	9	rexbidv 3225	. . . . 5 ⊢ (𝑞 = ⟨𝐶, 𝐷⟩ → (∃𝑑 ∈ 𝑃 (⟨𝐴, 𝐵⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝑞 = ⟨𝑐, 𝑑⟩ ∧ 𝜑) ↔ ∃𝑑 ∈ 𝑃 (⟨𝐴, 𝐵⟩ = ⟨𝑎, 𝑏⟩ ∧ ⟨𝐶, 𝐷⟩ = ⟨𝑐, 𝑑⟩ ∧ 𝜑)))
11	10	2rexbidv 3228	. . . 4 ⊢ (𝑞 = ⟨𝐶, 𝐷⟩ → (∃𝑏 ∈ 𝑃 ∃𝑐 ∈ 𝑃 ∃𝑑 ∈ 𝑃 (⟨𝐴, 𝐵⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝑞 = ⟨𝑐, 𝑑⟩ ∧ 𝜑) ↔ ∃𝑏 ∈ 𝑃 ∃𝑐 ∈ 𝑃 ∃𝑑 ∈ 𝑃 (⟨𝐴, 𝐵⟩ = ⟨𝑎, 𝑏⟩ ∧ ⟨𝐶, 𝐷⟩ = ⟨𝑐, 𝑑⟩ ∧ 𝜑)))
12	11	2rexbidv 3228	. . 3 ⊢ (𝑞 = ⟨𝐶, 𝐷⟩ → (∃𝑥 ∈ 𝑆 ∃𝑎 ∈ 𝑃 ∃𝑏 ∈ 𝑃 ∃𝑐 ∈ 𝑃 ∃𝑑 ∈ 𝑃 (⟨𝐴, 𝐵⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝑞 = ⟨𝑐, 𝑑⟩ ∧ 𝜑) ↔ ∃𝑥 ∈ 𝑆 ∃𝑎 ∈ 𝑃 ∃𝑏 ∈ 𝑃 ∃𝑐 ∈ 𝑃 ∃𝑑 ∈ 𝑃 (⟨𝐴, 𝐵⟩ = ⟨𝑎, 𝑏⟩ ∧ ⟨𝐶, 𝐷⟩ = ⟨𝑐, 𝑑⟩ ∧ 𝜑)))
13		br4.6	. . 3 ⊢ 𝑅 = {⟨𝑝, 𝑞⟩ ∣ ∃𝑥 ∈ 𝑆 ∃𝑎 ∈ 𝑃 ∃𝑏 ∈ 𝑃 ∃𝑐 ∈ 𝑃 ∃𝑑 ∈ 𝑃 (𝑝 = ⟨𝑎, 𝑏⟩ ∧ 𝑞 = ⟨𝑐, 𝑑⟩ ∧ 𝜑)}
14	1, 2, 7, 12, 13	brab 5449	. 2 ⊢ (⟨𝐴, 𝐵⟩𝑅⟨𝐶, 𝐷⟩ ↔ ∃𝑥 ∈ 𝑆 ∃𝑎 ∈ 𝑃 ∃𝑏 ∈ 𝑃 ∃𝑐 ∈ 𝑃 ∃𝑑 ∈ 𝑃 (⟨𝐴, 𝐵⟩ = ⟨𝑎, 𝑏⟩ ∧ ⟨𝐶, 𝐷⟩ = ⟨𝑐, 𝑑⟩ ∧ 𝜑))
15		vex 3426	. . . . . . . . . . . 12 ⊢ 𝑎 ∈ V
16		vex 3426	. . . . . . . . . . . 12 ⊢ 𝑏 ∈ V
17	15, 16	opth 5385	. . . . . . . . . . 11 ⊢ (⟨𝑎, 𝑏⟩ = ⟨𝐴, 𝐵⟩ ↔ (𝑎 = 𝐴 ∧ 𝑏 = 𝐵))
18		br4.1	. . . . . . . . . . . 12 ⊢ (𝑎 = 𝐴 → (𝜑 ↔ 𝜓))
19		br4.2	. . . . . . . . . . . 12 ⊢ (𝑏 = 𝐵 → (𝜓 ↔ 𝜒))
20	18, 19	sylan9bb 509	. . . . . . . . . . 11 ⊢ ((𝑎 = 𝐴 ∧ 𝑏 = 𝐵) → (𝜑 ↔ 𝜒))
21	17, 20	sylbi 216	. . . . . . . . . 10 ⊢ (⟨𝑎, 𝑏⟩ = ⟨𝐴, 𝐵⟩ → (𝜑 ↔ 𝜒))
22	21	eqcoms 2746	. . . . . . . . 9 ⊢ (⟨𝐴, 𝐵⟩ = ⟨𝑎, 𝑏⟩ → (𝜑 ↔ 𝜒))
23		vex 3426	. . . . . . . . . . . 12 ⊢ 𝑐 ∈ V
24		vex 3426	. . . . . . . . . . . 12 ⊢ 𝑑 ∈ V
25	23, 24	opth 5385	. . . . . . . . . . 11 ⊢ (⟨𝑐, 𝑑⟩ = ⟨𝐶, 𝐷⟩ ↔ (𝑐 = 𝐶 ∧ 𝑑 = 𝐷))
26		br4.3	. . . . . . . . . . . 12 ⊢ (𝑐 = 𝐶 → (𝜒 ↔ 𝜃))
27		br4.4	. . . . . . . . . . . 12 ⊢ (𝑑 = 𝐷 → (𝜃 ↔ 𝜏))
28	26, 27	sylan9bb 509	. . . . . . . . . . 11 ⊢ ((𝑐 = 𝐶 ∧ 𝑑 = 𝐷) → (𝜒 ↔ 𝜏))
29	25, 28	sylbi 216	. . . . . . . . . 10 ⊢ (⟨𝑐, 𝑑⟩ = ⟨𝐶, 𝐷⟩ → (𝜒 ↔ 𝜏))
30	29	eqcoms 2746	. . . . . . . . 9 ⊢ (⟨𝐶, 𝐷⟩ = ⟨𝑐, 𝑑⟩ → (𝜒 ↔ 𝜏))
31	22, 30	sylan9bb 509	. . . . . . . 8 ⊢ ((⟨𝐴, 𝐵⟩ = ⟨𝑎, 𝑏⟩ ∧ ⟨𝐶, 𝐷⟩ = ⟨𝑐, 𝑑⟩) → (𝜑 ↔ 𝜏))
32	31	biimp3a 1467	. . . . . . 7 ⊢ ((⟨𝐴, 𝐵⟩ = ⟨𝑎, 𝑏⟩ ∧ ⟨𝐶, 𝐷⟩ = ⟨𝑐, 𝑑⟩ ∧ 𝜑) → 𝜏)
33	32	a1i 11	. . . . . 6 ⊢ (((((𝑋 ∈ 𝑆 ∧ (𝐴 ∈ 𝑄 ∧ 𝐵 ∈ 𝑄) ∧ (𝐶 ∈ 𝑄 ∧ 𝐷 ∈ 𝑄)) ∧ (𝑥 ∈ 𝑆 ∧ 𝑎 ∈ 𝑃)) ∧ (𝑏 ∈ 𝑃 ∧ 𝑐 ∈ 𝑃)) ∧ 𝑑 ∈ 𝑃) → ((⟨𝐴, 𝐵⟩ = ⟨𝑎, 𝑏⟩ ∧ ⟨𝐶, 𝐷⟩ = ⟨𝑐, 𝑑⟩ ∧ 𝜑) → 𝜏))
34	33	rexlimdva 3212	. . . . 5 ⊢ ((((𝑋 ∈ 𝑆 ∧ (𝐴 ∈ 𝑄 ∧ 𝐵 ∈ 𝑄) ∧ (𝐶 ∈ 𝑄 ∧ 𝐷 ∈ 𝑄)) ∧ (𝑥 ∈ 𝑆 ∧ 𝑎 ∈ 𝑃)) ∧ (𝑏 ∈ 𝑃 ∧ 𝑐 ∈ 𝑃)) → (∃𝑑 ∈ 𝑃 (⟨𝐴, 𝐵⟩ = ⟨𝑎, 𝑏⟩ ∧ ⟨𝐶, 𝐷⟩ = ⟨𝑐, 𝑑⟩ ∧ 𝜑) → 𝜏))
35	34	rexlimdvva 3222	. . . 4 ⊢ (((𝑋 ∈ 𝑆 ∧ (𝐴 ∈ 𝑄 ∧ 𝐵 ∈ 𝑄) ∧ (𝐶 ∈ 𝑄 ∧ 𝐷 ∈ 𝑄)) ∧ (𝑥 ∈ 𝑆 ∧ 𝑎 ∈ 𝑃)) → (∃𝑏 ∈ 𝑃 ∃𝑐 ∈ 𝑃 ∃𝑑 ∈ 𝑃 (⟨𝐴, 𝐵⟩ = ⟨𝑎, 𝑏⟩ ∧ ⟨𝐶, 𝐷⟩ = ⟨𝑐, 𝑑⟩ ∧ 𝜑) → 𝜏))
36	35	rexlimdvva 3222	. . 3 ⊢ ((𝑋 ∈ 𝑆 ∧ (𝐴 ∈ 𝑄 ∧ 𝐵 ∈ 𝑄) ∧ (𝐶 ∈ 𝑄 ∧ 𝐷 ∈ 𝑄)) → (∃𝑥 ∈ 𝑆 ∃𝑎 ∈ 𝑃 ∃𝑏 ∈ 𝑃 ∃𝑐 ∈ 𝑃 ∃𝑑 ∈ 𝑃 (⟨𝐴, 𝐵⟩ = ⟨𝑎, 𝑏⟩ ∧ ⟨𝐶, 𝐷⟩ = ⟨𝑐, 𝑑⟩ ∧ 𝜑) → 𝜏))
37		simpl1 1189	. . . . 5 ⊢ (((𝑋 ∈ 𝑆 ∧ (𝐴 ∈ 𝑄 ∧ 𝐵 ∈ 𝑄) ∧ (𝐶 ∈ 𝑄 ∧ 𝐷 ∈ 𝑄)) ∧ 𝜏) → 𝑋 ∈ 𝑆)
38		simpl2l 1224	. . . . . 6 ⊢ (((𝑋 ∈ 𝑆 ∧ (𝐴 ∈ 𝑄 ∧ 𝐵 ∈ 𝑄) ∧ (𝐶 ∈ 𝑄 ∧ 𝐷 ∈ 𝑄)) ∧ 𝜏) → 𝐴 ∈ 𝑄)
39		simpl2r 1225	. . . . . 6 ⊢ (((𝑋 ∈ 𝑆 ∧ (𝐴 ∈ 𝑄 ∧ 𝐵 ∈ 𝑄) ∧ (𝐶 ∈ 𝑄 ∧ 𝐷 ∈ 𝑄)) ∧ 𝜏) → 𝐵 ∈ 𝑄)
40		simpl3l 1226	. . . . . . 7 ⊢ (((𝑋 ∈ 𝑆 ∧ (𝐴 ∈ 𝑄 ∧ 𝐵 ∈ 𝑄) ∧ (𝐶 ∈ 𝑄 ∧ 𝐷 ∈ 𝑄)) ∧ 𝜏) → 𝐶 ∈ 𝑄)
41		simpl3r 1227	. . . . . . 7 ⊢ (((𝑋 ∈ 𝑆 ∧ (𝐴 ∈ 𝑄 ∧ 𝐵 ∈ 𝑄) ∧ (𝐶 ∈ 𝑄 ∧ 𝐷 ∈ 𝑄)) ∧ 𝜏) → 𝐷 ∈ 𝑄)
42		eqidd 2739	. . . . . . 7 ⊢ (((𝑋 ∈ 𝑆 ∧ (𝐴 ∈ 𝑄 ∧ 𝐵 ∈ 𝑄) ∧ (𝐶 ∈ 𝑄 ∧ 𝐷 ∈ 𝑄)) ∧ 𝜏) → ⟨𝐴, 𝐵⟩ = ⟨𝐴, 𝐵⟩)
43		eqidd 2739	. . . . . . 7 ⊢ (((𝑋 ∈ 𝑆 ∧ (𝐴 ∈ 𝑄 ∧ 𝐵 ∈ 𝑄) ∧ (𝐶 ∈ 𝑄 ∧ 𝐷 ∈ 𝑄)) ∧ 𝜏) → ⟨𝐶, 𝐷⟩ = ⟨𝐶, 𝐷⟩)
44		simpr 484	. . . . . . 7 ⊢ (((𝑋 ∈ 𝑆 ∧ (𝐴 ∈ 𝑄 ∧ 𝐵 ∈ 𝑄) ∧ (𝐶 ∈ 𝑄 ∧ 𝐷 ∈ 𝑄)) ∧ 𝜏) → 𝜏)
45		opeq1 4801	. . . . . . . . . 10 ⊢ (𝑐 = 𝐶 → ⟨𝑐, 𝑑⟩ = ⟨𝐶, 𝑑⟩)
46	45	eqeq2d 2749	. . . . . . . . 9 ⊢ (𝑐 = 𝐶 → (⟨𝐶, 𝐷⟩ = ⟨𝑐, 𝑑⟩ ↔ ⟨𝐶, 𝐷⟩ = ⟨𝐶, 𝑑⟩))
47	46, 26	3anbi23d 1437	. . . . . . . 8 ⊢ (𝑐 = 𝐶 → ((⟨𝐴, 𝐵⟩ = ⟨𝐴, 𝐵⟩ ∧ ⟨𝐶, 𝐷⟩ = ⟨𝑐, 𝑑⟩ ∧ 𝜒) ↔ (⟨𝐴, 𝐵⟩ = ⟨𝐴, 𝐵⟩ ∧ ⟨𝐶, 𝐷⟩ = ⟨𝐶, 𝑑⟩ ∧ 𝜃)))
48		opeq2 4802	. . . . . . . . . 10 ⊢ (𝑑 = 𝐷 → ⟨𝐶, 𝑑⟩ = ⟨𝐶, 𝐷⟩)
49	48	eqeq2d 2749	. . . . . . . . 9 ⊢ (𝑑 = 𝐷 → (⟨𝐶, 𝐷⟩ = ⟨𝐶, 𝑑⟩ ↔ ⟨𝐶, 𝐷⟩ = ⟨𝐶, 𝐷⟩))
50	49, 27	3anbi23d 1437	. . . . . . . 8 ⊢ (𝑑 = 𝐷 → ((⟨𝐴, 𝐵⟩ = ⟨𝐴, 𝐵⟩ ∧ ⟨𝐶, 𝐷⟩ = ⟨𝐶, 𝑑⟩ ∧ 𝜃) ↔ (⟨𝐴, 𝐵⟩ = ⟨𝐴, 𝐵⟩ ∧ ⟨𝐶, 𝐷⟩ = ⟨𝐶, 𝐷⟩ ∧ 𝜏)))
51	47, 50	rspc2ev 3564	. . . . . . 7 ⊢ ((𝐶 ∈ 𝑄 ∧ 𝐷 ∈ 𝑄 ∧ (⟨𝐴, 𝐵⟩ = ⟨𝐴, 𝐵⟩ ∧ ⟨𝐶, 𝐷⟩ = ⟨𝐶, 𝐷⟩ ∧ 𝜏)) → ∃𝑐 ∈ 𝑄 ∃𝑑 ∈ 𝑄 (⟨𝐴, 𝐵⟩ = ⟨𝐴, 𝐵⟩ ∧ ⟨𝐶, 𝐷⟩ = ⟨𝑐, 𝑑⟩ ∧ 𝜒))
52	40, 41, 42, 43, 44, 51	syl113anc 1380	. . . . . 6 ⊢ (((𝑋 ∈ 𝑆 ∧ (𝐴 ∈ 𝑄 ∧ 𝐵 ∈ 𝑄) ∧ (𝐶 ∈ 𝑄 ∧ 𝐷 ∈ 𝑄)) ∧ 𝜏) → ∃𝑐 ∈ 𝑄 ∃𝑑 ∈ 𝑄 (⟨𝐴, 𝐵⟩ = ⟨𝐴, 𝐵⟩ ∧ ⟨𝐶, 𝐷⟩ = ⟨𝑐, 𝑑⟩ ∧ 𝜒))
53		opeq1 4801	. . . . . . . . . 10 ⊢ (𝑎 = 𝐴 → ⟨𝑎, 𝑏⟩ = ⟨𝐴, 𝑏⟩)
54	53	eqeq2d 2749	. . . . . . . . 9 ⊢ (𝑎 = 𝐴 → (⟨𝐴, 𝐵⟩ = ⟨𝑎, 𝑏⟩ ↔ ⟨𝐴, 𝐵⟩ = ⟨𝐴, 𝑏⟩))
55	54, 18	3anbi13d 1436	. . . . . . . 8 ⊢ (𝑎 = 𝐴 → ((⟨𝐴, 𝐵⟩ = ⟨𝑎, 𝑏⟩ ∧ ⟨𝐶, 𝐷⟩ = ⟨𝑐, 𝑑⟩ ∧ 𝜑) ↔ (⟨𝐴, 𝐵⟩ = ⟨𝐴, 𝑏⟩ ∧ ⟨𝐶, 𝐷⟩ = ⟨𝑐, 𝑑⟩ ∧ 𝜓)))
56	55	2rexbidv 3228	. . . . . . 7 ⊢ (𝑎 = 𝐴 → (∃𝑐 ∈ 𝑄 ∃𝑑 ∈ 𝑄 (⟨𝐴, 𝐵⟩ = ⟨𝑎, 𝑏⟩ ∧ ⟨𝐶, 𝐷⟩ = ⟨𝑐, 𝑑⟩ ∧ 𝜑) ↔ ∃𝑐 ∈ 𝑄 ∃𝑑 ∈ 𝑄 (⟨𝐴, 𝐵⟩ = ⟨𝐴, 𝑏⟩ ∧ ⟨𝐶, 𝐷⟩ = ⟨𝑐, 𝑑⟩ ∧ 𝜓)))
57		opeq2 4802	. . . . . . . . . 10 ⊢ (𝑏 = 𝐵 → ⟨𝐴, 𝑏⟩ = ⟨𝐴, 𝐵⟩)
58	57	eqeq2d 2749	. . . . . . . . 9 ⊢ (𝑏 = 𝐵 → (⟨𝐴, 𝐵⟩ = ⟨𝐴, 𝑏⟩ ↔ ⟨𝐴, 𝐵⟩ = ⟨𝐴, 𝐵⟩))
59	58, 19	3anbi13d 1436	. . . . . . . 8 ⊢ (𝑏 = 𝐵 → ((⟨𝐴, 𝐵⟩ = ⟨𝐴, 𝑏⟩ ∧ ⟨𝐶, 𝐷⟩ = ⟨𝑐, 𝑑⟩ ∧ 𝜓) ↔ (⟨𝐴, 𝐵⟩ = ⟨𝐴, 𝐵⟩ ∧ ⟨𝐶, 𝐷⟩ = ⟨𝑐, 𝑑⟩ ∧ 𝜒)))
60	59	2rexbidv 3228	. . . . . . 7 ⊢ (𝑏 = 𝐵 → (∃𝑐 ∈ 𝑄 ∃𝑑 ∈ 𝑄 (⟨𝐴, 𝐵⟩ = ⟨𝐴, 𝑏⟩ ∧ ⟨𝐶, 𝐷⟩ = ⟨𝑐, 𝑑⟩ ∧ 𝜓) ↔ ∃𝑐 ∈ 𝑄 ∃𝑑 ∈ 𝑄 (⟨𝐴, 𝐵⟩ = ⟨𝐴, 𝐵⟩ ∧ ⟨𝐶, 𝐷⟩ = ⟨𝑐, 𝑑⟩ ∧ 𝜒)))
61	56, 60	rspc2ev 3564	. . . . . 6 ⊢ ((𝐴 ∈ 𝑄 ∧ 𝐵 ∈ 𝑄 ∧ ∃𝑐 ∈ 𝑄 ∃𝑑 ∈ 𝑄 (⟨𝐴, 𝐵⟩ = ⟨𝐴, 𝐵⟩ ∧ ⟨𝐶, 𝐷⟩ = ⟨𝑐, 𝑑⟩ ∧ 𝜒)) → ∃𝑎 ∈ 𝑄 ∃𝑏 ∈ 𝑄 ∃𝑐 ∈ 𝑄 ∃𝑑 ∈ 𝑄 (⟨𝐴, 𝐵⟩ = ⟨𝑎, 𝑏⟩ ∧ ⟨𝐶, 𝐷⟩ = ⟨𝑐, 𝑑⟩ ∧ 𝜑))
62	38, 39, 52, 61	syl3anc 1369	. . . . 5 ⊢ (((𝑋 ∈ 𝑆 ∧ (𝐴 ∈ 𝑄 ∧ 𝐵 ∈ 𝑄) ∧ (𝐶 ∈ 𝑄 ∧ 𝐷 ∈ 𝑄)) ∧ 𝜏) → ∃𝑎 ∈ 𝑄 ∃𝑏 ∈ 𝑄 ∃𝑐 ∈ 𝑄 ∃𝑑 ∈ 𝑄 (⟨𝐴, 𝐵⟩ = ⟨𝑎, 𝑏⟩ ∧ ⟨𝐶, 𝐷⟩ = ⟨𝑐, 𝑑⟩ ∧ 𝜑))
63		br4.5	. . . . . . 7 ⊢ (𝑥 = 𝑋 → 𝑃 = 𝑄)
64	63	rexeqdv 3340	. . . . . . . . 9 ⊢ (𝑥 = 𝑋 → (∃𝑑 ∈ 𝑃 (⟨𝐴, 𝐵⟩ = ⟨𝑎, 𝑏⟩ ∧ ⟨𝐶, 𝐷⟩ = ⟨𝑐, 𝑑⟩ ∧ 𝜑) ↔ ∃𝑑 ∈ 𝑄 (⟨𝐴, 𝐵⟩ = ⟨𝑎, 𝑏⟩ ∧ ⟨𝐶, 𝐷⟩ = ⟨𝑐, 𝑑⟩ ∧ 𝜑)))
65	63, 64	rexeqbidv 3328	. . . . . . . 8 ⊢ (𝑥 = 𝑋 → (∃𝑐 ∈ 𝑃 ∃𝑑 ∈ 𝑃 (⟨𝐴, 𝐵⟩ = ⟨𝑎, 𝑏⟩ ∧ ⟨𝐶, 𝐷⟩ = ⟨𝑐, 𝑑⟩ ∧ 𝜑) ↔ ∃𝑐 ∈ 𝑄 ∃𝑑 ∈ 𝑄 (⟨𝐴, 𝐵⟩ = ⟨𝑎, 𝑏⟩ ∧ ⟨𝐶, 𝐷⟩ = ⟨𝑐, 𝑑⟩ ∧ 𝜑)))
66	63, 65	rexeqbidv 3328	. . . . . . 7 ⊢ (𝑥 = 𝑋 → (∃𝑏 ∈ 𝑃 ∃𝑐 ∈ 𝑃 ∃𝑑 ∈ 𝑃 (⟨𝐴, 𝐵⟩ = ⟨𝑎, 𝑏⟩ ∧ ⟨𝐶, 𝐷⟩ = ⟨𝑐, 𝑑⟩ ∧ 𝜑) ↔ ∃𝑏 ∈ 𝑄 ∃𝑐 ∈ 𝑄 ∃𝑑 ∈ 𝑄 (⟨𝐴, 𝐵⟩ = ⟨𝑎, 𝑏⟩ ∧ ⟨𝐶, 𝐷⟩ = ⟨𝑐, 𝑑⟩ ∧ 𝜑)))
67	63, 66	rexeqbidv 3328	. . . . . 6 ⊢ (𝑥 = 𝑋 → (∃𝑎 ∈ 𝑃 ∃𝑏 ∈ 𝑃 ∃𝑐 ∈ 𝑃 ∃𝑑 ∈ 𝑃 (⟨𝐴, 𝐵⟩ = ⟨𝑎, 𝑏⟩ ∧ ⟨𝐶, 𝐷⟩ = ⟨𝑐, 𝑑⟩ ∧ 𝜑) ↔ ∃𝑎 ∈ 𝑄 ∃𝑏 ∈ 𝑄 ∃𝑐 ∈ 𝑄 ∃𝑑 ∈ 𝑄 (⟨𝐴, 𝐵⟩ = ⟨𝑎, 𝑏⟩ ∧ ⟨𝐶, 𝐷⟩ = ⟨𝑐, 𝑑⟩ ∧ 𝜑)))
68	67	rspcev 3552	. . . . 5 ⊢ ((𝑋 ∈ 𝑆 ∧ ∃𝑎 ∈ 𝑄 ∃𝑏 ∈ 𝑄 ∃𝑐 ∈ 𝑄 ∃𝑑 ∈ 𝑄 (⟨𝐴, 𝐵⟩ = ⟨𝑎, 𝑏⟩ ∧ ⟨𝐶, 𝐷⟩ = ⟨𝑐, 𝑑⟩ ∧ 𝜑)) → ∃𝑥 ∈ 𝑆 ∃𝑎 ∈ 𝑃 ∃𝑏 ∈ 𝑃 ∃𝑐 ∈ 𝑃 ∃𝑑 ∈ 𝑃 (⟨𝐴, 𝐵⟩ = ⟨𝑎, 𝑏⟩ ∧ ⟨𝐶, 𝐷⟩ = ⟨𝑐, 𝑑⟩ ∧ 𝜑))
69	37, 62, 68	syl2anc 583	. . . 4 ⊢ (((𝑋 ∈ 𝑆 ∧ (𝐴 ∈ 𝑄 ∧ 𝐵 ∈ 𝑄) ∧ (𝐶 ∈ 𝑄 ∧ 𝐷 ∈ 𝑄)) ∧ 𝜏) → ∃𝑥 ∈ 𝑆 ∃𝑎 ∈ 𝑃 ∃𝑏 ∈ 𝑃 ∃𝑐 ∈ 𝑃 ∃𝑑 ∈ 𝑃 (⟨𝐴, 𝐵⟩ = ⟨𝑎, 𝑏⟩ ∧ ⟨𝐶, 𝐷⟩ = ⟨𝑐, 𝑑⟩ ∧ 𝜑))
70	69	ex 412	. . 3 ⊢ ((𝑋 ∈ 𝑆 ∧ (𝐴 ∈ 𝑄 ∧ 𝐵 ∈ 𝑄) ∧ (𝐶 ∈ 𝑄 ∧ 𝐷 ∈ 𝑄)) → (𝜏 → ∃𝑥 ∈ 𝑆 ∃𝑎 ∈ 𝑃 ∃𝑏 ∈ 𝑃 ∃𝑐 ∈ 𝑃 ∃𝑑 ∈ 𝑃 (⟨𝐴, 𝐵⟩ = ⟨𝑎, 𝑏⟩ ∧ ⟨𝐶, 𝐷⟩ = ⟨𝑐, 𝑑⟩ ∧ 𝜑)))
71	36, 70	impbid 211	. 2 ⊢ ((𝑋 ∈ 𝑆 ∧ (𝐴 ∈ 𝑄 ∧ 𝐵 ∈ 𝑄) ∧ (𝐶 ∈ 𝑄 ∧ 𝐷 ∈ 𝑄)) → (∃𝑥 ∈ 𝑆 ∃𝑎 ∈ 𝑃 ∃𝑏 ∈ 𝑃 ∃𝑐 ∈ 𝑃 ∃𝑑 ∈ 𝑃 (⟨𝐴, 𝐵⟩ = ⟨𝑎, 𝑏⟩ ∧ ⟨𝐶, 𝐷⟩ = ⟨𝑐, 𝑑⟩ ∧ 𝜑) ↔ 𝜏))
72	14, 71	syl5bb 282	1 ⊢ ((𝑋 ∈ 𝑆 ∧ (𝐴 ∈ 𝑄 ∧ 𝐵 ∈ 𝑄) ∧ (𝐶 ∈ 𝑄 ∧ 𝐷 ∈ 𝑄)) → (⟨𝐴, 𝐵⟩𝑅⟨𝐶, 𝐷⟩ ↔ 𝜏))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ↔ wb 205 ∧ wa 395 ∧ w3a 1085 = wceq 1539 ∈ wcel 2108 ∃wrex 3064 ⟨cop 4564 class class class wbr 5070 {copab 5132

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1799 ax-4 1813 ax-5 1914 ax-6 1972 ax-7 2012 ax-8 2110 ax-9 2118 ax-ext 2709 ax-sep 5218 ax-nul 5225 ax-pr 5347

This theorem depends on definitions: df-bi 206 df-an 396 df-or 844 df-3an 1087 df-tru 1542 df-fal 1552 df-ex 1784 df-sb 2069 df-clab 2716 df-cleq 2730 df-clel 2817 df-ral 3068 df-rex 3069 df-rab 3072 df-v 3424 df-dif 3886 df-un 3888 df-nul 4254 df-if 4457 df-sn 4559 df-pr 4561 df-op 4565 df-br 5071 df-opab 5133

This theorem is referenced by: (None)

W3C validator