theorem Th46:
  E-bound S = upper_bound(proj1.:S)
proof
  thus E-bound S = upper_bound rng(proj1|S) by RELSET_1:22
    .= upper_bound(proj1.:S) by RELAT_1:115;
end;
