Goal:
    A : Type  B : Type
  ============================
   (∀ (l : list A) (f : ∀ x : A, In x l → B), map_InP_graph l f (map_InP l f))


DEBUG:Going to execute:
CoreTactics.set_eos