Theorem oviec 6235

Description: Express an operation on equivalence classes of ordered pairs in terms of equivalence class of operations on ordered pairs. See iset.mm for additional comments describing the hypotheses. (Unnecessary distinct variable restrictions were removed by David Abernethy, 4-Jun-2013.) (Contributed by NM, 6-Aug-1995.) (Revised by Mario Carneiro, 4-Jun-2013.)

Hypotheses

Ref	Expression
oviec.1	|- ( ( ( A e. S /\ B e. S ) /\ ( C e. S /\ D e. S ) ) -> H e. ( S X. S ) )
oviec.2	|- ( ( ( a e. S /\ b e. S ) /\ ( g e. S /\ h e. S ) ) -> K e. ( S X. S ) )
oviec.3	|- ( ( ( c e. S /\ d e. S ) /\ ( t e. S /\ s e. S ) ) -> L e. ( S X. S ) )
oviec.4	|- .~ e. _V
oviec.5	|- .~ Er ( S X. S )
oviec.7	|- .~ = { <. x , y >. | ( ( x e. ( S X. S ) /\ y e. ( S X. S ) ) /\ E. z E. w E. v E. u ( ( x = <. z , w >. /\ y = <. v , u >. ) /\ ph ) ) }
oviec.8	|- ( ( ( z = a /\ w = b ) /\ ( v = c /\ u = d ) ) -> ( ph <-> ps ) )
oviec.9	|- ( ( ( z = g /\ w = h ) /\ ( v = t /\ u = s ) ) -> ( ph <-> ch ) )
oviec.10	|- .+ = { <. <. x , y >. , z >. | ( ( x e. ( S X. S ) /\ y e. ( S X. S ) ) /\ E. w E. v E. u E. f ( ( x = <. w , v >. /\ y = <. u , f >. ) /\ z = J ) ) }
oviec.11	|- ( ( ( w = a /\ v = b ) /\ ( u = g /\ f = h ) ) -> J = K )
oviec.12	|- ( ( ( w = c /\ v = d ) /\ ( u = t /\ f = s ) ) -> J = L )
oviec.13	|- ( ( ( w = A /\ v = B ) /\ ( u = C /\ f = D ) ) -> J = H )
oviec.14	|- .+^ = { <. <. x , y >. , z >. | ( ( x e. Q /\ y e. Q ) /\ E. a E. b E. c E. d ( ( x = [ <. a , b >. ] .~ /\ y = [ <. c , d >. ] .~ ) /\ z = [ ( <. a , b >. .+ <. c , d >. ) ] .~ ) ) }
oviec.15	|- Q = ( ( S X. S ) /. .~ )
oviec.16	|- ( ( ( ( a e. S /\ b e. S ) /\ ( c e. S /\ d e. S ) ) /\ ( ( g e. S /\ h e. S ) /\ ( t e. S /\ s e. S ) ) ) -> ( ( ps /\ ch ) -> K .~ L ) )

Assertion

Ref	Expression
oviec	|- ( ( ( A e. S /\ B e. S ) /\ ( C e. S /\ D e. S ) ) -> ( [ <. A , B >. ] .~ .+^ [ <. C , D >. ] .~ ) = [ H ] .~ )

Distinct variable groups:   a, b, c, d, f, u, v, w, x, y, z, C   D, a, b, c, d, f, u, v, w, x, y, z   x, J, y, z   g, a, h, A, b, c, d, f, u, v, w, x, y, z   ch, u, v, w, z   f, H, u, v, w, x, y, z   B, a, b, c, d, f, g, h, u, v, w, x, y, z   f, K, u, v, w, x, y, z   ps, u, v, w, z   f, L, u, v, w, x, y, z   ph, x, y   s, a, t, S, b, c, d, f, g, h, u, v, w, x, y, z   .+ , a, b, c, d, g, h, s, t, x, y, z   .~ , a, b, c, d, g, h, s, t, x, y, z

