Goal:
    A : Type  P : nat → A → Type  n : nat
  ============================
   (All_fold (λ (Γ : list A) (d : A), P (n + #|Γ|) d) [] → Alli P n [])


DEBUG:Going to execute:
<coq-core.plugins.ltac::constructor@0>