Theorem ovi3 5637

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	|- ( ( ( A e. H /\ B e. H ) /\ ( C e. H /\ D e. H ) ) -> S e. ( H X. H ) )
ovi3.2	|- ( ( ( w = A /\ v = B ) /\ ( u = C /\ f = D ) ) -> R = S )
ovi3.3	|- F = { <. <. x , y >. , z >. | ( ( x e. ( H X. H ) /\ y e. ( H X. H ) ) /\ E. w E. v E. u E. f ( ( x = <. w , v >. /\ y = <. u , f >. ) /\ z = R ) ) }

Assertion

Ref	Expression
ovi3	|- ( ( ( A e. H /\ B e. H ) /\ ( C e. H /\ D e. H ) ) -> ( <. A , B >. F <. C , D >. ) = S )

Distinct variable groups:   u, f, v, w, x, y, z, A   B, f, u, v, w, x, y, z   x, R, y, z   C, f, u, v, w, y, z   D, f, u, v, w, y, z   f, H, u, v, w, x, y, z   S, f, u, v, w, z

Allowed substitution hints:   C( x)   D( x)   R( w, v, u, f)   S( x, y)   F( x, y, z, w, v, u, f)

Proof of Theorem ovi3

Step	Hyp	Ref	Expression
1		ovi3.1	. . . 4 |- ( ( ( A e. H /\ B e. H ) /\ ( C e. H /\ D e. H ) ) -> S e. ( H X. H ) )
2		elex 2566	. . . 4 |- ( S e. ( H X. H ) -> S e. _V )
3	1, 2	syl 14	. . 3 |- ( ( ( A e. H /\ B e. H ) /\ ( C e. H /\ D e. H ) ) -> S e. _V )
4		isset 2561	. . 3 |- ( S e. _V <-> E. z z = S )
5	3, 4	sylib 127	. 2 |- ( ( ( A e. H /\ B e. H ) /\ ( C e. H /\ D e. H ) ) -> E. z z = S )
6		nfv 1421	. . 3 |- F/ z ( ( A e. H /\ B e. H ) /\ ( C e. H /\ D e. H ) )
7		nfcv 2178	. . . . 5 |- F/_ z <. A , B >.
8		ovi3.3	. . . . . 6 |- F = { <. <. x , y >. , z >. | ( ( x e. ( H X. H ) /\ y e. ( H X. H ) ) /\ E. w E. v E. u E. f ( ( x = <. w , v >. /\ y = <. u , f >. ) /\ z = R ) ) }
9		nfoprab3 5556	. . . . . 6 |- F/_ z { <. <. x , y >. , z >. | ( ( x e. ( H X. H ) /\ y e. ( H X. H ) ) /\ E. w E. v E. u E. f ( ( x = <. w , v >. /\ y = <. u , f >. ) /\ z = R ) ) }
10	8, 9	nfcxfr 2175	. . . . 5 |- F/_ z F
11		nfcv 2178	. . . . 5 |- F/_ z <. C , D >.
12	7, 10, 11	nfov 5535	. . . 4 |- F/_ z ( <. A , B >. F <. C , D >. )
13	12	nfeq1 2187	. . 3 |- F/ z ( <. A , B >. F <. C , D >. ) = S
14		ovi3.2	. . . . . . 7 |- ( ( ( w = A /\ v = B ) /\ ( u = C /\ f = D ) ) -> R = S )
15	14	eqeq2d 2051	. . . . . 6 |- ( ( ( w = A /\ v = B ) /\ ( u = C /\ f = D ) ) -> ( z = R <-> z = S ) )
16	15	copsex4g 3984	. . . . 5 |- ( ( ( A e. H /\ B e. H ) /\ ( C e. H /\ D e. H ) ) -> ( E. w E. v E. u E. f ( ( <. A , B >. = <. w , v >. /\ <. C , D >. = <. u , f >. ) /\ z = R ) <-> z = S ) )
17		opelxpi 4376	. . . . . 6 |- ( ( A e. H /\ B e. H ) -> <. A , B >. e. ( H X. H ) )
18		opelxpi 4376	. . . . . 6 |- ( ( C e. H /\ D e. H ) -> <. C , D >. e. ( H X. H ) )
19		nfcv 2178	. . . . . . 7 |- F/_ x <. A , B >.
20		nfcv 2178	. . . . . . 7 |- F/_ y <. A , B >.
21		nfcv 2178	. . . . . . 7 |- F/_ y <. C , D >.
22		nfv 1421	. . . . . . . 8 |- F/ x E. w E. v E. u E. f ( ( <. A , B >. = <. w , v >. /\ y = <. u , f >. ) /\ z = R )
23		nfoprab1 5554	. . . . . . . . . . 11 |- F/_ x { <. <. x , y >. , z >. | ( ( x e. ( H X. H ) /\ y e. ( H X. H ) ) /\ E. w E. v E. u E. f ( ( x = <. w , v >. /\ y = <. u , f >. ) /\ z = R ) ) }
24	8, 23	nfcxfr 2175	. . . . . . . . . 10 |- F/_ x F
25		nfcv 2178	. . . . . . . . . 10 |- F/_ x y
26	19, 24, 25	nfov 5535	. . . . . . . . 9 |- F/_ x ( <. A , B >. F y )
27	26	nfeq1 2187	. . . . . . . 8 |- F/ x ( <. A , B >. F y ) = z
28	22, 27	nfim 1464	. . . . . . 7 |- F/ x ( E. w E. v E. u E. f ( ( <. A , B >. = <. w , v >. /\ y = <. u , f >. ) /\ z = R ) -> ( <. A , B >. F y ) = z )
29		nfv 1421	. . . . . . . 8 |- F/ y E. w E. v E. u E. f ( ( <. A , B >. = <. w , v >. /\ <. C , D >. = <. u , f >. ) /\ z = R )
30		nfoprab2 5555	. . . . . . . . . . 11 |- F/_ y { <. <. x , y >. , z >. | ( ( x e. ( H X. H ) /\ y e. ( H X. H ) ) /\ E. w E. v E. u E. f ( ( x = <. w , v >. /\ y = <. u , f >. ) /\ z = R ) ) }
31	8, 30	nfcxfr 2175	. . . . . . . . . 10 |- F/_ y F
32	20, 31, 21	nfov 5535	. . . . . . . . 9 |- F/_ y ( <. A , B >. F <. C , D >. )
33	32	nfeq1 2187	. . . . . . . 8 |- F/ y ( <. A , B >. F <. C , D >. ) = z
34	29, 33	nfim 1464	. . . . . . 7 |- F/ y ( E. w E. v E. u E. f ( ( <. A , B >. = <. w , v >. /\ <. C , D >. = <. u , f >. ) /\ z = R ) -> ( <. A , B >. F <. C , D >. ) = z )
35		eqeq1 2046	. . . . . . . . . . 11 |- ( x = <. A , B >. -> ( x = <. w , v >. <-> <. A , B >. = <. w , v >. ) )
36	35	anbi1d 438	. . . . . . . . . 10 |- ( x = <. A , B >. -> ( ( x = <. w , v >. /\ y = <. u , f >. ) <-> ( <. A , B >. = <. w , v >. /\ y = <. u , f >. ) ) )
37	36	anbi1d 438	. . . . . . . . 9 |- ( x = <. A , B >. -> ( ( ( x = <. w , v >. /\ y = <. u , f >. ) /\ z = R ) <-> ( ( <. A , B >. = <. w , v >. /\ y = <. u , f >. ) /\ z = R ) ) )
38	37	4exbidv 1750	. . . . . . . 8 |- ( x = <. A , B >. -> ( E. w E. v E. u E. f ( ( x = <. w , v >. /\ y = <. u , f >. ) /\ z = R ) <-> E. w E. v E. u E. f ( ( <. A , B >. = <. w , v >. /\ y = <. u , f >. ) /\ z = R ) ) )
39		oveq1 5519	. . . . . . . . 9 |- ( x = <. A , B >. -> ( x F y ) = ( <. A , B >. F y ) )
40	39	eqeq1d 2048	. . . . . . . 8 |- ( x = <. A , B >. -> ( ( x F y ) = z <-> ( <. A , B >. F y ) = z ) )
41	38, 40	imbi12d 223	. . . . . . 7 |- ( x = <. A , B >. -> ( ( E. w E. v E. u E. f ( ( x = <. w , v >. /\ y = <. u , f >. ) /\ z = R ) -> ( x F y ) = z ) <-> ( E. w E. v E. u E. f ( ( <. A , B >. = <. w , v >. /\ y = <. u , f >. ) /\ z = R ) -> ( <. A , B >. F y ) = z ) ) )
42		eqeq1 2046	. . . . . . . . . . 11 |- ( y = <. C , D >. -> ( y = <. u , f >. <-> <. C , D >. = <. u , f >. ) )
43	42	anbi2d 437	. . . . . . . . . 10 |- ( y = <. C , D >. -> ( ( <. A , B >. = <. w , v >. /\ y = <. u , f >. ) <-> ( <. A , B >. = <. w , v >. /\ <. C , D >. = <. u , f >. ) ) )
44	43	anbi1d 438	. . . . . . . . 9 |- ( y = <. C , D >. -> ( ( ( <. A , B >. = <. w , v >. /\ y = <. u , f >. ) /\ z = R ) <-> ( ( <. A , B >. = <. w , v >. /\ <. C , D >. = <. u , f >. ) /\ z = R ) ) )
45	44	4exbidv 1750	. . . . . . . 8 |- ( y = <. C , D >. -> ( E. w E. v E. u E. f ( ( <. A , B >. = <. w , v >. /\ y = <. u , f >. ) /\ z = R ) <-> E. w E. v E. u E. f ( ( <. A , B >. = <. w , v >. /\ <. C , D >. = <. u , f >. ) /\ z = R ) ) )
46		oveq2 5520	. . . . . . . . 9 |- ( y = <. C , D >. -> ( <. A , B >. F y ) = ( <. A , B >. F <. C , D >. ) )
47	46	eqeq1d 2048	. . . . . . . 8 |- ( y = <. C , D >. -> ( ( <. A , B >. F y ) = z <-> ( <. A , B >. F <. C , D >. ) = z ) )
48	45, 47	imbi12d 223	. . . . . . 7 |- ( y = <. C , D >. -> ( ( E. w E. v E. u E. f ( ( <. A , B >. = <. w , v >. /\ y = <. u , f >. ) /\ z = R ) -> ( <. A , B >. F y ) = z ) <-> ( E. w E. v E. u E. f ( ( <. A , B >. = <. w , v >. /\ <. C , D >. = <. u , f >. ) /\ z = R ) -> ( <. A , B >. F <. C , D >. ) = z ) ) )
49		moeq 2716	. . . . . . . . . . . 12 |- E* z z = R
50	49	mosubop 4406	. . . . . . . . . . 11 |- E* z E. u E. f ( y = <. u , f >. /\ z = R )
51	50	mosubop 4406	. . . . . . . . . 10 |- E* z E. w E. v ( x = <. w , v >. /\ E. u E. f ( y = <. u , f >. /\ z = R ) )
52		anass 381	. . . . . . . . . . . . . 14 |- ( ( ( x = <. w , v >. /\ y = <. u , f >. ) /\ z = R ) <-> ( x = <. w , v >. /\ ( y = <. u , f >. /\ z = R ) ) )
53	52	2exbii 1497	. . . . . . . . . . . . 13 |- ( E. u E. f ( ( x = <. w , v >. /\ y = <. u , f >. ) /\ z = R ) <-> E. u E. f ( x = <. w , v >. /\ ( y = <. u , f >. /\ z = R ) ) )
54		19.42vv 1788	. . . . . . . . . . . . 13 |- ( E. u E. f ( x = <. w , v >. /\ ( y = <. u , f >. /\ z = R ) ) <-> ( x = <. w , v >. /\ E. u E. f ( y = <. u , f >. /\ z = R ) ) )
55	53, 54	bitri 173	. . . . . . . . . . . 12 |- ( E. u E. f ( ( x = <. w , v >. /\ y = <. u , f >. ) /\ z = R ) <-> ( x = <. w , v >. /\ E. u E. f ( y = <. u , f >. /\ z = R ) ) )
56	55	2exbii 1497	. . . . . . . . . . 11 |- ( E. w E. v E. u E. f ( ( x = <. w , v >. /\ y = <. u , f >. ) /\ z = R ) <-> E. w E. v ( x = <. w , v >. /\ E. u E. f ( y = <. u , f >. /\ z = R ) ) )
57	56	mobii 1937	. . . . . . . . . 10 |- ( E* z E. w E. v E. u E. f ( ( x = <. w , v >. /\ y = <. u , f >. ) /\ z = R ) <-> E* z E. w E. v ( x = <. w , v >. /\ E. u E. f ( y = <. u , f >. /\ z = R ) ) )
58	51, 57	mpbir 134	. . . . . . . . 9 |- E* z E. w E. v E. u E. f ( ( x = <. w , v >. /\ y = <. u , f >. ) /\ z = R )
59	58	a1i 9	. . . . . . . 8 |- ( ( x e. ( H X. H ) /\ y e. ( H X. H ) ) -> E* z E. w E. v E. u E. f ( ( x = <. w , v >. /\ y = <. u , f >. ) /\ z = R ) )
60	59, 8	ovidi 5619	. . . . . . 7 |- ( ( x e. ( H X. H ) /\ y e. ( H X. H ) ) -> ( E. w E. v E. u E. f ( ( x = <. w , v >. /\ y = <. u , f >. ) /\ z = R ) -> ( x F y ) = z ) )
61	19, 20, 21, 28, 34, 41, 48, 60	vtocl2gaf 2620	. . . . . 6 |- ( ( <. A , B >. e. ( H X. H ) /\ <. C , D >. e. ( H X. H ) ) -> ( E. w E. v E. u E. f ( ( <. A , B >. = <. w , v >. /\ <. C , D >. = <. u , f >. ) /\ z = R ) -> ( <. A , B >. F <. C , D >. ) = z ) )
62	17, 18, 61	syl2an 273	. . . . 5 |- ( ( ( A e. H /\ B e. H ) /\ ( C e. H /\ D e. H ) ) -> ( E. w E. v E. u E. f ( ( <. A , B >. = <. w , v >. /\ <. C , D >. = <. u , f >. ) /\ z = R ) -> ( <. A , B >. F <. C , D >. ) = z ) )
63	16, 62	sylbird 159	. . . 4 |- ( ( ( A e. H /\ B e. H ) /\ ( C e. H /\ D e. H ) ) -> ( z = S -> ( <. A , B >. F <. C , D >. ) = z ) )
64		eqeq2 2049	. . . 4 |- ( z = S -> ( ( <. A , B >. F <. C , D >. ) = z <-> ( <. A , B >. F <. C , D >. ) = S ) )
65	63, 64	mpbidi 140	. . 3 |- ( ( ( A e. H /\ B e. H ) /\ ( C e. H /\ D e. H ) ) -> ( z = S -> ( <. A , B >. F <. C , D >. ) = S ) )
66	6, 13, 65	exlimd 1488	. 2 |- ( ( ( A e. H /\ B e. H ) /\ ( C e. H /\ D e. H ) ) -> ( E. z z = S -> ( <. A , B >. F <. C , D >. ) = S ) )
67	5, 66	mpd 13	1 |- ( ( ( A e. H /\ B e. H ) /\ ( C e. H /\ D e. H ) ) -> ( <. A , B >. F <. C , D >. ) = S )

