Goal:
    A : Type  x : A  a : A  l : list A  H : None = Some x
  ============================
   (Some a = Some x)


DEBUG:Going to execute:
solve [ inversion H ]