Goal:
  
  b : Byte.byte
  x : string
  IHx : forall y z : t,
        compare x y = Lt -> compare y z = Lt -> compare x z = Lt
  b0 : Byte.byte
  y : string
  H : ByteCompare.compare b b0 = Lt
  b1 : Byte.byte
  z : string
  H0 : b0 = b1
  ============================
   (Lt = Lt ->
    compare y z = Lt ->
    match ByteCompare.compare b b1 with
    | Eq => compare x z
    | Lt => Lt
    | Gt => Gt
    end = Lt)


DEBUG:Going to execute:
<coq-core.plugins.ltac::subst@1>
DEBUG LTAC Evaluated term: (ByteCompareSpec.compare_spec b0 b1)