Goal:
    f : Edge.t -> Edge.t  es : EdgeSet.t  e : EdgeSet.elt
  ============================
   ((exists e0 : Edge.t, e = f e0 /\ EdgeSet.In e0 es) ->
    EdgeSet.In e (edge_map f es))


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