Goal:
  
  ============================
   (∀ (A : Type) (P : list A → A → Type) (l : list A) 
      (a b : All_fold P l) (e : a = b),
      noConfusionHom_All_fold_obligation_1 A P l a b
        (noConfusionHom_All_fold_obligation_2 A P l a b e) = e)


DEBUG:Going to execute:
intros