---

Step * of Lemma reject_cons_tl_sq

∀[T:Type]. ∀[a:T]. ∀[as:T List]. ∀[i:ℤ].  ([a / as]\[i] ~ [a / as\[i - 1]]) supposing ((i ≤ ||as||) and 0 < i)
BY
{ (Auto THEN RW (AddrC [1] (RecUnfoldTopC `reject`)) 0 THEN AutoSplit) }

---

Latex:

---

Latex:
\mforall{}[T:Type].  \mforall{}[a:T].  \mforall{}[as:T  List].  \mforall{}[i:\mBbbZ{}].
    ([a  /  as]\mbackslash{}[i]  \msim{}  [a  /  as\mbackslash{}[i  -  1]])  supposing  ((i  \mleq{}  ||as||)  and  0  <  i)


By

---

Latex:
(Auto  THEN  RW  (AddrC  [1]  (RecUnfoldTopC  `reject`))  0  THEN  AutoSplit)

---

Home Index