Goal:
    A : Type  n : nat  k : nat  p : nat → A → bool  l : list A
  ============================
   (alli p (n + k) l = alli (λ i : nat, p (n + i)) k l)


DEBUG:Going to execute:
induction l in n, k, p |- *; simpl