Syntax hints:   -> wi 4   /\ wa 97   = wceq 1243   E.wex 1381   e. wcel 1393   E*wmo 1901   _Vcvv 2557   <.cop 3378   X. cxp 4343  (class class class)co 5512   {coprab 5513

This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-mp 7  ax-ia1 99  ax-ia2 100  ax-ia3 101  ax-in1 544  ax-in2 545  ax-io 630  ax-5 1336  ax-7 1337  ax-gen 1338  ax-ie1 1382  ax-ie2 1383  ax-8 1395  ax-10 1396  ax-11 1397  ax-i12 1398  ax-bndl 1399  ax-4 1400  ax-14 1405  ax-17 1419  ax-i9 1423  ax-ial 1427  ax-i5r 1428  ax-ext 2022  ax-sep 3875  ax-pow 3927  ax-pr 3944  ax-setind 4262

This theorem depends on definitions:  df-bi 110  df-3an 887  df-tru 1246  df-fal 1249  df-nf 1350  df-sb 1646  df-eu 1903  df-mo 1904  df-clab 2027  df-cleq 2033  df-clel 2036  df-nfc 2167  df-ne 2206  df-ral 2311  df-rex 2312  df-v 2559  df-sbc 2765  df-dif 2920  df-un 2922  df-in 2924  df-ss 2931  df-pw 3361  df-sn 3381  df-pr 3382  df-op 3384  df-uni 3581  df-br 3765  df-opab 3819  df-id 4030  df-xp 4351  df-rel 4352  df-cnv 4353  df-co 4354  df-dm 4355  df-iota 4867  df-fun 4904  df-fv 4910  df-ov 5515  df-oprab 5516

This theorem is referenced by:  oviec  6212  addcnsr  6910  mulcnsr  6911