---

Step * 1 1 2 1 1 1 of Lemma list-cases


1. T : Type
2. x : colist(T)
3. (colength(x))↓
4. x ∈ T × colist(T)
5. x ~ <fst(x), snd(x)>
⊢ x ∈ T × (T List)
BY
{ TACTIC:(HypSubst' (-1) (-2)
          THEN HypSubst' (-1) (-3)
          THEN HypSubst' (-1) 0
          THEN (MemHD (-2) THENA Auto)
          THEN All Reduce ) }

1
1. T : Type
2. x : colist(T)
3. (colength(<fst(x), snd(x)>))↓
4. (fst(x)) = (fst(x)) ∈ T
5. snd(x) ∈ colist(T)
6. x ~ <fst(x), snd(x)>
⊢ <fst(x), snd(x)> ∈ T × (T List)

---

Latex:

---

Latex:

1.  T  :  Type
2.  x  :  colist(T)
3.  (colength(x))\mdownarrow{}
4.  x  \mmember{}  T  \mtimes{}  colist(T)
5.  x  \msim{}  <fst(x),  snd(x)>
\mvdash{}  x  \mmember{}  T  \mtimes{}  (T  List)


By

---

Latex:
TACTIC:(HypSubst'  (-1)  (-2)
                THEN  HypSubst'  (-1)  (-3)
                THEN  HypSubst'  (-1)  0
                THEN  (MemHD  (-2)  THENA  Auto)
                THEN  All  Reduce  )

---

Home Index