Goal:
  
  A : Type
  P : list A → A → Type
  H : apply_noConfusion [] [] (λ _ : True, True) eq_refl
  ============================
   (All_fold_nil P = All_fold_nil P)


DEBUG:Going to execute:
hnf in id
Level 5: evaluation returns
hnf in id; CoreTactics.destruct_tele_eq id || DepElim.depelim id
where
id := H
of type
constr
b := b
of type
constr
a := a
of type
constr
R := eq
of type
constr of type tacvalue