Theorem ovi3 6199

Description: The value of an operation class abstraction. Special case. (Contributed by NM, 28-May-1995.) (Revised by Mario Carneiro, 29-Dec-2014.)

Hypotheses

Ref	Expression
ovi3.1	⊢ (((𝐴 ∈ 𝐻 ∧ 𝐵 ∈ 𝐻) ∧ (𝐶 ∈ 𝐻 ∧ 𝐷 ∈ 𝐻)) → 𝑆 ∈ (𝐻 × 𝐻))
ovi3.2	⊢ (((𝑤 = 𝐴 ∧ 𝑣 = 𝐵) ∧ (𝑢 = 𝐶 ∧ 𝑓 = 𝐷)) → 𝑅 = 𝑆)
ovi3.3	⊢ 𝐹 = {⟨⟨𝑥, 𝑦⟩, 𝑧⟩ ∣ ((𝑥 ∈ (𝐻 × 𝐻) ∧ 𝑦 ∈ (𝐻 × 𝐻)) ∧ ∃𝑤∃𝑣∃𝑢∃𝑓((𝑥 = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝑅))}

Assertion

Ref	Expression
ovi3	⊢ (((𝐴 ∈ 𝐻 ∧ 𝐵 ∈ 𝐻) ∧ (𝐶 ∈ 𝐻 ∧ 𝐷 ∈ 𝐻)) → (⟨𝐴, 𝐵⟩𝐹⟨𝐶, 𝐷⟩) = 𝑆)

Distinct variable groups:   𝑢,𝑓,𝑣,𝑤,𝑥,𝑦,𝑧,𝐴   𝐵,𝑓,𝑢,𝑣,𝑤,𝑥,𝑦,𝑧   𝑥,𝑅,𝑦,𝑧   𝐶,𝑓,𝑢,𝑣,𝑤,𝑦,𝑧   𝐷,𝑓,𝑢,𝑣,𝑤,𝑦,𝑧   𝑓,𝐻,𝑢,𝑣,𝑤,𝑥,𝑦,𝑧   𝑆,𝑓,𝑢,𝑣,𝑤,𝑧

Allowed substitution hints:   𝐶(𝑥)   𝐷(𝑥)   𝑅(𝑤,𝑣,𝑢,𝑓)   𝑆(𝑥,𝑦)   𝐹(𝑥,𝑦,𝑧,𝑤,𝑣,𝑢,𝑓)

Proof of Theorem ovi3

Step	Hyp	Ref	Expression
1		ovi3.1	. . . 4 ⊢ (((𝐴 ∈ 𝐻 ∧ 𝐵 ∈ 𝐻) ∧ (𝐶 ∈ 𝐻 ∧ 𝐷 ∈ 𝐻)) → 𝑆 ∈ (𝐻 × 𝐻))
2		elex 2827	. . . 4 ⊢ (𝑆 ∈ (𝐻 × 𝐻) → 𝑆 ∈ V)
3	1, 2	syl 14	. . 3 ⊢ (((𝐴 ∈ 𝐻 ∧ 𝐵 ∈ 𝐻) ∧ (𝐶 ∈ 𝐻 ∧ 𝐷 ∈ 𝐻)) → 𝑆 ∈ V)
4		isset 2822	. . 3 ⊢ (𝑆 ∈ V ↔ ∃𝑧 𝑧 = 𝑆)
5	3, 4	sylib 122	. 2 ⊢ (((𝐴 ∈ 𝐻 ∧ 𝐵 ∈ 𝐻) ∧ (𝐶 ∈ 𝐻 ∧ 𝐷 ∈ 𝐻)) → ∃𝑧 𝑧 = 𝑆)
6		nfv 1577	. . 3 ⊢ Ⅎ𝑧((𝐴 ∈ 𝐻 ∧ 𝐵 ∈ 𝐻) ∧ (𝐶 ∈ 𝐻 ∧ 𝐷 ∈ 𝐻))
7		nfcv 2386	. . . . 5 ⊢ Ⅎ𝑧⟨𝐴, 𝐵⟩
8		ovi3.3	. . . . . 6 ⊢ 𝐹 = {⟨⟨𝑥, 𝑦⟩, 𝑧⟩ ∣ ((𝑥 ∈ (𝐻 × 𝐻) ∧ 𝑦 ∈ (𝐻 × 𝐻)) ∧ ∃𝑤∃𝑣∃𝑢∃𝑓((𝑥 = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝑅))}
9		nfoprab3 6112	. . . . . 6 ⊢ Ⅎ𝑧{⟨⟨𝑥, 𝑦⟩, 𝑧⟩ ∣ ((𝑥 ∈ (𝐻 × 𝐻) ∧ 𝑦 ∈ (𝐻 × 𝐻)) ∧ ∃𝑤∃𝑣∃𝑢∃𝑓((𝑥 = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝑅))}
10	8, 9	nfcxfr 2383	. . . . 5 ⊢ Ⅎ𝑧𝐹
11		nfcv 2386	. . . . 5 ⊢ Ⅎ𝑧⟨𝐶, 𝐷⟩
12	7, 10, 11	nfov 6088	. . . 4 ⊢ Ⅎ𝑧(⟨𝐴, 𝐵⟩𝐹⟨𝐶, 𝐷⟩)
13	12	nfeq1 2396	. . 3 ⊢ Ⅎ𝑧(⟨𝐴, 𝐵⟩𝐹⟨𝐶, 𝐷⟩) = 𝑆
14		ovi3.2	. . . . . . 7 ⊢ (((𝑤 = 𝐴 ∧ 𝑣 = 𝐵) ∧ (𝑢 = 𝐶 ∧ 𝑓 = 𝐷)) → 𝑅 = 𝑆)
15	14	eqeq2d 2246	. . . . . 6 ⊢ (((𝑤 = 𝐴 ∧ 𝑣 = 𝐵) ∧ (𝑢 = 𝐶 ∧ 𝑓 = 𝐷)) → (𝑧 = 𝑅 ↔ 𝑧 = 𝑆))
16	15	copsex4g 4368	. . . . 5 ⊢ (((𝐴 ∈ 𝐻 ∧ 𝐵 ∈ 𝐻) ∧ (𝐶 ∈ 𝐻 ∧ 𝐷 ∈ 𝐻)) → (∃𝑤∃𝑣∃𝑢∃𝑓((⟨𝐴, 𝐵⟩ = ⟨𝑤, 𝑣⟩ ∧ ⟨𝐶, 𝐷⟩ = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝑅) ↔ 𝑧 = 𝑆))
17		opelxpi 4786	. . . . . 6 ⊢ ((𝐴 ∈ 𝐻 ∧ 𝐵 ∈ 𝐻) → ⟨𝐴, 𝐵⟩ ∈ (𝐻 × 𝐻))
18		opelxpi 4786	. . . . . 6 ⊢ ((𝐶 ∈ 𝐻 ∧ 𝐷 ∈ 𝐻) → ⟨𝐶, 𝐷⟩ ∈ (𝐻 × 𝐻))
19		nfcv 2386	. . . . . . 7 ⊢ Ⅎ𝑥⟨𝐴, 𝐵⟩
20		nfcv 2386	. . . . . . 7 ⊢ Ⅎ𝑦⟨𝐴, 𝐵⟩
21		nfcv 2386	. . . . . . 7 ⊢ Ⅎ𝑦⟨𝐶, 𝐷⟩
22		nfv 1577	. . . . . . . 8 ⊢ Ⅎ𝑥∃𝑤∃𝑣∃𝑢∃𝑓((⟨𝐴, 𝐵⟩ = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝑅)
23		nfoprab1 6110	. . . . . . . . . . 11 ⊢ Ⅎ𝑥{⟨⟨𝑥, 𝑦⟩, 𝑧⟩ ∣ ((𝑥 ∈ (𝐻 × 𝐻) ∧ 𝑦 ∈ (𝐻 × 𝐻)) ∧ ∃𝑤∃𝑣∃𝑢∃𝑓((𝑥 = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝑅))}
24	8, 23	nfcxfr 2383	. . . . . . . . . 10 ⊢ Ⅎ𝑥𝐹
25		nfcv 2386	. . . . . . . . . 10 ⊢ Ⅎ𝑥𝑦
26	19, 24, 25	nfov 6088	. . . . . . . . 9 ⊢ Ⅎ𝑥(⟨𝐴, 𝐵⟩𝐹𝑦)
27	26	nfeq1 2396	. . . . . . . 8 ⊢ Ⅎ𝑥(⟨𝐴, 𝐵⟩𝐹𝑦) = 𝑧
28	22, 27	nfim 1621	. . . . . . 7 ⊢ Ⅎ𝑥(∃𝑤∃𝑣∃𝑢∃𝑓((⟨𝐴, 𝐵⟩ = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝑅) → (⟨𝐴, 𝐵⟩𝐹𝑦) = 𝑧)
29		nfv 1577	. . . . . . . 8 ⊢ Ⅎ𝑦∃𝑤∃𝑣∃𝑢∃𝑓((⟨𝐴, 𝐵⟩ = ⟨𝑤, 𝑣⟩ ∧ ⟨𝐶, 𝐷⟩ = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝑅)
30		nfoprab2 6111	. . . . . . . . . . 11 ⊢ Ⅎ𝑦{⟨⟨𝑥, 𝑦⟩, 𝑧⟩ ∣ ((𝑥 ∈ (𝐻 × 𝐻) ∧ 𝑦 ∈ (𝐻 × 𝐻)) ∧ ∃𝑤∃𝑣∃𝑢∃𝑓((𝑥 = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝑅))}
31	8, 30	nfcxfr 2383	. . . . . . . . . 10 ⊢ Ⅎ𝑦𝐹
32	20, 31, 21	nfov 6088	. . . . . . . . 9 ⊢ Ⅎ𝑦(⟨𝐴, 𝐵⟩𝐹⟨𝐶, 𝐷⟩)
33	32	nfeq1 2396	. . . . . . . 8 ⊢ Ⅎ𝑦(⟨𝐴, 𝐵⟩𝐹⟨𝐶, 𝐷⟩) = 𝑧
34	29, 33	nfim 1621	. . . . . . 7 ⊢ Ⅎ𝑦(∃𝑤∃𝑣∃𝑢∃𝑓((⟨𝐴, 𝐵⟩ = ⟨𝑤, 𝑣⟩ ∧ ⟨𝐶, 𝐷⟩ = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝑅) → (⟨𝐴, 𝐵⟩𝐹⟨𝐶, 𝐷⟩) = 𝑧)
35		eqeq1 2241	. . . . . . . . . . 11 ⊢ (𝑥 = ⟨𝐴, 𝐵⟩ → (𝑥 = ⟨𝑤, 𝑣⟩ ↔ ⟨𝐴, 𝐵⟩ = ⟨𝑤, 𝑣⟩))
36	35	anbi1d 465	. . . . . . . . . 10 ⊢ (𝑥 = ⟨𝐴, 𝐵⟩ → ((𝑥 = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ↔ (⟨𝐴, 𝐵⟩ = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩)))
37	36	anbi1d 465	. . . . . . . . 9 ⊢ (𝑥 = ⟨𝐴, 𝐵⟩ → (((𝑥 = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝑅) ↔ ((⟨𝐴, 𝐵⟩ = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝑅)))
38	37	4exbidv 1919	. . . . . . . 8 ⊢ (𝑥 = ⟨𝐴, 𝐵⟩ → (∃𝑤∃𝑣∃𝑢∃𝑓((𝑥 = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝑅) ↔ ∃𝑤∃𝑣∃𝑢∃𝑓((⟨𝐴, 𝐵⟩ = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝑅)))
39		oveq1 6065	. . . . . . . . 9 ⊢ (𝑥 = ⟨𝐴, 𝐵⟩ → (𝑥𝐹𝑦) = (⟨𝐴, 𝐵⟩𝐹𝑦))
40	39	eqeq1d 2243	. . . . . . . 8 ⊢ (𝑥 = ⟨𝐴, 𝐵⟩ → ((𝑥𝐹𝑦) = 𝑧 ↔ (⟨𝐴, 𝐵⟩𝐹𝑦) = 𝑧))
41	38, 40	imbi12d 234	. . . . . . 7 ⊢ (𝑥 = ⟨𝐴, 𝐵⟩ → ((∃𝑤∃𝑣∃𝑢∃𝑓((𝑥 = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝑅) → (𝑥𝐹𝑦) = 𝑧) ↔ (∃𝑤∃𝑣∃𝑢∃𝑓((⟨𝐴, 𝐵⟩ = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝑅) → (⟨𝐴, 𝐵⟩𝐹𝑦) = 𝑧)))
42		eqeq1 2241	. . . . . . . . . . 11 ⊢ (𝑦 = ⟨𝐶, 𝐷⟩ → (𝑦 = ⟨𝑢, 𝑓⟩ ↔ ⟨𝐶, 𝐷⟩ = ⟨𝑢, 𝑓⟩))
43	42	anbi2d 464	. . . . . . . . . 10 ⊢ (𝑦 = ⟨𝐶, 𝐷⟩ → ((⟨𝐴, 𝐵⟩ = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ↔ (⟨𝐴, 𝐵⟩ = ⟨𝑤, 𝑣⟩ ∧ ⟨𝐶, 𝐷⟩ = ⟨𝑢, 𝑓⟩)))
44	43	anbi1d 465	. . . . . . . . 9 ⊢ (𝑦 = ⟨𝐶, 𝐷⟩ → (((⟨𝐴, 𝐵⟩ = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝑅) ↔ ((⟨𝐴, 𝐵⟩ = ⟨𝑤, 𝑣⟩ ∧ ⟨𝐶, 𝐷⟩ = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝑅)))
45	44	4exbidv 1919	. . . . . . . 8 ⊢ (𝑦 = ⟨𝐶, 𝐷⟩ → (∃𝑤∃𝑣∃𝑢∃𝑓((⟨𝐴, 𝐵⟩ = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝑅) ↔ ∃𝑤∃𝑣∃𝑢∃𝑓((⟨𝐴, 𝐵⟩ = ⟨𝑤, 𝑣⟩ ∧ ⟨𝐶, 𝐷⟩ = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝑅)))
46		oveq2 6066	. . . . . . . . 9 ⊢ (𝑦 = ⟨𝐶, 𝐷⟩ → (⟨𝐴, 𝐵⟩𝐹𝑦) = (⟨𝐴, 𝐵⟩𝐹⟨𝐶, 𝐷⟩))
47	46	eqeq1d 2243	. . . . . . . 8 ⊢ (𝑦 = ⟨𝐶, 𝐷⟩ → ((⟨𝐴, 𝐵⟩𝐹𝑦) = 𝑧 ↔ (⟨𝐴, 𝐵⟩𝐹⟨𝐶, 𝐷⟩) = 𝑧))
48	45, 47	imbi12d 234	. . . . . . 7 ⊢ (𝑦 = ⟨𝐶, 𝐷⟩ → ((∃𝑤∃𝑣∃𝑢∃𝑓((⟨𝐴, 𝐵⟩ = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝑅) → (⟨𝐴, 𝐵⟩𝐹𝑦) = 𝑧) ↔ (∃𝑤∃𝑣∃𝑢∃𝑓((⟨𝐴, 𝐵⟩ = ⟨𝑤, 𝑣⟩ ∧ ⟨𝐶, 𝐷⟩ = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝑅) → (⟨𝐴, 𝐵⟩𝐹⟨𝐶, 𝐷⟩) = 𝑧)))
49		moeq 2995	. . . . . . . . . . . 12 ⊢ ∃*𝑧 𝑧 = 𝑅
50	49	mosubop 4821	. . . . . . . . . . 11 ⊢ ∃*𝑧∃𝑢∃𝑓(𝑦 = ⟨𝑢, 𝑓⟩ ∧ 𝑧 = 𝑅)
51	50	mosubop 4821	. . . . . . . . . 10 ⊢ ∃*𝑧∃𝑤∃𝑣(𝑥 = ⟨𝑤, 𝑣⟩ ∧ ∃𝑢∃𝑓(𝑦 = ⟨𝑢, 𝑓⟩ ∧ 𝑧 = 𝑅))
52		anass 401	. . . . . . . . . . . . . 14 ⊢ (((𝑥 = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝑅) ↔ (𝑥 = ⟨𝑤, 𝑣⟩ ∧ (𝑦 = ⟨𝑢, 𝑓⟩ ∧ 𝑧 = 𝑅)))
53	52	2exbii 1655	. . . . . . . . . . . . 13 ⊢ (∃𝑢∃𝑓((𝑥 = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝑅) ↔ ∃𝑢∃𝑓(𝑥 = ⟨𝑤, 𝑣⟩ ∧ (𝑦 = ⟨𝑢, 𝑓⟩ ∧ 𝑧 = 𝑅)))
54		19.42vv 1963	. . . . . . . . . . . . 13 ⊢ (∃𝑢∃𝑓(𝑥 = ⟨𝑤, 𝑣⟩ ∧ (𝑦 = ⟨𝑢, 𝑓⟩ ∧ 𝑧 = 𝑅)) ↔ (𝑥 = ⟨𝑤, 𝑣⟩ ∧ ∃𝑢∃𝑓(𝑦 = ⟨𝑢, 𝑓⟩ ∧ 𝑧 = 𝑅)))
55	53, 54	bitri 184	. . . . . . . . . . . 12 ⊢ (∃𝑢∃𝑓((𝑥 = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝑅) ↔ (𝑥 = ⟨𝑤, 𝑣⟩ ∧ ∃𝑢∃𝑓(𝑦 = ⟨𝑢, 𝑓⟩ ∧ 𝑧 = 𝑅)))
56	55	2exbii 1655	. . . . . . . . . . 11 ⊢ (∃𝑤∃𝑣∃𝑢∃𝑓((𝑥 = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝑅) ↔ ∃𝑤∃𝑣(𝑥 = ⟨𝑤, 𝑣⟩ ∧ ∃𝑢∃𝑓(𝑦 = ⟨𝑢, 𝑓⟩ ∧ 𝑧 = 𝑅)))
57	56	mobii 2119	. . . . . . . . . 10 ⊢ (∃*𝑧∃𝑤∃𝑣∃𝑢∃𝑓((𝑥 = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝑅) ↔ ∃*𝑧∃𝑤∃𝑣(𝑥 = ⟨𝑤, 𝑣⟩ ∧ ∃𝑢∃𝑓(𝑦 = ⟨𝑢, 𝑓⟩ ∧ 𝑧 = 𝑅)))
58	51, 57	mpbir 146	. . . . . . . . 9 ⊢ ∃*𝑧∃𝑤∃𝑣∃𝑢∃𝑓((𝑥 = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝑅)
59	58	a1i 9	. . . . . . . 8 ⊢ ((𝑥 ∈ (𝐻 × 𝐻) ∧ 𝑦 ∈ (𝐻 × 𝐻)) → ∃*𝑧∃𝑤∃𝑣∃𝑢∃𝑓((𝑥 = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝑅))
60	59, 8	ovidi 6180	. . . . . . 7 ⊢ ((𝑥 ∈ (𝐻 × 𝐻) ∧ 𝑦 ∈ (𝐻 × 𝐻)) → (∃𝑤∃𝑣∃𝑢∃𝑓((𝑥 = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝑅) → (𝑥𝐹𝑦) = 𝑧))
61	19, 20, 21, 28, 34, 41, 48, 60	vtocl2gaf 2884	. . . . . 6 ⊢ ((⟨𝐴, 𝐵⟩ ∈ (𝐻 × 𝐻) ∧ ⟨𝐶, 𝐷⟩ ∈ (𝐻 × 𝐻)) → (∃𝑤∃𝑣∃𝑢∃𝑓((⟨𝐴, 𝐵⟩ = ⟨𝑤, 𝑣⟩ ∧ ⟨𝐶, 𝐷⟩ = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝑅) → (⟨𝐴, 𝐵⟩𝐹⟨𝐶, 𝐷⟩) = 𝑧))
62	17, 18, 61	syl2an 289	. . . . 5 ⊢ (((𝐴 ∈ 𝐻 ∧ 𝐵 ∈ 𝐻) ∧ (𝐶 ∈ 𝐻 ∧ 𝐷 ∈ 𝐻)) → (∃𝑤∃𝑣∃𝑢∃𝑓((⟨𝐴, 𝐵⟩ = ⟨𝑤, 𝑣⟩ ∧ ⟨𝐶, 𝐷⟩ = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝑅) → (⟨𝐴, 𝐵⟩𝐹⟨𝐶, 𝐷⟩) = 𝑧))
63	16, 62	sylbird 170	. . . 4 ⊢ (((𝐴 ∈ 𝐻 ∧ 𝐵 ∈ 𝐻) ∧ (𝐶 ∈ 𝐻 ∧ 𝐷 ∈ 𝐻)) → (𝑧 = 𝑆 → (⟨𝐴, 𝐵⟩𝐹⟨𝐶, 𝐷⟩) = 𝑧))
64		eqeq2 2244	. . . 4 ⊢ (𝑧 = 𝑆 → ((⟨𝐴, 𝐵⟩𝐹⟨𝐶, 𝐷⟩) = 𝑧 ↔ (⟨𝐴, 𝐵⟩𝐹⟨𝐶, 𝐷⟩) = 𝑆))
65	63, 64	mpbidi 151	. . 3 ⊢ (((𝐴 ∈ 𝐻 ∧ 𝐵 ∈ 𝐻) ∧ (𝐶 ∈ 𝐻 ∧ 𝐷 ∈ 𝐻)) → (𝑧 = 𝑆 → (⟨𝐴, 𝐵⟩𝐹⟨𝐶, 𝐷⟩) = 𝑆))
66	6, 13, 65	exlimd 1646	. 2 ⊢ (((𝐴 ∈ 𝐻 ∧ 𝐵 ∈ 𝐻) ∧ (𝐶 ∈ 𝐻 ∧ 𝐷 ∈ 𝐻)) → (∃𝑧 𝑧 = 𝑆 → (⟨𝐴, 𝐵⟩𝐹⟨𝐶, 𝐷⟩) = 𝑆))
67	5, 66	mpd 13	1 ⊢ (((𝐴 ∈ 𝐻 ∧ 𝐵 ∈ 𝐻) ∧ (𝐶 ∈ 𝐻 ∧ 𝐷 ∈ 𝐻)) → (⟨𝐴, 𝐵⟩𝐹⟨𝐶, 𝐷⟩) = 𝑆)

Syntax hints:   → wi 4   ∧ wa 104   = wceq 1398  ∃wex 1541  ∃*wmo 2083   ∈ wcel 2205  Vcvv 2815  ⟨cop 3697   × cxp 4752  (class class class)co 6058  {coprab 6059

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-in1 619  ax-in2 620  ax-io 717  ax-5 1496  ax-7 1497  ax-gen 1498  ax-ie1 1542  ax-ie2 1543  ax-8 1553  ax-10 1554  ax-11 1555  ax-i12 1556  ax-bndl 1558  ax-4 1559  ax-17 1575  ax-i9 1579  ax-ial 1583  ax-i5r 1584  ax-14 2208  ax-ext 2216  ax-sep 4233  ax-pow 4292  ax-pr 4327  ax-setind 4664

This theorem depends on definitions:  df-bi 117  df-3an 1007  df-tru 1401  df-fal 1404  df-nf 1510  df-sb 1812  df-eu 2085  df-mo 2086  df-clab 2221  df-cleq 2227  df-clel 2230  df-nfc 2375  df-ne 2415  df-ral 2527  df-rex 2528  df-v 2817  df-sbc 3046  df-dif 3216  df-un 3218  df-in 3220  df-ss 3227  df-pw 3676  df-sn 3700  df-pr 3701  df-op 3703  df-uni 3920  df-br 4115  df-opab 4177  df-id 4419  df-xp 4760  df-rel 4761  df-cnv 4762  df-co 4763  df-dm 4764  df-iota 5317  df-fun 5359  df-fv 5365  df-ov 6061  df-oprab 6062

This theorem is referenced by:  oviec  6888  addcnsr  8165  mulcnsr  8166