Goal:
    A : Type  P : nat → A → Type  k : nat  l : list A  n : nat
  ============================
   (Alli P (n + k) l → Alli (λ x : nat, P (n + x)) k l)


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