Goal:
    G1 : t  ext : EdgeSet.t
  ============================
   (Proper (eq ==> VSet.Equal ==> VSet.Equal)
      (fun (e : Edge.t) (s : VSet.t) =>
       if VSet.mem e..s (V G1)
       then
        VSet.add e..s (if VSet.mem e..t (V G1) then VSet.add e..t s else s)
       else if VSet.mem e..t (V G1) then VSet.add e..t s else s))


DEBUG:Going to execute:
move  =>? [[? ?] ?] -> ? ?; cbn