Step
*
of Lemma
length-repn
∀[x:Top]. ∀[n:ℕ].  (||repn(n;x)|| ~ n)
BY
{ (Unfold `repn` 0 THEN InductionOnNat THEN Reduce 0 THEN Auto) }
1
1. x : Top
2. n : ℤ
3. 0 < n
4. ||primrec(n - 1;[];λi,l. [x / l])|| ~ n - 1
5. ||primrec(n;[];λi,l. [x / l])|| ∈ ℕ
6. n ∈ ℕ
⊢ ||primrec(n;[];λi,l. [x / l])|| = n ∈ ℕ
Latex:
Latex:
\mforall{}[x:Top].  \mforall{}[n:\mBbbN{}].    (||repn(n;x)||  \msim{}  n)
By
Latex:
(Unfold  `repn`  0  THEN  InductionOnNat  THEN  Reduce  0  THEN  Auto)
Home
Index