theorem Th36:
  succ(T,t) = T*(t succ)
proof
  ex q being Element of dom T st q = t & succ(T,t) = T*(q succ) by Def6;
  hence thesis;
end;
