theorem Th24:
  a in InitSegm(S,b) iff a < b & a in S
proof
  a in InitSegm(S,b) iff a in LowerCone{b} & a in S by XBOOLE_0:def 4;
  hence thesis by Th23;
end;
