Goal:
    A : Type  B : Type  R : A → B → Type  x : A  y0 : B  r : R x y0
  ============================
   ([y0] = [y0] × R x y0)


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