Goal:
    A : Type  B : Type  a : A  l : list A  P : B → Type  H : S #|l| = 0
  ============================
   (All2 (λ (_ : A) (b : B), P b) (a :: l) [])


DEBUG:Going to execute:
exfalso