---

Step * of Lemma colist-ext

∀[T:Type]. colist(T) ≡ Unit ⋃ (T × colist(T))
BY
{ (Auto THEN Unfold `colist` 0 THEN BLemma `corec-ext` THEN Auto) }

---

Latex:

---

Latex:
\mforall{}[T:Type].  colist(T)  \mequiv{}  Unit  \mcup{}  (T  \mtimes{}  colist(T))


By

---

Latex:
(Auto  THEN  Unfold  `colist`  0  THEN  BLemma  `corec-ext`  THEN  Auto)

---

Home Index