Goal:
  
  G : t
  HG : acyclic_no_loop
  s : VSet.t
  x : V.t
  y1 : V.t
  y2 : V.t
  n : Z
  He : EdgeSet.In (y1, n, y2) (E G)
  Hy : VSet.In y1 s
  m : Z
  p : SPath s x y1
  Hp : sweight p = m
  p1 : SPath (VSet.remove y1 s) x y1
  p2 : SPath s y1 y1
  Hp12 : split' p = (p1, p2)
  H : sweight p1 + sweight p2 = sweight p
  ============================
   (Some m + Some n <= Some (sweight (add_end p1 (n; He) ?Hs)))%nbar


DEBUG:Going to execute:
subst; rewrite weight_add_end
DEBUG LTAC Evaluated term: (lsp0_spec_le (add_end p1 (n; He) ?Hs))