Goal:
  
  A : Type
  B : A → Type
  C : A → Type
  f : ∀ x : A, B x → C x
  eos : CoreTactics.end_of_section
  fix_0 : ∀ (l : list A) (a : All B l),
            make_All_All_graph l a (make_All_All a)
  ============================
   (∀ (l : list A) (a : All B l), make_All_All_graph l a (make_All_All a))


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