theorem
  LowerCone({}(A)) = the carrier of A
proof
  thus LowerCone({}(A)) c= the carrier of A;
  let x be object;
  assume x in the carrier of A;
  then reconsider a = x as Element of A;
  for a2 st a2 in {}(A) holds a < a2;
  hence thesis;
end;