Allowed substitution hints:   ph( z, w, v, u, t, f, g, h, s, a, b, c, d)   ps( x, y, t, f, g, h, s, a, b, c, d)   ch( x, y, t, f, g, h, s, a, b, c, d)   A( t, s)   B( t, s)   C( t, g, h, s)   D( t, g, h, s)   .+ ( w, v, u, f)   .+^ ( x, y, z, w, v, u, t, f, g, h, s, a, b, c, d)   Q( x, y, z, w, v, u, t, f, g, h, s, a, b, c, d)   .~ ( w, v, u, f)   H( t, g, h, s, a, b, c, d)   J( w, v, u, t, f, g, h, s, a, b, c, d)   K( t, g, h, s, a, b, c, d)   L( t, g, h, s, a, b, c, d)

Proof of Theorem oviec

Step	Hyp	Ref	Expression
1		oviec.4	. . 3 |- .~ e. _V
2		oviec.5	. . 3 |- .~ Er ( S X. S )
3		oviec.16	. . . 4 |- ( ( ( ( a e. S /\ b e. S ) /\ ( c e. S /\ d e. S ) ) /\ ( ( g e. S /\ h e. S ) /\ ( t e. S /\ s e. S ) ) ) -> ( ( ps /\ ch ) -> K .~ L ) )
4		oviec.8	. . . . . 6 |- ( ( ( z = a /\ w = b ) /\ ( v = c /\ u = d ) ) -> ( ph <-> ps ) )
5		oviec.7	. . . . . 6 |- .~ = { <. x , y >. | ( ( x e. ( S X. S ) /\ y e. ( S X. S ) ) /\ E. z E. w E. v E. u ( ( x = <. z , w >. /\ y = <. v , u >. ) /\ ph ) ) }
6	4, 5	opbrop 4437	. . . . 5 |- ( ( ( a e. S /\ b e. S ) /\ ( c e. S /\ d e. S ) ) -> ( <. a , b >. .~ <. c , d >. <-> ps ) )
7		oviec.9	. . . . . 6 |- ( ( ( z = g /\ w = h ) /\ ( v = t /\ u = s ) ) -> ( ph <-> ch ) )
8	7, 5	opbrop 4437	. . . . 5 |- ( ( ( g e. S /\ h e. S ) /\ ( t e. S /\ s e. S ) ) -> ( <. g , h >. .~ <. t , s >. <-> ch ) )
9	6, 8	bi2anan9 570	. . . 4 |- ( ( ( ( a e. S /\ b e. S ) /\ ( c e. S /\ d e. S ) ) /\ ( ( g e. S /\ h e. S ) /\ ( t e. S /\ s e. S ) ) ) -> ( ( <. a , b >. .~ <. c , d >. /\ <. g , h >. .~ <. t , s >. ) <-> ( ps /\ ch ) ) )
10		oviec.2	. . . . . . 7 |- ( ( ( a e. S /\ b e. S ) /\ ( g e. S /\ h e. S ) ) -> K e. ( S X. S ) )
11		oviec.11	. . . . . . 7 |- ( ( ( w = a /\ v = b ) /\ ( u = g /\ f = h ) ) -> J = K )
12		oviec.10	. . . . . . 7 |- .+ = { <. <. x , y >. , z >. | ( ( x e. ( S X. S ) /\ y e. ( S X. S ) ) /\ E. w E. v E. u E. f ( ( x = <. w , v >. /\ y = <. u , f >. ) /\ z = J ) ) }
13	10, 11, 12	ovi3 5657	. . . . . 6 |- ( ( ( a e. S /\ b e. S ) /\ ( g e. S /\ h e. S ) ) -> ( <. a , b >. .+ <. g , h >. ) = K )
14		oviec.3	. . . . . . 7 |- ( ( ( c e. S /\ d e. S ) /\ ( t e. S /\ s e. S ) ) -> L e. ( S X. S ) )
15		oviec.12	. . . . . . 7 |- ( ( ( w = c /\ v = d ) /\ ( u = t /\ f = s ) ) -> J = L )
16	14, 15, 12	ovi3 5657	. . . . . 6 |- ( ( ( c e. S /\ d e. S ) /\ ( t e. S /\ s e. S ) ) -> ( <. c , d >. .+ <. t , s >. ) = L )
17	13, 16	breqan12d 3800	. . . . 5 |- ( ( ( ( a e. S /\ b e. S ) /\ ( g e. S /\ h e. S ) ) /\ ( ( c e. S /\ d e. S ) /\ ( t e. S /\ s e. S ) ) ) -> ( ( <. a , b >. .+ <. g , h >. ) .~ ( <. c , d >. .+ <. t , s >. ) <-> K .~ L ) )
18	17	an4s 552	. . . 4 |- ( ( ( ( a e. S /\ b e. S ) /\ ( c e. S /\ d e. S ) ) /\ ( ( g e. S /\ h e. S ) /\ ( t e. S /\ s e. S ) ) ) -> ( ( <. a , b >. .+ <. g , h >. ) .~ ( <. c , d >. .+ <. t , s >. ) <-> K .~ L ) )
19	3, 9, 18	3imtr4d 201	. . 3 |- ( ( ( ( a e. S /\ b e. S ) /\ ( c e. S /\ d e. S ) ) /\ ( ( g e. S /\ h e. S ) /\ ( t e. S /\ s e. S ) ) ) -> ( ( <. a , b >. .~ <. c , d >. /\ <. g , h >. .~ <. t , s >. ) -> ( <. a , b >. .+ <. g , h >. ) .~ ( <. c , d >. .+ <. t , s >. ) ) )
20		oviec.14	. . . 4 |- .+^ = { <. <. x , y >. , z >. | ( ( x e. Q /\ y e. Q ) /\ E. a E. b E. c E. d ( ( x = [ <. a , b >. ] .~ /\ y = [ <. c , d >. ] .~ ) /\ z = [ ( <. a , b >. .+ <. c , d >. ) ] .~ ) ) }
21		oviec.15	. . . . . . . 8 |- Q = ( ( S X. S ) /. .~ )
22	21	eleq2i 2145	. . . . . . 7 |- ( x e. Q <-> x e. ( ( S X. S ) /. .~ ) )
23	21	eleq2i 2145	. . . . . . 7 |- ( y e. Q <-> y e. ( ( S X. S ) /. .~ ) )
24	22, 23	anbi12i 447	. . . . . 6 |- ( ( x e. Q /\ y e. Q ) <-> ( x e. ( ( S X. S ) /. .~ ) /\ y e. ( ( S X. S ) /. .~ ) ) )
25	24	anbi1i 445	. . . . 5 |- ( ( ( x e. Q /\ y e. Q ) /\ E. a E. b E. c E. d ( ( x = [ <. a , b >. ] .~ /\ y = [ <. c , d >. ] .~ ) /\ z = [ ( <. a , b >. .+ <. c , d >. ) ] .~ ) ) <-> ( ( x e. ( ( S X. S ) /. .~ ) /\ y e. ( ( S X. S ) /. .~ ) ) /\ E. a E. b E. c E. d ( ( x = [ <. a , b >. ] .~ /\ y = [ <. c , d >. ] .~ ) /\ z = [ ( <. a , b >. .+ <. c , d >. ) ] .~ ) ) )
26	25	oprabbii 5580	. . . 4 |- { <. <. x , y >. , z >. | ( ( x e. Q /\ y e. Q ) /\ E. a E. b E. c E. d ( ( x = [ <. a , b >. ] .~ /\ y = [ <. c , d >. ] .~ ) /\ z = [ ( <. a , b >. .+ <. c , d >. ) ] .~ ) ) } = { <. <. x , y >. , z >. | ( ( x e. ( ( S X. S ) /. .~ ) /\ y e. ( ( S X. S ) /. .~ ) ) /\ E. a E. b E. c E. d ( ( x = [ <. a , b >. ] .~ /\ y = [ <. c , d >. ] .~ ) /\ z = [ ( <. a , b >. .+ <. c , d >. ) ] .~ ) ) }
27	20, 26	eqtri 2101	. . 3 |- .+^ = { <. <. x , y >. , z >. | ( ( x e. ( ( S X. S ) /. .~ ) /\ y e. ( ( S X. S ) /. .~ ) ) /\ E. a E. b E. c E. d ( ( x = [ <. a , b >. ] .~ /\ y = [ <. c , d >. ] .~ ) /\ z = [ ( <. a , b >. .+ <. c , d >. ) ] .~ ) ) }
28	1, 2, 19, 27	th3q 6234	. 2 |- ( ( ( A e. S /\ B e. S ) /\ ( C e. S /\ D e. S ) ) -> ( [ <. A , B >. ] .~ .+^ [ <. C , D >. ] .~ ) = [ ( <. A , B >. .+ <. C , D >. ) ] .~ )
29		oviec.1	. . . 4 |- ( ( ( A e. S /\ B e. S ) /\ ( C e. S /\ D e. S ) ) -> H e. ( S X. S ) )
30		oviec.13	. . . 4 |- ( ( ( w = A /\ v = B ) /\ ( u = C /\ f = D ) ) -> J = H )
31	29, 30, 12	ovi3 5657	. . 3 |- ( ( ( A e. S /\ B e. S ) /\ ( C e. S /\ D e. S ) ) -> ( <. A , B >. .+ <. C , D >. ) = H )
32	31	eceq1d 6165	. 2 |- ( ( ( A e. S /\ B e. S ) /\ ( C e. S /\ D e. S ) ) -> [ ( <. A , B >. .+ <. C , D >. ) ] .~ = [ H ] .~ )
33	28, 32	eqtrd 2113	1 |- ( ( ( A e. S /\ B e. S ) /\ ( C e. S /\ D e. S ) ) -> ( [ <. A , B >. ] .~ .+^ [ <. C , D >. ] .~ ) = [ H ] .~ )

