Goal:
    A : Type  B : Type  P : B → Type  H : 0 = 0
  ============================
   (All2 (λ (_ : A) (b : B), P b) [] [])


DEBUG:Going to execute:
econstructor; eauto