---

Step * 1 1 2 2 of Lemma list-cases

.....wf..... 
1. T : Type
2. x : colist(T)
3. (colength(x))↓
4. x ∈ T × colist(T)
⊢ istype(x ~ [])
BY
{ ((GenConclTerm ⌜x⌝⋅ THENA Auto)
   THEN D -2
   THEN RepUR ``nil it`` 0
   THEN InstLemma `pair-sq-axiom-wf` [⌜v1⌝;⌜v2⌝]⋅
   THEN Auto) }

---

Latex:

---

Latex:
.....wf..... 
1.  T  :  Type
2.  x  :  colist(T)
3.  (colength(x))\mdownarrow{}
4.  x  \mmember{}  T  \mtimes{}  colist(T)
\mvdash{}  istype(x  \msim{}  [])


By

---

Latex:
((GenConclTerm  \mkleeneopen{}x\mkleeneclose{}\mcdot{}  THENA  Auto)
  THEN  D  -2
  THEN  RepUR  ``nil  it``  0
  THEN  InstLemma  `pair-sq-axiom-wf`  [\mkleeneopen{}v1\mkleeneclose{};\mkleeneopen{}v2\mkleeneclose{}]\mcdot{}
  THEN  Auto)

---

Home Index