reserve x,y,z,X for set,
  T for Universe;

theorem Th3:
  for R being RelStr holds the carrier of R = the carrier of R~
proof
  let R be RelStr;
  R~ = RelStr(#the carrier of R, (the InternalRel of R)~#) by LATTICE3:def 5;
  hence thesis;
end;
