theorem Th45:
  B is non-descending implies (inferior_setsequence B).n = B.n
proof
  assume B is non-descending;
  then (inferior_setsequence B).(n+1) /\ B.n = B.n by Th44,XBOOLE_1:28;
  hence thesis by Th21;
end;
