Goal:
    A : Type  x : A  y : A  l2 : list A  H : [x] = l2 ++ [y]
  ============================
   ([] = l2 ∧ x = y)


DEBUG:Going to execute:
destruct l2; cbn in H