Goal:
  
  G : t
  HI : invariants G
  HG : acyclic_no_loop G
  x : V.t
  y : V.t
  z : V.t
  p : PathOf G x y
  e : EdgeOf G y z
  ============================
   (is_simple G p ->
    ~~ VSet.mem y (nodes G p) -> is_simple G (PathOf_add_end p e))


DEBUG:Going to execute:
induction p; simpl