' < v    = Nodo v (elimina v' i) d
                            | v' > v    = Nodo v i (elimina v' d)
                            | otherwise = Nodo k i (elimina k d)
  where k = menor d

-- (menor a) es el mínimo valor del ABB a. Por ejemplo,
--   menor (ejemploABB 1)  ==  2
menor :: Ord a => ABB a -> a
me
elimina v' (Nodo v i d)     | v' < v    = Nodo v (elimina v' i) d
                            | v' > v    = Nodo v i (elimina v' d)
                            | otherwise = Nodo k i (elimina k d)
  where k = menor d

-- (menor a) es el mínimo valor del ABB a. Por ejemplo,
--   menor (ejemploABB 1)  ==  2
elimina v' (Nodo v i d)     | v' < v    = Nodo v (elimina v' i) d
                            | v' > v    = Nodo v i (elimina v' d)
                            | otherwise = Nodo k i (elimina k d)
  where k = menor d

-- (menor a) es el mínimo valor del ABB a. Por ejemplo,
--   menor (ejemploABB 1)  ==  2