Step
*
of Lemma
mul-polynom-int-val
∀[n:ℕ]. ∀[l:{l:ℤ List| ||l|| = n ∈ ℤ} ]. ∀[p,q:polyform(n)].  (mul-polynom(n;p;q)@l = (p@l * q@l) ∈ ℤ)
BY
{ (CompleteInductionOnNat THEN RecUnfold `polyform` 0 THEN AutoSplit) }
1
1. n : ℕ
2. ∀n:ℕn. ∀[l:{l:ℤ List| ||l|| = n ∈ ℤ} ]. ∀[p,q:polyform(n)].  (mul-polynom(n;p;q)@l = (p@l * q@l) ∈ ℤ)
3. n = 0 ∈ ℤ
⊢ ∀[l:{l:ℤ List| ||l|| = n ∈ ℤ} ]. ∀[p,q:ℤ].  (mul-polynom(n;p;q)@l = (p@l * q@l) ∈ ℤ)
2
1. n : {1...}
2. ∀n:ℕn. ∀[l:{l:ℤ List| ||l|| = n ∈ ℤ} ]. ∀[p,q:polyform(n)].  (mul-polynom(n;p;q)@l = (p@l * q@l) ∈ ℤ)
⊢ ∀[l:{l:ℤ List| ||l|| = n ∈ ℤ} ]. ∀[p,q:polyform(n - 1) List].  (mul-polynom(n;p;q)@l = (p@l * q@l) ∈ ℤ)
Latex:
Latex:
\mforall{}[n:\mBbbN{}].  \mforall{}[l:\{l:\mBbbZ{}  List|  ||l||  =  n\}  ].  \mforall{}[p,q:polyform(n)].    (mul-polynom(n;p;q)@l  =  (p@l  *  q@l))
By
Latex:
(CompleteInductionOnNat  THEN  RecUnfold  `polyform`  0  THEN  AutoSplit)
Home
Index