Goal:
  
  A : Type
  i : nat
  IHi : ∀ l : list A,
          i < #|l| → nth_error l i = nth_error (List.rev l) (#|l| - S i)
  ============================
   (S i < #|[]|
    → nth_error [] (S i) = nth_error (List.rev []) (#|[]| - S (S i)))


DEBUG:Going to execute:
simpl