Goal:
  
  G : t
  HI : invariants
  HG : acyclic_no_loop
  x : VSet.elt
  Hx : VSet.In x (V G)
  n : Z
  ============================
   (lsp x (s G) = Some n -> n <= 0)


DEBUG:Going to execute:
generalize eq_refl; pattern x at - 1
Level 1: evaluation returns
generalize eq_refl; pattern x at - 1; case x
where
x := lsp x (s G)
of type
constr of type tacvalue