toList (append xs ys) = toList xs ++ toList ys
toNonEmpty (append xs ys) = toNonEmpty xs <> toNonEmpty ys