---

Step * 1 of Lemma co-list-cons_wf


1. T : Type
2. h : T
3. t : colist(T)
4. <h, t> = <h, t> ∈ (Unit ⋃ (T × colist(T)))
⊢ (Unit ⋃ (T × colist(T))) ⊆r colist(T)
BY
{ (InstLemma `colist-ext` [⌜T⌝]⋅ THEN Auto) }

---

Latex:

---

Latex:

1.  T  :  Type
2.  h  :  T
3.  t  :  colist(T)
4.  <h,  t>  =  <h,  t>
\mvdash{}  (Unit  \mcup{}  (T  \mtimes{}  colist(T)))  \msubseteq{}r  colist(T)


By

---

Latex:
(InstLemma  `colist-ext`  [\mkleeneopen{}T\mkleeneclose{}]\mcdot{}  THEN  Auto)

---

Home Index