theorem Th89:
  x, v ==>* y, w, TS implies len w <= len v
proof
  assume x, v ==>* y, w, TS;
  then ex u st v = u^w by Th88;
  hence thesis by Th9;
end;
