data List01 : Bool -> Type -> TypeFoldable (List01 ne)Functor (List01 ne)Show (Partitions ps)Show a => Show (List01 ne a)fromList : (xs : List a) -> List01 (isCons xs) a(++) : List01 nel a -> List01 ner a -> List01 (nel || Delay ner) alength : List01 ne a -> Natforget : List01 ne a -> List a