theorem Th38:
  dom succ(T,t) = dom (t succ)
proof
  thus dom succ(T,t) = dom (T*(t succ)) by Th36
    .= dom (t succ) by Th37;
end;
