theorem Th91:
  not <%>E in rng dom (the Tran of TS) implies (x, u ==>* y, u, TS iff x = y)
proof
  assume
A1: not <%>E in rng dom (the Tran of TS);
  thus x, u ==>* y, u, TS implies x = y
  proof
    assume x, u ==>* y, u, TS;
    then ==>.-relation(TS) reduces [x, u], [y, u];
    then
    ex p being RedSequence of ==>.-relation(TS) st p.1 = [x, u] & p.len p =
    [y, u] by REWRITE1:def 3;
    hence thesis by A1,Th60;
  end;
  assume x = y;
  hence thesis by Th82;
end;
