theorem
  [[x, u], [y, v]] in ==>.-relation(TS) implies len u >= len v
proof
  assume [[x, u], [y, v]] in ==>.-relation(TS);
  then x, u ==>. y, v, TS by Def4;
  hence thesis by Th26;
end;
