theorem Th18:
  a in S implies not a in UpperCone(S)
proof
  assume that
A1: a in S and
A2: a in UpperCone(S);
  ex a1 st a1 = a & for a2 st a2 in S holds a2 < a1 by A2;
  hence thesis by A1;
end;
