Goal:
  
  ============================
   (∀ (A : Type) (P : A → A → Type) (a
                                     b : sigma
                                           (λ index : 
                                               sigma 
                                                 (λ _ : list A, list A),
                                              OnOne2 P 
                                                (pr1 index) 
                                                (pr2 index))),
      a = b → NoConfusion_OnOne2 A P a b)


DEBUG:Going to execute:
PTRDEBUGTACsimpl; intros