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