Goal:
    A : Type  B : Type  R : A → B → Prop  x : A  y0 : B  H : R x y0
  ============================
   ([y0] = [y0] ∧ R x y0)


DEBUG:Going to execute:
split => //
DEBUG LTAC Evaluated term: y0