theorem Th58:
  len(p - A) <= len p
proof
  len(p - A) = len p - card(p " A) by Th57;
  hence thesis by XREAL_1:43;
end;
