---

Step * of Lemma eval_list_sq

∀[t:Top List]. (eval_list(t) ~ t)
BY
{ (Unfold `eval_list` 0
   THEN InductionOnList
   THEN Reduce 0
   THEN Auto
   THEN (HypSubst' (-1) 0 THEN CallByValueReduce 0 THEN Auto)
   THEN Fold `cons` 0
   THEN Auto) }

---

Latex:

---

Latex:
\mforall{}[t:Top  List].  (eval\_list(t)  \msim{}  t)


By

---

Latex:
(Unfold  `eval\_list`  0
  THEN  InductionOnList
  THEN  Reduce  0
  THEN  Auto
  THEN  (HypSubst'  (-1)  0  THEN  CallByValueReduce  0  THEN  Auto)
  THEN  Fold  `cons`  0
  THEN  Auto)

---

Home Index