Step
*
2
of Lemma
compose-polynom_wf
1. n : ℕ
2. p : polynom(n)
3. q : polynom(n)
4. ¬(n = 0 ∈ ℤ)
5. q ∈ polynom(n - 1) List
6. z : polynom(n)
7. a : polynom(n - 1)
8. ¬↑poly-zero(n - 1;a)
⊢ [a] ∈ polynom(n)
BY
{ (RecUnfold `polynom` 0 THEN SplitOnConclITE THEN Auto) }
1
.....falsecase..... 
1. n : ℕ
2. p : polynom(n)
3. q : polynom(n)
4. ¬(n = 0 ∈ ℤ)
5. q ∈ polynom(n - 1) List
6. z : polynom(n)
7. a : polynom(n - 1)
8. ¬↑poly-zero(n - 1;a)
9. ¬(n = 0 ∈ ℤ)
⊢ [a] ∈ {p:polynom(n - 1) List| polyform-lead-nonzero(n;p)} 
Latex:
Latex:
1.  n  :  \mBbbN{}
2.  p  :  polynom(n)
3.  q  :  polynom(n)
4.  \mneg{}(n  =  0)
5.  q  \mmember{}  polynom(n  -  1)  List
6.  z  :  polynom(n)
7.  a  :  polynom(n  -  1)
8.  \mneg{}\muparrow{}poly-zero(n  -  1;a)
\mvdash{}  [a]  \mmember{}  polynom(n)
By
Latex:
(RecUnfold  `polynom`  0  THEN  SplitOnConclITE  THEN  Auto)
Home
Index