---

Step * of Lemma eq_cons_imp_eq_tls

∀[A:Type]. ∀[a,b:A]. ∀[as,bs:A List].  as = bs ∈ (A List) supposing [a / as] = [b / bs] ∈ (A List)
BY
{ (((RepD THENM ApFunToHypEquands `z' ⌜tl(z)⌝ ⌜A List⌝ (-1)) THENM Reduce (-1)) THEN Auto) }

---

Latex:

---

Latex:
\mforall{}[A:Type].  \mforall{}[a,b:A].  \mforall{}[as,bs:A  List].    as  =  bs  supposing  [a  /  as]  =  [b  /  bs]


By

---

Latex:
(((RepD  THENM  ApFunToHypEquands  `z'  \mkleeneopen{}tl(z)\mkleeneclose{}  \mkleeneopen{}A  List\mkleeneclose{}  (-1))  THENM  Reduce  (-1))  THEN  Auto)

---

Home Index