---

Step * 1 1 1 of Lemma enum-fin-seq-true

.....wf..... 
1. m : ℤ
2. m ≠ 0
3. 0 < m
4. (λx.tt) = enum-fin-seq(m - 1)[0] ∈ (ℕ ⟶ 𝔹)
⊢ 0 ∈ ℕ||map(λs,x. if x=m - 1  then tt  else (s x);primrec(m - 1;[λx.tt];λi,r. (map(λs,x. if x=i  then tt  else (s x);r)
                                                                          @ map(λs,x. if x=i  then ff  else (s x);r))))|\000C|
BY
{ (Fold `enum-fin-seq` 0 THEN RWO "length-map" 0 THEN Auto) }

---

Latex:

---

Latex:
.....wf..... 
1.  m  :  \mBbbZ{}
2.  m  \mneq{}  0
3.  0  <  m
4.  (\mlambda{}x.tt)  =  enum-fin-seq(m  -  1)[0]
\mvdash{}  0  \mmember{}  \mBbbN{}||map(\mlambda{}s,x.  if  x=m  -  1    then  tt    else  (s  x);primrec(m  -  1;[\mlambda{}x.tt];\mlambda{}i,r.  (map(\mlambda{}s,x.  if  x=i
                                                                                                                                                                                  then  tt
                                                                                                                                                                                  else  (s  x);\000Cr)
                                                                                                                                                    @  map(\mlambda{}s,x.  if  x=i
                                                                                                                                                                                  then  ff
                                                                                                                                                                                  else  (s  x);\000Cr))))||


By

---

Latex:
(Fold  `enum-fin-seq`  0  THEN  RWO  "length-map"  0  THEN  Auto)

---

Home Index