5)


-- Verifica si una lista ocurre en el principio de otra lista

principio :: Eq a => [a] -> [a] -> Bool
principio [] a = True
principio a [] = False
principio (a:xs) (b:ys)    | (a == b) = principio xs ys
                                       | otherwise = False

-- Verifica si una lista ocurre en cualquier parte de otra lista

sublista :: Eq a => [a] -> [a] -> Bool
sublista [] a = True
sublista a [] = False
sublista (a:xs) (b:ys) = (principio (a:xs) (b:ys)) || (sublista (a:xs) ys)