Goal:
  
  A : Type
  B : Type
  R : nat → A → B → Type
  n : nat
  x : A
  y : B
  l : list A
  r : list B
  r0 : R n x y
  a : All2i R (S n) l r
  IHa : All2i
          (λ (i : nat) (x : A) (y : B),
             (if i <? S n then False else nth_error l (i - S n) = Some x)
             × R i x y) (S n) l r
  i : nat
  x0 : A
  y0 : B
  X : (if i <? S n then False else nth_error l (i - S n) = Some x0)
      × R i x0 y0
  ============================
   ((if i <? n then False else nth_error (x :: l) (i - n) = Some x0)
    × R i x0 y0)


DEBUG:Going to execute:
destruct (i <? S n) eqn:ltb

Goals:
  
  A : Type
  B : Type
  R : nat → A → B → Type
  n : nat
  x : A
  y : B
  l : list A
  r : list B
  r0 : R n x y
  a : All2i R (S n) l r
  IHa : All2i
          (λ (i : nat) (x : A) (y : B),
             (if i <? S n then False else nth_error l (i - S n) = Some x)
             × R i x y) (S n) l r
  i : nat
  x0 : A
  y0 : B
  ltb : (i <? S n) = true
  X : False × R i x0 y0
  ============================
   ((if i <? n then False else nth_error (x :: l) (i - n) = Some x0)
    × R i x0 y0)

  
  A : Type
  B : Type
  R : nat → A → B → Type
  n : nat
  x : A
  y : B
  l : list A
  r : list B
  r0 : R n x y
  a : All2i R (S n) l r
  IHa : All2i
          (λ (i : nat) (x : A) (y : B),
             (if i <? S n then False else nth_error l (i - S n) = Some x)
             × R i x y) (S n) l r
  i : nat
  x0 : A
  y0 : B
  ltb : (i <? S n) = false
  X : nth_error l (i - S n) = Some x0 × R i x0 y0
  ============================
   ((if i <? n then False else nth_error (x :: l) (i - n) = Some x0)
    × R i x0 y0)


DEBUG:Going to execute:
simpl in *
DEBUG LTAC Evaluated term: (i <? S n)

Goals:
  
  A : Type
  B : Type
  R : nat → A → B → Type
  n : nat
  x : A
  y : B
  l : list A
  r : list B
  r0 : R n x y
  a : All2i R (S n) l r
  IHa : All2i
          (λ (i : nat) (x : A) (y : B),
             (if i <? S n then False else nth_error l (i - S n) = Some x)
             × R i x y) (S n) l r
  i : nat
  x0 : A
  y0 : B
  ltb : (i <? S n) = true
  X : False × R i x0 y0
  ============================
   ((if i <? n then False else nth_error (x :: l) (i - n) = Some x0)
    × R i x0 y0)

  
  A : Type
  B : Type
  R : nat → A → B → Type
  n : nat
  x : A
  y : B
  l : list A
  r : list B
  r0 : R n x y
  a : All2i R (S n) l r
  IHa : All2i
          (λ (i : nat) (x : A) (y : B),
             (if i <? S n then False else nth_error l (i - S n) = Some x)
             × R i x y) (S n) l r
  i : nat
  x0 : A
  y0 : B
  ltb : (i <? S n) = false
  X : nth_error l (i - S n) = Some x0 × R i x0 y0
  ============================
   ((if i <? n then False else nth_error (x :: l) (i - n) = Some x0)
    × R i x0 y0)


DEBUG:Going to execute:
destruct X => //