Funciones válidas para parcial - Haskell