Goal:
    f : Edge.t -> Edge.t  es : EdgeSet.t  e : EdgeSet.elt  _x_ : Edge.t
  ============================
   (EdgeSet.In _x_ es -> EdgeSet.In (f _x_) (edge_map f es))


DEBUG:Going to execute:
apply : edge_map_spec1