Theorem ovi3 6154

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 2812	. . . 4 ⊢ (𝑆 ∈ (𝐻 × 𝐻) → 𝑆 ∈ V)
3	1, 2	syl 14	. . 3 ⊢ (((𝐴 ∈ 𝐻 ∧ 𝐵 ∈ 𝐻) ∧ (𝐶 ∈ 𝐻 ∧ 𝐷 ∈ 𝐻)) → 𝑆 ∈ V)
4		isset 2807	. . 3 ⊢ (𝑆 ∈ V ↔ ∃𝑧 𝑧 = 𝑆)
5	3, 4	sylib 122	. 2 ⊢ (((𝐴 ∈ 𝐻 ∧ 𝐵 ∈ 𝐻) ∧ (𝐶 ∈ 𝐻 ∧ 𝐷 ∈ 𝐻)) → ∃𝑧 𝑧 = 𝑆)
6		nfv 1574	. . 3 ⊢ Ⅎ𝑧((𝐴 ∈ 𝐻 ∧ 𝐵 ∈ 𝐻) ∧ (𝐶 ∈ 𝐻 ∧ 𝐷 ∈ 𝐻))
7		nfcv 2372	. . . . 5 ⊢ Ⅎ𝑧⟨𝐴, 𝐵⟩
8		ovi3.3	. . . . . 6 ⊢ 𝐹 = {⟨⟨𝑥, 𝑦⟩, 𝑧⟩ ∣ ((𝑥 ∈ (𝐻 × 𝐻) ∧ 𝑦 ∈ (𝐻 × 𝐻)) ∧ ∃𝑤∃𝑣∃𝑢∃𝑓((𝑥 = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝑅))}
9		nfoprab3 6067	. . . . . 6 ⊢ Ⅎ𝑧{⟨⟨𝑥, 𝑦⟩, 𝑧⟩ ∣ ((𝑥 ∈ (𝐻 × 𝐻) ∧ 𝑦 ∈ (𝐻 × 𝐻)) ∧ ∃𝑤∃𝑣∃𝑢∃𝑓((𝑥 = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝑅))}
10	8, 9	nfcxfr 2369	. . . . 5 ⊢ Ⅎ𝑧𝐹
11		nfcv 2372	. . . . 5 ⊢ Ⅎ𝑧⟨𝐶, 𝐷⟩
12	7, 10, 11	nfov 6043	. . . 4 ⊢ Ⅎ𝑧(⟨𝐴, 𝐵⟩𝐹⟨𝐶, 𝐷⟩)
13	12	nfeq1 2382	. . 3 ⊢ Ⅎ𝑧(⟨𝐴, 𝐵⟩𝐹⟨𝐶, 𝐷⟩) = 𝑆
14		ovi3.2	. . . . . . 7 ⊢ (((𝑤 = 𝐴 ∧ 𝑣 = 𝐵) ∧ (𝑢 = 𝐶 ∧ 𝑓 = 𝐷)) → 𝑅 = 𝑆)
15	14	eqeq2d 2241	. . . . . 6 ⊢ (((𝑤 = 𝐴 ∧ 𝑣 = 𝐵) ∧ (𝑢 = 𝐶 ∧ 𝑓 = 𝐷)) → (𝑧 = 𝑅 ↔ 𝑧 = 𝑆))
16	15	copsex4g 4337	. . . . 5 ⊢ (((𝐴 ∈ 𝐻 ∧ 𝐵 ∈ 𝐻) ∧ (𝐶 ∈ 𝐻 ∧ 𝐷 ∈ 𝐻)) → (∃𝑤∃𝑣∃𝑢∃𝑓((⟨𝐴, 𝐵⟩ = ⟨𝑤, 𝑣⟩ ∧ ⟨𝐶, 𝐷⟩ = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝑅) ↔ 𝑧 = 𝑆))
17		opelxpi 4755	. . . . . 6 ⊢ ((𝐴 ∈ 𝐻 ∧ 𝐵 ∈ 𝐻) → ⟨𝐴, 𝐵⟩ ∈ (𝐻 × 𝐻))
18		opelxpi 4755	. . . . . 6 ⊢ ((𝐶 ∈ 𝐻 ∧ 𝐷 ∈ 𝐻) → ⟨𝐶, 𝐷⟩ ∈ (𝐻 × 𝐻))
19		nfcv 2372	. . . . . . 7 ⊢ Ⅎ𝑥⟨𝐴, 𝐵⟩
20		nfcv 2372	. . . . . . 7 ⊢ Ⅎ𝑦⟨𝐴, 𝐵⟩
21		nfcv 2372	. . . . . . 7 ⊢ Ⅎ𝑦⟨𝐶, 𝐷⟩
22		nfv 1574	. . . . . . . 8 ⊢ Ⅎ𝑥∃𝑤∃𝑣∃𝑢∃𝑓((⟨𝐴, 𝐵⟩ = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝑅)
23		nfoprab1 6065	. . . . . . . . . . 11 ⊢ Ⅎ𝑥{⟨⟨𝑥, 𝑦⟩, 𝑧⟩ ∣ ((𝑥 ∈ (𝐻 × 𝐻) ∧ 𝑦 ∈ (𝐻 × 𝐻)) ∧ ∃𝑤∃𝑣∃𝑢∃𝑓((𝑥 = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝑅))}
24	8, 23	nfcxfr 2369	. . . . . . . . . 10 ⊢ Ⅎ𝑥𝐹
25		nfcv 2372	. . . . . . . . . 10 ⊢ Ⅎ𝑥𝑦
26	19, 24, 25	nfov 6043	. . . . . . . . 9 ⊢ Ⅎ𝑥(⟨𝐴, 𝐵⟩𝐹𝑦)
27	26	nfeq1 2382	. . . . . . . 8 ⊢ Ⅎ𝑥(⟨𝐴, 𝐵⟩𝐹𝑦) = 𝑧
28	22, 27	nfim 1618	. . . . . . 7 ⊢ Ⅎ𝑥(∃𝑤∃𝑣∃𝑢∃𝑓((⟨𝐴, 𝐵⟩ = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝑅) → (⟨𝐴, 𝐵⟩𝐹𝑦) = 𝑧)
29		nfv 1574	. . . . . . . 8 ⊢ Ⅎ𝑦∃𝑤∃𝑣∃𝑢∃𝑓((⟨𝐴, 𝐵⟩ = ⟨𝑤, 𝑣⟩ ∧ ⟨𝐶, 𝐷⟩ = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝑅)
30		nfoprab2 6066	. . . . . . . . . . 11 ⊢ Ⅎ𝑦{⟨⟨𝑥, 𝑦⟩, 𝑧⟩ ∣ ((𝑥 ∈ (𝐻 × 𝐻) ∧ 𝑦 ∈ (𝐻 × 𝐻)) ∧ ∃𝑤∃𝑣∃𝑢∃𝑓((𝑥 = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝑅))}
31	8, 30	nfcxfr 2369	. . . . . . . . . 10 ⊢ Ⅎ𝑦𝐹
32	20, 31, 21	nfov 6043	. . . . . . . . 9 ⊢ Ⅎ𝑦(⟨𝐴, 𝐵⟩𝐹⟨𝐶, 𝐷⟩)
33	32	nfeq1 2382	. . . . . . . 8 ⊢ Ⅎ𝑦(⟨𝐴, 𝐵⟩𝐹⟨𝐶, 𝐷⟩) = 𝑧
34	29, 33	nfim 1618	. . . . . . 7 ⊢ Ⅎ𝑦(∃𝑤∃𝑣∃𝑢∃𝑓((⟨𝐴, 𝐵⟩ = ⟨𝑤, 𝑣⟩ ∧ ⟨𝐶, 𝐷⟩ = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝑅) → (⟨𝐴, 𝐵⟩𝐹⟨𝐶, 𝐷⟩) = 𝑧)
35		eqeq1 2236	. . . . . . . . . . 11 ⊢ (𝑥 = ⟨𝐴, 𝐵⟩ → (𝑥 = ⟨𝑤, 𝑣⟩ ↔ ⟨𝐴, 𝐵⟩ = ⟨𝑤, 𝑣⟩))
36	35	anbi1d 465	. . . . . . . . . 10 ⊢ (𝑥 = ⟨𝐴, 𝐵⟩ → ((𝑥 = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ↔ (⟨𝐴, 𝐵⟩ = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩)))
37	36	anbi1d 465	. . . . . . . . 9 ⊢ (𝑥 = ⟨𝐴, 𝐵⟩ → (((𝑥 = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝑅) ↔ ((⟨𝐴, 𝐵⟩ = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝑅)))
38	37	4exbidv 1916	. . . . . . . 8 ⊢ (𝑥 = ⟨𝐴, 𝐵⟩ → (∃𝑤∃𝑣∃𝑢∃𝑓((𝑥 = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝑅) ↔ ∃𝑤∃𝑣∃𝑢∃𝑓((⟨𝐴, 𝐵⟩ = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝑅)))
39		oveq1 6020	. . . . . . . . 9 ⊢ (𝑥 = ⟨𝐴, 𝐵⟩ → (𝑥𝐹𝑦) = (⟨𝐴, 𝐵⟩𝐹𝑦))
40	39	eqeq1d 2238	. . . . . . . 8 ⊢ (𝑥 = ⟨𝐴, 𝐵⟩ → ((𝑥𝐹𝑦) = 𝑧 ↔ (⟨𝐴, 𝐵⟩𝐹𝑦) = 𝑧))
41	38, 40	imbi12d 234	. . . . . . 7 ⊢ (𝑥 = ⟨𝐴, 𝐵⟩ → ((∃𝑤∃𝑣∃𝑢∃𝑓((𝑥 = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝑅) → (𝑥𝐹𝑦) = 𝑧) ↔ (∃𝑤∃𝑣∃𝑢∃𝑓((⟨𝐴, 𝐵⟩ = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝑅) → (⟨𝐴, 𝐵⟩𝐹𝑦) = 𝑧)))
42		eqeq1 2236	. . . . . . . . . . 11 ⊢ (𝑦 = ⟨𝐶, 𝐷⟩ → (𝑦 = ⟨𝑢, 𝑓⟩ ↔ ⟨𝐶, 𝐷⟩ = ⟨𝑢, 𝑓⟩))
43	42	anbi2d 464	. . . . . . . . . 10 ⊢ (𝑦 = ⟨𝐶, 𝐷⟩ → ((⟨𝐴, 𝐵⟩ = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ↔ (⟨𝐴, 𝐵⟩ = ⟨𝑤, 𝑣⟩ ∧ ⟨𝐶, 𝐷⟩ = ⟨𝑢, 𝑓⟩)))
44	43	anbi1d 465	. . . . . . . . 9 ⊢ (𝑦 = ⟨𝐶, 𝐷⟩ → (((⟨𝐴, 𝐵⟩ = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝑅) ↔ ((⟨𝐴, 𝐵⟩ = ⟨𝑤, 𝑣⟩ ∧ ⟨𝐶, 𝐷⟩ = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝑅)))
45	44	4exbidv 1916	. . . . . . . 8 ⊢ (𝑦 = ⟨𝐶, 𝐷⟩ → (∃𝑤∃𝑣∃𝑢∃𝑓((⟨𝐴, 𝐵⟩ = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝑅) ↔ ∃𝑤∃𝑣∃𝑢∃𝑓((⟨𝐴, 𝐵⟩ = ⟨𝑤, 𝑣⟩ ∧ ⟨𝐶, 𝐷⟩ = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝑅)))
46		oveq2 6021	. . . . . . . . 9 ⊢ (𝑦 = ⟨𝐶, 𝐷⟩ → (⟨𝐴, 𝐵⟩𝐹𝑦) = (⟨𝐴, 𝐵⟩𝐹⟨𝐶, 𝐷⟩))
47	46	eqeq1d 2238	. . . . . . . 8 ⊢ (𝑦 = ⟨𝐶, 𝐷⟩ → ((⟨𝐴, 𝐵⟩𝐹𝑦) = 𝑧 ↔ (⟨𝐴, 𝐵⟩𝐹⟨𝐶, 𝐷⟩) = 𝑧))
48	45, 47	imbi12d 234	. . . . . . 7 ⊢ (𝑦 = ⟨𝐶, 𝐷⟩ → ((∃𝑤∃𝑣∃𝑢∃𝑓((⟨𝐴, 𝐵⟩ = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝑅) → (⟨𝐴, 𝐵⟩𝐹𝑦) = 𝑧) ↔ (∃𝑤∃𝑣∃𝑢∃𝑓((⟨𝐴, 𝐵⟩ = ⟨𝑤, 𝑣⟩ ∧ ⟨𝐶, 𝐷⟩ = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝑅) → (⟨𝐴, 𝐵⟩𝐹⟨𝐶, 𝐷⟩) = 𝑧)))
49		moeq 2979	. . . . . . . . . . . 12 ⊢ ∃*𝑧 𝑧 = 𝑅
50	49	mosubop 4790	. . . . . . . . . . 11 ⊢ ∃*𝑧∃𝑢∃𝑓(𝑦 = ⟨𝑢, 𝑓⟩ ∧ 𝑧 = 𝑅)
51	50	mosubop 4790	. . . . . . . . . 10 ⊢ ∃*𝑧∃𝑤∃𝑣(𝑥 = ⟨𝑤, 𝑣⟩ ∧ ∃𝑢∃𝑓(𝑦 = ⟨𝑢, 𝑓⟩ ∧ 𝑧 = 𝑅))
52		anass 401	. . . . . . . . . . . . . 14 ⊢ (((𝑥 = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝑅) ↔ (𝑥 = ⟨𝑤, 𝑣⟩ ∧ (𝑦 = ⟨𝑢, 𝑓⟩ ∧ 𝑧 = 𝑅)))
53	52	2exbii 1652	. . . . . . . . . . . . 13 ⊢ (∃𝑢∃𝑓((𝑥 = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝑅) ↔ ∃𝑢∃𝑓(𝑥 = ⟨𝑤, 𝑣⟩ ∧ (𝑦 = ⟨𝑢, 𝑓⟩ ∧ 𝑧 = 𝑅)))
54		19.42vv 1958	. . . . . . . . . . . . 13 ⊢ (∃𝑢∃𝑓(𝑥 = ⟨𝑤, 𝑣⟩ ∧ (𝑦 = ⟨𝑢, 𝑓⟩ ∧ 𝑧 = 𝑅)) ↔ (𝑥 = ⟨𝑤, 𝑣⟩ ∧ ∃𝑢∃𝑓(𝑦 = ⟨𝑢, 𝑓⟩ ∧ 𝑧 = 𝑅)))
55	53, 54	bitri 184	. . . . . . . . . . . 12 ⊢ (∃𝑢∃𝑓((𝑥 = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝑅) ↔ (𝑥 = ⟨𝑤, 𝑣⟩ ∧ ∃𝑢∃𝑓(𝑦 = ⟨𝑢, 𝑓⟩ ∧ 𝑧 = 𝑅)))
56	55	2exbii 1652	. . . . . . . . . . 11 ⊢ (∃𝑤∃𝑣∃𝑢∃𝑓((𝑥 = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝑅) ↔ ∃𝑤∃𝑣(𝑥 = ⟨𝑤, 𝑣⟩ ∧ ∃𝑢∃𝑓(𝑦 = ⟨𝑢, 𝑓⟩ ∧ 𝑧 = 𝑅)))
57	56	mobii 2114	. . . . . . . . . 10 ⊢ (∃*𝑧∃𝑤∃𝑣∃𝑢∃𝑓((𝑥 = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝑅) ↔ ∃*𝑧∃𝑤∃𝑣(𝑥 = ⟨𝑤, 𝑣⟩ ∧ ∃𝑢∃𝑓(𝑦 = ⟨𝑢, 𝑓⟩ ∧ 𝑧 = 𝑅)))
58	51, 57	mpbir 146	. . . . . . . . 9 ⊢ ∃*𝑧∃𝑤∃𝑣∃𝑢∃𝑓((𝑥 = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝑅)
59	58	a1i 9	. . . . . . . 8 ⊢ ((𝑥 ∈ (𝐻 × 𝐻) ∧ 𝑦 ∈ (𝐻 × 𝐻)) → ∃*𝑧∃𝑤∃𝑣∃𝑢∃𝑓((𝑥 = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝑅))
60	59, 8	ovidi 6135	. . . . . . 7 ⊢ ((𝑥 ∈ (𝐻 × 𝐻) ∧ 𝑦 ∈ (𝐻 × 𝐻)) → (∃𝑤∃𝑣∃𝑢∃𝑓((𝑥 = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝑅) → (𝑥𝐹𝑦) = 𝑧))
61	19, 20, 21, 28, 34, 41, 48, 60	vtocl2gaf 2869	. . . . . 6 ⊢ ((⟨𝐴, 𝐵⟩ ∈ (𝐻 × 𝐻) ∧ ⟨𝐶, 𝐷⟩ ∈ (𝐻 × 𝐻)) → (∃𝑤∃𝑣∃𝑢∃𝑓((⟨𝐴, 𝐵⟩ = ⟨𝑤, 𝑣⟩ ∧ ⟨𝐶, 𝐷⟩ = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝑅) → (⟨𝐴, 𝐵⟩𝐹⟨𝐶, 𝐷⟩) = 𝑧))
62	17, 18, 61	syl2an 289	. . . . 5 ⊢ (((𝐴 ∈ 𝐻 ∧ 𝐵 ∈ 𝐻) ∧ (𝐶 ∈ 𝐻 ∧ 𝐷 ∈ 𝐻)) → (∃𝑤∃𝑣∃𝑢∃𝑓((⟨𝐴, 𝐵⟩ = ⟨𝑤, 𝑣⟩ ∧ ⟨𝐶, 𝐷⟩ = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝑅) → (⟨𝐴, 𝐵⟩𝐹⟨𝐶, 𝐷⟩) = 𝑧))
63	16, 62	sylbird 170	. . . 4 ⊢ (((𝐴 ∈ 𝐻 ∧ 𝐵 ∈ 𝐻) ∧ (𝐶 ∈ 𝐻 ∧ 𝐷 ∈ 𝐻)) → (𝑧 = 𝑆 → (⟨𝐴, 𝐵⟩𝐹⟨𝐶, 𝐷⟩) = 𝑧))
64		eqeq2 2239	. . . 4 ⊢ (𝑧 = 𝑆 → ((⟨𝐴, 𝐵⟩𝐹⟨𝐶, 𝐷⟩) = 𝑧 ↔ (⟨𝐴, 𝐵⟩𝐹⟨𝐶, 𝐷⟩) = 𝑆))
65	63, 64	mpbidi 151	. . 3 ⊢ (((𝐴 ∈ 𝐻 ∧ 𝐵 ∈ 𝐻) ∧ (𝐶 ∈ 𝐻 ∧ 𝐷 ∈ 𝐻)) → (𝑧 = 𝑆 → (⟨𝐴, 𝐵⟩𝐹⟨𝐶, 𝐷⟩) = 𝑆))
66	6, 13, 65	exlimd 1643	. 2 ⊢ (((𝐴 ∈ 𝐻 ∧ 𝐵 ∈ 𝐻) ∧ (𝐶 ∈ 𝐻 ∧ 𝐷 ∈ 𝐻)) → (∃𝑧 𝑧 = 𝑆 → (⟨𝐴, 𝐵⟩𝐹⟨𝐶, 𝐷⟩) = 𝑆))
67	5, 66	mpd 13	1 ⊢ (((𝐴 ∈ 𝐻 ∧ 𝐵 ∈ 𝐻) ∧ (𝐶 ∈ 𝐻 ∧ 𝐷 ∈ 𝐻)) → (⟨𝐴, 𝐵⟩𝐹⟨𝐶, 𝐷⟩) = 𝑆)

Syntax hints:   → wi 4   ∧ wa 104   = wceq 1395  ∃wex 1538  ∃*wmo 2078   ∈ wcel 2200  Vcvv 2800  ⟨cop 3670   × cxp 4721  (class class class)co 6013  {coprab 6014

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 617  ax-in2 618  ax-io 714  ax-5 1493  ax-7 1494  ax-gen 1495  ax-ie1 1539  ax-ie2 1540  ax-8 1550  ax-10 1551  ax-11 1552  ax-i12 1553  ax-bndl 1555  ax-4 1556  ax-17 1572  ax-i9 1576  ax-ial 1580  ax-i5r 1581  ax-14 2203  ax-ext 2211  ax-sep 4205  ax-pow 4262  ax-pr 4297  ax-setind 4633

This theorem depends on definitions:  df-bi 117  df-3an 1004  df-tru 1398  df-fal 1401  df-nf 1507  df-sb 1809  df-eu 2080  df-mo 2081  df-clab 2216  df-cleq 2222  df-clel 2225  df-nfc 2361  df-ne 2401  df-ral 2513  df-rex 2514  df-v 2802  df-sbc 3030  df-dif 3200  df-un 3202  df-in 3204  df-ss 3211  df-pw 3652  df-sn 3673  df-pr 3674  df-op 3676  df-uni 3892  df-br 4087  df-opab 4149  df-id 4388  df-xp 4729  df-rel 4730  df-cnv 4731  df-co 4732  df-dm 4733  df-iota 5284  df-fun 5326  df-fv 5332  df-ov 6016  df-oprab 6017

This theorem is referenced by:  oviec  6805  addcnsr  8044  mulcnsr  8045