Goal:
  
  G : t
  l : labelling
  Gl := relabel G l : t
  x : V.t
  y : V.t
  z : V.t
  e : EdgeOf G x y
  p : PathOf G y z
  ih : PathOf Gl y z
  n := Z.of_nat (l y) - Z.of_nat (l x) : Z
  ============================
   (EdgeSet.In (x, ?n, y) (E Gl))


DEBUG:Going to execute:
apply : (edge_map_spec1 _ _ _ e.π2)