Goal:
  
  ============================
   (∀ (A B : Type) (R : nat → A → B → Type) (n : nat) 
      (l0 : list A) (l : list B) (a b : All2i R n l0 l) 
      (e : a = b),
      noConfusionHom_All2i_obligation_1 A B R n l0 l a b
        (noConfusionHom_All2i_obligation_2 A B R n l0 l a b e) = e)


DEBUG:Going to execute:
intros