Goal:
  
  b : Byte.byte
  y : string
  H : match ByteCompare.compare b b with
      | Eq => compare y y
      | Lt => Lt
      | Gt => Gt
      end = Lt
  IHy : compare y y = Lt -> False
  ============================
   False


DEBUG:Going to execute:
congruence