
theorem Th1:
  for X being set holds X /\ succ X = X
proof
  let X be set;
  for x being object holds x in X & x in succ X iff x in X
    by XBOOLE_0:def 3;
  hence thesis by XBOOLE_0:def 4;
end;
