theorem Th45:
  N-bound S = upper_bound(proj2.:S)
proof
  thus N-bound S = upper_bound rng(proj2|S) by RELSET_1:22
    .= upper_bound(proj2.:S) by RELAT_1:115;
end;
