∀[T:Type]. ([] ∈ T List)
{ (Auto THEN Unfold `list` 0 THEN MemTypeCD THEN Auto) }
1. T : Type
⊢ [] ∈ colist(T)
.....set predicate..... 
1. T : Type
⊢ (colength([]))↓