let S be Subset of (TOP-REAL 2); :: thesis: E-bound S = upper_bound (proj1 .: S)
thus E-bound S = upper_bound (rng (proj1 | S)) by RELSET_1:22
.= upper_bound (proj1 .: S) by RELAT_1:115 ; :: thesis: verum