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


DEBUG:Going to execute:
inversion H

Goals:

DEBUG:Going to execute:
subst

Goals:

DEBUG:Going to execute:
<coq-core.plugins.ltac::subst@1>

Goals:

DEBUG:Going to execute:
clear H