| v' == v   = Nodo v i d
                        | v' < v    = Nodo v (inserta v' i) d
                        | otherwise = Nodo v i (inserta v' d)

-- (crea vs) es el ABB
inserta v' (Nodo v i d) | v' == v   = Nodo v i d
                        | v' < v    = Nodo v (inserta v' i) d
                        | otherwise = Nodo v i (inserta v' d)
inserta v' (Nodo v i d) | v' == v   = Nodo v i d
                        | v' < v    = Nodo v (inserta v' i) d
                        | otherwise = Nodo v i (inserta v' d)