---

Step * of Lemma unit_subtype_colist

∀[T:Type]. (Unit ⊆r colist(T))
BY
{ ((InstLemma `colist-ext` [] THEN ParallelLast')
   THEN D -1
   THEN Using [`B',⌜Unit ⋃ (T × colist(T))⌝] (BLemma `subtype_rel_transitivity`)⋅
   THEN Auto) }

---

Latex:

---

Latex:
\mforall{}[T:Type].  (Unit  \msubseteq{}r  colist(T))


By

---

Latex:
((InstLemma  `colist-ext`  []  THEN  ParallelLast')
  THEN  D  -1
  THEN  Using  [`B',\mkleeneopen{}Unit  \mcup{}  (T  \mtimes{}  colist(T))\mkleeneclose{}]  (BLemma  `subtype\_rel\_transitivity`)\mcdot{}
  THEN  Auto)

---

Home Index