Goal:
    A : Type  x : A  a : A  H : xH <> xH
  ============================
   (Some x = Some a)


DEBUG:Going to execute:
apply IHi