theorem
  X c= B1 implies limpoints X c= succ B1
proof
A1: X /\ A = X by XBOOLE_1:28;
  assume X c= B1;
  then A /\ limpoints X c= succ B1 by A1,Th16;
  hence thesis by XBOOLE_1:28;
end;
