theorem
  id (bool A) is idempotent MSSetOp of A
proof
  reconsider a = id (bool A) as MSSetOp of A;
  a is idempotent
  by Th8;
  hence thesis;
end;
