Goal:
    A : Type  y : A  H : [y] = [y]
  ============================
   ([] = [] ∧ y = y)


DEBUG:Going to execute:
clear H