Goal:
    A : Type  a : A  l : list A
  ============================
   (#|a :: l| = 0 → a :: l = [])


DEBUG:Going to execute:
trivial; hnf; intros