Theorem ovi3 6060

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 2774	. . . 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 2769	. . 3 |- ( S e. _V <-> E. z z = S )
5	3, 4	sylib 122	. 2 |- ( ( ( A e. H /\ B e. H ) /\ ( C e. H /\ D e. H ) ) -> E. z z = S )
6		nfv 1542	. . 3 |- F/ z ( ( A e. H /\ B e. H ) /\ ( C e. H /\ D e. H ) )
7		nfcv 2339	. . . . 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 5973	. . . . . 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 2336	. . . . 5 |- F/_ z F
11		nfcv 2339	. . . . 5 |- F/_ z <. C , D >.
12	7, 10, 11	nfov 5952	. . . 4 |- F/_ z ( <. A , B >. F <. C , D >. )
13	12	nfeq1 2349	. . 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 2208	. . . . . 6 |- ( ( ( w = A /\ v = B ) /\ ( u = C /\ f = D ) ) -> ( z = R <-> z = S ) )
16	15	copsex4g 4280	. . . . 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 4695	. . . . . 6 |- ( ( A e. H /\ B e. H ) -> <. A , B >. e. ( H X. H ) )
18		opelxpi 4695	. . . . . 6 |- ( ( C e. H /\ D e. H ) -> <. C , D >. e. ( H X. H ) )
19		nfcv 2339	. . . . . . 7 |- F/_ x <. A , B >.
20		nfcv 2339	. . . . . . 7 |- F/_ y <. A , B >.
21		nfcv 2339	. . . . . . 7 |- F/_ y <. C , D >.
22		nfv 1542	. . . . . . . 8 |- F/ x E. w E. v E. u E. f ( ( <. A , B >. = <. w , v >. /\ y = <. u , f >. ) /\ z = R )
23		nfoprab1 5971	. . . . . . . . . . 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 2336	. . . . . . . . . 10 |- F/_ x F
25		nfcv 2339	. . . . . . . . . 10 |- F/_ x y
26	19, 24, 25	nfov 5952	. . . . . . . . 9 |- F/_ x ( <. A , B >. F y )
27	26	nfeq1 2349	. . . . . . . 8 |- F/ x ( <. A , B >. F y ) = z
28	22, 27	nfim 1586	. . . . . . 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 1542	. . . . . . . 8 |- F/ y E. w E. v E. u E. f ( ( <. A , B >. = <. w , v >. /\ <. C , D >. = <. u , f >. ) /\ z = R )
30		nfoprab2 5972	. . . . . . . . . . 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 2336	. . . . . . . . . 10 |- F/_ y F
32	20, 31, 21	nfov 5952	. . . . . . . . 9 |- F/_ y ( <. A , B >. F <. C , D >. )
33	32	nfeq1 2349	. . . . . . . 8 |- F/ y ( <. A , B >. F <. C , D >. ) = z
34	29, 33	nfim 1586	. . . . . . 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 2203	. . . . . . . . . . 11 |- ( x = <. A , B >. -> ( x = <. w , v >. <-> <. A , B >. = <. w , v >. ) )
36	35	anbi1d 465	. . . . . . . . . 10 |- ( x = <. A , B >. -> ( ( x = <. w , v >. /\ y = <. u , f >. ) <-> ( <. A , B >. = <. w , v >. /\ y = <. u , f >. ) ) )
37	36	anbi1d 465	. . . . . . . . 9 |- ( x = <. A , B >. -> ( ( ( x = <. w , v >. /\ y = <. u , f >. ) /\ z = R ) <-> ( ( <. A , B >. = <. w , v >. /\ y = <. u , f >. ) /\ z = R ) ) )
38	37	4exbidv 1884	. . . . . . . 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 5929	. . . . . . . . 9 |- ( x = <. A , B >. -> ( x F y ) = ( <. A , B >. F y ) )
40	39	eqeq1d 2205	. . . . . . . 8 |- ( x = <. A , B >. -> ( ( x F y ) = z <-> ( <. A , B >. F y ) = z ) )
41	38, 40	imbi12d 234	. . . . . . 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 2203	. . . . . . . . . . 11 |- ( y = <. C , D >. -> ( y = <. u , f >. <-> <. C , D >. = <. u , f >. ) )
43	42	anbi2d 464	. . . . . . . . . 10 |- ( y = <. C , D >. -> ( ( <. A , B >. = <. w , v >. /\ y = <. u , f >. ) <-> ( <. A , B >. = <. w , v >. /\ <. C , D >. = <. u , f >. ) ) )
44	43	anbi1d 465	. . . . . . . . 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 1884	. . . . . . . 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 5930	. . . . . . . . 9 |- ( y = <. C , D >. -> ( <. A , B >. F y ) = ( <. A , B >. F <. C , D >. ) )
47	46	eqeq1d 2205	. . . . . . . 8 |- ( y = <. C , D >. -> ( ( <. A , B >. F y ) = z <-> ( <. A , B >. F <. C , D >. ) = z ) )
48	45, 47	imbi12d 234	. . . . . . 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 2939	. . . . . . . . . . . 12 |- E* z z = R
50	49	mosubop 4729	. . . . . . . . . . 11 |- E* z E. u E. f ( y = <. u , f >. /\ z = R )
51	50	mosubop 4729	. . . . . . . . . 10 |- E* z E. w E. v ( x = <. w , v >. /\ E. u E. f ( y = <. u , f >. /\ z = R ) )
52		anass 401	. . . . . . . . . . . . . 14 |- ( ( ( x = <. w , v >. /\ y = <. u , f >. ) /\ z = R ) <-> ( x = <. w , v >. /\ ( y = <. u , f >. /\ z = R ) ) )
53	52	2exbii 1620	. . . . . . . . . . . . 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 1926	. . . . . . . . . . . . 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 184	. . . . . . . . . . . 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 1620	. . . . . . . . . . 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 2082	. . . . . . . . . 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 146	. . . . . . . . 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 6041	. . . . . . 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 2831	. . . . . 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 289	. . . . 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 170	. . . 4 |- ( ( ( A e. H /\ B e. H ) /\ ( C e. H /\ D e. H ) ) -> ( z = S -> ( <. A , B >. F <. C , D >. ) = z ) )
64		eqeq2 2206	. . . 4 |- ( z = S -> ( ( <. A , B >. F <. C , D >. ) = z <-> ( <. A , B >. F <. C , D >. ) = S ) )
65	63, 64	mpbidi 151	. . 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 1611	. 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 104   = wceq 1364   E.wex 1506   E*wmo 2046   e. wcel 2167   _Vcvv 2763   <.cop 3625   X. cxp 4661  (class class class)co 5922   {coprab 5923

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 710  ax-5 1461  ax-7 1462  ax-gen 1463  ax-ie1 1507  ax-ie2 1508  ax-8 1518  ax-10 1519  ax-11 1520  ax-i12 1521  ax-bndl 1523  ax-4 1524  ax-17 1540  ax-i9 1544  ax-ial 1548  ax-i5r 1549  ax-14 2170  ax-ext 2178  ax-sep 4151  ax-pow 4207  ax-pr 4242  ax-setind 4573

This theorem depends on definitions:  df-bi 117  df-3an 982  df-tru 1367  df-fal 1370  df-nf 1475  df-sb 1777  df-eu 2048  df-mo 2049  df-clab 2183  df-cleq 2189  df-clel 2192  df-nfc 2328  df-ne 2368  df-ral 2480  df-rex 2481  df-v 2765  df-sbc 2990  df-dif 3159  df-un 3161  df-in 3163  df-ss 3170  df-pw 3607  df-sn 3628  df-pr 3629  df-op 3631  df-uni 3840  df-br 4034  df-opab 4095  df-id 4328  df-xp 4669  df-rel 4670  df-cnv 4671  df-co 4672  df-dm 4673  df-iota 5219  df-fun 5260  df-fv 5266  df-ov 5925  df-oprab 5926

This theorem is referenced by:  oviec  6700  addcnsr  7901  mulcnsr  7902