Goal:
  
  G1 : t
  ext : EdgeSet.t
  _x_ : Edge.t
  _a_ : V.t
  _b_ : Z
  _b1_ : V.t
  _x1_ : VSet.t
  _y_ : VSet.t
  ============================
   (VSet.Equal _x1_ _y_ ->
    VSet.Equal
      (if VSet.mem _a_ (V G1)
       then
        VSet.add _a_
          (if VSet.mem _b1_ (V G1) then VSet.add _b1_ _x1_ else _x1_)
       else if VSet.mem _b1_ (V G1) then VSet.add _b1_ _x1_ else _x1_)
      (if VSet.mem _a_ (V G1)
       then
        VSet.add _a_
          (if VSet.mem _b1_ (V G1) then VSet.add _b1_ _y_ else _y_)
       else if VSet.mem _b1_ (V G1) then VSet.add _b1_ _y_ else _y_))


DEBUG:Going to execute:
move : (VSet.mem _ _) (VSet.mem _ _)  => 
[] [] -> //