Goal:
    x : string  y : string  H : lt x y
  ============================
   (Lt = CompOpp (compare y x))


DEBUG:Going to execute:
rewrite (proj1 (compare_lt _ _))