Goal:
  
  A : Type
  l1 : list A
  x : A
  y : A
  IHl1 : ∀ l2 : list A, l1 ++ [x] = l2 ++ [y] → l1 = l2 ∧ x = y
  H : y :: l1 ++ [x] = [] ++ [y]
  H2 : l1 ++ [x] = []
  ============================
   (y :: l1 = l1 ++ [x] ∧ x = y)


DEBUG:Going to execute:
clear H