theorem Th37:
  dom (T*(t succ)) = dom (t succ)
proof
  rng (t succ) c= dom T;
  hence thesis by RELAT_1:27;
end;
