
theorem Th4:
  for L be with_suprema non empty reflexive transitive RelStr holds
  the carrier of L is Ideal of L
proof
  let L be with_suprema non empty reflexive transitive RelStr;
  [#]L is Ideal of L;
  hence thesis;
end;
