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


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 (s G) x
of type
constr of type tacvalue