theorem Th100:
  not <%>E in rng dom (the Tran of TS) implies (x, <%>E ==>* y, TS iff x = y)
by Th91;
