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


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