Goal:
  
  G : t
  invG : invariants G
  acG : acyclic_no_sloop G
  x : V.t
  p : PathOf G x x
  wp : weight p > 0
  rx := spath_refl G VSet.empty x : SPath G VSet.empty x x
  hsupp : VSet.Equal (VSet.union VSet.empty (nodes G p)) (nodes G p)
  s0 := simplify G p rx hsupp : ∑ x' : V.t, SPath G (nodes G p) x' x'
  ============================
   ((0 < weight p + sweight rx -> 0 < sweight (simplify G p rx hsupp).π2) ->
    sweight s0.π2 > 0)


DEBUG:Going to execute:
rewrite {+1}/rx /s0 /=
DEBUG LTAC Evaluated term: (weight_simplify G p rx hsupp)