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


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