Goal:
  
  A : Type
  B : Type
  P : A → B → Prop
  n : nat
  t : B
  e : None = Some t
  IHn : ∀ (l : list A) (l' : list B) (t : B),
          nth_error l' n = Some t
          → Forall2 P l l' → ∃ t' : A, nth_error l n = Some t' ∧ P t' t
  ============================
   (∃ t' : A, nth_error [] (S n) = Some t' ∧ P t' t)


DEBUG:Going to execute:
<coq-core.plugins.ltac::discriminate@0>
DEBUG LTAC Evaluated term: h