Syntax hints:   -> wi 4   /\ wa 102   <-> wb 103   = wceq 1284   E.wex 1421   e. wcel 1433   _Vcvv 2601   <.cop 3401   class class class wbr 3785   {copab 3838   X. cxp 4361  (class class class)co 5532   {coprab 5533   Er wer 6126   [cec 6127   /.cqs 6128

This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-mp 7  ax-ia1 104  ax-ia2 105  ax-ia3 106  ax-in1 576  ax-in2 577  ax-io 662  ax-5 1376  ax-7 1377  ax-gen 1378  ax-ie1 1422  ax-ie2 1423  ax-8 1435  ax-10 1436  ax-11 1437  ax-i12 1438  ax-bndl 1439  ax-4 1440  ax-13 1444  ax-14 1445  ax-17 1459  ax-i9 1463  ax-ial 1467  ax-i5r 1468  ax-ext 2063  ax-sep 3896  ax-pow 3948  ax-pr 3964  ax-un 4188  ax-setind 4280

This theorem depends on definitions:  df-bi 115  df-3an 921  df-tru 1287  df-fal 1290  df-nf 1390  df-sb 1686  df-eu 1944  df-mo 1945  df-clab 2068  df-cleq 2074  df-clel 2077  df-nfc 2208  df-ne 2246  df-ral 2353  df-rex 2354  df-v 2603  df-sbc 2816  df-dif 2975  df-un 2977  df-in 2979  df-ss 2986  df-pw 3384  df-sn 3404  df-pr 3405  df-op 3407  df-uni 3602  df-br 3786  df-opab 3840  df-id 4048  df-xp 4369  df-rel 4370  df-cnv 4371  df-co 4372  df-dm 4373  df-rn 4374  df-res 4375  df-ima 4376  df-iota 4887  df-fun 4924  df-fv 4930  df-ov 5535  df-oprab 5536  df-er 6129  df-ec 6131  df-qs 6135

This theorem is referenced by:  addpipqqs  6560  mulpipqqs  6563