Goal:
  
  ============================
   (∀ (A B : Type) (R : A → B → Type) (l0 : list A) 
      (l : list B) (a b : All2 R l0 l),
      NoConfusionHom_All2 A B R l0 l a b → a = b)


DEBUG:Going to execute:
Init.solve_noconf_hom