Theorem ovi3 6083

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 2783	. . . 4 ⊢ (𝑆 ∈ (𝐻 × 𝐻) → 𝑆 ∈ V)
3	1, 2	syl 14	. . 3 ⊢ (((𝐴 ∈ 𝐻 ∧ 𝐵 ∈ 𝐻) ∧ (𝐶 ∈ 𝐻 ∧ 𝐷 ∈ 𝐻)) → 𝑆 ∈ V)
4		isset 2778	. . 3 ⊢ (𝑆 ∈ V ↔ ∃𝑧 𝑧 = 𝑆)
5	3, 4	sylib 122	. 2 ⊢ (((𝐴 ∈ 𝐻 ∧ 𝐵 ∈ 𝐻) ∧ (𝐶 ∈ 𝐻 ∧ 𝐷 ∈ 𝐻)) → ∃𝑧 𝑧 = 𝑆)
6		nfv 1551	. . 3 ⊢ Ⅎ𝑧((𝐴 ∈ 𝐻 ∧ 𝐵 ∈ 𝐻) ∧ (𝐶 ∈ 𝐻 ∧ 𝐷 ∈ 𝐻))
7		nfcv 2348	. . . . 5 ⊢ Ⅎ𝑧⟨𝐴, 𝐵⟩
8		ovi3.3	. . . . . 6 ⊢ 𝐹 = {⟨⟨𝑥, 𝑦⟩, 𝑧⟩ ∣ ((𝑥 ∈ (𝐻 × 𝐻) ∧ 𝑦 ∈ (𝐻 × 𝐻)) ∧ ∃𝑤∃𝑣∃𝑢∃𝑓((𝑥 = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝑅))}
9		nfoprab3 5996	. . . . . 6 ⊢ Ⅎ𝑧{⟨⟨𝑥, 𝑦⟩, 𝑧⟩ ∣ ((𝑥 ∈ (𝐻 × 𝐻) ∧ 𝑦 ∈ (𝐻 × 𝐻)) ∧ ∃𝑤∃𝑣∃𝑢∃𝑓((𝑥 = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝑅))}
10	8, 9	nfcxfr 2345	. . . . 5 ⊢ Ⅎ𝑧𝐹
11		nfcv 2348	. . . . 5 ⊢ Ⅎ𝑧⟨𝐶, 𝐷⟩
12	7, 10, 11	nfov 5974	. . . 4 ⊢ Ⅎ𝑧(⟨𝐴, 𝐵⟩𝐹⟨𝐶, 𝐷⟩)
13	12	nfeq1 2358	. . 3 ⊢ Ⅎ𝑧(⟨𝐴, 𝐵⟩𝐹⟨𝐶, 𝐷⟩) = 𝑆
14		ovi3.2	. . . . . . 7 ⊢ (((𝑤 = 𝐴 ∧ 𝑣 = 𝐵) ∧ (𝑢 = 𝐶 ∧ 𝑓 = 𝐷)) → 𝑅 = 𝑆)
15	14	eqeq2d 2217	. . . . . 6 ⊢ (((𝑤 = 𝐴 ∧ 𝑣 = 𝐵) ∧ (𝑢 = 𝐶 ∧ 𝑓 = 𝐷)) → (𝑧 = 𝑅 ↔ 𝑧 = 𝑆))
16	15	copsex4g 4291	. . . . 5 ⊢ (((𝐴 ∈ 𝐻 ∧ 𝐵 ∈ 𝐻) ∧ (𝐶 ∈ 𝐻 ∧ 𝐷 ∈ 𝐻)) → (∃𝑤∃𝑣∃𝑢∃𝑓((⟨𝐴, 𝐵⟩ = ⟨𝑤, 𝑣⟩ ∧ ⟨𝐶, 𝐷⟩ = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝑅) ↔ 𝑧 = 𝑆))
17		opelxpi 4707	. . . . . 6 ⊢ ((𝐴 ∈ 𝐻 ∧ 𝐵 ∈ 𝐻) → ⟨𝐴, 𝐵⟩ ∈ (𝐻 × 𝐻))
18		opelxpi 4707	. . . . . 6 ⊢ ((𝐶 ∈ 𝐻 ∧ 𝐷 ∈ 𝐻) → ⟨𝐶, 𝐷⟩ ∈ (𝐻 × 𝐻))
19		nfcv 2348	. . . . . . 7 ⊢ Ⅎ𝑥⟨𝐴, 𝐵⟩
20		nfcv 2348	. . . . . . 7 ⊢ Ⅎ𝑦⟨𝐴, 𝐵⟩
21		nfcv 2348	. . . . . . 7 ⊢ Ⅎ𝑦⟨𝐶, 𝐷⟩
22		nfv 1551	. . . . . . . 8 ⊢ Ⅎ𝑥∃𝑤∃𝑣∃𝑢∃𝑓((⟨𝐴, 𝐵⟩ = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝑅)
23		nfoprab1 5994	. . . . . . . . . . 11 ⊢ Ⅎ𝑥{⟨⟨𝑥, 𝑦⟩, 𝑧⟩ ∣ ((𝑥 ∈ (𝐻 × 𝐻) ∧ 𝑦 ∈ (𝐻 × 𝐻)) ∧ ∃𝑤∃𝑣∃𝑢∃𝑓((𝑥 = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝑅))}
24	8, 23	nfcxfr 2345	. . . . . . . . . 10 ⊢ Ⅎ𝑥𝐹
25		nfcv 2348	. . . . . . . . . 10 ⊢ Ⅎ𝑥𝑦
26	19, 24, 25	nfov 5974	. . . . . . . . 9 ⊢ Ⅎ𝑥(⟨𝐴, 𝐵⟩𝐹𝑦)
27	26	nfeq1 2358	. . . . . . . 8 ⊢ Ⅎ𝑥(⟨𝐴, 𝐵⟩𝐹𝑦) = 𝑧
28	22, 27	nfim 1595	. . . . . . 7 ⊢ Ⅎ𝑥(∃𝑤∃𝑣∃𝑢∃𝑓((⟨𝐴, 𝐵⟩ = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝑅) → (⟨𝐴, 𝐵⟩𝐹𝑦) = 𝑧)
29		nfv 1551	. . . . . . . 8 ⊢ Ⅎ𝑦∃𝑤∃𝑣∃𝑢∃𝑓((⟨𝐴, 𝐵⟩ = ⟨𝑤, 𝑣⟩ ∧ ⟨𝐶, 𝐷⟩ = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝑅)
30		nfoprab2 5995	. . . . . . . . . . 11 ⊢ Ⅎ𝑦{⟨⟨𝑥, 𝑦⟩, 𝑧⟩ ∣ ((𝑥 ∈ (𝐻 × 𝐻) ∧ 𝑦 ∈ (𝐻 × 𝐻)) ∧ ∃𝑤∃𝑣∃𝑢∃𝑓((𝑥 = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝑅))}
31	8, 30	nfcxfr 2345	. . . . . . . . . 10 ⊢ Ⅎ𝑦𝐹
32	20, 31, 21	nfov 5974	. . . . . . . . 9 ⊢ Ⅎ𝑦(⟨𝐴, 𝐵⟩𝐹⟨𝐶, 𝐷⟩)
33	32	nfeq1 2358	. . . . . . . 8 ⊢ Ⅎ𝑦(⟨𝐴, 𝐵⟩𝐹⟨𝐶, 𝐷⟩) = 𝑧
34	29, 33	nfim 1595	. . . . . . 7 ⊢ Ⅎ𝑦(∃𝑤∃𝑣∃𝑢∃𝑓((⟨𝐴, 𝐵⟩ = ⟨𝑤, 𝑣⟩ ∧ ⟨𝐶, 𝐷⟩ = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝑅) → (⟨𝐴, 𝐵⟩𝐹⟨𝐶, 𝐷⟩) = 𝑧)
35		eqeq1 2212	. . . . . . . . . . 11 ⊢ (𝑥 = ⟨𝐴, 𝐵⟩ → (𝑥 = ⟨𝑤, 𝑣⟩ ↔ ⟨𝐴, 𝐵⟩ = ⟨𝑤, 𝑣⟩))
36	35	anbi1d 465	. . . . . . . . . 10 ⊢ (𝑥 = ⟨𝐴, 𝐵⟩ → ((𝑥 = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ↔ (⟨𝐴, 𝐵⟩ = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩)))
37	36	anbi1d 465	. . . . . . . . 9 ⊢ (𝑥 = ⟨𝐴, 𝐵⟩ → (((𝑥 = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝑅) ↔ ((⟨𝐴, 𝐵⟩ = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝑅)))
38	37	4exbidv 1893	. . . . . . . 8 ⊢ (𝑥 = ⟨𝐴, 𝐵⟩ → (∃𝑤∃𝑣∃𝑢∃𝑓((𝑥 = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝑅) ↔ ∃𝑤∃𝑣∃𝑢∃𝑓((⟨𝐴, 𝐵⟩ = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝑅)))
39		oveq1 5951	. . . . . . . . 9 ⊢ (𝑥 = ⟨𝐴, 𝐵⟩ → (𝑥𝐹𝑦) = (⟨𝐴, 𝐵⟩𝐹𝑦))
40	39	eqeq1d 2214	. . . . . . . 8 ⊢ (𝑥 = ⟨𝐴, 𝐵⟩ → ((𝑥𝐹𝑦) = 𝑧 ↔ (⟨𝐴, 𝐵⟩𝐹𝑦) = 𝑧))
41	38, 40	imbi12d 234	. . . . . . 7 ⊢ (𝑥 = ⟨𝐴, 𝐵⟩ → ((∃𝑤∃𝑣∃𝑢∃𝑓((𝑥 = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝑅) → (𝑥𝐹𝑦) = 𝑧) ↔ (∃𝑤∃𝑣∃𝑢∃𝑓((⟨𝐴, 𝐵⟩ = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝑅) → (⟨𝐴, 𝐵⟩𝐹𝑦) = 𝑧)))
42		eqeq1 2212	. . . . . . . . . . 11 ⊢ (𝑦 = ⟨𝐶, 𝐷⟩ → (𝑦 = ⟨𝑢, 𝑓⟩ ↔ ⟨𝐶, 𝐷⟩ = ⟨𝑢, 𝑓⟩))
43	42	anbi2d 464	. . . . . . . . . 10 ⊢ (𝑦 = ⟨𝐶, 𝐷⟩ → ((⟨𝐴, 𝐵⟩ = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ↔ (⟨𝐴, 𝐵⟩ = ⟨𝑤, 𝑣⟩ ∧ ⟨𝐶, 𝐷⟩ = ⟨𝑢, 𝑓⟩)))
44	43	anbi1d 465	. . . . . . . . 9 ⊢ (𝑦 = ⟨𝐶, 𝐷⟩ → (((⟨𝐴, 𝐵⟩ = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝑅) ↔ ((⟨𝐴, 𝐵⟩ = ⟨𝑤, 𝑣⟩ ∧ ⟨𝐶, 𝐷⟩ = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝑅)))
45	44	4exbidv 1893	. . . . . . . 8 ⊢ (𝑦 = ⟨𝐶, 𝐷⟩ → (∃𝑤∃𝑣∃𝑢∃𝑓((⟨𝐴, 𝐵⟩ = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝑅) ↔ ∃𝑤∃𝑣∃𝑢∃𝑓((⟨𝐴, 𝐵⟩ = ⟨𝑤, 𝑣⟩ ∧ ⟨𝐶, 𝐷⟩ = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝑅)))
46		oveq2 5952	. . . . . . . . 9 ⊢ (𝑦 = ⟨𝐶, 𝐷⟩ → (⟨𝐴, 𝐵⟩𝐹𝑦) = (⟨𝐴, 𝐵⟩𝐹⟨𝐶, 𝐷⟩))
47	46	eqeq1d 2214	. . . . . . . 8 ⊢ (𝑦 = ⟨𝐶, 𝐷⟩ → ((⟨𝐴, 𝐵⟩𝐹𝑦) = 𝑧 ↔ (⟨𝐴, 𝐵⟩𝐹⟨𝐶, 𝐷⟩) = 𝑧))
48	45, 47	imbi12d 234	. . . . . . 7 ⊢ (𝑦 = ⟨𝐶, 𝐷⟩ → ((∃𝑤∃𝑣∃𝑢∃𝑓((⟨𝐴, 𝐵⟩ = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝑅) → (⟨𝐴, 𝐵⟩𝐹𝑦) = 𝑧) ↔ (∃𝑤∃𝑣∃𝑢∃𝑓((⟨𝐴, 𝐵⟩ = ⟨𝑤, 𝑣⟩ ∧ ⟨𝐶, 𝐷⟩ = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝑅) → (⟨𝐴, 𝐵⟩𝐹⟨𝐶, 𝐷⟩) = 𝑧)))
49		moeq 2948	. . . . . . . . . . . 12 ⊢ ∃*𝑧 𝑧 = 𝑅
50	49	mosubop 4741	. . . . . . . . . . 11 ⊢ ∃*𝑧∃𝑢∃𝑓(𝑦 = ⟨𝑢, 𝑓⟩ ∧ 𝑧 = 𝑅)
51	50	mosubop 4741	. . . . . . . . . 10 ⊢ ∃*𝑧∃𝑤∃𝑣(𝑥 = ⟨𝑤, 𝑣⟩ ∧ ∃𝑢∃𝑓(𝑦 = ⟨𝑢, 𝑓⟩ ∧ 𝑧 = 𝑅))
52		anass 401	. . . . . . . . . . . . . 14 ⊢ (((𝑥 = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝑅) ↔ (𝑥 = ⟨𝑤, 𝑣⟩ ∧ (𝑦 = ⟨𝑢, 𝑓⟩ ∧ 𝑧 = 𝑅)))
53	52	2exbii 1629	. . . . . . . . . . . . 13 ⊢ (∃𝑢∃𝑓((𝑥 = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝑅) ↔ ∃𝑢∃𝑓(𝑥 = ⟨𝑤, 𝑣⟩ ∧ (𝑦 = ⟨𝑢, 𝑓⟩ ∧ 𝑧 = 𝑅)))
54		19.42vv 1935	. . . . . . . . . . . . 13 ⊢ (∃𝑢∃𝑓(𝑥 = ⟨𝑤, 𝑣⟩ ∧ (𝑦 = ⟨𝑢, 𝑓⟩ ∧ 𝑧 = 𝑅)) ↔ (𝑥 = ⟨𝑤, 𝑣⟩ ∧ ∃𝑢∃𝑓(𝑦 = ⟨𝑢, 𝑓⟩ ∧ 𝑧 = 𝑅)))
55	53, 54	bitri 184	. . . . . . . . . . . 12 ⊢ (∃𝑢∃𝑓((𝑥 = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝑅) ↔ (𝑥 = ⟨𝑤, 𝑣⟩ ∧ ∃𝑢∃𝑓(𝑦 = ⟨𝑢, 𝑓⟩ ∧ 𝑧 = 𝑅)))
56	55	2exbii 1629	. . . . . . . . . . 11 ⊢ (∃𝑤∃𝑣∃𝑢∃𝑓((𝑥 = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝑅) ↔ ∃𝑤∃𝑣(𝑥 = ⟨𝑤, 𝑣⟩ ∧ ∃𝑢∃𝑓(𝑦 = ⟨𝑢, 𝑓⟩ ∧ 𝑧 = 𝑅)))
57	56	mobii 2091	. . . . . . . . . 10 ⊢ (∃*𝑧∃𝑤∃𝑣∃𝑢∃𝑓((𝑥 = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝑅) ↔ ∃*𝑧∃𝑤∃𝑣(𝑥 = ⟨𝑤, 𝑣⟩ ∧ ∃𝑢∃𝑓(𝑦 = ⟨𝑢, 𝑓⟩ ∧ 𝑧 = 𝑅)))
58	51, 57	mpbir 146	. . . . . . . . 9 ⊢ ∃*𝑧∃𝑤∃𝑣∃𝑢∃𝑓((𝑥 = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝑅)
59	58	a1i 9	. . . . . . . 8 ⊢ ((𝑥 ∈ (𝐻 × 𝐻) ∧ 𝑦 ∈ (𝐻 × 𝐻)) → ∃*𝑧∃𝑤∃𝑣∃𝑢∃𝑓((𝑥 = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝑅))
60	59, 8	ovidi 6064	. . . . . . 7 ⊢ ((𝑥 ∈ (𝐻 × 𝐻) ∧ 𝑦 ∈ (𝐻 × 𝐻)) → (∃𝑤∃𝑣∃𝑢∃𝑓((𝑥 = ⟨𝑤, 𝑣⟩ ∧ 𝑦 = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝑅) → (𝑥𝐹𝑦) = 𝑧))
61	19, 20, 21, 28, 34, 41, 48, 60	vtocl2gaf 2840	. . . . . 6 ⊢ ((⟨𝐴, 𝐵⟩ ∈ (𝐻 × 𝐻) ∧ ⟨𝐶, 𝐷⟩ ∈ (𝐻 × 𝐻)) → (∃𝑤∃𝑣∃𝑢∃𝑓((⟨𝐴, 𝐵⟩ = ⟨𝑤, 𝑣⟩ ∧ ⟨𝐶, 𝐷⟩ = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝑅) → (⟨𝐴, 𝐵⟩𝐹⟨𝐶, 𝐷⟩) = 𝑧))
62	17, 18, 61	syl2an 289	. . . . 5 ⊢ (((𝐴 ∈ 𝐻 ∧ 𝐵 ∈ 𝐻) ∧ (𝐶 ∈ 𝐻 ∧ 𝐷 ∈ 𝐻)) → (∃𝑤∃𝑣∃𝑢∃𝑓((⟨𝐴, 𝐵⟩ = ⟨𝑤, 𝑣⟩ ∧ ⟨𝐶, 𝐷⟩ = ⟨𝑢, 𝑓⟩) ∧ 𝑧 = 𝑅) → (⟨𝐴, 𝐵⟩𝐹⟨𝐶, 𝐷⟩) = 𝑧))
63	16, 62	sylbird 170	. . . 4 ⊢ (((𝐴 ∈ 𝐻 ∧ 𝐵 ∈ 𝐻) ∧ (𝐶 ∈ 𝐻 ∧ 𝐷 ∈ 𝐻)) → (𝑧 = 𝑆 → (⟨𝐴, 𝐵⟩𝐹⟨𝐶, 𝐷⟩) = 𝑧))
64		eqeq2 2215	. . . 4 ⊢ (𝑧 = 𝑆 → ((⟨𝐴, 𝐵⟩𝐹⟨𝐶, 𝐷⟩) = 𝑧 ↔ (⟨𝐴, 𝐵⟩𝐹⟨𝐶, 𝐷⟩) = 𝑆))
65	63, 64	mpbidi 151	. . 3 ⊢ (((𝐴 ∈ 𝐻 ∧ 𝐵 ∈ 𝐻) ∧ (𝐶 ∈ 𝐻 ∧ 𝐷 ∈ 𝐻)) → (𝑧 = 𝑆 → (⟨𝐴, 𝐵⟩𝐹⟨𝐶, 𝐷⟩) = 𝑆))
66	6, 13, 65	exlimd 1620	. 2 ⊢ (((𝐴 ∈ 𝐻 ∧ 𝐵 ∈ 𝐻) ∧ (𝐶 ∈ 𝐻 ∧ 𝐷 ∈ 𝐻)) → (∃𝑧 𝑧 = 𝑆 → (⟨𝐴, 𝐵⟩𝐹⟨𝐶, 𝐷⟩) = 𝑆))
67	5, 66	mpd 13	1 ⊢ (((𝐴 ∈ 𝐻 ∧ 𝐵 ∈ 𝐻) ∧ (𝐶 ∈ 𝐻 ∧ 𝐷 ∈ 𝐻)) → (⟨𝐴, 𝐵⟩𝐹⟨𝐶, 𝐷⟩) = 𝑆)

Syntax hints:   → wi 4   ∧ wa 104   = wceq 1373  ∃wex 1515  ∃*wmo 2055   ∈ wcel 2176  Vcvv 2772  ⟨cop 3636   × cxp 4673  (class class class)co 5944  {coprab 5945

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 615  ax-in2 616  ax-io 711  ax-5 1470  ax-7 1471  ax-gen 1472  ax-ie1 1516  ax-ie2 1517  ax-8 1527  ax-10 1528  ax-11 1529  ax-i12 1530  ax-bndl 1532  ax-4 1533  ax-17 1549  ax-i9 1553  ax-ial 1557  ax-i5r 1558  ax-14 2179  ax-ext 2187  ax-sep 4162  ax-pow 4218  ax-pr 4253  ax-setind 4585

This theorem depends on definitions:  df-bi 117  df-3an 983  df-tru 1376  df-fal 1379  df-nf 1484  df-sb 1786  df-eu 2057  df-mo 2058  df-clab 2192  df-cleq 2198  df-clel 2201  df-nfc 2337  df-ne 2377  df-ral 2489  df-rex 2490  df-v 2774  df-sbc 2999  df-dif 3168  df-un 3170  df-in 3172  df-ss 3179  df-pw 3618  df-sn 3639  df-pr 3640  df-op 3642  df-uni 3851  df-br 4045  df-opab 4106  df-id 4340  df-xp 4681  df-rel 4682  df-cnv 4683  df-co 4684  df-dm 4685  df-iota 5232  df-fun 5273  df-fv 5279  df-ov 5947  df-oprab 5948

This theorem is referenced by:  oviec  6728  addcnsr  7947  mulcnsr  7948