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


DEBUG:Going to execute:
solve [ inversion H ]