---

Step * 3 1 of Lemma islist-iff-length-has-value

.....basecase..... 
1. T : Type
2. j : ℤ
⊢ λt,x. Ax ∈ ∀t:colist(T)
           ((λlist_ind,L. eval v = L in
                          if v is a pair then let a,b = v 
                                              in (list_ind b) + 1 otherwise if v = Ax then 0 otherwise ⊥^0 
             ⊥ 
             t)↓
           ⇒ (is-list(t))↓)
BY
{ TACTIC:(Reduce 0 THEN Strictness THEN MemCD) }

1
.....subterm..... T:t
1:n
1. T : Type
2. j : ℤ
3. t : colist(T)@i
⊢ λx.Ax ∈ (⊥)↓ ⇒ (is-list(t))↓

2
.....eq aux..... 
1. T : Type
2. j : ℤ
⊢ colist(T) ∈ Type

---

Latex:

---

Latex:
.....basecase..... 
1.  T  :  Type
2.  j  :  \mBbbZ{}
\mvdash{}  \mlambda{}t,x.  Ax  \mmember{}  \mforall{}t:colist(T)
                      ((\mlambda{}list$_{ind}$,L.  eval  v  =  L  in
                                                  if  v  is  a  pair  then  let  a,b  =  v 
                                                                                          in  (list$_{ind}$  b)  +  1
                                                  otherwise  if  v  =  Ax  then  0  otherwise  \mbot{}\^{}0 
                          \mbot{} 
                          t)\mdownarrow{}
                      {}\mRightarrow{}  (is-list(t))\mdownarrow{})


By

---

Latex:
TACTIC:(Reduce  0  THEN  Strictness  THEN  MemCD)

---

Home Index