Goal:
  
  G : t
  z : V.t
  fuel : nat
  IHfuel : forall (s : VSet.t) (x : V.t),
           VSet.cardinal s = fuel ->
           lsp00 fuel s x z =
           (if VSet.mem x s
            then
             fold_left max
               (map
                  (fun '(n, y) =>
                   (Some n +
                    lsp00 (VSet.cardinal (VSet.remove x s)) 
                      (VSet.remove x s) y z)%nbar) 
                  (succs x))
               (if is_left (V.eq_dec x z) then Some 0 else None)
            else if is_left (V.eq_dec x z) then Some 0 else None)
  s : VSet.t
  x : V.t
  H : VSet.cardinal s = Datatypes.S fuel
  HH : VSet.mem x s = true
  n : Z
  y : V.t
  ============================
   ((Some n + lsp00 fuel (VSet.remove x s) y z)%nbar =
    (Some n + lsp00 (VSet.cardinal (VSet.remove x s)) (VSet.remove x s) y z)%nbar)


DEBUG:Going to execute:
assert (H' : VSet.cardinal (VSet.remove x s) = fuel)
DEBUG LTAC Evaluated term: map_ext