Goal:
    y : string  hc : compare y y = Gt
  ============================
   (Eq = Lt)


DEBUG:Going to execute:
rewrite compare_refl in   hc
DEBUG LTAC Evaluated term: (compare y y)