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` THEN AutoSplit) }

1
1. : ℕ
2. ∀n:ℕn. ∀[l:{l:ℤ List| ||l|| n ∈ ℤ]. ∀[p,q:polyform(n)].  (mul-polynom(n;p;q)@l (p@l q@l) ∈ ℤ)
3. 0 ∈ ℤ
⊢ ∀[l:{l:ℤ List| ||l|| n ∈ ℤ]. ∀[p,q:ℤ].  (mul-polynom(n;p;q)@l (p@l q@l) ∈ ℤ)

2
1. {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