Goal:
  
  A : Type
  n : nat
  k : nat
  p : nat → A → bool
  a : A
  l : list A
  IHl : ∀ (n k : nat) (p : nat → A → bool),
          alli p (n + k) l = alli (λ i : nat, p (n + i)) k l
  x : nat
  ============================
   (p (S n + x) =1 p (n + (1 + x)))


DEBUG:Going to execute:
rewrite Nat.add_succ_r
DEBUG LTAC Evaluated term: alli_ext