theorem Th77:
  not <%>E in rng dom (the Tran of TS) implies (==>.-relation(TS)
  reduces [x, v], [y, w] implies len v > len w or x = y & v = w )
proof
  assume
A1: not <%>E in rng dom (the Tran of TS);
  assume ==>.-relation(TS) reduces [x, v], [y, w];
  then
  ex P being RedSequence of ==>.-relation(TS) st P.1 = [x, v] & P.len P = [
  y, w] by REWRITE1:def 3;
  hence thesis by A1,Th64;
end;
