(define (actualizar-inventario inventario elemento cantidad)
  (cond
    [ (symbol=? (producto-nombre (inventario-tipo1 inventario) ) elemento  ) (cond
                                                     [ (>= (producto-cantidad (inventario-tipo1 inventario)) cantidad) (make-inventario
                                                                                                                        (make-producto(producto-nombre (inventario-tipo1 inventario) )
                                                                                                                        (- (producto-cantidad (inventario-tipo1 inventario)) cantidad  )
                                                                                                                        (producto-valor_unidad (inventario-tipo1 inventario) ) )
                                                                                                                        (make-producto(producto-nombre (inventario-tipo2 inventario) )
                                                                                                                        (producto-cantidad (inventario-tipo2 inventario))
                                                                                                                        (producto-valor_unidad (inventario-tipo2 inventario) ) )
                                                                                                                        (make-producto(producto-nombre (inventario-tipo3 inventario) )
                                                                                                                        (producto-cantidad (inventario-tipo3 inventario))
                                                                                                                        (producto-valor_unidad (inventario-tipo3 inventario) ))
                                                                                                                        ) ]
                                                     [ else (error "No hay suficientes unidades en el inventario. Intente de nuevo con una cantidad menor por favor.") ]
                                                     ) ]
    [ (symbol=? (producto-nombre (inventario-tipo2 inventario) )elemento ) (cond
                                                     [ (>= (producto-cantidad (inventario-tipo1 inventario)) cantidad) (make-inventario
                                                                                                                        (make-producto(producto-nombre (inventario-tipo1 inventario) )
                                                                                                                        (producto-cantidad (inventario-tipo1 inventario))
                                                                                                                        (producto-valor_unidad (inventario-tipo1 inventario) ) )
                                                                                                                        (make-producto(producto-nombre (inventario-tipo2 inventario) )
                                                                                                                        (- (producto-cantidad (inventario-tipo2 inventario)) cantidad  )
                                                                                                                        (producto-valor_unidad (inventario-tipo2 inventario) ) )
                                                                                                                        (make-producto(producto-nombre (inventario-tipo3 inventario) )
                                                                                                                        (producto-cantidad (inventario-tipo3 inventario))
                                                                                                                        (producto-valor_unidad (inventario-tipo3 inventario) ))
                                                                                                                        ) ]
                                                     [ else (error "No hay suficientes unidades en el inventario. Intente de nuevo con una cantidad menor por favor.") ]
                                                     ) ]
    [ (symbol=? (producto-nombre (inventario-tipo3 inventario) ) elemento ) (cond
                                                     [ (>= (producto-cantidad (inventario-tipo1 inventario)) cantidad) (make-inventario
                                                                                                                        (make-producto(producto-nombre (inventario-tipo1 inventario) )
                                                                                                                        (producto-cantidad (inventario-tipo1 inventario))
                                                                                                                        (producto-valor_unidad (inventario-tipo1 inventario) ) )
                                                                                                                        (make-producto(producto-nombre (inventario-tipo2 inventario) )
                                                                                                                        (producto-cantidad (inventario-tipo2 inventario))
                                                                                                                        (producto-valor_unidad (inventario-tipo2 inventario) ) )
                                                                                                                        (make-producto(producto-nombre (inventario-tipo3 inventario) )
                                                                                                                        (- (producto-cantidad (inventario-tipo3 inventario)) cantidad  )
                                                                                                                        (producto-valor_unidad (inventario-tipo3 inventario) ))
                                                                                                                        ) ]
                                                     [ else (error "No hay suficientes unidades en el inventario. Intente de nuevo con una cantidad menor por favor.") ]
                                                     ) ]
    [else inventario ]
    )
  )