Goal:
    A : Type  P : list A → A → Type  Δ : list A  X : All_fold P Δ
  ============================
   (All_fold P Δ)


DEBUG:Going to execute:
trivial; hnf; intros