Goal:
    A : Type  P : list A → A → Type  Δ : list A  X : All_fold P ([] ++ Δ)
  ============================
   (All_fold (λ Γ : list A, P (Γ ++ Δ)) [])


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