---

Step * 1 2 1 2 2 1 of Lemma linearization-value

.....assertion..... 
1. u : ℤ List
2. v : ℤ List List
3. ∀[p:iPolynomial()]
     ∀f:ℤ ⟶ ℤ
       (int_term_value(f;ipolynomial-term(filter(λm.snd(m) ∈b v;p)))
       = linearization(p;v) ⋅ map(λvs.accumulate (with value x and list item v):
                                       x * (f v)
                                      over list:
                                        vs
                                      with starting value:
                                       1);v)
       ∈ ℤ) 
     supposing no_repeats(ℤ List;v)
4. p : iPolynomial()
5. no_repeats(ℤ List;[u / v])
6. f : ℤ ⟶ ℤ
7. int_term_value(f;ipolynomial-term(filter(λm.((list-deq(IntDeq) u (snd(m))) ∨bsnd(m) ∈b v);p)))
= (int_term_value(f;ipolynomial-term(filter(λm.(list-deq(IntDeq) u (snd(m)));p)))
  + int_term_value(f;ipolynomial-term(filter(λm.snd(m) ∈b v;p))))
∈ ℤ
⊢ int_term_value(f;ipolynomial-term(filter(λm.(list-deq(IntDeq) u (snd(m)));p)))
= (poly-coeff-of(u;p) * accumulate (with value x and list item v): x * (f v)over list:  uwith starting value: 1))
∈ ℤ
BY
{ TACTIC:(ThinVar `v' THEN D 2 THEN (ListInd 2 THEN Reduce 0) THEN Auto) }

1
1. u : ℤ List
2. f : ℤ ⟶ ℤ
3. ∀i:ℕ0. ∀j:ℕi.  imonomial-less(⊥;⊥)
⊢ int_term_value(f;ipolynomial-term([]))
= (poly-coeff-of(u;[]) * accumulate (with value x and list item v): x * (f v)over list:  uwith starting value: 1))
∈ ℤ

2
1. u : ℤ List
2. f : ℤ ⟶ ℤ
3. u1 : iMonomial()
4. v : iMonomial() List
5. (∀i:ℕ||v||. ∀j:ℕi.  imonomial-less(v[j];v[i]))
⇒ (int_term_value(f;ipolynomial-term(filter(λm.(list-deq(IntDeq) u (snd(m)));v)))
   = (poly-coeff-of(u;v) * accumulate (with value x and list item v): x * (f v)over list:  uwith starting value: 1))
   ∈ ℤ)
6. ∀i:ℕ||v|| + 1. ∀j:ℕi.  imonomial-less([u1 / v][j];[u1 / v][i])
⊢ int_term_value(f;ipolynomial-term(if list-deq(IntDeq) u (snd(u1))
then [u1 / filter(λm.(list-deq(IntDeq) u (snd(m)));v)]
else filter(λm.(list-deq(IntDeq) u (snd(m)));v)
fi ))
= (poly-coeff-of(u;[u1 / v]) * accumulate (with value x and list item v): x * (f v)over list:  uwith starting value: 1))
∈ ℤ

---

Latex:

---

Latex:
.....assertion..... 
1.  u  :  \mBbbZ{}  List
2.  v  :  \mBbbZ{}  List  List
3.  \mforall{}[p:iPolynomial()]
          \mforall{}f:\mBbbZ{}  {}\mrightarrow{}  \mBbbZ{}
              (int\_term\_value(f;ipolynomial-term(filter(\mlambda{}m.snd(m)  \mmember{}\msubb{}  v;p)))
              =  linearization(p;v)  \mcdot{}  map(\mlambda{}vs.accumulate  (with  value  x  and  list  item  v):
                                                                              x  *  (f  v)
                                                                            over  list:
                                                                                vs
                                                                            with  starting  value:
                                                                              1);v)) 
          supposing  no\_repeats(\mBbbZ{}  List;v)
4.  p  :  iPolynomial()
5.  no\_repeats(\mBbbZ{}  List;[u  /  v])
6.  f  :  \mBbbZ{}  {}\mrightarrow{}  \mBbbZ{}
7.  int\_term\_value(f;ipolynomial-term(filter(\mlambda{}m.((list-deq(IntDeq)  u  (snd(m)))  \mvee{}\msubb{}snd(m)  \mmember{}\msubb{}  v);p)))
=  (int\_term\_value(f;ipolynomial-term(filter(\mlambda{}m.(list-deq(IntDeq)  u  (snd(m)));p)))
    +  int\_term\_value(f;ipolynomial-term(filter(\mlambda{}m.snd(m)  \mmember{}\msubb{}  v;p))))
\mvdash{}  int\_term\_value(f;ipolynomial-term(filter(\mlambda{}m.(list-deq(IntDeq)  u  (snd(m)));p)))
=  (poly-coeff-of(u;p)
    *  accumulate  (with  value  x  and  list  item  v):
          x  *  (f  v)
        over  list:
            u
        with  starting  value:
          1))


By

---

Latex:
TACTIC:(ThinVar  `v'  THEN  D  2  THEN  (ListInd  2  THEN  Reduce  0)  THEN  Auto)

---

Home Index