Theorem ovi3 6106

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 2788	. . . 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 2783	. . 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 1552	. . 3 |- F/ z ( ( A e. H /\ B e. H ) /\ ( C e. H /\ D e. H ) )
7		nfcv 2350	. . . . 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 6019	. . . . . 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 2347	. . . . 5 |- F/_ z F
11		nfcv 2350	. . . . 5 |- F/_ z <. C , D >.
12	7, 10, 11	nfov 5997	. . . 4 |- F/_ z ( <. A , B >. F <. C , D >. )
13	12	nfeq1 2360	. . 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 2219	. . . . . 6 |- ( ( ( w = A /\ v = B ) /\ ( u = C /\ f = D ) ) -> ( z = R <-> z = S ) )
16	15	copsex4g 4309	. . . . 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 4725	. . . . . 6 |- ( ( A e. H /\ B e. H ) -> <. A , B >. e. ( H X. H ) )
18		opelxpi 4725	. . . . . 6 |- ( ( C e. H /\ D e. H ) -> <. C , D >. e. ( H X. H ) )
19		nfcv 2350	. . . . . . 7 |- F/_ x <. A , B >.
20		nfcv 2350	. . . . . . 7 |- F/_ y <. A , B >.
21		nfcv 2350	. . . . . . 7 |- F/_ y <. C , D >.
22		nfv 1552	. . . . . . . 8 |- F/ x E. w E. v E. u E. f ( ( <. A , B >. = <. w , v >. /\ y = <. u , f >. ) /\ z = R )
23		nfoprab1 6017	. . . . . . . . . . 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 2347	. . . . . . . . . 10 |- F/_ x F
25		nfcv 2350	. . . . . . . . . 10 |- F/_ x y
26	19, 24, 25	nfov 5997	. . . . . . . . 9 |- F/_ x ( <. A , B >. F y )
27	26	nfeq1 2360	. . . . . . . 8 |- F/ x ( <. A , B >. F y ) = z
28	22, 27	nfim 1596	. . . . . . 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 1552	. . . . . . . 8 |- F/ y E. w E. v E. u E. f ( ( <. A , B >. = <. w , v >. /\ <. C , D >. = <. u , f >. ) /\ z = R )
30		nfoprab2 6018	. . . . . . . . . . 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 2347	. . . . . . . . . 10 |- F/_ y F
32	20, 31, 21	nfov 5997	. . . . . . . . 9 |- F/_ y ( <. A , B >. F <. C , D >. )
33	32	nfeq1 2360	. . . . . . . 8 |- F/ y ( <. A , B >. F <. C , D >. ) = z
34	29, 33	nfim 1596	. . . . . . 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 2214	. . . . . . . . . . 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 1894	. . . . . . . 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 5974	. . . . . . . . 9 |- ( x = <. A , B >. -> ( x F y ) = ( <. A , B >. F y ) )
40	39	eqeq1d 2216	. . . . . . . 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 2214	. . . . . . . . . . 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 1894	. . . . . . . 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 5975	. . . . . . . . 9 |- ( y = <. C , D >. -> ( <. A , B >. F y ) = ( <. A , B >. F <. C , D >. ) )
47	46	eqeq1d 2216	. . . . . . . 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 2955	. . . . . . . . . . . 12 |- E* z z = R
50	49	mosubop 4759	. . . . . . . . . . 11 |- E* z E. u E. f ( y = <. u , f >. /\ z = R )
51	50	mosubop 4759	. . . . . . . . . 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 1630	. . . . . . . . . . . . 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 1936	. . . . . . . . . . . . 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 1630	. . . . . . . . . . 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 2092	. . . . . . . . . 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 6087	. . . . . . 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 2845	. . . . . 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 2217	. . . 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 1621	. 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 1373   E.wex 1516   E*wmo 2056   e. wcel 2178   _Vcvv 2776   <.cop 3646   X. cxp 4691  (class class class)co 5967   {coprab 5968

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 1471  ax-7 1472  ax-gen 1473  ax-ie1 1517  ax-ie2 1518  ax-8 1528  ax-10 1529  ax-11 1530  ax-i12 1531  ax-bndl 1533  ax-4 1534  ax-17 1550  ax-i9 1554  ax-ial 1558  ax-i5r 1559  ax-14 2181  ax-ext 2189  ax-sep 4178  ax-pow 4234  ax-pr 4269  ax-setind 4603

This theorem depends on definitions:  df-bi 117  df-3an 983  df-tru 1376  df-fal 1379  df-nf 1485  df-sb 1787  df-eu 2058  df-mo 2059  df-clab 2194  df-cleq 2200  df-clel 2203  df-nfc 2339  df-ne 2379  df-ral 2491  df-rex 2492  df-v 2778  df-sbc 3006  df-dif 3176  df-un 3178  df-in 3180  df-ss 3187  df-pw 3628  df-sn 3649  df-pr 3650  df-op 3652  df-uni 3865  df-br 4060  df-opab 4122  df-id 4358  df-xp 4699  df-rel 4700  df-cnv 4701  df-co 4702  df-dm 4703  df-iota 5251  df-fun 5292  df-fv 5298  df-ov 5970  df-oprab 5971

This theorem is referenced by:  oviec  6751  addcnsr  7982  mulcnsr  7983