MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  4sqlem3 Structured version   Visualization version   Unicode version
Theorem 4sqlem3 15654
Description: Lemma for 4sq 15668. Sufficient condition to be in S. (Contributed by Mario Carneiro, 14-Jul-2014.)
Hypothesis
Ref Expression
4sq.1 |- S = { n | E. x e. ZZ E. y e. ZZ E. z e. ZZ E. w e. ZZ n = ( ( ( x ^ 2 ) + ( y ^ 2 ) ) + ( ( z ^ 2 ) + ( w ^ 2 ) ) ) }
Assertion
Ref Expression
4sqlem3 |- ( ( ( A e. ZZ /\ B e. ZZ ) /\ ( C e. ZZ /\ D e. ZZ ) ) -> ( ( ( A ^ 2 ) + ( B ^ 2 ) ) + ( ( C ^ 2 ) + ( D ^ 2 ) ) ) e. S )
Distinct variable groups:   w, n, x, y, z   B, n   A, n   C, n   D, n   S, n
Allowed substitution hints:   A( x, y, z, w)   B( x, y, z, w)   C( x, y, z, w)   D( x, y, z, w)   S( x, y, z, w)
Proof of Theorem 4sqlem3
Dummy variables a b c d are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 eqid 2622 . . 3 |- ( ( ( A ^ 2 ) + ( B ^ 2 ) ) + ( ( C ^ 2 ) + ( D ^ 2 ) ) ) = ( ( ( A ^ 2 ) + ( B ^ 2 ) ) + ( ( C ^ 2 ) + ( D ^ 2 ) ) )
2 oveq1 6657 . . . . . . 7 |- ( c = C -> ( c ^ 2 ) = ( C ^ 2 ) )
32oveq1d 6665 . . . . . 6 |- ( c = C -> ( ( c ^ 2 ) + ( d ^ 2 ) ) = ( ( C ^ 2 ) + ( d ^ 2 ) ) )
43oveq2d 6666 . . . . 5 |- ( c = C -> ( ( ( A ^ 2 ) + ( B ^ 2 ) ) + ( ( c ^ 2 ) + ( d ^ 2 ) ) ) = ( ( ( A ^ 2 ) + ( B ^ 2 ) ) + ( ( C ^ 2 ) + ( d ^ 2 ) ) ) )
54eqeq2d 2632 . . . 4 |- ( c = C -> ( ( ( ( A ^ 2 ) + ( B ^ 2 ) ) + ( ( C ^ 2 ) + ( D ^ 2 ) ) ) = ( ( ( A ^ 2 ) + ( B ^ 2 ) ) + ( ( c ^ 2 ) + ( d ^ 2 ) ) ) <-> ( ( ( A ^ 2 ) + ( B ^ 2 ) ) + ( ( C ^ 2 ) + ( D ^ 2 ) ) ) = ( ( ( A ^ 2 ) + ( B ^ 2 ) ) + ( ( C ^ 2 ) + ( d ^ 2 ) ) ) ) )
6 oveq1 6657 . . . . . . 7 |- ( d = D -> ( d ^ 2 ) = ( D ^ 2 ) )
76oveq2d 6666 . . . . . 6 |- ( d = D -> ( ( C ^ 2 ) + ( d ^ 2 ) ) = ( ( C ^ 2 ) + ( D ^ 2 ) ) )
87oveq2d 6666 . . . . 5 |- ( d = D -> ( ( ( A ^ 2 ) + ( B ^ 2 ) ) + ( ( C ^ 2 ) + ( d ^ 2 ) ) ) = ( ( ( A ^ 2 ) + ( B ^ 2 ) ) + ( ( C ^ 2 ) + ( D ^ 2 ) ) ) )
98eqeq2d 2632 . . . 4 |- ( d = D -> ( ( ( ( A ^ 2 ) + ( B ^ 2 ) ) + ( ( C ^ 2 ) + ( D ^ 2 ) ) ) = ( ( ( A ^ 2 ) + ( B ^ 2 ) ) + ( ( C ^ 2 ) + ( d ^ 2 ) ) ) <-> ( ( ( A ^ 2 ) + ( B ^ 2 ) ) + ( ( C ^ 2 ) + ( D ^ 2 ) ) ) = ( ( ( A ^ 2 ) + ( B ^ 2 ) ) + ( ( C ^ 2 ) + ( D ^ 2 ) ) ) ) )
105, 9rspc2ev 3324 . . 3 |- ( ( C e. ZZ /\ D e. ZZ /\ ( ( ( A ^ 2 ) + ( B ^ 2 ) ) + ( ( C ^ 2 ) + ( D ^ 2 ) ) ) = ( ( ( A ^ 2 ) + ( B ^ 2 ) ) + ( ( C ^ 2 ) + ( D ^ 2 ) ) ) ) -> E. c e. ZZ E. d e. ZZ ( ( ( A ^ 2 ) + ( B ^ 2 ) ) + ( ( C ^ 2 ) + ( D ^ 2 ) ) ) = ( ( ( A ^ 2 ) + ( B ^ 2 ) ) + ( ( c ^ 2 ) + ( d ^ 2 ) ) ) )
111, 10mp3an3 1413 . 2 |- ( ( C e. ZZ /\ D e. ZZ ) -> E. c e. ZZ E. d e. ZZ ( ( ( A ^ 2 ) + ( B ^ 2 ) ) + ( ( C ^ 2 ) + ( D ^ 2 ) ) ) = ( ( ( A ^ 2 ) + ( B ^ 2 ) ) + ( ( c ^ 2 ) + ( d ^ 2 ) ) ) )
12 oveq1 6657 . . . . . . . . 9 |- ( a = A -> ( a ^ 2 ) = ( A ^ 2 ) )
1312oveq1d 6665 . . . . . . . 8 |- ( a = A -> ( ( a ^ 2 ) + ( b ^ 2 ) ) = ( ( A ^ 2 ) + ( b ^ 2 ) ) )
1413oveq1d 6665 . . . . . . 7 |- ( a = A -> ( ( ( a ^ 2 ) + ( b ^ 2 ) ) + ( ( c ^ 2 ) + ( d ^ 2 ) ) ) = ( ( ( A ^ 2 ) + ( b ^ 2 ) ) + ( ( c ^ 2 ) + ( d ^ 2 ) ) ) )
1514eqeq2d 2632 . . . . . 6 |- ( a = A -> ( ( ( ( A ^ 2 ) + ( B ^ 2 ) ) + ( ( C ^ 2 ) + ( D ^ 2 ) ) ) = ( ( ( a ^ 2 ) + ( b ^ 2 ) ) + ( ( c ^ 2 ) + ( d ^ 2 ) ) ) <-> ( ( ( A ^ 2 ) + ( B ^ 2 ) ) + ( ( C ^ 2 ) + ( D ^ 2 ) ) ) = ( ( ( A ^ 2 ) + ( b ^ 2 ) ) + ( ( c ^ 2 ) + ( d ^ 2 ) ) ) ) )
16152rexbidv 3057 . . . . 5 |- ( a = A -> ( E. c e. ZZ E. d e. ZZ ( ( ( A ^ 2 ) + ( B ^ 2 ) ) + ( ( C ^ 2 ) + ( D ^ 2 ) ) ) = ( ( ( a ^ 2 ) + ( b ^ 2 ) ) + ( ( c ^ 2 ) + ( d ^ 2 ) ) ) <-> E. c e. ZZ E. d e. ZZ ( ( ( A ^ 2 ) + ( B ^ 2 ) ) + ( ( C ^ 2 ) + ( D ^ 2 ) ) ) = ( ( ( A ^ 2 ) + ( b ^ 2 ) ) + ( ( c ^ 2 ) + ( d ^ 2 ) ) ) ) )
17 oveq1 6657 . . . . . . . . 9 |- ( b = B -> ( b ^ 2 ) = ( B ^ 2 ) )
1817oveq2d 6666 . . . . . . . 8 |- ( b = B -> ( ( A ^ 2 ) + ( b ^ 2 ) ) = ( ( A ^ 2 ) + ( B ^ 2 ) ) )
1918oveq1d 6665 . . . . . . 7 |- ( b = B -> ( ( ( A ^ 2 ) + ( b ^ 2 ) ) + ( ( c ^ 2 ) + ( d ^ 2 ) ) ) = ( ( ( A ^ 2 ) + ( B ^ 2 ) ) + ( ( c ^ 2 ) + ( d ^ 2 ) ) ) )
2019eqeq2d 2632 . . . . . 6 |- ( b = B -> ( ( ( ( A ^ 2 ) + ( B ^ 2 ) ) + ( ( C ^ 2 ) + ( D ^ 2 ) ) ) = ( ( ( A ^ 2 ) + ( b ^ 2 ) ) + ( ( c ^ 2 ) + ( d ^ 2 ) ) ) <-> ( ( ( A ^ 2 ) + ( B ^ 2 ) ) + ( ( C ^ 2 ) + ( D ^ 2 ) ) ) = ( ( ( A ^ 2 ) + ( B ^ 2 ) ) + ( ( c ^ 2 ) + ( d ^ 2 ) ) ) ) )
21202rexbidv 3057 . . . . 5 |- ( b = B -> ( E. c e. ZZ E. d e. ZZ ( ( ( A ^ 2 ) + ( B ^ 2 ) ) + ( ( C ^ 2 ) + ( D ^ 2 ) ) ) = ( ( ( A ^ 2 ) + ( b ^ 2 ) ) + ( ( c ^ 2 ) + ( d ^ 2 ) ) ) <-> E. c e. ZZ E. d e. ZZ ( ( ( A ^ 2 ) + ( B ^ 2 ) ) + ( ( C ^ 2 ) + ( D ^ 2 ) ) ) = ( ( ( A ^ 2 ) + ( B ^ 2 ) ) + ( ( c ^ 2 ) + ( d ^ 2 ) ) ) ) )
2216, 21rspc2ev 3324 . . . 4 |- ( ( A e. ZZ /\ B e. ZZ /\ E. c e. ZZ E. d e. ZZ ( ( ( A ^ 2 ) + ( B ^ 2 ) ) + ( ( C ^ 2 ) + ( D ^ 2 ) ) ) = ( ( ( A ^ 2 ) + ( B ^ 2 ) ) + ( ( c ^ 2 ) + ( d ^ 2 ) ) ) ) -> E. a e. ZZ E. b e. ZZ E. c e. ZZ E. d e. ZZ ( ( ( A ^ 2 ) + ( B ^ 2 ) ) + ( ( C ^ 2 ) + ( D ^ 2 ) ) ) = ( ( ( a ^ 2 ) + ( b ^ 2 ) ) + ( ( c ^ 2 ) + ( d ^ 2 ) ) ) )
23223expa 1265 . . 3 |- ( ( ( A e. ZZ /\ B e. ZZ ) /\ E. c e. ZZ E. d e. ZZ ( ( ( A ^ 2 ) + ( B ^ 2 ) ) + ( ( C ^ 2 ) + ( D ^ 2 ) ) ) = ( ( ( A ^ 2 ) + ( B ^ 2 ) ) + ( ( c ^ 2 ) + ( d ^ 2 ) ) ) ) -> E. a e. ZZ E. b e. ZZ E. c e. ZZ E. d e. ZZ ( ( ( A ^ 2 ) + ( B ^ 2 ) ) + ( ( C ^ 2 ) + ( D ^ 2 ) ) ) = ( ( ( a ^ 2 ) + ( b ^ 2 ) ) + ( ( c ^ 2 ) + ( d ^ 2 ) ) ) )
24 4sq.1 . . . 4 |- S = { n | E. x e. ZZ E. y e. ZZ E. z e. ZZ E. w e. ZZ n = ( ( ( x ^ 2 ) + ( y ^ 2 ) ) + ( ( z ^ 2 ) + ( w ^ 2 ) ) ) }
25244sqlem2 15653 . . 3 |- ( ( ( ( A ^ 2 ) + ( B ^ 2 ) ) + ( ( C ^ 2 ) + ( D ^ 2 ) ) ) e. S <-> E. a e. ZZ E. b e. ZZ E. c e. ZZ E. d e. ZZ ( ( ( A ^ 2 ) + ( B ^ 2 ) ) + ( ( C ^ 2 ) + ( D ^ 2 ) ) ) = ( ( ( a ^ 2 ) + ( b ^ 2 ) ) + ( ( c ^ 2 ) + ( d ^ 2 ) ) ) )
2623, 25sylibr 224 . 2 |- ( ( ( A e. ZZ /\ B e. ZZ ) /\ E. c e. ZZ E. d e. ZZ ( ( ( A ^ 2 ) + ( B ^ 2 ) ) + ( ( C ^ 2 ) + ( D ^ 2 ) ) ) = ( ( ( A ^ 2 ) + ( B ^ 2 ) ) + ( ( c ^ 2 ) + ( d ^ 2 ) ) ) ) -> ( ( ( A ^ 2 ) + ( B ^ 2 ) ) + ( ( C ^ 2 ) + ( D ^ 2 ) ) ) e. S )
2711, 26sylan2 491 1 |- ( ( ( A e. ZZ /\ B e. ZZ ) /\ ( C e. ZZ /\ D e. ZZ ) ) -> ( ( ( A ^ 2 ) + ( B ^ 2 ) ) + ( ( C ^ 2 ) + ( D ^ 2 ) ) ) e. S )
Colors of variables: wff setvar class
Syntax hints:   -> wi 4   /\ wa 384   = wceq 1483   e. wcel 1990   {cab 2608   E.wrex 2913  (class class class)co 6650   + caddc 9939   2c2 11070   ZZcz 11377   ^cexp 12860
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1722  ax-4 1737  ax-5 1839  ax-6 1888  ax-7 1935  ax-9 1999  ax-10 2019  ax-11 2034  ax-12 2047  ax-13 2246  ax-ext 2602  ax-nul 4789
This theorem depends on definitions:  df-bi 197  df-or 385  df-an 386  df-3an 1039  df-tru 1486  df-ex 1705  df-nf 1710  df-sb 1881  df-eu 2474  df-clab 2609  df-cleq 2615  df-clel 2618  df-nfc 2753  df-ral 2917  df-rex 2918  df-rab 2921  df-v 3202  df-sbc 3436  df-dif 3577  df-un 3579  df-in 3581  df-ss 3588  df-nul 3916  df-if 4087  df-sn 4178  df-pr 4180  df-op 4184  df-uni 4437  df-br 4654  df-iota 5851  df-fv 5896  df-ov 6653
This theorem is referenced by:  4sqlem4a  15655
  Copyright terms: Public domain W3C validator