---

Step * of Lemma mklist-general-length

∀[h:Top]. ∀[n:ℕ].  (||mklist-general(n;h)|| ~ n)
BY
{ ((UnivCD THENA Auto)
   THEN NatInd (-1)
   THEN RepUR ``mklist-general`` 0
   THEN Try (Trivial)
   THEN (RWO "primrec-unroll" 0 THENA Auto)
   THEN Fold `mklist-general` 0
   THEN Reduce 0
   THEN AutoSplit) }

1
1. h : Top
2. n : ℤ
3. n ≠ 0
4. 0 < n
5. ||mklist-general(n - 1;h)|| ~ n - 1
⊢ ||mklist-general(n - 1;h) @ [h mklist-general(n - 1;h)]|| ~ n

---

Latex:

---

Latex:
\mforall{}[h:Top].  \mforall{}[n:\mBbbN{}].    (||mklist-general(n;h)||  \msim{}  n)


By

---

Latex:
((UnivCD  THENA  Auto)
  THEN  NatInd  (-1)
  THEN  RepUR  ``mklist-general``  0
  THEN  Try  (Trivial)
  THEN  (RWO  "primrec-unroll"  0  THENA  Auto)
  THEN  Fold  `mklist-general`  0
  THEN  Reduce  0
  THEN  AutoSplit)

---

Home Index