---

Step * 1 of Lemma polyconst_wf

.....subterm..... T:t
4:n
1. n : ℤ
2. 0 < n
3. ∀[k:ℤ]. (polyconst(n - 1;k) ∈ polyform(n - 1))
4. k : ℤ
5. ¬(n = 0 ∈ ℤ)
6. ¬(k = 0 ∈ ℤ)
⊢ eval m = n - 1 in
  eval c = polyconst(m;k) in
    [c] ∈ if (n =z 0) then ℤ else polyform(n - 1) List fi 
BY
{ ((D 3 With ⌜k⌝  THENA Auto) THEN RepeatFor 2 ((CallByValueReduce 0 THENA Auto))) }

1
1. n : ℤ
2. 0 < n
3. k : ℤ
4. ¬(n = 0 ∈ ℤ)
5. ¬(k = 0 ∈ ℤ)
6. polyconst(n - 1;k) ∈ polyform(n - 1)
⊢ [polyconst(n - 1;k)] ∈ if (n =z 0) then ℤ else polyform(n - 1) List fi 

---

Latex:

---

Latex:
.....subterm.....  T:t
4:n
1.  n  :  \mBbbZ{}
2.  0  <  n
3.  \mforall{}[k:\mBbbZ{}].  (polyconst(n  -  1;k)  \mmember{}  polyform(n  -  1))
4.  k  :  \mBbbZ{}
5.  \mneg{}(n  =  0)
6.  \mneg{}(k  =  0)
\mvdash{}  eval  m  =  n  -  1  in
    eval  c  =  polyconst(m;k)  in
        [c]  \mmember{}  if  (n  =\msubz{}  0)  then  \mBbbZ{}  else  polyform(n  -  1)  List  fi 


By

---

Latex:
((D  3  With  \mkleeneopen{}k\mkleeneclose{}    THENA  Auto)  THEN  RepeatFor  2  ((CallByValueReduce  0  THENA  Auto)))

---

Home Index