Goal:
  
  ============================
   (∀ (A : Type) (P : nat → A → Type) (n : nat) (l : list A) 
      (a b : Alli P n l) (e : a = b),
      (λ (A0 : Type) (P0 : nat → A0 → Type) (n0 : nat) 
         (l0 : list A0) (a0 b0 : Alli P0 n0 l0) (H : 
                                                 NoConfusionHom_Alli A0 P0 n0
                                                 l0 a0 b0),
         noConfusionHom_Alli_obligation_1 A0 P0 n0 l0 a0 b0 H) A P n l a b
        ((λ (A0 : Type) (P0 : nat → A0 → Type) (n0 : nat) 
            (l0 : list A0) (a0 b0 : Alli P0 n0 l0) 
            (H : a0 = b0),
            noConfusionHom_Alli_obligation_2 A0 P0 n0 l0 a0 b0 H) A P n l a b
           e) = e)


DEBUG:Going to execute:
Init.solve_noconf_hom