theorem
  modid(X,X0) = id X
proof
  reconsider A = the carrier of X0 as Subset of X by TSEP_1:1;
  modid(X,A) = modid(X,X0) by Def11;
  hence thesis;
end;
