---

Step * 1 of Lemma has-value-append


1. k : Base
2. j : ℤ
3. 0 < j
4. ∀l:Base
     ((λlist_ind,L. eval v = L in
                    if v is a pair then let a,as' = v 
                                        in [a / (list_ind as')] otherwise if v = Ax then k otherwise ⊥^j - 1 
       ⊥ 
       l)↓
     ⇒ (l)↓)
5. l : Base@i
6. (λlist_ind,L. eval v = L in
                 if v is a pair then let a,as' = v 
                                     in [a / (list_ind as')] otherwise if v = Ax then k otherwise ⊥^j 
    ⊥ 
    l)↓@i
⊢ (l)↓
BY
{ ((RWO "fun_exp_unroll_1" (-1) THENA Auto) THEN Reduce (-1) THEN HasValueD (-1) THEN HVimplies2 (-2) [1]) }

---

Latex:

---

Latex:

1.  k  :  Base
2.  j  :  \mBbbZ{}
3.  0  <  j
4.  \mforall{}l:Base
          ((\mlambda{}list$_{ind}$,L.  eval  v  =  L  in
                                      if  v  is  a  pair  then  let  a,as'  =  v 
                                                                              in  [a  /  (list$_{ind}$  as')]  otherwise  if  \000Cv  =  Ax  then  k  otherwise  \mbot{}\^{}j  -  1 
              \mbot{} 
              l)\mdownarrow{}
          {}\mRightarrow{}  (l)\mdownarrow{})
5.  l  :  Base@i
6.  (\mlambda{}list$_{ind}$,L.  eval  v  =  L  in
                                if  v  is  a  pair  then  let  a,as'  =  v 
                                                                        in  [a  /  (list$_{ind}$  as')]  otherwise  if  v  =\000C  Ax  then  k  otherwise  \mbot{}\^{}j 
        \mbot{} 
        l)\mdownarrow{}@i
\mvdash{}  (l)\mdownarrow{}


By

---

Latex:
((RWO  "fun\_exp\_unroll\_1"  (-1)  THENA  Auto)
  THEN  Reduce  (-1)
  THEN  HasValueD  (-1)
  THEN  HVimplies2  (-2)  [1])

---

Home Index