Goal:
  
  A : Type
  a : A
  L1 : list A
  P : list A → list A → A → A → Type
  IHL1 : ∀ L2 : list A,
           #|L1| = #|L2|
           → (∀ (n : nat) (x1 x2 : A),
                n < #|L1|
                → nth_error L1 n = Some x1
                  → nth_error L2 n = Some x2
                    → P (skipn (S n) L1) (skipn (S n) L2) x1 x2)
             → All2_fold P L1 L2
  L2 : list A
  H : S #|L1| = #|L2|
  X : ∀ (n : nat) (x1 x2 : A),
        n < S #|L1|
        → nth_error (a :: L1) n = Some x1
          → nth_error L2 n = Some x2 → P (skipn n L1) (skipn (S n) L2) x1 x2
  ============================
   (All2_fold P (a :: L1) L2)


DEBUG:Going to execute:
destruct L2

Goals:
  
  A : Type
  a : A
  L1 : list A
  P : list A → list A → A → A → Type
  IHL1 : ∀ L2 : list A,
           #|L1| = #|L2|
           → (∀ (n : nat) (x1 x2 : A),
                n < #|L1|
                → nth_error L1 n = Some x1
                  → nth_error L2 n = Some x2
                    → P (skipn (S n) L1) (skipn (S n) L2) x1 x2)
             → All2_fold P L1 L2
  H : S #|L1| = #|[]|
  X : ∀ (n : nat) (x1 x2 : A),
        n < S #|L1|
        → nth_error (a :: L1) n = Some x1
          → nth_error [] n = Some x2 → P (skipn n L1) (skipn (S n) []) x1 x2
  ============================
   (All2_fold P (a :: L1) [])

  
  A : Type
  a : A
  L1 : list A
  P : list A → list A → A → A → Type
  IHL1 : ∀ L2 : list A,
           #|L1| = #|L2|
           → (∀ (n : nat) (x1 x2 : A),
                n < #|L1|
                → nth_error L1 n = Some x1
                  → nth_error L2 n = Some x2
                    → P (skipn (S n) L1) (skipn (S n) L2) x1 x2)
             → All2_fold P L1 L2
  a0 : A
  L2 : list A
  H : S #|L1| = #|a0 :: L2|
  X : ∀ (n : nat) (x1 x2 : A),
        n < S #|L1|
        → nth_error (a :: L1) n = Some x1
          → nth_error (a0 :: L2) n = Some x2
            → P (skipn n L1) (skipn (S n) (a0 :: L2)) x1 x2
  ============================
   (All2_fold P (a :: L1) (a0 :: L2))


DEBUG:Going to execute:
inversion H
DEBUG LTAC Evaluated term: L2