(define (eliminar-repe lst1 lst2)
  (cond
    [(or (empty? lst1) (empty? lst2)) empty]
    [else
     (local
       (
        (define (eliminaraux prod lis2)
          (cond
            [(empty? lis2) empty]
            [(not (equal? (producto-codigo prod) (producto-codigo (first lis2))))
             (cons prod (eliminaraux prod (rest lis2)))]
            [else (eliminaraux prod (rest lis2))]
            )
          )
        )
       (append (eliminaraux (first lst1) lst2) (eliminar-repe (rest lst1) lst2))
       )]
    )
  )