Goal:
  
  A : Type
  B : Type
  eos : CoreTactics.end_of_section
  fix_0 : ∀ (l : list A) (f : ∀ x : A, In x l → B),
            map_InP_graph l f (map_InP l f)
  ============================
   (∀ (l : list A) (f : ∀ x : A, In x l → B), map_InP_graph l f (map_InP l f))


DEBUG:Going to execute:
match goal with
           | H:_ ∧ _ |- _ => destruct H
           | H:_ * _ |- _ => destruct H
           | H:?X → _, H':?X
             |- _ => match X with
                     | _ → _ => specialize (H H')
                     end
           | H:?A ∧ ?B → ?C |- _ => apply (uncurry_conj A B C) in H
           end