Step
*
1
1
2
1
1
1
of Lemma
mul-polynom-int-val
1. n : ℕ
2. u : ℤ
3. v : ℤ List
4. ||[u / v]|| = n ∈ ℤ
5. q : polyform(n - 1) List
6. ¬(n = 0 ∈ ℤ)
7. ||v|| = (n - 1) ∈ ℤ
8. ∀[p,q:polyform(n - 1)].  (v@mul-polynom(n - 1;p;q) = (v@p * v@q) ∈ ℤ)
9. r : polyform(n)
⊢ [u / v]@r = (([u / v]@[] * [u / v]@q) + ([u / v]@r * 1)) ∈ ℤ
BY
{ (RWO  "poly_int_val_nil_cons polyconst-val" 0 THEN Try (Complete (Auto))) }
1
1. n : ℕ
2. u : ℤ
3. v : ℤ List
4. ||[u / v]|| = n ∈ ℤ
5. q : polyform(n - 1) List
6. ¬(n = 0 ∈ ℤ)
7. ||v|| = (n - 1) ∈ ℤ
8. ∀[p,q:polyform(n - 1)].  (v@mul-polynom(n - 1;p;q) = (v@p * v@q) ∈ ℤ)
9. r : polyform(n)
⊢ [u / v]@r = ((0 * [u / v]@q) + ([u / v]@r * 1)) ∈ ℤ
Latex:
Latex:
1.  n  :  \mBbbN{}
2.  u  :  \mBbbZ{}
3.  v  :  \mBbbZ{}  List
4.  ||[u  /  v]||  =  n
5.  q  :  polyform(n  -  1)  List
6.  \mneg{}(n  =  0)
7.  ||v||  =  (n  -  1)
8.  \mforall{}[p,q:polyform(n  -  1)].    (v@mul-polynom(n  -  1;p;q)  =  (v@p  *  v@q))
9.  r  :  polyform(n)
\mvdash{}  [u  /  v]@r  =  (([u  /  v]@[]  *  [u  /  v]@q)  +  ([u  /  v]@r  *  1))
By
Latex:
(RWO    "poly\_int\_val\_nil\_cons  polyconst-val"  0  THEN  Try  (Complete  (Auto)))
Home
Index