---

Step * 1 2 1 3 1 1 1 1 of Lemma C_TYPE-valueall-type


1. u : Atom × Base@i
2. v : (Atom × Base) List@i
3. ∀i:ℕ||v|| + 1. (evalall(snd([u / v][i])))↓@i
4. i : ℕ||v||@i
5. (evalall(snd([u / v][i + 1])))↓
⊢ (evalall(snd(v[i])))↓
BY
{ (RWO "select-cons" (-1) THENA Auto) }

1
1. u : Atom × Base@i
2. v : (Atom × Base) List@i
3. ∀i:ℕ||v|| + 1. (evalall(snd([u / v][i])))↓@i
4. i : ℕ||v||@i
5. (evalall(snd(if i + 1 ≤z 0 then u else v[(i + 1) - 1] fi )))↓
⊢ (evalall(snd(v[i])))↓

---

Latex:

---

Latex:

1.  u  :  Atom  \mtimes{}  Base@i
2.  v  :  (Atom  \mtimes{}  Base)  List@i
3.  \mforall{}i:\mBbbN{}||v||  +  1.  (evalall(snd([u  /  v][i])))\mdownarrow{}@i
4.  i  :  \mBbbN{}||v||@i
5.  (evalall(snd([u  /  v][i  +  1])))\mdownarrow{}
\mvdash{}  (evalall(snd(v[i])))\mdownarrow{}


By

---

Latex:
(RWO  "select-cons"  (-1)  THENA  Auto)

---

Home Index