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


DEBUG:Going to execute:
induction 1; simpl; constructor