Step * 1 2 of Lemma sum-of-three-cubes-iff-1


1. : ℕ
2. : ℤ
3. : ℤ
4. : ℤ
5. 0 ≤ (a b)
6. ¬((a b) 0 ∈ ℤ)
⊢ ((((a a) ((b b) b)) (a b)) (c c)) k ∈ ℤ
⇐⇒ (((a b) 0 ∈ ℤ) ∧ ((c c) k ∈ ℤ))
    ∨ ((¬((a b) 0 ∈ ℤ))
      ∧ ((k rem b) 0 ∈ ℤ)
      ∧ (((a a) ((b b) b)) ((k c) ÷ b) ∈ ℤ))
BY
((InstLemma `div_rem_sum` [⌜c⌝;⌜b⌝]⋅ THENA Auto)
   THEN RepeatFor (MoveToConcl (-1))
   THEN GenConclTerms Auto [⌜c⌝;⌜(a a) ((b b) b)⌝;⌜b⌝]⋅}

1
1. : ℕ
2. : ℤ
3. : ℤ
4. : ℤ
5. 0 ≤ (a b)
6. : ℤ
7. (c c) v ∈ ℤ
8. v1 : ℤ
9. ((a a) ((b b) b)) v1 ∈ ℤ
10. v2 : ℤ
11. (a b) v2 ∈ ℤ
⊢ (v2 0 ∈ ℤ))
 ((k v) ((((k v) ÷ v2) v2) (k rem v2)) ∈ ℤ)
 (((v1 v2) v) k ∈ ℤ
   ⇐⇒ ((v2 0 ∈ ℤ) ∧ (v k ∈ ℤ)) ∨ ((¬(v2 0 ∈ ℤ)) ∧ ((k rem v2) 0 ∈ ℤ) ∧ (v1 ((k v) ÷ v2) ∈ ℤ)))


Latex:


Latex:

1.  k  :  \mBbbN{}
2.  a  :  \mBbbZ{}
3.  b  :  \mBbbZ{}
4.  c  :  \mBbbZ{}
5.  0  \mleq{}  (a  +  b)
6.  \mneg{}((a  +  b)  =  0)
\mvdash{}  ((((a  *  a)  +  ((b  *  b)  -  a  *  b))  *  (a  +  b))  +  (c  *  c  *  c))  =  k
\mLeftarrow{}{}\mRightarrow{}  (((a  +  b)  =  0)  \mwedge{}  ((c  *  c  *  c)  =  k))
        \mvee{}  ((\mneg{}((a  +  b)  =  0))
            \mwedge{}  ((k  -  c  *  c  *  c  rem  a  +  b)  =  0)
            \mwedge{}  (((a  *  a)  +  ((b  *  b)  -  a  *  b))  =  ((k  -  c  *  c  *  c)  \mdiv{}  a  +  b)))


By


Latex:
((InstLemma  `div\_rem\_sum`  [\mkleeneopen{}k  -  c  *  c  *  c\mkleeneclose{};\mkleeneopen{}a  +  b\mkleeneclose{}]\mcdot{}  THENA  Auto)
  THEN  RepeatFor  2  (MoveToConcl  (-1))
  THEN  GenConclTerms  Auto  [\mkleeneopen{}c  *  c  *  c\mkleeneclose{};\mkleeneopen{}(a  *  a)  +  ((b  *  b)  -  a  *  b)\mkleeneclose{};\mkleeneopen{}a  +  b\mkleeneclose{}]\mcdot{})




Home Index