Goal:
    A : Type  P : list A → A → Type  Q : list A → A → Type  Γ : list A
  ============================
   (All_fold P Γ → (∀ (Γ : list A) (x : A), P Γ x → Q Γ x) → All_fold Q Γ)


DEBUG:Going to execute:
induction 1; simpl; intros => //; constructor