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


DEBUG:Going to execute:
solve_noconf_hom