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


DEBUG:Going to execute:
inversion H; subst
Level 1: evaluation returns
inversion H; subst; clear H
where
H := H
of type
constr of type tacvalue