Goal:
  
  A : Type
  B : Type
  a : A
  l : list A
  P : B → Type
  H : BinInt.Z.add (BinInt.Z.of_nat #|l|) (BinNums.Zpos BinNums.xH) =
      BinNums.Z0
  cstr : BinInt.Z.le BinNums.Z0 (BinInt.Z.of_nat #|l|)
  ============================
   False


DEBUG:Going to execute:
idtac