Goal:
  
  G : t
  HI : invariants
  H : VSet.For_all (fun x : VSet.elt => lsp x x = Some 0) (V G)
  x : V.t
  p : PathOf x x
  Hp : weight p > 0
  ============================
   (0 < weight p + sweight (spath_refl (V G) x))


DEBUG:Going to execute:
simpl