---

Step * of Lemma bar-base-subtype

∀[T:Type]. (bar-base(T) ⊆r (T + bar-base(T)))
BY
{ (Auto THEN (InstLemma `corec-ext` [⌜λ2X.T + X⌝]⋅ THENA Auto) THEN Fold `bar-base` (-1) THEN Auto) }

---

Latex:

---

Latex:
\mforall{}[T:Type].  (bar-base(T)  \msubseteq{}r  (T  +  bar-base(T)))


By

---

Latex:
(Auto  THEN  (InstLemma  `corec-ext`  [\mkleeneopen{}\mlambda{}\msubtwo{}X.T  +  X\mkleeneclose{}]\mcdot{}  THENA  Auto)  THEN  Fold  `bar-base`  (-1)  THEN  Auto)

---

Home Index