---

Step * 2 1 2 1 1 of Lemma Moessner-theorem

.....upcase..... 
1. n : ℕ
2. k : ℕ+
3. m : ℤ
4. 0 < m
5. primrec(m - 1;1;λx,n@0. (n@0 * (k - x + 1)^if (x + 1 =z 0) then n else 0 fi )) = 1 ∈ ℤ
⊢ primrec(m;1;λx,n@0. (n@0 * (k - x + 1)^if (x + 1 =z 0) then n else 0 fi )) = 1 ∈ ℤ
BY
{ ((RWO "primrec-unroll" 0 THEN Reduce 0) THEN Auto) }

---

Latex:

---

Latex:
.....upcase..... 
1.  n  :  \mBbbN{}
2.  k  :  \mBbbN{}\msupplus{}
3.  m  :  \mBbbZ{}
4.  0  <  m
5.  primrec(m  -  1;1;\mlambda{}x,n@0.  (n@0  *  (k  -  x  +  1)\^{}if  (x  +  1  =\msubz{}  0)  then  n  else  0  fi  ))  =  1
\mvdash{}  primrec(m;1;\mlambda{}x,n@0.  (n@0  *  (k  -  x  +  1)\^{}if  (x  +  1  =\msubz{}  0)  then  n  else  0  fi  ))  =  1


By

---

Latex:
((RWO  "primrec-unroll"  0  THEN  Reduce  0)  THEN  Auto)

---

Home Index