Goal:
    x : string  y : string  z : string  c : comparison
  ============================
   (compare x y = c -> compare y z = c -> compare x z = c)


DEBUG:Going to execute:
destruct (compare_spec x y); subst; intros <-;
            destruct (compare_spec y z)